1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 21:58:05 +11:00
collapseos/blk/307

17 lines
200 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
( a -- a a )
CODE DUP
2020-05-23 03:48:30 +10:00
HL POPqq, chkPS,
HL PUSHqq, HL PUSHqq,
;CODE
CODE ?DUP
HL POPqq, chkPS,
HL PUSHqq,
HLZ, IFNZ, HL PUSHqq, THEN,
2020-04-23 11:19:12 +10:00
;CODE
( a -- )
CODE DROP
HL POPqq,
;CODE