home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zf11src.lbr / ZFDATA.ZZ0 / ZFDATA.Z80
Encoding:
Text File  |  1992-10-01  |  4.9 KB  |  176 lines
  1. .printx    Reading ZFDATA.Z80
  2. ;===========================================================================
  3. ;
  4. ; ZFDATA.Z80
  5. ;
  6. ;===========================================================================
  7.  
  8. ; S T O R A G E
  9.  
  10. ; Initialized
  11.  
  12. headmsg:
  13.     db    'File: '    ; Length 6    ******
  14.  
  15. usqsep:    db    ' --> '        ; Length 5
  16.  
  17. pagehdr:
  18.     db    '   Page '    ; Length 8    ******
  19.  
  20. headskp:
  21.     db    cr,lf,cr,lf
  22.  
  23. morehelp:
  24.     db    'HELP '        ; Help command for further info    ******
  25.     zfname            ; ZFILER name
  26.     db    0
  27.  
  28. macfcb:    db    0
  29.     zfname            ; ZFILER name
  30.     zfnfill            ; Filler
  31.     db    'CMD'        ; Macro file type
  32.  
  33. joker:    db    '???????????'    ; *.* equivalent
  34.  
  35. nodir:    db    'noname '    ; Name to use if directory has no name
  36.  
  37.  
  38.     ; Uninitialized
  39.  
  40.  
  41.     if    usedseg
  42.  
  43.     dseg
  44.  
  45.     endif
  46.  
  47. initflag:ds    1        ; Flag to show whether initial load
  48. pubyts:    ds    2        ; Save area for ZRDOS public bytes
  49. dosid    ds    1        ; 'S' or 'D' for ZSDOS, 0 otherwise
  50. first$m:ds    1        ; 1st time thru in mass-copy mode
  51. mflag:    ds    1        ; Multiple file copy flag-->0 for mass copy
  52. aflag:    ds    1        ; True to archive files
  53. casefl:    ds    1        ; Uppercase/lowercase filename display
  54.  
  55. tag$tot:ds    2        ; Summation of tagged file sizes
  56. stack:    ds    2
  57.  
  58. ltpp:    ds    1        ; Lines of text per printer page
  59. lppp:    ds    1        ; Total lines per physical page
  60. lffeed:    ds    1        ; Printer can formfeed (0=no)
  61. ctpp:    ds    1        ; Lines of text per crt screen
  62. pagenum:ds    2        ; Printed page number
  63.  
  64. maxpage:ds    1        ; Highest legal page in memory
  65. cpecnt:    ds    1        ; # chars to clear command line.
  66. erecnt:    ds    1        ; # chars to clear error line.
  67. alpha:    ds    1        ; Alphabetization flag (0=type and name, 0ffh=
  68.  
  69. b$max:    ds    2        ; Highest block number on drive
  70. b$mask:    ds    1        ; Sec/blk-1
  71. bshiftf:ds    1        ; # of shifts to multiply by sec/blk
  72. bufentry:ds    2        ; Buffer start
  73.  
  74. buf$pt:    ds    2        ; Copy buffer current pointer..
  75. bufstart:ds    2        ; And begin pointer (phase 1 macro expansion)
  76. macbuf:    ds    2        ; Pointer to phase 2 macro expansion
  77. gmacrobuf: ds    2        ; Pointer to beginning of group macro buffer
  78. gmacroptr: ds    2        ; Pointer into group macro buffer                                
  79. usqbuff@:ds    2        ; Usq file buffer begin pointer.
  80. cmdbuf:    ds    2        ; Command buffer pointer
  81. mac$num: ds    1        ; Tagged file count for group macro
  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. filercmd:
  145.     ds    13
  146.  
  147.      if    datestamp
  148. rwflag:
  149.     ds    1        ; Read/write status flag
  150. tdsector:
  151.     ds    2        ; General sector number buffer
  152. tdindex:
  153.     ds    1        ; General index buffer
  154. ssector:
  155.     ds    2        ; Sector number for source file
  156. sindex:
  157.     ds    1        ; Directory offset for source file
  158. dsector:
  159.     ds    2        ; Sector number for destination file
  160. dindex:
  161.     ds    1        ; Directory offset for destination file
  162. bdosde:
  163.     ds    2        ; Value returned by DS in registers DE
  164. tdfcb:
  165.     ds    36        ; FCB for time and date file
  166. timestr:
  167.     ds    15        ; Time stamp string buffer
  168. tdbuff:
  169.     ds    128        ; DMA buffer for T&D file
  170. gotstp:
  171.     ds    1        ; ZSDOS GetStp successful flag
  172.  
  173.      endif    ;datestamp
  174.  
  175. ; End of ZFDATA.Z80
  176.