27 lines
455 B
NASM
27 lines
455 B
NASM
;; Fill display with $FF
|
|
; updated for 5x5 display
|
|
|
|
=pixelIndex $24
|
|
=pixelFill $25
|
|
|
|
LDA $00 ; Start of display
|
|
STO =pixelIndex
|
|
|
|
LDA $FF
|
|
STO =pixelFill
|
|
|
|
@copy-to-display
|
|
LDA ($25) ; A = mem[$25] = $FF
|
|
STO ($24) ; update pixel ... mem[mem[$24]] = A = $FF
|
|
|
|
; increment pixel index
|
|
LDA ($24)
|
|
ADD $01
|
|
STO =pixelIndex
|
|
|
|
LDA ($24) ; pixelIndex
|
|
SUB $19 ; if pixelIndex - $19 == 0, we've reached the end
|
|
FHP 2 ; Zero flag is #2
|
|
JMP @copy-to-display
|
|
|
|
END |