\ Program Name: blinky-1.fs  for Mecrisp-Stellaris by Matthias Koch
\ This program blinks a green led, it's the simplest of 'blinkies' 
\ Hardware: STM32F0 Discovery board
\ Author:  T.Porter 


 
1 17 lshift
1 18 lshift 
1 19 lshift 
1 20 lshift 
1 22 lshift 
+ + + + $40021014 BIS!


%01  18 lshift $48000800 bis!		

: delay 500000 0 do loop ;

: green-led.on   %1 9 lshift $48000818 bis! ;	

: green-led.off  %1 9 lshift $48000828 bis! ; 
 

: blink		
do
green-led.on
delay
green-led.off
delay
loop
;	


\ blink  \ reset board to stop blinky