From f7de3777ee8ed954b3bab25b709a8d0636992b30 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Fri, 18 Jun 2021 20:54:26 -0400
Subject: [PATCH] shave some bytes

---
 src/harddisk.a | 5 +++--
 src/passport.a | 6 ++----
 src/rwts.a     | 2 +-
 3 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/harddisk.a b/src/harddisk.a
index b574286..67f6431 100644
--- a/src/harddisk.a
+++ b/src/harddisk.a
@@ -123,7 +123,7 @@ CreateFileOnHardDisk
 ; in:    @HardDiskImagePath is populated and has non-zero length
 ; out:   all registers and flags clobbered
 ;-------------------------------
-PrintHardDiskImagePath
+!macro PrintHardDiskImagePath {
          lda   HardDiskImagePath
          sta   @volumelen
          ldx   #0
@@ -135,4 +135,5 @@ PrintHardDiskImagePath
          cpx   #$FD       ; SMC
          bcc   -
          lda   #$8D
-         jmp   PrintA
+         jsr   PrintA
+}
diff --git a/src/passport.a b/src/passport.a
index 5920d2b..41c88dc 100755
--- a/src/passport.a
+++ b/src/passport.a
@@ -40,16 +40,13 @@ VERBOSE  = $00       ; set to $01 to display API label addresses
 !to "../build/PASSPORT.TMP",plain
 !ct "lcase.ct"
 
-         ; no code in these
-         !source "apidefs.a"
-         !source "prefs.save.a"
-
 Relocatable
          jmp   MainMenu
 
          !bin "../build/t00only.pak"
 
 NonRelocatable
+         !source "apidefs.a"
          !source "strings/en.a"
          !source "id/inspect0.a"
          !source "id/precheck.a"
@@ -98,6 +95,7 @@ NonRelocatable
          !source "harddisk.a"
          !source "slots.a"
          !source "prefs.a"
+         !source "prefs.save.a"
          !source "keys.a"
          !source "cffa.a"
          !source "progress.a"
diff --git a/src/rwts.a b/src/rwts.a
index c9eb165..a69ddcb 100755
--- a/src/rwts.a
+++ b/src/rwts.a
@@ -183,7 +183,7 @@ WriteTrackNA                         ; entry point used by Special Delivery trac
          beq   @maybeWritingToRAMDisk
          ; we are writing to a file on a hard disk, so print the
          ; full pathname of that file
-         jsr   PrintHardDiskImagePath
+         +PrintHardDiskImagePath
          bvc   @doneSaidWriting      ; always branches
 
 @maybeWritingToRAMDisk