AW-DECOM.SRC

00000000: 01 08 25 08 64 00 AC B2  24 43 31 30 30 3B 20 5F  |..%.d...$C100; _|
00000010: 53 54 41 52 54 20 4F 46  20 4D 41 43 48 49 4E 45  |START OF MACHINE|
00000020: 20 43 4F 44 45 00 2B 08  6E 00 21 00 6A 08 78 00  | CODE.+.n.!.j.x.|
00000030: 43 4F 4D 50 C3 B2 24 30  32 3B 20 5F 43 4F 4D 50  |COMP..$02; _COMP|
00000040: 52 45 53 53 45 44 20 4C  45 4E 47 54 48 20 4F 46  |RESSED LENGTH OF|
00000050: 20 54 45 58 54 20 53 54  4F 52 45 44 20 49 4E 20  | TEXT STORED IN |
00000060: 4C 4F 43 41 54 49 4F 4E  20 32 00 97 08 82 00 54  |LOCATION 2.....T|
00000070: 58 53 54 41 52 54 B2 24  43 30 30 30 3B 20 5F 53  |XSTART.$C000; _S|
00000080: 54 41 52 54 20 4F 46 20  43 4F 4D 50 52 45 53 53  |TART OF COMPRESS|
00000090: 45 44 20 54 45 58 54 00  D2 08 8C 00 43 4F 44 45  |ED TEXT.....CODE|
000000A0: 53 54 52 B2 24 46 42 3B  20 5F 54 45 4D 50 4F 52  |STR.$FB; _TEMPOR|
000000B0: 41 52 59 20 53 54 4F 52  45 53 20 46 4F 52 20 54  |ARY STORES FOR T|
000000C0: 57 4F 20 42 59 54 45 53  20 28 24 46 42 2F 24 46  |WO BYTES ($FB/$F|
000000D0: 43 29 00 0B 09 96 00 44  45 43 4F 4D 53 54 B2 24  |C).....DECOMST.$|
000000E0: 41 41 3B 20 5F 54 45 4D  50 2E 53 54 4F 52 45 53  |AA; _TEMP.STORES|
000000F0: 20 46 4F 52 20 44 45 43  4F 44 45 44 20 49 4E 46  | FOR DECODED INF|
00000100: 4F 20 28 24 41 41 2D 24  41 43 29 00 11 09 A0 00  |O ($AA-$AC).....|
00000110: 21 00 37 09 AA 00 4C 44  41 20 43 4F 4D 50 C3 3B  |!.7...LDA COMP.;|
00000120: 20 5F 47 45 54 20 43 4F  4D 50 52 45 53 53 45 44  | _GET COMPRESSED|
00000130: 20 4C 45 4E 47 54 48 00  55 09 B4 00 42 45 51 20  | LENGTH.U...BEQ |
00000140: 54 48 45 80 3B 20 5F 49  46 20 3D 30 20 54 48 45  |THE.; _IF =0 THE|
00000150: 4E 20 45 4E 44 00 74 09  BE 00 AF 20 23 24 46 45  |N END.t.... #$FE|
00000160: 3B 20 5F 45 4E 53 55 52  45 20 49 54 20 49 53 20  |; _ENSURE IT IS |
00000170: 45 56 45 4E 00 93 09 C8  00 53 54 41 20 43 4F 4D  |EVEN.....STA COM|
00000180: 50 C3 3B 20 5F 53 54 4F  52 45 20 49 54 20 41 47  |P.; _STORE IT AG|
00000190: 41 49 4E 00 99 09 D2 00  21 00 BB 09 DC 00 4C 44  |AIN.....!.....LD|
000001A0: 59 20 23 24 30 30 3B 20  5F 53 54 41 52 54 20 4F  |Y #$00; _START O|
000001B0: 46 20 43 4F 4D 50 2E 54  45 58 54 00 E2 09 E6 00  |F COMP.TEXT.....|
000001C0: 4D B0 45 20 4C 44 41 20  54 58 53 54 41 52 54 AA  |M.E LDA TXSTART.|
000001D0: 31 2C 59 3B 20 5F 47 45  54 20 32 4E 44 20 42 59  |1,Y; _GET 2ND BY|
000001E0: 54 45 00 FF 09 F0 00 53  54 41 20 43 4F 44 45 53  |TE.....STA CODES|
000001F0: 54 52 AA 31 3B 20 5F 53  54 4F 52 45 20 49 54 00  |TR.1; _STORE IT.|
00000200: 20 0A FA 00 4C 44 41 20  54 58 53 54 41 52 54 2C  | ...LDA TXSTART,|
00000210: 59 3B 20 5F 47 45 54 20  31 53 54 20 42 59 54 45  |Y; _GET 1ST BYTE|
00000220: 00 3F 0A 04 01 53 54 41  20 43 4F 44 45 53 54 52  |.?...STA CODESTR|
00000230: 3B 20 5F 41 4E 44 20 53  54 4F 52 45 20 49 54 00  |; _AND STORE IT.|
00000240: 68 0A 0E 01 43 4D 50 20  23 24 46 46 3B 20 5F 49  |h...CMP #$FF; _I|
00000250: 46 20 3D 32 35 35 20 54  48 45 4E 20 4E 4F 4E 2D  |F =255 THEN NON-|
00000260: 53 54 41 4E 44 41 52 44  00 8B 0A 18 01 42 4E 45  |STANDARD.....BNE|
00000270: 20 53 C0 44 41 52 44 3B  20 5F 3C 3E 32 35 35 20  | S.DARD; _<>255 |
00000280: 53 4F 20 53 54 41 4E 44  41 52 44 00 B1 0A 22 01  |SO STANDARD...".|
00000290: 4C 44 41 20 43 4F 44 45  53 54 52 AA 31 3B 20 5F  |LDA CODESTR.1; _|
000002A0: 52 45 54 52 49 45 56 45  20 32 4E 44 20 42 59 54  |RETRIEVE 2ND BYT|
000002B0: 45 00 D2 0A 2C 01 4A 53  52 20 24 46 46 44 32 3B  |E...,.JSR $FFD2;|
000002C0: 20 5F 50 52 49 4E 54 20  49 54 20 27 41 53 20 49  | _PRINT IT 'AS I|
000002D0: 53 27 00 FA 0A 36 01 4A  4D 50 20 4C 4F 4F 50 42  |S'...6.JMP LOOPB|
000002E0: 41 43 4B AA 32 3B 20 5F  4C 4F 4F 50 20 42 41 43  |ACK.2; _LOOP BAC|
000002F0: 4B 20 46 4F 52 20 4D 4F  52 45 00 00 0B 40 01 21  |K FOR MORE...@.!|
00000300: 00 40 0B 4A 01 53 C0 44  41 52 44 20 4C 44 41 20  |.@.J.S.DARD LDA |
00000310: 43 4F 44 45 53 54 52 3B  20 5F 47 45 54 20 42 59  |CODESTR; _GET BY|
00000320: 54 45 20 28 45 51 55 49  56 41 4C 45 4E 54 20 4F  |TE (EQUIVALENT O|
00000330: 46 20 56 41 52 49 41 42  4C 45 20 27 43 31 27 29  |F VARIABLE 'C1')|
00000340: 00 60 0B 54 01 50 48 41  3B 20 5F 53 54 4F 52 45  |.`.T.PHA; _STORE|
00000350: 20 49 54 20 4F 4E 20 54  48 45 20 53 54 41 43 4B  | IT ON THE STACK|
00000360: 00 7B 0B 5E 01 4C 53 52  20 41 3B 20 5F 44 49 56  |.{.^.LSR A; _DIV|
00000370: 49 44 45 20 42 59 20 46  4F 55 52 00 86 0B 68 01  |IDE BY FOUR...h.|
00000380: 4C 53 52 20 41 3B 00 C4  0B 72 01 53 54 41 20 44  |LSR A;...r.STA D|
00000390: 45 43 4F 4D 53 54 3B 20  5F 53 54 4F 52 45 53 20  |ECOMST; _STORES |
000003A0: 49 4E 54 45 47 45 52 20  56 41 4C 55 45 20 28 45  |INTEGER VALUE (E|
000003B0: 51 55 49 56 41 4C 45 4E  54 20 4F 46 20 27 43 28  |QUIVALENT OF 'C(|
000003C0: 30 29 27 29 00 CA 0B 7C  01 21 00 EE 0B 86 01 50  |0)')...|.!.....P|
000003D0: 4C 41 3B 20 5F 52 45 54  52 49 45 56 45 20 46 49  |LA; _RETRIEVE FI|
000003E0: 52 53 54 20 43 4F 44 45  44 20 42 59 54 45 00 22  |RST CODED BYTE."|
000003F0: 0C 90 01 AF 20 23 24 30  33 3B 20 5F 4C 4F 47 49  |.... #$03; _LOGI|
00000400: 43 41 4C 20 27 41 4E 44  27 20 54 4F 20 47 45 54  |CAL 'AND' TO GET|
00000410: 20 42 49 54 53 20 5A 45  52 4F 20 41 4E 44 20 4F  | BITS ZERO AND O|
00000420: 4E 45 00 40 0C 9A 01 41  53 4C 20 41 3B 20 5F 4D  |NE.@...ASL A; _M|
00000430: 55 4C 54 49 50 4C 59 20  42 59 20 45 49 47 48 54  |ULTIPLY BY EIGHT|
00000440: 00 4B 0C A4 01 41 53 4C  20 41 3B 00 56 0C AE 01  |.K...ASL A;.V...|
00000450: 41 53 4C 20 41 3B 00 84  0C B8 01 53 54 41 20 44  |ASL A;.....STA D|
00000460: 45 43 4F 4D 53 54 AA 31  3B 20 5F 53 54 4F 52 45  |ECOMST.1; _STORE|
00000470: 20 41 53 20 45 51 55 49  56 2E 20 4F 46 20 27 43  | AS EQUIV. OF 'C|
00000480: 28 31 29 27 00 AA 0C C2  01 4C 44 41 20 43 4F 44  |(1)'.....LDA COD|
00000490: 45 53 54 52 AA 31 3B 20  5F 52 45 54 52 49 45 56  |ESTR.1; _RETRIEV|
000004A0: 45 20 32 4E 44 20 42 59  54 45 00 C9 0C CC 01 AF  |E 2ND BYTE......|
000004B0: 20 23 24 45 30 3B 20 5F  55 53 45 20 42 49 54 53  | #$E0; _USE BITS|
000004C0: 20 35 2D 37 20 4F 4E 4C  59 00 E2 0C D6 01 4C 53  | 5-7 ONLY.....LS|
000004D0: 52 20 41 3B 20 5F 44 49  56 49 44 45 20 42 59 20  |R A; _DIVIDE BY |
000004E0: 33 32 00 ED 0C E0 01 4C  53 52 20 41 3B 00 F8 0C  |32.....LSR A;...|
000004F0: EA 01 4C 53 52 20 41 3B  00 03 0D F4 01 4C 53 52  |..LSR A;.....LSR|
00000500: 20 41 3B 00 0E 0D FE 01  4C 53 52 20 41 3B 00 29  | A;.....LSR A;.)|
00000510: 0D 08 02 43 4C 43 3B 20  5F 43 4C 45 41 52 20 43  |...CLC; _CLEAR C|
00000520: 41 52 52 59 20 46 4C 41  47 00 50 0D 12 02 41 44  |ARRY FLAG.P...AD|
00000530: 43 20 44 45 43 4F 4D 53  54 AA 31 3B 20 5F 41 44  |C DECOMST.1; _AD|
00000540: 44 20 54 4F 20 4F 54 48  45 52 20 53 54 4F 52 45  |D TO OTHER STORE|
00000550: 00 91 0D 1C 02 53 54 41  20 44 45 43 4F 4D 53 54  |.....STA DECOMST|
00000560: AA 31 3B 20 5F 50 52 4F  44 55 43 45 53 20 43 4F  |.1; _PRODUCES CO|
00000570: 4D 50 4C 45 54 45 20 56  41 4C 55 45 20 46 4F 52  |MPLETE VALUE FOR|
00000580: 20 45 51 55 49 56 2E 20  4F 46 20 27 43 28 31 29  | EQUIV. OF 'C(1)|
00000590: 27 00 97 0D 26 02 21 00  C3 0D 30 02 4C 44 41 20  |'...&.!...0.LDA |
000005A0: 43 4F 44 45 53 54 52 AA  31 3B 20 5F 52 45 54 52  |CODESTR.1; _RETR|
000005B0: 49 45 56 45 20 32 4E 44  20 42 59 54 45 20 41 47  |IEVE 2ND BYTE AG|
000005C0: 41 49 4E 00 E4 0D 3A 02  AF 20 23 24 31 46 3B 20  |AIN...:.. #$1F; |
000005D0: 5F 4F 4E 4C 59 20 42 49  54 53 20 30 2D 34 20 49  |_ONLY BITS 0-4 I|
000005E0: 4E 43 4C 2E 00 12 0E 44  02 53 54 41 20 44 45 43  |NCL....D.STA DEC|
000005F0: 4F 4D 53 54 AA 32 3B 20  5F 53 54 4F 52 45 20 41  |OMST.2; _STORE A|
00000600: 53 20 45 51 55 49 56 2E  20 4F 46 20 27 43 28 33  |S EQUIV. OF 'C(3|
00000610: 29 27 00 18 0E 4E 02 21  00 3D 0E 58 02 54 59 41  |)'...N.!.=.X.TYA|
00000620: 3B 20 5F 53 54 4F 52 45  20 2E 59 20 52 45 47 49  |; _STORE .Y REGI|
00000630: 53 54 45 52 20 4F 4E 20  53 54 41 43 4B 00 46 0E  |STER ON STACK.F.|
00000640: 62 02 50 48 41 3B 00 53  0E 6C 02 4C 44 58 20 23  |b.PHA;.S.l.LDX #|
00000650: 24 30 30 00 9A 0E 76 02  4C 31 20 4C 44 59 20 44  |$00...v.L1 LDY D|
00000660: 45 43 4F 4D 53 54 2C 58  3B 20 5F 47 45 54 20 44  |ECOMST,X; _GET D|
00000670: 45 43 4F 44 45 44 20 42  59 54 45 20 4E 55 4D 42  |ECODED BYTE NUMB|
00000680: 45 52 20 2E 58 20 42 41  43 4B 20 41 4E 44 20 53  |ER .X BACK AND S|
00000690: 54 4F 52 45 20 49 4E 20  2E 59 00 C7 0E 80 02 43  |TORE IN .Y.....C|
000006A0: 50 59 20 23 24 31 46 3B  20 5F 49 53 20 49 54 20  |PY #$1F; _IS IT |
000006B0: 41 4E 20 27 45 4E 44 20  4F 46 20 53 45 54 27 20  |AN 'END OF SET' |
000006C0: 4D 41 52 4B 45 52 3F 00  FB 0E 8A 02 42 45 51 20  |MARKER?.....BEQ |
000006D0: 4C 4F 4F 50 42 41 43 4B  3B 20 5F 59 45 53 2C 20  |LOOPBACK; _YES, |
000006E0: 53 4F 20 51 55 49 54 20  54 48 41 54 20 42 4C 4F  |SO QUIT THAT BLO|
000006F0: 43 4B 20 4F 46 20 54 48  52 45 45 00 01 0F 94 02  |CK OF THREE.....|
00000700: 21 00 49 0F 9E 02 4C 44  41 20 43 48 41 52 53 2C  |!.I...LDA CHARS,|
00000710: 59 3B 20 5F 47 45 54 20  43 4F 52 52 45 53 50 4F  |Y; _GET CORRESPO|
00000720: 4E 44 49 4E 47 20 43 48  41 52 41 43 54 45 52 20  |NDING CHARACTER |
00000730: 28 30 3D 53 50 43 2C 31  2D 32 36 3D 4C 45 54 54  |(0=SPC,1-26=LETT|
00000740: 45 52 53 2C 45 54 43 2E  29 00 62 0F A8 02 4A 53  |ERS,ETC.).b...JS|
00000750: 52 20 24 46 46 44 32 3B  20 5F 50 52 49 4E 54 20  |R $FFD2; _PRINT |
00000760: 49 54 00 68 0F B2 02 21  00 85 0F BC 02 49 4E 58  |IT.h...!.....INX|
00000770: 3B 20 5F 41 44 44 20 4F  4E 45 20 54 4F 20 43 4F  |; _ADD ONE TO CO|
00000780: 55 4E 54 45 52 00 A4 0F  C6 02 43 50 58 20 23 24  |UNTER.....CPX #$|
00000790: 30 33 3B 20 5F 44 4F 4E  45 20 41 4C 4C 20 54 48  |03; _DONE ALL TH|
000007A0: 52 45 45 3F 00 C3 0F D0  02 42 4E 45 20 4C 31 3B  |REE?.....BNE L1;|
000007B0: 20 5F 4E 4F 2C 20 53 4F  20 44 4F 20 41 4E 4F 54  | _NO, SO DO ANOT|
000007C0: 48 45 52 00 C9 0F DA 02  21 00 F3 0F E4 02 4C 4F  |HER.....!.....LO|
000007D0: 4F 50 42 41 43 4B 20 50  4C 41 3B 20 5F 52 45 54  |OPBACK PLA; _RET|
000007E0: 52 49 45 56 45 20 2E 59  20 46 52 4F 4D 20 53 54  |RIEVE .Y FROM ST|
000007F0: 41 43 4B 00 FC 0F EE 02  54 41 59 3B 00 36 10 F8  |ACK.....TAY;.6..|
00000800: 02 49 4E 59 3B 20 5F 41  44 44 20 54 57 4F 20 53  |.INY; _ADD TWO S|
00000810: 4F 20 54 48 41 54 20 50  4F 49 4E 54 53 20 54 4F  |O THAT POINTS TO|
00000820: 20 4E 45 58 54 20 53 45  54 20 4F 46 20 54 57 4F  | NEXT SET OF TWO|
00000830: 20 42 59 54 45 53 00 3F  10 02 03 49 4E 59 3B 00  | BYTES.?...INY;.|
00000840: 7B 10 0C 03 43 50 59 20  43 4F 4D 50 C3 3B 20 5F  |{...CPY COMP.; _|
00000850: 52 45 54 52 49 45 56 45  44 20 4C 41 53 54 20 42  |RETRIEVED LAST B|
00000860: 59 54 45 20 4F 46 20 43  4F 4D 50 52 45 53 53 45  |YTE OF COMPRESSE|
00000870: 44 20 54 45 58 54 20 59  45 54 3F 00 9E 10 16 03  |D TEXT YET?.....|
00000880: 42 4E 45 20 4D B0 45 3B  20 5F 4E 4F 2C 20 53 4F  |BNE M.E; _NO, SO|
00000890: 20 47 45 54 20 53 4F 4D  45 20 4D 4F 52 45 00 A4  | GET SOME MORE..|
000008A0: 10 20 03 21 00 D6 10 2A  03 54 48 45 80 20 52 54  |. .!...*.THE. RT|
000008B0: 53 3B 20 5F 41 4C 4C 20  44 4F 4E 45 2E 20 46 49  |S; _ALL DONE. FI|
000008C0: 4E 49 53 48 20 2D 20 52  45 54 55 52 4E 20 54 4F  |NISH - RETURN TO|
000008D0: 20 42 41 53 49 43 00 DC  10 34 03 21 00 E2 10 3E  | BASIC...4.!...>|
000008E0: 03 21 00 30 11 48 03 43  48 41 52 53 20 42 59 54  |.!.0.H.CHARS BYT|
000008F0: 20 22 20 41 42 43 44 45  46 47 48 49 4A 4B 4C 4D  | " ABCDEFGHIJKLM|
00000900: 4E 4F 50 51 52 53 54 55  56 57 58 59 5A 2E 2C 3F  |NOPQRSTUVWXYZ.,?|
00000910: 21 22 3B 20 5F 33 31 20  43 4F 52 52 45 53 50 4F  |!"; _31 CORRESPO|
00000920: 4E 44 49 4E 47 20 43 48  41 52 41 43 54 45 52 53  |NDING CHARACTERS|
00000930: 00 00 00                                          |...             |

..%.D...$C100; _START OF MACHINE CODE.+.
N.!.J.X.COMPC.$02; _COMPRESSED LENGTH OF
 TEXT STORED IN LOCATION 2.....TXSTART.$
C000; _START OF COMPRESSED TEXT.R...CODE
STR.$FB; _TEMPORARY STORES FOR TWO BYTES
 ($FB/$FC).....DECOMST.$AA; _TEMP.STORES
 FOR DECODED INFO ($AA-$AC)... .!.7...LD
A COMPC; _GET COMPRESSED LENGTH.U...BEQ 
THE.; _IF =0 THEN END.T.... #$FE; _ENSUR
E IT IS EVEN...H.STA COMPC; _STORE IT AG
AIN...R.!.....LDY #$00; _START OF COMP.T
EXT.....M.E LDA TXSTART.1,Y; _GET 2ND BY
TE.....STA CODESTR.1; _STORE IT. ...LDA 
TXSTART,Y; _GET 1ST BYTE.?...STA CODESTR
; _AND STORE IT.H...CMP #$FF; _IF =255 T
HEN NON-STANDARD.....BNE S.DARD; _<>255 
SO STANDARD...".LDA CODESTR.1; _RETRIEVE
 2ND BYTE.R.,.JSR $FFD2; _PRINT IT 'AS I
S'...6.JMP LOOPBACK.2; _LOOP BACK FOR MO
RE...@.!.@.J.S.DARD LDA CODESTR; _GET BY
TE (EQUIVALENT OF VARIABLE 'C1').`.T.PHA
; _STORE IT ON THE STACK.{.^.LSR A; _DIV
IDE BY FOUR...H.LSR A;.D.R.STA DECOMST; 
_STORES INTEGER VALUE (EQUIVALENT OF 'C(
0)').J.|.!.....PLA; _RETRIEVE FIRST CODE
D BYTE.".... #$03; _LOGICAL 'AND' TO GET
 BITS ZERO AND ONE.@...ASL A; _MULTIPLY 
BY EIGHT.K...ASL A;.V...ASL A;.....STA D
ECOMST.1; _STORE AS EQUIV. OF 'C(1)'...B
.LDA CODESTR.1; _RETRIEVE 2ND BYTE.I.L..
 #$E0; _USE BITS 5-7 ONLY...V.LSR A; _DI
VIDE BY 32.....LSR A;.....LSR A;.....LSR
 A;.....LSR A;.)...CLC; _CLEAR CARRY FLA
