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

;*********************  Wipe OFF  **********************
        cblock         h'40'
        woff_lp
        woff_index
        endc

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