From 9a86ab4600d98040a406d7c2b704ab2d3642eeb6 Mon Sep 17 00:00:00 2001 From: kitty Date: Thu, 19 Feb 2026 21:54:53 +1100 Subject: rm old unnecessary teststring words i still haven't figured out the PNO issue yet. working on it --- jefs.fs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'jefs.fs') diff --git a/jefs.fs b/jefs.fs index 9b073f7..c169242 100644 --- a/jefs.fs +++ b/jefs.fs @@ -1,6 +1,6 @@ : cell+ 8 + ; : syswrite ( u c-addr fd -- n ) 1 syscall3 ; -: say ( c-addr u -- ) swap 1 syswrite drop ; +: say ( c-addr u -- ) swap 2 syswrite drop ; : emit ( chr -- ) sp cell+ 1 swap 1 syswrite 2drop ; : cr 10 emit ; @@ -42,19 +42,19 @@ decimal \ mostly from pforth \ currently broken if unsigned number has more than 18 digits \ unfortunately this also seems to include any negative number +\ it continues reading words but a number literal causes a crash variable hld : <# dap hld ! ; : hold 1 hld -! ( chr ) hld @ c! ; : sign 0< if [ char - ] literal hold then ; -: # base @ /mod swap 9 over > if 7 + then [ char 0 ] literal + hold ; +: # base @ /mod swap 9 over > if 7 + then [ char 0 ] literal + hold ; \ issue is in here i think? : #s begin # dup 0= until ; : #> drop hld @ dap over - ; -: ud. <# #s #> say space ; +: ud. <# #s #> say ; -: t ." testtest" cr ; -: testing 0 if TESTSTR else TESTSTR2 then say cr ; +: t ." testtesttesttest" cr ; -1000000000000000000 999999999999999999 .s -drop ud. -testing bye +bye +\ 100000000000000000 ud. bye +\ t testing bye -- cgit v1.2.3