SCRUB

  
HERE 80 4 + ALLOT CONSTANT RBUFF0 EEWORD 
HERE 80 4 + ALLOT CONSTANT TBUFF0 EEWORD

LOOPINDEX G-CNT
(  1 G-CNT START
100 G-CNT END          EEWORD

LOOPINDEX R-CNT
(  1 R-CNT START
100 R-CNT END          EEWORD

MACHINE G-TWINKLE      EEWORD
  ON-MACHINE G-TWINKLE
    APPEND-STATE G-ON  EEWORD
    APPEND-STATE G-OFF EEWORD

IN-STATE
  G-ON
CONDITION
  G-CNT COUNT
CAUSES
  G-CNT RESET
  GRNLED OFF
THEN-STATE
  G-OFF
TO-HAPPEN IN-EE


IN-STATE
  G-OFF
CONDITION
  G-CNT COUNT
CAUSES
  G-CNT RESET
  GRNLED ON
THEN-STATE
  G-ON
TO-HAPPEN IN-EE


MACHINE R-TWINKLE      EEWORD
  ON-MACHINE R-TWINKLE
    APPEND-STATE R-ON  EEWORD
    APPEND-STATE R-OFF EEWORD

IN-STATE
  R-ON
CONDITION
  R-CNT COUNT
CAUSES
  REDLED OFF
  R-CNT RESET
THEN-STATE
  R-OFF
TO-HAPPEN IN-EE


IN-STATE
  R-OFF
CONDITION
  R-CNT COUNT
CAUSES
  REDLED ON
  R-CNT RESET
THEN-STATE
  R-ON
TO-HAPPEN IN-EE


MACHINE-CHAIN TWINKLE
  G-TWINKLE
  R-TWINKLE
END-MACHINE-CHAIN EEWORD

: COMMAND-LOOP
  BEGIN
    YELLED TOGGLE
    SCI0 RX? IF RX ELSE 0 THEN
    DUP 48 = IF G-CNT RESET THEN
    DUP 49 = IF R-CNT RESET THEN
        13 = 
  UNTIL
; EEWORD

: STARTUP
(  38400  SCI0 BAUD
  RBUFF0 80 4 + SCI0 RXBUFFER
  TBUFF0 80 4 + SCI0 TXBUFFER
  G-CNT RESET
  R-CNT RESET
  G-ON SET-STATE
  R-ON SET-STATE
  EVERY 50000 CYCLES SCHEDULE-RUNS TWINKLE
  COMMAND-LOOP
; EEWORD

HEX 3C00 DECIMAL AUTOSTART STARTUP ( V.6 VERSION OF AUTOSTART
( AUTOSTART STARTUP ( V.7 VERSION OF AUTOSTART
SAVE-RAM