Fix #194 *FREE now works when in subdir.

auxmem.init.s

@@ -290,7 +290,7 @@ BYTE00      BEQ   BYTE00A         ; OSBYTE 0,0 - generate error
             RTS                   ; %000x1xxx host type, 'A'pple
 BYTE00A     BRK
             DB    $F7
-HELLO       ASC   'Applecorn MOS 2022-11-28'
+HELLO       ASC   'Applecorn MOS 2022-12-04'
             DB    $00             ; Unify MOS messages
 * TO DO: Move into RAM
 GSSPEED     DB    $00             ; $80 if GS is fast, $00 for slow

mainmem.svc.s

@@ -1068,7 +1068,20 @@ DRVINFO       >>>   ENTMAIN
               STA   MOSFILE+1          ; Convert "" to "@"
 :DRVINF2      JSR   PREPATH
               BCS   :EXIT
-              LDA   #<MOSFILE
+
+              LDX   #$01               ; Skip over initial '/'
+:L1           CPX   MOSFILE            ; See if end of string
+              BCS   :S1                ; If so ... we are done
+              BEQ   :S1
+              LDA   MOSFILE+1,X        ; Get char from path
+              CMP   #'/'               ; See if it is slash
+              BNE   :S2
+              STX   MOSFILE            ; If so, truncate here
+              BRA   :S1
+:S2           INX
+              BRA   :L1
+
+:S1           LDA   #<MOSFILE
               STA   GINFOPL+1
               LDA   #>MOSFILE
               STA   GINFOPL+2