mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-03-03 11:32:14 +00:00
Merge PR 137 'Implemented *BASIC'
This commit is contained in:
parent
cbbbaf684c
commit
96b94ab03b
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user