1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 19:30:56 +11:00
collapseos/tests/forth/test_cmp.fs
2020-04-05 19:52:12 -04:00

5 lines
148 B
Forth

0x70 <>{ 0x70 &= 0x58 |= 0x20 |= <>} #
0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
0x42 <>{ 0x40 &> 0x44 &< <>} #
0x44 <>{ 0x40 &> 0x44 &< <>} NOT #