'-------------------------------------------------------------
'                          M16.BAS
'             Test file for M16 support
'-------------------------------------------------------------
$crystal = 1000000
$baud = 19200
$lib "mcsbyte.lbx"
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
$regfile = "m16def.dat"
Dim I As Byte

'this code learned that a value of 201 works for the internal osc
'for the demo I skip it however
Goto Test
For I = 1 To 255 Step 10
  Osccal = I
  Waitms 100
  Print "Hello world" ; I
Next

Test:
Osccal = 201
Print "M16 at 1 MHz internal osc"

End

Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"
Data "some additonal lines to check programming"


