Add - (dash) command for INT/BIN/SYS files

Author: inexorabletash

README.md

@@ -19,6 +19,7 @@ This is a version of Steve Wozniak's Integer BASIC for the Apple II, with a wrap
    * `BRUN path[,A<address>]"` runs a `BIN` file.
    * `LOCK path` and `UNLOCK path` lock/unlock the specified file.
    * `STORE path` and `RESTORE path` save/load variables to the specified `IVR` file.
+   * `-path` runs `INT`, `BIN` or `SYS` files
    * `BYE` exits back to ProDOS.
 
 2. When invoked as an "interpreter" for an `INT` file from a program selector (such as [Bitsy Bye](https://prodos8.com/bitsy-bye/) or [Apple II DeskTop](https://a2desktop.com)), the file is loaded and executed.

intbasic.system.s

@@ -684,7 +684,7 @@ message:
         scrcode "*** PRODOS ERR $"
         .byte   0
 
-NUM_CMDS = 20
+NUM_CMDS = 21
 
 cmdtable:
         scrcode "RUN"           ; must be 0 for special handling
@@ -727,14 +727,16 @@ cmdtable:
         .byte   0
         scrcode "RESTORE"
         .byte   0
+        scrcode "-"
+        .byte   0
         .byte   0               ; sentinel
 
         MonCmd := 0             ; ignored
         NomonCmd := 0
 cmdproclo:
-        .byte   <RunCmd,<QuitCmd,<SaveCmd,<LoadCmd,<ChainCmd,<PrefixCmd,<CatCmd,<CatCmd,<DeleteCmd,<RenameCmd,<BSaveCmd,<BLoadCmd,<BRunCmd,<PRCmd,<MonCmd,<NomonCmd,<LockCmd,<UnlockCmd,<StoreCmd,<RestoreCmd
+        .byte   <RunCmd,<QuitCmd,<SaveCmd,<LoadCmd,<ChainCmd,<PrefixCmd,<CatCmd,<CatCmd,<DeleteCmd,<RenameCmd,<BSaveCmd,<BLoadCmd,<BRunCmd,<PRCmd,<MonCmd,<NomonCmd,<LockCmd,<UnlockCmd,<StoreCmd,<RestoreCmd,<DashCmd
 cmdprochi:
-        .byte   >RunCmd,>QuitCmd,>SaveCmd,>LoadCmd,>ChainCmd,>PrefixCmd,>CatCmd,>CatCmd,>DeleteCmd,>RenameCmd,>BSaveCmd,>BLoadCmd,>BRunCmd,>PRCmd,>MonCmd,>NomonCmd,>LockCmd,>UnlockCmd,>StoreCmd,>RestoreCmd
+        .byte   >RunCmd,>QuitCmd,>SaveCmd,>LoadCmd,>ChainCmd,>PrefixCmd,>CatCmd,>CatCmd,>DeleteCmd,>RenameCmd,>BSaveCmd,>BLoadCmd,>BRunCmd,>PRCmd,>MonCmd,>NomonCmd,>LockCmd,>UnlockCmd,>StoreCmd,>RestoreCmd,>DashCmd
         .assert * - cmdproclo = NUM_CMDS * 2, error, "table size"
 
 cmdparse:
@@ -758,6 +760,7 @@ cmdparse:
         .byte   ParseFlags::path                        ; UNLOCK
         .byte   ParseFlags::path                        ; STORE
         .byte   ParseFlags::path                        ; RESTORE
+        .byte   ParseFlags::path                        ; -
         .assert * - cmdparse = NUM_CMDS, error, "table size"
 
 parse_flags:
@@ -1142,19 +1145,6 @@ ret:    rts
 ret:    rts
 .endproc ; LoadCmd
 
-;;; ============================================================
-;;; "RUN pathname"
-
-.proc RunCmd
-        jsr     LoadINTFile
-        bne     LoadCmd::ret
-
-        jsr     SwapZP          ; ProDOS > IntBASIC
-        LDXY    intbasic::LOMEM ; reset vars
-        STXY    intbasic::PV
-        jmp     intbasic::RUN
-.endproc ; RunCmd
-
 ;;; ============================================================
 ;;; "STORE pathname"
 
@@ -1508,6 +1498,48 @@ finish:
         rts
 .endproc ; LoadBINFile
 
+;;; ============================================================
+;;; "-<file>"
+
+.proc DashCmd
+        jsr     GetFileInfo
+        bne     ret
+        lda     gfi_file_type
+        cmp     #FT_BIN
+        beq     BRunCmd
+        cmp     #FT_INT
+        beq     RunCmd
+        cmp     #FT_SYS
+        bne     err
+
+        LDXY    CSWHook__orig
+        STXY    CSWL
+
+        LDXY    #$2000
+        STXY    rw_data_buffer
+        LDXY    #$FFFF          ; read everything
+        STXY    rw_request_count
+        jsr     OpenReadClose
+        bne     ret
+        jmp     $2000
+
+err:    lda     #ERR_INCOMPATIBLE_FILE_FORMAT
+ret:    rts
+.endproc ; DashCmd
+
+;;; ============================================================
+;;; "RUN pathname"
+
+.proc RunCmd
+        jsr     LoadINTFile
+        bne     DashCmd::ret
+
+        jsr     SwapZP          ; ProDOS > IntBASIC
+        LDXY    intbasic::LOMEM ; reset vars
+        STXY    intbasic::PV
+        jmp     intbasic::RUN
+.endproc ; RunCmd
+
 ;;; ============================================================
 ;;; "BRUN pathname[,A<address>]"
 

res/tests.txt

@@ -180,6 +180,13 @@ NEW
 506 TEST$ = "STORE/RESTORE #2"
 507 A=(E=5678) : GOSUB VERIFY
 
+510 TEST$ = "- (dash)"
+511 RTS = 96 : POKE 8192,RTS
+512 PRINT D$;"BSAVE BIN,A8192,L1"
+513 POKE 8192,0
+514 PRINT D$;"-BIN"
+515 A = PEEK(8192) = RTS : GOSUB VERIFY
+
 9000 REM ******************************
 9001 REM CLEANUP
 9002 REM ******************************