mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 01:40:56 +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.
14 lines
248 B
Plaintext
14 lines
248 B
Plaintext
( Native words )
|
|
CODE EXECUTE
|
|
DE POP,
|
|
chkPS,
|
|
JR, lblexec BWR ( execute-B301 )
|
|
|
|
CODE EXIT
|
|
PC ORG @ 0x0d + ! ( stable ABI JP )
|
|
L 0 IX+ LDrIXY,
|
|
H 1 IX+ LDrIXY,
|
|
IX DECd, IX DECd,
|
|
HL PUSH, IY POP, ( --> IP )
|
|
JPNEXT,
|