;
; key press beep
;
; DelayCy(1*msecs) produces DelayCy(1*msecs-6) produces
; 497.018 Hz -- 4 MHz clock 500 Hz tone -- any clock
; 498.504 Hz -- 8 MHz clock
; 499.004 Hz -- 12 MHz clock
; 499.251 Hz -- 16 MHz clock
; 499.400 Hz -- 20 MHz clock
;
bsf Beep,5 ; do 32 msec "new press" beep |B0
DoBeep movf PORTA,W ; read port A |B0
xorlw 1<<Spkr ; toggle speaker bit |B0
movwf PORTA ; toggle speaker pin |B0
DelayCy(1*msecs-6) ; delay 1 msec for 500 Hz tone |B0
decfsz Beep,F ; done? yes, skip, else |B0
goto DoBeep ; loop (toggle Spkr pin again) |B0