git.annexia.org
/
jonesforth.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Version 47
[jonesforth.git]
/
test_number.f
1
( -*- text -*- )
2
3
: TEST
4
123 . CR
5
[ HEX -7F ] LITERAL DECIMAL . CR
6
[ HEX 7FF77FF7 ] LITERAL HEX . CR
7
[ HEX -7FF77FF7 ] LITERAL 2 BASE ! . CR
8
[ 2 BASE ! 1111111111101110111111111110111 ] LITERAL HEX . CR
9
;
10
11
DECIMAL ( restore immediate-mode base )