MS▁DECRUNCHER 1.

00000000: 09 D6 8D 12 57 00 16 00  16 00 00 00 14 07 09 FF  |....W...........|
00000010: 00 00 F7 00 9B 85 00 04  05 D7 ED BD BD BD 00 00  |................|
00000020: 00 00 BD BD BD BD BD BD  7B 80 49 00 7B 80 7B 80  |........{.I.{.{.|
00000030: 7B 80 7B 80 7B 80 7B 80  7B 80 7B 80 1B 00 19 7F  |{.{.{.{.{.{.....|
00000040: 53 48 49 50 20 20 BD BD  BD BD BD BD BD BD BD BD  |SHIP  ..........|
00000050: BD BD BD BD BD BD BD BD  BD BD 06 2E 54 45 58 54  |............TEXT|
00000060: 20 20 20 20 20 20 20 20  20 20 03 5F 33 53 20 20  |          ._3S  |
00000070: 20 20 20 20 20 20 20 20  20 20 06 2E 42 59 54 45  |          ..BYTE|
00000080: 20 20 20 20 20 20 20 20  20 20 02 5F 14 20 20 20  |          ._.   |
00000090: 20 20 20 20 20 20 20 20  20 20 53 4B 49 50 48 20  |          SKIPH |
000000A0: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
000000B0: BD BD BD BD BD BD BD BD  20 20 20 20 20 20 20 20  |........        |
000000C0: 20 4C 44 41 20 23 45 4E  44 2D 4E 41 4D 45 20 20  | LDA #END-NAME  |
000000D0: 3B 53 45 54 20 4E 41 4D  45 20 46 4F 52 20 20 20  |;SET NAME FOR   |
000000E0: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
000000F0: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD 00  |................|
00000100: 30 20 30 21 02 02 54 53  94 5F 4E 41 4D 45 20 4F  |0 0!..TS._NAME O|
00000110: 46 20 46 49 4C 45 30 1C  05 30 1B 40 2A 01 80 2D  |F FILE0..0.@*..-|
00000120: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000130: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000140: 2D 2D 2D 2D 2D 2D 03 2A  04 2A 02 2A 02 2A 03 97  |------.*.*.*.*..|
00000150: 53 50 45 45 44 20 34 03  2A 04 2A 02 2A 02 2A 02  |SPEED 4.*.*.*.*.|
00000160: 97 53 50 45 45 44 20 33  03 2A 03 2A 02 2A 02 2A  |.SPEED 3.*.*.*.*|
00000170: 02 97 53 50 45 45 44 20  32 30 16 03 2A 03 2A 01  |..SPEED 20..*.*.|
00000180: 2A 02 2A 02 97 53 50 45  45 44 20 31 60 CE 38 17  |*.*..SPEED 1`.8.|
00000190: CE 38 18 D0 25 40 2A 04  CC 38 17 EE 29 20 D0 94  |.8..%@*..8..) ..|
000001A0: 56 49 44 45 4F 20 45 46  46 45 43 54 28 95 4F 4C  |VIDEO EFFECT(.OL|
000001B0: 44 20 49 A4 46 4C 41 47  8D 28 01 95 4F 4C 44 20  |D I.FLAG.(..OLD |
000001C0: 24 30 31 20 56 41 4C 55  45 68 95 91 38 17 95 A0  |$01 VALUEh..8...|
000001D0: 28 00 95 30 56 98 95 8D  28 01 95 78 95 A9 28 30  |(..0V...(..x..(0|
000001E0: 95 D0 38 56 95 4D 41 4B  45 53 20 D3 C5 C9 C9 28  |..8V.MAKES ....(|
000001F0: D0 95 55 4E 44 45 52 20  C9 2F CF 20 54 48 45 4E  |..UNDER ./. THEN|
00000200: 20 49 54 29 28 F0 95 49  46 20 49 54 20 48 41 53  | IT)(..IF IT HAS|
00000210: 20 54 4F 20 53 54 4F 52  45 AD 38 18 48 08 AD 28  | TO STORE.8.H..(|
00000220: 01 96 28 57 59 29 30 08  A8 96 50 55 54 53 20 4F  |..(WY)0...PUTS O|
00000230: 4E 45 20 42 59 54 45 20  54 4F CE 38 3F CE 38 40  |NE BYTE TO.8?.8@|
00000240: D0 25 40 2A 04 AC 38 3F  98 28 96 4F 4C 44 20 C9  |.%@*..8?.(.OLD .|
00000250: A4 46 4C 41 47 8D 28 01  96 4F 4C 44 20 24 30 31  |.FLAG.(..OLD $01|
00000260: 20 56 41 4C 55 45 68 96  A8 96 30 55 B1 38 3F 96  | VALUEh...0U.8?.|
00000270: 46 4F 52 20 53 4F 4D 45  20 43 59 43 4C 45 53 8D  |FOR SOME CYCLES.|
00000280: 28 01 96 54 48 45 4E 20  49 54 20 4D 41 4B 45 53  |(..THEN IT MAKES|
00000290: 20 D3 C5 C9 78 96 44 45  50 41 43 4B 20 55 4E 44  | ...x.DEPACK UND|
000002A0: 45 52 20 D2 CF CD A9 28  30 96 49 46 20 49 54 20  |ER ....(0.IF IT |
000002B0: 48 41 53 20 54 4F 90 38  55 C9 28 A0 AD 38 40 48  |HAS TO.8U.(..8@H|
000002C0: 08 96 28 4F 55 54 29 20  54 4F 20 28 57 59 29 30  |..(OUT) TO (WY)0|
000002D0: 1A AD 28 01 96 53 54 4F  52 45 20 4F 4E 45 20 42  |..(..STORE ONE B|
000002E0: 59 54 45 60 97 30 15 28  97 45 4C 53 45 4C 29 CC  |YTE`.0.(.ELSEL).|
000002F0: FF 97 20 29 C3 FF 97 A9  28 01 97 9A 97 30 4D AE  |.. )....(....0M.|
00000300: 38 24 97 F0 38 15 97 AC  28 90 97 49 46 20 C5 CF  |8$..8...(..IF ..|
00000310: C6 20 54 48 45 4E 20 51  55 49 54 08 97 49 4E 50  |. THEN QUIT..INP|
00000320: 55 54 20 53 54 52 45 41  4D 30 07 20 29 CF FF 97  |UT STREAM0. )...|
00000330: 54 41 4B 45 20 44 41 54  41 20 46 52 4F 4D 30 12  |TAKE DATA FROM0.|
00000340: 60 94 68 94 8D 38 19 94  2A 94 38 94 20 38 07 94  |`.h..8..*.8. 8..|
00000350: 48 94 D0 38 12 94 30 01  0E 38 19 94 54 41 4B 45  |H..8..0..8..TAKE|
00000360: 20 4F 52 44 45 52 20 42  49 54 80 53 45 50 41 52  | ORDER BIT.SEPAR|
00000370: 41 54 4C 59 20 21 80 54  4F 20 55 53 45 20 CA CD  |ATLY !.TO USE ..|
00000380: D0 20 D1 D5 C9 D4 2C 20  41 4E 44 20 44 45 50 41  |. ...., AND DEPA|
00000390: 43 4B 20 45 56 45 52 59  20 50 41 52 54 80 42 55  |CK EVERY PART.BU|
000003A0: 54 20 49 46 20 59 4F 55  20 55 53 45 20 4F 57 4E  |T IF YOU USE OWN|
000003B0: 20 49 46 46 4C 20 4C 4F  41 44 45 52 20 59 4F 55  | IFFL LOADER YOU|
000003C0: 20 48 41 56 45 80 49 54  27 4C 4C 20 57 4F 52 4B  | HAVE.IT'LL WORK|
000003D0: 20 43 4F 52 52 45 43 54  20 41 4E 59 57 41 59 20  | CORRECT ANYWAY |
000003E0: 21 80 49 46 20 59 4F 55  20 55 53 45 20 CA CD D0  |!.IF YOU USE ...|
000003F0: 20 C1 C7 C1 C9 CE 20 54  4F 20 4F 4E 45 20 50 41  | ..... TO ONE PA|
00000400: 52 54 20 46 49 4C 45 95  49 54 20 57 4F 52 4B 53  |RT FILE.IT WORKS|
00000410: 20 55 50 20 54 4F 20 C5  CF C6 95 49 4E 20 4F 4E  | UP TO ....IN ON|
00000420: 45 20 46 49 4C 45 95 50  41 52 54 53 20 4F 46 20  |E FILE.PARTS OF |
00000430: 4F 4E 45 20 4C 45 56 45  4C 95 49 46 20 59 4F 55  |ONE LEVEL.IF YOU|
00000440: 20 4C 49 4E 4B 45 44 20  4D 4F 52 45 95 4A 4D 50  | LINKED MORE.JMP|
00000450: 20 41 47 41 49 4E 95 4F  4E 45 20 46 49 4C 45 95  | AGAIN.ONE FILE.|
00000460: 50 41 43 4B 45 44 20 4F  4E 45 20 50 41 52 54 20  |PACKED ONE PART |
00000470: 49 4E 30 05 4C 38 53 95  4A 4D 50 20 51 55 49 54  |IN0.L8S.JMP QUIT|
00000480: 20 49 46 20 59 4F 55 D0  38 0B 95 A2 28 04 95 30  | IF YOU.8...(..0|
00000490: 31 8C 38 43 95 49 4D 50  52 4F 56 49 4E 47 20 46  |1.8C.IMPROVING F|
000004A0: 4F 52 20 56 31 2E 35 4C  38 00 95 4C 4F 4F 50 20  |OR V1.5L8..LOOP |
000004B0: 44 45 50 41 43 4B D0 38  11 95 CE 38 43 95 46 52  |DEPACK.8...8C.FR|
000004C0: 4F 4D 20 28 4F 55 54 29  20 54 4F 20 28 57 59 29  |OM (OUT) TO (WY)|
000004D0: 30 11 20 38 1A 95 53 54  4F 52 45 20 53 4B 49 50  |0. 8..STORE SKIP|
000004E0: 4C 20 42 59 54 45 53 8D  38 3F 95 EE 38 40 95 90  |L BYTES.8?..8@..|
000004F0: 25 40 2A 04 95 6D 38 43  95 28 4F 55 54 29 2B 3D  |%@*..m8C.(OUT)+=|
00000500: 53 4B 49 50 4C EE 38 43  95 53 4B 49 50 4C 2B 3D  |SKIPL.8C.SKIPL+=|
00000510: 32 8A 95 8D 38 40 95 6D  38 40 95 AD 38 18 95 AA  |2...8@.m8@..8...|
00000520: 95 28 4F 55 54 29 2B 3D  28 57 59 29 6D 38 3F 95  |.(OUT)+=(WY)m8?.|
00000530: 18 95 44 41 54 41 30 0E  AD 38 17 95 44 45 50 41  |..DATA0..8..DEPA|
00000540: 43 4B 20 50 41 43 4B 49  4E 47 10 38 0C 95 CE 38  |CK PACKING.8...8|
00000550: 45 95 EE 38 40 95 D0 25  40 2A 04 95 EE 38 3F 95  |E..8@..%@*...8?.|
00000560: F0 38 0E 95 29 28 03 95  AD 38 45 95 D0 38 0B 95  |.8..)(...8E..8..|
00000570: CA 95 2E 38 40 95 28 4F  55 54 29 3D 4F 46 46 53  |...8@.(OUT)=OFFS|
00000580: 45 54 2D 4C 45 4E 2E 38  3F 95 30 0B 20 38 01 95  |ET-LEN.8?.0. 8..|
00000590: AA 95 BD 38 16 95 54 48  45 20 53 41 4D 45 20 53  |...8..THE SAME S|
000005A0: 45 51 55 45 4E 43 45 30  0C AE 38 45 95 44 45 43  |EQUENCE0..8E.DEC|
000005B0: 4F 44 45 20 4F 46 46 53  45 54 20 54 4F 8D 38 45  |ODE OFFSET TO.8E|
000005C0: 30 1B 69 28 00 95 2B 53  50 45 45 44 20 43 4F 4E  |0.i(..+SPEED CON|
000005D0: 53 54 2A 95 20 38 01 95  2A 95 20 38 01 95 4F 46  |ST*. 8..*. 8..OF|
000005E0: 46 53 45 54 20 41 52 45  20 52 45 51 55 49 52 45  |FSET ARE REQUIRE|
000005F0: 98 95 48 4F 57 20 4D 41  4E 59 20 42 49 54 53 20  |..HOW MANY BITS |
00000600: 4F 46 30 30 EE 38 43 95  54 48 45 20 44 45 54 45  |OF00.8C.THE DETE|
00000610: 43 54 4F 52 20 54 4F 4F  2E 03 28 2C 95 BD 4B 49  |CTOR TOO..(,..KI|
00000620: 43 4B 20 49 54 20 4F 55  54 20 42 55 54 90 38 30  |CK IT OUT BUT.80|
00000630: 95 B0 54 4F 20 56 31 2E  30 20 59 4F 55 20 4D 41  |..TO V1.0 YOU MA|
00000640: 59 F0 38 31 95 AD 4F 4E  4C 59 20 49 4E 20 56 31  |Y.81..ONLY IN V1|
00000650: 2E 35 30 4E C9 28 01 95  AE 54 48 49 53 20 49 4D  |.50N.(...THIS IM|
00000660: 50 52 4F 56 49 4E 47 20  49 53 30 47 8D 38 43 98  |PROVING IS0G.8C.|
00000670: 53 4B 49 50 4C 3D 4C 45  4E 47 54 48 B0 38 09 98  |SKIPL=LENGTH.8..|
00000680: 20 38 01 98 F0 38 47 98  B0 38 05 98 2A 98 53 45  | 8...8G..8..*.SE|
00000690: 51 2E 20 4C 45 4E 47 54  48 30 09 20 38 01 98 44  |Q. LENGTH0. 8..D|
000006A0: 45 43 4F 44 45 20 50 41  43 4B 45 44 98 8C 38 40  |ECODE PACKED..8@|
000006B0: 8C 38 3F 30 02 8C 38 45  98 8C 38 42 97 90 38 06  |.8?0..8E..8B..8.|
000006C0: 97 CE 38 42 97 EC 38 42  97 D0 38 06 97 CA 97 20  |..8B..8B..8.... |
000006D0: 38 08 97 30 06 20 38 07  97 44 41 54 41 53 30 04  |8..0. 8..DATAS0.|
000006E0: AA 97 53 54 4F 52 45 20  4E 4F 20 50 41 4B 45 44  |..STORE NO PAKED|
000006F0: B0 38 03 97 20 38 01 97  F0 38 02 97 CD 38 42 97  |.8.. 8...8...8B.|
00000700: D0 25 40 2A 06 97 5E 20  C3 2B 2B 20 4E 4F 54 41  |.%@*..^ .++ NOTA|
00000710: 54 49 4F 4E 2E 38 42 97  4C 45 4E 3D 53 4B 49 50  |TION.8B.LEN=SKIP|
00000720: 48 3C 3C 38 2B 2E 41 2A  97 4C 45 4E 47 54 48 20  |H<<8+.A*.LENGTH |
00000730: 44 45 43 4F 44 45 30 03  20 38 01 97 4E 4F 20 50  |DECODE0. 8..NO P|
00000740: 41 43 4B 45 44 20 53 54  52 45 41 4D 8D 38 42 A8  |ACKED STREAM.8B.|
00000750: 30 00 A9 28 00 8D 38 19  20 38 07 96 42 49 54 53  |0..(..8. 8..BITS|
00000760: 8D 38 1C 29 28 0F 30 4B  8E 30 4E 40 2A 01 A7 30  |.8.)(.0K.0N@*..0|
00000770: 4A A2 28 FF 96 56 31 2E  30 20 20 20 20 20 20 20  |J.(..V1.0       |
00000780: 20 20 20 20 20 3B 4C 38  4B A7 A2 28 01 96 56 31  |     ;L8K..(..V1|
00000790: 2E 35 20 20 20 20 20 20  20 20 20 20 20 20 3B 96  |.5            ;.|
000007A0: 44 45 54 45 43 54 4F 52  20 20 20 20 20 20 20 20  |DETECTOR        |
000007B0: 3B 10 38 4A 96 4B 49 4E  44 20 4F 46 20 43 52 55  |;.8J.KIND OF CRU|
000007C0: 4E 43 48 45 52 3B 20 38  07 96 53 50 45 45 44 8D  |NCHER; 8..SPEED.|
000007D0: 38 18 96 28 57 59 29 3D  45 4E 44 A4 41 44 59 96  |8..(WY)=END.ADY.|
000007E0: 28 57 59 29 3D 53 54 41  52 54 2B 4C 45 4E 47 54  |(WY)=START+LENGT|
000007F0: 48 6D 38 18 28 20 38 07  96 4C 45 4E 47 54 48 20  |Hm8.( 8..LENGTH |
00000800: 48 49 47 48 08 8D 38 17  6D 38 17 18 D8 20 38 07  |HIGH..8.m8... 8.|
00000810: 96 4C 45 4E 47 54 48 20  4C 4F 57 8D 38 18 81 20  |.LENGTH LOW.8.. |
00000820: 20 20 20 20 20 20 4C 44  41 20 23 3E 53 54 41 52  |      LDA #>STAR|
00000830: 54 20 20 3B BD 20 38 07  96 B0 4F 4E 57 20 53 54  |T  ;. 8...ONW ST|
00000840: 41 52 54 A4 41 44 59 8D  38 17 96 AD 49 46 20 59  |ART.ADY.8...IF Y|
00000850: 4F 55 20 44 45 46 49 4E  45 81 20 20 20 20 20 20  |OU DEFINE.      |
00000860: 20 4C 44 41 20 23 3C 53  54 41 52 54 20 20 3B AE  | LDA #<START  ;.|
00000870: 20 38 07 96 53 54 41 52  54 A4 41 44 59 30 53 20  | 8..START.ADY0S |
00000880: 29 C6 FF A2 28 01 20 29  C0 FF 98 20 29 BA FF 98  |)...(. )... )...|
00000890: 4F 50 45 4E 49 4E 47 20  46 49 4C 45 A0 28 00 A2  |OPENING FILE.(..|
000008A0: 28 08 98 44 52 56 20 4E  55 4D 42 45 52 A9 28 01  |(..DRV NUMBER.(.|
000008B0: 8E 38 24 96 4C 45 41 56  49 4E 47 20 44 45 43 52  |.8$.LEAVING DECR|
000008C0: 55 4E 43 48 BA 96 53 54  41 43 4B 20 50 4F 49 4E  |UNCH..STACK POIN|
000008D0: 54 45 52 20 46 4F 20 29  BD FF A0 44 38 21 A2 45  |TER FO )...D8!.E|
000008E0: 38 21 98 4F 50 45 4E 30  1F A9 30 20 41 38 21 98  |8!.OPEN0..0 A8!.|
000008F0: 53 45 54 20 4E 41 4D 45  20 46 4F 52 80 2D 2D 2D  |SET NAME FOR.---|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000920: 2D 2D 2D 2D 30 4F 05 29  00 10 30 24 05 28 02 92  |----0O.)..0$.(..|
00000930: 53 54 41 43 4B 20 53 41  46 45 52 30 19 05 28 FB  |STACK SAFER0..(.|
00000940: 92 43 52 55 4E 43 48 20  4F 52 44 45 52 30 45 05  |.CRUNCH ORDER0E.|
00000950: 28 F6 92 42 49 54 53 20  4F 46 20 4F 46 46 53 45  |(..BITS OF OFFSE|
00000960: 54 30 42 05 28 F8 92 4E  4F 20 43 4F 4D 50 52 45  |T0B.(..NO COMPRE|
00000970: 53 20 53 54 52 45 41 4D  20 28 C8 29 30 43 05 28  |S STREAM (.)0C.(|
00000980: F7 92 53 51 2E 20 4C 45  4E 47 54 48 30 40 05 30  |..SQ. LENGTH0@.0|
00000990: 3F 40 2A 01 30 3F 05 28  F9 92 4F 46 46 53 45 54  |?@*.0?.(..OFFSET|
000009A0: 20 50 4F 49 4E 54 45 52  30 18 05 30 17 40 2A 01  | POINTER0..0.@*.|
000009B0: 30 17 05 28 FC 92 53 54  4F 52 45 20 53 54 52 45  |0..(..STORE STRE|
000009C0: 41 4D 20 50 4F 49 4E 54  45 52 80 2D 2D 2D 2D 2D  |AM POINTER.-----|
000009D0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000009E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000009F0: 2D 2D 80 20 20 20 20 20  20 20 20 20 20 20 20 20  |--.             |
00000A00: 20 20 20 20 20 20 20 20  20 20 20 20 CD C1 D2 C3  |            ....|
00000A10: CF 20 4F 46 20 C6 41 54  55 4D 80 80 54 48 45 4E  |. OF .ATUM..THEN|
00000A20: 20 53 45 4E 44 20 4D 45  20 4E 45 57 20 56 45 52  | SEND ME NEW VER|
00000A30: 53 49 4F 4E 2C 20 50 4C  45 41 53 45 21 80 55 53  |SION, PLEASE!.US|
00000A40: 49 4E 47 2C 20 42 55 54  20 49 46 20 59 4F 55 20  |ING, BUT IF YOU |
00000A50: 44 4F 20 56 45 52 59 20  55 53 45 41 42 4C 45 20  |DO VERY USEABLE |
00000A60: 4F 4E 45 80 C9 46 20 59  4F 55 20 57 41 4E 54 20  |ONE..F YOU WANT |
00000A70: 59 4F 55 20 4D 41 59 20  49 4D 50 52 4F 56 45 20  |YOU MAY IMPROVE |
00000A80: 49 54 20 46 4F 52 20 59  4F 55 52 80 CD D3 20 C3  |IT FOR YOUR... .|
00000A90: 52 55 4E 43 48 45 52 2E  80 53 50 45 45 44 53 2C  |RUNCHER..SPEEDS,|
00000AA0: 20 41 4E 44 20 46 4F 52  20 56 45 52 53 49 4F 4E  | AND FOR VERSION|
00000AB0: 20 31 2E 30 20 41 4E 44  20 31 2E 35 20 4F 46 80  | 1.0 AND 1.5 OF.|
00000AC0: D4 48 49 53 20 49 53 20  55 4E 49 56 45 52 53 41  |.HIS IS UNIVERSA|
00000AD0: 4C 20 44 45 43 52 55 4E  43 48 45 52 20 46 4F 52  |L DECRUNCHER FOR|
00000AE0: 20 41 4C 4C 80 80 28 43  29 20 31 39 39 35 20 CD  | ALL..(C) 1995 .|
00000AF0: 41 52 45 4B 20 D3 5A 43  5A 45 50 41 4E 53 4B 49  |AREK .ZCZEPANSKI|
00000B00: 80 D4 48 49 53 20 49 53  20 53 4F 55 52 43 45 20  |..HIS IS SOURCE |
00000B10: 46 49 4C 45 20 46 4F 52  20 CD D3 20 C3 52 55 4E  |FILE FOR .. .RUN|
00000B20: 43 48 45 52 80 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |CHER.-----------|
00000B30: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000B40: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 06 29 00 09  |------------.)..|
00000B50: BD 54 55 52 42 4F 04 00  28 24 1B 01 25 27 0D 28  |.TURBO..($..%'.(|
00000B60: 26 22 01 28 28 1A 08 14  08 10 1B 14 12 11 06 28  |&".((..........(|
00000B70: D5 89 84 84 00 92 94 00  83 8E 83 91 85 83 84 02  |................|
00000B80: 8D 17 92 92 17 83 8E 81  81 83 83 81 8F 81 83 12  |................|
00000B90: 0D 83 89 95 12 95 84 D7  C9 83 83 88 83 00 00 C5  |................|
00000BA0: 81 83 00 D6 8F 93 94 84  84 84 84 00 D2 CB 84 82  |................|
00000BB0: 84 84 84 84 84 00 C6 83  83 81 D3 8D 84 84 84 84  |................|
00000BC0: D2 00 D8 91 94 14 12 C5  92 96 82 84 82 D2 83 D6  |................|
00000BD0: 95 82 C6 84 94 82 84 84  84 84 84 86 84 84 84 00  |................|
00000BE0: D4 86 84 8D 84 84 84 82  8C 90 86 84 84 D7 96 84  |................|
00000BF0: 8F 00 D8 84 84 00 00 D5  13 09 0A 13 13 0C 13 26  |...............&|
00000C00: 1C 28 27 0C 00 D4 84 82  84 82 82 84 82 C4 00 D5  |.('.............|
00000C10: 8E 94 84 C6 82 84 85 85  C8 82 00 D4 8F 81 83 83  |................|
00000C20: 83 90 92 95 D5 82 82 91  8C 81 83 85 83 83 00 D4  |................|
00000C30: 88 81 81 83 96 95 8D 84  82 84 C4 84 84 82 91 8C  |................|
00000C40: 91 83 85 83 83 81 13 11  11 11 28 08 14 02 60 EB  |..........(...`.|
00000C50: 6D 00 9D BD BD BD BD BD  BD BD BD BD BD BD BD BD  |m...............|
00000C60: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
00000C70: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD EC EC  |................|
00000C80: ED EE EE BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
00000C90: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
00000CA0: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD 44 45  |..............DE|
00000CB0: D0 42 49 54 B1 44 45 50  41 CB 4E 4F 50 C1 53 54  |.BIT.DEPA.NOP.ST|
00000CC0: 4F D2 46 49 4E 41 CC 54  52 41 4E 53 C4 54 41 4B  |O.FINA.TRANS.TAK|
00000CD0: 45 C4 50 55 54 C4 4C 4F  4E 47 C4 4E 4F 53 48 4F  |E.PUT.LONG.NOSHO|
00000CE0: 52 D4 44 45 41 4C C7 44  45 43 4F 44 C5 41 4C C7  |R.DEAL.DECOD.AL.|
00000CF0: 54 52 41 4E 53 46 45 D2  57 C5 57 45 C8 53 53 53  |TRANSFE.W.WE.SSS|
00000D00: D3 42 49 54 4F CB 5A B2  5A 32 C8 4F 55 54 54 41  |.BITO.Z.Z2.OUTTA|
00000D10: 4B C5 54 41 C2 57 D9 57  59 C8 42 49 54 D3 53 54  |K.TA.W.WY.BIT.ST|
00000D20: 4F 52 C5 53 50 41 C4 53  50 45 45 C4 53 50 45 41  |OR.SPA.SPEE.SPEA|
00000D30: C4 4C 4F 41 C4 4F 50 45  CE 45 4E C4 4E 41 4D C5  |.LOA.OPE.EN.NAM.|
00000D40: 53 52 C1 54 59 D3 53 54  4F D3 53 54 C1 44 45 50  |SR.TY.STO.ST.DEP|
00000D50: B1 44 57 C5 46 49 52 53  54 42 D4 44 46 41 44 D9  |.DW.FIRSTB.DFAD.|
00000D60: 43 4F C8 44 53 54 4F D2  54 D2 54 52 C8 44 46 49  |CO.DSTO.T.TR.DFI|
00000D70: 4E 41 CC 43 CF 44 45 5A  45 52 CF 44 45 4A 45 C4  |NA.C.DEZER.DEJE.|
00000D80: 44 45 49 CE 44 54 41 C2  44 57 D9 44 57 59 C8 44  |DEI.DTA.DW.DWY.D|
00000D90: 53 54 4F 52 C5 44 30 31  56 41 CC 44 49 4D 41 53  |STOR.D01VA.DIMAS|
00000DA0: CB 44 4A 4D D0 44 42 49  54 D3 4E 44 B1 44 57 45  |.DJM.DBIT.ND.DWE|
00000DB0: C8 4E 44 B2 44 45 4E C4  4F 55 D4 4F 55 54 C8 53  |.ND.DEN.OU.OUT.S|
00000DC0: 4B 49 D0 53 4B 49 50 C8  53 4B 49 50 CC 53 4B 49  |KI.SKIP.SKIP.SKI|
00000DD0: 4C C8 42 59 54 C5 53 48  49 50 C8 53 48 4F 52 D4  |L.BYT.SHIP.SHOR.|
00000DE0: 43 41 52 52 D9 51 55 49  54 CC 53 4F 46 D4 48 41  |CARR.QUIT.SOF.HA|
00000DF0: 52 C4 58 41 52 52 D9 51  55 49 D4 43 4F 4D 50 41  |R.XARR.QUI.COMPA|
00000E00: 52 C5 53 54 41 52 D4 43  5A 59 53 4F 46 D4 4A 55  |R.STAR.CZYSOF.JU|
00000E10: 4D D0 4C C4 41 47 41 49  CE 41 47 41 49 4E C7 53  |M.L.AGAI.AGAIN.S|
00000E20: 54 53 4B 49 D0 50 55 54  53 4B 49 D0 4E C7 43 4F  |TSKI.PUTSKI.N.CO|
00000E30: 4D D0 45 44 4C 4E C7 43  5A 59 54 C1 4E 49 45 54  |M.EDLN.CZYT.NIET|
00000E40: C1 46 53 49 CF 4A 55 4D  D0 4F 4B 46 4F D2 47 4F  |.FSI.JUM.OKFO.GO|
00000E50: 4F 46 C6 4F 55 54 4F 46  C6 42 49 54 B1 44 45 50  |OF.OUTOF.BIT.DEP|
00000E60: 41 CB 4E 4F 50 C1 53 54  4F D2 46 49 4E 41 CC 54  |A.NOP.STO.FINA.T|
00000E70: 52 41 4E 53 C4 54 41 4B  45 C4 50 55 54 C4 4C 4F  |RANS.TAKE.PUT.LO|
00000E80: 4E 47 C4 4E 4F 53 48 4F  52 D4 44 45 41 4C C7 44  |NG.NOSHOR.DEAL.D|
00000E90: 45 43 4F 44 C5 54 52 41  4E 53 46 45 D2 53 53 53  |ECOD.TRANSFE.SSS|
00000EA0: D3 42 49 54 4F CB 4F 55  54 54 41 4B C5 49 4E 50  |.BITO.OUTTAK.INP|
00000EB0: 55 D4 45 4E D4 45 58 49  54 30 B1 4D 41 49 4E 43  |U.EN.EXIT0.MAINC|
00000EC0: CC 54 45 58 D4 54 45 58  54 B1 54 45 58 54 B2 47  |.TEX.TEXT.TEXT.G|
00000ED0: 45 D4 4C 53 D4 48 53 D4  54 45 58 54 B3 4C 4F 41  |E.LS.HS.TEXT.LOA|
00000EE0: C4 42 59 54 45 D3 43 4C  4F 53 C5 57 B1 54 45 58  |.BYTE.CLOS.W.TEX|
00000EF0: 54 B4 57 41 49 D4 52 4F  D4 57 B2 54 45 58 54 B5  |T.WAI.RO.W.TEXT.|
00000F00: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
00000F10: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
00000F20: BD BD BD BD BD BD BD BD  BD BD BD BD BD BD BD BD  |................|
00000F30: BD BD BD BD BD BD BD BD  BD BD 43 59 C6 54 45 58  |..........CY.TEX|
00000F40: 54 B8 47 45 54 B1 4D 4F  5A 45 C3 47 45 54 B3 4F  |T.GET.MOZE.GET.O|
00000F50: 55 54 47 45 D4 44 50 CC  54 52 42 41 53 49 C3 44  |UTGE.DP.TRBASI.D|
00000F60: 4C 55 47 4F 53 C3 50 4F  4C 4F 5A 45 4E 49 C5 42  |LUGOS.POLOZENI.B|
00000F70: 49 54 4F 57 D9 57 45 4A  53 43 49 C5 50 4F 4C 4F  |ITOW.WEJSCI.POLO|
00000F80: 5A 45 CE 57 59 4A 53 43  49 C5 56 41 4C 55 45 30  |ZE.WYJSCI.VALUE0|
00000F90: B1 4D 41 53 4B C9 4A 55  4D 50 54 CF 41 4C 47 CF  |.MASK.JUMPT.ALG.|
00000FA0: 53 59 53 4F D0 42 41 53  49 43 4C 4E C7 42 41 53  |SYSO.BASICLN.BAS|
00000FB0: 49 4E 4C C7 42 41 53 49  C3 42 41 53              |INL.BASI.BAS    |

.V..W....................W..............
{.I.{.{.{.{.{.{.{.{....SHIP  ..........
............TEXT          ._3S          
  ..BYTE          ._.             SKIPH 
........................         LDA #EN
D-NAME  ;SET NAME FOR   ................
................0 0!..TS._NAME OF FILE0.
.0.@*..---------------------------------
------.*.*.*.*..SPEED 4.*.*.*.*..SPEED 3
.*.*.*.*..SPEED 20..*.*.*.*..SPEED 1`N8.
N8.P%@*.L8..) P.VIDEO EFFECT(.OLD I.FLAG
.(..OLD $01 VALUEH..8.. (..0V...(..X..(0
.P8V.MAKES SEII(P.UNDER I/O THEN IT)(..I
F IT HAS TO STORE.8.H..(..(WY)0...PUTS O
NE BYTE TON8?N8@P%@*..8?.(.OLD I.FLAG.(.
.OLD $01 VALUEH...0U.8?.FOR SOME CYCLES.
(..THEN IT MAKES SEIX.DEPACK UNDER ROM.(
0.IF IT HAS TO.8UI( .8@H..(OUT) TO (WY)0
..(..STORE ONE BYTE`.0.(.ELSEL)L.. )C...
(....0M.8$..8...(..IF EOF THEN QUIT..INP
UT STREAM0. )O..TAKE DATA FROM0.`.H..8..
*.8. 8..H.P8..0..8..TAKE ORDER BIT.SEPAR
ATLY !.TO USE JMP QUIT, AND DEPACK EVERY
 PART.BUT IF YOU USE OWN IFFL LOADER YOU
 HAVE.IT'LL WORK CORRECT ANYWAY !.IF YOU
 USE JMP AGAIN TO ONE PART FILE.IT WORKS
 UP TO EOF.IN ONE FILE.PARTS OF ONE LEVE
L.IF YOU LINKED MORE.JMP AGAIN.ONE FILE.
PACKED ONE PART IN0.L8S.JMP QUIT IF YOUP
8...(..01.8C.IMPROVING FOR V1.5L8..LOOP 
DEPACKP8..N8C.FROM (OUT) TO (WY)0. 8..ST
ORE SKIPL BYTES.8?..8@..%@*..M8C.(OUT)+=
SKIPL.8C.SKIPL+=2...8@.M8@..8....(OUT)+=
(WY)M8?...DATA0..8..DEPACK PACKING.8..N8
E..8@.P%@*...8?..8..)(...8E.P8..J..8@.(O
UT)=OFFSET-LEN.8?.0. 8.....8..THE SAME S
EQUENCE0..8E.DECODE OFFSET TO.8E0.I(..+S
PEED CONST*. 8..*. 8..OFFSET ARE REQUIRE
..HOW MANY BITS OF00.8C.THE DETECTOR TOO
..(,..KICK IT OUT BUT.80..TO V1.0 YOU MA
Y.81..ONLY IN V1.50NI(...THIS IMPROVING 
IS0G.8C.SKIPL=LENGTH.8.. 8...8G..8..*.SE
Q. LENGTH0. 8..DECODE PACKED..8@.8?0..8E
..8B..8..N8B..8B.P8..J. 8..0. 8..DATAS0.
..STORE NO PAKED.8.. 8...8..M8B.P%@*..^ 
C++ NOTATION.8B.LEN=SKIPH<<8+.A*.LENGTH 
DECODE0. 8..NO PACKED STREAM.8B.0..(..8.
 8..BITS.8.)(.0K.0N@*..0J.(..V1.0       
     ;L8K..(..V1.5            ;.DETECTOR
        ;.8J.KIND OF CRUNCHER; 8..SPEED.
8..(WY)=END.ADY.(WY)=START+LENGTHM8.( 8.
.LENGTH HIGH..8.M8..X 8..LENGTH LOW.8.. 
      LDA #>START  ;. 8...ONW START.ADY.
8...IF YOU DEFINE.       LDA #<START  ;.
 8..START.ADY0S )F..(. )... )...OPENING 
FILE (..(..DRV NUMBER.(..8$.LEAVING DECR
UNCH..STACK POINTER FO ).. D8!.E8!.OPEN0
..0 A8!.SET NAME FOR.-------------------
--------------------0O.)..0$.(..STACK SA
FER0..(..CRUNCH ORDER0E.(..BITS OF OFFSE
T0B.(..NO COMPRES STREAM (H)0C.(..SQ. LE
NGTH0@.0?@*.0?.(..OFFSET POINTER0..0.@*.
0..(..STORE STREAM POINTER.-------------
--------------------------.             
            MARCO OF FATUM..THEN SEND ME
 NEW VERSION, PLEASE!.USING, BUT IF YOU 
DO VERY USEABLE ONE.IF YOU WANT YOU MAY 
IMPROVE IT FOR YOUR.MS CRUNCHER..SPEEDS,
 AND FOR VERSION 1.0 AND 1.5 OF.THIS IS 
UNIVERSAL DECRUNCHER FOR ALL..(C) 1995 M
AREK SZCZEPANSKI.THIS IS SOURCE FILE FOR
 MS CRUNCHER.---------------------------
------------.)...TURBO..($..%'.(&".((...
.......(U...............................
.......WI......E...V........RK........F.
..S.....R.X....E.....R.V..F.............
T............W....X....U.......&.('..T..
.....D.U...F....H..T........U..........T
..........D...............(...`.M.......
........................................
........................................
......DEPBIT.DEPAKNOPASTORFINALTRANSDTAK
EDPUTDLONGDNOSHORTDEALGDECODEALGTRANSFER
WEWEHSSSSBITOKZ.Z2HOUTTAKETABWYWYHBITSST
ORESPADSPEEDSPEADLOADOPENENDNAMESRATYSST
OSSTADEP.DWEFIRSTBTDFADYCOHDSTORTRTRHDFI
NALCODEZERODEJEDDEINDTABDWYDWYHDSTORED01
VALDIMASKDJMPDBITSND.DWEHND.DENDOUTOUTHS
KIPSKIPHSKIPLSKILHBYTESHIPHSHORTCARRYQUI
TLSOFTHARDXARRYQUITCOMPARESTARTCZYSOFTJU
MPLDAGAINAGAINGSTSKIPPUTSKIPNGCOMPEDLNGC
ZYTANIETAFSIOJUMPOKFORGOOFFOUTOFFBIT.DEP
AKNOPASTORFINALTRANSDTAKEDPUTDLONGDNOSHO
RTDEALGDECODETRANSFERSSSSBITOKOUTTAKEINP
UTENTEXIT0.MAINCLTEXTTEXT.TEXT.GETLSTHST
TEXT.LOADBYTESCLOSEW.TEXT.WAITROTW.TEXT.
........................................
..................CYFTEXT.GET.MOZECGET.O
UTGETDPLTRBASICDLUGOSCPOLOZENIEBITOWYWEJ
SCIEPOLOZENWYJSCIEVALUE0.MASKIJUMPTOALGO
SYSOPBASICLNGBASINLGBASICBAS

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL