flowtest.fs 302 B

123456789101112131415161718
  1. start-microcode flowtest
  2. : main
  3. begin
  4. \ wait until COMM+0 is nonzero
  5. begin
  6. COMM+0 c@
  7. until
  8. \ increment COMM+1
  9. COMM+1 c@ d# 1 + COMM+1 c!
  10. \ write zero to COMM+0, telling host we're done
  11. d# 0 COMM+0 c!
  12. again
  13. ;
  14. end-microcode