Ср окт 26, 2022 17:54:55
@ DEVICE PIC12F675,intrc_osc_noclkout 'Set oscillator - internal
DEFINE OSC 4 ' Internal Freq. 4 MHz
TACHO var GPIO.0
LED var GPIO.1
SETB var GPIO.4
HPULSE VAR WORD
LPULSE VAR WORD
PERIOD VAR WORD
STORED VAR WORD
TRISIO = %010101
ANSEL = 0
CMCON = %00000111
CLEAR
main:
READ 0, STORED.Byte0
READ 1, STORED.Byte1
pulsin TACHO, 0, LPULSE
pulsin TACHO, 1, HPULSE
PERIOD = LPULSE+HPULSE
IF SETB = 0 THEN
WRITE 0, PERIOD.Byte0
WRITE 1, PERIOD.Byte1
endif
IF PERIOD = 0 THEN
led = 0
ENDIF
IF PERIOD < STORED then
pulsout led, period
ENDIF
goto main
END