\ Program Name: blinky.fs
\ Date: Tue Nov 2018
\ Copyright 2018  t.porter <terry@tjporter.com.au>, licensed under the GPL
\ For Mecrisp-Across by Matthias Koch
\ http://mecrisp.sourceforge.net/

new
+jtag
target

: off 0 p1out c! ;
: red 1 p1out c@ or p1out c! ;
: green $40 p1out c@ or p1out c! ;
: delay 10000 0 do loop ;
: blink 8mhz $41 p1dir c! 10 0 do red delay off delay green delay off delay loop ;

blink