mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 18:38:06 +11:00
eefbf66e95
When writing the xcomp documentation, I realized that with careful threading and by accepting a bit of code duplication in the xcomp toolset, I could de-stabilize a couple of words. (n) and EXIT are a bit trickier, but I think it can be done. It would be nice to get rid of stable wordrefs...
14 lines
372 B
Plaintext
14 lines
372 B
Plaintext
CODE R>
|
|
L 0 IX+ LDrIXY, H 1 IX+ LDrIXY, IX DECd, IX DECd, HL PUSH,
|
|
;CODE
|
|
CODE 2>R
|
|
DE POP, HL POP, chkPS,
|
|
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
|