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 / ZCPR33 / S-Z / ZF10H.LBR / ZFCNFH.ZZ0 / ZFCNFH.Z80
Text File  |  2000-06-30  |  8KB  |  234 lines
  1.  
  2. ; Extracts from ZFILER source code for configuration purposes
  3.  
  4. ;===========================================================================
  5. ;
  6. ; ZFHDR.Z80 - General Equates, Configuration Information, External
  7. ;          Declarations
  8. ;
  9. ;===========================================================================
  10.  
  11. vers    equ    10        ; Version number
  12. subvers    equ    'h'        ; Use ' ' for none 
  13.  
  14.  
  15. ; Basic Definitions
  16.  
  17. false    equ    0
  18. true    equ    not false
  19. no    equ    false
  20. yes    equ    true
  21.  
  22.  
  23. ; User-Customized Options
  24.  
  25.     ; Default value for options settable by 'O' command
  26.  
  27. qryarc    equ    false        ; true to query file replace on group archiving
  28. qrygrp    equ    true        ; True to query file replace on group copy/usq
  29. qryrep    equ    true        ; Set true to query replace on single copy/usq
  30. qryvfy    equ    true        ; Ask whether to verify copy/usq
  31. vfydflt    equ    true        ; Verify default if no query
  32. nosys    equ    true        ; True to not display $SYS files
  33. defalpha equ    false        ; Set true to alpha by name and type, 
  34. attrfl    equ    true        ; Set attributes on copied files
  35. destfl    equ    true        ; Use attributes of destination if it exists
  36. arcfl    equ    true        ; ARC attribute always set for destination file
  37. cmdpathfl equ    true        ; Search path for CMD macro file
  38.  
  39. ; Configuration choices
  40.  
  41. cmdroot    equ    yes        ; If not using path to find CMD file, use root
  42. cmduser    equ    0        ; If not cmdroot, fixed user area for CMD file
  43. cmddrv    equ    'A'        ; If not cmdroot, fixed drive for CMD file
  44. novid    equ    false        ; True if reverse/low video not avail. <crw>
  45. usedseg    equ    true        ; True for separate DSEG for data
  46. bihelp    equ    true        ; True to provide built-in help info
  47. optcmd    equ    true        ; True to provide the (O)ption command
  48. usestk    equ    true        ; File mask on shell stk (true) or fn4 (false)
  49. macflag    equ    true        ; True to allow immediate 0..9 macro invocation
  50. zexhdr    equ    no        ; Yes for "^#^&" in group-macro ZEX script
  51. instmsg    equ    false        ; True to allow "Shell Installed" message
  52. newcpr    equ    true        ; True if using new CPR (ZCPR314 or later)
  53. logfl    equ    true        ; True to log in current dir with "Z" command
  54. warmboot equ    false        ; Set true to warmboot on exit
  55. exitcls    equ    false        ; True to clear screen on exit.
  56. exptab    equ    true        ; Set true to expand tabs on view, print
  57.  
  58. remote    equ    true        ; True to enforce wheel verification.
  59. dupswd    equ    true        ; True to enforce du: passwords
  60.  
  61. tagch    equ    '#'        ; Character used to mark tagged files
  62. stagch    equ    39        ; Soft tag character (')
  63.  
  64. tdelay    equ    10        ; Delay from error report to refresh (0.1s)
  65. dircmd    equ    'L'        ; New directory (N) command alias
  66. mleadin    equ    esc        ; Macro leadin character
  67. skipch    defl    'Z'        ; Control char for skip-to-end-of-file
  68.                 ; ..command while viewing
  69.  
  70. skipch    defl    skipch and 1fh    ; Do not change this (forces control char)
  71.  
  72. z3env    equ    0fe00h        ; ZCPR3 environment location (no longer
  73.                 ; ..needed except for debugging)
  74.  
  75. ;  Command Line Builder Constants
  76.  
  77. fpesc    equ    '$'        ; Macro parameter lead-in char
  78. fpwait    equ    '!'        ; Shell wait indicator
  79. fpgo    equ    '!'        ; Parameter to indicate 'GO' substitution
  80. fpcdir    equ    'C'        ; Current display directory (DIR form)
  81. fpdisk    equ    'D'        ; Current drive letter
  82. fphdu    equ    'H'        ; Home DU (see fphdir for DIR form)
  83. fpuser    equ    'U'        ; Current user number
  84. fpfile    equ    'F'        ; Filename.typ
  85. fpname    equ    'N'        ; File name only
  86. fptype    equ    'T'        ; File type only
  87. fpptr    equ    'P'        ; File entry being pointed to (du:fn.ft)
  88. fphdir    equ    'R'        ; Home DIR (see fphdu for DU form)
  89. mnote    equ    '#'        ; Denotes comment area in macro file
  90. uin1    equ    "'"             ; Single quote for user input
  91. uin2    equ    '"'        ; Double quote for user input
  92.  
  93. ; Screen Position Constants
  94.  
  95. frow    equ    3        ; First row of files display (3-21)
  96. frows    equ    21-frow        ; Rows of the file screen
  97.  
  98. fcols    equ    4
  99.  
  100. eltsiz    equ    13        ; Size of drive, filename and tag element
  101. entsiz    equ    79/fcols    ; Screen columns per file entry
  102. eps    equ    frows*fcols    ; Eps = entries per screen
  103. epsline    equ    frow+frows+1    ; Position of last line of eps
  104.  
  105. cpmadr    equ    epsline*256+1    ; Command prompt message
  106. cpadr    equ    epsline*256+29    ; Command prompt
  107. eradr    equ    [epsline+1]*256+15 ; Error message
  108. fsadr    equ    eradr        ; File size message
  109.  
  110.                 ; Values below for fcols=5 -- automatically
  111.                 ; ..adjusted for fcols=4 in the code
  112. banadr    equ    1*256+33    ; Banner address
  113. curhome    equ    frow*256+1    ; Home address of cursor
  114. botadr    equ    24*256+1    ; Bottom of screen
  115. fnadr    equ    1*256+63    ; Address of current file name
  116. duadr    equ    1*256+3        ; Address of current du
  117. moreadr    equ    2*256+63    ; Address of '[more files]' message
  118.  
  119.  
  120. ; ASCII Definitions
  121.  
  122. ctrla    equ    'A'-'@'
  123. ctrlb    equ    'B'-'@'
  124. ctrlc    equ    'C'-'@'
  125. ctrld    equ    'D'-'@'
  126. ctrle    equ    'E'-'@'
  127. ctrlf    equ    'F'-'@'
  128. ctrlr    equ    'R'-'@'
  129. ctrls    equ    'S'-'@'        ; Xoff..
  130. ctrlt    equ    'T'-'@'
  131. ctrlu    equ    'U'-'@'
  132. ctrlx    equ    'X'-'@'        ; Cancel..
  133. ctrlz    equ    'Z'-'@'
  134. null    equ    00h        ; Null
  135. bel    equ    07h        ; Bell
  136. bs    equ    08h        ; Backspace
  137. tab    equ    09h        ; Tab
  138. lf    equ    0ah        ; Linefeed
  139. ff    equ    0ch        ; Formfeed
  140. cr    equ    0dh        ; Carriage return
  141. can    equ    18h        ; Cancel
  142. eof    equ    1ah        ; End-of-file
  143. eofchar    equ    1ah        ; End-of-file
  144. esc    equ    1bh        ; Escape character
  145. del    equ    7fh        ; Delete/rubout
  146.  
  147.  
  148. ;===========================================================================
  149. ;
  150. ; ZFMAIN.Z80 - Main Code Block
  151. ;
  152. ;===========================================================================
  153.  
  154.     org    100h        ; For configuration file only
  155.  
  156. ; ZCPR3 Program Header (external environment only)
  157.  
  158. entry:
  159.     jp    start
  160.     db    'Z3ENV'        ; This is a zcpr3 utility
  161.     db    1        ; External environment descriptor
  162. z3eadr:    dw    z3env
  163.  
  164. ;---------------------------------------------------------------------------
  165.  
  166. ; Configuration and reference data
  167.  
  168.     ds    2 ; ctab1    ; Addresses of command tables for reference
  169.     ds    2 ; ctab2
  170.     ds    2 ; gtable
  171.  
  172.     db    'CONFIG'    ; Marker in code
  173.  
  174. logfladr:
  175.     db    logfl        ; Log in current directory with "Z" command
  176. leadadr:
  177.     db    mleadin        ; Macro leadin character here
  178. npause:
  179.     db    tdelay        ; Delay time on screen refresh after macro error
  180. macfladr:
  181.     db    macflag        ; Allow immediate execution of macros 0..9
  182. cmdrootadr:
  183.     db    cmdroot        ; Use root if no path search for CMD file
  184. cmddu:
  185.     db    cmduser        ; Fixed user area for CMD file
  186.     db    cmddrv-'A'    ; Fixed drive for CMD file (A=0)
  187.  
  188.  
  189. OPTIONS:            ; Begin options configurable with 'O' cmd
  190.                 ; DO NOT CHANGE ORDER
  191.  
  192. qryrepa:            ; #1
  193.     db    qryrep        ; Single file replace query option
  194. qrygrpa:            ; #2
  195.     db    qrygrp        ; Multiple file replace query option
  196. qryarca:            ; #3
  197.     db    qryarc        ; Query on archive replacement
  198. qryvfya:            ; #4
  199.     db    qryvfy        ; Verify query option
  200. vflag:                ; #5
  201.     db    vfydflt        ; Verify default if no query or no answer
  202. nosysa:                ; #6
  203.     db    nosys        ; Supress display of SYS files
  204. defalfa:            ; #7
  205.     db    defalpha    ; Initial file sorting mode (FF for name)
  206. attrfla:            ; #8
  207.     db    attrfl        ; Set attributes in copied files
  208. destfla:            ; #9
  209.     db    destfl        ; Use attributes of dest file (if exists)
  210. arcfla:                ; #10
  211.     db    arcfl        ; Set ARC attribute in destination file
  212. cmdpatha:            ; #11
  213.     db    cmdpathfl    ; Use path to search for CMD file
  214.  
  215. shwait:                ; Flag also saved on stack with options
  216.     db    0
  217.  
  218. nopt    equ    $ - options    ; Number of option flags to save/restore
  219.  
  220.      if    newcpr
  221. z33opt:                ; Values to use when Z33 not running
  222.     db    0
  223.     db    0        ; Bit 7 controls access to users > 15
  224.     db    10100000B    ; Bit 7 for password checking, bit 5 to
  225.                 ; ..skip checking when wheel is set
  226.     db    0
  227.      endif    ; newcpr
  228.  
  229. ;---------------------------------------------------------------------------
  230.  
  231. ; Initialization Code
  232.  
  233. start:
  234.