mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-03-04 03:29:29 +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.
|
* 24-Aug-2021 Combined *LOAD and *SAVE, full address parsing.
|
||||||
* 02-Sep-2021 *LOAD/*SAVE now uses GSTRANS.
|
* 02-Sep-2021 *LOAD/*SAVE now uses GSTRANS.
|
||||||
* 12-Sep-2021 *HELP uses subject lookup, *HELP MOS, *HELP HOSTFS.
|
* 12-Sep-2021 *HELP uses subject lookup, *HELP MOS, *HELP HOSTFS.
|
||||||
|
* 25-Oct-2021 Implemented *BASIC.
|
||||||
|
|
||||||
|
|
||||||
* COMMAND TABLE
|
* COMMAND TABLE
|
||||||
@ -485,11 +486,22 @@ STARFILE EOR #$80
|
|||||||
BNE STARDONE
|
BNE STARDONE
|
||||||
JMP ERRNOTFND
|
JMP ERRNOTFND
|
||||||
|
|
||||||
STARBASIC
|
|
||||||
STARKEY
|
STARKEY
|
||||||
STARDONE RTS
|
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 <GSTRANS string>
|
||||||
************************
|
************************
|
||||||
ECHO SEC
|
ECHO SEC
|
||||||
@ -499,29 +511,3 @@ ECHOLP1 JSR GSREAD
|
|||||||
JSR OSWRCH
|
JSR OSWRCH
|
||||||
JMP ECHOLP1
|
JMP ECHOLP1
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user