Eine einfache Ansteuerung einer LED mit FlashForth über einen PIC Mikrocontroller. Inhalt bezieht sich auf den Microcontroller PIC18F2620 von Microchip.
-flash-led
marker -flash-led
$ff8a constant latb
$ff93 constant trisb
: init 1 trisb mclr ; \ want RB0 as output
: do_output latb c@ 1 xor latb c! ; \ toggle RB0
: main
init
begin
do_output
#500 ms \ wait
key? until
;