diff options
| -rw-r--r-- | jefs.fs | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -7,6 +7,8 @@ : decimal 10 base ! ; : hex 16 base ! ; +: tuck swap over ; + hex : ret, c3 c, ; decimal @@ -37,6 +39,8 @@ decimal : / /mod swap drop ; : mod /mod drop ; +: negate 0 swap - ; +: abs dup 0< if negate then ; \ PNO \ mostly from pforth @@ -45,10 +49,11 @@ variable hld : <# pad 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 ; \ issue is in here i think? +: # base @ /mod swap 9 over > if 7 + then [ char 0 ] literal + hold ; : #s begin # dup 0= until ; : #> drop hld @ pad over - ; -: ud. <# #s #> say space ; +: u. <# #s #> say space ; +: . dup abs <# #s swap sign #> say space ; bye |