CPU = 12F675
MHZ = 4
CONFIG 12692


'**************  wifiNEW.bas    ************
'  8 pin flash PIC
'  
'  PIC 12F675 monitors a 2.4GHz wifi keyring-detector.
'  Code reads the state of 4 LED inputs and outputs a value.
'  Bytes free: 70
'
'  The 4 input pins are either 1 or 0 when read. 
'  Added together, they indicate how many pins are lit.
'  In scanning mode, only one pin is ever active -  
'    the two pause commands create the scan value.
'  Output values sent as serial:
'  4 LEDs = 80, 3 LEDs = 60, 2 LEDs = 40, 1 LED = 20, Scanning = 5 or 10.

input   	GP0       ' pin 7			
input 		GP1       ' pin 6
input   	GP2	  ' pin 5		
input 		GP3       ' pin 4                 

send      	var byte  ' 0 -> 255
mx 	        var byte

sig1            var gpio.bit0
sig2 		var gpio.bit1
sig3 		var gpio.bit2
sig4 		var gpio.bit3

main:

send   = sig1 + sig2 + sig3 + sig4 

pause 150                 ' millisecs
send  = send + sig1 
pause 150
send  = send + sig1

if send < 3 then
mx = 5
else
send = send -2
mx = 20
endif

send = send * mx

serout 	GP5,n1200-10,[dec send,10,13]   '-40 or -10 = calib.
                              
goto 	main

end