colorful rat Ratfactor.com > Dave's Repos

nasmjf

A NASM assembler port of JONESFORTH
git clone http://ratfactor.com/repos/nasmjf/nasmjf.git

nasmjf/jonesforth/test_number.f

Download raw file: jonesforth/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 )