CPU = 12F675
MHZ = 4
CONFIG 12692


'  **************  12F675-4MHzInt-FREQ.bas ************
'
'  8 pin flash PIC.  Bytes free: 254
'  
'  To determine the correct serial-offset factor: 
'  PIC 12F675 under test outputs numbers at 1200 speed 
'  +/- an offset-value (called send) into fleXYlog running on the Newton.           
'  
'  FleXYlog keeps beeping until the correct offset is found. 
'  Note the numbers being displayed when the beeps stop.
'
'  typical PIC serial calibration values needed so far: 
'      1.   -10 
'      2.   -40 
'      3.   -120
'
'  NB: serial output is inverted because it goes thru a Max232 chip on the
'  development board. If the PIC chip sends TTL directly into the Newton,
'  use n1200 instead of i1200.
'  For the 12F675: GP0 is pin 7.

send      var byte  ' 0 -> 255

main:

for send = 1 to 200
pause 300
serout 	GP0,i1200-send,[dec send,10,13] 
next                              

pause 1000

for send = 1 to 200
pause 300
serout 	GP0,i1200+send,[dec send,10,13] 
next    

goto 	main

end

'--------------------------