CJNE A,49H,COMP1 ;先比较时后比较分
MOV A,41H
CJNE A,48H,COMP1
JB 20H.0,COMP2 ;20H.0=1,止闹开关,关
;LCALL BEEP_BL
CLR RELAY ;继电器吸合1分钟
JMP COMP3
COMP1: CLR 20H.0
COMP2: SETB RELAY
COMP3: RET
;====================================================
;键延时子程序
;多次调用显示程序做键延时
;====================================================
DS_DELAY:
MOV R6,#0AH ;设定定时时间,键延时用
DS_KK:
LCALL DS_CHULI
MOV R0,#DS_DATA
LCALL DS_SP
MOV R0,#DS_DATA
LCALL DS_DISPLAY
DJNZ R6,DS_KK
RET
TIME_DELAY: ;设定时间,键延时用
MOV R6,#0AH
TIME_KK:
LCALL CHULI
MOV R0,#TIME_DATA
LCALL DISP
MOV R0,#TIME_DATA
CALL TIME_DISPLAY
DJNZ R6,TIME_KK
RET
DATE_DELAY: ;设定日期,键延时用
MOV R6,#0AH
DATE_KK:
LCALL CHULI
MOV R0,#DATE_DATA
LCALL DISP
MOV R0,#DATE_DATA
CALL TIME_DISPLAY
DJNZ R6,DATE_KK
RET
;====================================================
;蜂鸣器响一声子程序 (适用交流蜂鸣器)
;====================================================
BEEP_BL:
MOV R6,#100
BL2: CALL DEX1
CPL BEEP
DJNZ R6,BL2
MOV R5,#10
CALL DELAY_BL
RET
DEX1: MOV R7,#180
DE2: NOP
DJNZ R7,DE2
RET
DELAY_BL: ;(R5)*延时10MS
MOV R6,#50
DL1: MOV R7,#100
DJNZ R7,$
DJNZ R6,DL1
DJNZ R5,DELAY_BL
RET
;*************************************************************
TAB_NU: DB 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
DB 0FFH ;灭
DB 30h,25h,0a9h,26h,0a1h,0b1h ; A-F 《 共阳数码管 》
;*************************************************************
END
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11]
本文关键字:数码管 51单片机,单片机-工控设备 - 51单片机