z80: inline cellWord in stable ABI

2020-06-14 10:05:34 -04:00 · 2020-06-14 10:05:34 -04:00 · 38d5a9f303
commit 38d5a9f303
parent 40f92b9bab
3 changed files with 2 additions and 18 deletions
--- a/blk/283
+++ b/blk/283
@ -1,7 +1,8 @@
 H@ ORG !
 0 JPnn,       ( 00, main )     0 JPnn,       ( 03, find )
 NOP, NOP,     ( 06, unused )   NOP, NOP,     ( 08, LATEST )
-NOP,          ( 0a, unused )   0 JPnn,       ( 0b, cellWord )
+NOP,          ( 0a, unused )
+( 0b cellWord, push PFA ) DE PUSHqq, JR, 0x0c A, ( next )
 0 JPnn,   ( 0e, compiledWord ) 0 JPnn,       ( 11, pushRS )
 0 JPnn,       ( 14, popRS )
 EXDEHL, JP(HL), NOP, ( 17, nativeWord )
@ -13,4 +14,3 @@ NOP, NOP,     ( 24, addrWord ) NOP, NOP,     ( 26, unused )
 0 JPnn,       ( RST 30 )
 0 JPnn,       ( 33, execute )  NOP, NOP,     ( unused )
 0 JPnn,       ( RST 38 )
-
--- a/blk/303
+++ b/blk/303
@ -1,16 +0,0 @@
-PC ORG @ 0x0c + ! ( cellWord )
-( Pushes PFA directly )
-    DE PUSHqq,
-    JPNEXT,
-
-
-
-
-
-
-
-
-
-
-
-
--- a/emul/forth.bin
+++ b/emul/forth.bin