forth: slightly improve assembler

2020-03-28 09:39:24 -04:00 · 2020-03-28 09:39:24 -04:00 · 8d8e1d93da
commit 8d8e1d93da
--- a/emul/forth/z80c.bin
+++ b/emul/forth/z80c.bin
--- a/forth/z80a.fs
+++ b/forth/z80a.fs
@ -2,8 +2,7 @@

 ( Splits word into msb/lsb, lsb being on TOS )
 : SPLITB
-    DUP 0x100 /
-    SWAP 0xff AND
+    256 /MOD SWAP
 ;

 ( To debug, change C, to .X )
@ -166,7 +165,7 @@
 : OP2r
    CREATE ,
    DOES>
-    @ 256 /MOD      ( r lsb msb )
+    @ SPLITB SWAP   ( r lsb msb )
    A,              ( r lsb )
    SWAP 8 *        ( lsb r<<3 )
    OR A,