LED-ANSTEUERUNG MIT FLASHFORTH


Eine einfache Ansteuerung einer LED mit FlashForth über einen PIC
Mikrocontroller. Inhalt bezieht sich auf den Microcontroller PIC18F2620
von Microchip.


Breadboard

[ledrb0.png]


Programm

    -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
    ;