123456789101112131415161718192021222324 |
- start-microcode selftest1
- : 1+ d# 1 + ;
- : ! ( u addr )
- over swab over 1+ c! c! ;
- : d1+
- swap 1+
- swap over
- d# 0 = if
- 1+
- then
- ;
- \ increment COMM+0,1,2,3 until COMM+15 goes high
- : main
- h# 0.
- begin
- over COMM+0 !
- dup COMM+2 !
- d1+
- begin COMM+15 c@ until
- again
- ;
- end-microcode
|