程序.txt

8155扩展程序

KD1:MOV A,#00000011B
    MOV DPTR,#0FF20H
    MOVX @DPTR,A
KEY:ACALL KS1
    JNZ LK1
    ACALL DIS
    AJMP KEY
LK1:ACALL DIS
    ACALL DIS
    ACALL KS1
    JNZ LK2
    ACALL DIS
    AJMP KEY
LK2:MOV R2,#0FEH
    MOV  R3,#00H
LK3:MOV DPTR,#0103H
    MOV A,R2
    MOVX @DPTR,A
    MOV DPTR,#0102H
    MOVX A,@DPTR
    ANL A,#0FH
    MOV R4,A
    CJNE A,#0FH,LK4
    MOV A,R2
    JNB ACC.3,LK8
    RL A
    MOV R2,A
    INC R3
    SJMP LK3
LK4:MOV A,R3
    ADD A,R3
    MOV R3,A
    MOV A,R4
LK5:RRC A
    JNC LK6
    INC R3
    SJMP LK5
LK6:MOV 20H,R3
LK7:LCALL DIS
    LCALL KS1
    JNZ LK7
    LCALL DIS
    LCALL DIS
    MOV A,20H
KND:RET
LK8:MOV  A, #0FFH
    RET
KS1:MOV DPTR,#0103H
    MOV A,#00H
    MOVX @DPTR,A
    MOV DPTR,#0102H
    MOVX A,@DPTR
    ANL A,#0FH
    ORL A,#0F0H
    CPL A
    RET
DIS:MOV R0,#79H
    MOV R5,#01H
    MOV A,R5
LD0:MOV DPTR,#0102H
    MOVX @DPTR,A
    MOV DPTR,#0101H
    MOV A,@R0
    ADD A,#12H
    MOVC A,@A+PC
    MOVX @DPTR,A
    ACALL DL1
    INC R0
    MOV A,R5
    JB ACC.3,LD1
    RL A
    MOV A,R5
    AJMP LD0
LD1:RET
TAB:DB 3FH, 06H, 5BH, 4FH, 66H, 6DH
    DB 7DH, 07H, 7FH, 6FH, 77H, 7CH
    DB 39H, 5EH, 79H, 71H, 73H, 3EH
    DB 31H, 61H, 1CH, 23H, 40H, 03H
    DB 18H, 00H, 00H, 00H
DL1:MOV R7,#02H
DL: MOV R0,#0FFH
DL6:DJNZ R6,DL6
    DJNZ R7,DL
    RET
    END