fix prefix handling

src/glue.launch.a

@@ -81,8 +81,9 @@ Go
          bit   $C010                 ; forget the key that was pressed
          ldx   #1
          sec
-         !byte $24
---       clc
+         !byte $2c
+--       pha
+         clc
          php
          ldy   #0
          lda   (PTR), y
@@ -100,6 +101,7 @@ Go
 @runlength
          cpy   #$D1                  ; SMC
          bne   -
+         txa
          plp
          bcs   --
          stx   ProDOS_prefix
@@ -108,12 +110,8 @@ Go
          jsr   SetPath
          jsr   LoadFile
 
-         ldy   #0
-         lda   (namlo), y
-         tay
-         iny
-         iny
-         sty   ProDOS_prefix
+         pla
+         sta   ProDOS_prefix
 
 copy_prelaunch
          ldx   #(End_Prelaunch-Prelaunch-1)

src/glue.prorwts2.a

@@ -539,24 +539,21 @@ ProDOS_enter
     jsr    @setbuffer1
     ldy    ProDOS_prefix
     iny
-    lda    #'/'
-    bne    @append_slash
+    iny
+    tya
+    pha
+    dey
 @copy_prefix
     lda    ProDOS_prefix, y
-@append_slash
     iny
     sta    (buffer), y
     dey
     dey
-    bpl    @copy_prefix
-    tax
-    inx
-    inx
-    txa
-    iny
+    bne    @copy_prefix
+    pla
     sta    (buffer), y
-    iny
     lda    #'/'
+    iny
     sta    (buffer), y
     bne    @jmp_zp2