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 / CPM / PROGRAMS / BKGRONDR / OCP145C.LBR / OCP.LZB / OCP.LIB
Text File  |  2000-06-30  |  5KB  |  230 lines
  1. ;SYSOCP.LIB
  2.  
  3.  
  4. RCPNM    MACRO
  5.     DB    'OCP '    ;;name of the rcp plus a blank
  6.     ENDM
  7.  
  8. RCPID    EQU    'A'    ;identifies option set selected
  9.  
  10.  
  11. ;-----------------------------------------------------------------------------
  12.  
  13. ;    W H E E L    E Q U A T E S
  14.  
  15. HBSWHL    EQU    TRUE    ;Use high-bit-set wheel
  16.  
  17. ;Change to TRUE or YES to wheel protect command
  18.  
  19. WCP    equ    TRUE    ;CP
  20. WDIR    equ    FALSE    ;DIR
  21. WERA    equ    TRUE    ;ERA
  22. WPORT    equ    TRUE    ;PORT
  23. WPROT    equ    TRUE    ;PROT
  24. WREG    equ    TRUE    ;REG
  25. WREN    equ    TRUE    ;REN
  26. WHRC    equ    FALSE    ;H
  27.  
  28. WHEEL    set    WCP OR WDIR OR WERA OR WPORT
  29. WHEEL    set    WHEEL OR WPROT OR WREG OR WREN OR WHRC
  30.  
  31. ;-----------------------------------------------------------------------------
  32.  
  33. ;    COMMAND INCLUSION IN THE ASSEMBLED RCP
  34.  
  35. ;Command switches set to TRUE or YES will be assembled
  36. ;Those set to FALSE or NO will be excluded
  37.  
  38. CPON        EQU    FALSE        ;COPY
  39. DIRON        EQU    FALSE        ;DIRECTORY
  40. ECHOON        EQU    TRUE         ;ECHO
  41. ERAON        EQU    FALSE         ;ERASE
  42. PORTON        EQU    TRUE        ;PORT
  43. PROTON        EQU    TRUE         ;PROTECT
  44. REGON        EQU    TRUE        ;REGISTER
  45. RENON        EQU    FALSE        ;RENAME
  46. SPACEON        EQU    TRUE        ;SPACE
  47. TSTON        EQU    FALSE        ;TEST FOR PROGRAM ERROR
  48.  
  49. ;-----------------------------------------------------------------------------
  50.  
  51. ;    C O M M A N D    E Q U A T E S
  52.  
  53.  
  54. ; *** NOTE ***
  55. ;
  56. ; If HBSWHL is true, the names of the commands are hard-coded into RCP14x.ASM
  57. ; and must be changed there if you wish to change the names from the default
  58. ; names below.
  59.  
  60.  
  61. CMDLEN        EQU    6        ;length of command names
  62.  
  63. ;------------------------------  RCP HELP COMMAND
  64.  
  65.     IF    NOT HBSWHL
  66.  
  67. HELPCMD        MACRO            ;help command name
  68.         DB    'H   '
  69.         ENDM
  70.     ENDIF
  71.  
  72. NOSHOW        EQU    TRUE        ;true to suppress listing commands
  73.                     ;that are wheel-restricted when wheel
  74.                     ;byte is off (hbswhl=true only)
  75.  
  76. ;------------------------------  COPY COMMAND
  77.  
  78.     IF    NOT HBSWHL
  79. CPCMD        MACRO            ;name for copy command
  80.         DB    'CP  '
  81.         ENDM
  82.     ENDIF
  83.  
  84. CPBLOCKS    EQU    128        ;USE 16K FOR BUFFERING OF COPY
  85. COPYTOP        EQU    TRUE        ;USE TOP OF TPA AS COPY BUFFER
  86.  
  87.  
  88. ;------------------------------  DIR COMMAND
  89.  
  90.     IF    NOT HBSWHL
  91. DIRCMD        MACRO            ;name for directory command
  92.         DB    'DIR '
  93.         ENDM
  94.     ENDIF
  95.  
  96. NOSYS        EQU    TRUE        ;true to suppress 'A' and 'S' options
  97.                     ;when wheel is off
  98. SLASHCHK    EQU    TRUE        ;true to allow "DIR /S" or "DIR /A"
  99.                     ;formats (costs about 12 bytes)
  100. SYSFLG        EQU    'A'
  101. SOFLG        EQU    'S'
  102. SORTNT        EQU    TRUE 
  103. WIDE        EQU    TRUE 
  104. FENCE        EQU    '|'
  105.  
  106.  
  107. ;------------------------------  ECHO COMMAND
  108.  
  109.     IF    NOT HBSWHL
  110. ECHOCMD        MACRO            ;name for echo command
  111.         DB    'ECHO'
  112.         ENDM
  113.     ENDIF
  114.  
  115. ECHOLST        EQU    TRUE
  116. XECHO        EQU    TRUE        ;true to use extended echo commands
  117. UPCASE        EQU    TRUE        ;true to default to upper case output
  118. UCASECH        EQU    '<'        ;char after '%' to shift to upper case
  119. LCASECH        EQU    '>'        ;char after '%' to shift to lower case
  120.  
  121.  
  122. ;------------------------------  ERASE COMMAND
  123.  
  124.     IF    NOT HBSWHL
  125. ERACMD        MACRO            ;name for erase command
  126.         DB    'ERA '
  127.         ENDM
  128.     ENDIF
  129.  
  130.  
  131. ;------------------------------  PORT COMMAND
  132.  
  133.     IF    NOT HBSWHL
  134. PORTCMD        MACRO            ;name for port command
  135.         DB    'PORT'
  136.         ENDM
  137.     ENDIF
  138.  
  139.  
  140. ;------------------------------  PROTECT COMMAND
  141.  
  142.     IF    NOT HBSWHL
  143. PROTCMD        MACRO            ;name for protect command
  144.         DB    'PROT'
  145.         ENDM
  146.     ENDIF
  147.  
  148.  
  149. ;------------------------------  REGISTER COMMAND
  150.  
  151.     IF    NOT HBSWHL
  152. REGCMD        MACRO            ;name for register command
  153.         DB    'REG '
  154.         ENDM
  155.     ENDIF
  156.  
  157. SETERR        EQU    TRUE        ;copy new reg value to pgm error flag
  158.  
  159.  
  160. ;------------------------------  RENAME COMMAND
  161.  
  162.     IF    NOT HBSWHL
  163. RENCMD        MACRO            ;name for rename command
  164.         DB    'REN '
  165.         ENDM
  166.     ENDIF
  167.  
  168.  
  169. ;----------------------------- DISK SPACE COMMAND
  170.  
  171.     IF    NOT HBSWHL
  172. SPACECMD:    MACRO
  173.         DB    'SP  '        ;NAME OF SPACE COMMAND
  174.         ENDM
  175.     ENDIF
  176.  
  177. DIRSP        EQU    TRUE        ;show space after dir
  178. ERASP        EQU    TRUE        ;show space after era
  179. CPSP        EQU    TRUE        ;show space after cp
  180.  
  181.  
  182. ;------------------------------  ERROR TESTING COMMAND
  183.  
  184.     IF    NOT HBSWHL
  185. TESTCMD        MACRO            ;name for error testing command
  186.         DB    'TST '
  187.         ENDM
  188.     ENDIF
  189.  
  190. TESTM80        EQU    TRUE
  191. TESTF80        EQU    FALSE
  192. TESTZAS        EQU    TRUE        ;obsolete for recent versions of ZAS
  193.  
  194. ;-----------------------------------------------------------------------------
  195.  
  196. ;This is the MACRO that builds command jump table
  197. ;entries. It includes/excludes entries as selected
  198. ;in the COMMAND INCLUSION section, setting the high
  199. ;bit of the first character of the command name if
  200. ;the command is specified to be wheel-sensitive in
  201. ;the WHEEL EQUATES section.
  202.  
  203. COMMAND    MACRO    N1,TRAIL,INCL,RESPOND,ADDR
  204. ;;N1 is the first character of the command name
  205. ;;TRAIL is a QUOTED string containing the rest of
  206. ;; the characters in the command name, padded with
  207. ;; trailing blanks until the number of characters
  208. ;; in TRAIL is CMDLEN - 1.
  209. ;;INCL is one of the defined switches from the
  210. ;;  COMMAND INCLUSION section, or true/false/yes/no
  211. ;;RESPOND is one of the switches defied in the
  212. ;;  WHEEL EQUATES section, or true/false/yes/no
  213. ;;ADDR is the label (in the .ASM file) of the
  214. ;;  routine which implements the command
  215.  
  216.     IF    INCL        ;;INCLUDE THIS COMMAND?
  217.  
  218. ;;for ZAS, byte quantities are declared with [...]
  219.     IF    ZAS        ;;defined in Z3BASE
  220.       DB    '&N1' OR [80H AND RESPOND]
  221.     ELSE
  222. ;;other assemblers can use this form
  223.       DB    '&N1' OR RESPOND AND 80H 
  224.     ENDIF
  225.  
  226.     DB    TRAIL
  227.     DW    ADDR
  228.     ENDIF
  229.     ENDM
  230.