电协杯.asm

来自「此程序是液晶与数码管的结合.是初学者必须掌握的.可以为以后写综合程序有所帮助」· 汇编 代码 · 共 72 行

        ORG 0000H
        AJMP MAIN
        ORG 0003H
        AJMP WIB
        ORG 0030H
    MAIN:MOV TCON,#00H
        MOV TMOD,#01H
        MOV IE,#83H
        MOV 30H,#01H
        MOV 31H,#01H
        MOV 32H,#04H
        MOV 33H,#02H
        MOV 34H,#00H
    LE0:MOV R0,#30H
        MOV R3,#0EFH
        
    LE1:MOV A,@R0
        MOV DPTR,#TAB
        MOVC A,@A+DPTR
        MOV P2,A
        MOV P0,R3
        ACALL JK
        
        INC R0
        MOV A,R3
        RR A
        MOV R3,A
        JNB ACC.0,LE0
        SJMP LE1
     JK:MOV R2,#50H
    LB1:MOV R1,#100H
    LB0:DJNZ R1,LB1
        DJNZ R2,LB0
        RET
    TAB:DB 3FH,06H,5BH,4FH,80H
    WIB:PUSH ACC
        PUSH P1
        PUSH P2
        PUSH 03H
        MOV P0,#0DFH
        MOV R3,#03H
        MOV A,R3
        MOV R7,#04H
    LP0:MOVC A,@A+DPTR
        MOV P1,A
        ACALL DL
        DEC R3
        MOV A,R3
        DJNZ R7,LP0
        SJMP LP3
     DL:MOV R5,#14H
        MOV TH0,#3CH
        MOV TL0,#0B0H
        SETB TR0
     LP1:JBC TF0,LP2
        SJMP LP1
     LP2:DJNZ R5,LP1
        MOV TH0,#3CH
        MOV TL0,#0B0H
        RET
     LP3:POP 03H
        POP P0
        POP P1
        POP ACC
        RETI
        END