Add a layer of indirection for KEY

2 was overkill

blk/081

@@ -1,16 +1,16 @@
 (cont.)
-RAMSTART  INITIAL_SP    +55       EMITPTR override
+RAMSTART  INITIAL_SP           +55       (key) override
-+02       CURRENT       +57       readln's variables
++02       CURRENT              +57       readln's variables
-+04       HERE          +59       blk's variables
++04       HERE                 +59       blk's variables
-+06       C<?           +5b       z80a's variables
++06       C<?                  +5b       z80a's variables
-+08       C<* override  +5d       adev's variables
++08       C<* override         +5d       adev's variables
-+0a       PARSEPTR      +5f       FUTURE USES
++0a       PARSEPTR             +5f       FUTURE USES
-+0c       C<*           +70       DRIVERS
++0c       C<*                  +70       DRIVERS
-+0e       WORDBUF       +80       RAMEND
++0e       WORDBUF              +80       RAMEND
 +2e       BOOT C< PTR
 +4e       INTJUMP
 +51       CURRENTPTR
-+53       EMITPTR
++53       (emit) override
 
 
                                                         (cont.)

blk/359

@@ -1,4 +1,4 @@
-: KEY
+: (key)
     ( inc then fetch )
     ACIAR> @ 1+ DUP ACIA) @ = IF
         DROP ACIA( @

blk/360

@@ -12,6 +12,5 @@
 ( setup interrupt )
     0xc3 0x4e RAM+ C!  ( c3==JP, 4e==INTJUMP )
     ['] ~ACIA 0x4f RAM+ !
-    ['] (emit) 0x53 RAM+ ! ( 53==EMITPTR )
     (im1) ;
 

blk/405

@@ -1,10 +1,10 @@
 : BOOT
     0x02 RAM+ CURRENT* !
     LIT< (parse) (find) DROP (parse*) !
-    CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR)
+    CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
     0 0x08 RAM+ !  ( 08 == C<* override )
-    LIT< (emit) (find) DROP 0x53 RAM+ ! ( 53 == EMITPTR )
+    0 0x53 RAM+ !  ( 53 == (emit) override )
-    0 0x55 RAM+ !  ( 55 == EMITPTR override )
+    0 0x55 RAM+ !  ( 55 == (key) override )
     ( 0c == C<* )
     LIT< (boot<) (find) DROP 0x0c RAM+ !
     ( boot< always has a char waiting. 06 == C<?* )

blk/442

@@ -1,6 +1,6 @@
 : EMIT
-    ( 0x53==EMITPTR 0x55==override )
+    ( 0x53==(emit) override )
-    85 RAM+ @ DUP NOT IF DROP 83 RAM+ @ THEN EXECUTE ;
+    83 RAM+ @ DUP IF EXECUTE ELSE DROP (emit) THEN ;
 
 : (print)
     BEGIN

blk/454

@@ -7,9 +7,9 @@
     SPC BS
 ;
 
-
+: KEY
-
+    85 RAM+ @ ( (key) override )
-
+    DUP IF EXECUTE ELSE DROP (key) THEN ;
 
 
 ( cont.: read one char into input buffer and returns whether we

blk/493

@@ -1,4 +1,4 @@
-CODE KEY
+CODE (key)
     A 0x01 LDrn, ( @KEY )
     0x28 RSTn,
     L A LDrr, H 0 LDrn,

blk/497

@@ -0,0 +1,9 @@
+CODE @PUT ( c a -- f )
+    DE POPqq,
+    BC POPqq,
+    chkPS,
+    A 0x04 LDrn, ( @PUT )
+    0x28 RSTn,
+    PUSHZ,
+;CODE
+

emul/xcomp.fs

@@ -16,8 +16,7 @@ H@ 256 /MOD 2 PC! 2 PC!
 ( Update LATEST )
 PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
-," : (emit) 0 PC! ; CURRENT @ 83 RAM+ ! "
+," : (emit) 0 PC! ; : (key) 0 PC@ ; "
-," : KEY 0 PC@ ; "
 422 470 XPACKR
-," ' KEY 12 RAM+ ! "
+," ' (key) 12 RAM+ ! "
 H@ 256 /MOD 2 PC! 2 PC!