Add LOCK/UNLOCK commands. Costs 55 bytes.

Author: inexorabletash

README.md

@@ -16,6 +16,7 @@ This is a version of Steve Wozniak's Integer BASIC for the Apple II, with a wrap
    * `BSAVE path,A<address>,L<length>"` saves a `BIN` file.
    * `BLOAD path[,A<address>]"` loads a `BIN` file.
    * `BRUN path[,A<address>]"` runs a `BIN` file.
+   * `LOCK path` and `UNLOCK path` lock/unlock the specified file.
    * `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

@@ -670,7 +670,7 @@ dispatch:
 syn:    ldy     #<intbasic::ErrMsg02 ;"SYNTAX"
         jmp     intbasic::ERRMESS
 
-NUM_CMDS = 15
+NUM_CMDS = 17
 
 cmdtable:
         scrcode "RUN"           ; must be 0 for special handling
@@ -703,14 +703,18 @@ cmdtable:
         .byte   0
         scrcode "NOMON"
         .byte   0
+        scrcode "LOCK"
+        .byte   0
+        scrcode "UNLOCK"
+        .byte   0
         .byte   0               ; sentinel
 
         MonCmd := 0             ; ignored
         NomonCmd := 0
 cmdproclo:
-        .byte   <RunCmd,<QuitCmd,<SaveCmd,<LoadCmd,<PrefixCmd,<CatCmd,<CatCmd,<DeleteCmd,<RenameCmd,<BSaveCmd,<BLoadCmd,<BRunCmd,<PRCmd,<MonCmd,<NomonCmd
+        .byte   <RunCmd,<QuitCmd,<SaveCmd,<LoadCmd,<PrefixCmd,<CatCmd,<CatCmd,<DeleteCmd,<RenameCmd,<BSaveCmd,<BLoadCmd,<BRunCmd,<PRCmd,<MonCmd,<NomonCmd,<LockCmd,<UnlockCmd
 cmdprochi:
-        .byte   >RunCmd,>QuitCmd,>SaveCmd,>LoadCmd,>PrefixCmd,>CatCmd,>CatCmd,>DeleteCmd,>RenameCmd,>BSaveCmd,>BLoadCmd,>BRunCmd,>PRCmd,>MonCmd,>NomonCmd
+        .byte   >RunCmd,>QuitCmd,>SaveCmd,>LoadCmd,>PrefixCmd,>CatCmd,>CatCmd,>DeleteCmd,>RenameCmd,>BSaveCmd,>BLoadCmd,>BRunCmd,>PRCmd,>MonCmd,>NomonCmd,>LockCmd,>UnlockCmd
         .assert * - cmdproclo = NUM_CMDS * 2, error, "table size"
 
 cmdparse:
@@ -729,6 +733,8 @@ cmdparse:
         .byte   ParseFlags::slotnum                     ; PR#
         .byte   ParseFlags::ignore                      ; MON
         .byte   ParseFlags::ignore                      ; NOMON
+        .byte   ParseFlags::path                        ; LOCK
+        .byte   ParseFlags::path                        ; UNLOCK
         .assert * - cmdparse = NUM_CMDS, error, "table size"
 
 parse_flags:
@@ -1433,6 +1439,32 @@ finish:
 run:    jmp     (rw_data_buffer)
 .endproc ; BRunCmd
 
+;;; ============================================================
+;;; "LOCK path" and "UNLOCK path"
+
+.proc LockCmd
+        jsr     GetFileInfo
+        bne     ret
+
+        lda     gfi_access
+        and     #%00111101      ; clear destroy, rename, write
+store:  sta     gfi_access
+
+        lda     #7              ; param count for SET_FILE_INFO
+        sta     gfi_param_count
+        MLI_CALL SET_FILE_INFO, gfi_params
+ret:    rts
+.endproc ; LockCmd
+
+.proc UnlockCmd
+        jsr     GetFileInfo
+        bne     LockCmd::ret
+
+        lda     gfi_access
+        ora     #%11000010      ; set destroy, rename, write
+        bne     LockCmd::store  ; always
+.endproc ; UnlockCmd
+
 ;;; ============================================================
 ;;; "PR#<slot>"
 

res/TESTS.INT

@@ -68,7 +68,7 @@ NEW
 343 PRINT D$;"BSAVE BIN,V254,A8192,L1"
 344 A=1 : GOSUB 10000
 
-350 TEST$ = "Leading spaves"
+350 TEST$ = "Leading spaces"
 351 PRINT D$;" BSAVE BIN,A8192,L1"
 352 A=1 : GOSUB 10000
 
@@ -113,6 +113,15 @@ NEW
 473 PRINT D$;"NOMONICO"
 474 A=1 : GOSUB 10000
 
+480 TEST$ = "LOCK"
+481 PRINT D$;"BSAVE BIN,A8192,L1"
+482 PRINT D$;"LOCK BIN"
+483 A=1 : GOSUB 10000
+
+490 TEST$ = "UNLOCK"
+491 PRINT D$;"UNLOCK BIN"
+492 A=1 : GOSUB 10000
+
 
 9000 REM ******************************
 9001 REM CLEANUP