Add TOUCH command

COMMANDS

@@ -9,3 +9,4 @@ echo
 hello
 online
 type
+touch

README.md

@@ -44,6 +44,7 @@ Sample commands included:
 * `ONLINE` - lists online volumes (volume name, slot and drive)
 * `COPY` - copy a single file, e.g. `copy /path/to/file,dstfile`
 * `TYPE` - show file contents (TXT, BAS, or BIN/other), e.g. `type filename`
+* `TOUCH` - apply current ProDOS date/time to a file's modification time, e.g. `touch filename`
 * `DATE` - prints the current ProDOS date and time
 * `CHTYPE` - change the type/auxtype of a file, e.g. `chtype file,T$F1,A$1234`
     * `T` (type) and `A` (auxtype) are optional. If neither is specified, current types are shown.

cd.cmd.s

@@ -27,7 +27,6 @@
         ;; Point BI's parser at the command execution routine.
         lda     #<execute
         sta     XTRNADDR
-        page_num2 := *+1         ; address needing updating
         lda     #>execute
         sta     XTRNADDR+1
 

chtime.cmd.s

@@ -24,7 +24,6 @@
         ;; Point BI's parser at the command execution routine.
         lda     #<execute
         sta     XTRNADDR
-        page_num2 := *+1         ; address needing updating
         lda     #>execute
         sta     XTRNADDR+1
 

chtype.cmd.s

@@ -25,7 +25,6 @@
         ;; Point BI's parser at the command execution routine.
         lda     #<execute
         sta     XTRNADDR
-        page_num2 := *+1         ; address needing updating
         lda     #>execute
         sta     XTRNADDR+1
 

copy.cmd.s

@@ -21,7 +21,6 @@
         ;; Point BI's parser at the command execution routine.
         lda     #<execute
         sta     XTRNADDR
-        page_num2 := *+1         ; address needing updating
         lda     #>execute
         sta     XTRNADDR+1
 

touch.cmd.s

@@ -0,0 +1,63 @@
+;;; ============================================================
+;;;
+;;; TOUCH - Apply current ProDOS date/time stamp to file
+;;;
+;;; Usage: TOUCH filename[,S#][,D#]
+;;;
+;;;  * filename can be relative or absolute path
+;;;
+;;; ============================================================
+
+        .include "apple2.inc"
+        .include "more_apple2.inc"
+        .include "prodos.inc"
+
+;;; ============================================================
+
+        .org $4000
+
+        ;; Point BI's parser at the command execution routine.
+        lda     #<execute
+        sta     XTRNADDR
+        lda     #>execute
+        sta     XTRNADDR+1
+
+        ;; Mark command as external (zero).
+        lda     #0
+        sta     XCNUM
+
+        ;; Set accepted parameter flags
+
+        ;; Filename
+        lda     #PBitsFlags::FN1
+        sta     PBITS
+
+        ;; Slot & Drive handling
+        lda     #PBitsFlags::SD
+        sta     PBITS+1
+
+        clc                     ; Success (so far)
+rts1:   rts                     ; Return to BASIC.SYSTEM
+
+;;; ============================================================
+
+execute:
+        ;; Get the existing file info
+        lda     #$A
+        sta     SSGINFO
+        lda     #GET_FILE_INFO
+        jsr     GOSYSTEM
+        bcs     rts1
+
+        ;; Apply time/date stamp
+        ldx     #3
+:       lda     DATE,x
+        sta     FIMDATE,x
+        dex
+        bpl     :-
+
+        ;; Set new file info
+        lda     #$7
+        sta     SSGINFO
+        lda     #SET_FILE_INFO
+        jmp     GOSYSTEM

type.cmd.s

@@ -21,7 +21,6 @@
         ;; Point BI's parser at the command execution routine.
         lda     #<execute
         sta     XTRNADDR
-        page_num2 := *+1         ; address needing updating
         lda     #>execute
         sta     XTRNADDR+1