izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

boot: fix flagsToBC

Browse Source 
Why did I ever think that using CM was a good idea? any comparison
with numbers more than 0x8000 apart would be wrong...
This commit is contained in:
Virgil Dupras 2020-04-07 11:12:17 -04:00
parent 1c6e979028
commit 400f0ab0b0
4 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
emul/forth/boot.bin
View File

Binary file not shown.

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

2
forth/boot.fs
View File

@ -218,7 +218,7 @@ PC ORG @ 0x29 + ! ( flagsToBC )
BC 0 LDddnn, BC 0 LDddnn,
CZ RETcc, ( equal ) CZ RETcc, ( equal )
BC INCss, BC INCss,
CM RETcc, ( > ) CC RETcc, ( > )
( < ) ( < )
BC DECss, BC DECss,
BC DECss, BC DECss,

1
tests/forth/test_cmp.fs
View File

@ -2,3 +2,4 @@
0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT # 0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
0x42 <>{ 0x40 &> 0x44 &< <>} # 0x42 <>{ 0x40 &> 0x44 &< <>} #
0x44 <>{ 0x40 &> 0x44 &< <>} NOT # 0x44 <>{ 0x40 &> 0x44 &< <>} NOT #
0x22 0x8065 < #