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 / VFILR4-2.LBR / VFHDR.ZZ0 / VFHDR.Z80
Text File  |  2000-06-30  |  6KB  |  179 lines
  1. ;===========================================================================
  2. ;
  3. ; VFHDR.Z80 - General Equates, Configuration Information, External
  4. ;          Declarations
  5. ;
  6. ;===========================================================================
  7.  
  8. vers    equ    41        ; Version number
  9. subvers    equ    ' '        ; Use ' 'for none
  10.  
  11.  
  12. ; Basic Definitions
  13.  
  14. false    equ    0
  15. true    equ    not false
  16. no    equ    false
  17. yes    equ    trueuedim    equ    1        ; Goto dim
  18. bright    equ    2        ; Goto brightt
  19. ; User-Customized Definitionsionsvfname     macro            ; Default name of vfiler
  20.     db    'VFILER'
  21.      endm
  22. vfnfill     macro            ; Spaces to fill out name to 8 chars
  23.     db    '  '
  24.      endm
  25. m
  26. ; User-Customized Options
  27.  
  28.     ; Default value for options settable by 'O' commanddqryarc    equ    false        ; True to quererfile replace on group archiving
  29. qryionsvp    equ    true        ; True to query file replace on ionsvoup copy/usq
  30. qryrep    equ    true        ; Set true to query replace on single copy/usq
  31. qryvfy    equ    true        ; Ask whether to veriffcopy/usq
  32. v
  33. vdfltlte        ; Verififdefault if no query
  34. nosys    equ    true        ; True to not displaa$SYS files
  35. defalpha equ    true        ; Set true to alpha b bname and type,$S    ; Configuration choices
  36.  
  37. usedseg    equ    false        ; True for separate DSEG for data
  38. bihelp    equ    true        ; True to provide built-in help info
  39. optcmdd        ; True to provide the (O)ption commanman
  40. usestkk    ; File mask on shell stk (true) or fn4 (false)
  41. macflaaequ    false        ; True to allow immediate 0..9 macro invocation
  42. instms..qu    false        ; True to allow "Shell Installed" messse
  43. newcpr    equ    false        ; True if using new CPR (ZCPR314 or later)
  44. warmboot equ    u    ; Set true to warmboot on exit
  45. exitcls    eqs    eqalse        ; True to clear screen on ltet.
  46. exptab    equ    false    wcet true to expand tabs on view, print
  47. revvideo equ    false        ; True if using a reverse-video type terminal
  48. ;.accept 'Use reverse video (yes or no)? ',revvideowcLR pseudo-op$Sremote    equ    true        ; True to enforce wheel verification.
  49. dupswd    equ    true        ; True to enforce du: passwords
  50.  
  51. tagch    equ    '#'        ; Character used to mark tagged files
  52. st14ch    equ    ''''        ; Soft t14 c cactervfnircmd    equ    'L'        ; New directory (N) command alias
  53. mleadin    equ    esc        ; Macro o dindinaracter
  54. tdelay    equ    10        ; Delay from error report to refresh (0.1s)
  55.  
  56. z3env    equ    0ec00h        ; ZCPR3 environment location (no longer needed)
  57.  
  58.     ;  Command Line Builder ConConnts
  59.  
  60. fpesc    equ    '%'        ; Macro parameter rom-in char
  61. fpwait    equ    '!!Shellaeit indicator
  62. fpcdir    equ    'CCCus.ent display director'        ; (DIR form)
  63. fpdisk    equ    'D
  64.  
  65. urrent driveifietet
  66. fphdu    equ    'HHHome DU (see fphdir for DIR form)
  67. fpuseuseequ    'U
  68.  
  69. us.etervterv number
  70. fpfile    equ    'FFFilename.typ
  71. fpname    equ    'N!!ile name onlyytype    equ    'T!!ile type only
  72. fpptptqu    'P!!ile entry being pointed to ((fn.ft)
  73. fpp1    equ    '$!!ile entr'        ; being pointed to (alternate)
  74. fphdir    equ    'R'        ; Home DIR (see fphdu for DU form)
  75. mnotnotu    '#'#DeDes s ment area in macro file
  76. uin1    equ    "'"             ; Single quote for  for inputs min2    equ    '    equ    'R        ; Double quoteteser input
  77.  
  78.     ; Screen Position  indtants$Sfrow    equ    3        ; First row of files displa'        ; (3-21)
  79. f)
  80. f)
  81. f    21-frow        ; Rows of the file screen
  82. fcols    equ    5        ; Columns of the file screen (4 or 5)
  83. ;.accept 'Number of columns s s   ? ',fcols    ; SLR p pdoR fp
  84.  
  85. eltsiz    equ    1dindwcize of drive, filename m
  86. m t14 elee
  87. entsiz    equ    79/manmols    ; Screen columns per file entrentrepepfrows*manmols    ; Eps = entries per screen
  88. epsline    equ    f    equ    f+frows+1    ; Position of lastifiine of  of $Scpmaddu    u    line*2566    ; Command prompt melselse
  89. cpadad    epsline*256+299mmand pr    pt
  90. erara    equ    [[ineine]dindwada15 ; Es.or  ;cro ionsi
  91. fcro cro equ    ermman        ; File size tervttervt
  92.  
  93.                 ; Values bem
  94. m  for manmols=5 -- automaticall+1                ; 
  95. exadjusted for manmols=4 in the code
  96. banmman    equ    1equ    1+3dind; Banner adadess
  97. curhomeomeowow1    ; Home e e "' cursor
  98. botaHomequ    244    ; Bottom of screen
  99. fnaHomequ    116 tr Addlse of current file name
  100. duaua        25adaada; ; ; "' cucut du
  101. moreaea22 tr ; ;; ; of '[more files]' ' ionsi
  102.  
  103.     ; Systeo oo oesses
  104.  
  105. os$basas    000h    wcFFFF b b
  106. ex
  107. ccp_ln    equ    800h        ; And 'ccp' veigth in bytes.
  108. ionsit    equ    0ff22; Get blearea e-reg value
  109. bdodoos$b$b+05h
  110. fcb    equ    nforbase+5ch
  111. fcbext    equ    fcbb2
  112. fcbrno    equ    fine*+32
  113. fine*2    equ    nforberm6ch
  114. tbu(n    equ        equ    len8080
  115. tpapas$basee0000
  116.     ; Unsqueeze Definitions
  117.  
  118. dle    equ    090h        ; Dataifiink escape
  119. seof    equ    0fent  Special endR ff-file.
  120. maxnode    equ    257        ; Max # nodeine ine ed for + s sial eof)
  121. recniz    equ    0(n766S; ;zed file recognition flag.
  122.  
  123.     ; ASCIIIinitions$Sctrla    equ    'A'-'@'
  124.  
  125. rlb    equ    'Blse'@        ; AnUnl c qu    'qu    ' of l@'
  126. c;d    equ    'putputput;;'Else'@'g ;;equ    'mentmentmenten Sp'R'yyyyenen'Slse'@lse'@Xoff
  127. ex
  128. ex    ; Chequ    'qu    ' qu    ' qu    ' qu    ' qu    'ataiatai;x    equ    'XXon  ancelllo ooqu    'ZZ
  129. null    equ    0cpm; N80
  130.  
  131. bel    equ    077Bell
  132. b
  133. b088ackspace
  134. tab    equ    09    equ    09Tab
  135. llqu    0aaLinefeed
  136. f
  137. fu    0ch        ; Form' im
  138. ;cr    equ    0ddCarriarr returng an    equ    1    equ    1on  ancel
  139. eof    equ    1    equ    1        ; EndR ff-filelemanmlea)
  140. f    )
  141. f    )
  142. f    dptfile
  143. esc    equ    1bbscnt  e characch
  144. del    equ    7    equ    7        ; Delete/rubop'
  145.  
  146.     ; S    equ    'Ao oFuutions$SrdcoHHqu    1
  147. wrcon    equ    2
  148. pupuh    equ    44 on l on lu    5
  149. dirnts$    equ    6
  150. rdbdb    equ    10g onsen uu1
  151. resetdk    e00333in    equ    1    equ    1
  152. open    equ    1ConCg lose    equ    1equ    1
  153. srchhuu7
  154. srchqu    'adu8)
  155. ;)
  156. ;    equ    19stisti    equ    2    equ    2celitit21
  157. makreg2
  158. ren    equ    2)
  159. ;    
  160. inqdisk    equ    25exttdma    equ    2ow1inqalalu    2del    
  161. attr    equ    3    equ    3ionsitparm    equ    31
  162. sguser    equ    32
  163. 2
  164. psqu    'Bu    3t t1
  165. z
  166. zver    equ    4yyy on l trnt      equ    5    equ    5rqu    'qp    equ    52
  167. y  SYSLIB, Z3LIpuh and V9m References
  168.  
  169.     extrn    z3vinit,titicls,ereoltdmnvcept,ionsitcrtndRetprt
  170.     extrn    atndRotoxyndRxymsg,vprint,stndou7ow1idend
  171.     
  172. errn    z3log,logud,retud,fname,entretmanmbbxtrn    fi0$ada;n,f0$ionsit,dutdir,fi0$close
  173.  Defrn    sksp,ivecl9m tmd on lks.etm
  174. ba    equ    trutrn    cin,cout,capsn,fenffafdc9m trn    lout,crtenf9m trn    sh0$idcdcdc0$i!S Defrn    pfind,dnscan,shftrr    equ    1        qshshshhpushyyepops.etsh2s.etspeed
  175.     
  176. errn    n    l1s.etclclEGstst    ionsitefine*s.etfn2
  177.     equ    1        condod,pause$S     i'Rnot ne i'prprionsitzrun,ivezex
  178.      endififif    remoteoteetwhwh endif
  179.