fl

{  
   caskaz's port to forth of dwd_jm_quickstart_demo110610i.spin 
   the quickstart board resistive touch buttom demo
   includes Sal's instructions to run an app at boot time
   Runs the demo AND runs the forth prompt on the serial connection at boot
   
   LOAD propforth.spin or propforthkernel.spin to the quickstart board
   Paste this files into teraterm   
}

hex

\ waitcnt ( n1 n2 -- n3 ) \ wait until n1, n3 = n1 + n2
: waitcnt _execasm2>1 1F1 _cnip ;

: variable lockdict create $C_a_dovarl w, 0 l, forthentry freedict ; 

 
0 wconstant _pad
10 wconstant _LEDs
variable delay
variable glovalPads
   
: scan_pads    \ ( n -- )  n:delay time
            dup delay L! cnt COG@ + 
            begin
                  outa COG@ ff _pad lshift or outa COG!
                  dira COG@ ff _pad lshift or dira COG!
                  dira COG@ ff _pad lshift invert and dira COG!
                  delay L@ waitcnt
                  ina COG@ invert ff and glovalPads L! 
            0 until
;
 

: demo-LED 
        _LEDs 8 0 do dup pinout 1+ loop drop

        begin
              0
                 32 0 do
                      glovalPads L@ or 
                      dup _LEDs lshift 
                      outa COG@   
                      ff00ffff and or 
                      outa COG!
                 loop
              drop
        0 until
;

: demo-touch clkfreq 100 u/ scan_pads ;
: onreset1 onreset demo-LED ; \ run LED demo on cog1 upon reset
: onreset4 onreset demo-touch ; \ run button demo on cog 4 upon reset

saveforth

{
  This source code is loaded via the interpreter running on cog6
  cog6 also does the savforth which writes the new extended dictionary to EEPROM
  and finally does the reboot below
}

reboot