mycmk.asm

电风扇到达电视机发卡发火点可是计划发咖啡了

        ORG     0000H
        AJMP    MAIN
        ORG     0003H
        AJMP    LOOP1
        ORG     0030H
MAIN:   MOV     SP,#70H
        MOV     TMOD,#90H
        MOV     TH1,#00H
        MOV     TL1,#00H
        SETB    IT0
        MOV     IE,#81H
        MOV     A,#0
        MOV     R1,A
        MOV     R2,A
        MOV     R3,A
        MOV     R4,A
        MOV     R5,A
LOOP0:  LCALL   XS
LOOP:   AJMP    LOOP0
LOOP1:  MOV     R0,#0
        JB      P3.3,LOOP1
        MOV     TH1,#00H
        MOV     TL1,#00H
        SETB    TR1
LOOP2:  JNB     P3.3,LOOP2
LOOP3:  JNB     TF1,LOOP4 
        INC     R0
        CLR     TF1
LOOP4:  JB      P3.3,LOOP3        
LOOP5:  JB      P3.3,LOOP5
        CLR     TR1
        MOV     A,TL1
        MOV     R2,A
        MOV     A,TH1
        MOV     R1,A

YW:     CLR     C
        MOV     A,R2
        RLC     A
        MOV     R2,A
        MOV     A,R1
        RLC     A
        MOV     R1,A
        MOV     A,R0
        RLC     A
        MOV     R0,A
        CLR     C
ZH:     CLR     A
        MOV     R7,A
        MOV     R3,A
        MOV     R4,A
        MOV     R5,A
        MOV     R6,#18H
HB:     MOV     A,R2
        RLC     A
        MOV     R2,A
        MOV     A,R1
        RLC     A
        MOV     R1,A
        MOV     A,R0
        RLC     A
        MOV     R0,A
        MOV     A,R5
        ADDC    A,R5
        DA      A
        MOV     R5,A
        MOV     A,R4
        ADDC    A,R4
        DA      A
        MOV     R4,A
        MOV     A,R3
        ADDC    A,R3
        DA      A
        MOV     R3,A
        MOV     A,R7
        ADDC    A,R7
        DA      A
        MOV     R7,A
        DJNZ    R6,HB
        MOV     A,R4
        MOV     R2,A
        MOV     A,R3
        MOV     R1,A
        MOV     A,R5
        MOV     R3,A

FS:     MOV     A,R3
        ANL     A,#0F0H
        SWAP    A
        MOV     R5,A
        MOV     A,R2
        ANL     A,#0FH
        MOV     R4,A
        MOV     A,R2
        ANL     A,#0F0H
        SWAP    A
        MOV     R3,A
        MOV     A,R1
        ANL     A,#0FH
        MOV     R2,A
        MOV     A,R1
        ANL     A,#0F0H
        SWAP    A
        MOV     R1,A

CB:     MOV     DPTR,#TAB
        MOV     A,R5
        MOVC    A,@A+DPTR
        MOV     R5,A
        MOV     A,R4
        MOVC    A,@A+DPTR
        MOV     R4,A
        MOV     A,R3
        ADD     A,#10
        MOVC    A,@A+DPTR
        MOV     R3,A
        MOV     A,R2
        MOVC    A,@A+DPTR
        MOV     R2,A
        MOV     A,R1
        MOVC    A,@A+DPTR
        MOV     R1,A
        RETI

XS:     MOV     DPTR,#08002H
        MOV     A,#01H
        MOVX    @DPTR,A
        MOV     DPTR,#08004H
        MOV     A,R5
        MOVX    @DPTR,A
        LCALL   DL
        MOV     DPTR,#08002H
        MOV     A,#02H
        MOVX    @DPTR,A
        MOV     DPTR,#08004H
        MOV     A,R4
        MOVX    @DPTR,A
        LCALL   DL
        MOV     DPTR,#08002H
        MOV     A,#04H
        MOVX    @DPTR,A
        MOV     DPTR,#08004H
        MOV     A,R3
        MOVX    @DPTR,A
        LCALL   DL
        MOV     DPTR,#08002H
        MOV     A,#08H
        MOVX    @DPTR,A
        MOV     DPTR,#08004H
        MOV     A,R2
        MOVX    @DPTR,A
        LCALL   DL
        MOV     DPTR,#08002H
        MOV     A,#10H
        MOVX    @DPTR,A
        MOV     DPTR,#08004H
        MOV     A,R1
        MOVX    @DPTR,A
        LCALL   DL
        RET

DL:     MOV     R7,#100
        DJNZ    R7,$
        RET

TAB:    DB       3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
        DB       0BFH,86H,0DBH,0CFH,0E6H,0EDH,0FDH,87H,0FFH,0EFH
        END