home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Rtl / Sys / FILEIO.ASM < prev    next >
Encoding:
Assembly Source File  |  1999-08-11  |  1.7 KB  |  91 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *     Delphi Runtime Library                          *
  5. ; *    File I/O definitions for 386 RTL        *
  6. ; *                            *
  7. ; *    Copyright (c) 1996,98 Inprise Corporation    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11. ; File modes
  12.  
  13. fmClosed     EQU    0D7B0H;
  14. fmInput     EQU    0D7B1H;
  15. fmOutput     EQU    0D7B2H;
  16. fmInOut      EQU    0D7B3H;
  17.  
  18.  
  19. ; ASCII equates
  20.  
  21. bell        EQU    07H
  22. bs        EQU    08H
  23. tab        EQU    09H
  24. lf        EQU    0AH
  25. cr        EQU    0DH
  26. eof        EQU    1AH
  27. del        EQU    7FH
  28.  
  29.  
  30. ; Maximum length of a file name
  31.  
  32. fNameLen    EQU    260
  33.  
  34. TextRec    STRUC
  35. Handle        DD    (?)            ;  0
  36. Mode        DD    (?)            ;  4
  37. BufSize        DD    (?)            ;  8
  38. BufPos        DD    (?)            ; 12
  39. BufEnd        DD    (?)            ; 16
  40. BufPtr        DD    (?)            ; 20
  41. OpenFunc    DD    (?)            ; 24
  42. InOutFunc    DD    (?)            ; 28
  43. FlushFunc    DD    (?)            ; 32
  44. CloseFunc    DD    (?)            ; 36
  45. UserData    DB    32 DUP (?)        ; 40
  46. FileName    DB    fNameLen DUP (?)    ; 72
  47. Buffer        DB    128 DUP (?)        ;332
  48. TextRec    ENDS                    ;460
  49.  
  50. FileRec    STRUC
  51. Handle        DD    (?)            ;  0
  52. Mode        DD    (?)            ;  4
  53. RecSize        DD    (?)            ;  8
  54. Private        DB    28 DUP (?)        ; 12
  55. UserData    DB    32 DUP (?)        ; 40
  56. FileName    DB    fNameLen DUP (?)    ; 72
  57. FileRec    ENDS                    ;332
  58.  
  59. ; constants for NT GetStdHandle
  60.  
  61. STD_INPUT_HANDLE    EQU    -10
  62. STD_OUTPUT_HANDLE    EQU    -11
  63. STD_ERROR_HANDLE    EQU    -12
  64.  
  65. ; constants for NT OpenFile
  66.  
  67. OF_CREATE        EQU    00001000H
  68. OF_READ            EQU    00000000H
  69. OF_WRITE        EQU    00000001H
  70.  
  71. ; constants for NT SetFilePointer
  72.  
  73. FILE_BEGIN        EQU    0
  74. FILE_CURRENT        EQU    1
  75. FILE_END        EQU    2
  76.  
  77. ; constants for NT CreateFile
  78.  
  79. GENERIC_READ        EQU    80000000H
  80. GENERIC_WRITE        EQU    40000000H
  81.  
  82. FILE_SHARE_READ        EQU    00000001H
  83. FILE_SHARE_WRITE    EQU    00000002H
  84.  
  85. CREATE_ALWAYS        EQU    2
  86. OPEN_EXISTING        EQU    3
  87.  
  88. FILE_ATTRIBUTE_NORMAL    EQU    00000080H
  89.  
  90.  
  91.