[Menu]>[Circuits Gallery]>[Signboard 2]>[Software]


Software for Signboard 2
[Wipe-out]




This routine sholud be put on the main process.
Function
    This routine displays the data which was set to the workarea from center without shiftting.
    The position of the displayed data and the data to display isn't shiftted.
    In the lighting-up interval, it is 100 milliseconds per row.
    In the animation which is shown above, it is culling to make a file size small.

Source code

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


Explanation
    The assignment of workarea is done among the 7th line from the 2nd line.

    In this routine, the data which is set on the screen workarea is copied to screen area by one row from center and it calls LED control subroutine.
    The shift speed of the display is 100 milliseconds/row. If changing this timer, the display speed can be changed.