目次PIC回路集サインボード 2ソフトウェア


サインボード 2 ソフトウェア
スプリット・イン





この処理はメイン処理に組み込んで使用します。
機能
    ワークエリアに設定されたデータを両端から移動しながら表示します。
    表示されていたデータの位置は変えません。
    表示の移動速度は100ミリ秒/列にしています。
    上のアニメーションはファイルサイズを小さくするために間引いています。


ソースリスト

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
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
;*********************  Split-in  ***********************
        cblock         h'40'
        spin_lp
        spin_adr
        spin_adrr
        spin_adrwl
        spin_adrwr
        spin_data
        spin_sft
        spin_sftw
        spin_tol
        spin_fml
        spin_tor
        spin_fmr
        endc

split_in
        movlw   d'8'            ;Set loop count
        movwf   spin_lp         ;Save loop count
        movlw   scrnhd          ;Set screen head adr
        movwf   spin_adr        ;Save head adr
        addlw   d'15'           ;Head + 15(Right)
        movwf   spin_adrr       ;Save right adr
        movlw   scrnwhd         ;Set work head adr
        addlw   d'7'            ;Set work adr(Left)
        movwf   spin_adrwl      ;Save work adr(Left)
        addlw   d'1'            ;Set work adr(Right)
        movwf   spin_adrwr      ;Save work adr(Right)
        movlw   d'1'            ;Set shift loop count
        movwf   spin_sft        ;Save shift loop count
split_in_lp
        decfsz  spin_sft,w      ;Need shift ?
        goto    split_in_shift  ;Yes. jump to shift proc
split_in1
        movf    spin_adrwl,w    ;Read work adr(Left)
        movwf   fsr             ;Set work adr
        movf    indf,w          ;Read work data
        movwf   spin_data       ;Save data
        movf    spin_adr,w      ;Read screen adr
        movwf   fsr             ;Set screen adr
        movf    spin_data,w     ;Read data
        movwf   indf            ;Write data(Left)
        movf    spin_adrwr,w    ;Read work adr(Right)
        movwf   fsr             ;Set work adr
        movf    indf,w          ;Read work data
        movwf   spin_data       ;Save data
        movf    spin_adrr,w     ;Read screen adr
        movwf   fsr             ;Set screen adr
        movf    spin_data,w     ;Read data
        movwf   indf            ;Write data(Right)
        call    led_cnt         ;LED control
        call    t100m           ;Wait 100 msec
        decf    spin_adrwl,f    ;Work left adr - 1
        incf    spin_adrwr,f    ;Work right adr + 1
        incf    spin_sft,f      ;Shift loop count + 1
        decfsz  spin_lp,f       ;Split end ?
        goto    split_in_lp     ;No. Next
        return

split_in_shift
        decf    spin_sft,w      ;Shift loop count - 1
        movwf   spin_sftw       ;Save shift loop count
        movwf   spin_tol        ;Save TO adr index(Left)
        sublw   d'16'           ;Set FROM adr index(Right)
        movwf   spin_fmr        ;Save FROM adr index(Right)
        movlw   scrnhd          ;Set screen head address
        addwf   spin_tol,f      ;HA + index = TO adr(Left)
        decf    spin_tol,w      ;TO - 1 = FROM adr(Left)
        movwf   spin_fml        ;Save FROM adr(Left)
        movlw   scrnhd          ;Set screen head address
        addwf   spin_fmr,f      ;Save FROM adr(Right)
        decf    spin_fmr,w      ;FROM - 1 = TO adr(Right)
        movwf   spin_tor        ;Save TO adr(Right)
spliti_shift_lp
        movf    spin_fml,w      ;Read FROM adr(Left)
        movwf   fsr             ;Set FROM adr
        movf    indf,w          ;Read FROM data
        movwf   spin_data       ;Save data
        movf    spin_tol,w      ;Read TO adr
        movwf   fsr             ;Set TO adr
        movf    spin_data,w     ;Read data
        movwf   indf            ;Write data(Left)
        movf    spin_fmr,w      ;Read FROM adr(Right)
        movwf   fsr             ;Set FROM adr
        movf    indf,w          ;Read FROM data
        movwf   spin_data       ;Save data
        movf    spin_tor,w      ;Read TO adr
        movwf   fsr             ;Set TO adr
        movf    spin_data,w     ;Read data
        movwf   indf            ;Write data(Right)
        decf    spin_tol,f      ;TO adr(Left) - 1
        decf    spin_fml,f      ;FROM adr(Left) - 1
        incf    spin_tor,f      ;TO adr(Right) + 1
        incf    spin_fmr,f      ;FROM adr(Right) + 1
        decfsz  spin_sftw,f     ;Shift end ?
        goto    spliti_shift_lp ;No. Next
        goto    split_in1       ;Yes. Shift end



解説
    2行目から15行目でワークエリアの自動割付を行っています。

    この処理ではスクリーンワークエリアの中央から1列分をスクリーンエリアの両端にコピーし、LED制御サブルーチンによりLEDを制御します。その後、100ミリ秒待ってから次の列の処理をしています。このタイマーを変更すれば、表示速度を変えることができます。
    スクリーンエリアのシフト処理のアドレス算出が少し面倒でした。