collapseos/blk/326

18 lines
310 B
Plaintext
Raw Normal View History

2020-04-22 21:19:12 -04: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-22 21:19:12 -04:00
;CODE
CODE R>
20 BCALL, ( 20 == popRS )
2020-04-22 21:19:12 -04:00
HL PUSHqq,
;CODE
CODE 2R>
20 BCALL, ( 20 == popRS ) EXDEHL, 20 BCALL,
HL PUSHqq, DE PUSHqq,
;CODE
2020-04-22 21:19:12 -04:00