ORL P0,#03FH
CLR P0.4 RET
LEDE:ORL P0,#03FH CLR P0.5 RET
;--------------定时中断程序-------------------- TO_INT0:MOV TL0,#(65536-4608) MOD 256
MOV TH0,#(65536-4608)/256 PUSH ACC PUSH PSW PUSH DPL PUSH DPH
LCALL DISPLAY INC
TIMER_COUNT
;秒表程序
;保护现场
;重新赋初值
JNB STOP,CNT MOV
A,TIMER_COUNT
MOV B,#2 DIV AB MOV A,B JNZ CNT INC XS_MEM MOV A,XS_MEM CJNE A,#100,CNT MOV XS_MEM,#0 INC TS_MEM
;时钟运行
CNT:MOV A,TIMER_COUNT
CJNE A,#100,EXIT0 MOV
TIMER_COUNT,#0
CPL FLASH_FLAG
JNB FLASH_FLAG,EXIT0 INC
S_MEM A,S_MEM
MOV
CJNE A,#60,EXIT0 MOV INC
S_MEM,#0 M_MEM A,M_MEM
MOV
CJNE A,#60,EXIT0 MOV INC
M_MEM,#0 H_MEM A,H_MEM
MOV
CJNE A,#24,EXIT0 MOV
H_MEM,#0
EXIT0: POP DPH
POP POP POP RETI
DPL PSW ACC
;--------扫描显示程序-------- DISPLAY:MOV
MOV ADD
A,SCAN_COUNT A,ACC
ANL
P1,#00001111B P1,A
;不改变P1低4位
MOV ADD
P2,#11111111B A,SCAN_COUNT A,ACC
DPTR,#LED_SCAN_TABLE
;消鬼影
MOV
MOVC A,@A+DPTR
ORL
INC A
MOVC A,@A+DPTR ;读取第二字节地址
MOV MOV R0,A A,@R0 ;间接寻址读取缓冲区的显示内容
LED1的内容传给P2
MOV P2,A
INC SCAN_COUNT
MOV
A,SCAN_COUNT
CJNE A,#4,DISPLAY1
MOV SCAN_COUNT,#0
DISPLAY1: RET
;-----------BCD码转换程序-------------- CONVERT_BCD:
MOV A,MODE_REG CJNE A,#0,C_BCD1
LJMP M0_DISP
C_BCD1:CJNE A,#1,C_BCD2 LJMP M1_DISP C_BCD2:CJNE A,#2,C_BCD3 LJMP M2_DISP C_BCD3:CJNE A,#3,C_BCD4 LJMP M3_DISP
C_BCD4:CJNE A,#4,C_BCD5 LJMP M4_DISP C_BCD5:LJMP M5_DISP
M0_DISP:JB CHANGE,M01_DISP MOV R3,M_MEM
;4位显示
;闹铃小时闪烁
;闹铃分钟闪烁
;秒表显示
;显示判断
MOV R2,#0
LCALL BTID
MOV A,R6 ANL A,#0FH
MOV DPTR,#LED_CODE MOVC A,@A+DPTR MOV LED1,A MOV A,R6 ANL A,#0F0H SWAP A
MOVC A,@A+DPTR MOV LED2,A
MOV R3,H_MEM MOV R2,#0 LCALL BTID
MOV A,R6
ANL A,#0FH
MOVC A,@A+DPTR
JNB FLASH_FLAG,BCD1
CLR ACC.7
BCD1:MOV LED3,A MOV A,R6 ANL A,#0F0H SWAP A
MOVC A,@A+DPTR MOV LED4,A
M01_DISP:
MOV R3,S_MEM
RET
MOV R2,#0
LCALL BTID MOV A,R6 ANL A,#0FH
MOV DPTR,#LED_CODE MOVC A,@A+DPTR MOV LED1,A MOV A,R6 ANL A,#0F0H SWAP A
MOVC A,@A+DPTR MOV LED2,A
MOV R3,M_MEM
MOV R2,#0 LCALL BTID
MOV A,R6
ANL A,#0FH
MOVC A,@A+DPTR
CLR ACC.7
MOV LED3,A
MOV A,R6 ANL A,#0F0H SWAP A
MOVC A,@A+DPTR MOV LED4,A
M1_DISP:MOV R3,M_MEM MOV R2,#0 LCALL BTID MOV A,R6 ANL A,#0FH
RET