eraser.fs 288 B

12345678910111213141516171819202122
  1. start-microcode eraser
  2. COMM+8 constant mask
  3. : main
  4. mask c@ >r
  5. h# 3FFF h# 7FFF \ RAM_SPRIMG, from top to bottom
  6. begin
  7. dupc@ r@ and
  8. over c!
  9. 1- 2dup=
  10. until
  11. \ tell host we're done
  12. d# 0 COMM+7 c!
  13. \ hang
  14. begin again
  15. ;
  16. end-microcode