diff --git a/blk/283 b/blk/283 index 7cd1035..25d763b 100644 --- a/blk/283 +++ b/blk/283 @@ -1,12 +1,12 @@ H@ ORG ! 0 JP, ( 00, main ) NOP, ( unused ) NOP, NOP, ( 04, BOOT ) NOP, NOP, ( 06, uflw ) NOP, NOP, ( 08, LATEST ) -NOP, NOP, NOP, NOP, NOP, NOP, NOP, ( 0a, unused ) -NOP, NOP, NOP, ( unused ) 0 JP, ( 14, popRS ) +NOP, NOP, NOP, NOP, NOP, NOP, ( unused ) +0 JP, ( RST 10 ) NOP, ( unused ) 0 JP, ( 14, popRS ) NOP, NOP, NOP, ( unused ) 0 JP, ( 1a, next ) NOP, NOP, NOP, ( unused ) -NOP, NOP, NOP, NOP, ( unused ) -NOP, NOP, NOP, NOP, ( unused ) +0 JP, ( RST 20 ) +NOP, NOP, NOP, NOP, NOP, ( unused ) 0 JP, ( RST 28 ) 0 A, 0 JP, ( 2b, (s) ) NOP, ( unused ) 0 JP, ( RST 30 ) diff --git a/blk/284 b/blk/284 index badc8c9..b9aa9a7 100644 --- a/blk/284 +++ b/blk/284 @@ -1,11 +1,8 @@ ( 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" ) -'E' A, 'X' A, 'I' A, 'T' A, -0 A,, ( prev ) -4 A, -H@ XCURRENT ! ( set current tip of dict, 0x42 ) - 0 A, ( native ) +H@ 4 + XCURRENT ! ( make next CODE have 0 prev field ) +CODE EXIT ( 0x42 ) 0x14 BCALL, ( popRS ) HL PUSH, IY POP, ( --> IP ) JPNEXT,