键控门铃程序

键控门铃程序

;***** 通过1*4按键的第3号键按下可听到门铃的声音      
       T5Hz EQU 30H 
       T7HZ EQU 31H

       T05SA EQU 32H 
       T05SB EQU 33H 
       FLAG BIT 00H 
       STOP BIT 01H 
       SP1 BIT P1.0 
       ORG 0000H 
       LJMP START 
       ORG 000BH 
       LJMP INT_T0 
START:  MOV  TMOD,#02H 
        MOV  TH0,#06H 
        MOV  TL0,#06H 
       SETB ET0 
       SETB EA 
NSP:   JB SP1,NSP 
       LCALL DELY10MS 
       JB SP1,NSP 
       SETB TR0 
        MOV  T5HZ,#00H 
        MOV  T7HZ,#00H 
        MOV  T05SA,#00H 
        MOV  T05SB,#00H 
       CLR FLAG 
       CLR STOP 
       JNB STOP,$ 
       LJMP NSP 
DELY10MS:  MOV  R6,#20 
D1:     MOV  R7,#248 
       DJNZ R7,$ 
       DJNZ R6,D1 
       RET 
INT_T0:INC T05SA 
        MOV  A,T05SA 
       CJNE A,#100,NEXT 
        MOV  T05SA,#00H 
       INC T05SB 
        MOV  A,T05SB 
       CJNE A,#20,NEXT 
        MOV  T05SB,#00H 
       JB FLAG,STP 
       CPL FLAG 
       LJMP NEXT 
STP:   SETB STOP 
       CLR TR0 
       LJMP DONE 
NEXT:  JB FLAG,S5HZ 
       INC T7HZ 
        MOV  A,T7HZ 
       CJNE A,#03H,DONE 
        MOV  T7HZ,#00H 
       CPL P3.7 
       LJMP DONE 
S5HZ:  INC T5HZ 
        MOV  A,T5HZ 
       CJNE A,#04H,DONE 
        MOV  T5HZ,#00H 
       CPL P3.7 
       LJMP DONE 
DONE:  RETI 
       END