babel/level9.c

   1 /* level9.c  Treaty of Babel module for Level 9 files\r
   2  * 2006 By L. Ross Raszewski\r
   3  *\r
   4  * Note that this module will handle both bare Level 9 A-Code and\r
   5  * Spectrum .SNA snapshots.  It will not handle compressed .Z80 images.\r
   6  *\r
   7  * The Level 9 identification algorithm is based in part on the algorithm\r
   8  * used by Paul David Doherty's l9cut program.\r
   9  *\r
  10  * This file depends on treaty_builder.h\r
  11  *\r
  12  * This file is public domain, but note that any changes to this file\r
  13  * may render it noncompliant with the Treaty of Babel\r
  14  */\r
  15 \r
  16 #define FORMAT level9\r
  17 #define HOME_PAGE "http://www.if-legends.org/~l9memorial/html/home.html"\r
  18 #define FORMAT_EXT ".l9,.sna"\r
  19 #define NO_METADATA\r
  20 #define NO_COVER\r
  21 \r
  22 #include "treaty_builder.h"\r
  23 #include <ctype.h>\r
  24 #include <stdio.h>\r
  25 #include <string.h>\r
  26 \r
  27 struct l9rec {\r
  28                 int32 length;\r
  29                 unsigned char chk;\r
  30                 char *ifid;\r
  31 };\r
  32 \r
  33 \r
  34 static struct l9rec l9_registry[] = {\r
  35       { 0x3a31, 0xe5, "LEVEL9-001-1" },\r
  36       { 0x8333, 0xb7, "LEVEL9-001-1" },\r
  37       { 0x7c6f, 0x0f, "LEVEL9-001-1" },\r
  38       { 0x72fa, 0x8b, "LEVEL9-001-1" },\r
  39       { 0x38dd, 0x31, "LEVEL9-001-A" },\r
  40       { 0x39c0, 0x44, "LEVEL9-001-B" },\r
  41       { 0x3a12, 0x8f, "LEVEL9-001-C" },\r
  42       { 0x37f1, 0x77, "LEVEL9-001-2" },\r
  43       { 0x844d, 0x50, "LEVEL9-001-2" },\r
  44       { 0x738e, 0x5b, "LEVEL9-001-2" },\r
  45       { 0x3900, 0x1c, "LEVEL9-001-3" },\r
  46       { 0x8251, 0x5f, "LEVEL9-001-3" },\r
  47       { 0x7375, 0xe5, "LEVEL9-001-3" },\r
  48       { 0x3910, 0xac, "LEVEL9-001-4" },\r
  49       { 0x7a78, 0x5e, "LEVEL9-001-4" },\r
  50       { 0x78d5, 0xe3, "LEVEL9-001-4" },\r
  51       { 0x3ad6, 0xa7, "LEVEL9-001-5" },\r
  52       { 0x38a5, 0x0f, "LEVEL9-001-6" },\r
  53       { 0x361e, 0x7e, "LEVEL9-001-7" },\r
  54       { 0x3934, 0x75, "LEVEL9-001-8" },\r
  55       { 0x3511, 0xcc, "LEVEL9-001-9" },\r
  56       { 0x593a, 0xaf, "LEVEL9-002-1" },\r
  57       { 0x7931, 0xb9, "LEVEL9-002-1" },\r
  58       { 0x6841, 0x4a, "LEVEL9-002-1" },\r
  59       { 0x57e6, 0x8a, "LEVEL9-002-2" },\r
  60       { 0x7cdf, 0xa5, "LEVEL9-002-2" },\r
  61       { 0x6bc0, 0x62, "LEVEL9-002-2" },\r
  62       { 0x5819, 0xcd, "LEVEL9-002-3" },\r
  63       { 0x7a0c, 0x97, "LEVEL9-002-3" },\r
  64       { 0x692c, 0x21, "LEVEL9-002-3" },\r
  65       { 0x579b, 0xad, "LEVEL9-002-4" },\r
  66       { 0x7883, 0xe2, "LEVEL9-002-4" },\r
  67       { 0x670a, 0x94, "LEVEL9-002-4" },\r
  68       { 0x5323, 0xb7, "LEVEL9-003" },\r
  69       { 0x6e60, 0x83, "LEVEL9-003" },\r
  70       { 0x5b58, 0x50, "LEVEL9-003" },\r
  71       { 0x63b6, 0x2e, "LEVEL9-003" },\r
  72       { 0x6968, 0x32, "LEVEL9-003" },\r
  73       { 0x5b50, 0x66, "LEVEL9-003" },\r
  74       { 0x6970, 0xd6, "LEVEL9-003" },\r
  75       { 0x5ace, 0x11, "LEVEL9-003" },\r
  76       { 0x6e5c, 0xf6, "LEVEL9-003" },\r
  77       { 0x1929, 0x00, "LEVEL9-004-DEMO" },\r
  78       { 0x40e0, 0x02, "LEVEL9-004-DEMO" },\r
  79       { 0x3ebb, 0x00, "LEVEL9-004-en" },\r
  80       { 0x3e4f, 0x00, "LEVEL9-004-en" },\r
  81       { 0x3e8f, 0x00, "LEVEL9-004-en" },\r
  82       { 0x0fd8, 0x00, "LEVEL9-004-en" },\r
  83       { 0x14a3, 0x00, "LEVEL9-004-en" },\r
  84       { 0x110f, 0x00, "LEVEL9-004-fr" },\r
  85       { 0x4872, 0x00, "LEVEL9-004-de" },\r
  86       { 0x4846, 0x00, "LEVEL9-004-de" },\r
  87       { 0x11f5, 0x00, "LEVEL9-004-de" },\r
  88       { 0x11f5, 0x00, "LEVEL9-004-de" },\r
  89       { 0x76f4, 0x5e, "LEVEL9-005" },\r
  90       { 0x5b16, 0x3b, "LEVEL9-005" },\r
  91       { 0x6c8e, 0xb6, "LEVEL9-005" },\r
  92       { 0x6f4d, 0xcb, "LEVEL9-005" },\r
  93       { 0x6f6a, 0xa5, "LEVEL9-005" },\r
  94       { 0x5e31, 0x7c, "LEVEL9-005" },\r
  95       { 0x6f70, 0x40, "LEVEL9-005" },\r
  96       { 0x6f6e, 0x78, "LEVEL9-005" },\r
  97       { 0x5a8e, 0xf2, "LEVEL9-005" },\r
  98       { 0x76f4, 0x5a, "LEVEL9-005" },\r
  99       { 0x630e, 0x8d, "LEVEL9-006" },\r
 100       { 0x630e, 0xbe, "LEVEL9-006" },\r
 101       { 0x6f0c, 0x95, "LEVEL9-006" },\r
 102       { 0x593a, 0x80, "LEVEL9-006" },\r
 103       { 0x6bd2, 0x65, "LEVEL9-006" },\r
 104       { 0x6dc0, 0x63, "LEVEL9-006" },\r
 105       { 0x58a6, 0x24, "LEVEL9-006" },\r
 106       { 0x6de8, 0x4c, "LEVEL9-006" },\r
 107       { 0x58a3, 0x38, "LEVEL9-006" },\r
 108       { 0x63be, 0xd6, "LEVEL9-007" },\r
 109       { 0x378c, 0x8d, "LEVEL9-007" },\r
 110       { 0x63be, 0x0a, "LEVEL9-007" },\r
 111       { 0x34b3, 0x20, "LEVEL9-008" },\r
 112       { 0x34b3, 0xc7, "LEVEL9-008" },\r
 113       { 0x34b3, 0x53, "LEVEL9-008" },\r
 114       { 0xb1a9, 0x80, "LEVEL9-009-1" },\r
 115       { 0x908e, 0x0d, "LEVEL9-009-1" },\r
 116       { 0xad41, 0xa8, "LEVEL9-009-1" },\r
 117       { 0xb1aa, 0xad, "LEVEL9-009-1" },\r
 118       { 0x8aab, 0xc0, "LEVEL9-009-1" },\r
 119       { 0xb0ec, 0xc2, "LEVEL9-009-1" },\r
 120       { 0xb19e, 0x92, "LEVEL9-009-1" },\r
 121       { 0x5ff0, 0xf8, "LEVEL9-009-1" },\r
 122       { 0x52aa, 0xdf, "LEVEL9-009-1" },\r
 123       { 0xab9d, 0x31, "LEVEL9-009-2" },\r
 124       { 0x8f6f, 0x0a, "LEVEL9-009-2" },\r
 125       { 0xa735, 0xf7, "LEVEL9-009-2" },\r
 126       { 0xab8b, 0xbf, "LEVEL9-009-2" },\r
 127       { 0x8ac8, 0x9a, "LEVEL9-009-2" },\r
 128       { 0xaf82, 0x83, "LEVEL9-009-2" },\r
 129       { 0x6024, 0x01, "LEVEL9-009-2" },\r
 130       { 0x6ffa, 0xdb, "LEVEL9-009-2" },\r
 131       { 0xae28, 0x87, "LEVEL9-009-3" },\r
 132       { 0x9060, 0xbb, "LEVEL9-009-3" },\r
 133       { 0xa9c0, 0x9e, "LEVEL9-009-3" },\r
 134       { 0xae16, 0x81, "LEVEL9-009-3" },\r
 135       { 0x8a93, 0x4f, "LEVEL9-009-3" },\r
 136       { 0xb3e6, 0xab, "LEVEL9-009-3" },\r
 137       { 0x6036, 0x3d, "LEVEL9-009-3" },\r
 138       { 0x723a, 0x69, "LEVEL9-009-3" },\r
 139       { 0xd188, 0x13, "LEVEL9-010-1" },\r
 140       { 0x9089, 0xce, "LEVEL9-010-1" },\r
 141       { 0xb770, 0x03, "LEVEL9-010-1" },\r
 142       { 0xd19b, 0xad, "LEVEL9-010-1" },\r
 143       { 0x8ab7, 0x68, "LEVEL9-010-1" },\r
 144       { 0xd183, 0x83, "LEVEL9-010-1" },\r
 145       { 0x5a38, 0xf7, "LEVEL9-010-1" },\r
 146       { 0x76a0, 0x3a, "LEVEL9-010-1" },\r
 147       { 0xc594, 0x03, "LEVEL9-010-2" },\r
 148       { 0x908d, 0x80, "LEVEL9-010-2" },\r
 149       { 0xb741, 0xb6, "LEVEL9-010-2" },\r
 150       { 0xc5a5, 0xfe, "LEVEL9-010-2" },\r
 151       { 0x8b1e, 0x84, "LEVEL9-010-2" },\r
 152       { 0xc58f, 0x65, "LEVEL9-010-2" },\r
 153       { 0x531a, 0xed, "LEVEL9-010-2" },\r
 154       { 0x7674, 0x0b, "LEVEL9-010-2" },\r
 155       { 0xd79f, 0xb5, "LEVEL9-010-3" },\r
 156       { 0x909e, 0x9f, "LEVEL9-010-3" },\r
 157       { 0xb791, 0xa1, "LEVEL9-010-3" },\r
 158       { 0xd7ae, 0x9e, "LEVEL9-010-3" },\r
 159       { 0x8b1c, 0xa8, "LEVEL9-010-3" },\r
 160       { 0xd79a, 0x57, "LEVEL9-010-3" },\r
 161       { 0x57e4, 0x19, "LEVEL9-010-3" },\r
 162       { 0x765e, 0xba, "LEVEL9-010-3" },\r
 163       { 0xbb93, 0x36, "LEVEL9-011-1" },\r
 164       { 0x898a, 0x43, "LEVEL9-011-1" },\r
 165       { 0x8970, 0x6b, "LEVEL9-011-1" },\r
 166       { 0xbb6e, 0xa6, "LEVEL9-011-1" },\r
 167       { 0x86d0, 0xb7, "LEVEL9-011-1" },\r
 168       { 0xbb6e, 0xad, "LEVEL9-011-1" },\r
 169       { 0x46ec, 0x64, "LEVEL9-011-1" },\r
 170       { 0x74e0, 0x92, "LEVEL9-011-1" },\r
 171       { 0xc58e, 0x4a, "LEVEL9-011-2" },\r
 172       { 0x8b9f, 0x61, "LEVEL9-011-2" },\r
 173       { 0x8b90, 0x4e, "LEVEL9-011-2" },\r
 174       { 0xc58e, 0x43, "LEVEL9-011-2" },\r
 175       { 0x8885, 0x22, "LEVEL9-011-2" },\r
 176       { 0x6140, 0x18, "LEVEL9-011-2" },\r
 177       { 0x6dbc, 0x97, "LEVEL9-011-2" },\r
 178       { 0xcb9a, 0x0f, "LEVEL9-011-3" },\r
 179       { 0x8af9, 0x61, "LEVEL9-011-3" },\r
 180       { 0x8aea, 0x4e, "LEVEL9-011-3" },\r
 181       { 0xcb9a, 0x08, "LEVEL9-011-3" },\r
 182       { 0x87e5, 0x0e, "LEVEL9-011-3" },\r
 183       { 0x640e, 0xc1, "LEVEL9-011-3" },\r
 184       { 0x7402, 0x07, "LEVEL9-011-3" },\r
 185       { 0xbba4, 0x94, "LEVEL9-012-1" },\r
 186       { 0xc0cf, 0x4e, "LEVEL9-012-1" },\r
 187       { 0x8afc, 0x07, "LEVEL9-012-1" },\r
 188       { 0x8feb, 0xba, "LEVEL9-012-1" },\r
 189       { 0xb4c9, 0x94, "LEVEL9-012-1" },\r
 190       { 0xc0bd, 0x57, "LEVEL9-012-1" },\r
 191       { 0x8ade, 0xf2, "LEVEL9-012-1" },\r
 192       { 0x4fd2, 0x9d, "LEVEL9-012-1" },\r
 193       { 0x5c7a, 0x44, "LEVEL9-012-1" },\r
 194       { 0x768c, 0xe8, "LEVEL9-012-1" },\r
 195       { 0xd0c0, 0x56, "LEVEL9-012-2" },\r
 196       { 0xd5e9, 0x6a, "LEVEL9-012-2" },\r
 197       { 0x8aec, 0x13, "LEVEL9-012-2" },\r
 198       { 0x8f6b, 0xfa, "LEVEL9-012-2" },\r
 199       { 0xb729, 0x51, "LEVEL9-012-2" },\r
 200       { 0xd5d7, 0x99, "LEVEL9-012-2" },\r
 201       { 0x8b0e, 0xfb, "LEVEL9-012-2" },\r
 202       { 0x4dac, 0xa8, "LEVEL9-012-2" },\r
 203       { 0x53a2, 0x1e, "LEVEL9-012-2" },\r
 204       { 0x76b0, 0x1d, "LEVEL9-012-2" },\r
 205       { 0xb6ac, 0xc6, "LEVEL9-012-3" },\r
 206       { 0xbb8f, 0x1a, "LEVEL9-012-3" },\r
 207       { 0x8aba, 0x0d, "LEVEL9-012-3" },\r
 208       { 0x8f71, 0x2f, "LEVEL9-012-3" },\r
 209       { 0xb702, 0xe4, "LEVEL9-012-3" },\r
 210       { 0xbb7d, 0x17, "LEVEL9-012-3" },\r
 211       { 0x8ab3, 0xc1, "LEVEL9-012-3" },\r
 212       { 0x4f96, 0x22, "LEVEL9-012-3" },\r
 213       { 0x5914, 0x22, "LEVEL9-012-3" },\r
 214       { 0x765e, 0x4f, "LEVEL9-012-3" },\r
 215       { 0x5eb9, 0x30, "LEVEL9-013" },\r
 216       { 0x5eb9, 0x5d, "LEVEL9-013" },\r
 217       { 0x5eb9, 0x6e, "LEVEL9-013" },\r
 218       { 0xb257, 0xf8, "LEVEL9-013" },\r
 219       { 0xb576, 0x2a, "LEVEL9-013" },\r
 220       { 0x8d78, 0x3a, "LEVEL9-013" },\r
 221       { 0x9070, 0x43, "LEVEL9-013" },\r
 222       { 0xb38c, 0x37, "LEVEL9-013" },\r
 223       { 0xb563, 0x6a, "LEVEL9-013" },\r
 224       { 0xb57c, 0x44, "LEVEL9-013" },\r
 225       { 0xb260, 0xe5, "LEVEL9-013" },\r
 226       { 0x8950, 0xa1, "LEVEL9-013" },\r
 227       { 0xb579, 0x89, "LEVEL9-013" },\r
 228       { 0x579e, 0x97, "LEVEL9-013" },\r
 229       { 0x69fe, 0x56, "LEVEL9-013" },\r
 230       { 0x6f1e, 0xda, "LEVEL9-013" },\r
 231       { 0x5671, 0xbc, "LEVEL9-014" },\r
 232       { 0x6fc6, 0x14, "LEVEL9-014" },\r
 233       { 0x5aa4, 0xc1, "LEVEL9-014" },\r
 234       { 0x7410, 0x5e, "LEVEL9-014" },\r
 235       { 0x5aa4, 0xc1, "LEVEL9-014" },\r
 236       { 0x5aa4, 0xc1, "LEVEL9-014" },\r
 237       { 0xb797, 0x1f, "LEVEL9-014" },\r
 238       { 0xbaca, 0x3a, "LEVEL9-014" },\r
 239       { 0x8c46, 0xf0, "LEVEL9-014" },\r
 240       { 0x8f51, 0xb2, "LEVEL9-014" },\r
 241       { 0xb451, 0xa8, "LEVEL9-014" },\r
 242       { 0xbab2, 0x87, "LEVEL9-014" },\r
 243       { 0xbac7, 0x7f, "LEVEL9-014" },\r
 244       { 0xb7a0, 0x7e, "LEVEL9-014" },\r
 245       { 0x8a60, 0x2a, "LEVEL9-014" },\r
 246       { 0xbac4, 0x80, "LEVEL9-014" },\r
 247       { 0x579a, 0x2a, "LEVEL9-014" },\r
 248       { 0x5a50, 0xa9, "LEVEL9-014" },\r
 249       { 0x6108, 0xdd, "LEVEL9-014" },\r
 250       { 0x506c, 0xf0, "LEVEL9-015" },\r
 251       { 0x505d, 0x32, "LEVEL9-015" },\r
 252       { 0xa398, 0x82, "LEVEL9-015" },\r
 253       { 0xa692, 0xd1, "LEVEL9-015" },\r
 254       { 0x8d56, 0xd3, "LEVEL9-015" },\r
 255       { 0x903f, 0x6b, "LEVEL9-015" },\r
 256       { 0xa4e2, 0xa6, "LEVEL9-015" },\r
 257       { 0xa67c, 0xb8, "LEVEL9-015" },\r
 258       { 0xa69e, 0x6c, "LEVEL9-015" },\r
 259       { 0xa3a4, 0xdf, "LEVEL9-015" },\r
 260       { 0x8813, 0x11, "LEVEL9-015" },\r
 261       { 0xa698, 0x41, "LEVEL9-015" },\r
 262       { 0x5500, 0x50, "LEVEL9-015" },\r
 263       { 0x6888, 0x8d, "LEVEL9-015" },\r
 264       { 0x6da0, 0xb8, "LEVEL9-015" },\r
 265       { 0x6064, 0xbd, "LEVEL9-016" },\r
 266       { 0x6064, 0x01, "LEVEL9-016" },\r
 267       { 0x6047, 0x6c, "LEVEL9-016" },\r
 268       { 0x6064, 0xda, "LEVEL9-016" },\r
 269       { 0x6064, 0x95, "LEVEL9-016" },\r
 270       { 0x60c4, 0x28, "LEVEL9-016" },\r
 271       { 0x5cb7, 0xfe, "LEVEL9-016" },\r
 272       { 0x5ca1, 0x33, "LEVEL9-016" },\r
 273       { 0x5cb7, 0x64, "LEVEL9-016" },\r
 274       { 0x7d16, 0xe6, "LEVEL9-016" },\r
 275       { 0x639c, 0x8b, "LEVEL9-016" },\r
 276       { 0x60f7, 0x68, "LEVEL9-016" },\r
 277       { 0x772f, 0xca, "LEVEL9-016" },\r
 278       { 0x7cff, 0xf8, "LEVEL9-016" },\r
 279       { 0x7cf8, 0x24, "LEVEL9-016" },\r
 280       { 0x7d14, 0xe8, "LEVEL9-016" },\r
 281       { 0x7c55, 0x18, "LEVEL9-016" },\r
 282       { 0x5f43, 0xca, "LEVEL9-016" },\r
 283       { 0xc132, 0x14, "LEVEL9-017-1" },\r
 284       { 0xbeab, 0x2d, "LEVEL9-017-1" },\r
 285       { 0x9058, 0xcf, "LEVEL9-017-1" },\r
 286       { 0xbe94, 0xcc, "LEVEL9-017-1" },\r
 287       { 0x8a21, 0xf4, "LEVEL9-017-1" },\r
 288       { 0x55ce, 0xa1, "LEVEL9-017-1" },\r
 289       { 0x5cbc, 0xa5, "LEVEL9-017-1" },\r
 290       { 0x762e, 0x82, "LEVEL9-017-1" },\r
 291       { 0x99bd, 0x65, "LEVEL9-017-2" },\r
 292       { 0x8f43, 0xc9, "LEVEL9-017-2" },\r
 293       { 0x8a12, 0xe3, "LEVEL9-017-2" },\r
 294       { 0x54a6, 0xa9, "LEVEL9-017-2" },\r
 295       { 0x5932, 0x4e, "LEVEL9-017-2" },\r
 296       { 0x5bd6, 0x35, "LEVEL9-017-2" },\r
 297       { 0xbcb6, 0x7a, "LEVEL9-017-3 (Amiga/PC/ST)" },\r
 298       { 0x90ac, 0x68, "LEVEL9-017-3" },\r
 299       { 0x8a16, 0xcc, "LEVEL9-017-3" },\r
 300       { 0x51bc, 0xe3, "LEVEL9-017-3" },\r
 301       { 0x5860, 0x95, "LEVEL9-017-3" },\r
 302       { 0x6fa8, 0xa4, "LEVEL9-017-3" },\r
 303       { 0x5fab, 0x5c, "LEVEL9-018" },\r
 304       { 0x5fab, 0x2f, "LEVEL9-018" },\r
 305       { 0x7b31, 0x6e, "LEVEL9-018" },\r
 306       { 0x67a3, 0x9d, "LEVEL9-018" },\r
 307       { 0x6bf8, 0x3f, "LEVEL9-018" },\r
 308       { 0x7363, 0x65, "LEVEL9-018" },\r
 309       { 0x7b2f, 0x70, "LEVEL9-018" },\r
 310       { 0x7b2f, 0x70, "LEVEL9-018" },\r
 311       { 0x6541, 0x02, "LEVEL9-018" },\r
 312       { 0x5834, 0x42, "LEVEL9-019-1" },\r
 313       { 0x765d, 0xcd, "LEVEL9-019-1" },\r
 314       { 0x6ce5, 0x58, "LEVEL9-019-1" },\r
 315       { 0x56dd, 0x51, "LEVEL9-019-2" },\r
 316       { 0x6e58, 0x07, "LEVEL9-019-2" },\r
 317       { 0x68da, 0xc1, "LEVEL9-019-2" },\r
 318       { 0x5801, 0x53, "LEVEL9-019-3" },\r
 319       { 0x7e98, 0x6a, "LEVEL9-019-3" },\r
 320       { 0x6c67, 0x9a, "LEVEL9-019-3" },\r
 321       { 0x54a4, 0x01, "LEVEL9-019-4" },\r
 322       { 0x81e2, 0xd5, "LEVEL9-019-4" },\r
 323       { 0x6d91, 0xb9, "LEVEL9-019-4" },\r
 324       { 0x5828, 0xbd, "LEVEL9-020" },\r
 325       { 0x6d84, 0xf9, "LEVEL9-020" },\r
 326       { 0x6d84, 0xc8, "LEVEL9-020" },\r
 327       { 0x6030, 0x47, "LEVEL9-020" },\r
 328       { 0x772b, 0xcd, "LEVEL9-020" },\r
 329       { 0x546c, 0xb7, "LEVEL9-020" },\r
 330       { 0x7cd9, 0x0c, "LEVEL9-020" },\r
 331       { 0x60dd, 0xf2, "LEVEL9-020" },\r
 332       { 0x6161, 0xf3, "LEVEL9-020" },\r
 333       { 0x788d, 0x72, "LEVEL9-020" },\r
 334       { 0x7cd7, 0x0e, "LEVEL9-020" },\r
 335       { 0x5ebb, 0xf1, "LEVEL9-020" },\r
 336 \r
 337       { 0, 0, NULL }\r
 338 };\r
 339 \r
 340 \r
 341 \r
 342 static int32 read_l9_int(unsigned char *sf)\r
 343 {\r
 344  return ((int32) sf[1]) << 8 | sf[0];\r
 345 \r
 346 }\r
 347 static int v2_recognition (unsigned char *sf, int32 extent, int32 *l, unsigned char *c)\r
 348 {\r
 349   int32 i, j;\r
 350   for (i=0;i<extent-20;i++)\r
 351     if ((read_l9_int(sf+i+4) == 0x0020) &&\r
 352         (read_l9_int(sf+i+0x0a) == 0x8000) &&\r
 353         (read_l9_int(sf+i+0x14) == read_l9_int(sf+i+0x16)))\r
 354     {\r
 355       *l=read_l9_int(sf+i+0x1c);\r
 356       if (*l && *l+i <=extent)\r
 357        {\r
 358          *c=0;\r
 359          for(j=0;j<=*l;j++)\r
 360           *c+=sf[i+j];\r
 361          return 2;\r
 362        }\r
 363     }\r
 364  return 0;\r
 365 }\r
 366 static int v1_recognition(unsigned char *sf, int32 extent, char **ifid)\r
 367 {\r
 368   int32 i;\r
 369   unsigned char a = 0xff, b = 0xff;\r
 370 \r
 371   for (i=0;i<extent-20;i++)\r
 372    if (memcmp(sf+i,"ATTAC",5)==0 && sf[i+5]==0xcb)\r
 373    {   \r
 374     a = sf[i+6];\r
 375     break;\r
 376    }\r
 377   for (;i<(extent-20);i++)\r
 378    if (memcmp(sf+i,"BUNC",4)==0 && sf[i+4]==0xc8)\r
 379    {\r
 380     b = sf[i + 5];\r
 381     break;\r
 382    }\r
 383   if (a == 0xff && b == 0xff)\r
 384    return 0;\r
 385   if (a == 0x14 && b == 0xff) *ifid="LEVEL9-006";\r
 386   else if (a == 0x15 && b == 0x5d) *ifid="LEVEL9-013";\r
 387   else if (a == 0x1a && b == 0x24) *ifid="LEVEL9-005";\r
 388   else if (a == 0x20 && b == 0x3b) *ifid="LEVEL9-003";\r
 389   else *ifid=NULL;\r
 390   return 1;\r
 391 }\r
 392 static int v3_recognition_phase (int phase,unsigned char *sf, int32 extent, int32 *l, unsigned char *c)\r
 393 {\r
 394   int32 end, i, j, ll;\r
 395   ll=0;\r
 396   for (i=0;i<extent-20;i++)\r
 397   {\r
 398     if (ll) break;\r
 399     *l = read_l9_int(sf+i);\r
 400     end=*l+i;\r
 401     if (phase!=3)\r
 402     {\r
 403     if (end <= (extent - 2) &&\r
 404        (\r
 405         ((phase == 2) ||\r
 406         (((sf[end-1] == 0) &&\r
 407          (sf[end-2] == 0)) ||\r
 408         ((sf[end+1] == 0) &&\r
 409          (sf[end+2] == 0))))\r
 410         && (*l>0x4000) && (*l<=0xdb00)))\r
 411       if ((*l!=0) && (sf[i+0x0d] == 0))\r
 412        for (j=i;j<i+16;j+=2)\r
 413         if (((read_l9_int(sf+j)+read_l9_int(sf+j+2))==read_l9_int(sf+j+4))\r
 414             && ((read_l9_int(sf+j)+read_l9_int(sf+j+2))))\r
 415         ll++;\r
 416      }\r
 417      else\r
 418      {\r
 419       if ((extent>0x0fd0) && (end <= (extent - 2)) &&\r
 420          (((read_l9_int(sf+i+2) + read_l9_int(sf+i+4))==read_l9_int(sf+i+6))\r
 421                     && (read_l9_int(sf+i+2) != 0) && (read_l9_int(sf+i+4)) != 0) &&\r
 422          (((read_l9_int(sf+i+6) + read_l9_int(sf+i+8)) == read_l9_int(sf+i+10))\r
 423           && ((sf[i + 18] == 0x2a) || (sf[i + 18] == 0x2c))\r
 424           && (sf[i + 19] == 0) && (sf[i + 20] == 0) && (sf[i + 21] == 0)))\r
 425         ll = 2;\r
 426      }\r
 427     if (ll>1)\r
 428     {\r
 429      *c=0;\r
 430      if (phase==3) ll=1;\r
 431      else\r
 432      { char checksum=0;\r
 433       *c = sf[end];\r
 434       for (j=i;j<=end;j++)\r
 435        checksum += sf[j];\r
 436       if (!checksum) ll=1;\r
 437       else ll=0;\r
 438      }\r
 439      } else ll=0;\r
 440    }\r
 441 \r
 442   if (ll) return *l < 0x8500 ? 3:4;\r
 443   return 0;\r
 444 }\r
 445 static char *get_l9_ifid(int32 length, unsigned char chk)\r
 446 {\r
 447  int i;\r
 448  for(i=0;l9_registry[i].length;i++)\r
 449   if (length==l9_registry[i].length && chk==l9_registry[i].chk) return l9_registry[i].ifid;\r
 450  return NULL;\r
 451 }\r
 452 static int get_l9_version(unsigned char *sf, int32 extent, char **ifid)\r
 453 {\r
 454  int i;\r
 455  int32 l;\r
 456  unsigned char c;\r
 457  if (v2_recognition(sf,extent, &l, &c)) { *ifid=get_l9_ifid(l,c); return 2; }\r
 458  l=0; c=0;\r
 459  i=v3_recognition_phase(1,sf,extent, &l, &c);\r
 460  if (i) { *ifid=get_l9_ifid(l,c); return i; }\r
 461  if (v1_recognition(sf,extent, ifid)) return 1;\r
 462  l=0; c=0;\r
 463  i=v3_recognition_phase(2,sf,extent, &l, &c);\r
 464  if (i) { *ifid=get_l9_ifid(l,c); return i; }\r
 465  i=v3_recognition_phase(3,sf,extent, &l, &c);\r
 466  *ifid=NULL;\r
 467  return i;\r
 468 }\r
 469 \r
 470 static int32 claim_story_file(void *story, int32 extent)\r
 471 {\r
 472  char *ifid=NULL;\r
 473  if (get_l9_version((unsigned char *) story,extent, &ifid))\r
 474   if (ifid) return VALID_STORY_FILE_RV;\r
 475   else return NO_REPLY_RV;\r
 476  return INVALID_STORY_FILE_RV; \r
 477 }\r
 478 \r
 479 \r
 480 \r
 481 static int32 get_story_file_IFID(void *story_file, int32 extent, char *output, int32 output_extent)\r
 482 {\r
 483  char *ifid=NULL;\r
 484  int i=get_l9_version((unsigned char *)story_file, extent, &ifid);\r
 485  if (!i) return INVALID_STORY_FILE_RV;\r
 486  if (ifid)\r
 487  {\r
 488    ASSERT_OUTPUT_SIZE((signed) strlen(ifid)+1);\r
 489    strcpy(output,ifid);\r
 490    return 1;\r
 491  }\r
 492  ASSERT_OUTPUT_SIZE(10);\r
 493  sprintf(output,"LEVEL9-%d-",i);\r
 494  return INCOMPLETE_REPLY_RV;\r
 495 }\r