;; 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