mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 03:08:45 +10:00
f2f520cacc
There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register.
16 lines
417 B
Plaintext
16 lines
417 B
Plaintext
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
|
|
CODE (br) ( TODO: move with other native words )
|
|
L1 BSET ( used in ?br and loop )
|
|
PC ORG @ 0x3d + ! ( stable ABI JP )
|
|
E 0 IY+ LDrIXY, D 1 IY+ LDrIXY,
|
|
DE ADDIYd,
|
|
;CODE
|
|
CODE (?br)
|
|
PC ORG @ 0x41 + ! ( stable ABI JP )
|
|
HL POP,
|
|
HLZ,
|
|
JRZ, L1 BWR ( br + 1. False, branch )
|
|
( True, skip next 2 bytes and don't branch )
|
|
IY INCd, IY INCd,
|
|
;CODE
|