001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050 | ;********************* Wipe Out ***********************
cblock h'40'
wipeo_lp
wipeo_ladr
wipeo_radr
wipeo_ladrw
wipeo_radrw
wipeo_data
endc
wipe_out
movlw d'8' ;Set loop count
movwf wipeo_lp ;Save loop count
movlw scrnwhd ;Set screen work head adr
addlw d'7' ;Set work adr(Left)
movwf wipeo_ladrw ;Save work adr(Left)
addlw d'1' ;Set work adr(Right)
movwf wipeo_radrw ;Save work adr(Right)
movlw scrnhd ;Set screen head adr
addlw d'7' ;Set write adr(Left)
movwf wipeo_ladr ;Save write adr(Left)
addlw d'1' ;Set write adr(Right)
movwf wipeo_radr ;Save write adr(Right)
wipeo_loop
movf wipeo_ladrw,w ;Read work adr(Left)
movwf fsr ;Set work adr
movf indf,w ;Read work data
movwf wipeo_data ;Save data
movf wipeo_ladr,w ;Read screen adr(Left)
movwf fsr ;Set screen adr
movf wipeo_data,w ;Read data
movwf indf ;Write data(Left)
movf wipeo_radrw,w ;Read work adr(Right)
movwf fsr ;Set work adr
movf indf,w ;Read work data
movwf wipeo_data ;Save data
movf wipeo_radr,w ;Read screen adr(Right)
movwf fsr ;Set screen adr
movf wipeo_data,w ;Read data
movwf indf ;Write data(Right)
call led_cnt ;LED control
call t100m ;Wait 100 msec
decf wipeo_ladrw,f ;Work adr(Left) - 1
incf wipeo_radrw,f ;Work adr(Right) + 1
decf wipeo_ladr,f ;Screen adr(Left) - 1
incf wipeo_radr,f ;Screen adr(Right) + 1
decfsz wipeo_lp,f ;Wipe end ?
goto wipeo_loop ;No. Next
return |
機能