ca65 V2.17 - Git 582aa41
Main file   : scroll.ca65
Current file: scroll.ca65

000000r 1               ;
000000r 1               ; ACORN System 1 Applications: Scroll
000000r 1               ;
000000r 1               ; From the Acorn System 1 User's Manual
000000r 1               ;
000000r 1               ; (Chris Oddy January 2022)
000000r 1               ;
000000r 1               ; entry point $0200
000000r 1               ;
000000r 1               		.setcpu			"6502"
000000r 1               		.listbytes		unlimited
000000r 1               ;
000000r 1               D		:=		$10
000000r 1               ;
000000r 1               		.org			$0200
000200  1               ;
000200  1  A2 00        SCROLL:	ldx		#$00		; must go forwards
000202  1  B4 11        LOOP:	ldy		D+1,x		; pick-up data on right
000204  1  94 10        		sty		D,x			; & move it one left
000206  1  E8           		inx
000207  1  E0 07        		cpx		#$07
000209  1  D0 F7        		bne		LOOP		; keep going
00020B  1  85 11        		sta		D+1			; new data
00020D  1  60           		rts
00020D  1