From 3fbae082f4cbd358a87d35d0dac44f115b3ce512 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 14 May 2020 15:13:16 -0400
Subject: [PATCH] Remove INTJUMP mechanism

Not worth the trouble. Easier to set jump in binary directly.
---
 blk/081 |  2 +-
 blk/083 | 10 +++++-----
 blk/283 |  6 +++---
 blk/583 |  2 +-
 blk/585 |  2 --
 blk/588 |  3 ---
 6 files changed, 10 insertions(+), 15 deletions(-)

diff --git a/blk/081 b/blk/081
index fa18965..c44d84d 100644
--- a/blk/081
+++ b/blk/081
@@ -1,6 +1,6 @@
 RAMSTART  FUTURE USES          +3c       BLK(*
 +02       CURRENT              +3e       FUTURE USES
-+04       HERE                 +4e       INTJUMP
++04       HERE                 
 +06       C<?                  +51       CURRENTPTR
 +08       C<* override         +53       (emit) override
 +0a       NLPTR                +55       (key) override
diff --git a/blk/083 b/blk/083
index 751f77a..a45d747 100644
--- a/blk/083
+++ b/blk/083
@@ -7,10 +7,10 @@ WORDBUF is the buffer used by WORD
 BOOT C< PTR is used when Forth boots from in-memory
 source. See "Initialization sequence" below.
 
-INTJUMP All RST offsets (well, not *all* at this moment, I
-still have to free those slots...) in boot binaries are made to
-jump to this address. If you use one of those slots for an
-interrupt, write a jump to the appropriate offset in that RAM
-location.
+
+
+
+
+
 
                                                         (cont.)
diff --git a/blk/283 b/blk/283
index cc6f5f2..4f0446c 100644
--- a/blk/283
+++ b/blk/283
@@ -8,8 +8,8 @@ EXDEHL, JP(HL), NOP, ( 17, nativeWord )
 0 JPnn,       ( 1a, next )     0 JPnn,       ( 1d, chkPS )
 NOP, NOP,   ( 20, numberWord ) NOP, NOP,     ( 22, litWord )
 NOP, NOP,     ( 24, addrWord ) NOP, NOP,     ( 26, unused )
-RAMSTART 0x4e + JPnn, ( 28, RST 28 )
+0 JPnn,       ( RST 28 )
 0 JPnn,       ( 2b, doesWord ) NOP, NOP,     ( 2e, unused )
-RAMSTART 0x4e + JPnn, ( RST 30 )
+0 JPnn,       ( RST 30 )
 0 JPnn,       ( 33, execute )  NOP, NOP,     ( unused )
-RAMSTART 0x4e + JPnn, ( RST 38 )
+0 JPnn,       ( RST 38 )
diff --git a/blk/583 b/blk/583
index a983aa4..5813dc1 100644
--- a/blk/583
+++ b/blk/583
@@ -1,4 +1,4 @@
-CREATE ~ACIA
+(entry) ~ACIA ( Set RST 38 jump ) PC ORG @ 0x39 + !
     AF PUSHqq,
     HL PUSHqq,
     DE PUSHqq,
diff --git a/blk/585 b/blk/585
index 8c25c82..323bf33 100644
--- a/blk/585
+++ b/blk/585
@@ -13,5 +13,3 @@
     EI,
     RETI,
 
-
-
diff --git a/blk/588 b/blk/588
index a570057..e3efd55 100644
--- a/blk/588
+++ b/blk/588
@@ -9,8 +9,5 @@
   CR4:2 (101) - 8 bits + 1 stop bit
   CR1:0 (10) - Counter divide: 64 )
     0b10010110 [ ACIA_CTL LITN ] PC!
-( setup interrupt )
-    0xc3 0x4e RAM+ C!  ( c3==JP, 4e==INTJUMP )
-    ~ACIA 0x4f RAM+ !
     (im1) ;