         .OUTPI ALFRES
         .ENTRY GETDIR
;SIMPLY READS A DIR ENTRY FOR THE FILE
GETDIR   LDX #D3
         LDA #.LO.DIR
         STA ADR
         LDA #.HI.DIR
         STA ADR+1
         LDA #20
         STA LEN
         LDA #0
         STA LEN+1
         JSR CGET
         RTS
