001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023

;**********************  Wipe ON  ***********************
        cblock         h'40'
        won_lp
        won_index
        endc

wipe_on
        movlw   d'16'           ;Set loop count
        movwf   won_lp          ;Save loop count
        movlw   d'15'           ;Set row index
        movwf   won_index       ;Save row index
wipe_on_loop
        movlw   scrnhd          ;Set table head address
        addwf   won_index,w     ;Head + Index
        movwf   fsr             ;Set table address
        movlw   h'00'           ;Set ON data
        movwf   indf            ;Write data
        call    led_cnt         ;LED control
        call    t100m           ;Wait 100msec
        decf    won_index,f     ;Index - 1
        decfsz  won_lp,f        ;Loop end ?
        goto    wipe_on_loop    ;No. Next row
        return                  ;Yes. Count end