JMP LOOP
X2:JMP SET_TIME
;-----------------------------------------------
SCANS:;扫描七段显示器
MOV R4,#55
SS:
CALL SCAN1
DJNZ R4,SS
RET
;-----------------------------------------------
TIME_OUT:
SETB RY1
RET
;-----------------------------------------------
TIME_OUT2:
CLR RY1
RET
;-----------------------------------------------
LOOK_ATIME:
CALL CONVA
MOV B,#0
LO1:CALL SCAN1
DJNZ B,LO1
CALL CONVB
MOV B,#0
LO2:CALL SCAN1
DJNZ B,LO2
CALL CONV
RET
;-----------------------------------------------
CONVA:
MOV A,HH
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV BUF,A
MOV A,B
MOVC A,#A+DPTR
MOV BUF+1,A
MOV A,MM
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV BUF+2,A
MOV A,B
MOVC A,#A+DPTR
MOV BUF+3,A
RET
;-----------------------------------------------
CONVB:
MOV A,HHS
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV BUF,A
MOV A,B
MOVC A,#A+DPTR
MOV BUF+1,A
MOV A,MMS
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV BUF+2,A
MOV A,B
MOVC A,#A+DPTR
MOV BUF+3,A
RET
;-----------------------------------------------
SET_ATIME:;设置定时时间
CALL CONVA
CALL SCAN1
JB K1,V1
JNB K1,$
CALL SET_BTIME
V1:
JB K2,V2
JNB K2,$
N0:
CALL SCAN1
JB K1,N1
INC HH
MOV A,HH
CJNE A,#24,N11
MOV HH,#0
N11:
CALL CONVA
CALL SCANS
JMP N0
N1:
JB K2,N0
JNB K2,$
N2:
CALL SCAN1
JB K1,N3
INC MM
MOV A,MM
CJNE A,#60,N21
MOV MM,#0
N21:
CALL CONVA
CALL SCANS
JMP N2
N3:
JB K2,N2
JNB K2,$
;-----------------------------------------------
CALL CONVB
N4:
CALL SCAN1
JB K1,N5
INC HHS
MOV A,HHS
CJNE A,#24,N51
MOV HHS,#0
N51:
CALL CONVB
CALL SCANS
JMP N4
N5:
JB K2,N4
JNB K2,$
N6:
CALL SCAN1
JB K1,N7
INC MMS
MOV A,MMS
CJNE A,#60,N61
MOV MMS,#0
N61:
CALL CONVB
CALL SCANS
JMP N6
N7:
JB K2,N6
JNB K2,$
CALL CONV
RET
;-----------------------------------------------
SET_BTIME:
JB K1,B1
JNB K1,$
CPL ALB
JMP LOOP
B1:JB K2,B2
JNB K2,$
JMP LOOP
B2:JMP SET_BTIME
;-----------------------------------------------
TIME_PRO:
MOV A,SEC
MOV B,SEC0
CJNE A,B,TI1
JMP TI2
TI1:
CALL CONV
MOV SEC0,SEC
TI2:
JB ALB, TI3
JB ALB, T14
RET
TI3:
MOV A,HOUR
MOV B,HH
CJNE A,B,BK
MOV A,MIN
MOV B,MM
CJNE A,B,BK
CALL TIME_OUT
BK:RET
;-----------------------------------------------
TI4:
MOV A,HOUR
MOV B,HHS
CJNE A,B,BK
MOV A,MIN
MOV B,MMS
CJNE A,B,BK1
CALL TIME_OUT
BK1:
RET
END
上一页 [1] [2]
本文关键字：课程 自动控制-单片机，电子制作 - 自动控制-单片机
