shave some bytes

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
+}

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"

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