collapseos/blk/284

14 lines
405 B
Plaintext
Raw Normal View History

2020-04-22 21:19:12 -04:00
( BOOT DICT: There are only 3 words in the boot dict, but
these words' offset need to be stable, so they're part of
the "stable ABI" )
2020-07-05 13:15:26 -04:00
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
CODE EXIT ( 0x42 )
0x14 BCALL, ( popRS )
HL PUSH, IY POP, ( --> IP )
2020-04-22 21:19:12 -04:00
JPNEXT,
CODE (br) ( 0x53 )
L2 BSET ( used in CBR )
E 0 IY+ LDrIXY, D 1 IY+ LDrIXY,
DE ADDIYd,
JPNEXT,