Following code gathers 4 bit ADC value from serial port constantly. Only 2 values are available 3265 approx (actually 3.265) and 1625approx ( actually 1.265). The program checks for first bit (rec[1] in code) in if loop and generates alarm. But despite being value of rec[1]=3 if loop is not executed. I have tried several approaches but to no avail. Please advice.
Chip used is 16F88.
INCLUDE "modedefs.bas"
DEFINE OSC 8
OSCCON=%01110000 ' INTRC = 8MHz
ANSEL=$00
CMCON = %00000111
TRISA=$00
PORTA=0
Define LCD_DREG PORTA
Define LCD_DBIT 0 '(LCD pins D4-D7 to PORTA.0 to 3)
DEFINE LCD_BITS 4
Define LCD_RSREG PORTA
Define LCD_RSBIT 4
Define LCD_EREG PORTA
Define LCD_EBIT 6
DEFINE LCD_LINES 2 ; Set number of LCD lines (1 ~ 4)
DEFINE LCD_COMMANDUS 2000 ; Set 2-millisecond command period
DEFINE LCD_DATAUS 50 ; Set data delay period
Define CCP1_PIN PORTB.0 ;connected to piezo for alarm
CCP1CON=%00001100
Trisb.0=0
portb.0=0
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 9600
' Enable serial port and continuous receive
x var byte
rec Var Byte[4]
y var byte
Lcdout $fe,1,"Serial to Parallel"
pause 200
Lcdout $fe,1
y=0
x=0
Loop:
y=y+1
Hserin [rec[y]]
x=rec[1]
if x=3 then
Lcdout $fe, $80, "alarm"
HPWM 1,125,1000 ' Send a 50% duty cycle PWM signal at 1KHz
endif
Hserout [rec[y]] 'display on hyperterminal
Lcdout $fe, $14, rec[y] 'display on LCD
Lcdout $fe, $14, Dec1 x
'when 4 bits of ADC are received,re-initialize y & LCD
if y=4 then
y=0
Lcdout $fe,2
endif
Goto Loop
End
