*RUN / OSFSC(A=&04) enhancements. More to come.

2024-06-25 15:29:37 +00:00 · 2021-08-18 21:02:07 -04:00 · 2021-08-18 21:02:07 -04:00 · bb7a41000e
commit bb7a41000e
parent 86c0e2bf54
3 changed files with 15 additions and 2 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@ -320,7 +320,15 @@ FSCHND      CMP   #$00
            BEQ   FSCCAT              ; A=10 - *INFO
            CMP   #$0C
            BEQ   FSCREN              ; A=12 - *RENAME
-FSCRUN
+
+FSCRUN      STX   OSFILECB            ; Pointer to filename
+            STY   OSFILECB+1
+            LDA   #$FF                ; OSFILE load flag
+            STA   OSFILECB+6          ; Use file's address
+            LDX   #<OSFILECB          ; Pointer to control block
+            LDY   #>OSFILECB
+            JSR   OSFILE
+            RTS
 FSCREN
            LDA   #<OSFSCM
            LDY   #>OSFSCM
--- a/auxmem.oscli.s
+++ b/auxmem.oscli.s
@ -388,11 +388,16 @@ STARSAVE    JSR   CLRCB

 * Handle *RUN command
 * On entry, ZP1 points to command line
-STARRUN     JSR   ADDZP1Y
+STARRUN     JSR   CLRCB
+            JSR   EATSPC        ; Eat leading space
+            BCS   SRERR
+            JSR   ADDZP1Y       ; Advance ZP1
            LDX   ZP1+0
            LDY   ZP1+1
            LDA   #$04
 CALLFSCV    JMP   (FSCV)        ; Hand on to filing system
+SRERR       JSR   BEEP
+            RTS

 * Clear OSFILE control block to zeros
 CLRCB       LDA   #$00