summaryrefslogtreecommitdiff
path: root/jefs.fs
diff options
context:
space:
mode:
authorkitty <nepeta@canaglie.net>2026-02-19 21:54:53 +1100
committerkitty <nepeta@canaglie.net>2026-02-19 21:54:53 +1100
commit9a86ab4600d98040a406d7c2b704ab2d3642eeb6 (patch)
treed189340c93ce8420cad2c017f295c12009eb97a5 /jefs.fs
parentdab770163829302cb6c68c1a173ec72d7cc1a31b (diff)
rm old unnecessary teststring words
i still haven't figured out the PNO issue yet. working on it
Diffstat (limited to 'jefs.fs')
-rw-r--r--jefs.fs16
1 files changed, 8 insertions, 8 deletions
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