diff --git a/blk/283 b/blk/283 index 0f3cbbd..5e993d6 100644 --- a/blk/283 +++ b/blk/283 @@ -1,14 +1,14 @@ H@ ORG ! -0 JPnn, ( 00, main ) NOP, NOP, NOP, ( 03, unused ) -NOP, NOP, ( 06, unused ) NOP, NOP, ( 08, LATEST ) +0 JPnn, ( 00, main ) NOP, NOP, NOP, ( unused ) +NOP, NOP, ( unused ) NOP, NOP, ( 08, LATEST ) NOP, NOP, NOP, NOP, NOP, NOP, NOP, ( 0a, unused ) -0 JPnn, ( 11, pushRS ) 0 JPnn, ( 14, popRS ) -NOP, NOP, NOP, ( 17, unused ) -0 JPnn, ( 1a, next ) 0 JPnn, ( unused ) -NOP, NOP, NOP, NOP, ( 20, unused ) -NOP, NOP, NOP, NOP, ( 24, unused ) -0 JPnn, ( RST 28 ) -NOP, NOP, NOP, NOP, NOP, ( 2b, unused ) -0 JPnn, ( RST 30 ) -0 JPnn, ( 33, execute ) NOP, NOP, ( unused ) -0 JPnn, ( RST 38 ) +0 JPnn, ( 11, pushRS ) 0 JPnn, ( 14, popRS ) +NOP, NOP, NOP, ( unused ) +0 JPnn, ( 1a, next ) NOP, NOP, NOP, ( unused ) +NOP, NOP, NOP, NOP, ( unused ) +NOP, NOP, NOP, NOP, ( unused ) +0 JPnn, ( RST 28 ) +NOP, NOP, NOP, NOP, NOP, ( unused ) +0 JPnn, ( RST 30 ) +NOP, NOP, NOP, NOP, NOP, ( unused ) +0 JPnn, ( RST 38 ) diff --git a/blk/298 b/blk/298 index 667e816..695ce64 100644 --- a/blk/298 +++ b/blk/298 @@ -3,7 +3,7 @@ lblofl BSET ( abortUnderflow ) HL PC 7 - LDddnn, DE RAMSTART 0x02 + LDdd(nn), ( RAM+02 == CURRENT ) lblfind @ CALLnn, - 0x33 BJP, ( 33 == execute ) + JR, L2 FWR ( execute, B301 ) diff --git a/blk/299 b/blk/299 index 5de7479..cc1b2c8 100644 --- a/blk/299 +++ b/blk/299 @@ -13,4 +13,4 @@ PC ORG @ 1 + ! ( main ) EXDEHL, HL L1 @ LDddnn, lblfind @ CALLnn, - 0x33 BJP, ( 33 == execute ) + JR, L1 FWR ( execute, B301 ) diff --git a/blk/301 b/blk/301 index 530932b..f942557 100644 --- a/blk/301 +++ b/blk/301 @@ -1,4 +1,5 @@ -lblexec BSET PC ORG @ 0x34 + ! ( execute. DE -> wordref ) +lblexec BSET L1 FSET ( B299 ) L2 FSET ( B298 ) + ( DE -> wordref ) ( We don't apply BIN( reliably on stable ABI stuff, we might need to adjust addr. Ugly, but well... ) BIN( @ [IF] diff --git a/emul/forth.bin b/emul/forth.bin index 34ebba9..5d9e5e4 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