【正文】 JNB K4, $ INC SEC MOV A, SEC CJNE A, 60, KEY4_NEXT MOV SEC, 0KEY4_NEXT:ACALL CONV AJMP KEY1KEY1: JB K1, KEY2 ACALL DELAY_10ms JB K1, KEY2 JNB K1, $ ACALL LIGHT SETB TR1KEY_RET: RET。=================================================。 LED燈亮子程序。=================================================LIGHT: CLR ACALL DELAY_100ms SETB ACALL DELAY_100ms RET。=================================================。 蜂鳴器響子程序。=================================================BEEP: CLR ACALL DELAY_100ms SETB ACALL DELAY_100ms RET。=====================================================。 鬧鐘檢查及處理子程序。=====================================================ALA_CHECK:JNB ALARM, CHECK_RET MOV A, HOUR MOV B, HOUR_A CJNE A, B, CHECK_RET MOV A, MIN MOV B, MIN_A CJNE A, B, CHECK_RETTIME_OUT:ACALL BEEP ACALL CONV JB K4, TIME_OUT JNB K4, $ CLR ALARMCHECK_RET:RET。======================================================。 鬧鐘時間設置子程序。======================================================ALARM_SET:ACALL CONV_AAKEY2: JB K2, AKEY3 ACALL DELAY_10ms JB K2, AKEY3 JNB K2, $ INC HOUR_A MOV A, HOUR_A CJNE A, 24, AKEY2_NEXT MOV HOUR_A, 0AKEY2_NEXT:ACALL CONV_A AJMP AKEY2AKEY3: JB K3, AKEY4 ACALL DELAY_10ms JB K3, AKEY4 JNB K3, $ INC MIN_A MOV A, MIN_A CJNE A, 60, AKEY3_NEXT MOV MIN_A, 0AKEY3_NEXT:ACALL CONV_A AJMP AKEY2AKEY4: JB K4, AKEY2 JNB K4, $ ACALL LIGHT ACALL CONVAKEY_RET: RET。========================================================。 鬧鐘時間轉(zhuǎn)換子程序。========================================================CONV_A: MOV A, HOUR_A MOV B, 10 DIV AB MOV DISP_BUF, A MOV A, B MOV DISP_BUF+1, A MOV A, MIN_A MOV B, 10 DIV AB MOV DISP_BUF+3, A MOV A, B MOV DISP_BUF+4, A MOV DISP_BUF+6, 0 MOV DISP_BUF+6, 0 RET DELAY_100ms: MOV R7, 13HDL1: MOV R6, 14HDL0: MOV R5, 82H DJNZ R5, $ DJNZ R6, DL0 DJNZ R7, DL1 RETDELAY_10ms: MOV R7, 01HDL3: MOV R6, 26HDL2: MOV R5, 82H DJNZ R5, $ DJNZ R6, DL2 DJNZ R7, DL3 RET END