Handle Apple Diskcopy Images (Joerg Jenderek)

diff --git a/magic/Magdir/archive b/magic/Magdir/archive
index cd0213fa9f3c442fd9e221c6b8e343e26df0cb09..2a51ca39e81642fdfe0b4d233c9164998f75f073 100644 (file)
--- a/magic/Magdir/archive
+++ b/magic/Magdir/archive
@@ -1,5 +1,5 @@
 #------------------------------------------------------------------------------
-# $File: archive,v 1.129 2019/05/09 18:58:02 christos Exp $
+# $File: archive,v 1.130 2019/05/26 20:10:13 christos Exp $
 # archive:  file(1) magic for archive formats (see also "msdos" for self-
 #           extracting compressed archives)
 #
@@ -439,6 +439,34 @@
 # skip keyword with low entropy
 >12    default         x       TTComp archive, binary, 4K dictionary
 # (version 5.25) labeled the above entry as "TTComp archive data"
+# From:                Joerg Jenderek
+# URL:         https://wiki.68kmla.org/DiskCopy_4.2_format_specification
+# reference:   http://nulib.com/library/FTN.e00005.htm
+0x52   ubeshort        0x0100
+# test for disk size equal or above 400k
+>0x40  ubelong         >409599 Apple DiskCopy 4.2 image
+#!:mime        application/octet-stream
+!:apple        dCpydImg
+!:ext  image/dc42
+# image pascal name padded with NULs like Microsoft Mail
+>>00   pstring/B       x       %s
+# data size in bytes like 409600
+>>0x40 ubelong         x       \b, %u bytes
+# tag size in bytes
+>>0x44 ubelong         >0      \b, 0x%x tag size
+# data checksum
+#>>0x48        ubelong         x       \b, 0x%x checksum
+# tag checksum
+#>>0x4c        ubelong         x       \b, 0x%x tag checksum
+# disk encoding
+>>0x50 ubyte           0       \b, GCR CLV ssdd (400k)
+>>0x50 ubyte           1       \b, GCR CLV dsdd (800k)
+>>0x50 ubyte           2       \b, MFM CAV dsdd (720k)
+>>0x50 ubyte           3       \b, MFM CAV dshd (1440k)
+>>0x50 ubyte           >3      \b, 0x%x encoding
+# format byte
+>>0x51 ubyte           x       \b, 0x%x format
+#>>0x54        ubequad         x       \b, data 0x%16.16llx
 # ESP, could this conflict with Easy Software Products' (e.g.ESP ghostscript) documentation?
 0      string  ESP ESP archive data
 # ZPack