home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zf11src.lbr / ZFHDR.ZZ0 / ZFHDR.Z80
Encoding:
Text File  |  1992-10-03  |  7.9 KB  |  260 lines
  1. .printx    Reading ZFHDR.Z80
  2. ;===========================================================================
  3. ;
  4. ; ZFHDR.Z80 - General Equates, Configuration Information, External
  5. ;          Declarations
  6. ;
  7. ;===========================================================================
  8.  
  9. z3env    equ    0fe00h        ; For debugging purposes
  10.  
  11. ; Basic Definitions
  12.  
  13. false    equ    0
  14. true    equ    not false
  15. no    equ    false
  16. yes    equ    true
  17.  
  18. dim    equ    1        ; Goto dim
  19. bright    equ    2        ; Goto bright
  20.  
  21.  
  22. ; User-Customized Definitions
  23.  
  24. zfname     macro            ; Default name of ZFILER
  25.     db    'ZFILER'
  26.      endm
  27. zfnfill     macro            ; Spaces to fill out name to 8 chars
  28.     db    '  '
  29.      endm
  30.  
  31.  
  32. ; User-Customized Options
  33.  
  34.     ; Default value for options settable by 'O' command
  35.  
  36. qryarc    equ    false        ; True to query file replace on group archiving
  37. qrygrp    equ    true        ; True to query file replace on group copy
  38. qryrep    equ    true        ; Set true to query replace on single copy
  39. qryvfy    equ    false        ; Ask whether to verify copy/usq
  40. vfydflt    equ    true        ; Verify default if no query
  41. nosys    equ    true        ; True to not display $SYS files
  42. defalpha equ    true        ; Set true to alpha by name and type, 
  43. attrfl    equ    false        ; Set attributes on copied files
  44. destfl    equ    true        ; Use attributes of destination if it exists
  45. arcfl    equ    false        ; ARC attribute always set for destination file
  46. cmdpathfl equ    true        ; Search path for CMD macro file
  47. filtfl    equ    true        ; Filter VIEW and PRINT output
  48. savtfl    equ    true        ; Save tagged file list across shell invocations
  49. wtagopfl equ    false        ; Wild tag/untag from file pointer
  50. gtagopfl equ    true        ; Group tag/untag from file pointer
  51.  
  52.     ; Configuration choices
  53.  
  54. cmdroot    equ    yes        ; If not using path to find CMD file, use root
  55. cmduser    equ    0        ; If not cmdroot, fixed user area for CMD file
  56. cmddrv    equ    'A'        ; If not cmdroot, fixed drive for CMD file
  57. batroot    equ    yes        ; Put group macro batch file in root directory
  58. batuser    equ    0        ; If not batroot, fixed user for batch file
  59. batdrv    equ    'A'        ; If not batroot, fixed drive for batch file
  60. tagroot    equ    yes        ; Put tag file in root directory
  61. taguser    equ    0        ; If not tagroot, fixed user for tag file
  62. tagdrv    equ    'A'        ; If not tagroot, fixed drive for tag file
  63. novid    equ    false        ; True if reverse/low video not avail.
  64. upcase    equ    no        ; Display file names in upper case (if CASEOPT)
  65. usedseg    equ    true        ; True for separate DSEG for data
  66. bihelp    equ    true        ; True to provide built-in help info
  67. optcmd    equ    true        ; True to provide the (O)ption command
  68. usestk    equ    true        ; File mask on shell stk (true) or fn4 (false)
  69. macflag    equ    true        ; True to allow immediate 0..9 macro invocation
  70. instmsg    equ    false        ; True to allow "Shell Installed" message
  71. logfl    equ    true        ; True to log in current dir with "Z" command
  72. warmboot equ    false        ; Set true to warmboot on exit
  73. clsfla    equ    true        ; True to clear screen on exit.
  74. exptab    equ    true        ; Set true to expand tabs on view, print
  75.  
  76. .accept '...DateStamper code ("yes" or "no")?  ',datestamp; SLR pseudo-op
  77. .accept '...Use reverse video ("yes" or "no")? ',revvideo    ; SLR pseudo-op
  78. .accept '...Number of columns ("4" or "5")?    ',fcols    ; SLR pseudo-op
  79.  
  80. unsqz    equ    false        ; True to include unsqueeze code
  81. remote    equ    true        ; True to enforce wheel verification.
  82. dupswd    equ    true        ; True to enforce du: passwords
  83.  
  84. tagch    equ    '#'        ; Character used to mark tagged files
  85. stagch    equ    39        ; Soft tag character (')
  86.  
  87. tdelay    equ    10        ; Delay from error report to refresh (0.1s)
  88. dircmd    equ    'L'        ; New directory (N) command alias
  89. mleadin    equ    esc        ; Macro leadin character
  90. skipch    defl    'Z'        ; Control char for skip-to-end-of-file
  91.                 ; ..command while viewing
  92.  
  93. skipch    defl    skipch and 1fh    ; Do not change this (forces control char)
  94.  
  95.     ;  Command Line Builder Constants
  96.  
  97. fpesc    equ    '$'        ; Macro parameter lead-in char
  98. fpwait    equ    '!'        ; Shell wait indicator
  99. fpgo    equ    '!'        ; Parameter to indicate 'GO' substitution
  100. fpcdir    equ    'C'        ; Current display directory (DIR form)
  101. fpdisk    equ    'D'        ; Current drive letter
  102. fphdu    equ    'H'        ; Home DU (see fphdir for DIR form)
  103. fpuser    equ    'U'        ; Current user number
  104. fpfile    equ    'F'        ; Filename.typ
  105. fpname    equ    'N'        ; File name only
  106. fptype    equ    'T'        ; File type only
  107. fpptr    equ    'P'        ; File entry being pointed to (du:fn.ft)
  108. fphdir    equ    'R'        ; Home DIR (see fphdu for DU form)
  109. mnote    equ    '#'        ; Denotes comment area in macro file
  110. uin1    equ    "'"             ; Single quote for user input
  111. uin2    equ    '"'        ; Double quote for user input
  112. clschr    equ    '*'        ; Clear screen during prompt
  113.  
  114.     ; Register for number of tagged files (for ZEX testing)
  115. usrreg    equ    5        ; Default to REG 5
  116. zexclr    equ    true        ; Erase ZFILER.ZEX on startup
  117.  
  118.     ; Screen Position Constants
  119.  
  120. frow    equ    3        ; First row of files display (3-21)
  121. frows    equ    21-frow        ; Rows of the file screen
  122.  
  123. eltsiz    equ    13        ; Size of drive, filename, tag
  124. tagoff    equ    12        ; Tag offset in element
  125. entsiz    equ    79/fcols    ; Screen columns per file entry
  126. eps    equ    frows*fcols    ; Eps = entries per screen
  127. epsline    equ    frow+frows+1    ; Position of last line of eps
  128.  
  129. cpmadr    equ    epsline*256+1    ; Command prompt message
  130. cpadr    equ    epsline*256+29    ; Command prompt
  131. eradr    equ    [epsline+1]*256+15 ; Error message
  132. fsadr    equ    eradr        ; File size message
  133.  
  134.                 ; Values below for fcols=5 -- automatically
  135.                 ; ..adjusted for fcols=4 in the code
  136. banadr    equ    1*256+33    ; Banner address
  137. curhome    equ    frow*256+1    ; Home address of cursor
  138. botadr    equ    24*256+1    ; Bottom of screen
  139. fnadr    equ    1*256+63    ; Address of current file name
  140. duadr    equ    1*256+3        ; Address of current du
  141. moreadr    equ    2*256+63    ; Address of '[more files]' message
  142.  
  143.     ; System Addresses
  144.  
  145. os$base    equ    000h        ; System base..
  146. ccp_ln    equ    800h        ; And 'ccp' length in bytes.
  147. get    equ    0ffh        ; Get user area e-reg value
  148. bdosptr    equ    os$base+05h
  149. fcb    equ    os$base+5ch
  150. fcbext    equ    fcb+12
  151. fcbrno    equ    fcb+32
  152. fcb2    equ    os$base+6ch
  153. tbuff    equ    os$base+80h
  154. tpa    equ    os$base+100h
  155.  
  156.     ; Unsqueeze Definitions
  157.  
  158. dle    equ    090h        ; Data link escape
  159. seof    equ    0feh        ; Special end-of-file.
  160. maxnode    equ    257        ; Max # nodes (256 char + special eof)
  161. recniz    equ    0ff76h        ; Squeezed file recognition flag.
  162.  
  163.     ; ASCII Definitions
  164.  
  165. ; Define 26 control characters
  166. ;   
  167.     irpc    xx,ABCDEFGHIJKLMNOPQRSTUVWXYZ
  168. ;;ctrlA equ    'A'-'@'
  169. ctrl&xx    equ    '&xx'-'@'
  170.      endm
  171.     
  172. null    equ    00h        ; Null
  173. bel    equ    07h        ; Bell
  174. bs    equ    08h        ; Backspace
  175. tab    equ    09h        ; Tab
  176. lf    equ    0ah        ; Linefeed
  177. ff    equ    0ch        ; Formfeed
  178. cr    equ    0dh        ; Carriage return
  179. can    equ    18h        ; Cancel
  180. eof    equ    1ah        ; End-of-file
  181. eofchar    equ    1ah        ; End-of-file
  182. esc    equ    1bh        ; Escape character
  183. del    equ    7fh        ; Delete/rubout
  184.  
  185.     ; System Functions
  186.  
  187. swcon    equ    01h        ; Switch flag for console output
  188. swlst    equ    80h        ; Switch flag for printer output
  189.  
  190. rdcon    equ    1
  191. wrcon    equ    2
  192. punch    equ    4
  193. list    equ    5
  194. dircon    equ    6
  195. rdbuf    equ    10
  196. dosver    equ    12
  197. const    equ    11
  198. resetdk    equ    13
  199. login    equ    14
  200. open    equ    15
  201. close    equ    16
  202. srchf    equ    17
  203. srchn    equ    18
  204. erase    equ    19
  205. read    equ    20
  206. write    equ    21
  207. make    equ    22
  208. ren    equ    23
  209. inqdisk    equ    25
  210. setdma    equ    26
  211. inqalc    equ    27
  212. attr    equ    30
  213. getparm    equ    31
  214. sguser    equ    32
  215. compsz    equ    35
  216.  
  217. zrdver    equ    48
  218. strap    equ    50
  219. rtrap    equ    52
  220.  
  221. getstp    equ    102    ; ZSDOS get file stamp
  222. setstp    equ    103    ; ZSDOS set file stamp
  223.  
  224. ; FRESET10 Reference
  225.  
  226.     extrn    freset
  227.  
  228.     .request vlib,z3lib,syslib,freset
  229.  
  230. ; VLIB References
  231.  
  232.     extrn    z3vinit,tinit,dinit,cls,ereol,vpstr
  233.     extrn    at,gotoxy,gxymsg,vprint,stndout,stndend
  234.  
  235. ; Z3LIB4 References
  236.  
  237.     extrn    z33chk,getccp,gcmddu
  238.     extrn    highuser,getsrun
  239.     extrn    getname,zsyschk
  240.     extrn    envptr,getcrt,getprt
  241.     extrn    getzrun,getmsg
  242.     extrn    dutdir,z3log,putcl,getmdisk,getmuser
  243.     extrn    qshell,shpush,shpop,getsh2,getspeed,getduok
  244.     extrn    getcl1,getcl2,putcst
  245.     extrn    getefcb,getfn2
  246.     extrn    pfind,dnscan,root
  247.     extrn    getwhl
  248.     extrn    putreg
  249.  
  250. ; SYSLIB4 References
  251.  
  252.     extrn    fi0$open,f0$get,fi0$close,f$exist
  253.     extrn    fo0$open,f0$put,fo0$close,f$delete
  254.     extrn    condin,cin,cout,caps,crlf,pafdc,mafdc,acase1
  255.     extrn    sksp,lout,lcrlf,sout,shlfdc,sctlfl
  256.     extrn    codend,pause,shftrh
  257.     extrn    logud,retud,fname,initfcb
  258.  
  259. ; End of ZFHDR.Z80
  260.