60s.asm

60秒延迟程序

ORG 0000H
LJMP START  
ORG 000BH
LJMP PGT0  
ORG 0033H
START: DIS1 EQU 30H
DIS2 EQU 31H
DIS3 EQU 32H
DIS4 EQU 33H
DIS5 EQU 34H
DIS6 EQU 35H
DISRD EQU 36H
DISYD EQU 37H
DISGD EQU 38H
MS500 EQU 39H
MOV SP,#50H  
MOV P0,#0FFH
MOV P1,#0FFH
MOV P2,#0FFH
MOV P3,#0FFH
MOV TMOD,#01H 
MOV TH0,#4CH 
MOV TL0,#05H
MOV IE,#82H
MOV R3,#10
SETB TR0
MOV DIS1,#00H 
MOV DIS2,#00H
        MOV DISRD,#60
        MOV DISGD,#57
        MOV DISYD,#3
MAIN: MOV DISRD,#60
ACALL RD
        MOV DISGD,#57
ACALL RD
        MOV DISYD,#3
ACALL RD
AJMP MAIN

RD:     MOV A,DISRD
        MOV B,#10
        DIV AB
        MOV DIS1,A
        MOV DIS2,B
        MOV A,DIS1
        MOV DPTR,#SGTB
        MOVC A,@A+DPTR
        MOV P0,A
        CLR P2.6
        CLR P2.2
        MOV P2,#0FFH
        MOV A,DIS2
        MOV DPTR,#SGTB
        MOVC A,@A+DPTR
        MOV P0,A
        CLR P2.6
        CLR P2.3
        MOV P2,#0ffh
        MOV A,DIS1
JNZ RD
MOV A,DIS2
JNZ RD
ret
PGT0: PUSH ACC  
PUSH PSW
MOV TH0,#4CH 
MOV TL0,#05H
DJNZ R3,T0RET
MOV R3,#10

INC MS500
MOV A,MS500
CJNE A,#2,T0RET
MOV MS500,#00H
DEC  DISRD
MOV  A,DISRD
CJNE  A,#00,T0RET

T0RET: POP PSW
POP ACC
RETI
;************* 8位共阳数码管字型表 *****************
SGTB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
DB 88H,83H,0C6H,0A1H,86H,8EH,89H,0A3H,8CH,0C8H
sgtb1:  db      24h,7dh,0e0h,70h,39h,32h,22h,7ch,20h,30h,28h,23h,0a6h,61h,0a2h,0aah