开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
rtps.inc
资源名称：DOS系统的源代码.rar　[点击查看]
上传用户：xiaoan1112
上传日期：2013-04-11
资源大小：19621k
文件大小：7k
源码类别：

操作系统开发

开发平台：

Visual C++

rtps.inc：源码内容
  1. ;***
  2. ; rtps.inc - 04-Aug-87
  3. ;***
  4. ; Copyright <C> 1987, Microsoft Corporation
  5. ;
  6. ;Purpose:
  7. ; This include file contains runtime constants needed by both the
  8. ; runtime and QBI.  This file, along with fdb.inc, array.inc, and
  9. ; messages.inc is part of a runtime "release" to QBI.
  10. ;
  11. ; WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING:
  12. ; WARNING:
  13. ; WARNING:  When making changes to this file, be sure to make equivalent
  14. ; WARNING:  changes to file rtps.h
  15. ; WARNING:
  16. ; WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING:
  17. ;
  18. ;******************************************************************************
  20. RTPS_INC = -1 ;remember that this file has been included
  22. ;==============================================================================
  23. ;
  24. ;QBI version & format revision constants (used by U.L. code & Binary SAVE/LOAD)
  25. ;   The version word is now a family id, it indicates what "family" the saving
  26. ;   product belongs to.  The revision byte indicates the revision of the
  27. ;   product within its family.
  32. BINSAV_BASICVersion EQU 0001h ;[15] BASIC version number for QB 4.5
  33. BINSAV_REVISION_BYTE EQU 00h ;[15] format revision byte
  34. QLB_BASICVersion EQU 0000h ;[16] BASIC version no. for QB 4.x QLB's
  35. QLB_REVISION_BYTE EQU 13h ;[16] QuickLib format revision byte
  37. ;Log of when BINSAV_REVISION_BYTE was changed:
  38. ;Date Changed To Reason
  39. ;------------------------------------------------------------------------
  40. ;23-Feb-87     01 First change. Unknown number of older
  41. ; binary-saved files in existence.
  42. ;27-Feb-87          02 No longer putting BLOCK_MOD at start of each
  43. ; module, since we only save one module per file.
  44. ;16-Mar-87          03 Code to support compiling directly from 
  45. ; our Binary SAVE format needs module name table
  46. ; to be saved before the module text table.
  47. ;10-Jun-87          04 Changed for todays internal QB release. Must
  48. ; be changed whenever peropcod.txt is changed.
  49. ;10-Jun-87 (PM)     05 Changed for todays internal QB release. Must
  50. ; be changed whenever peropcod.txt is changed.
  51. ;17-Jun-87     06 Changed for Beta Release because of peropcode
  52. ; changes (DMC).
  53. ;30-Jun-87          07 Changed based on actual change to binsav format
  54. ; (now saving both mrs flag bytes)
  55. ;15-Jul-87     08 Peropcod changes. (DMC)
  56. ;21-Jul-87     09 Peropcod changes and second beta. (DMC)
  57. ;03-Aug-87     0a Peropcod changes. (DMC)
  58. ;04-Aug-87     0b Peropcod changes. (DMC)
  59. ;10-Aug-87     0c VarMgr changes. (DMC)
  60. ;26-Aug-87     0d QLB dgroup compression changes. (DMC)
  61. ;31-Aug-87     0e C startup changes. (DMC)
  62. ;09-Sep-87     0f rtmint changes. (DMC)
  63. ;14-Sep-87     10 rtmint changes. (DMC)
  64. ;15-Sep-87     11 First final (?) beta REL.19 (DMC)
  65. ;15-Sep-87     12 First final (?) beta REL.20 (DMC)
  66. ;??-???-87     13 Release version REL.35 (???)
  67. ;11-Nov-87     14 First Beta for BC6.  Want to be backwards
  68. ; compatable to release version of QB4.
  69. ;16-Nov-87     13 We're stuck at 13 for QB4 release compatibility!
  70. ;25-May-88     14 (EB) Changed for EB only, to make binary
  71. ; incompatabilities easier to detect (BLR)
  72. ;08-Jun-88     15 (EB) Changed for EB only, due to changes in nam,
  73. ; var, rs, and pcode tables to leave 2nd word
  74. ; of each far heap buffer unused (used by Omega)
  75. ;15-Jun-88     16 (EB) Changed for EB only, due to additional pcode
  76. ; changes to leave 2nd word free.
  77. ;24-Jun-88     17 (EB) Changed for EB only, removed data_otxfirst
  78. ;30-Jun-88     18 Changed many AVtRfs to AIdLds in pcode
  79. ;05-Jul-88     19 Removed obsolete pcodes
  80. ;07-Jul-88     1a Changed coercion pcode
  81. ;11-Jul-88     00 Rewound due to change in binary format.  BASIC
  82. ; version number is now a family number. 0 = QB
  83. ; (v4.0 a,b), 1 = QB (v4.5 and later), 2 = EB.
  84. ;05-Aug-88     01 (EB) SQL pcode change
  85. ;==============================================================================
  88. ; [LINE] INPUT prompt flags
  89. FINP_QSupress EQU 1 ;set if "prompt" was followed by a comma,
  90. ;not a semicolon, indicating "? " is not to be
  91. ;output after prompt.
  92. FINP_CrLf EQU 2 ;set if INPUT was followed by optional ";",
  93. ;meaning CrLf is not to be output when user
  94. ;presses return.
  95. FINP_Prompt EQU 4 ;set if the optional SDPrompt argument is included.
  98. ; Communications constants
  99. cbComBuf EQU 512 ;[1] default COM buffer size
  101. ; File LOCK & UNLOCK Constants
  102. LOCK_UNLOCK EQU 0001h ;set if operation is UNLOCK, not LOCK
  103. LOCK_1stToLast EQU 0002h ;set if only part of file locked
  104. LOCK_RtMask EQU 0003h ;bits which are meaningful to runtime
  105. LOCK_Def1stArg EQU 4000h ;set if 1st arg defaulted - used by list
  106. LOCK_DefLastArg EQU 8000h ;set if last arg defaulted- used by exec
  108. ;File Open mode, access, locking flags
  109. MD_SQI EQU 1 ; for INPUT
  110. MD_SQO EQU 2 ; for OUTPUT
  111. MD_RND EQU 4 ; [for RANDOM]
  112. MD_APP EQU 8 ; for APPEND
  113. MD_BIN EQU 20H ; for BINARY
  114. MD_DEFAULT EQU MD_RND
  115. ACCESS_READ EQU 1 ; READ
  116. ACCESS_WRITE EQU 2 ; WRITE
  117. ACCESS_BOTH EQU 3 ; READ WRITE
  118. LOCK_READ EQU 30H ; LOCK READ
  119. LOCK_WRITE EQU 20H ; LOCK WRITE
  120. LOCK_BOTH EQU 10H ; LOCK READ WRITE
  121. LOCK_SHARED EQU 40H ; LOCK SHARED
  123. ;----------------------------------------------------------------------
  124. ;DOS does not allow you to do a CD (change directory) to a path > 64,
  125. ;but once you are in a directory whose path is 64 bytes long, DOS
  126. ;will let you open a 64 byte relative path, making the maximum length
  127. ;of a filename accessible by DOS = 128.  Since the runtime just has 1
  128. ;static copy of a filename buffer, they decided to let running programs
  129. ;access files whose full path > 64 (even though you can't get into the
  130. ;lowest directory from DOS.
  131. ;  The user interface chooses to limit the path to 64 for the directory,
  132. ;and 12 for the filename (and 1 for a 0-byte terminator).  This is for
  133. ;two reasons:
  134. ;  - The directory that source files are saved in should be accessible by
  135. ;    all programs (including command.com).  
  136. ;  - There are several layers of functions in the user interface code that
  137. ;    each need a copy of a filename.  The increased stack demands of going
  138. ;    to 128 are prohibitive.
  139. ;
  140. FILNAML = 128d+1 ;max. filename length for runtime
  141. FILNAML64 = 64d+12d+1 ;max. filename length for user interface
  143. ;Runtime Value Types
  144. VT_I2 EQU 02h ;short integer
  145. VT_I4 EQU 14h ;long integer
  146. VT_R4 EQU 04h ;32 bit real
  147. VT_R8 EQU 08h ;64 bit real
  148. VT_SD EQU 03h ;string
  150. ;Runtime bits for b$CtrlFlags
  151. NoSTACKINIT EQU 01h ;Doesn't call B$STACKINIT when set during B$RUNINI
  152. ; or B$CHNINI calls.
  154. ;Extended Out of Memory error codes for b$errinfo.
  155. OMErr_OM   EQU 00h ;generic OM error
  156. OMErr_NH   EQU 01h ;out of near heap space ( DS > 64k )
  157. OMErr_FH   EQU 02h ;out or far heap space ( out of system memory )
  158. OMErr_STK  EQU 03h ;out of stack space
  159. OMErr_Proc EQU 04h ;out of Procedure text table space ( > 64k )
  160. OMErr_Mod  EQU 05h ;out of Module text table space ( > 64k )
  161. OMErr_Inc  EQU 06h ;out of Include file text table space ( > 64k )
  162. OMErr_Doc  EQU 07h ;out of Document file text table space ( > 64k )
  164. ;[8]File type constants for user-option path searching
  165. LIBFILE    EQU 0 ;[8]
  166. EXEFILE    EQU 6 ;[8]
  167. INCFILE    EQU 12 ;[8]
  168. HELPFILE   EQU 18 ;[8]
  170. ; Minimum space for NMALLOC buffer.  Moved here from const.inc with rev [17].
  171. ;
  172. ; This is the minimum space which must be allocated in the NMALLOC segment
  173. ; for any attempted near malloc() call to fail gracefully.  Enough space
  174. ; must be allocated for a "C" heap header.
  175. ;
  177. NMALLOC_MIN = 06H ;Minimum NMALLOC space needed.