tichy
01-17-06, 10:49 AM
I tried the following program:
SCRUB
MACHINE BLINKGRN EEWORD
ON-MACHINE BLINKGRN
APPEND-STATE BG1 EEWORD
APPEND-STATE BG2 EEWORD
: -LOOPVAR <BUILDS HERE P, 1- DUP , , DOES>
P@ DUP @ 0= IF DUP 1 + @ SWAP ! TRUE ELSE 1-! FALSE THEN ; EEWORD
30 -LOOPVAR CNT EEWORD
IN-STATE
BG1
CONDITION
CNT
CAUSES
GRNLED OFF
THEN-STATE
BG2
TO-HAPPEN IN-EE
IN-STATE
BG2
CONDITION
CNT
CAUSES
GRNLED ON
THEN-STATE
BG1
TO-HAPPEN IN-EE
: MAIN
BG1 SET-STATE
INSTALL BLINKGRN
; EEWORD
HEX 3C00 AUTOSTART MAIN
SAVE-RAM
First time after download to ServoPod works, after that Reset hangs in a loop,
printing IsoMax 0.82.
Whats wrong?
SCRUB
MACHINE BLINKGRN EEWORD
ON-MACHINE BLINKGRN
APPEND-STATE BG1 EEWORD
APPEND-STATE BG2 EEWORD
: -LOOPVAR <BUILDS HERE P, 1- DUP , , DOES>
P@ DUP @ 0= IF DUP 1 + @ SWAP ! TRUE ELSE 1-! FALSE THEN ; EEWORD
30 -LOOPVAR CNT EEWORD
IN-STATE
BG1
CONDITION
CNT
CAUSES
GRNLED OFF
THEN-STATE
BG2
TO-HAPPEN IN-EE
IN-STATE
BG2
CONDITION
CNT
CAUSES
GRNLED ON
THEN-STATE
BG1
TO-HAPPEN IN-EE
: MAIN
BG1 SET-STATE
INSTALL BLINKGRN
; EEWORD
HEX 3C00 AUTOSTART MAIN
SAVE-RAM
First time after download to ServoPod works, after that Reset hangs in a loop,
printing IsoMax 0.82.
Whats wrong?