Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-27 12:29:27 +00:00
Code Issues Projects Releases Wiki Activity

Minor updates to OSCLI *RUN/*CAT handling

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-08-20 19:11:58 -04:00
parent f2863d1739
commit 81a2cdc7df
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

12
auxmem.oscli.s
View File

@ -183,6 +183,7 @@ STARHELP LDA #<:MSG
LDA #<:MSG2 LDA #<:MSG2
LDY #>:MSG2 LDY #>:MSG2
JSR PRSTR JSR PRSTR
* TODO: Pass on to filing system
RTS RTS
:MSG DB $0D :MSG DB $0D
ASC 'Applecorn MOS v0.01' ASC 'Applecorn MOS v0.01'
@ -193,7 +194,8 @@ STARHELP LDA #<:MSG
STARQUIT >>> XF2MAIN,QUIT STARQUIT >>> XF2MAIN,QUIT
* Handle *CAT / *. command (list directory) * Handle *CAT / *. command (list directory)
STARCAT JMP FSCCAT STARCAT LDA #$05
JMP JUMPFSCV ; Pass to filing system
* Consume spaces in command line. Treat " as space! * Consume spaces in command line. Treat " as space!
* Return C set if no space found, C clear otherwise * Return C set if no space found, C clear otherwise
@ -388,16 +390,14 @@ STARSAVE JSR CLRCB
* Handle *RUN command * Handle *RUN command
* On entry, ZP1 points to command line * On entry, ZP1 points to command line
STARRUN JSR CLRCB STARRUN LDA #$04
JUMPFSCV PHA
JSR EATSPC ; Eat leading space JSR EATSPC ; Eat leading space
BCS SRERR
JSR ADDZP1Y ; Advance ZP1 JSR ADDZP1Y ; Advance ZP1
LDX ZP1+0 LDX ZP1+0
LDY ZP1+1 LDY ZP1+1
LDA #$04 PLA
CALLFSCV JMP (FSCV) ; Hand on to filing system CALLFSCV JMP (FSCV) ; Hand on to filing system
SRERR JSR BEEP
RTS
* Clear OSFILE control block to zeros * Clear OSFILE control block to zeros
CLRCB LDA #$00 CLRCB LDA #$00