cpu 6502
nam Court
ilist off
	
page 128,128


* = $0900  ; assemble at $900
code
	lda #$00
	sta $D020
	sta $D021
	tax
	lda #$20
.loop	sta $0400,x
	sta $0500,x
	sta $0600,x
	sta $0700,x
	dex
	bne .loop
	rts


.rnd    lda $DC04   ;CIA#1  Timer A  Lo byte 
        eor $DC05   ;CIA#1  Timer A  Hi byte 
        eor $DD04   ;CIA#2  Timer A  Lo byte 
        adc $DD05   ;CIA#2  Timer A  Hi byte 
        eor $DD06   ;CIA#2  Timer B  Lo byte 
        eor $DD07   ;CIA#2  Timer B  Hi byte 
        rts         ;


	nop
	nop
	nop
	

code
