25 lines
343 B
Forth
25 lines
343 B
Forth
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
|