.
3.2 程序清单
DISBEG EQU 30H CALB EQU P1.7 TIMCON EQU 2FH ORG 0000H
资料
.
LJMP MAIN ORG 0003H RETI
ORG 000BH LJMP INTT0 ORG 0013H RETI
ORG 001BH LJMP INTT1 ORG 0023H RETI
TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH I_TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH DLY1M: MOV R6,#14H DL_LOOP: MOV R7,#19H DL_LOOP1:DJNZ R7,DL_LOOP1 DJNZ R6,DL_LOOP RET DLY20M:CLR CALB 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 DL05S1: LCALL D_II_PLAY DJNZ R3,DL05S1 RET
CTIME: MOV A,#10H MOV B,79H MUL AB ADD A,78H MOV TIMCON,A
CLOOP: LCALL DLY20M LCALL DL_LOOPS LCALL DL_LOOPS LCALL DL_LOOPS DJNZ TIMCON,CLOOP CLR 08H
/整点报时
资料
.
MAIN: MOV R0,#00H MOV R7,#80H
/主程序
MLOOP: MOV @R0,#00H INC R0
DJNZ R7,MLOOP MOV 20H,#00H MOV 7AH,#0AH MOV TMOD,#11H MOV TL0,#0B0H MOV TH0,#3CH MOV TL1,#0B0H MOV TH1,#3CH SETB EA SETB ET0 SETB TR0 MOV R4,#14H MOV DISBEG,#70H MLOOP1:LCALL D_II_PLAY JNB P1.0,T_SETSC JNB P1.1,DLY5 JNB P1.2,FUNBT JNB P1.3,TSET
资料
