Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-31 23:30:45 +00:00
Code Issues Projects Releases Wiki Activity

Fixed OSCLI code for lang ROM service entry call

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-07-30 12:20:16 -04:00
parent 7a88ac4919
commit eea38f083e
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

9
auxmem.s
View File

@ -1162,15 +1162,18 @@ CLIHND PHX
BCS :ASKROM BCS :ASKROM
JSR STARHELP JSR STARHELP
BRA :EXIT BRA :EXIT
:ASKROM LDA ZP1 ; String in (OSLPTR),Y :ASKROM LDA $8003 ; Check service entry
CMP #$4C ; Not a JMP?
BNE :UNSUPP ; Only BASIC has no srvc entry
LDA ZP1 ; String in (OSLPTR),Y
STA OSLPTR STA OSLPTR
LDA ZP1+1 LDA ZP1+1
STA OSLPTR+1 STA OSLPTR+1
LDY #$00 LDY #$00
LDA #$04 ; Service 4 Unrecognized Cmd LDA #$04 ; Service 4 Unrecognized Cmd
LDX #$0F ; ROM slot LDX #$0F ; ROM slot
JMP $8003 ; Service entry point JSR $8003 ; Service entry point
* TODO: Do I need any extra error handling here?
:UNSUPP LDA #<:OSCLIM :UNSUPP LDA #<:OSCLIM
LDY #>:OSCLIM LDY #>:OSCLIM
JSR PRSTR JSR PRSTR