beep.src

用PROTUES仿真温度控制电机正反转!

;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