;程序名字：蜂鳴器
;這是一個非常好的一個控制蜂鳴器的程序，用到了定時器中斷方式來定時，且弄能夠用程序狀態字中的CY標志位來進行運算，
;并且用到了CJNE中的比的不夠CY為1，比大的話，為0來進行運算，使程序更加豐富

INTR_CNT EQU30H;作為定時器中斷的計數值使用

MS10 EQU9217; 對于11.0592的晶振來說，相當于10ms的計數
BUZZER EQUP1.0
;
ORG0000H
JMPSTART
ORG0003H
RETI
ORG000BH
JMPT0_ISR;只設置了定時器timer0方式一中斷

ORG0013H
RETI
ORG001BH
RETI
ORG0023H
RETI

;
ORG0030H
START:MOVR0,#00H;初始化程序
DJNZR0,$
MOVSP,#60H
MOV P1,#0FFH
MOVINTR_CNT,#00H
CLRBUZZER
ACALLSET_TMR0
LOOP:SJMPLOOP

;
;定時器中斷處理函數
T0_ISR: MOVTH0,#HIGH(65536-MS10)
MOVTL0,#LOW(65536-MS10)
PUSHPSW
PUSHACC

MOVA,INTR_CNT
CJNEA,#10,L1
L1:NCL2 ;標志位CY為0則轉移指令 ，如果上面A的值沒10大的話，cy為1，即不執行這條跳轉程序
SETBBUZZER ;意思是如果沒到10ms的時候，蜂鳴器不響
SJMPL3
L2: CLRBUZZER ;到100ms（10*10ms）了，蜂鳴器響，可是響的有時間限制
L3: MOVA,INTR_CNT
INC A
MOVINTR_CNT,A
CJNEA,#100,T0_END ;從100ms響到100*10ms，也就是1s，從這看出1s中響了0.9s，不響0.1s
MOVINTR_CNT,#00H

T0_END:POPACC
POPPSW
RETI
;啟動定時器中斷
SET_TMR0:
MOVTMOD,#01H
MOVTH0,#HIGH(65536-MS10)
MOVTL0,#LOW(65536-MS10)
CLRTF0
SETBTR0
SETBET0
SETBEA
RET

END