; Scrolling moire: "Mystery Pass"
	
	mov #1,r3
	mov #1330,r5
1:	mov #40000,r4
2:	mov #1,r0
	add r3,r1
	bne 3
	neg r3
	add r3,r1
3:	add r1,r2
	rol r0
	bcc 3
	mov r0,(r4)+
	bit #77,r4
	bne 2
	incb r5
	mov r5,@#177664
	tst r4
	bpl 2
	br 1
