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 )