From 8d8e1d93dab278fafefd8c95ad17e54255a38c1e Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 28 Mar 2020 09:39:24 -0400
Subject: [PATCH] forth: slightly improve assembler

---
 emul/forth/z80c.bin | Bin 875 -> 875 bytes
 forth/z80a.fs       |   5 ++---
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 821f6ba49b32b62dddc4bf5ba95b6c617c38cbd7..78d02ce68f889439cdfed4a11c4276bd2f833c69 100644
GIT binary patch
delta 18
acmaFO_L^<OFGkh^p;Yd-oBuQBFaiKf`3I5!

delta 18
acmaFO_L^<OFGkjIAt&xroBuQBFaiKd6$di_

diff --git a/forth/z80a.fs b/forth/z80a.fs
index 17ebc29..ab50dda 100644
--- 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,