mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 17:18:05 +11:00
3ea221d0eb
I'm trying to move stuff around and it simplifies things. Will make a lot more sense to inline when BC replaces IY.
17 lines
477 B
Plaintext
17 lines
477 B
Plaintext
CODE >R
|
|
HL POP, IX INCd, IX INCd, 0 IX+ L LDIXYr, 1 IX+ H LDIXYr,
|
|
;CODE
|
|
CODE R>
|
|
L 0 IX+ LDrIXY, H 1 IX+ LDrIXY, IX DECd, IX DECd, HL PUSH,
|
|
;CODE
|
|
CODE 2>R PC ORG @ 0x35 + ! ( stable ABI JP )
|
|
DE POP, HL POP,
|
|
IX INCd, IX INCd, 0 IX+ L LDIXYr, 1 IX+ H LDIXYr,
|
|
IX INCd, IX INCd, 0 IX+ E LDIXYr, 1 IX+ D LDIXYr,
|
|
;CODE
|
|
CODE 2R>
|
|
L 0 IX+ LDrIXY, H 1 IX+ LDrIXY, IX DECd, IX DECd,
|
|
E 0 IX+ LDrIXY, D 1 IX+ LDrIXY, IX DECd, IX DECd,
|
|
DE PUSH, HL PUSH,
|
|
;CODE
|