time.asm

来自「温度控制器的protell制图和各个能实现的程序。」· 汇编 代码 · 共 76 行

ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:MOV R0,#0
     MOV R1,#0
     MOV R3,#30
START:LCALL ZH
     LCALL DISP
     LCALL DEL
     DJNZ R3,START
     MOV R3,#30
     CPL P2.6
     INC R0
     CJNE R0,#60,START
     INC R1
     MOV R0,#0
     CJNE R1,#60,START
     LJMP MAIN

 ZH:MOV B,#10
    MOV A,R0
    DIV AB
    MOV 40H,B
    MOV 41H,A
    MOV B,#10
    MOV A,R1
    DIV AB
    MOV 42H,B
    MOV 43H,A
    RET
DISP:MOV A,40H
     MOV DPTR,#TAB
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.3
     LCALL DEL
     SETB P2.3

     MOV A,41H
     MOV DPTR,#TAB
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.2
     LCALL DEL
     SETB P2.2

     MOV A,42H
     MOV DPTR,#TAB
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.1
     LCALL DEL
     SETB P2.1

    MOV A,43H
    MOV DPTR,#TAB
    MOVC A,@A+DPTR
    MOV DPTR,#0EFFFH
    MOVX @DPTR,A
    CLR P2.0
    LCALL DEL
    SETB P2.0
    RET
TAB:DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090H
DEL:MOV R6,#05
 D2:MOV R7,#250
 D1:DJNZ R7,D1
    DJNZ R6,D2
    RET
    END