From 3360d44dd783447b584f50bb48e3015def38fdb2 Mon Sep 17 00:00:00 2001
From: Joshua Bell <inexorabletash@gmail.com>
Date: Mon, 1 Jan 2024 19:35:14 -0800
Subject: [PATCH] COPY: Preserve file modification time

Fixes #4
---
 copy.cmd.s | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/copy.cmd.s b/copy.cmd.s
index 363d8ec..8b45228 100644
--- a/copy.cmd.s
+++ b/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