collapseos/blk/312
Virgil Dupras d041b91846 Optimize chkPS
Use EXX instead of the stack for HL protection and remove all
spurious uses of chkPS,

I wanted to inline chkPS in next because of its "tight loop" status,
but for reasons I don't understand, doing so breaks Collapse OS.
Later...
2020-05-22 23:12:03 -04:00

15 lines
192 B
Plaintext

( a b -- )
CODE 2DROP
HL POPqq,
HL POPqq,
;CODE
( a b -- a b a b )
CODE 2DUP
HL POPqq, ( b ) DE POPqq, ( a )
chkPS,
DE PUSHqq, HL PUSHqq,
DE PUSHqq, HL PUSHqq,
;CODE