;長(zhǎng)沙太陽(yáng)人電子有限公司二線(xiàn)式串行接口匯編測(cè)試程序(for SMS0408)

;電話(huà):  0731-4167806,4167808
;E-mail: www@sunman.cn
;Create by : 譚超 E-mail: tanchao_1@126.com


CLKPIN  BIT     P1.3              ;用戶(hù)自定義CLK對(duì)應(yīng)引腳
DIPIN   BIT     P1.1              ;用戶(hù)自定義DI對(duì)應(yīng)引腳
LCDBUF  EQU     10H               ;用戶(hù)自定義LCD緩沖區(qū)首地址
LCDBUFEND       EQU     LCDBUF+4  ;用戶(hù)自定義LCD緩沖區(qū)末地址
        ORG     0000H
        JMP     START
START:  MOV     SP,#60H
MAIN:
        CALL    USERCONT0
        CALL    TRANSRAM          ;顯示0
        CALL    DELAY
        CALL    USERCONT1
        CALL    TRANSRAM          ;顯示1
        CALL    DELAY
        CALL    USERCONT2
        CALL    TRANSRAM          ;顯示2
        CALL    DELAY
        CALL    USERCONT3
        CALL    TRANSRAM          ;顯示3
        CALL    DELAY
        CALL    USERCONT4
        CALL    TRANSRAM          ;顯示4
        CALL    DELAY
        CALL    USERCONT5
        CALL    TRANSRAM          ;顯示5
        CALL    DELAY
        CALL    USERCONT6
        CALL    TRANSRAM          ;顯示6
        CALL    DELAY
        CALL    USERCONT7
        CALL    TRANSRAM          ;顯示7
        CALL    DELAY
        CALL    USERCONT8
        CALL    TRANSRAM          ;顯示8
        CALL    DELAY
        CALL    USERCONT
        CALL    TRANSRAM          ;全顯
        CALL    DELAY
JMP     MAIN
USERCONT0:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10001000B
        MOV     LCDBUF+2,#10001000B
        MOV     LCDBUF+3,#10001000B
        MOV     LCDBUF+4,#10001000B
        RET
USERCONT1:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10111011B
        MOV     LCDBUF+2,#10111011B
        MOV     LCDBUF+3,#10111011B
        MOV     LCDBUF+4,#10111011B
        RET
USERCONT2:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#11000001B
        MOV     LCDBUF+2,#11000001B
        MOV     LCDBUF+3,#11000001B
        MOV     LCDBUF+4,#11000001B
        RET
USERCONT3:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10010001B
        MOV     LCDBUF+2,#10010001B
        MOV     LCDBUF+3,#10010001B
        MOV     LCDBUF+4,#10010001B
        RET
USERCONT4:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10110010B
        MOV     LCDBUF+2,#10110010B
        MOV     LCDBUF+3,#10110010B
        MOV     LCDBUF+4,#10110010B
        RET
USERCONT5:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10010100B
        MOV     LCDBUF+2,#10010100B
        MOV     LCDBUF+3,#10010100B
        MOV     LCDBUF+4,#10010100B
        RET
USERCONT6:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10000100B
        MOV     LCDBUF+2,#10000100B
        MOV     LCDBUF+3,#10000100B
        MOV     LCDBUF+4,#10000100B
        RET
USERCONT7:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10111001B
        MOV     LCDBUF+2,#10111001B
        MOV     LCDBUF+3,#10111001B
        MOV     LCDBUF+4,#10111001B
        RET
USERCONT8:
        MOV     LCDBUF+0,#11111111B
        MOV     LCDBUF+1,#10000000B
        MOV     LCDBUF+2,#10000000B
        MOV     LCDBUF+3,#10000000B
        MOV     LCDBUF+4,#10000000B
        RET
USERCONT:
        MOV     LCDBUF+0,#11111101B
        MOV     LCDBUF+1,#00000000B
        MOV     LCDBUF+2,#00000000B
        MOV     LCDBUF+3,#00000000B
        MOV     LCDBUF+4,#00000000B
        RET
TRANSRAM:
        MOV     R1,#LCDBUF
TSR_PA: MOV     A,@R1
        CALL    TRANSBYTE
        INC     R1
        CJNE    R1,#LCDBUFEND+1,TSR_PA
        RET
TRANSBYTE:
        MOV     R0,#8
TSB_PA: RRC     A
        CALL    TRANSBIT
        DJNZ    R0,TSB_PA
        RRC     A
        RET
TRANSBIT:
        MOV     DIPIN,C           ;先送數(shù)據(jù)到數(shù)據(jù)口線(xiàn)DI
        SETB    CLKPIN            ;再使時(shí)鐘口線(xiàn)發(fā)一個(gè)負(fù)脈沖
        CLR     CLKPIN
        SETB    CLKPIN
        RET
DELAY:                            ;延時(shí)子程序
        MOV     R0,#30
DL4_PA: MOV     R1,#100
DL4_PB: MOV     R2,#100
        DJNZ    R2,$
        DJNZ    R1,DL4_PB
        DJNZ    R0,DL4_PA
        RET
END