1
0
mirror of https://github.com/mgcaret/of816.git synced 2024-10-31 10:15:45 +00:00
of816/test/of816-words.fs

14 lines
187 B
Forth
Raw Normal View History

2020-01-07 02:52:18 +00:00
testing OF816 words
hex
t{ 0 bsx -> 0 }t
t{ 7f bsx -> 7f }t
t{ 80 bsx -> -80 }t
t{ ff bsx -> -1 }t
t{ 0 wsx -> 0 }t
t{ 7fff wsx -> 7fff }t
t{ 8000 wsx -> -8000 }t
t{ ffff wsx -> -1 }t