home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / exoten / msx / arkunarc.pma / UNARC11.DIF < prev    next >
Text File  |  1993-10-27  |  6KB  |  181 lines
  1. <---- UNARC10.Z80
  2. ----> UNARC11.Z80
  3. 4c4
  4. <     DB    'UNARC  1.0  03 May 86'
  5. -----
  6. >     DB    'UNARC  1.1  24 May 86'
  7. 58a59,74
  8. > 1.1    24 May 86  (RAF)
  9. > 
  10. > Minor change to allow file typeout without the "T:" syntax (which 
  11. > didn't work with almost ANY CCP replacement)...  File will be typed if 
  12. > it:  (1) has no disk drive name, (2) is a single (UNambiguous) file, 
  13. > and (3) is not an excluded filetype.  (Else, file will simply be listed 
  14. > with no error message.)  This change was suggested by Irv Hoff's mod to 
  15. > UNARC10, which he called ADIR.  (Previous "T:" method can still be 
  16. > enabled, but it is now undocumented since we will probably drop it 
  17. > altogether in future.)
  18. > 
  19. > Also shortened on-line help message, so that COM file size is now 
  20. > reduced to 4K.  (For RCPM systems, if HODRV = 0 and/or TYDRV = 0, the 
  21. > help information relating to disk extraction and/or file typeout, 
  22. > respectively, is automatically removed.)
  23. > 
  24. 63a80,83
  25. > \
  26. >     PAGE
  27. >     .COMMENT \
  28. > 
  29. 202,206c222
  30. < ; Note:    If following is changed, also change two occurrences of "T:"
  31. < ;    in usage message which follows.
  32. < 
  33. < TYDRV:    DB    'T'-'@'        ; Typeout "drive" (ok with CP/M 2.2 CCP)
  34. < ;TYDRV:    DB    'P'-'@'        ; E.g. if (non-std) CCP won't parse T:
  35. -----
  36. > TYDRV:    DB    0FFH        ; This enables single file typeout
  37. 208a225,233
  38. > ; Note:    Following for compatibility with UNARC 1.0.  This will work with
  39. > ;    the standard CCP in CP/M 2.2, but with virtually NO other CCP
  40. > ;    replacement in common usage (e.g. DEC Rainbow CP/M-86/80, ZCMD,
  41. > ;    ZCPR).  Use of a pseudo typeout "drive" is no longer necessary,
  42. > ;    and its use is discouraged.
  43. > 
  44. > ;TYDRV:    DB    'T'-'@'        ; Typeout "drive" (ok with CP/M 2.2 CCP)
  45. > ;TYDRV:    DB    'P'-'@'        ; E.g. if (non-std) CCP won't parse T:
  46. > 
  47. 248,273c273,306
  48. < USAGE:
  49. < 
  50. <     IDENT            ; Program version identification first
  51. < 
  52. < DB CR,LF,'Archive File Extractor for Z80 CP/M Systems'
  53. < DB CR
  54. < DB LF,LF,'Usage:  UNARC arcfile [d:][afn]'
  55. < DB CR
  56. < DB LF,LF,'First parameter (required) specifies an archive file (default'
  57. < DB CR,LF,'filetype .'
  58. < ARCTYP:    DB         'ARC).  Second parameter (optional) specifies the'
  59. < DB CR,LF,'output drive and/or selects the component file(s) to process.'
  60. < DB CR,LF,'The file selection [afn] may be ambiguous (defaults to *.*).'
  61. < DB CR,LF,'Drive [d:] must be specified to extract files, else only the'
  62. < DB CR,LF,'directory listing is displayed.  Use the pseudo drive T: to'
  63. < DB CR,LF,'typeout a single (non-ambiguous) file at the console instead'
  64. < DB CR,LF,'of extracting to disk.  For example:'
  65. < DB CR
  66. < DB LF,LF,'  A>UNARC A:SAVE.ARC *.*     ; List all files in A:SAVE.ARC'
  67. < DB CR,LF,'  A>UNARC SAVE               ; Same as above'
  68. < DB CR,LF,'  A>UNARC SAVE A:            ; Extract all files to drive A'
  69. < DB CR,LF,'  A>UNARC SAVE B:*.DOC       ; Extract .DOC files to drive B'
  70. < DB CR,LF,'  A>UNARC SAVE T:READ.ME     ; Typeout the file READ.ME'
  71. < DB CR
  72. < DB LF,LF
  73. < 
  74. -----
  75. > USAGE:    IDENT            ; Program version identification first
  76. > 
  77. >     DB    CR,LF
  78. >     DB    'Archive File Extractor for Z80 CP/M Systems',CR,LF,LF
  79. >     DB    'Usage:',HT,'UNARC arcfile '
  80. > 
  81. > USE1:    DB    '[d:]'
  82. > USE1L    EQU    $-USE1        ; Above cleared if HODRV = 0
  83. > 
  84. >     DB    '[afn]',CR,LF,LF
  85. >     DB    'Examples:',CR,LF,LF
  86. >     DB    'B>UNARC A:SAVE.'
  87. > 
  88. > ARCTYP:    DB    'ARC'        ; Default filetype for archive files
  89. >     DB    ' *.*',HT
  90. >     DB    '; List all files in archive SAVE on drive A',CR,LF
  91. >     DB    'A>UNARC SAVE',HT,HT
  92. >     DB    '; Same as above',CR,LF
  93. >     DB    'A>UNARC SAVE *.DOC',HT
  94. >     DB    '; List just .DOC files',CR,LF
  95. > 
  96. > USE2:    DB    'A>UNARC SAVE READ.ME',HT
  97. >     DB    '; Typeout the file READ.ME',CR,LF
  98. > USE2L    EQU    $-USE2        ; Above cleared if TYDRV = 0
  99. > 
  100. > USE3:    DB    'A>UNARC SAVE A:',HT,HT
  101. >     DB    '; Extract all files to drive A',CR,LF
  102. >     DB    'A>UNARC SAVE B:*.DOC',HT
  103. >     DB    '; Extract .DOC files to drive B',CR,LF
  104. >     DB    'A>UNARC SAVE C:READ.ME',HT
  105. >     DB    '; Extract file READ.ME to drive C',CR,LF
  106. > USE3L    EQU    $-USE3        ; Above cleared if HODRV = 0
  107. > 
  108. >     DB    LF
  109. 438,439c471
  110. <     LD    DE,USAGE    ; No, just print usage message
  111. <     JR    Z,PEXIT        ;  and exit
  112. -----
  113. >     JR    Z,HELP        ; No, go show on-line help
  114. 455d486
  115. <     PAGE
  116. 461a493,495
  117. >     PAGE
  118. > ; Open archive file
  119. > 
  120. 492a527,546
  121. > ; Display program usage help message
  122. > 
  123. > HELP:    LD    A,(HODRV)    ; File extraction allowed?
  124. >     OR    A
  125. >     LD    HL,USE1
  126. >     LD    BC,256*USE1L+80H
  127. >     CALL    Z,FILL        ; No, clear out usage examples
  128. >     LD    HL,USE3
  129. >     LD    B,USE3L
  130. >     CALL    Z,FILL        ; (Two places)
  131. > 
  132. >     LD    A,(TYDRV)    ; File typeout allowed?
  133. >     OR    A
  134. >     LD    HL,USE2
  135. >     LD    B,USE2L
  136. >     CALL    Z,FILL        ; No, clear out usage example
  137. > 
  138. >     LD    DE,USAGE    ; Just print usage message
  139. >     JP    PEXIT        ;  and exit
  140. > 
  141. 763,769c817,824
  142. < OUTSET:    LD    A,(OFCB)    ; Any output drive?
  143. <     OR    A
  144. <     RET    Z        ; No, return
  145. < 
  146. <     LD    HL,TYDRV    ; Is it the pseudo drive for
  147. <     CP    (HL)        ;  typing files?
  148. <     JR    Z,CKTYP        ; Yes, skip to check file name
  149. -----
  150. > OUTSET:    LD    DE,OFCB        ; Point to output drive
  151. >     LD    HL,TYDRV    ; Point to typeout flag (or "drive")
  152. >     LD    A,(DE)        ; Any output drive?
  153. >     OR    A
  154. >     JR    Z,CKTYP        ; No, go see if filename permits typeout
  155. > 
  156. >     CP    (HL)        ; But is it the pseudo typeout drive?
  157. >     JR    Z,CKTYP0    ; Yes, skip to type file (if permitted)
  158. 847c902,904
  159. < CKTYP:    CALL    TAMBIG        ; Ambiguous output file name?
  160. -----
  161. > CKTYP:    LDI            ; Assume typeout allowed (TYDRV -> OFCB)
  162. > 
  163. > CKTYP0:    CALL    TAMBIG        ; Ambiguous output file name?
  164. 872,873c929,931
  165. < CKTYP5:    LD    DE,BADTYP    ; All matched (or ambiguous name),
  166. <     JP    PABORT        ; Abort due to invalid name for typeout
  167. -----
  168. > CKTYP5:    XOR    A        ; All matched (or ambiguous name),
  169. >     LD    (OFCB),A    ;  disable typeout of file
  170. >     RET            ; Return (will just list file)
  171. 1056c1114
  172. < the archive header, or a tree link to the root node (which indicates a 
  173. -----
  174. > the archive header), or a tree link to the root node (which indicates a 
  175. 2199c2257
  176. <     CALL    PCHAR
  177. -----
  178. >     CALL    P,PCHAR        ; (But ignore chars with MSB set)
  179. 2703d2760
  180. < BADTYP:    DB    'Invalid file name for typeout',0
  181.