home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / PASLIBR.ZIP / FPDOS2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-15  |  5.9 KB  |  148 lines
  1. {------------------------------------------------------------}
  2. {-     FlashPac Pascal Library (Dos2 Unit) - V3.5        -}
  3. {-    (c) Copyright 1986-1991 - All Rights Reserved        -}
  4. {-                     SimpleSoft Inc                       -}
  5. {-                     1209 Poplar St                       -}
  6. {-                 La Crescent, MN 55947                    -}
  7. {------------------------------------------------------------}
  8.  
  9. Unit FPDos2;
  10. Interface
  11. {$B-,F+}
  12. {$IFNDEF VER40}
  13. {D-}
  14. {$ENDIF}
  15.  
  16. {--------------------------------------------------------------------}
  17.  
  18. Procedure dDiskReset;
  19. Function  dSelectDisk( Drive : Integer ) : Integer;
  20. Function  dGetCurrentDisk : Integer;
  21. Procedure dSetDta( Segment, Offset : Word );
  22.  
  23. Function  dGetDriveData(     Drive      : Integer;
  24.                          Var Sectors    : Word;
  25.                          Var MediaSeg   : Word;
  26.                          Var MediaOfs   : Word;
  27.                          Var SectorSize : Word;
  28.                          Var Clusters   : Word ) : Boolean;
  29.  
  30. Procedure dSetInt( Int, Segment, Offset : Word );
  31. Procedure dCreateNewPsp( Segment : Word );
  32.  
  33. Procedure dGetDate( Var Month   : Integer;
  34.                     Var Day     : Integer;
  35.                     Var Year    : Integer;
  36.                     Var DayOfWk : Integer );
  37.  
  38. Function dSetDate( Month   : Integer;
  39.                    Day     : Integer;
  40.                    Year    : Integer ) : Boolean;
  41.  
  42. Procedure dGetTime( Var Hour       : Integer;
  43.                     Var Minute     : Integer;
  44.                     Var Seconds    : Integer;
  45.                     Var Hundredths : Integer );
  46.  
  47. Procedure dSetTime( Hour       : Integer;
  48.                     Minute     : Integer;
  49.                     Seconds    : Integer;
  50.                     Hundredths : Integer );
  51.  
  52. Procedure dSetVerifyFlag( VerifyOpt : Integer );
  53. Procedure dGetDta( Var Segment, Offset : Word );
  54.  
  55. Procedure dGetVersion( Var Major  : Integer;
  56.                        Var Minor  : Integer );
  57.  
  58. Function  dGetBreakStatus : Boolean;
  59. Procedure dSetBreakFlag( Flag : Boolean );
  60.  
  61. Procedure dGetBusyFlag( Var Segment, Offset : Word );
  62.  
  63. Procedure dGetIntVec(     dInt : Word;
  64.                       Var dSeg : Word;
  65.                       Var dOfs : Word );
  66.  
  67.  
  68. Function dGetDrvAllocInfo(    Drive         : Word;
  69.                           Var Sectors       : Word;
  70.                           Var AvailClusters : Word;
  71.                           Var BytesInSector : Word;
  72.                           Var TotalClusters : Word ) : Boolean;
  73.  
  74. Function dMkDir( Path : String ) : Integer;
  75. Function dRmDir( Path : String ) : Integer;
  76. Function dChDir( Path : String ) : Integer;
  77.  
  78. Function dCreateFile(     FileSpec : String;
  79.                           Attr     : Integer;
  80.                       Var Handle   : Integer ) : Integer;
  81.  
  82. Function dOpenFile(     FileSpec : String;
  83.                         Mode     : Integer;
  84.                     Var Handle   : Integer ) : Integer;
  85.  
  86. Function dCloseFile( Handle : Integer ) : Integer;
  87.  
  88. Function dReadFile(     Handle    : Integer;
  89.                         NBytes    : Word;
  90.                     Var Buffer      ;
  91.                     Var BytesRead : Word ) : Integer;
  92.  
  93. Function dWriteFile(     Handle       : Integer;
  94.                          NBytes       : Word;
  95.                      Var Buffer         ;
  96.                      Var BytesWritten : Word ) : Integer;
  97.  
  98. Function dDelFile( FileSpec : String ) : Integer;
  99.  
  100. {--------------------------------------------------------------------}
  101. {-                                                                  -}
  102. {--------------------------------------------------------------------}
  103.  
  104. Implementation
  105.  
  106. Const
  107.    Copyright1 = 'FlashPac Dos Lib (Pascal) - V3.5';
  108.    Copyright2 = '(c) Copyright 1986-1991 - All Rights Reserved';
  109.    Copyright3 = 'SimpleSoft, Inc.';
  110.    Copyright4 = '1209 Poplar St';
  111.    Copyright5 = 'La Crescent, MN 55947';
  112.    Copyright6 = '(507) 895-8237';
  113.  
  114. {$L dos2\d210D00d }  Procedure dDiskReset;               External;
  115. {$L dos2\d210E00d }  Function  dSelectDisk;              External;
  116. {$L dos2\d211900d }  Function  dGetCurrentDisk;          External;
  117. {$L dos2\d211A00d }  Procedure dSetDta;                  External;
  118. {$L dos2\d211C00d }  Function  dGetDriveData;            External;
  119. {$L dos2\d2125xxd }  Procedure dSetInt;                  External;
  120. {$L dos2\d212600d }  Procedure dCreateNewPsp;            External;
  121. {$L dos2\d212A00d }  Procedure dGetDate;                 External;
  122. {$L dos2\d212B00d }  Function  dSetDate;                 External;
  123. {$L dos2\d212C00d }  Procedure dGetTime;                 External;
  124. {$L dos2\d212D00d }  Procedure dSetTime;                 External;
  125. {$L dos2\d212E00d }  Procedure dSetVerifyFlag;           External;
  126. {$L dos2\d212F00d }  Procedure dGetDta;                  External;
  127. {$L dos2\d213000d }  Procedure dGetVersion;              External;
  128. {$L dos2\d213300d }  Function  dGetBreakStatus;          External;
  129. {$L dos2\d213301d }  Procedure dSetBreakFlag;            External;
  130. {$L dos2\d213400u }  Procedure dGetBusyFlag;             External;
  131. {$L dos2\d2135xxd }  Procedure dGetIntVec;               External;
  132. {$L dos2\d213600d }  Function  dGetDrvAllocInfo;         External;
  133. {$L dos2\d213900d }  Function  dMkDir;                   External;
  134. {$L dos2\d213A00d }  Function  dRmDir;                   External;
  135. {$L dos2\d213B00d }  Function  dChDir;                   External;
  136. {$L dos2\d213C00d }  Function  dCreateFile;              External;
  137. {$L dos2\d213D00d }  Function  dOpenFile;                External;
  138. {$L dos2\d213E00d }  Function  dCloseFile;               External;
  139. {$L dos2\d213F00d }  Function  dReadFile;                External;
  140. {$L dos2\d214000d }  Function  dWriteFile;               External;
  141. {$L dos2\d214100d }  Function  dDelFile;                 External;
  142.  
  143. {--------------------------------------------------------------------}
  144.  
  145. Begin
  146. end.
  147. 
  148.