Shave 2 bytes from PATH

Fixes #4

copy.cmd.s

@@ -197,6 +197,18 @@ read:   lda     FN1REF
 
 
 finish: jsr     CloseFiles
+
+        ;; Apply FN1 info to FN2 to preserve modification date
+        ldx     #$D - 3
+:       lda     FN1INFO+3,x
+        sta     SSGINFO+3,x
+        dex
+        bpl     :-
+        lda     #$7
+        sta     SSGINFO
+        lda     #SET_FILE_INFO
+        jsr     GOSYSTEM
+
         clc
         rts
 

path.s

@@ -171,16 +171,15 @@ nxtchr: jsr     ToUpperASCII
         lda     #>execute
         sta     XTRNADDR+1
 
-        ;; Mark command as external (zero).
-        lda     #0
-        sta     XCNUM
-
         ;; Set accepted parameter flags (optional name)
         lda     #PBitsFlags::FNOPT | PBitsFlags::FN1
         sta     PBITS
         lda     #0
         sta     PBITS+1
 
+        ;; Mark command as external (zero).
+        sta     XCNUM           ; A=0 from above
+
         clc                     ; Success (so far)
         rts                     ; Return to BASIC.SYSTEM