selftest1.fs 343 B

123456789101112131415161718192021222324
  1. start-microcode selftest1
  2. : 1+ d# 1 + ;
  3. : ! ( u addr )
  4. over swab over 1+ c! c! ;
  5. : d1+
  6. swap 1+
  7. swap over
  8. d# 0 = if
  9. 1+
  10. then
  11. ;
  12. \ increment COMM+0,1,2,3 until COMM+15 goes high
  13. : main
  14. h# 0.
  15. begin
  16. over COMM+0 !
  17. dup COMM+2 !
  18. d1+
  19. begin COMM+15 c@ until
  20. again
  21. ;
  22. end-microcode