DISBEG EQU 30H ;显示单元首地址
CALB EQU P1.7 ;报警喇叭
TIMCON EQU 2FH ;存放报时次数
ORG 0000H ;程序开始
LJMP MAIN
ORG 0003H ;关外中断0
RETI
ORG 000BH ;定时器T0中断程序入口
LJMP INTT0 ;跳至INTTO执行
ORG 0013H ;关中断1
RETI
ORG 001BH ;定时器T1中断程序入口
LJMP INTT1 ;跳至INTT1执行
ORG 0023H ;关串行中断
RETI
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,88H,0BFH
;共阳段码表 "0""1""2" "3""4""5""6""7" "8""9""不亮""A""-"
I_TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0C6H,0BFH,88H
; 显示数 "0 1 2 3 4 5 6 7 8 9 不亮 C - A "
; 内存数 "0 1 2 3 4 5 6 7 8 9 0AH 0BH 0CH 0DH "
;STAB表，启动时显示2008年10月14日、A06-3-67（学号）用
STAB: DB 0AH,0AH,0AH,0AH,0AH,0AH,07H,06H,0CH,03H,0CH,06H,00H,0DH,0AH,0AH
DB 04H,01H,0CH,00H,01H,0CH,08H,00H,00H,02H,0AH,0AH,0AH,0AH,0AH,0AH
DLY1M: MOV R6,#14H ;1毫秒延时
DL_LOOP: MOV R7,#19H
DL_LOOP1: DJNZ R7,DL_LOOP1
DJNZ R6,DL_LOOP
RET
DLY20M: CLR CALB ;20毫秒延时
LCALL D_II_PLAY
LCALL D_II_PLAY
LCALL D_II_PLAY
SETB CALB
RET
DL_LOOPS: LCALL DL05S
LCALL DL05S
RET
DL05S: MOV R3,#20H ;8毫秒*32=0.196秒
DL05S1: LCALL D_II_PLAY
DJNZ R3,DL05S1
RET
