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 / SYSRCP1.LQB / SYSRCP1.LIB
Text File  |  2000-06-30  |  10KB  |  367 lines
  1. ;  SYSTEM SEGMENT:  SYS1.RCP
  2. ;  SYSTEM:  ZCPR3
  3. ;  WRITTEN BY:  RICHARD CONN
  4.  
  5. ;
  6. ;  PROGRAM HEADER:  SYSRCP.LIB
  7. ;  AUTHOR:  RICHARD CONN
  8. ;
  9.  
  10. ;
  11. ;    This program header selects the commands to be incorporated into
  12. ; SYS.RCP.  It also allows selection of some options for these commands.
  13. ;
  14.  
  15. ;
  16. ;   0. ID
  17. ;
  18. ;    The following ID is a single character, displayed as a part of
  19. ; the RCP ID, which distinguishes this RCP from others made from the same
  20. ; base file (SYSRCP.ASM).
  21. ;
  22. RCPID    EQU    'A'
  23.  
  24. ;
  25. ;   1. CP COMMAND
  26. ;    TRANSIENT COUNTERPART: MCOPY
  27. ;
  28. ;    The following equate determines if the CP command is made available.
  29. ; Setting this equate to TRUE enables the CP command.
  30. ;
  31. ;    The CP command copies one file from one DU to another or into the
  32. ; same DU under a different name.  The syntax is:
  33. ;
  34. ;        CP dir:ufn=dir:ufn
  35. ;
  36. ;    Examples:
  37. ;        CP f1.txt=f2.txt
  38. ;        CP a15:=f1.txt
  39. ;        CP a15:f2.txt=c5:f1.txt
  40. ;
  41. CPON        EQU    TRUE 
  42.  
  43. ;
  44. ;   2. DIR COMMAND
  45. ;    TRANSIENT COUNTERPART: DIR, XD, XDIR
  46. ;
  47. ;    The following equate determines if the DIR command is made available.
  48. ; Setting this equate to TRUE enables the DIR command.
  49. ;
  50. ;    The DIR command displays the directory of files in alphabetical order
  51. ; across the lines to the user.  The syntax is:
  52. ;
  53. ;        DIR dir:afn
  54. ;
  55. ;    Examples:
  56. ;        DIR b7:
  57. ;        DIR root:*.com
  58. ;
  59. DIRON        EQU    FALSE
  60.  
  61. ;
  62. ;    The DIR command allows two options.  One is a flag to tell it
  63. ; to look at both System and Non-System files, and the other is a flag
  64. ; to tell it to look only at System files.  By default, DIR looks at
  65. ; Non-System files.
  66. ;
  67. ;    SYSFLG defines the character used to instruct DIR to look at
  68. ; both System and Non-System files.  The recommended value is 'A' for All.
  69. ;
  70. ;    SOFLG defines the character used to instruct DIR to look at
  71. ; only System files.  The recommended value is 'S' for System.
  72. ;
  73. SYSFLG        EQU    'A'
  74. SOFLG        EQU    'S'
  75.  
  76. ;
  77. ;    The following equate determines if the directory displays are
  78. ; sorted by filename and filetype or by filetype and filename.  Set SORTNT
  79. ; to TRUE to sort by name and type, FALSE to sort by type and name.
  80. ;
  81. SORTNT        EQU    TRUE 
  82.  
  83. ;
  84. ;    The following equates define some features of the directory display.
  85. ; If WIDE is TRUE, the file names are spaced farther abort; if WIDE is FALSE,
  86. ; they are closer together (for a 64-column display).  FENCE defines the
  87. ; character used to separate the file name entries in the display.
  88. ;
  89. WIDE        EQU    TRUE 
  90. FENCE        EQU    '|'
  91.  
  92. ;
  93. ;   3. ERA COMMAND
  94. ;    TRANSIENT COUNTERPART: ERASE
  95. ;
  96. ;    The following equate determines if the ERA command is made available.
  97. ; Setting this equate to TRUE enables the ERA command.
  98. ;
  99. ;    The ERA command erases files.  The syntax is:
  100. ;
  101. ;        ERA dir:afn
  102. ; or:
  103. ;        ERA dir:afn I    -- Inspect
  104. ;
  105. ;    Examples:
  106. ;        ERA b7:*.bak
  107. ;        ERA text:*.tmp i
  108. ;
  109. ERAON        EQU    TRUE 
  110.  
  111. ;
  112. ;   4. LIST and TYPE COMMANDS
  113. ;    TRANSIENT COUNTERPART: PRINT and PAGE
  114. ;
  115. ;    The following equate determines if the LIST and TYPE commands are
  116. ; made available.  Setting this equate to TRUE enables these commands.
  117. ;
  118. ;    The LISTON equate can disable the LIST command without affecting the
  119. ; TYPE command.
  120. ;
  121. ;    The TYPE command displays a group of files on the CRT while the
  122. ; LIST command prints a group of files on the Printer.  The syntax is:
  123. ;
  124. ;        TYPE dir:afn  -or-  LIST dir:afn
  125. ;
  126. ;    Examples:
  127. ;        TYPE b7:*.asm
  128. ;        LIST text:*.txt
  129. ;
  130. LTON        EQU    TRUE 
  131. LISTON        EQU    TRUE 
  132.  
  133. ;
  134. ;    TYPE can be made to page or not page by default.  If PGDFLT is
  135. ; TRUE, TYPE pages by default and does not page if the PGFLG character
  136. ; (recommended to be 'P') is used.  If PGDFLT is FALSE, TYPE pages only
  137. ; when the PGDFLG character is seen in the command line.
  138. ;
  139. PGDFLT        EQU    TRUE 
  140. PGDFLG        EQU    'P'
  141.  
  142. ;
  143. ;    NLINES defines the number of lines on the user's CRT screen.
  144. ; This is usually 24.
  145. ;
  146. NLINES        EQU    24
  147.  
  148.  
  149. ;
  150. ;   5. PEEK and POKE COMMANDS
  151. ;    TRANSIENT COUNTERPART: None (Subset of DDT)
  152. ;
  153. ;    The following equates determine if the PEEK and POKE commands are
  154. ; made available.  Setting these equates to TRUE enables these commands.
  155. ;
  156. ;    The PEEK command allows the user to examine a chunk of memory.
  157. ; If the user simply types "P" with no address, the next 256 bytes of
  158. ; memory are displayed.  If the user types "P address", 256 bytes of memory
  159. ; starting at the indicated address are displayed.  If the user types
  160. ; "P addr1 addr2", memory in this address range is displayed.  The syntax:
  161. ;
  162. ;        P
  163. ; or:
  164. ;        P address
  165. ; or:
  166. ;        P addr1 addr2
  167. ;
  168. ;    The POKE command allows the user to change the content of memory.
  169. ; The user must specify an address to POKE, and two basic forms are allowed:
  170. ;
  171. ;        POKE address val1 val2 ... valn
  172. ; and:
  173. ;        POKE address "character string
  174. ; The two forms may be intermixed with leading values and a trailing character
  175. ; string:
  176. ;        POKE address val1 val2 ... valn "character string
  177. ;
  178. ;    Examples:
  179. ;        P
  180. ;        P f400
  181. ;        P f400 f425
  182. ;        POKE f400 0 1 2
  183. ;        POKE f400 "this is a test
  184. ;        POKE f400 1 2 3 "hello, world
  185. ;
  186. PEEKON        EQU    TRUE 
  187. POKEON        EQU    TRUE 
  188.  
  189. ;
  190. ;   6. PROT COMMAND
  191. ;    TRANSIENT COUNTERPART: PROTECT
  192. ;
  193. ;    The following equate determines if the PROT command is made available.
  194. ; Setting this equate to TRUE enables the PROT command.
  195. ;
  196. ;    The PROT command sets the file protection attributes for a group of
  197. ; files.  The R/O and System attributes may be set with the R and S options,
  198. ; resp, given in any order as "RS" or "SR".  Omission of one of these options
  199. ; toggles the opposite (ie, omission of R makes the files R/W).  The syntax:
  200. ;
  201. ;        PROT dir:afn
  202. ; or:
  203. ;        PROT dir:afn R
  204. ; or:
  205. ;        PROT dir:afn S
  206. ; or:
  207. ;        PROT dir:afn RS  -or-  PROT dir:afn SR
  208. ;
  209. ;    Examples:
  210. ;        PROT b7:*.com rs
  211. ;        PROT text:*.txt
  212. ;
  213. PROTON        EQU    TRUE 
  214.  
  215. ;
  216. ;   7. REN COMMAND
  217. ;    TRANSIENT COUNTERPART: RENAME
  218. ;
  219. ;    The following equate determines if the REN command is made available.
  220. ; Setting this equate to TRUE enables the REN command.
  221. ;
  222. ;    The REN command changes the name of one file to another.  The syntax:
  223. ;
  224. ;        REN dir:ufn1=ufn2
  225. ;
  226. ;    Examples:
  227. ;        REN newfile.txt=oldfile.txt
  228. ;        REN root:sys.rcp=sys1.rcp
  229. ;
  230. RENON        EQU    TRUE 
  231.  
  232. ;
  233. ;   8. The REG COMMAND
  234. ;    TRANSIENT COUNTERPART: REG
  235. ;
  236. ;    The following equate determines if the REG command is made
  237. ; available.  Setting this equate to TRUE enables the REG command.
  238. ;
  239. ;    The REG command forms are:
  240. ;        REG D or REG    = display values of all registers
  241. ;        REG Mreg    = subtract 1 from register (Minus)
  242. ;        REG Preg    = add 1 to register (Plus)
  243. ;        REG Sreg value    = set value of indicated register
  244. ;
  245. ;    A register is a ZCPR3 register buffer, indicated by a digit from
  246. ; 0 to 9.
  247. ;
  248. ;    Examples:
  249. ;        REG S0 4    -- reg 0 = 4
  250. ;        REG S5        -- reg 5 = 0
  251. ;        REG P        -- reg 0 = reg 0 + 1
  252. ;        REG P5        -- reg 5 = reg 5 + 1
  253. ;        REG M9        -- reg 9 = reg 9 - 1
  254. ;        REG D        -- show values
  255. ;        REG        -- show values
  256. ;
  257. REGON        EQU    FALSE
  258.  
  259.  
  260. ;
  261. ;   9. WHL COMMAND
  262. ;    TRANSIENT COUNTERPART: WHEEL
  263. ;
  264. ;    The following equate determines if the WHL command is made available.
  265. ; Setting this equate to TRUE enables the WHL command.
  266. ;
  267. ;    The WHL command is used to turn off the Wheel Byte (make the user
  268. ; non-priveleged) or to turn on the Wheel Byte (make the user priveleged).
  269. ; The syntax is:
  270. ;
  271. ;        WHL        -- make user non-priveleged
  272. ; or:
  273. ;        WHL password    -- make user priveleged
  274. ;
  275. ;    Also, this equate enables the WHLQ command, which displays the
  276. ; state of the Wheel Byte.  The syntax is:
  277. ;
  278. ;        WHLQ
  279. ;
  280. ;    Examples:
  281. ;        WHL
  282. ;        WHL mypass
  283. ;        WHLQ
  284. ;
  285. WHLON        EQU    FALSE
  286.  
  287. ;
  288. ;    The following equate defines the password to be used by the WHL
  289. ; command.  It must always be 8 bytes long (trailing spaces allowed) and
  290. ; must be upper-case.
  291. ;
  292. WPASS    MACRO
  293.     DB    'SYSTEM  '    ;8 characters
  294.     ENDM
  295.  
  296. ;
  297. ;    The Wheel equate table enables the WHEEL facility of ZCPR3.  With this
  298. ; facility, a WHEEL BYTE, which exists somewhere in memory, is examined
  299. ; before a set of installer-selected commands are executed.
  300. ; If this byte is not zero, then the command proceeds.  If it is zero,
  301. ; then the command is not allowed to proceed and is exited with an error
  302. ; message.
  303. ;
  304. ;    The following set of equates make each of the indicated commands
  305. ; selectable to respond to the Wheel Byte or not.  For instance, if
  306. ; WERA=TRUE, then it responds to the Wheel Byte; if WERA=FALSE, it does not.
  307. ;
  308. ;    These options will only be effective if a Wheel Byte is Defined
  309. ; (Z3WHL NE 0)
  310. ;
  311. WCP    equ    FALSE    ;Make CP   a Wheel-Oriented Command
  312. WDIR    equ    FALSE    ; "   DIR  "  "       "       "
  313. WERA    equ    FALSE    ; "   ERA  "  "       "       "
  314. WLIST    equ    FALSE    ; "   LIST "  "       "       "
  315. WPEEK    equ    FALSE    ; "   PEEK "  "       "       "
  316. WPOKE    equ    FALSE    ; "   POKE "  "       "       "
  317. WPROT    equ    FALSE    ; "   PROT "  "       "       "
  318. WREG    equ    FALSE    ; "   REG  "  "       "       "
  319. WREN    equ    FALSE    ; "   REN  "  "       "       "
  320. WTYPE    equ    FALSE    ; "   TYPE "  "       "       "
  321.  
  322. WHEEL    set    WCP OR WDIR OR WERA OR WLIST OR WPEEK OR WPOKE
  323. WHEEL    set    WHEEL OR WPROT OR WREG OR WREN OR WTYPE
  324.  
  325.  
  326. ;
  327. ;  10. NOTE COMMAND
  328. ;    TRANSIENT COUNTERPART: NOTE
  329. ;
  330. ;    NOTE is simply a NOP (do nothing) command which can be used
  331. ; to place comments into multiple command lines.  For instance, in the
  332. ; following line:
  333. ;
  334. ;        dir *.com;note this is a dir display;era *.bak
  335. ;
  336. ; the DIR and ERA commands perform normally, and NOTE simply does
  337. ; nothing very efficiently.
  338. ;
  339. ;    Setting the following equate to TRUE enables the NOTE Command.
  340. ;
  341. NOTEON    EQU    TRUE 
  342.  
  343.  
  344. ;
  345. ;  11. ECHO COMMAND
  346. ;    TRANSIENT COUNTERPART: ECHO
  347. ;
  348. ;    The following equate enables the ECHO command.
  349. ;
  350. ;    ECHO is useful in issuing both messages (to the user, say within
  351. ; a command file during execution) and escape sequences.  ECHO can send its
  352. ; output to the console (by default) or to the printer (if the first non-
  353. ; blank character is a dollar sign).  It uses BIOS calls, so all control
  354. ; characters are passed exactly.  Hence, console-level programming of such
  355. ; devices (CRTs and Printers) is possible.
  356. ;
  357. ;    The ECHOLST equate determines if ECHO is allowed to direct its output
  358. ; to the printer.  If ECHOLST is TRUE, ECHO may direct its output to the
  359. ; printer via the $ prefix character in the text.
  360. ;
  361. ECHOON    EQU    TRUE 
  362. ECHOLST    EQU    TRUE 
  363.  
  364. ;
  365. ;  END of SYS.RCP CUSTOMIZATION
  366. ;
  367.