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 / ENTERPRS / CPM / UTILS / S / UNZIP02.ARC / UDATZI.Z80 next >
Text File  |  1991-04-25  |  2KB  |  90 lines
  1.     public    IPuser,OPuser
  2.     public    mode,junk,lfh,gpbf,cm,lmft
  3.     public    lmfd,crc,cs,ucs,fnl,efl
  4.     public    endlfh,lfhsiz,opfcb,opfn,opext,bitbuf,vars
  5.     public    bleft,wrtpt,outpos,crc32,curmode,opbuf
  6.     public    L_table,D_shift,V,nchar,lchar,ExState
  7.     public    Len,ltp,mml,dictb,noswps,entrs
  8.     public    lbl,oldcode,offset,codesize,maxcode,free_ent,
  9.     public    finchar,stackp,incode,code,outbuf,suffix_of
  10.     public    prefix_of,Slen,lit_tree,len_tree,dist_tre,followers,stack
  11.     public    fcb2sav
  12.     
  13.     ASEG
  14.     
  15. ; Unitialised data for UNZIPZ
  16.  
  17.     .in    unzipequ    ; Equates
  18.  
  19. lfhsiz    equ    endlfh - lfh    ; This equate added to facilitate assembly
  20.  
  21.     DSEG
  22.  
  23. IPuser    equ    $        ; User number for input file
  24. OPuser    equ    IPuser+1    ; User number for output file
  25. fcb2sav    equ    OPuser+1    ; Buffer to hold copy of filename in FCB2
  26. mode    equ    fcb2sav+11    ; 0 if extracting, NZ if checking
  27. junk    equ    mode+1        ; General buffer
  28.  
  29. lfh    equ    junk+STRSIZ    ; 2 bytes
  30. gpbf    equ    lfh+2        ; 2 bytes
  31. cm    equ    lfh+4        ; Compression type.    0=none
  32.                 ;            1=
  33.                 ;              2-5=
  34.                 ;            6=
  35. lmft    equ    lfh+6
  36. lmfd    equ    lfh+8
  37. crc    equ    lfh+10        ; 32 bit CRC (four bytes)
  38. cs    equ    lfh+14        ; Length of file as stored        (32 bit)
  39. ucs    equ    lfh+18        ; Length of file after extraction (32 bit)
  40. fnl    equ    lfh+22        ; Length of the filename
  41. efl    equ    lfh+24        ; Length of other stuff
  42. endlfh    equ    lfh+26
  43.  
  44. opfcb    equ    lfh+27        ; Output FCB
  45. opfn    equ    lfh+28        ; Output filename
  46. opext    equ    lfh+36        ; Output type
  47.  
  48. bitbuf    equ    opext+3+4+16+1
  49. vars    equ    bitbuf+1
  50. bleft    equ    vars
  51. wrtpt    equ    vars+1
  52. outpos    equ    wrtpt+1
  53. crc32    equ    outpos+4
  54. curmode    equ    crc32+4
  55. opbuf    equ    curmode+1
  56. L_table    equ    opbuf+128
  57. D_shift    equ    L_table+1
  58.  
  59. V    equ    D_shift+1
  60. nchar    equ    V+1
  61. lchar    equ    nchar+1
  62. ExState    equ    lchar+1
  63. Len    equ    ExState+1
  64. ltp    equ    Len+2
  65. mml    equ    ltp+1
  66. dictb    equ    mml+1
  67. noswps    equ    dictb+1
  68. entrs    equ    noswps+1
  69. lbl    equ    entrs+2
  70. oldcode    equ    lbl+1
  71. offset    equ    oldcode+2
  72. codesize equ    offset+2
  73. maxcode    equ    codesize+1
  74. free_ent equ    maxcode+2
  75. finchar    equ    free_ent+2
  76. stackp    equ    finchar+1
  77. incode    equ    stackp+2
  78. code    equ    incode+2
  79. outbuf    equ    code+2
  80. suffix_of equ    outbuf
  81. prefix_of equ    outbuf+8192
  82. Slen    equ    prefix_of
  83. lit_tree equ    prefix_of
  84. len_tree equ    lit_tree + _sf_tree_
  85. dist_tre equ    len_tree + _sf_tree_
  86. followers equ    dist_tre + _sf_tree_ + 16384 + 2 - [3 * _sf_tree_]
  87. stack    equ    followers
  88.  
  89.  
  90.