G.P...ADC DECOMST.1; _ADD TO OTHER STORE
.....STA DECOMST.1; _PRODUCES COMPLETE V
ALUE FOR EQUIV. OF 'C(1)'...&.!.C.0.LDA 
CODESTR.1; _RETRIEVE 2ND BYTE AGAIN...:.
. #$1F; _ONLY BITS 0-4 INCL....D.STA DEC
OMST.2; _STORE AS EQUIV. OF 'C(3)'...N.!
.=.X.TYA; _STORE .Y REGISTER ON STACK.F.
B.PHA;.S.L.LDX #$00...V.L1 LDY DECOMST,X
; _GET DECODED BYTE NUMBER .X BACK AND S
TORE IN .Y.G...CPY #$1F; _IS IT AN 'END 
OF SET' MARKER?.....BEQ LOOPBACK; _YES, 
SO QUIT THAT BLOCK OF THREE.....!.I...LD
A CHARS,Y; _GET CORRESPONDING CHARACTER 
(0=SPC,1-26=LETTERS,ETC.).B...JSR $FFD2;
 _PRINT IT.H...!.....INX; _ADD ONE TO CO
UNTER...F.CPX #$03; _DONE ALL THREE?.C.P
.BNE L1; _NO, SO DO ANOTHER.I.Z.!.....LO
OPBACK PLA; _RETRIEVE .Y FROM STACK.....
TAY;.6...INY; _ADD TWO SO THAT POINTS TO
 NEXT SET OF TWO BYTES.?...INY;.{...CPY 
COMPC; _RETRIEVED LAST BYTE OF COMPRESSE
D TEXT YET?.....BNE M.E; _NO, SO GET SOM
E MORE... .!.V.*.THE. RTS; _ALL DONE. FI
NISH - RETURN TO BASIC...4.!...>.!.0.H.C
HARS BYT " ABCDEFGHIJKLMNOPQRSTUVWXYZ.,?
!"; _31 CORRESPONDING CHARACTERS...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL