home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / libraries / dos < prev    next >
Encoding:
Text File  |  1989-04-08  |  5.1 KB  |  160 lines
  1.  
  2. EQU  MODE_READWRITE    1004
  3. EQU  MODE_READONLY     1005
  4. EQU  MODE_OLDFILE          1005
  5. EQU  MODE_NEWFILE          1006
  6.  
  7. EQU  OFFSET_BEGINNING      -1
  8. EQU  OFFSET_CURRENT         0
  9. EQU  OFFSET_END             1
  10.  
  11. EQU  OFFSET_BEGINING      OFFSET_BEGINNING
  12.  
  13. EQU  SHARED_LOCK           -2
  14. \\ EQU  ACCESS_READ           -2
  15. EQU  EXCLUSIVE_LOCK        -1
  16. EQU  ACCESS_WRITE          -1
  17.  
  18.  
  19. {s DateStamp
  20.     LONG  ds_Days
  21.     LONG  ds_Minute
  22.     LONG  ds_Tick
  23.    s}
  24.  
  25. EQU  TICKS_PER_SECOND   50
  26.  
  27. {s FileInfoBlock
  28.     LONG   fib_DiskKey
  29.     LONG   fib_DirEntryType
  30.     BYTES  108 fib_FileName
  31.     LONG   fib_Protection
  32.     LONG   fib_EntryType
  33.     LONG   fib_Size
  34.     LONG   fib_NumBlocks
  35.     STRUCT DateStamp fib_DateStamp
  36.     BYTES  116 fib_Comment
  37.    s}
  38.  
  39. EQU  FIBB_ARCHIVE    4
  40. EQU  FIBF_ARCHIVE    (1<<4)
  41. EQU  FIBB_READ       3
  42. EQU  FIBF_READ       (1<<3)
  43. EQU  FIBB_WRITE      2
  44. EQU  FIBF_WRITE      (1<<2)
  45. EQU  FIBB_EXECUTE    1
  46. EQU  FIBF_EXECUTE    (1<<1)
  47. EQU  FIBB_DELETE     0
  48. EQU  FIBF_DELETE     (1<<0)
  49.  
  50.  
  51. {s InfoData
  52.     LONG id_NumSoftErrors
  53.     LONG id_UnitNumber
  54.     LONG id_DiskState
  55.     LONG id_NumBlocks
  56.     LONG id_NumBlocksUsed
  57.     LONG id_BytesPerBlock
  58.     LONG id_DiskType
  59.     APTR id_VolumeNode
  60.     LONG id_InUse
  61.    s}
  62.  
  63. EQU  ID_WRITE_PROTECTED         80
  64. EQU  ID_VALIDATING              81
  65. EQU  ID_VALIDATED               82
  66.  
  67. EQU  ID_NO_DISK_PRESENT         -1
  68. EQU  ID_UNREADABLE_DISK      ('B'<<24)!('A'<<16)!('D'<<8)
  69. EQU  ID_NOT_REALLY_DOS       ('N'<<24)!('D'<<16)!('O'<<8)!('S')
  70. EQU  ID_DOS_DISK             ('D'<<24)!('O'<<16)!('S'<<8)
  71. EQU  ID_KICKSTART_DISK       ('K'<<24)!('I'<<16)!('C'<<8)!('K')
  72.  
  73. EQU  ERROR_NO_FREE_STORE               103
  74. EQU  ERROR_TASK_TABLE_FULL             105
  75. EQU  ERROR_LINE_TOO_LONG               120
  76. EQU  ERROR_FILE_NOT_OBJECT             121
  77. EQU  ERROR_INVALID_RESIDENT_LIBRARY    122
  78. EQU  ERROR_OBJECT_IN_USE               202
  79. EQU  ERROR_OBJECT_EXISTS               203
  80. EQU  ERROR_OBJECT_NOT_FOUND            205
  81. EQU  ERROR_ACTION_NOT_KNOWN            209
  82. EQU  ERROR_INVALID_COMPONENT_NAME      210
  83. EQU  ERROR_INVALID_LOCK                211
  84. EQU  ERROR_OBJECT_WRONG_TYPE           212
  85. EQU  ERROR_DISK_NOT_VALIDATED          213
  86. EQU  ERROR_DISK_WRITE_PROTECTED        214
  87. EQU  ERROR_RENAME_ACROSS_DEVICES       215
  88. EQU  ERROR_DIRECTORY_NOT_EMPTY         216
  89. EQU  ERROR_DEVICE_NOT_MOUNTED          218
  90. EQU  ERROR_SEEK_ERROR                  219
  91. EQU  ERROR_COMMENT_TOO_BIG             220
  92. EQU  ERROR_DISK_FULL                   221
  93. EQU  ERROR_DELETE_PROTECTED            222
  94. EQU  ERROR_WRITE_PROTECTED             223
  95. EQU  ERROR_READ_PROTECTED              224
  96. EQU  ERROR_NOT_A_DOS_DISK              225
  97. EQU  ERROR_NO_DISK                     226
  98. EQU  ERROR_NO_MORE_ENTRIES             232
  99.  
  100. EQU  RETURN_OK                           0
  101. EQU  RETURN_WARN                         5
  102. EQU  RETURN_ERROR                       10
  103. EQU  RETURN_FAIL                        20
  104.  
  105. EQU  SIGBREAKB_CTRL_C    12
  106. EQU  SIGBREAKF_CTRL_C    (1<<12)
  107. EQU  SIGBREAKB_CTRL_D    13
  108. EQU  SIGBREAKF_CTRL_D    (1<<13)
  109. EQU  SIGBREAKB_CTRL_E    14
  110. EQU  SIGBREAKF_CTRL_E    (1<<14)
  111. EQU  SIGBREAKB_CTRL_F    15
  112. EQU  SIGBREAKF_CTRL_F    (1<<15)
  113.  
  114.  
  115. \\ : DOSNAME  " dos.library"  drop  ;  ( already defined and opened )
  116.  
  117. \\ libindex: >Dos
  118.  
  119. \\ Following calls are defined in Kernel.
  120. \\ >Dos ^  -30 (r    D2 D1 r) Open   (s mode name -- fh )
  121. \\ >Dos    -36 (r       D1 r) Close  (s fh -- )
  122. \\ >Dos ^ -132 (r          r) IoErr  (s -- error )
  123. \\ >Dos ^  -42 (r D3 D2 D1 r) Read   (s len buf fh -- 'len )
  124. \\ >Dos ^  -48 (r D3 D2 D1 r) Write  (s len buf fh -- 'len )
  125. \\ >Dos ^  -66 (r D3 D2 D1 r) Seek   (s mode pos fh -- 'pos )
  126.  
  127. \\ and these two in the text loading
  128. \\ >Dos ^  -84 (r    D2 D1 r) Lock   (s type name -- lock )
  129. \\ >Dos    -90 (r       D1 r) UnLock (s lock -- )
  130.  
  131. >Dos ^ -120 (r       D1 r) CreateDir (s name -- lock )
  132. >Dos ^ -126 (r       D1 r) CurrentDir (s lock -- lock )
  133. >Dos ^  -72 (r       D1 r) DeleteFile (s name -- fl )
  134. >Dos ^  -96 (r       D1 r) DupLock (s lock -- lock  )
  135. >Dos ^ -102 (r    D2 D1 r) Examine (s fib lock -- fl )
  136. >Dos ^ -108 (r    D2 D1 r) ExNext (s fib lock -- fl )
  137. >Dos ^ -114 (r    D2 D1 r) Info   (s infodata lock -- fl )
  138. >Dos ^  -54 (r          r) Input  (s   )
  139. >Dos ^ -216 (r       D1 r) IsInteractive (s file -- fl )
  140. >Dos ^  -60 (r          r) Output (s   )
  141. >Dos ^ -210 (r       D1 r) ParentDir (s lock -- lock )
  142. >Dos ^  -78 (r    D2 D1 r) Rename (s newname oldname -- fl )
  143. >Dos ^ -180 (r    D2 D1 r) SetComment (s comment name -- fl )
  144. >Dos ^ -186 (r    D2 D1 r) SetProtection (s mask name -- fl )
  145. >Dos ^ -204 (r    D2 D1 r) WaitForChar (s timeout fh -- fl )
  146.  
  147. >Dos ^ -162 (r       D1 r) GetPacket (s wait -- pack )
  148. >Dos ^ -168 (r       D1 r) QueuePacket (s pack -- fl? )
  149.  
  150. >Dos ^ -138 (r D4 D3 D2 D1 r) CreateProc (s stack seglist pri name -- proc )
  151. >Dos ^ -192 (r       D1 r) Datestamp (s date -- date )
  152. >Dos   -198 (r       D1 r) Delay  (s timeout -- )
  153. >Dos ^ -174 (r       D1 r) DeviceProc (s name -- proc )
  154. >Dos   -144 (r       D1 r) Exit   (s retcode -- )
  155.  
  156. >Dos ^ -222 (r D3 D2 D1 r) Execute (s outfh infh comnd -- fl )
  157. >Dos ^ -150 (r       D1 r) LoadSeg (s fileName -- segment )
  158. >Dos   -156 (r       D1 r) UnLoadSeg (s segment -- )
  159.  
  160.