home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMPRESS / PKV100.ZIP / PKV100.VAR < prev   
Encoding:
Text File  |  1990-10-14  |  5.8 KB  |  115 lines
  1. ;────────────────────────────────────── ──────────────────────────────────────
  2. ;                         ZIP File Structure Type
  3. ;─────────────────────────────────────────────────────────────────────────────
  4. LocalHdrType    Struc                           ; Define TYPE for local header
  5.                 Signature        Dd    ?        ; 00..03
  6.                 ExtractVersion   Dw    ?        ; 04..05
  7.                 BitFlag          Dw    ?        ; 06..07
  8.                 CompMethod       Dw    ?        ; 08..09
  9.                 TimeStamp        Dw    ?        ; 0A..0B
  10.                 DateStamp        Dw    ?        ; 0C..0D
  11.                 crc32            Dd    ?        ; 0E..11
  12.                 CompSize         Dd    ?        ; 12..15
  13.                 UnCompSize       Dd    ?        ; 16..19
  14.                 FilenameLen      Dw    ?        ; 1A..1B
  15.                 XFieldLen        Dw    ?        ; 1C..1D
  16. LocalHdrType    Ends
  17.  
  18.  
  19. ;────────────────────────────────────── ──────────────────────────────────────
  20. ;                         ZIP File Internal Signatures
  21. ;─────────────────────────────────────────────────────────────────────────────
  22.                 EVEN
  23. LocalSignature  Dd      04034B50h               ; Local file header signature
  24. DirSignature    Dd      02014B50h               ; Central directory signature
  25. EndSignature    Dd      06054B50h               ; Central dir end signature
  26.  
  27.  
  28. ;────────────────────────────────────── ──────────────────────────────────────
  29. ;                        Array of Compression Methods
  30. ;─────────────────────────────────────────────────────────────────────────────
  31. Method0         Db     'Stored  '
  32. Method1         Db     'Shrunk  '
  33. Method2         Db     'Reduce 1'
  34. Method3         Db     'Reduce 2'
  35. Method4         Db     'Reduce 3'
  36. Method5         Db     'Reduce 4'
  37. Method6         Db     'Implode '
  38. Method7         Db     'Unknown '
  39.  
  40.                 EVEN
  41. MethodTbl       Dw     Offset Method0
  42.                 Dw     Offset Method1
  43.                 Dw     Offset Method2
  44.                 Dw     Offset Method3
  45.                 Dw     Offset Method4
  46.                 Dw     Offset Method5
  47.                 Dw     Offset Method6
  48.                 Dw     Offset Method7
  49.  
  50.  
  51. ;────────────────────────────────────── ──────────────────────────────────────
  52. ;                                Error Messages
  53. ;─────────────────────────────────────────────────────────────────────────────
  54. NoParm$         Db     'PKV:     Enter [Drv:\Path\] ZipName [.ZIP]',Cr,Lf,Lf,0
  55. Open_Err$       Db     'PKV:     Error while opening ZIP file',Cr,Lf,Lf,0
  56. Read_Err$       Db     'PKV:     Error while reading ZIP file',Cr,Lf,Lf,0
  57. Hdr_Err$        Db     'PKV:     Error while reading header filename',Cr,Lf,Lf,0
  58. Seek_Err$       Db     'PKV:     Error while setting file position pointer',Cr,Lf,Lf,0
  59. Bad_Zip$        Db     'PKV:     Invalid local file header was found',Cr,Lf,Lf,0
  60.  
  61.  
  62. ;────────────────────────────────────── ──────────────────────────────────────
  63. ;                              Formatting Strings
  64. ;─────────────────────────────────────────────────────────────────────────────
  65. Newline         Db      Cr,Lf,0
  66. Search$         Db      Cr,Lf,' Searching ZIP: ',0
  67. Header1$        Db     ' Length  Method   Size  Ratio   Date    Time   CRC-32  Attr  Name',Cr,Lf,0
  68. Header2$        Db     ' ------  ------   ----- -----   ----    ----   ------  ----  ----',Cr,Lf,0
  69. Trailer1$       Db     ' ------           ----- -----                                -------',Cr,Lf,0
  70.  
  71.  
  72. ;────────────────────────────────────── ──────────────────────────────────────
  73. ;                                File Variables
  74. ;─────────────────────────────────────────────────────────────────────────────
  75. ZIP_Handle      Dw      0                       ; ZipFilehandle
  76. ZipFile         Db      78 dup(0)               ; Max length ZIP file name
  77.  
  78.  
  79. ;────────────────────────────────────── ──────────────────────────────────────
  80. ;                                     MISC
  81. ;─────────────────────────────────────────────────────────────────────────────
  82.                 EVEN
  83. PSP             Dw      0                       ; Program Segment Prefix segment
  84. ZipFilePtr      Dd      0                       ; File position pointer
  85. TotalFiles      Dw      0                       ; Number of ZIP file members
  86. TotalLength     Dd      0                       ; Total uncompressed bytes
  87. TotalSize       Dd      0                       ; Total compressed bytes
  88.  
  89. ZIP             LocalHdrType    ?               ; Local file header record
  90. LocalFileName   Db      128 dup(?)              ; Filename, Xtra Field text
  91.  
  92. @TBuffer        Db       10 dup(?)              ; AXDX2Dec needs 10 bytes
  93.  
  94.                ;Display field structure
  95. @Length         Db        7 dup(?)              ; Uncompressed length
  96.                 Db        2 dup(?)              ; Padding
  97. @Method         Db        7 dup(?)              ; Compression method
  98. @Size           Db        7 dup(?)              ; Compressed length
  99.                 Db        2 dup(?)              ; Padding
  100. @Ratio          Db        2 dup(?)              ; Ratio
  101.                 Db        ?                     ; % sign
  102.                 Db        2 dup(?)              ; Padding
  103. @Date           Db        8 dup(?)              ; Date
  104.                 Db        2 dup(?)              ; Padding
  105. @Time           Db        5 dup(?)              ; Time
  106.                 Db        2 dup(?)              ; Padding
  107. @CRC            Db        8 dup(?)              ; CRC-32
  108.                 Db        ?                     ; Padding
  109. @Attr           Db        3 dup(?)              ; File attributes
  110.                 Db        2 dup(?)              ; Padding
  111. @Name           Db       18 dup(?)              ; File name
  112. @Junk           Db        5 dup(?)              ; Safety factor
  113.                ;End structure
  114.  
  115.