[Back to DOS SWAG index]  [Back to Main SWAG index]  [Original]

{ Try the DOS GetAttr function (Also faster than findfirst) }

  { test to see if file exists }
  function fIsFileP(SrcPath:pchar):boolean;
  inline({get fattr, dos 2.0+}
    $5A/                        { pop   dx             }
    $58/                        { pop   ax             }
    $1E/                        { push  ds             }
    $8E/$D8/                    { mov   ds,ax          }
    $B8/$00/$43/                { MOV   AX,4300h       }
    $CD/$21/                    { int   21h            }
    $1F/                        { pop   ds             }
    $72/$08/                    { JC    +8             }
    $B8/$01/$00/                { MOV   AX,1           }
    $F6/$C1/$10/                { TEST  CL,faDirectory }
    $74/$02/                    { JE    +2             }
    $31/$C0);                   { xor   ax,ax          }

BEGIN
  WriteLn(FisFIleP('\turbo\bp.exe'));
END.

[Back to DOS SWAG index]  [Back to Main SWAG index]  [Original]