mirror of https://github.com/hsoft/collapseos.git
16 lines
290 B
Plaintext
16 lines
290 B
Plaintext
|
CODE >R
|
||
|
|
HL POP, lblpushRS @ CALL,
|
||
|
|
;CODE
|
||
|
|
CODE R>
|
||
|
|
lblpopRS @ CALL, HL PUSH,
|
||
|
|
;CODE
|
||
|
|
CODE 2>R
|
||
|
|
PC ORG @ 0x35 + ! ( stable ABI JP )
|
||
|
|
DE POP, HL POP,
|
||
|
|
lblpushRS @ CALL, EXDEHL, lblpushRS @ CALL,
|
||
|
|
;CODE
|
||
|
|
CODE 2R>
|
||
|
|
lblpopRS @ CALL, EXDEHL, lblpopRS @ CALL,
|
||
|
|
HL PUSH, DE PUSH,
|
||
|
|
;CODE
|