home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / ZCPR3 / SYSFCP2.LIB < prev    next >
Text File  |  2000-06-30  |  6KB  |  214 lines
  1. ;  SYSTEM SEGMENT:  SYS2.FCP
  2. ;  SYSTEM:  ZCPR3
  3. ;  CUSTOMIZED BY:  RICHARD CONN
  4.  
  5. ;
  6. ;  PROGRAM HEADER:  SYSFCP.LIB
  7. ;  AUTHOR:  RICHARD CONN
  8. ;
  9.  
  10. ;
  11. ;    This program header defines the IF Conditions to be placed
  12. ; into the target SYS.FCP file (generated by assembling SYSFCP.ASM).
  13. ;
  14.  
  15. ;
  16. ;   1. IF NEGATION
  17. ;
  18. ;    The following equate determines if leading negation is to be
  19. ; allowed.  If this equate is TRUE, then forms like the following are
  20. ; permitted:
  21. ;        IF ~EXIST filename.typ
  22. ;
  23. ; meaning to complement the meaning of the test (the above returns TRUE
  24. ; if filename.typ does NOT exist).
  25. ;
  26. IFONEG        EQU    FALSE
  27.  
  28. ;
  29. ;    Assuming IFONEG to be TRUE, the following equate defines the
  30. ; character to be placed in front of the IF option to indicate that
  31. ; negation is to be performed.  In the above example, this character
  32. ; was tilde (~).
  33. ;
  34. NEGCHAR        EQU    '~'
  35.  
  36.  
  37. ;
  38. ;   2. IF:  T (TRUE) or F (FALSE)
  39. ;
  40. ;    Setting the following equate to TRUE enables the simple T and F
  41. ; options to IF.  The format of this option is:
  42. ;
  43. ;        IF T or IF F
  44. ;
  45. ; and it always returns TRUE or FALSE, resp.
  46. ;
  47. IFOTRUE        EQU    FALSE
  48.  
  49.  
  50. ;
  51. ;   3. IF:  EM (EMPTY)
  52. ;
  53. ;    Setting the following equate to TRUE enables IF to test to see if
  54. ; the indicated file is empty or not.  The format of this option is:
  55. ;
  56. ;        IF EM dir:filename.typ
  57. ;
  58. ; and it returns TRUE if the indicated file does not exist or is empty.
  59. ;
  60. IFOEMPTY    EQU    FALSE
  61.  
  62.  
  63. ;
  64. ;   4. IF:  ER (ERROR)
  65. ;
  66. ;    Setting the following equate to TRUE enables IF to test the error
  67. ; code byte (program error code byte).  If this byte is 0 (no error), it
  68. ; returns TRUE, else it returns FALSE.  The format of this option is:
  69. ;
  70. ;        IF ER
  71. ;
  72. IFOERROR    EQU    FALSE
  73.  
  74.  
  75. ;
  76. ;   5. IF:  EX (EXIST)
  77. ;
  78. ;    Setting the following equate to TRUE enables IF to test for the
  79. ; existence of a file.  The format of this option is:
  80. ;
  81. ;        IF EX dir:filename.typ
  82. ;
  83. ; and it returns TRUE if the indicated file exists.
  84. ;
  85. IFOEXIST    EQU    FALSE
  86.  
  87.  
  88. ;
  89. ;   6. IF:  IN (INPUT)
  90. ;
  91. ;    Setting the following equate to TRUE enables user input of the
  92. ; character T (or any other character for FALSE).  ZEX processing is
  93. ; suspended for this single-character input.  The format of this option is:
  94. ;
  95. ;        IF IN
  96. ;
  97. ; and the IF FCP command responds with:
  98. ;
  99. ;        IF True?
  100. ;
  101. ; to which the user types T, Y, SPACE, or CR to set the IF to TRUE and
  102. ; anything else to set the IF to FALSE.
  103. ;
  104. IFOINPUT    EQU    FALSE
  105.  
  106.  
  107. ;
  108. ;   7. IF:  NU (NULL)
  109. ;
  110. ;    Setting the following equate to TRUE enables IF to test to see if
  111. ; the second argument which follows is NULL (not specified) or not.  This
  112. ; test is particularly useful in command file processing to see if, for
  113. ; example, argument $2 exists and to include it if it does.  The format of
  114. ; this option is:
  115. ;
  116. ;        IF NU
  117. ; or:
  118. ;        IF NU arg
  119. ;
  120. ;    If the first format is encountered, IF NU returns TRUE; IF NU returns
  121. ; FALSE with the second format.
  122. ;
  123. IFONULL        EQU    FALSE
  124.  
  125.  
  126. ;
  127. ;   8. IF:  n (Register Value)
  128. ;
  129. ;    Setting the following equate to TRUE enables IF to test to see if
  130. ; the indicated register contains the indicated value.  If this is preceeded
  131. ; by the NEGCHAR and IFONEG is TRUE, then this tests to see if the indicated
  132. ; register does not contain the indicated value.  Registers are one-byte
  133. ; memory buffers, and are identified by the digits 0 to 9.  The format of
  134. ; this option is:
  135. ;
  136. ;        IF n val
  137. ;
  138. ; Example:
  139. ;        IF 0        -- if Reg 0 = 0
  140. ;        IF 0 5        -- if Reg 0 = 5
  141. ;        IF 5 2        -- if Reg 5 = 2
  142. ;        IF ~0        -- if Reg 0 <> 0
  143. ;        IF ~9 2        -- if Reg 9 <> 2
  144. ;
  145. IFOREG        EQU    FALSE
  146.  
  147.  
  148. ;
  149. ;   9. IF:  WH (WHEEL)
  150. ;
  151. ;    Setting the following equate to TRUE enables IF to test to see if
  152. ; the Wheel Byte is set or not.  If so, IF WHEEL is TRUE.
  153. ;
  154. IFOWHEEL    EQU    FALSE
  155.  
  156.  
  157. ;
  158. ;  10. IF:  TC (TCAP)
  159. ;
  160. ;    Setting the following equate to TRUE enables IF to test to see if
  161. ; the ZCPR3 TCAP contains a terminal definition or not.  This test is
  162. ; particularly useful in command file or alias processing to see if, for
  163. ; example, a Z3TCAP entry is defined and to invoke screen-oriented routines
  164. ; if it is.  The format of this option is:
  165. ;
  166. ;        IF TC
  167. ;
  168. IFOTCAP        EQU    FALSE
  169.  
  170.  
  171. ;
  172. ;  11. IF:  fcb1=fcb2
  173. ;
  174. ;    Setting this equate to TRUE will enable IF to evaluate the
  175. ; equality condition, checking to see if the two FCBs contain the same
  176. ; values.  If so, the IF is TRUE; if not, the IF is FALSE.
  177. ;
  178. ;    Enabling this equate eliminates the need for the NULL test, since
  179. ; a NULL test can be performed by using the syntax:
  180. ;        IF fcb1=
  181. ;
  182. IFOEQ        EQU    FALSE
  183.  
  184.  
  185. ;
  186. ;  12. COMIF - Run IF.COM Instead of FCP-Internal Processing
  187. ;
  188. ;    Setting this equate to TRUE will cause an IF executed during an
  189. ; IF TRUE or NO IF state to look in the ROOT directory (base of path
  190. ; starting in current directory) for the file IF.COM, and, if found,
  191. ; load IF.COM and transfer control to it.  If IF.COM is not found, then
  192. ; IF F is raised.  Using IF.COM provides much more power and flexibility
  193. ; but also requires IF.COM to be present and takes up disk space.
  194. ;
  195. COMIF        EQU    TRUE 
  196.  
  197.  
  198. ;
  199. ;  13. NOISE - Have FCP Print IF Status Messages
  200. ;
  201. ;    Setting this equate to TRUE will cause any change in the IF
  202. ; status to be printed to the user.  This is useful for debugging purposes,
  203. ; but in normal runs, particularly where ALIASes are concerned, it is
  204. ; usually desirable to reduce the "noise" as much as possible and have
  205. ; this equate set to FALSE.
  206. ;
  207. NOISE        EQU    FALSE
  208.  
  209.  
  210. ;
  211. ;  END of SYSFCP CUSTOMIZATION
  212. ;
  213.  
  214.