diff --git a/emul/forth/boot.bin b/emul/forth/boot.bin index 3d6d116..879248d 100644 Binary files a/emul/forth/boot.bin and b/emul/forth/boot.bin differ diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin index e637127..5ce1592 100644 Binary files a/emul/forth/z80c.bin and b/emul/forth/z80c.bin differ 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 < #