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

14 lines
158 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
( a -- a a )
CODE DUP
HL POPqq, ( A )
chkPS,
HL PUSHqq, ( A )
HL PUSHqq, ( A )
;CODE
( a -- )
CODE DROP
HL POPqq,
;CODE