home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / vfiler43.lbr / VFDATA.LZB / VFDATA.LIB
Encoding:
Text File  |  1993-10-25  |  3.9 KB  |  147 lines
  1. ; VFDATA.Z80
  2.  
  3.  
  4. ; S T O R A G E
  5.  
  6. ; Initialized
  7.  
  8. headmsg:
  9.     db    'File: '    ; Length 6
  10.  
  11. usqsep:    db    ' --> '        ; Length 5
  12.  
  13. pagehdr:
  14.     db    '   Page '    ; Length 8
  15.  
  16. headskp:
  17.     db    cr,lf,cr,lf
  18.  
  19. morehelp:
  20.     db    'HELP '        ; Help command for further info
  21.     vfname            ; Vfiler name
  22.     db    0
  23.  
  24. macfcb:    db    0
  25.     vfname            ; Vfiler name
  26.     vfnfill            ; Filler
  27.     db    'CMD'
  28.  
  29. filercmd:
  30.     vfname            ; Vfiler name
  31.     vfnfill            ; Filler
  32.     db    ' '        ; One space
  33.  
  34. file$d:    db    'x'
  35. file$u:    db    'xx'
  36.     db    ':'        ; Colon
  37.     db    0
  38.  
  39. joker:    db    '???????????'    ; *.* equivalent
  40.  
  41. nodir:    db    'Noname  '    ; Current dir if not resolved.
  42.  
  43.  
  44.     ; Uninitialized
  45.  
  46.  
  47.      if    usedseg
  48.  
  49.     dseg
  50.  
  51.     endif
  52.  
  53. initflag:ds    1        ; Flag to show whether initial load
  54. pubyts:    ds    2        ; Save area for ZRDOS public bytes
  55. first$m:ds    1        ; 1st time thru in mass-copy mode
  56. mflag:    ds    1        ; Multiple file copy flag-->0 for mass copy
  57. aflag:    ds    1        ; True to archive files
  58.  
  59. tag$tot:ds    2        ; Summation of tagged file sizes
  60. stack:    ds    2
  61.  
  62. ltpp:    ds    1        ; Lines of text per printer page
  63. lppp:    ds    1        ; Total lines per physical page
  64. lffeed:    ds    1        ; Printer can formfeed (0=no)
  65. ctpp:    ds    1        ; Lines of text per crt screen
  66. pagenum:ds    2        ; Printed page number
  67.  
  68. maxpage:ds    1        ; Highest legal page in memory
  69. cpecnt:    ds    1        ; # chars to clear command line.
  70. erecnt:    ds    1        ; # chars to clear error line.
  71. alpha:    ds    1        ; Alphabetization flag (0=type and name, 0ffh=
  72.  
  73. b$max:    ds    2        ; Highest block number on drive
  74. b$mask:    ds    1        ; Sec/blk-1
  75. bshiftf:ds    1        ; # of shifts to multiply by sec/blk
  76. bufentry:ds    2        ; Buffer start
  77.  
  78. buf$pt:    ds    2        ; Copy buffer current pointer..
  79. bufstart:ds    2        ; And begin pointer.
  80. usqbuff@:ds    2        ; Usq file buffer begin pointer.
  81. cmdbuf:    ds    2        ; Command buffer pointer
  82.  
  83. canflg:    ds    1        ; No-file-found cancel flag
  84. du$orig:ds    2        ; Original du:
  85. du$req:    ds    2        ; Requested du:
  86. du$dest:ds    2        ; Destination du:
  87.  
  88.      if    exptab
  89. charcnt:ds    1        ; Character count for tab expansion
  90.      endif
  91.  
  92. con$lst:ds    1        ; Bdos function storage
  93. crctbl:    ds    2        ; Tables for 'crc' calculations
  94. crcval:    ds    2        ; 2-byte 'crc' value of working file and..
  95. crcval2:ds    2        ; Of finished source read-file.
  96.  
  97. curat:    ds    2        ; Current cursor position
  98. delcode:ds    1        ; Deletion code (0=delete not done)
  99. usqfid:    ds    12        ; Unsqueezed file filename.ext <0>
  100. d$fcb:    ds    36        ; Fcb for destination file/new name if rename
  101.  
  102. disksp:    ds    2        ; Space remaining on disk
  103. dum$fcb:ds    2        ; Dummy fcb for file attributes
  104. eoflag:    ds    1        ; File copy loop 'eof' flag
  105.  
  106. helpdisp:ds    1        ; Display help screen (0=no)
  107. lpscnt:    ds    1        ; Lines-per-screen for 'view'
  108. locbeg:    ds    2        ; Local beginning of ring
  109. locend:    ds    2        ; Local end of ring
  110. locpos:    ds    2        ; Local ring position (temp)
  111.  
  112. massop:    ds    1        ; Mass file operation code (0=no)
  113. maxdr:    ds    1        ; Max driver letter
  114. mdflg:    ds    1        ; Mass delete verify flag
  115.  
  116. rcnt:    ds    2        ; # of records in file and..
  117. rec$cnt:ds    2        ; Currently in ram buffer.
  118. rec$max:ds    2        ; Maximum 128-byte record capacity of buffer
  119. urecmax:ds    2        ; Maximum 128-byte record capacity - usq
  120.  
  121. ring:    ds    2        ; Ptr to beginning of ring
  122. ringend:ds    2        ; Current ring end pointer
  123. ringpos:ds    2        ; Current ring position in scan
  124. ringcnt:ds    2        ; Number of array elements
  125.  
  126. ringgap:ds    2        ; Ring shell sort gap variable
  127. ringdiff:ds    2        ; Ring sort diference variable.
  128. ringi:    ds    2        ; Ring sort pointer
  129. ringj:    ds    2        ; Another ring sort pointer
  130.  
  131. scurat:    ds    2        ; Save cursor position
  132. s$fcb:    ds    36        ; Fcb for source (random record) file
  133. sringpos:ds    2        ; Save ring position
  134.  
  135. usqflg:    ds    1        ; 0 if file is squeezed.
  136. sqcksum:ds    2        ; Sq header checksum.
  137. cksumval:ds    2        ; Actual usq checksum.
  138. numvals:ds    2        ; Number of nodes in decode tree.
  139.  
  140. repcnt:    ds    1        ; # of remaining repeats for a character.
  141. curusq:    ds    2        ; Current usq file byte and bit number.
  142. last:    ds    1        ; Last unsqueezed char (may be repeated).
  143.  
  144.      if    dupswd
  145. pswdbuf:ds    10        ; Buffer for user password entry.
  146.      endif
  147.