
: Flamingo cr
."      _" cr
."     ^-)" cr
."      (.._          .._" cr
."       \`\\        (\`\\        (" cr
."        |>         ) |>        |)" cr
." ______/|________ (7 |` ______\|/_______a:f" cr
;

$400253FC constant PORTF_DATA ( Ein- und Ausgaberegister )  
$40025400 constant PORTF_DIR  ( Soll der Pin Eingang oder Ausgang sein ? )
$40025500 constant PORTF_DR2R ( 2 mA Treiber )
$40025504 constant PORTF_DR4R ( 4 mA )
$40025508 constant PORTF_DR8R ( 8 mA )
$4002550C constant PORTF_ODR  ( Open Drain )
$40025510 constant PORTF_PUR  ( Pullup Resistor )
$40025514 constant PORTF_PDR  ( Pulldown Resistor )
$40025518 constant PORTF_SLR  ( Slew Rate )
$4002551C constant PORTF_DEN  ( Digital Enable )

: init
  \ PF0 ist auch der NMI-Eingang. Benötige also eine besondere Sequenz, um ihn für den Taster freizuschalten.
  $4C4F434B $40025520 !    ( PORTF_LOCK )
          1 $40025524 bis! ( PORTF_CR )
          0 $40025520 !    ( PORTF_LOCK )

  %11111 portf_den ! \ Alle Leitungen an Port F seien digitale Pins
  %01110 portf_dir ! \ Die Leuchtdiodenanschlüsse seien Ausgänge
  %10001 portf_pur ! \ Hochziehwiderstände für die Taster aktivieren

  80MHz
  
  cr
  Flamingo
  cr
  ." Have a nice day !" cr
;

2 constant led-red
8 constant led-green
4 constant led-blue

16 constant button1
1  constant button2

