From 49979404a54ea1292a6d599cd78142303849a581 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Tue, 16 Jun 2020 21:34:35 -0400
Subject: [PATCH] pcat: implement number literals

---
 blk/813 | 11 +++++------
 blk/815 |  2 +-
 blk/817 |  9 +++++++--
 3 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/blk/813 b/blk/813
index d1a3365..4426d43 100644
--- a/blk/813
+++ b/blk/813
@@ -2,14 +2,13 @@
   these words' offset need to be stable, so they're part of
   the "stable ABI" )
 'E' A, 'X' A, 'I' A, 'T' A,
-0 A,, ( prev )
-4 A,
+0 A,, ( prev ) 4 A, ( len )
 H@ XCURRENT !        ( set current tip of dict, 0x42 )
     0x17 A,          ( nativeWord )
     DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
 ;CODE
-CODE BYE BEGIN, JMPs, AGAIN, ;CODE
-CODE FOO
-    AH 0x0e MOVri, ( print char ) AL 'X' MOVri, 0x10 INT,
+PC ORG @ 0x20 + ! ( numberWord )
+PC ORG @ 0x24 + ! ( addrWord ) ( see B287 for comments )
+    DI DX MOVxx, DI [DI] MOVx[], DI PUSHx,
+    DX INCx, DX INCx,
 ;CODE
-: BAR FOO FOO ; : BAZ BAR FOO BYE ;
diff --git a/blk/815 b/blk/815
index 3cc714b..1ab1775 100644
--- a/blk/815
+++ b/blk/815
@@ -1,6 +1,6 @@
 L4 BSET PC 3 - ORG @ 4 + ! ( find )
 ( find word the same name as str in SI starting from tip in
-  DI. Returns wordref in BX. Z if found, NZ if not. )
+  DI. Returns wordref in DI. Z if found, NZ if not. )
     CH CH XORrr, CL [SI] MOVr[], ( CX -> strlen )
     SI INCx, ( first char ) AX AX XORxx, ( initial prev )
     BEGIN, ( loop )
diff --git a/blk/817 b/blk/817
index 2b952e6..947bac6 100644
--- a/blk/817
+++ b/blk/817
@@ -1,10 +1,15 @@
-L3 BSET 3 A, 'B' A, 'A' A, 'Z' A,
+CODE BYE BEGIN, JMPs, AGAIN, ;CODE
+CODE EMIT
+    AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
+;CODE
+: FOO 'X' EMIT ; : BAR FOO FOO BYE ;
+L3 BSET 3 A, 'B' A, 'A' A, 'R' A,
 PC 3 - ORG @ 1+ ! ( main )
     SP PS_ADDR MOVxI,
     BP RS_ADDR MOVxI,
     DI 0x08 MOVxm, ( LATEST )
     SI L3 @ MOVxI,
     CALLn, L4 @ RPCn, ( find )
-    IFZ, JMPs, L1 @ RPCs, ( execute ) THEN,
+    IFZ, JMPn, L1 @ RPCn, ( execute ) THEN,
     AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,
     BEGIN, JMPs, AGAIN,