Merge PR 137 'Implemented *BASIC'

2021-10-25 20:01:10 -04:00 · 2021-10-25 20:01:10 -04:00 · 96b94ab03b
parent cbbbaf684c
commit 96b94ab03b
2 changed files with 13 additions and 27 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.oscli.s
+++ b/auxmem.oscli.s
@ -8,6 +8,7 @@
 * 24-Aug-2021 Combined *LOAD and *SAVE, full address parsing.
 * 02-Sep-2021 *LOAD/*SAVE now uses GSTRANS.
 * 12-Sep-2021 *HELP uses subject lookup, *HELP MOS, *HELP HOSTFS.
+* 25-Oct-2021 Implemented *BASIC.


 * COMMAND TABLE
@ -485,11 +486,22 @@ STARFILE    EOR   #$80
            BNE   STARDONE
            JMP   ERRNOTFND

-STARBASIC
 STARKEY
 STARDONE    RTS


+* *BASIC
+********
+STARBASIC   LDX   MAXROM
+:BASICLP    JSR   ROMSELECT
+            BIT   $8006
+            BPL   :BASICGO           ; No service, must be BASIC
+            DEX
+            BPL   :BASICLP
+            JMP   ERRBADCMD          ; No BASIC, give an error
+:BASICGO    JMP   BYTE8E
+
+
 * *ECHO <GSTRANS string>
 ************************
 ECHO        SEC
@ -499,29 +511,3 @@ ECHOLP1     JSR   GSREAD
            JSR   OSWRCH
            JMP   ECHOLP1

-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-