beep.src

来自「用PROTUES仿真温度控制电机正反转!」· SRC 代码 · 共 27 行

;SPEAKER程序
;2007/01/31
PUBLIC BEEP
DE SEGMENT CODE
RSEG DE
BEEP:
CLR EA
MOV R0,#04H
NEXT_BEEP:
MOV R6,#0F0H


ONE_BEEP:
MOV R5,#20H
CPL P2^6

_LOOP:
DJNZ R5,_LOOP

DJNZ R6,ONE_BEEP

DJNZ R0,NEXT_BEEP

SETB EA
RET
END