mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 19:38:05 +11:00
7359717000
chkPS, used to be only for words that pushed back to PS, but I've recently removed underflow checks from next and I forgot to add missing chkPS, calls that go with this change.
11 lines
178 B
Plaintext
11 lines
178 B
Plaintext
CODE 2DROP ( a b -- )
|
|
HL POP, HL POP, chkPS,
|
|
;CODE
|
|
|
|
CODE 2DUP ( a b -- a b a b )
|
|
HL POP, ( b ) DE POP, ( a )
|
|
chkPS,
|
|
DE PUSH, HL PUSH,
|
|
DE PUSH, HL PUSH,
|
|
;CODE
|