home .. forth .. misc mail list archive ..

No Subject


It looks like P21's stack is indeed circular, although the circle is from
N to S4.  The following CODE:

CODE CIRCULAR?
A PUSH NOP A!
1 # NOP NOP
2 # NOP NOP
3 # NOP NOP
4 # NOP NOP
5 # NOP NOP
6 # NOP NOP
!A+ !A+ !A+ !A+
!A+ !A+ !A+ !A+
!A+ !A+ !A+ !A
A POP NOP A!
NEXT
END-CODE

when executed like: 0 CIRCULAR? produces a stack like:

6 5 4 3 2 1 5 4 3 2 1 5
		      ^TOS

-Dave