From de41cbce8997fa2cba9047db7cc3b5d9d5aaccce Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Sat, 28 Mar 2026 20:24:50 +1100
Subject: PNO and some other stuff

---
 sanctuary.fs | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

(limited to 'sanctuary.fs')

diff --git a/sanctuary.fs b/sanctuary.fs
index 15d5a0e..1aab4e2 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -111,6 +111,21 @@ decimal
 : munmap  11 syscall2 ;
 \ }}}
 
+\ NUMERIC OUTPUT {{{
+\ this buffer is also used as a temporary string buffer.
+255 constant #pad
+create pad 255 cells allot
+: pad$  pad #pad + ;
+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 ;
+: #s  begin # dup 0= until ;
+: #>  drop hld @ pad$ over - ;
+\ }}}
+
 \ I/O {{{
 0 constant stdin
 1 constant stdout
@@ -118,9 +133,15 @@ decimal
 
 : sys-write  0 syscall3 ;
 : sys-read  1 syscall3 ;
+: sys-open  2 syscall3 ;
+: sys-close  3 syscall1 ;
 
-: type  swap stdout 1 syscall3 drop ;
+: type  swap stdout sys-read drop ;
 : emit  sp 1 type drop ;
+
+0 constant r/o
+1 constant w/o
+2 constant r/w
 \ }}}
 
 bye
-- 
cgit v1.2.3