1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 09:48:05 +11:00
collapseos/blk/312
Virgil Dupras 7359717000 z80: add missing chkPS, calls
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.
2020-08-23 08:43:51 -04:00

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