From 924fffe205bf37e709bdc4dc7d01445788218b5f Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Tue, 13 Dec 2022 14:54:49 -0500
Subject: [PATCH] more wip

---
 hoax.tal | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/hoax.tal b/hoax.tal
index 3c3358b..30ccea7 100644
--- a/hoax.tal
+++ b/hoax.tal
@@ -192,6 +192,10 @@
     ROT ROT STH2r                    ( tag^ n* add* )
     ;make-obj JMP2                   ( res$ )
 
+@add-big-u16 ( x$ y* -> z$ )
+    STH2 ;read-object JSR       ( xtag^ xhi* xlo* [y*] )
+    
+
 @sym-from-buf ( -> sym$ )
     ;buffer/input ;sym-from-buf-src JMP2
 
@@ -545,7 +549,22 @@
     &not-t   DUP2 #8000 LTH2 ,&not-int JCN POP2 #30 JMP2r
     &not-int DUP2 #6000 LTH2 ,&not-tal JCN POP2 #60 JMP2r
     &not-tal DUP2 #4000 LTH2 ,&not-sym JCN POP2 #10 JMP2r
-    &not-sym ;read-object JSR2 POP2 POP2 #f0 AND JMP2r
+    &not-sym ;obj-to-addr JSR2 #f0 AND JMP2r
+
+@is-short-int ( ref$ -> bool^ )
+    #7fff GTH JMP2r             ( ref>7fff^ )
+
+@is-long-int ( ref$ -> bool^ )
+    DUP2 #3fff GTH ,&nope       ( ref$ )
+    ;obj-to-addr JSR2 LDA       ( tag^ )
+    #f7 AND #30 EQU JMP2r       ( (tag^f7)==30^ )
+    &nope POP2 #00 JMP2r        ( 00 )
+
+@is-big-int ( ref$ -> bool^ )
+    DUP2 #3fff GTH ,&nope       ( ref$ )
+    ;obj-to-addr JSR2 LDA       ( tag^ )
+    #f7 AND #34 EQU JMP2r       ( (tag^f7)==34^ )
+    &nope POP2 #00 JMP2r        ( 00 )
 
 @assert-cons ( ref$ -> )
     DUP2 #c000 AND2 ,&not-obj JCN    ( ref$ )