1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 23:08:05 +11:00
collapseos/blk/326

18 lines
310 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
CODE >R
HL POPqq, chkPS,
17 BCALL, ( 17 == pushRS )
;CODE
CODE 2>R
DE POPqq, HL POPqq, chkPS,
17 BCALL, ( 17 == pushRS ) EXDEHL, 17 BCALL,
2020-04-23 11:19:12 +10:00
;CODE
CODE R>
20 BCALL, ( 20 == popRS )
2020-04-23 11:19:12 +10:00
HL PUSHqq,
;CODE
CODE 2R>
20 BCALL, ( 20 == popRS ) EXDEHL, 20 BCALL,
HL PUSHqq, DE PUSHqq,
;CODE
2020-04-23 11:19:12 +10:00