19 lines
302 B
Forth
19 lines
302 B
Forth
start-microcode flowtest
|
|
|
|
: main
|
|
begin
|
|
\ wait until COMM+0 is nonzero
|
|
begin
|
|
COMM+0 c@
|
|
until
|
|
|
|
\ increment COMM+1
|
|
COMM+1 c@ d# 1 + COMM+1 c!
|
|
|
|
\ write zero to COMM+0, telling host we're done
|
|
d# 0 COMM+0 c!
|
|
again
|
|
;
|
|
|
|
end-microcode
|