         .OUTPI ALFRES
         .ENTRY VALPTH
WILD   .BYTE "*.*",$9B
;Validate the pathname
VALPTH   JSR LOCEND ;Find end of file
         BCC VAL001
         RTS         ;Failed, it's no good
VAL001   DEX
VAL002   LDA OUTDIR,X  ;Look back to find > or :
         CMP #">"
         BEQ VAL003
         CMP #":"
         BEQ VAL003
         DEX
         BPL VAL002
         SEC         ;Invalid pathname
         RTS
VAL003   LDY #0
         INX
         LDA OUTDIR,X  ;Did he give a msk
         CMP #$9B
         BEQ VAL004
         CMP #32
         BEQ VAL004
         CLC
         RTS
VAL004   LDA WILD,Y
         STA OUTDIR,X
         INX
         INY
         CPY #4
         BCC VAL004
         CLC
         RTS
;
LOCEND   LDX #0
LOC001   LDA OUTDIR,X
         CMP #$9B
         BEQ LOC002
         INX
         BPL LOC001
         SEC
         RTS
LOC002   CLC
         RTS
