From 400f0ab0b058d3309b3ba79527c57aad1939d2d6 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Tue, 7 Apr 2020 11:12:17 -0400
Subject: [PATCH] boot: fix flagsToBC

Why did I ever think that using CM was a good idea? any comparison
with numbers more than 0x8000 apart would be wrong...
---
 emul/forth/boot.bin     | Bin 451 -> 451 bytes
 emul/forth/z80c.bin     | Bin 1720 -> 1720 bytes
 forth/boot.fs           |   2 +-
 tests/forth/test_cmp.fs |   1 +
 4 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/emul/forth/boot.bin b/emul/forth/boot.bin
index 3d6d11665402cfbe67fc2f9a4054c8b7483eff8d..879248db975e385f4e02c4a4a215822dad43e61d 100644
GIT binary patch
delta 13
UcmX@ie3*FyA0y+9$^49403fRbd;kCd

delta 13
UcmX@ie3*FyA0y+B$^49403k~RoB#j-

diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index e637127bfa6373dc01a922062c6fb01a798f6baf..5ce15923ea2dcb536124ecb3f1edfd0f1767809f 100644
GIT binary patch
delta 15
WcmdnNyMuRw0W;HInaxJbZOi~H4g~rD

delta 15
WcmdnNyMuRw0W%Y)<Ypu0Hf8`NPy_=2

diff --git a/forth/boot.fs b/forth/boot.fs
index 49e57ba..34db9b1 100644
--- a/forth/boot.fs
+++ b/forth/boot.fs
@@ -218,7 +218,7 @@ PC ORG @ 0x29 + ! ( flagsToBC )
     BC 0 LDddnn,
     CZ RETcc, ( equal )
     BC INCss,
-    CM RETcc, ( > )
+    CC RETcc, ( > )
     ( < )
     BC DECss,
     BC DECss,
diff --git a/tests/forth/test_cmp.fs b/tests/forth/test_cmp.fs
index 03a2a92..dfe8876 100644
--- a/tests/forth/test_cmp.fs
+++ b/tests/forth/test_cmp.fs
@@ -2,3 +2,4 @@
 0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
 0x42 <>{ 0x40 &> 0x44 &< <>} #
 0x44 <>{ 0x40 &> 0x44 &< <>} NOT #
+0x22 0x8065 < #