1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 05:58:06 +11:00
collapseos/tests/forth/test_cmp.fs

7 lines
173 B
Forth
Raw Normal View History

2020-04-06 09:52:12 +10:00
0x70 <>{ 0x70 &= 0x58 |= 0x20 |= <>} #
0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
0x42 <>{ 0x40 &> 0x44 &< <>} #
0x44 <>{ 0x40 &> 0x44 &< <>} NOT #
0x22 0x8065 < #
-1 0 > #