OldComp.cz

dworkin@dw-A15:~/Programovani/ZX/LZX_PACKER/lzxpack01_edit$ diff LzePack.cpp ../lzxpack01/LzePack.cpp
152c152
<             if (DBG > 3) printf("%+6d %04X                      Detected sekvence at %+d  Off:%d Len:%u  =>  Set length: %u (max_loc: %i)\n",
---
>             if (DBG > 3) printf("%+6d %04X                      Detected sekvence at %+d  Off:%d Len:%u  =>  Set length: %u\n",
470c470
<       if (!len) {printf("\nError at +%6u %04X   Offset:%u Len:%u\n",index,index,off,len);exit(4);}
---
>       if (!len) {printf("\nError at %+6u 0x04X   Offset:%u Len:%u\n",index,index,off,len);exit(4);}
475c475
<          if (len > MAXSEK || off > MAXOFF) {printf("\nError at +%6u %04X   Offset:%u Len:%u\n",index,index,off,len);exit(4);}
---
>          if (len > MAXSEK || off > MAXOFF) {printf("\nError at %+6u 0x04X   Offset:%u Len:%u\n",index,index,off,len);exit(4);}
515c515
<          if (len > MAXSEK) {printf("\nError at +%6u %04X   Offset:%u Len:%u\n",index,index,off,len);exit(4);}
---
>          if (len > MAXSEK) {printf("\nError at %+6u 0x04X   Offset:%u Len:%u\n",index,index,off,len);exit(4);}
547c547
<    printf("Packed: %5u => %-5u    Data: %-5u  Overhead: %-5u\n",input_size,length_out,totdat,totove);
---
>    printf("Packed: %5u => %-5u    Data: %-5u  Overhead: %-5u",input_size,length_out,totdat,totove);
dworkin@dw-A15:~/Programovani/ZX/LZX_PACKER/lzxpack01_edit$ diff LzmPack.cpp ../lzxpack01/LzmPack.cpp
151c151
<             if (DBG > 3) printf("%+6d %04X                      Detected sekvence at %+d  Off:%d Len:%u  =>  Set length: %u (max_loc:%i)\n",
---
>             if (DBG > 3) printf("%+6d %04X                      Detected sekvence at %+d  Off:%d Len:%u  =>  Set length: %u\n",
446,449c446
<       if (!len) {
<          printf("\nError at %5u %04X  Len:0 Offset:%u\n",index,index,bufoff[index]);
<          exit(4);
<       }
---
>       if (!len) {printf("\nError at %5u 0x04X  Len:0 Offset:%u\n",index,index,bufoff[index]);exit(4);}
515c512
<    printf("Packed: %5u => %-5u    Data: %-5u  Overhead: %-5u\n",input_size,length_out,totdat,totove);
---
>    printf("Packed: %5u => %-5u    Data: %-5u  Overhead: %-5u",input_size,length_out,totdat,totove);
dworkin@dw-A15:~/Programovani/ZX/LZX_PACKER/lzxpack01_edit$ diff LzxList.cpp ../lzxpack01/LzxList.cpp
357c357
<          if      (name_length > 4 && !strcasecmp(packed_name + name_length - 4, ".lzm"))
---
>          if      (name_length > 4 && !_stricmp(packed_name + name_length - 4, ".lzm"))
363c363
<          else if (name_length > 4 && !strcasecmp(packed_name + name_length - 4, ".lze"))
---
>          else if (name_length > 4 && !_stricmp(packed_name + name_length - 4, ".lze"))

dworkin@dw-A15:~/Programovani/ZX/LZX_PACKER/lzxpack01_edit$ diff LzxPack.cpp ../lzxpack01/LzxPack.cpp
55c55
< int int_index;
---
> int index;
392c392
<    if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" %c", bit ? '1':'0');
---
>    if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" %c", bit ? '1':'0');
410c410
<    if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" (Val:%u B:%u)", value, bits);
---
>    if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" (Val:%u B:%u)", value, bits);
417c417
<    if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" (Eli:%u B:%u)", value, bits);
---
>    if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" (Eli:%u B:%u)", value, bits);
432c432
<       if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" 0x00");
---
>       if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" 0x00");
461c461
<       if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" %02X", (length << 1) | 0x01);
---
>       if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" %02X", (length << 1) | 0x01);
469c469
<          if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" %02X", length | 0x40);
---
>          if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" %02X", length | 0x40);
476c476
<          if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf("  %02X %02X", (length >> 8) | 0xC0, length & 0xFF);
---
>          if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf("  %02X %02X", (length >> 8) | 0xC0, length & 0xFF);
483c483
<       if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" (pack)");
---
>       if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" (pack)");
515c515
<    if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) printf(" -");
---
>    if (ENAOUT && index >= ENAZAC && index <= ENAEND) printf(" -");
757c757
<    printf("ERROR: malloc(%lu) returns null\n", num * sizeof(int));
---
>    printf("ERROR: malloc(%u) returns null\n", num * sizeof(int));
1156c1156
<    for(int_index = 1; int_index < input_size; int_index++)
---
>    for(index = 1; index < input_size; index++)
1159c1159
<       int hash_index = input_data[int_index] | (input_data[int_index-1] << 8);
---
>       int hash_index = input_data[index] | (input_data[index-1] << 8);
1161,1162c1161,1162
<       bufnxt[int_index] = locate;
<       hash_table[hash_index] = int_index;
---
>       bufnxt[index] = locate;
>       hash_table[hash_index] = index;
1164c1164
<       if (ENACOM > 2 && int_index >= ENAZAC && int_index <= ENAEND)
---
>       if (ENACOM > 2 && index >= ENAZAC && index <= ENAEND)
1167c1167
<          unsigned char byte = input_data[int_index];
---
>          unsigned char byte = input_data[index];
1169c1169
<             int_index,int_index,byte,
---
>             index,index,byte,
1172c1172
<          int nxt = bufnxt[int_index];
---
>          int nxt = bufnxt[index];
1187,1189c1187,1189
<          bufoff[int_index][comsel] = 0;
<          buflen[int_index][comsel] = 0;
<          buftax[int_index][comsel] = buftax[int_index - 1][comsel] + SetUnpackTax(comsel);
---
>          bufoff[index][comsel] = 0;
>          buflen[index][comsel] = 0;
>          buftax[index][comsel] = buftax[index - 1][comsel] + SetUnpackTax(comsel);
1191c1191
<          if (ENAUNP && int_index >= ENAZAC && int_index <= ENAEND)
---
>          if (ENAUNP && index >= ENAZAC && index <= ENAEND)
1195,1196c1195,1196
<             int previous_tax = buftax[int_index - 1][comsel];
<             int tax = buftax[int_index][comsel] - previous_tax;
---
>             int previous_tax = buftax[index - 1][comsel];
>             int tax = buftax[index][comsel] - previous_tax;
1277c1277
<          int offset = int_index - locate;
---
>          int offset = index - locate;
1281c1281
<             if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>             if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1285c1285
<                   int_index, int_index, locate, locate, -offset, best_length);
---
>                   index, index, locate, locate, -offset, best_length);
1291c1291
<             if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>             if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1295c1295
<                   int_index, int_index, locate, locate, -offset, maxloc);
---
>                   index, index, locate, locate, -offset, maxloc);
1301c1301
<          if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>          if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1306c1306
<                int_index, int_index, locate, locate, -offset,
---
>                index, index, locate, locate, -offset,
1312c1312
<          if (lstidx[locate-1] == int_index-1)
---
>          if (lstidx[locate-1] == index-1)
1316c1316
<             if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>             if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1319c1319
<                      int_index, int_index, int_index-1, lstlen[locate-1], length);
---
>                      index, index, index-1, lstlen[locate-1], length);
1326c1326
<             int subsub = int_index-period;
---
>             int subsub = index-period;
1329c1329
<                if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>                if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1334c1334
<                         int_index, int_index, locate, period, replen[locate],
---
>                         index, index, locate, period, replen[locate],
1340c1340
<                   if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>                   if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1343c1343
<                            int_index,int_index,
---
>                            index,index,
1345c1345
<                            int_index -length,input_data[int_index -length],
---
>                            index -length,input_data[index -length],
1349c1349
<                   if (input_data[locate-length] != input_data[int_index-length]) break;
---
>                   if (input_data[locate-length] != input_data[index-length]) break;
1356,1357c1356,1357
<                   maxloc = int_index - length + 1;
<                   if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>                   maxloc = index - length + 1;
>                   if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1360c1360
<                            int_index,int_index,limit,length,maxloc);
---
>                            index,index,limit,length,maxloc);
1364c1364
<                      if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>                      if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1367c1367
<                               int_index,int_index,
---
>                               index,index,
1369c1369
<                               int_index-length,input_data[int_index-length],
---
>                               index-length,input_data[index-length],
1373c1373
<                      if (input_data[locate-length] != input_data[int_index-length]) break;
---
>                      if (input_data[locate-length] != input_data[index-length]) break;
1381c1381
<                if (ENACOM > 4 && int_index >= ENAZAC && int_index <= ENAEND)
---
>                if (ENACOM > 4 && index >= ENAZAC && index <= ENAEND)
1384c1384
<                      int_index, int_index,
---
>                      index, index,
1386c1386
<                      int_index -length, input_data[int_index -length],
---
>                      index -length, input_data[index -length],
1390c1390
<                if (input_data[locate-length] != input_data[int_index-length]) break;
---
>                if (input_data[locate-length] != input_data[index-length]) break;
1394c1394
<          lstidx[locate] = int_index;
---
>          lstidx[locate] = index;
1397c1397
<          if (ENACOM > 2 && int_index >= ENAZAC && int_index <= ENAEND)
---
>          if (ENACOM > 2 && index >= ENAZAC && index <= ENAEND)
1400c1400
<                int_index, int_index, locate, -offset, length, repper[locate], replen[locate]);
---
>                index, index, locate, -offset, length, repper[locate], replen[locate]);
1422c1422
<                if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND)
---
>                if (ENACPT && index >= ENAZAC && index <= ENAEND)
1430c1430
<                   if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf("Skipped\n");
---
>                   if (ENACPT && index >= ENAZAC && index <= ENAEND) printf("Skipped\n");
1436c1436
<                   if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf("Skipped: Offset %u > MaxOff %u\n", offset, maxoff[comsel]);
---
>                   if (ENACPT && index >= ENAZAC && index <= ENAEND) printf("Skipped: Offset %u > MaxOff %u\n", offset, maxoff[comsel]);
1442c1442
<                if (length < buflen[int_index][comsel])
---
>                if (length < buflen[index][comsel])
1444c1444
<                   if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf("Skipped: Length %u < BufLen %u\n", length, buflen[int_index][comsel]);
---
>                   if (ENACPT && index >= ENAZAC && index <= ENAEND) printf("Skipped: Length %u < BufLen %u\n", length, buflen[index][comsel]);
1454c1454
<                      if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf(" %u", limoff[comsel][seloff]);
---
>                      if (ENACPT && index >= ENAZAC && index <= ENAEND) printf(" %u", limoff[comsel][seloff]);
1461c1461
<                      if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf(" Skipped: Offset %u > LimOff %u\n", offset, limoff[comsel][seloff - 1]);
---
>                      if (ENACPT && index >= ENAZAC && index <= ENAEND) printf(" Skipped: Offset %u > LimOff %u\n", offset, limoff[comsel][seloff - 1]);
1468c1468
<                if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf(" o%u", limoff[comsel][seloff]);
---
>                if (ENACPT && index >= ENAZAC && index <= ENAEND) printf(" o%u", limoff[comsel][seloff]);
1472c1472
<                int bsttax = buftax[int_index][comsel];
---
>                int bsttax = buftax[index][comsel];
1484c1484
<                   if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf(" (%u)%u-%u", cmptax, tstzac, tstend);
---
>                   if (ENACPT && index >= ENAZAC && index <= ENAEND) printf(" (%u)%u-%u", cmptax, tstzac, tstend);
1488c1488
<                      if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) printf(" %u(%u)", tstlen, buftax[int_index - tstlen][comsel]);
---
>                      if (ENACPT && index >= ENAZAC && index <= ENAEND) printf(" %u(%u)", tstlen, buftax[index - tstlen][comsel]);
1490c1490
<                      if (buftax[int_index - tstlen][comsel] < cmptax)
---
>                      if (buftax[index - tstlen][comsel] < cmptax)
1492c1492
<                         cmptax = buftax[int_index - tstlen][comsel];
---
>                         cmptax = buftax[index - tstlen][comsel];
1496c1496
<                         if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) putchar('*');
---
>                         if (ENACPT && index >= ENAZAC && index <= ENAEND) putchar('*');
1499c1499
<                   if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) putchar(' ');
---
>                   if (ENACPT && index >= ENAZAC && index <= ENAEND) putchar(' ');
1518,1520c1518,1520
<                   bufoff[int_index][comsel] = offset;
<                   buflen[int_index][comsel] = bstlen;
<                   buftax[int_index][comsel] = bsttax;
---
>                   bufoff[index][comsel] = offset;
>                   buflen[index][comsel] = bstlen;
>                   buftax[index][comsel] = bsttax;
1522c1522
<                   if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND)
---
>                   if (ENACPT && index >= ENAZAC && index <= ENAEND)
1524c1524
<                         seloff, bstidx, buflen[int_index][comsel], buftax[int_index][comsel]);
---
>                         seloff, bstidx, buflen[index][comsel], buftax[index][comsel]);
1529c1529
<                      if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND)
---
>                      if (ENACPT && index >= ENAZAC && index <= ENAEND)
1533c1533
<                if (ENACPT && int_index >= ENAZAC && int_index <= ENAEND) putchar('\n');
---
>                if (ENACPT && index >= ENAZAC && index <= ENAEND) putchar('\n');
1539,1540c1539,1540
<          if (ENACOM > 3 && !needed && int_index >= ENAZAC && int_index <= ENAEND)
<             printf("%+6d %04X                      Skip all next hashes (not needed to find next sekvences)\n", int_index, int_index);
---
>          if (ENACOM > 3 && !needed && index >= ENAZAC && index <= ENAEND)
>             printf("%+6d %04X                      Skip all next hashes (not needed to find next sekvences)\n", index, index);
1548,1549c1548,1549
<             repper[int_index] = best_offset;
<             replen[int_index] = best_length + best_offset;
---
>             repper[index] = best_offset;
>             replen[index] = best_length + best_offset;
1555,1556c1555,1556
<             repper[int_index] = repe_period;
<             replen[int_index] = repe_length;
---
>             repper[index] = repe_period;
>             replen[index] = repe_length;
1559c1559
<          if (ENACOM > 1 && int_index >= ENAZAC && int_index <= ENAEND)
---
>          if (ENACOM > 1 && index >= ENAZAC && index <= ENAEND)
1561,1562c1561,1562
<             unsigned char byte = input_data[int_index];
<             printf("%+6d %04X  ",int_index, int_index);
---
>             unsigned char byte = input_data[index];
>             printf("%+6d %04X  ",index, index);
1569,1570c1569,1570
<                int_index - best_offset, -best_offset, best_length,
<                repper[int_index], replen[int_index],cmps);
---
>                index - best_offset, -best_offset, best_length,
>                repper[index], replen[index],cmps);
1574c1574
<       if (ENASUM && int_index >= ENAZAC && int_index <= ENAEND)
---
>       if (ENASUM && index >= ENAZAC && index <= ENAEND)
1581,1583c1581,1583
<             printf("  Index: %-5u  TotalTax: %-5u  ", int_index, buftax[int_index][comsel]);
<             if (buflen[int_index][comsel])
<                printf("Offset: %-5u  Length: %-5u\n", bufoff[int_index][comsel], buflen[int_index][comsel]);
---
>             printf("  Index: %-5u  TotalTax: %-5u  ", index, buftax[index][comsel]);
>             if (buflen[index][comsel])
>                printf("Offset: %-5u  Length: %-5u\n", bufoff[index][comsel], buflen[index][comsel]);
1590,1591c1590,1591
<             int_index, bufoff[int_index][SEKNUM], buflen[int_index][SEKNUM],
<             buftax[int_index][SEKNUM], buftax[int_index][SEKNUM] - buftax[int_index - 1][SEKNUM]);
---
>             index, bufoff[index][SEKNUM], buflen[index][SEKNUM],
>             buftax[index][SEKNUM], buftax[index][SEKNUM] - buftax[index - 1][SEKNUM]);
1594c1594
<    if (ENACOM > 1 && int_index >= ENAZAC && int_index <= ENAEND) printf("%+6d %04X  End of file\n\n",input_size,input_size);
---
>    if (ENACOM > 1 && index >= ENAZAC && index <= ENAEND) printf("%+6d %04X  End of file\n\n",input_size,input_size);
1610c1610
<       for (int_index = input_size - 1; int_index >= begin; int_index--)
---
>       for (index = input_size - 1; index >= begin; index--)
1612c1612
<          int length = buflen[int_index][comsel];
---
>          int length = buflen[index][comsel];
1615,1618c1615,1618
<             int offset = bufoff[int_index][comsel];
<             int_index -= length - 1;
<             buflen[int_index][comsel] = length;
<             bufoff[int_index][comsel] = offset;
---
>             int offset = bufoff[index][comsel];
>             index -= length - 1;
>             buflen[index][comsel] = length;
>             bufoff[index][comsel] = offset;
1620c1620
<             if (ENAREV && int_index >= ENAZAC && int_index <= ENAEND)
---
>             if (ENAREV && index >= ENAZAC && index <= ENAEND)
1622c1622
<                   int_index, int_index + length - 1, length, offset);
---
>                   index, index + length - 1, length, offset);
1626,1631c1626,1631
<             int idxend = int_index;
<             while (int_index >= begin && !buflen[int_index][comsel]) int_index--;
<             int len = idxend - int_index;
<             int_index++;
<             bufoff[int_index][comsel] = 0;
<             buflen[int_index][comsel] = len;
---
>             int idxend = index;
>             while (index >= begin && !buflen[index][comsel]) index--;
>             int len = idxend - index;
>             index++;
>             bufoff[index][comsel] = 0;
>             buflen[index][comsel] = len;
1635c1635
<             if (ENAREV && int_index >= ENAZAC && int_index <= ENAEND)
---
>             if (ENAREV && index >= ENAZAC && index <= ENAEND)
1637c1637
<                   int_index, int_index + len - 1, len);
---
>                   index, index + len - 1, len);
1673c1673
<             printf("Work Unp  %5u..%-5u Len:%-5u\n", idxzac, idxend - 1, idxend - idxzac);
---
>             printf("Work Unp % 5u..%-5u Len:%-5u\n", idxzac, idxend - 1, idxend - idxzac);
1699c1699
<                      printf("Join Unp  %5u..%-5u Len:%-5u + Unp  %5u..%-5u Len:%-5u => Unp  %5u..%-5u Len:%-5u\n",
---
>                      printf("Join Unp % 5u..%-5u Len:%-5u + Unp % 5u..%-5u Len:%-5u => Unp % 5u..%-5u Len:%-5u\n",
1729c1729
<                      printf("Join Unp  %5u..%-5u Len:%-5u + Unp  %5u..%-5u Len:%-5u => Unp  %5u..%-5u Len:%-5u\n",
---
>                      printf("Join Unp % 5u..%-5u Len:%-5u + Unp % 5u..%-5u Len:%-5u => Unp % 5u..%-5u Len:%-5u\n",
1920c1920
<       int_index = 0;
---
>       index = 0;
1934c1934
<          int_index++;
---
>          index++;
1937c1937
<       while (int_index < input_size)
---
>       while (index < input_size)
1939,1940c1939,1940
<          if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND)
<             printf("Data %+6d %04X    Packed %+6d %04X    ", int_index, int_index, packed_index, packed_index);
---
>          if (ENAOUT && index >= ENAZAC && index <= ENAEND)
>             printf("Data %+6d %04X    Packed %+6d %04X    ", index, index, packed_index, packed_index);
1942,1943c1942,1943
<          int length = buflen[int_index][comsel];
<          int offset = bufoff[int_index][comsel];
---
>          int length = buflen[index][comsel];
>          int offset = bufoff[index][comsel];
1946c1946
<             if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND)
---
>             if (ENAOUT && index >= ENAZAC && index <= ENAEND)
1954c1954
<             if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND)
---
>             if (ENAOUT && index >= ENAZAC && index <= ENAEND)
1957c1957
<             PutUnpacked(comsel, int_index, length);
---
>             PutUnpacked(comsel, index, length);
1960,1961c1960,1961
<          int_index += length;
<          if (ENAOUT && int_index >= ENAZAC && int_index <= ENAEND) putchar('\n');
---
>          index += length;
>          if (ENAOUT && index >= ENAZAC && index <= ENAEND) putchar('\n');
1963c1963
<       if (ENAOUT) printf("Data %+6d %04X    Packed %+6d %04X    End mark  ", int_index, int_index, packed_index, packed_index);
---
>       if (ENAOUT) printf("Data %+6d %04X    Packed %+6d %04X    End mark  ", index, index, packed_index, packed_index);

------ Rebuild All started: Project: LzxList, Configuration: Release Win32 ------
  LzxList.cpp
..\LzxList.cpp(357): error C3861: 'strcasecmp': identifier not found
..\LzxList.cpp(363): error C3861: 'strcasecmp': identifier not found
========== Rebuild All: 0 succeeded, 1 failed, 0 skipped ==========

if (nieco) {
  ...
}

dworkin@dw-A15:~/Programovani/ZX/Forth/LZE_test$ ./compile.sh 0xC000

;; -------------- name: _first_last_ -------------
   pasmo --equ _first_last_=0xC000 _first_last_.dat _first_last_.bin

Busy soft: LZE Packer 01
Input file: _first_last_.bin  Output file: _first_last_.lze
Packed:  7388 => 2964     Data: 558    Overhead: 2406

Busy soft: LZM Packer 01
Input file: _first_last_.bin  Output file: _first_last_.lzm
Packed:  7388 => 3259     Data: 820    Overhead: 2439

;; -------------- name: alf2_zalza -------------
   pasmo --equ alf2_zalza=0xC000 alf2_zalza.dat alf2_zalza.bin

Busy soft: LZE Packer 01
Input file: alf2_zalza.bin  Output file: alf2_zalza.lze
Packed:  3804 => 1787     Data: 401    Overhead: 1386

Busy soft: LZM Packer 01
Input file: alf2_zalza.bin  Output file: alf2_zalza.lzm
Packed:  3804 => 1944     Data: 513    Overhead: 1431

;; -------------- name: algar_thegermansroom -------------
   pasmo --equ algar_thegermansroom=0xC000 algar_thegermansroom.dat algar_thegermansroom.bin

Busy soft: LZE Packer 01
Input file: algar_thegermansroom.bin  Output file: algar_thegermansroom.lze
Packed: 14581 => 5647     Data: 1023   Overhead: 4624

Busy soft: LZM Packer 01
Input file: algar_thegermansroom.bin  Output file: algar_thegermansroom.lzm
Packed: 14581 => 6779     Data: 1786   Overhead: 4993

;; -------------- name: bacon_sandwich -------------
   pasmo --equ bacon_sandwich=0xC000 bacon_sandwich.dat bacon_sandwich.bin

Busy soft: LZE Packer 01
Input file: bacon_sandwich.bin  Output file: bacon_sandwich.lze
Packed:  8136 => 2823     Data: 542    Overhead: 2281

Busy soft: LZM Packer 01
Input file: bacon_sandwich.bin  Output file: bacon_sandwich.lzm
Packed:  8136 => 3492     Data: 923    Overhead: 2569

;; -------------- name: octode -------------
   pasmo --equ octode=0xC000 octode.dat octode.bin

Busy soft: LZE Packer 01
Input file: octode.bin  Output file: octode.lze
Packed:  1028 => 395      Data: 115    Overhead: 280 

Busy soft: LZM Packer 01
Input file: octode.bin  Output file: octode.lzm
Packed:  1028 => 386      Data: 114    Overhead: 272 

;; -------------- name: octode2k15 -------------
   pasmo --equ octode2k15=0xC000 octode2k15.dat octode2k15.bin

Busy soft: LZE Packer 01
Input file: octode2k15.bin  Output file: octode2k15.lze
Packed:  1803 => 471      Data: 136    Overhead: 335 

Busy soft: LZM Packer 01
Input file: octode2k15.bin  Output file: octode2k15.lzm
Packed:  1803 => 444      Data: 133    Overhead: 311 

;; -------------- name: octode2k16 -------------
   pasmo --equ octode2k16=0xC000 octode2k16.dat octode2k16.bin

Busy soft: LZE Packer 01
Input file: octode2k16.bin  Output file: octode2k16.lze
Packed:  6056 => 1857     Data: 440    Overhead: 1417

Busy soft: LZM Packer 01
Input file: octode2k16.bin  Output file: octode2k16.lzm
Packed:  6056 => 2221     Data: 706    Overhead: 1515

;; -------------- name: pd_dawn -------------
   pasmo --equ pd_dawn=0xC000 pd_dawn.dat pd_dawn.bin

Busy soft: LZE Packer 01
Input file: pd_dawn.bin  Output file: pd_dawn.lze
Packed:  7889 => 2500     Data: 543    Overhead: 1957

Busy soft: LZM Packer 01
Input file: pd_dawn.bin  Output file: pd_dawn.lzm
Packed:  7889 => 3232     Data: 924    Overhead: 2308

test data:MEGASDHC.B00(16KB)

packer        unpacker            size unpacker    packed       %  clock unpacking    LDIR x  LDIR*%^3  <.5  <1
---------------------------------------------------------------------------------------------------------------
zx7mini       bdzx7mini                      39     10580  64.57%          1122710      2.97      0.80        *
lzf           unlzf_smallp1                  55     10584  64.59%           692289      1.83      0.49    *   *
lzf           unlzf_small                    56     10584  64.59%           692565      1.83      0.49    *   *
zx2           dzx2_nano                      56     10086  61.56%          1029602      2.73      0.64        *
lz48          lz48decrunch_v006_180_size     64     10717  65.41%           556551      1.47      0.41    *   *
zx7b          dzx7b_slow                     64      9762  59.58%          1718914      4.56      0.96        *
zx7b          dzx7b_slow_r800                64      9762  59.58%          1718914      4.56      0.96        *
lz4           unlz4_spke_small               65     10822  66.05%           522620      1.38      0.40    *   *
lzsa1         unlzsa1_small                  67     10338  63.09%           595341      1.57      0.39    *   *
lzeee         dlzeee_small                   68     10088  61.57%          1203539      3.19      0.74        *
zx0           dzx0_standard                  68      9315  56.85% !        1420536      3.76      0.69        *
zx1           dzx1_standard                  68      9586  58.50%          1188201      3.15      0.63        *
zx1           dzx1_standard_ix_180           68      9586  58.50%          1157991      3.07      0.61        *
zx1           dzx1_standard_ix               69      9586  58.50%          1145487      3.03      0.61        *
zx7           dzx7_standard                  69      9781  59.69%          1850393      4.91      1.04     
lz48          lz48decrunch_v006_             70     10717  65.41%           557554      1.47      0.41    *   *
lz48          lz48decrunch_v006_180_speed    71     10717  65.41%           537244      1.42      0.40    *   *
lze           dlze_small                     73     10088  61.57%          1258754      3.34      0.78        *
lz4           lz4dec                         73     10822  66.05%           547468      1.45      0.42    *   *
lzf           unlzf_fastp1                   75     10584  64.59%           639617      1.69      0.46    *   *
BitBuster2    unbitbuster2                   81      9827  59.97%          1344377      3.56      0.77        *
Bitbuster     debitbustp0                    84      9830  59.99%          1768600      4.69      1.01     
BitBuster2    bitbuster_180                  86      9827  59.97%          1648456      4.37      0.94        *
lzf           unlzf_fast                     86     10584  64.59%           640099      1.69      0.46    *   *
lzeee         dlzeee_fast                    87     10088  61.57%           852041      2.26      0.53        *
lz4           unlz4_spke_fast                87     10822  66.05%           509284      1.35      0.39    *   *
Bitbuster     debitbustp1                    88      9830  59.99%          1569711      4.16      0.90        *
lzexe         z80unlzep2_small               88     10089  61.57%          1703101      4.51      1.05     
MegaLZ        unmegalz_small                 88      9718  59.31%          1692915      4.49      0.94        *
zx5           dzx5_standard                  88      9424  57.51%          1507415      4         0.76        *
zx7           dzx7_turbo                     88      9781  59.69%          1401087      3.71      0.79        *
Bitbuster     debitbust                      89      9830  59.99%          1819624      4.82      1.04     
BitBuster2    unbitbuster2_speed             89      9827  59.97%          1170354      3.1       0.67        *
lze           dlze_fast                      90     10088  61.57%           920646      2.44      0.57        *
BitBuster2    bitbuster                      91      9827  59.97%          1641694      4.35      0.94        *
lz4           unlz4_spke                     92     10822  66.05%           522445      1.38      0.40    *   *
Bitbuster     debitbustp2                    96      9830  59.99%          1342164      3.56      0.77        *
lzeee         dlzeee_fast2                   97     10088  61.57%           838373      2.22      0.52        *
lzeee         dlzeee_fast3                   99     10088  61.57%           820706      2.17      0.51        *
lz49          lz49decrunch_v001_180         101     10628  64.86%           592629      1.57      0.43    *   *
BitBuster2    unbitbuster2_speed2           104      9827  59.97%          1128398      2.99      0.64        *
lze           dlze_fast2                    106     10088  61.57%           870104      2.3       0.54        *
lz49          lz49decrunch_v001             106     10628  64.86%           608577      1.61      0.44    *   *
lze           lzedec                        110     10088  61.57%          1130337      2.99      0.70        *
lze           lzedecR                       110     10088  61.57%          1096753      2.91      0.68        *
MegaLZ        megalz_dec40                  110      9718  59.31%          2363816      6.27      1.31     
lzexe         z80unlze_small                112     10089  61.57%          1811346      4.8       1.12     
lzsa1         unlzsa1_fast                  113     10338  63.09%           529450      1.4       0.35    *   *
lze           lzdec                         119     10088  61.57%          1213495      3.22      0.75        *
zx1           dzx1_turbo_ix_180             125      9586  58.50%           987749      2.62      0.52        *
zx0           dzx0_turbo                    126      9315  56.85% !        1129301      2.99      0.55        *
zx1           dzx1_turbo_ix                 126      9586  58.50%           975245      2.58      0.52        *
zx1           dzx1_turbo                    128      9586  58.50%           947295      2.51      0.50        *
lzsa2         unlzsa2_small_rom             132      9666  58.99%           972337      2.58      0.53        *
lzexe         z80unlzep2                    133     10089  61.57%          1329384      3.52      0.82        *
lzsa2         unlzsa2_small                 134      9666  58.99%           941885      2.49      0.51        *
ApLib         unaplib_small                 139      9367  57.17%          2374849      6.3       1.18     
zx5           dzx5_turbo_rom                141      9424  57.51%          1306741      3.46      0.66        *
Pletter       unpletter_180                 145      9706  59.24%          1312645      3.48      0.72        *
ApLib         aplib247b_180_minimal         152      9367  57.17%          2329365      6.18      1.15     
ApLib         aplib156b                     156      9367  57.17%          3088035      8.19      1.53     
BitBuster2    bitbuster_speed_180           156      9827  59.97%          1237567      3.28      0.71        *
lzexe         z80unlze                      156     10089  61.57%          1448347      3.84      0.90        *
zx5           dzx5_turbo                    158      9424  57.51%          1266616      3.36      0.64        *
BitBuster2    bitbuster_speed               161      9827  59.97%          1230805      3.26      0.70        *
Exomizer2     deexo_180                     166      9362  57.14%          5454592     14.47      2.70     
Bitbuster     depack.gen                    168      9830  59.99%          1399638      3.71      0.80        *
Exomizer2     deexo                         169      9362  57.14%          5454722     14.47      2.70     
upkr          unpack_upkr_size_rom          169      8890  54.26% *        62761681   166.54     26.60     
Pletter       unpletter                     170      9706  59.24%          1459575      3.87      0.80        *
upkr          unpack_upkr_size              170      8890  54.26% *        62720436   166.43     26.59     
ApLib         aplib247b_180_small           171      9367  57.17%          1787367      4.74      0.89        *
Exomizer2     deexo_180_fast_jp             176      9362  57.14%          4682085     12.42      2.32     
Exomizer3.0   deexo3p7                      176      9362  57.14%          4220354     11.19      2.09     
Exomizer3.0   deexo3p7_fast_jp              181      9362  57.14%          3609927      9.57      1.79     
zx0           dzx0_fastrom                  181      9315  56.85% !        1087196      2.88      0.53        *
zx0           dzx0_fastrom_180              181      9315  56.85% !        1111103      2.94      0.54        *
zx7b          dzx7b_fast_r800               184      9762  59.58%          1076726      2.85      0.60        *
zx0           dzx0_fast                     187      9315  56.85% !        1070709      2.84      0.52        *
Exomizer3.0   deexo3                        191      9362  57.14%          3549371      9.41      1.76     
zx7b          dzx7b_fast                    191      9762  59.58%          1088297      2.88      0.61        *
upkr          unpack_upkr_speed_rom         194      8890  54.26% *       53195091    141.16     22.55     
upkr          unpack_upkr_speed             195      8890  54.26% *       53153846    141.05     22.53     
Exomizer2     deexo3_p0                     197      9362  57.14%          4304772     11.42      2.13     
zx7           dzx7_lom_v1p1                 199      9781  59.69%          1132648      3         0.64        *
Shrinkler(-b) deshrinkler_np_p1_180         201      8911  54.38% *      146683229    389.24     62.59     
Shrinkler(-b) deshrink_np                   202      8911  54.38% *      147670116    391.86     63.02     
Shrinkler(-b) deshrink_np_r800              202      8911  54.38% *      146540647    388.86     62.53     
Shrinkler(-b) deshrinkler_np_p1             204      8911  54.38% *      145253326    385.45     61.98     
lzsa2         unlzsa2_fast_rom              205      9666  58.99%           863398      2.29      0.47    *   *
Shrinkler(-b) deshrinkler_np                206      8911  54.38% *      145966236    387.34     62.29     
lzsa2         unlzsa2_fast                  207      9666  58.99%           832946      2.21      0.45    *   *
Shrinkler     deshrinkler_p1_180            207      8983  54.82% *      146871006    389.74     64.21     
hrust         dehrust_stk_208b              208      9369  57.18%          2152601      5.71      1.07     
Shrinkler     shrinkler_recall_209_r800_rom 208      8983  54.82% *      146727256    389.36     64.15     
hrust         dehrust_stk                   209      9369  57.18%          2152604      5.71      1.07     
Shrinkler     shrinkler_recall_209          209      8983  54.82% *      147898055    392.47     64.66     
Shrinkler     deshrinkler_p1                210      8983  54.82% *      145441341    385.95     63.58     
Exomizer3.0   deexoopt_x3_p7                212      9362  57.14%          3179313      8.43      1.57     
Shrinkler     deshrinkler                   212      8983  54.82% *      146160091    387.85     63.90     
zx7           dzx7_lom_v1                   214      9781  59.69%          1204254      3.19      0.68        *
Exomizer3.0   deexoopt_f3_fixed_p7          218      9362  57.14%          3304393      8.76      1.63     
mRIP          demrip_small                  218      9092  55.49% !        9167756     24.32      4.16     
Exomizer3.0   deexoopt_p7                   219      9362  57.14%          3304370      8.76      1.63     
Exomizer3.0   deexoopt_x3_180_p7            219      9362  57.14%          3303082      8.76      1.63     
mRIP          demrip_fast                   222      9092  55.49% !        7813994     20.73      3.54     
mRIP          demrip_faster                 223      9092  55.49% !        7776395     20.63      3.52     
hrust         dehrust_hl                    225      9369  57.18%          2314241      6.14      1.15     
Exomizer3.1   deexo3_p39                    226      9279  56.63% !        3915499     10.39      1.89     
RIP           derip_small                   228      9011  54.99%          8973768     23.81      3.96     
RIP           derip_small_rom               228      9011  54.99%          9015734     23.92      3.98     
MegaLZ        unmegalz_fast                 229      9718  59.31%          1056873      2.8       0.58        *
hrust8        dehrust8_hl_size              230      9369  57.18%          2294796      6.08      1.14     
hrust         dehrust_ix_231b               231      9369  57.18%          2385266      6.32      1.18     
RIP           derip_fast                    231      9011  54.99%          7721239     20.48      3.41     
RIP           derip_fast_rom                231      9011  54.99%          7763205     20.6       3.43     
ApLib         unaplib_fast_180              233      9367  57.17%          1556931      4.13      0.77        *
ApLib         aplib247b_180_fast            234      9367  57.17%          1716314      4.55      0.85        *
hrust         dehrust_ix                    234      9369  57.18%          2390975      6.34      1.19     
ApLib         unaplib_fast                  235      9367  57.17%          1543251      4.09      0.76        *
Exomizer2     deexoopt_x3_p0                235      9362  57.14%          3634060      9.64      1.80     
Exomizer2     deexoopt_x3_180_p0            242      9362  57.14%          3757829      9.97      1.86     
Exomizer3.1   deexoopt_x3_p39               244      9279  56.63% !        3567962      9.46      1.72     
ApLib         aplib247b                     249      9367  57.17%          1872848      4.96      0.93        *
Exomizer3.1   deexoopt_x3_180_p39           251      9279  56.63% !        3692054      9.79      1.78     
hrust8        dehrust8_hl                   262      9369  57.18%          1966589      5.21      0.97        *
Exomizer3.1   deexoopt_f3_fixed_p39         265      9279  56.63% !        3833167     10.17      1.85     
zx1           dzx1_mega                     406      9586  58.50%           902288      2.39      0.48    *   *
zx0           dzx0_mega                     673      9315  56.85% !        1026983      2.72      0.50    *   *
upkr          unpack_upkr_minusquare        702      8890  54.26% *       46402565    123.13     19.67     

dworkin@dw-A15:~/Programovani/ZX/Forth/LZ_$ ../check_word.sh 'define({USE_LZE2})'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Busy soft ;; LZE optimized depacker ;; 08.07.2016 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;# Modified routine for extracting files.
;# Original first byte token:
;#      %DP.. ....
;# Now first byte token:
;#      %P... ...D
;# Where P = packed bit flag
;# Where D = double byte bit flag

;# Format of packed data
;# ~~~~~~~~~~~~~~~~~~~~~
;# <Block><Block>...<Block><EndMark>
;#
;# Unpacked data blk:  <BlockLength> <Data..>
;# Repeated sequence:  <BlockLength> <Offset>
;#
;# <BlockLength>
;#   bit P ..... Identification: 0 = unpacked data, 1 = repeated sequence
;#   bit D ..... Identification: 0 = one byte     , 1 = two bytes
;#   bit ? ..... Data bit
;#
;#              P543 210D
;#   %0000 0000 1??? ???0 =   packed one byte   (6 bits)
;#   %0000 0000 0??? ???0 = unpacked one byte   (6 bits)
;#
;#    Pdcb a98D 7654 3210
;#   %1??? ???1 ???? ???? =   packed two bytes  (14 bits)
;#   %0??? ???1 ???? ???? = unpacked two bytes  (14 bits)
;#
;# <Data..>
;#   Data bytes what are directly copied by LDIR
;#
;# <Offset>
;#   bit D ..... Identification: 0 = one byte     , 1 = two bytes
;#   bit ? ..... Data bit
;#
;#              6543 210D
;#   %0000 0000 ???? ???0 =   packed one byte   (7 bits)
;#   %0000 0000 ???? ???0 = unpacked one byte   (7 bits)
;#
;#    edcb a98D 7654 3210
;#   %???? ???1 ???? ???? =   packed two bytes  (15 bits)
;#   %???? ???1 ???? ???? = unpacked two bytes  (15 bits)
;#
;# Length = 0 means end mark.

DEPREP_LZE2:            ;           depack_lze2
    push BC             ; 1:11      depack_lze2     Save block length
    ld    A,(HL)        ; 1:7       depack_lze2     A = %???? ???D; D = Double bit
    call DEPNUM_LZE2    ; 3:17      depack_lze2     Get relative offset of packed sequence
    ex  (SP),HL         ; 1:19      depack_lze2     Load block lengt and save address of source packed data
    push HL             ; 1:11      depack_lze2     Save block length
    ld    H, D          ; 1:4       depack_lze2     DE = destination address
    ld    L, E          ; 1:4       depack_lze2
    sbc  HL, BC         ; 2:15      depack_lze2     HL = begin of source sequence in already unpacked data
    pop  BC             ; 1:10      depack_lze2     BC = length of sequence
   
    ldir                ; 2:16/21   depack_lze2     Copy sequence
    pop  HL             ; 1:10      depack_lze2
                        ;[15:124]   depack_lze2
;# Input:
;#  HL = address of source packed data
;#  DE = address of destination to depack data
;# ===========================================
DEPACK_LZE2:            ;           depack_lze2   
    ld    A,(HL)        ; 1:7       depack_lze2     A = %P??? ???D; P = Packed bit; D = Double bit
    or    A             ; 1:4       depack_lze2     Reset carry and set sign and zero flag
    rla                 ; 1:4       depack_lze2     A = %???? ??D0; sign unaffected
    rrca                ; 1:4       depack_lze2     A = %0??? ???D; sign unaffected, reset carry
    call DEPNUM_LZE2    ; 3:17      depack_lze2     Get length of block; sign and zero flag unaffected
    jp    m, DEPREP_LZE2; 3:10      depack_lze2     If packed block then jump
                        ;[10:46]    depack_lze2
    ret   z             ; 1:5/11    depack_lze2     If zero then end of depacking
    ldir                ; 2:16/21   depack_lze2     Copy unpacked data block
    jr   DEPACK_LZE2    ; 2:12      depack_lze2

;# Input:
;#      reset carry
;#      A  = (HL)
;#      HL = address of source packed data
;# Output1:
;#      carry and sign and zero flag unaffected
;#      BC = %0000 0000 0s?? ????
;#      HL++
;# Output2:
;#      carry and sign and zero flag unaffected
;#      BC = %0s?? ???? ???? ????
;#      HL+= 2
DEPNUM_LZE2:            ;           depack_lze2     
    inc  HL             ; 1:6       depack_lze2
    rra                 ; 1:4       depack_lze2     6543210D -> .6543210 carry=D
    ld    C, A          ; 1:4       depack_lze2
    ld    B, 0x00       ; 2:7       depack_lze2
    ret  nc             ; 1:5/11    depack_lze2     If short value then return BC = %0000 0000 0??? ????
                       ;[ 6:26]     depack_lze2
    ccf                 ; 1:4       depack_lze2
    ld    B, C          ; 1:4       depack_lze2
    ld    C,(HL)        ; 1:7       depack_lze2     Get low byte of two-byte value
    inc  HL             ; 1:6       depack_lze2
    ret                 ; 1:10      depack_lze2     BC = %0??? ???? ???? ????
                        ;[5:31]     depack_lze2
; seconds: 0           ;[41:260]

dworkin@dw-A15:~/Programovani/ZX/Forth/LZ_$ ../check_word.sh 'define({USE_LZ_})'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Busy soft ;; LZE optimized depacker ;; 08.07.2016 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;# Modified routine for extracting files.
;# Original first byte token:
;#      %DP.. ....
;# Now first byte token:
;#      %P... ...D
;# Where P = packed bit flag
;# Where D = double byte bit flag
;# And the offset is newly stored negative

;# Format of packed data
;# ~~~~~~~~~~~~~~~~~~~~~
;# <Block><Block>...<Block><EndMark>
;#
;# Unpacked data blk:  <BlockLength> <Data..>
;# Repeated sequence:  <BlockLength> <Offset>
;#
;# <BlockLength>
;#   bit P ..... Identification: 0 = unpacked data, 1 = repeated sequence
;#   bit D ..... Identification: 0 = one byte     , 1 = two bytes
;#   bit ? ..... Data bit
;#
;#    D543 210P               %            54 3210
;#   %0??? ???1 ------------> %0000 0000 00?? ???? = size one byte   packed (6 bits)
;#   %0??? ???0 ------------> %0000 0000 00?? ???? = size one byte unpacked (6 bits)
;#
;#    Ddcb a98P 7654 3210 -->    dc ba98 7654 3210
;#   %1??? ???1 ???? ???? --> %00?? ???? ???? ???? = size two bytes   packed (14 bits)
;#   %0??? ???1 ???? ???? --> %00?? ???? ???? ???? = size two bytes unpacked (14 bits)
;#
;# <Data..>
;#   Data bytes what are directly copied by LDIR
;#
;# <Negative_Offset>
;#   bit D ..... Identification: 0 = one byte, 1 = two bytes
;#   bit ? ..... Data bit
;#
;#   %6543 210D               %           654 3210
;#   %???? ???0 ------------> %1111 1111 1??? ???? = negative offset one byte   (7 bits)
;#
;#   %edcb a98D 7654 3210     % edc ba98 7654 3210
;#   %???? ???1 ???? ???? --> %1??? ???? ???? ???? = negative offset two bytes  (15 bits)
;#
;# Length = 0 means end mark.
DEPREP_LZ_:             ;           depack_lz_
    ld    A,(HL)        ; 1:7       depack_lz_      A = %???? ???D; D = Double bit; carry = 1
    rra                 ; 1:4       depack_lz_      A = %???? ???D -> %1??? ???? & carry=D
    jr   nc, DEPREP_LZ_A; 2:7/12    depack_lz_
    inc  HL             ; 1:6       depack_lz_
    push HL             ; 1:11      depack_lz_
    ld    L,(HL)        ; 1:7       depack_lz_      Get low byte of two-byte value
    ld    H, A          ; 1:4       depack_lz_      HL = %1??? ???? ???? ???? = 15 bits negative offset
    jr   DEPREP_LZ_B    ; 2:12      depack_lz_
DEPREP_LZ_A:            ;           depack_lz_
    push HL             ; 1:11      depack_lz_
    ld    L, A          ; 1:4       depack_lz_
    ld    H, 0xFF       ; 2:7       depack_lz_      HL = %1111 1111 1??? ???? = 7 bits negative offset
DEPREP_LZ_B:            ;           depack_lz_
    add  HL, DE         ; 1:11      depack_lz_

    ldir                ; 2:16/21   depack_lz_      Copy sequence
    pop  HL             ; 1:10      depack_lz_
    inc  HL             ; 1:6       depack_lz_
                       ;[19:123]    depack_lz_
;   ...fall down to depack_lz_                       
;# Input:
;#  HL = address of source packed data
;#  DE = address of destination to depack data
;# ===========================================
DEPACK_LZ_:             ;           depack_lz_   
    xor   A             ; 1:4       depack_lz_      reset carry
    ld    B, A          ; 1:4       depack_lz_
    or  (HL)            ; 1:7       depack_lz_      A = %D??????P; P = packed bit; D = double bit; set sign and zero flag
    inc  HL             ; 1:6       depack_lz_
    rla                 ; 1:4       depack_lz_      A = %??????P0; sign unaffected
    rrca                ; 1:4       depack_lz_      A = %0??????P; sign unaffected; reset carry

    rra                 ; 1:4       depack_lz_      A = %00??????; sign unaffected; carry=P
    ld    C, A          ; 1:4       depack_lz_
    jp    p, DEPACK_LZ_A; 3:10      depack_lz_      One byte length
    ld    B, C          ; 1:4       depack_lz_
    ld    C,(HL)        ; 1:7       depack_lz_      Get low byte of two-byte value
    inc  HL             ; 1:6       depack_lz_   
DEPACK_LZ_A:            ;           depack_lz_
    jr    c, DEPREP_LZ_ ; 2:7/12    depack_lz_      If packed block then jump
    ret   z             ; 1:5/11    depack_lz_      If zero then end of depacking
    ldir                ; 2:16/21   depack_lz_      Copy unpacked data block
    jr   DEPACK_LZ_     ; 2:12      depack_lz_
                       ;[21:104]    depack_lz_
; seconds: 0           ;[40:227]

LZE:
DP.. .... - size
D... .... - offset
LZE2:
P... ...D - size
.... ...D - offset
LZ_:
D... ...P - size
.... ...D - offset (je ulozen zaporny)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Busy soft ;; LZE optimized depacker ;; 08.07.2016 ;;
;; Modified routine by _Dworkin        ;; 15.07.2023 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   puts("LZ_ Packer 01 based on Busy soft LZE Packer 01");

 Licencie:
   LzxPack / LzxList ... GPLv3
   DecLzx01 ............ MIT

test data:MSX2EXT.B00 (MSX2EXT.ROM) (16KB)
                                                                            <                         <              <
                                                                        <  median unpacking         median LDIR* < median
packer            unpacker            unpacker size  packed size    % 12000 12694   clocks LDIR x <2 5.28   %^3 1.5 2.54
busy lzm          DecLzm01                       26 !   14462  88.27%               490220   1.30  *   *   0.89  *   *
zx7mini           dzx7mini                       39     13874  84.68%              1343213   3.56      *   2.16      *
busy/_dw0rkin lz_ M4 FORTH define({USE_LZ_})     40 !   14231  86.86%               563599   1.49  *   *   0.98  *   *
busy lze          M4 FORTH define({USE_LZE})     46 !   14231  86.86%               783830   2.08      *   1.36  *   *
lzf               unlzf_smallp1                  55     14134  86.26%               812196   2.15      *   1.38  *   *
lzf               unlzf_small                    56     14134  86.26%               812412   2.15      *   1.38  *   *
zx2               dzx2_nano                      56     13155  80.29%              1267295   3.36      *   1.74      *
busy lzx          DecLzx02-z80 (lzxspd 0)        63 !   12138  74.08%        *        fail                       
lz48              lz48decrunch_v006_180_size     64     14074  85.90%               630300   1.67  *   *   1.06  *   *
zx7b              dzx7b_slow                     64     12964  79.12%              2165985   5.74          2.84     
zx7b              dzx7b_slow_r800                64     12964  79.12%              2165985   5.74          2.84     
lz4               unlz4_spke_small               65     14567  88.90%               559692   1.48  *   *   1.04  *   *
lzsa1             unlzsa1_small                  67     13719  83.73%               684213   1.81  *   *   1.06  *   *
lzeee             dlzeee_small                   68     13299  81.17%              1500939   3.98      *   2.13      *
zx0               dzx0_standard                  68     12316  75.17%        *     1789427   4.74      *   2.01      *
zx1               dzx1_standard                  68     12694  77.47%        *     1492865   3.96      *   1.84      *
zx1               dzx1_standard_ix_180           68     12694  77.47%        *     1449796   3.84      *   1.79      *
zx1               dzx1_standard_ix               69     12694  77.47%        *     1432748   3.80      *   1.77      *
zx7               dzx7_standard                  69     12943  78.99%              2342486   6.21          3.06     
lz48              lz48decrunch_v006_             70     14074  85.90%               633823   1.68  *   *   1.06  *   *
busy lzx          DecLzx02-z80 (lzxspd 1)        71 !   12138  74.08%        *        fail                       
lz48              lz48decrunch_v006_180_speed    71     14074  85.90%               602329   1.59  *   *   1.01  *   *
lze               dlze_small                     73     13299  81.17%              1565649   4.15      *   2.22      *
lz4               lz4dec                         73     14567  88.90%               590733   1.56  *   *   1.10  *   *
lzf               unlzf_fastp1                   75     14134  86.26%               736723   1.95  *   *   1.25  *   *
BitBuster2        unbitbuster2                   81     12998  79.33%              1661738   4.40      *   2.20      *
Bitbuster         debitbustp0                    84     13013  79.42%              2236204   5.93          2.97     
BitBuster2        bitbuster_180                  86     12998  79.33%              2067106   5.48          2.74     
lzf               unlzf_fast                     86     14134  86.26%               737429   1.95  *   *   1.25  *   *
lzeee             dlzeee_fast                    87     13299  81.17%              1017561   2.70      *   1.44  *   *
lz4               unlz4_spke_fast                87     14567  88.90%               543242   1.44  *   *   1.01  *   *
Bitbuster         debitbustp1                    88     13013  79.42%              1973131   5.23      *   2.62     
lzexe             z80unlzep2_small               88     13300  81.17%              2182389   5.79          3.10     
MegaLZ            unmegalz_small                 88     12833  78.32%              2127328   5.64          2.71     
zx5               dzx5_standard                  88     12493  76.25%        *     1905341   5.05      *   2.24      *
zx7               dzx7_turbo                     88     12943  78.99%              1746118   4.63      *   2.28      *
Bitbuster         debitbust                      89     13013  79.42%              2299272   6.10          3.06     
BitBuster2        unbitbuster2_speed             89     12998  79.33%              1436134   3.81      *   1.90      *
lze               dlze_fast                      90     13299  81.17%              1105496   2.93      *   1.57      *
BitBuster2        bitbuster                      91     12998  79.33%              2057758   5.46          2.73     
lz4               unlz4_spke                     92     14567  88.90%               559638   1.48  *   *   1.04  *   *
Bitbuster         debitbustp2                    96     13013  79.42%              1672895   4.43      *   2.22      *
lzeee             dlzeee_fast2                   97     13299  81.17%               997947   2.64      *   1.41  *   *
lzeee             dlzeee_fast3                   99     13299  81.17%               974967   2.58      *   1.38  *   *
lz49              lz49decrunch_v001_180         101     13969  85.26%               685181   1.81  *   *   1.12  *   *
BitBuster2        unbitbuster2_speed2           104     12998  79.33%              1379503   3.66      *   1.83      *
lze               dlze_fast2                    106     13299  81.17%              1036175   2.74      *   1.47  *   *
lz49              lz49decrunch_v001             106     13969  85.26%               708915   1.88  *   *   1.17  *   *
lze               lzedec                        110     13299  81.17%              1388514   3.68      *   1.97      *
lze               lzedecR                       110     13299  81.17%              1345549   3.57      *   1.91      *
MegaLZ            megalz_dec40                  110     12833  78.32%              3030834   8.04          3.86     
lzexe             z80unlze_small                112     13300  81.17%              2328558   6.17          3.30     
lzsa1             unlzsa1_fast                  113     13719  83.73%               588179   1.56  *   *   0.92  *   *
lze               lzdec                         119     13299  81.17%              1505104   3.99      *   2.13      *
zx1               dzx1_turbo_ix_180             125     12694  77.47%        *     1220727   3.23      *   1.50      *
zx0               dzx0_turbo                    126     12316  75.17%        *     1398466   3.71      *   1.58      *
zx1               dzx1_turbo_ix                 126     12694  77.47%        *     1203679   3.19      *   1.48  *   *
zx1               dzx1_turbo                    128     12694  77.47%        *     1163803   3.08      *   1.43  *   *
lzsa2             unlzsa2_small_rom             132     12801  78.13%              1152856   3.05      *   1.45  *   *
lzexe             z80unlzep2                    133     13300  81.17%              1670957   4.43      *   2.37      *
lzsa2             unlzsa2_small                 134     12801  78.13%              1111906   2.95      *   1.41  *   *
ApLib             unaplib_small                 139     12361  75.44%        *     3124037   8.29          3.56     
zx5               dzx5_turbo_rom                141     12493  76.25%        *     1638231   4.34      *   1.92      *
Pletter           unpletter_180                 145     12858  78.47%              1825966   4.84      *   2.34      *
ApLib             aplib247b_180_minimal         152     12361  75.44%        *     3059764   8.11          3.48     
ApLib             aplib156b                     156     12361  75.44%        *     4090920  10.85          4.66     
BitBuster2        bitbuster_speed_180           156     12998  79.33%              1526279   4.05      *   2.02      *
lzexe             z80unlze                      156     13300  81.17%              1829968   4.85      *   2.59     
zx5               dzx5_turbo                    158     12493  76.25%        *     1580259   4.19      *   1.86      *
BitBuster2        bitbuster_speed               161     12998  79.33%              1516931   4.02      *   2.01      *
Exomizer2         deexo_180                     166     12333  75.27%        *     7529411  19.98          8.52     
Bitbuster         depack.gen                    168     13013  79.42%              1744445   4.62      *   2.31      *
Exomizer2         deexo                         169     12333  75.27%        *     7529417  19.98          8.52     
upkr              unpack_upkr_size_rom          169     11706  71.44%  *     *    82396325 218.65         79.72     
Pletter           unpletter                     170     12858  78.47%              2027765   5.38          2.60     
upkr              unpack_upkr_size              170     11706  71.44%  *     *    82339823 218.50         79.67     
ApLib             aplib247b_180_small           171     12361  75.44%        *     2328805   6.17          2.65     
Exomizer2         deexo_180_fast_jp             176     12333  75.27%        *     6455709  17.13          7.31     
Exomizer3.0       deexo3p7                      176     12333  75.27%        *     5858686  15.54          6.63     
busy lzx          DecLzx02-z80 (lzxspd 0)       178 !   12138  74.08%        *     4697239  12.46          5.06     
Exomizer3.0       deexo3p7_fast_jp              181     12333  75.27%        *     4995819  13.25          5.65     
zx0               dzx0_fastrom                  181     12316  75.17%        *     1340348   3.55      *   1.51      *
zx0               dzx0_fastrom_180              181     12316  75.17%        *     1372497   3.64      *   1.55      *
zx7b              dzx7b_fast_r800               184     12964  79.12%              1312907   3.48      *   1.72      *
zx0               dzx0_fast                     187     12316  75.17%        *     1316815   3.49      *   1.48  *   *
Exomizer3.0       deexo3                        191     12333  75.27%        *     4910762  13.03          5.56     
zx7b              dzx7b_fast                    191     12964  79.12%              1328878   3.52      *   1.74      *
upkr              unpack_upkr_speed_rom         194     11706  71.44%  *     *    69837405 185.32         67.57     
upkr              unpack_upkr_speed             195     11706  71.44%  *     *    69780903 185.17         67.51     
Exomizer2         deexo3_p0                     197     12333  75.27%        *     5924440  15.72          6.70     
zx7               dzx7_lom_v1p1                 199     12943  78.99%              1385950   3.67      *   1.81      *
Shrinkler(-b)     deshrinkler_np_p1_180         201     11770  71.83%  *     *   194111762 515.10         90.90     
Shrinkler(-b)     deshrink_np                   202     11770  71.83%  *     *   195409840 518.55         92.18     
Shrinkler(-b)     deshrink_np_r800              202     11770  71.83%  *     *   193923416 514.60         90.72     
Shrinkler(-b)     deshrinkler_np_p1             204     11770  71.83%  *     *   192217919 510.08         89.04     
lzsa2             unlzsa2_fast_rom              205     12801  78.13%              1014163   2.69      *   1.28  *   *
Shrinkler(-b)     deshrinkler_np                206     11770  71.83%  *     *   193159649 512.58         89.97     
lzsa2             unlzsa2_fast                  207     12801  78.13%               973213   2.58      *   1.23  *   *
Shrinkler         deshrinkler_p1_180            207     11817  72.12%  *     *   194710355 516.69         93.82     
hrust             dehrust_stk_208b              208     12331  75.26%        *     2808251   7.45          3.18     
Shrinkler         shrinkler_recall_209_r800_rom 208     11817  72.12%  *     *   194521267 516.19         93.63     
hrust             dehrust_stk                   209     12331  75.26%        *     2808254   7.45          3.18     
Shrinkler         shrinkler_recall_209          209     11817  72.12%  *     *   196044987 520.23         95.15     
Shrinkler         deshrinkler_p1                210     11817  72.12%  *     *   192813624 511.66         91.93     
Exomizer3.0       deexoopt_x3_p7                212     12333  75.27%        *     4370821  11.59          4.94     
Shrinkler         deshrinkler                   212     11817  72.12%  *     *   193759064 514.17         92.87     
zx7               dzx7_lom_v1                   214     12943  78.99%              1480424   3.92      *   1.93      *
Exomizer3.0       deexoopt_f3_fixed_p7          218     12333  75.27%        *     4551255  12.07          5.15     
mRIP              demrip_small                  218     12011  73.30%        *    11956168  31.72         12.49     
busy lzx          DecLzx02-z80 (lzxspd 1)       219 !   12138  74.08%        *     3698808   9.81          6.22     
Exomizer3.0       deexoopt_p7                   219     12333  75.27%        *     4551232  12.07          5.15     
Exomizer3.0       deexoopt_x3_180_p7            219     12333  75.27%        *     4549524  12.07          5.15     
mRIP              demrip_fast                   222     12011  73.30%        *    10166412  26.97         10.62     
mRIP              demrip_faster                 223     12011  73.30%        *    10113820  26.83         10.57     
hrust             dehrust_hl                    225     12331  75.26%        *     3035653   8.05          3.43     
Exomizer3.1       deexo3_p39                    226     12220  74.58%        *     5241027  13.90          5.77     
RIP               derip_small                   228     11891  72.57%  *     *    11677682  30.98         11.84     
RIP               derip_small_rom               228     11891  72.57%  *     *    11734089  31.13         11.90     
MegaLZ            unmegalz_fast                 229     12833  78.32%              1272131   3.37      *   1.62      *
hrust8            dehrust8_hl_size              230     12331  75.26%        *     3002257   7.96          3.39     
hrust             dehrust_ix_231b               231     12331  75.26%        *     3111092   8.25          3.52     
RIP               derip_fast                    231     11891  72.57%  *     *    10024909  26.60         10.17     
RIP               derip_fast_rom                231     11891  72.57%  *     *    10081316  26.75         10.22     
ApLib             unaplib_fast_180              233     12361  75.44%        *     2011183   5.33          2.29      *
ApLib             aplib247b_180_fast            234     12361  75.44%        *     2231851   5.92          2.54      *
hrust             dehrust_ix                    234     12331  75.26%        *     3118348   8.27          3.53     
ApLib             unaplib_fast                  235     12361  75.44%        *     1991967   5.28      *   2.27      *
Exomizer2         deexoopt_x3_p0                235     12333  75.27%        *     4968256  13.18          5.62     
Exomizer2         deexoopt_x3_180_p0            242     12333  75.27%        *     5146959  13.65          5.82     
Exomizer3.1       deexoopt_x3_p39               244     12220  74.58%        *     4751978  12.61          5.23     
ApLib             aplib247b                     249     12361  75.44%        *     2446391   6.49          2.79     
Exomizer3.1       deexoopt_x3_180_p39           251     12220  74.58%        *     4924672  13.06          5.42     
hrust8            dehrust8_hl                   262     12331  75.26%        *     2556657   6.78          2.89     
Exomizer3.1       deexoopt_f3_fixed_p39         265     12220  74.58%        *     5111849  13.56          5.63     
zx1               dzx1_mega                     406     12694  77.47%        *     1097370   2.91      *   1.35  *   *
zx0               dzx0_mega                     673     12316  75.17%        *     1254457   3.32      *   1.41  *   *
upkr              unpack_upkr_minusquare        702     11706  71.44%  *     *    60917782 161.65         58.94     
                                                 

declzx_start   IFNDEF declzx_init_addres   ;; Skip next setting HL,DE if they are set from calling program.

        IF revers
          ld   hl,srcadd+pcklen-1
          ld   de,dstadd+totlen-1
        ELSE
          ld   hl,srcadd
          ld   de,dstadd
        ENDIF

      ENDIF

         ld      hl,srcadd
         ld      de,dstadd
         DEFINE  declzx_init_addres
         INCLUDE DecLzx02.asm

OPT   listact   ;; Exclude not compiled branches IF/ENDIF from listing