org #0000
start		di
		ld sp,#400	; Need a call stack to handle NMI
loop		ld a,#C0
rightwards	out (#f8),a
		rra
		cp 0
		jr nz,rightwards
		ld a,#07
leftwards	out (#f8),a
		rla
		cp 0
		jr nz,leftwards
		ld a,1
increment	out (#f8),a
		inc a
		cp #10
		jr nz,increment
shiftout	rla
		out (#f8),a
		cp 0
		jr nz,shiftout
		halt
		jp loop

filler		defb "fill in some space until we get to #0066 "
		defb "..................."

nmi		ex af,af'	; save A and F registers
		ld a,#aa
		out (#f8),a
		ld a,#55
		out (#f8),a
		xor a
		out (#f8),a
		ex af,af'	; restore AF
		retn
		nop