;; Fill display with $FF
; updated for 5x5 display

#*px  $24
#fill $25

              ; Initialize variables...
LDA $00       ; (Address for the first px on the display)
STO .*px      ; Pointer to current px
LDA $FF       ; ($FF is 'on', $00 is 'off')
STO #fill     ; Stash value to fill with

@paint
 LDA (#fill)  ; (A = mem[fill] = $FF)
 STO (#*px)   ; Paint pixel (mem[mem[*px]] = A = $FF)

LDA (#*px)    ; Increment pixel pointer...
ADD $01
STO #*px

LDA (#*px)    ; Test whether to loop or not...
SUB $19       ; if *px - $19 == 0, we've reached the end
FHP 2         ; (Zero flag is #2)
  JMP @paint
END