From 3107f11720cbd5dd491d37afe57e6c281381f18e Mon Sep 17 00:00:00 2001
From: jgharston <jgh@mdfs.net>
Date: Tue, 6 Dec 2022 11:45:30 +0000
Subject: [PATCH] Added *CODE, *LINE.

---
 auxmem.bytwrd.s | 5 +++--
 auxmem.oscli.s  | 6 ++++++
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/auxmem.bytwrd.s b/auxmem.bytwrd.s
index 8801c93..8bf5e46 100644
--- a/auxmem.bytwrd.s
+++ b/auxmem.bytwrd.s
@@ -417,8 +417,9 @@ GETADDR1     RTS
 * OSBYTE routines
 *****************
 
-BYTE88       LDA   #$01                   ; $88 = *CODE
-WORDE0       JMP   (USERV)                ; OSWORD &E0+
+BYTE88       LDA   #$81                   ; *CODE -> A=&01
+CMDLINE      EOR   #$80                   ; *LINE -> A=&00
+WORDE0       JMP   (USERV)                ; OSWORD &E0+ -> A=&E0+
 
 * Low OSBYTE converted into Set Variable
 BYTE02       LDA   #$F7                   ; -> &B1
diff --git a/auxmem.oscli.s b/auxmem.oscli.s
index b98323c..497c204 100644
--- a/auxmem.oscli.s
+++ b/auxmem.oscli.s
@@ -89,6 +89,9 @@ CMDFILE     ASC   'CAT'
 CMDMOS      ASC   'BASIC'
             DB    $FF
             DW    STARBASIC-1        ; BASIC  -> (LPTR)=>params
+            ASC   'CODE'
+            DB    $88
+            DW    STARBYTE-1         ; CODE   -> OSBYTE &88,X,Y  XY=>params
             ASC   'ECHO'
             DB    $FF
             DW    CMDECHO-1          ; ECHO   -> (LPTR)=>params
@@ -104,6 +107,9 @@ CMDMOS      ASC   'BASIC'
             ASC   'KEY'
             DB    $FF
             DW    STARKEY-1          ; KEY    -> (LPTR)=>params
+            ASC   'LINE'
+            DB    $80
+            DW    CMDLINE-1          ; LINE   -> XY=>params
             ASC   'QUIT'
             DB    $FF
             DW    STARQUIT-1         ; QUIT   -> (LPTR)=>params