diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 821f6ba..78d02ce 100644
Binary files a/emul/forth/z80c.bin and b/emul/forth/z80c.bin differ
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,