STAR:
JB P1.0,$; p1.0作為開關 打開程序才能繼續下去
CALL DI ;發音200ms
CALL NO_DI ;靜音200ms
CALL DI
CALL NO_DI
CALL DI
CALL NO_DI
SJMP STAR;繼續從頭執行程序
;－－－－－－－－－－－－－－－－－－－
DI:
MOV R1,#100 ;發音200ms
D2:
CLR P1.7
LCALL DEL ;約1ms
SETB P1.7;
LCALL DEL;設置蜂鳴聲音的頻率高低
DJNZ R1, D2
RET
;－－－－－－－－－－－－－－－－－－－
NO_DI:
MOV R1,#100 ;靜音200ms
ND2:
; CLR P1.7
LCALL DEL ;約1ms
SETB P1.7;
LCALL DEL;設置蜂鳴聲音的頻率高低
DJNZ R1, ND2
RET
;－－－－－－－－－－－－－－－－－－－
DEL: ;約1ms
MOV R7,#5
DLY1:
MOV R6,#100
DJNZ R6,$
DJNZ R7,DLY1
RET
END