PONZO TUTOR-6.64
FILE INFORMATION
FILENAME(S): PONZO TUTOR-6.64
FILE TYPE(S): PRG
FILE SIZE: 15K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
4e59ccf7e290bdccca6ba7189fef0a6913ad1a3494f4fafe6e71ad3348b99f43
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TUTORIALS C | PONZO TUTOR-6.64 | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 00 00 8F 22 14 14 14 14 14 14 14 20 |..!...."....... |
00000010: 50 4F 4E 5A 4F 2A 38 33 2A 57 41 54 45 52 4C 4F |PONZO*83*WATERLO|
00000020: 4F 00 2F 08 01 00 8F 22 14 14 14 14 14 14 14 00 |O./...."........|
00000030: 4C 08 09 00 97 35 33 32 38 31 2C 31 35 3A 97 35 |L....53281,15:.5|
00000040: 33 32 38 30 2C 31 32 3A 99 22 90 22 00 70 08 0A |3280,12:.".".p..|
00000050: 00 99 22 93 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000060: 20 20 20 12 1F 43 36 34 20 54 55 54 4F 52 2D 36 | ..C64 TUTOR-6|
00000070: 00 A0 08 0F 00 99 22 1C B0 C0 C0 C0 C0 C0 C0 C0 |......".........|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 |..............."|
000000A0: 00 E4 08 14 00 99 22 DD 20 12 1F 20 20 20 20 20 |......". .. |
000000B0: 4D 4F 52 45 20 36 35 31 30 20 4D 41 43 48 49 4E |MORE 6510 MACHIN|
000000C0: 45 20 4C 41 4E 47 55 41 47 45 20 20 20 20 1C 92 |E LANGUAGE ..|
000000D0: 20 DD 22 3A 4D 53 24 B2 22 20 57 45 4C 43 4F 4D | .":MS$." WELCOM|
000000E0: 45 21 20 22 00 15 09 19 00 99 22 1C AD C0 C0 C0 |E! "......".....|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 C0 BD 90 22 00 2E 09 23 00 8D 36 30 30 30 30 |...."...#..60000|
00000120: 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 5C |:.63100:.63000.\|
00000130: 09 28 00 99 22 93 4C 45 54 27 53 20 4C 4F 4F 4B |.(..".LET'S LOOK|
00000140: 20 41 54 20 48 4F 57 20 42 41 53 49 43 20 11 9D | AT HOW BASIC ..|
00000150: 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 22 00 81 09 32 |..........."...2|
00000160: 00 99 22 12 20 20 20 20 20 43 4C 45 41 52 53 20 |..". CLEARS |
00000170: 54 48 45 20 53 43 52 45 45 4E 20 20 20 20 20 20 |THE SCREEN |
00000180: 22 00 B2 09 3C 00 99 22 11 57 45 27 4C 4C 20 12 |"...<..".WE'LL .|
00000190: 44 49 53 41 53 53 45 4D 42 4C 45 92 20 54 48 45 |DISASSEMBLE. THE|
000001A0: 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 | MACHINE LANGUAG|
000001B0: 45 22 00 D4 09 46 00 99 22 11 28 41 53 53 55 4D |E"...F..".(ASSUM|
000001C0: 45 44 20 54 4F 20 42 45 20 41 54 20 24 45 30 36 |ED TO BE AT $E06|
000001D0: 42 29 2E 22 00 00 0A 50 00 99 22 11 11 49 54 27 |B)."...P.."..IT'|
000001E0: 53 20 48 41 4E 44 59 20 49 46 20 59 4F 55 20 48 |S HANDY IF YOU H|
000001F0: 41 56 45 20 41 4E 20 45 58 54 45 4E 44 45 44 22 |AVE AN EXTENDED"|
00000200: 00 39 0A 5A 00 99 22 11 4D 4F 4E 49 54 4F 52 20 |.9.Z..".MONITOR |
00000210: 4C 49 4B 45 20 4A 2E 42 55 54 54 45 52 46 49 45 |LIKE J.BUTTERFIE|
00000220: 4C 44 27 53 20 12 53 55 50 45 52 4D 4F 4E 92 21 |LD'S .SUPERMON.!|
00000230: 21 22 3A 8D 36 33 30 30 30 00 5A 0A 64 00 99 22 |!":.63000.Z.d.."|
00000240: 93 2E 2C 20 45 30 36 38 20 41 39 20 32 30 20 20 |.., E068 A9 20 |
00000250: 20 20 4C 44 41 20 23 24 32 30 00 7D 0A 65 00 99 | LDA #$20.}.e..|
00000260: 22 2E 2C 20 45 30 36 41 20 39 44 20 30 30 20 30 |"., E06A 9D 00 0|
00000270: 34 20 53 54 41 20 24 30 34 30 30 2C 58 00 A0 0A |4 STA $0400,X...|
00000280: 66 00 99 22 2E 2C 20 45 30 36 44 20 39 44 20 30 |f.."., E06D 9D 0|
00000290: 30 20 30 35 20 53 54 41 20 24 30 35 30 30 2C 58 |0 05 STA $0500,X|
000002A0: 00 C3 0A 67 00 99 22 2E 2C 20 45 30 37 30 20 39 |...g.."., E070 9|
000002B0: 44 20 30 30 20 30 36 20 53 54 41 20 24 30 36 30 |D 00 06 STA $060|
000002C0: 30 2C 58 00 E6 0A 68 00 99 22 2E 2C 20 45 30 37 |0,X...h.."., E07|
000002D0: 33 20 39 44 20 30 30 20 30 37 20 53 54 41 20 24 |3 9D 00 07 STA $|
000002E0: 30 37 30 30 2C 58 00 01 0B 69 00 99 22 2E 2C 20 |0700,X...i.."., |
000002F0: 45 30 37 36 20 43 41 20 20 20 20 20 20 20 44 45 |E076 CA DE|
00000300: 58 00 2A 0B 6A 00 99 22 2E 2C 20 45 30 37 37 20 |X.*.j.."., E077 |
00000310: 44 30 20 46 31 20 20 20 20 42 4E 45 20 24 45 30 |D0 F1 BNE $E0|
00000320: 36 41 22 3A 8D 36 33 30 30 30 00 50 0B 6E 00 99 |6A":.63000.P.n..|
00000330: 22 13 2E 2C 20 45 30 36 38 20 41 39 20 32 30 20 |".., E068 A9 20 |
00000340: 20 20 20 12 4C 44 41 20 23 24 32 30 20 20 20 22 | .LDA #$20 "|
00000350: 00 75 0B 6F 00 99 22 2E 2C 20 45 30 36 41 20 39 |.u.o.."., E06A 9|
00000360: 44 20 30 30 20 30 34 20 12 53 54 41 20 24 30 34 |D 00 04 .STA $04|
00000370: 30 30 2C 58 22 00 9A 0B 70 00 99 22 2E 2C 20 45 |00,X"...p.."., E|
00000380: 30 36 44 20 39 44 20 30 30 20 30 35 20 12 53 54 |06D 9D 00 05 .ST|
00000390: 41 20 24 30 35 30 30 2C 58 22 00 BF 0B 71 00 99 |A $0500,X"...q..|
000003A0: 22 2E 2C 20 45 30 37 30 20 39 44 20 30 30 20 30 |"., E070 9D 00 0|
000003B0: 36 20 12 53 54 41 20 24 30 36 30 30 2C 58 22 00 |6 .STA $0600,X".|
000003C0: E4 0B 72 00 99 22 2E 2C 20 45 30 37 33 20 39 44 |..r.."., E073 9D|
000003D0: 20 30 30 20 30 37 20 12 53 54 41 20 24 30 37 30 | 00 07 .STA $070|
000003E0: 30 2C 58 22 00 09 0C 73 00 99 22 2E 2C 20 45 30 |0,X"...s.."., E0|
000003F0: 37 36 20 43 41 20 20 20 20 20 20 20 12 44 45 58 |76 CA .DEX|
00000400: 20 20 20 20 20 20 20 20 22 00 2E 0C 74 00 99 22 | "...t.."|
00000410: 2E 2C 20 45 30 37 37 20 44 30 20 46 31 20 20 20 |., E077 D0 F1 |
00000420: 20 12 42 4E 45 20 24 45 30 36 41 20 20 22 00 66 | .BNE $E06A ".f|
00000430: 0C 78 00 99 22 11 D1 52 45 43 4F 47 4E 49 5A 45 |.x.."..RECOGNIZE|
00000440: 20 54 48 45 20 12 41 53 53 45 4D 42 4C 45 52 92 | THE .ASSEMBLER.|
00000450: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 3F 22 3A | INSTRUCTIONS?":|
00000460: 8D 36 33 30 30 30 00 8D 0C 82 00 99 22 13 2E 2C |.63000......"..,|
00000470: 20 45 30 36 38 20 12 41 39 20 32 30 20 20 20 20 | E068 .A9 20 |
00000480: 92 4C 44 41 20 23 24 32 30 20 20 20 22 00 B3 0C |.LDA #$20 "...|
00000490: 83 00 99 22 2E 2C 20 45 30 36 41 20 12 39 44 20 |..."., E06A .9D |
000004A0: 30 30 20 30 34 20 92 53 54 41 20 24 30 34 30 30 |00 04 .STA $0400|
000004B0: 2C 58 22 00 D9 0C 84 00 99 22 2E 2C 20 45 30 36 |,X"......"., E06|
000004C0: 44 20 12 39 44 20 30 30 20 30 35 20 92 53 54 41 |D .9D 00 05 .STA|
000004D0: 20 24 30 35 30 30 2C 58 22 00 FF 0C 85 00 99 22 | $0500,X"......"|
000004E0: 2E 2C 20 45 30 37 30 20 12 39 44 20 30 30 20 30 |., E070 .9D 00 0|
000004F0: 36 20 92 53 54 41 20 24 30 36 30 30 2C 58 22 00 |6 .STA $0600,X".|
00000500: 25 0D 86 00 99 22 2E 2C 20 45 30 37 33 20 12 39 |%...."., E073 .9|
00000510: 44 20 30 30 20 30 37 20 92 53 54 41 20 24 30 37 |D 00 07 .STA $07|
00000520: 30 30 2C 58 22 00 4B 0D 87 00 99 22 2E 2C 20 45 |00,X".K...."., E|
00000530: 30 37 36 20 12 43 41 20 20 20 20 20 20 20 92 44 |076 .CA .D|
00000540: 45 58 20 20 20 20 20 20 20 20 22 00 71 0D 88 00 |EX ".q...|
00000550: 99 22 2E 2C 20 45 30 37 37 20 12 44 30 20 46 31 |."., E077 .D0 F1|
00000560: 20 20 20 20 92 42 4E 45 20 24 45 30 36 41 20 20 | .BNE $E06A |
00000570: 22 00 A4 0D 8C 00 99 22 11 11 11 11 D1 54 48 45 |"......".....THE|
00000580: 53 45 20 41 52 45 20 54 48 45 20 48 45 58 20 42 |SE ARE THE HEX B|
00000590: 59 54 45 53 20 54 48 41 54 20 41 52 45 20 20 20 |YTES THAT ARE |
000005A0: 20 20 20 22 00 D1 0D 96 00 99 22 20 41 43 54 55 | "......" ACTU|
000005B0: 41 4C 4C 59 20 49 4E 20 4D 45 4D 4F 52 59 2E 20 |ALLY IN MEMORY. |
000005C0: 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 30 | ":.6300|
000005D0: 30 00 F4 0D A0 00 99 22 13 2E 2C 20 12 45 30 36 |0......".., .E06|
000005E0: 38 20 92 41 39 20 32 30 20 20 20 20 4C 44 41 20 |8 .A9 20 LDA |
000005F0: 23 24 32 30 00 19 0E A1 00 99 22 2E 2C 20 12 45 |#$20......"., .E|
00000600: 30 36 41 20 92 39 44 20 30 30 20 30 34 20 53 54 |06A .9D 00 04 ST|
00000610: 41 20 24 30 34 30 30 2C 58 00 3E 0E A2 00 99 22 |A $0400,X.>...."|
00000620: 2E 2C 20 12 45 30 36 44 20 92 39 44 20 30 30 20 |., .E06D .9D 00 |
00000630: 30 35 20 53 54 41 20 24 30 35 30 30 2C 58 00 63 |05 STA $0500,X.c|
00000640: 0E A3 00 99 22 2E 2C 20 12 45 30 37 30 20 92 39 |...."., .E070 .9|
00000650: 44 20 30 30 20 30 36 20 53 54 41 20 24 30 36 30 |D 00 06 STA $060|
00000660: 30 2C 58 00 88 0E A4 00 99 22 2E 2C 20 12 45 30 |0,X......"., .E0|
00000670: 37 33 20 92 39 44 20 30 30 20 30 37 20 53 54 41 |73 .9D 00 07 STA|
00000680: 20 24 30 37 30 30 2C 58 00 A5 0E A5 00 99 22 2E | $0700,X......".|
00000690: 2C 20 12 45 30 37 36 20 92 43 41 20 20 20 20 20 |, .E076 .CA |
000006A0: 20 20 44 45 58 00 C8 0E A6 00 99 22 2E 2C 20 12 | DEX......"., .|
000006B0: 45 30 37 37 20 92 44 30 20 46 31 20 20 20 20 42 |E077 .D0 F1 B|
000006C0: 4E 45 20 24 45 30 36 41 00 FA 0E AA 00 99 22 11 |NE $E06A......".|
000006D0: 11 11 11 11 11 11 11 D1 54 48 45 53 45 20 41 52 |........THESE AR|
000006E0: 45 20 54 48 45 20 4C 4F 43 41 54 49 4F 4E 53 20 |E THE LOCATIONS |
000006F0: 49 4E 20 4D 45 4D 4F 52 59 22 00 25 0F B4 00 99 |IN MEMORY".%....|
00000700: 22 20 57 48 49 43 48 20 43 4F 4E 54 41 49 4E 20 |" WHICH CONTAIN |
00000710: 54 48 45 20 4D 2D 4C 20 43 4F 44 45 2E 22 3A 8D |THE M-L CODE.":.|
00000720: 36 33 30 30 30 00 41 0F B5 00 4D 53 24 B2 22 20 |63000.A...MS$." |
00000730: 20 4F 4E 57 41 52 44 20 20 22 3A 8D 36 33 31 30 | ONWARD ":.6310|
00000740: 30 00 68 0F B9 00 99 22 93 4E 4F 57 20 4C 45 54 |0.h....".NOW LET|
00000750: 27 53 20 4C 4F 4F 4B 20 41 54 20 48 4F 57 20 41 |'S LOOK AT HOW A|
00000760: 20 42 41 53 49 43 20 22 00 91 0F BA 00 99 22 11 | BASIC "......".|
00000770: 12 4E 45 57 92 20 49 53 20 44 4F 4E 45 2E 20 57 |.NEW. IS DONE. W|
00000780: 45 27 4C 4C 20 50 52 45 54 45 4E 44 20 54 48 45 |E'LL PRETEND THE|
00000790: 22 00 B6 0F BB 00 99 22 11 43 4F 44 45 20 49 53 |"......".CODE IS|
000007A0: 20 46 52 4F 4D 20 24 42 35 44 34 20 54 4F 20 24 | FROM $B5D4 TO $|
000007B0: 42 35 45 38 2E 22 00 DC 0F BC 00 99 22 11 52 45 |B5E8."......".RE|
000007C0: 43 41 4C 4C 20 54 48 41 54 20 54 48 45 20 46 49 |CALL THAT THE FI|
000007D0: 52 53 54 20 33 20 42 59 54 45 53 22 00 0D 10 BD |RST 3 BYTES"....|
000007E0: 00 99 22 11 41 54 20 24 30 38 30 30 2F 24 30 38 |..".AT $0800/$08|
000007F0: 30 31 2F 24 30 38 30 32 20 4D 55 53 54 20 42 45 |01/$0802 MUST BE|
00000800: 20 12 30 30 20 30 30 20 30 30 92 2E 22 00 39 10 | .00 00 00..".9.|
00000810: BE 00 99 22 11 42 55 54 20 24 30 38 30 30 20 41 |...".BUT $0800 A|
00000820: 4C 57 41 59 53 20 48 41 53 20 12 30 30 92 20 41 |LWAYS HAS .00. A|
00000830: 4E 59 57 41 59 20 53 4F 22 00 65 10 BF 00 99 22 |NYWAY SO".e...."|
00000840: 11 57 45 20 4A 55 53 54 20 46 49 4C 4C 20 24 30 |.WE JUST FILL $0|
00000850: 38 30 31 2F 24 30 38 30 32 20 57 49 54 48 20 12 |801/$0802 WITH .|
00000860: 30 30 92 2E 22 00 97 10 C0 00 99 22 11 D1 54 48 |00.."......"..TH|
00000870: 45 20 12 53 54 41 52 54 20 4F 46 20 42 41 53 49 |E .START OF BASI|
00000880: 43 92 20 49 53 20 4B 45 50 54 20 49 4E 20 24 32 |C. IS KEPT IN $2|
00000890: 42 2F 24 32 43 2E 22 00 C5 10 C1 00 99 22 11 D1 |B/$2C."......"..|
000008A0: 54 48 45 20 12 45 4E 44 20 4F 46 20 42 41 53 49 |THE .END OF BASI|
000008B0: 43 92 2C 20 4B 45 50 54 20 49 4E 20 24 32 44 2F |C., KEPT IN $2D/|
000008C0: 24 32 45 2C 22 00 F4 10 C2 00 99 22 11 4D 55 53 |$2E,"......".MUS|
000008D0: 54 20 42 45 20 4A 55 53 54 20 32 20 42 59 54 45 |T BE JUST 2 BYTE|
000008E0: 53 20 50 41 53 54 20 54 48 45 20 12 53 54 41 52 |S PAST THE .STAR|
000008F0: 54 92 2E 22 00 1D 11 C3 00 99 22 11 4C 45 54 27 |T.."......".LET'|
00000900: 53 20 53 45 45 20 48 4F 57 20 49 54 27 53 20 44 |S SEE HOW IT'S D|
00000910: 4F 4E 45 2E 2E 22 3A 8D 36 33 30 30 30 00 2D 11 |ONE..":.63000.-.|
00000920: C4 00 99 22 93 11 11 11 11 11 11 22 3B 00 5B 11 |...".......";.[.|
00000930: DC 00 99 22 13 11 11 11 11 11 11 2E 2C 20 42 35 |..."........, B5|
00000940: 44 34 20 41 39 20 30 30 20 20 20 20 12 4C 44 41 |D4 A9 00 .LDA|
00000950: 20 23 24 30 30 20 20 20 92 5F 22 00 82 11 DD 00 | #$00 ._".....|
00000960: 99 22 2E 2C 20 42 35 44 36 20 41 38 20 20 20 20 |."., B5D6 A8 |
00000970: 20 20 20 12 54 41 59 20 20 20 20 20 20 20 20 92 | .TAY .|
00000980: 5F 22 00 AD 11 E6 00 8D 36 33 34 30 30 3A 99 22 |_"......63400:."|
00000990: 42 4F 54 48 20 12 41 92 20 41 4E 44 20 12 59 92 |BOTH .A. AND .Y.|
000009A0: 20 41 52 45 20 46 49 4C 4C 45 44 20 22 00 D3 11 | ARE FILLED "...|
000009B0: F0 00 99 22 11 57 49 54 48 20 23 24 12 30 30 92 |...".WITH #$.00.|
000009C0: 2E 2E 54 4F 20 53 54 41 52 54 2E 22 3A 8D 36 33 |..TO START.":.63|
000009D0: 30 30 30 00 0B 12 FA 00 99 22 13 11 11 11 11 11 |000......"......|
000009E0: 11 11 11 2E 2C 20 42 35 44 37 20 39 31 20 32 42 |...., B5D7 91 2B|
000009F0: 20 20 20 20 12 53 54 41 20 28 24 32 42 29 2C 59 | .STA ($2B),Y|
00000A00: 92 91 91 20 11 9D 20 11 9D 5F 22 00 33 12 04 01 |... .. .._".3...|
00000A10: 8D 36 33 34 30 30 3A 99 22 13 53 49 4E 43 45 20 |.63400:.".SINCE |
00000A20: 12 24 32 42 92 20 43 4F 4E 54 41 49 4E 53 20 54 |.$2B. CONTAINS T|
00000A30: 48 45 22 00 5E 12 0E 01 99 22 11 54 48 45 20 53 |HE".^....".THE S|
00000A40: 54 41 52 54 20 4F 46 20 42 41 53 49 43 2C 28 55 |TART OF BASIC,(U|
00000A50: 53 55 41 4C 4C 59 20 24 30 38 30 31 29 22 00 8A |SUALLY $0801)"..|
00000A60: 12 18 01 99 22 11 23 24 12 30 30 92 20 49 53 20 |....".#$.00. IS |
00000A70: 53 54 4F 52 45 44 20 49 4E 20 28 24 32 42 29 2B |STORED IN ($2B)+|
00000A80: 59 2E 22 3A 8D 36 33 30 30 30 00 C3 12 22 01 8D |Y.":.63000..."..|
00000A90: 36 33 34 30 30 3A 99 22 54 48 45 4E 20 12 49 4E |63400:."THEN .IN|
00000AA0: 59 92 20 47 45 54 53 20 52 45 41 44 59 20 54 4F |Y. GETS READY TO|
00000AB0: 20 53 54 4F 52 45 20 23 24 12 30 30 92 20 49 4E | STORE #$.00. IN|
00000AC0: 54 4F 22 00 F3 12 2C 01 99 22 11 54 48 45 20 53 |TO"...,..".THE S|
00000AD0: 45 43 4F 4E 44 20 42 59 54 45 20 4F 46 20 27 42 |ECOND BYTE OF 'B|
00000AE0: 41 53 49 43 27 20 41 54 20 28 55 53 55 41 4C 4C |ASIC' AT (USUALL|
00000AF0: 59 29 22 00 02 13 36 01 99 22 11 24 30 38 30 32 |Y)"...6..".$0802|
00000B00: 2E 22 00 3E 13 40 01 99 22 13 11 11 11 11 11 11 |.".>.@..".......|
00000B10: 11 11 11 2E 2C 20 42 35 44 39 20 43 38 20 20 20 |...., B5D9 C8 |
00000B20: 20 20 20 20 12 49 4E 59 20 20 20 20 20 20 20 20 | .INY |
00000B30: 92 91 20 11 9D 5F 22 3A 8D 36 33 30 30 30 00 74 |.. .._":.63000.t|
00000B40: 13 4A 01 99 22 13 11 11 11 11 11 11 11 11 11 11 |.J.."...........|
00000B50: 2E 2C 20 42 35 44 41 20 39 31 20 32 42 20 20 20 |., B5DA 91 2B |
00000B60: 20 12 53 54 41 20 28 24 32 42 29 2C 59 92 91 20 | .STA ($2B),Y.. |
00000B70: 11 9D 5F 22 00 99 13 54 01 8D 36 33 34 30 30 3A |.._"...T..63400:|
00000B80: 99 22 54 48 45 52 45 20 53 48 45 20 47 4F 45 53 |."THERE SHE GOES|
00000B90: 21 22 3A 8D 36 33 30 30 30 00 C5 13 5E 01 8D 36 |!":.63000...^..6|
00000BA0: 33 34 30 30 3A 99 22 54 48 45 20 12 45 4E 44 92 |3400:."THE .END.|
00000BB0: 20 4F 46 20 42 41 53 49 43 20 4E 4F 57 20 48 41 | OF BASIC NOW HA|
00000BC0: 53 20 54 4F 22 00 F2 13 68 01 99 22 11 42 45 20 |S TO"...h..".BE |
00000BD0: 43 48 41 4E 47 45 44 20 54 4F 20 52 45 41 44 20 |CHANGED TO READ |
00000BE0: 12 24 30 38 30 33 92 2E 2E 41 4E 44 20 12 45 4E |.$0803...AND .EN|
00000BF0: 44 22 00 19 14 72 01 99 22 11 49 53 20 53 54 4F |D"...r..".IS STO|
00000C00: 52 45 44 20 41 54 20 12 24 32 44 2F 24 32 45 92 |RED AT .$2D/$2E.|
00000C10: 2E 22 3A 8D 36 33 30 30 30 00 50 14 73 01 99 22 |.":.63000.P.s.."|
00000C20: 13 11 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 |............., B|
00000C30: 35 44 43 20 41 35 20 32 42 20 20 20 20 12 4C 44 |5DC A5 2B .LD|
00000C40: 41 20 24 32 42 20 20 20 20 92 91 20 11 9D 5F 22 |A $2B .. .._"|
00000C50: 00 7C 14 7C 01 8D 36 33 34 30 30 3A 99 22 53 4F |.|.|..63400:."SO|
00000C60: 20 57 45 20 12 4C 44 41 20 24 32 42 92 20 47 45 | WE .LDA $2B. GE|
00000C70: 54 54 49 4E 47 20 52 45 41 44 59 22 00 96 14 86 |TTING READY"....|
00000C80: 01 99 22 11 54 4F 20 41 44 44 20 32 2E 2E 22 3A |..".TO ADD 2..":|
00000C90: 8D 36 33 30 30 30 00 C8 14 90 01 8D 36 33 34 30 |.63000......6340|
00000CA0: 30 3A 99 22 42 55 54 20 52 45 4D 45 4D 42 45 52 |0:."BUT REMEMBER|
00000CB0: 20 54 4F 20 12 43 4C 43 92 20 46 49 52 53 54 21 | TO .CLC. FIRST!|
00000CC0: 22 3A 8D 36 33 30 30 30 00 07 15 9A 01 99 22 13 |":.63000......".|
00000CD0: 11 11 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 |............., B|
00000CE0: 35 44 45 20 31 38 20 20 20 20 20 20 20 12 43 4C |5DE 18 .CL|
00000CF0: 43 20 20 20 20 20 20 20 20 92 91 20 11 9D 5F 22 |C .. .._"|
00000D00: 3A 8D 36 33 30 30 30 00 40 15 A4 01 99 22 13 11 |:.63000.@...."..|
00000D10: 11 11 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 |............., B|
00000D20: 35 44 46 20 36 39 20 30 32 20 20 20 20 12 41 44 |5DF 69 02 .AD|
00000D30: 43 20 23 24 30 32 20 20 20 92 91 20 11 9D 5F 22 |C #$02 .. .._"|
00000D40: 00 7C 15 AE 01 8D 36 33 34 30 30 3A 99 22 53 45 |.|....63400:."SE|
00000D50: 45 2E 2E 57 45 20 41 44 44 20 32 2E 22 3A 99 22 |E..WE ADD 2.":."|
00000D60: 11 54 48 45 4E 20 57 45 20 53 54 4F 52 45 20 54 |.THEN WE STORE T|
00000D70: 48 49 53 20 4C 4F 2D 42 59 54 45 22 00 95 15 B8 |HIS LO-BYTE"....|
00000D80: 01 99 22 11 49 4E 54 4F 20 24 32 44 2E 22 3A 8D |..".INTO $2D.":.|
00000D90: 36 33 30 30 30 00 D6 15 C2 01 99 22 13 11 11 11 |63000......"....|
00000DA0: 11 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 |............, B5|
00000DB0: 45 31 20 38 35 20 32 44 20 20 20 20 12 53 54 41 |E1 85 2D .STA|
00000DC0: 20 24 32 44 20 20 20 20 92 91 20 11 9D 5F 22 3A | $2D .. .._":|
00000DD0: 8D 36 33 30 30 30 00 0B 16 CC 01 8D 36 33 34 30 |.63000......6340|
00000DE0: 30 3A 99 22 4E 4F 57 20 57 45 20 4D 55 53 54 20 |0:."NOW WE MUST |
00000DF0: 46 49 58 20 55 50 20 54 48 45 20 48 49 2D 42 59 |FIX UP THE HI-BY|
00000E00: 54 45 20 41 54 20 24 32 45 2E 22 00 3D 16 D6 01 |TE AT $2E.".=...|
00000E10: 99 22 11 57 45 20 12 4C 44 41 20 24 32 43 92 20 |.".WE .LDA $2C. |
00000E20: 57 48 49 43 48 20 57 49 4C 4C 20 47 4F 20 54 4F |WHICH WILL GO TO|
00000E30: 20 24 32 45 2E 22 3A 8D 36 33 30 30 30 00 7F 16 | $2E.":.63000...|
00000E40: E0 01 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00000E50: 11 11 11 11 2E 2C 20 42 35 45 33 20 41 35 20 32 |....., B5E3 A5 2|
00000E60: 43 20 20 20 20 12 4C 44 41 20 24 32 43 20 20 20 |C .LDA $2C |
00000E70: 20 92 91 20 11 9D 5F 22 3A 8D 36 33 30 30 30 00 | .. .._":.63000.|
00000E80: B1 16 EA 01 8D 36 33 34 30 30 3A 99 22 42 55 54 |.....63400:."BUT|
00000E90: 2C 20 4A 55 53 54 20 49 4E 20 43 41 53 45 20 54 |, JUST IN CASE T|
00000EA0: 48 45 52 45 27 53 20 41 20 12 43 41 52 52 59 92 |HERE'S A .CARRY.|
00000EB0: 22 00 E3 16 F4 01 99 22 11 4C 45 46 54 20 4F 56 |"......".LEFT OV|
00000EC0: 45 52 20 46 52 4F 4D 20 54 48 45 20 12 41 44 43 |ER FROM THE .ADC|
00000ED0: 20 23 24 30 32 92 20 57 45 2E 2E 22 3A 8D 36 33 | #$02. WE..":.63|
00000EE0: 30 30 30 00 26 17 FE 01 99 22 13 11 11 11 11 11 |000.&...."......|
00000EF0: 11 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 |............, B5|
00000F00: 45 35 20 36 39 20 30 30 20 20 20 20 12 41 44 43 |E5 69 00 .ADC|
00000F10: 20 23 24 30 30 20 20 20 92 91 20 11 9D 5F 22 3A | #$00 .. .._":|
00000F20: 8D 36 33 30 30 30 00 59 17 08 02 8D 36 33 34 30 |.63000.Y....6340|
00000F30: 30 3A 99 22 4E 4F 57 11 9D 9D 9D B8 B8 B8 91 20 |0:."NOW........ |
00000F40: 57 45 20 43 41 4E 20 53 54 49 43 4B 20 54 48 45 |WE CAN STICK THE|
00000F50: 20 48 49 2D 42 59 54 45 22 00 72 17 12 02 99 22 | HI-BYTE".r...."|
00000F60: 11 49 4E 54 4F 20 24 32 45 2E 22 3A 8D 36 33 30 |.INTO $2E.":.630|
00000F70: 30 30 00 B6 17 1C 02 99 22 13 11 11 11 11 11 11 |00......".......|
00000F80: 11 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 |............, B5|
00000F90: 45 37 20 38 35 20 32 45 20 20 20 20 12 53 54 41 |E7 85 2E .STA|
00000FA0: 20 24 32 45 20 20 20 20 92 91 20 11 9D 5F 22 3A | $2E .. .._":|
00000FB0: 8D 36 33 30 30 30 00 E2 17 26 02 8D 36 33 34 30 |.63000...&..6340|
00000FC0: 30 3A 4D 53 24 B2 22 12 4E 49 43 45 21 4E 49 43 |0:MS$.".NICE!NIC|
00000FD0: 45 21 92 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 |E!.":.63100:.630|
00000FE0: 30 30 00 11 18 30 02 99 22 93 4E 4F 57 20 4C 45 |00...0..".NOW LE|
00000FF0: 54 27 53 20 4C 4F 4F 4B 20 41 54 20 48 4F 57 20 |T'S LOOK AT HOW |
00001000: 12 42 41 53 49 43 20 43 48 41 49 4E 49 4E 47 92 |.BASIC CHAINING.|
00001010: 22 00 3A 18 3A 02 99 22 11 4D 49 47 48 54 20 42 |".:.:..".MIGHT B|
00001020: 45 20 41 43 43 4F 4D 50 4C 49 53 48 45 44 20 49 |E ACCOMPLISHED I|
00001030: 4E 20 42 41 53 49 43 20 2E 22 00 69 18 3B 02 99 |N BASIC .".i.;..|
00001040: 22 11 11 28 54 48 45 20 53 54 41 54 45 4D 45 4E |"..(THE STATEMEN|
00001050: 54 53 20 49 4E 20 42 41 53 49 43 20 41 52 45 20 |TS IN BASIC ARE |
00001060: 12 4C 49 4E 4B 45 44 92 22 00 93 18 3C 02 99 22 |.LINKED."...<.."|
00001070: 11 41 4E 44 20 54 48 45 53 45 20 4C 49 4E 4B 53 |.AND THESE LINKS|
00001080: 20 4D 55 53 54 20 42 45 20 52 45 43 52 45 41 54 | MUST BE RECREAT|
00001090: 45 44 22 00 BA 18 3D 02 99 22 11 45 41 43 48 20 |ED"...=..".EACH |
000010A0: 54 49 4D 45 20 57 45 20 49 4E 53 45 52 54 20 4F |TIME WE INSERT O|
000010B0: 52 20 4D 4F 44 49 46 59 2E 22 00 D6 18 3E 02 99 |R MODIFY."...>..|
000010C0: 22 11 54 48 41 54 27 53 20 12 43 48 41 49 4E 49 |".THAT'S .CHAINI|
000010D0: 4E 47 92 2E 29 22 00 07 19 44 02 99 22 11 11 52 |NG..)"...D.."..R|
000010E0: 45 43 41 4C 4C 20 54 48 41 54 20 42 41 53 49 43 |ECALL THAT BASIC|
000010F0: 20 53 54 41 54 45 4D 45 4E 54 53 20 41 52 45 20 | STATEMENTS ARE |
00001100: 53 54 4F 52 45 44 22 00 3F 19 4E 02 99 22 11 46 |STORED".?.N..".F|
00001110: 52 4F 4D 20 24 30 38 30 31 20 49 4E 20 54 48 45 |ROM $0801 IN THE|
00001120: 20 46 4F 4C 4C 4F 57 49 4E 47 20 46 4F 52 4D 41 | FOLLOWING FORMA|
00001130: 54 3A 22 3A 8D 36 33 30 30 30 3A 99 22 93 22 00 |T:":.63000:.".".|
00001140: 76 19 58 02 42 41 24 B2 22 B2 C0 C0 C0 C0 B2 C0 |v.X.BA$.".......|
00001150: C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 |................|
00001160: C0 C0 B2 C0 20 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 22 |.... .........."|
00001170: AA C7 28 31 33 29 00 AD 19 62 02 5A 24 B2 22 DD |..(13)...b.Z$.".|
00001180: 20 20 20 20 DD 20 A0 A0 A0 DD A0 A0 20 A0 DD A0 | . ...... ...|
00001190: 20 A0 A0 DD 20 A0 A0 A0 DD 2D 2D DD 20 20 20 20 | ... ....--. |
000011A0: DD 20 20 20 20 DD 22 AA C7 28 31 33 29 00 F9 19 |. ."..(13)...|
000011B0: 6C 02 42 41 24 B2 42 41 24 AA 5A 24 AA 5A 24 AA |l.BA$.BA$.Z$.Z$.|
000011C0: 5A 24 AA 22 B1 C0 C0 C0 C0 B1 C0 C0 C0 C0 B1 C0 |Z$."............|
000011D0: C0 C0 C0 B1 C0 C0 C0 C0 B1 C0 C0 C0 C0 B1 C0 20 |............... |
000011E0: B1 C0 C0 C0 C0 B1 C0 C0 C0 C0 22 AA C7 28 31 33 |.........."..(13|
000011F0: 29 AA 22 1D 91 91 91 91 22 00 36 1A 76 02 99 42 |).".....".6.v..B|
00001200: 54 24 22 91 91 91 91 91 91 91 22 42 41 24 AA 22 |T$"......."BA$."|
00001210: 4C 49 4E 4B 1D 4C 49 4E 4B 1D 53 54 4D 54 1D 53 |LINK.LINK.STMT.S|
00001220: 54 4D 54 1D 42 41 53 49 43 1D 1D 1D 5A 45 52 4F |TMT.BASIC...ZERO|
00001230: 1D 4C 49 4E 4B 22 00 64 1A 80 02 99 22 1D 42 59 |.LINK".d....".BY|
00001240: 54 45 1D 42 59 54 45 1D 4E 55 4D 1D 1D 4E 55 4D |TE.BYTE.NUM..NUM|
00001250: 1D 1D 54 45 58 54 20 1D 1D 1D 42 59 54 45 1D 42 |..TEXT ...BYTE.B|
00001260: 59 54 45 22 00 91 1A 8A 02 99 22 1D 20 4C 4F 20 |YTE"......". LO |
00001270: 1D 20 48 49 20 1D 20 4C 4F 20 1D 20 48 49 20 1D |. HI . LO . HI .|
00001280: 41 52 45 41 1D 1D 1D 1D 3D 45 4E 44 1D 20 4C 4F |AREA....=END. LO|
00001290: 22 00 D9 1A 94 02 4D 31 24 B2 42 54 24 AA 22 91 |".....M1$.BT$.".|
000012A0: 91 20 12 5E 5E 5E 5E 20 5E 5E 5E 5E 92 22 3A 99 |. .^^^^ ^^^^.":.|
000012B0: 4D 31 24 3A 99 22 13 D1 54 48 49 53 20 49 53 20 |M1$:."..THIS IS |
000012C0: 54 48 45 20 41 44 44 52 45 53 53 20 4F 46 20 54 |THE ADDRESS OF T|
000012D0: 48 45 20 12 4E 45 58 54 22 00 F9 1A 9E 02 99 22 |HE .NEXT"......"|
000012E0: 11 42 41 53 49 43 20 53 54 41 54 45 4D 45 4E 54 |.BASIC STATEMENT|
000012F0: 2E 22 3A 8D 36 33 30 30 30 00 25 1B A8 02 4D 32 |.":.63000.%...M2|
00001300: 24 B2 42 54 24 AA 22 91 91 20 20 20 20 20 20 20 |$.BT$.".. |
00001310: 20 20 20 20 12 5E 5E 5E 5E 20 5E 5E 5E 5E 92 22 | .^^^^ ^^^^."|
00001320: 3A 99 4D 32 24 00 52 1B B2 02 99 22 13 11 11 11 |:.M2$.R...."....|
00001330: 11 D1 54 48 49 53 20 49 53 20 42 41 53 49 43 20 |..THIS IS BASIC |
00001340: 53 54 41 54 45 4D 45 4E 54 20 4E 55 4D 42 45 52 |STATEMENT NUMBER|
00001350: 3A 22 00 77 1B BC 02 99 22 11 4C 4F 2D 42 59 54 |:".w....".LO-BYT|
00001360: 45 20 54 48 45 4E 20 48 49 2D 42 59 54 45 2E 22 |E THEN HI-BYTE."|
00001370: 3A 8D 36 33 30 30 30 00 AA 1B C6 02 4D 33 24 B2 |:.63000.....M3$.|
00001380: 42 54 24 AA 22 91 91 20 20 20 20 20 20 20 20 20 |BT$.".. |
00001390: 20 20 20 20 20 20 20 20 20 20 20 20 12 5E 5E 5E | .^^^|
000013A0: 5E 2D 5E 92 22 3A 99 4D 33 24 00 E1 1B D0 02 99 |^-^.":.M3$......|
000013B0: 22 13 11 11 11 11 11 11 11 11 D1 54 48 49 53 20 |"..........THIS |
000013C0: 49 53 20 54 48 45 20 42 41 53 49 43 20 54 45 58 |IS THE BASIC TEX|
000013D0: 54 20 49 54 53 45 4C 46 2E 22 3A 8D 36 33 30 30 |T ITSELF.":.6300|
000013E0: 30 00 1A 1C E4 02 4D 34 24 B2 42 54 24 AA 22 91 |0.....M4$.BT$.".|
000013F0: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 5E | .^|
00001410: 5E 5E 5E 92 22 3A 99 4D 34 24 00 46 1C EE 02 99 |^^^.":.M4$.F....|
00001420: 22 13 11 11 11 11 11 11 11 11 11 11 D1 45 4E 44 |"............END|
00001430: 2D 4F 46 2D 53 54 41 54 45 4D 45 4E 54 2E 22 3A |-OF-STATEMENT.":|
00001440: 8D 36 33 30 30 30 00 84 1C F8 02 4D 35 24 B2 42 |.63000.....M5$.B|
00001450: 54 24 AA 22 91 91 20 20 20 20 20 20 20 20 20 20 |T$.".. |
00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001470: 20 20 20 20 20 20 20 20 12 5E 5E 5E 5E 92 22 3A | .^^^^.":|
00001480: 99 4D 35 24 00 B0 1C 02 03 99 22 13 11 11 11 11 |.M5$......".....|
00001490: 11 11 11 11 11 11 11 11 11 D1 54 48 45 20 4E 45 |..........THE NE|
000014A0: 58 54 20 4C 49 4E 4B 2E 22 3A 8D 36 33 30 30 30 |XT LINK.":.63000|
000014B0: 00 C3 1C 07 03 99 4D 35 24 22 9D 9D 9D 9D 20 20 |......M5$".... |
000014C0: 20 20 22 00 ED 1C 0C 03 8D 33 39 30 30 30 3A 99 | "......39000:.|
000014D0: 22 D1 57 45 20 57 49 4C 4C 20 4C 4F 4F 4B 20 49 |".WE WILL LOOK I|
000014E0: 4E 20 24 32 42 2F 24 32 43 20 54 4F 22 00 1D 1D |N $2B/$2C TO"...|
000014F0: 16 03 99 22 11 46 49 4E 44 20 54 48 45 20 53 54 |...".FIND THE ST|
00001500: 41 52 54 20 4F 46 20 42 41 53 49 43 20 28 55 53 |ART OF BASIC (US|
00001510: 55 41 4C 4C 59 20 24 30 38 30 31 29 22 00 61 1D |UALLY $0801)".a.|
00001520: 20 03 99 22 11 50 4F 49 4E 54 49 4E 47 20 54 4F | ..".POINTING TO|
00001530: 20 54 48 45 20 46 49 52 53 54 20 4C 49 4E 4B 20 | THE FIRST LINK |
00001540: 28 4C 4F 2D 42 59 54 45 29 2E 22 3A 99 4D 31 24 |(LO-BYTE).":.M1$|
00001550: 22 9D 9D 9D 9D 20 20 20 20 22 3A 8D 36 33 30 30 |".... ":.6300|
00001560: 30 00 96 1D 2A 03 99 22 13 11 11 11 11 11 11 D1 |0...*.."........|
00001570: 54 48 45 4E 20 57 45 20 57 49 4C 4C 20 4D 41 52 |THEN WE WILL MAR|
00001580: 43 48 20 54 48 52 4F 55 47 48 20 54 4F 20 54 48 |CH THROUGH TO TH|
00001590: 45 20 45 4E 44 22 00 C4 1D 34 03 99 22 11 4F 46 |E END"...4..".OF|
000015A0: 20 54 48 45 20 46 49 52 53 54 20 42 41 53 49 43 | THE FIRST BASIC|
000015B0: 20 53 54 41 54 45 4D 45 4E 54 2E 2E 2E 2E 22 3A | STATEMENT....":|
000015C0: 99 4D 34 24 00 08 1E 3E 03 8D 36 33 30 30 30 3A |.M4$...>..63000:|
000015D0: 99 22 13 11 11 11 11 11 11 11 11 11 11 41 4E 44 |."...........AND|
000015E0: 20 53 54 4F 52 45 20 54 48 45 20 41 44 44 52 45 | STORE THE ADDRE|
000015F0: 53 53 20 4F 46 20 54 48 45 20 12 4E 45 58 54 92 |SS OF THE .NEXT.|
00001600: 20 4C 49 4E 4B 2E 2E 22 00 47 1E 48 03 99 4D 35 | LINK..".G.H..M5|
00001610: 24 3A 8D 36 33 30 30 30 3A 99 22 13 11 11 11 11 |$:.63000:.".....|
00001620: 11 11 11 11 11 11 11 11 49 4E 54 4F 20 54 48 45 |........INTO THE|
00001630: 20 4C 49 4E 4B 53 20 41 54 20 24 30 38 30 31 2F | LINKS AT $0801/|
00001640: 24 30 38 30 32 2E 22 00 66 1E 52 03 99 4D 35 24 |$0802.".f.R..M5$|
00001650: 22 9D 9D 9D 9D 20 20 20 20 22 3A 99 4D 31 24 3A |".... ":.M1$:|
00001660: 8D 36 33 30 30 30 00 80 1E 5C 03 8D 33 39 30 30 |.63000...\..3900|
00001670: 30 3A 99 4D 31 24 22 9D 9D 9D 9D 20 20 20 20 22 |0:.M1$".... "|
00001680: 00 AD 1E 66 03 99 22 13 D1 49 4E 20 46 41 43 54 |...f.."..IN FACT|
00001690: 2C 20 4F 4E 43 45 20 41 54 20 54 48 45 20 4C 4F |, ONCE AT THE LO|
000016A0: 2D 42 59 54 45 20 4F 46 20 54 48 45 22 00 DB 1E |-BYTE OF THE"...|
000016B0: 70 03 99 22 11 4C 49 4E 4B 20 57 45 20 43 41 4E |p..".LINK WE CAN|
000016C0: 20 4A 55 4D 50 20 41 48 45 41 44 20 35 20 42 59 | JUMP AHEAD 5 BY|
000016D0: 54 45 53 20 42 45 46 4F 52 45 22 00 09 1F 7A 03 |TES BEFORE"...z.|
000016E0: 99 22 11 57 45 20 54 45 53 54 20 46 4F 52 20 54 |.".WE TEST FOR T|
000016F0: 48 45 20 12 30 30 92 20 42 59 54 45 20 4D 41 52 |HE .00. BYTE MAR|
00001700: 4B 49 4E 47 20 54 48 45 22 00 3C 1F 84 03 99 22 |KING THE".<...."|
00001710: 11 45 4E 44 20 4F 46 20 54 48 45 20 43 55 52 52 |.END OF THE CURR|
00001720: 45 4E 54 20 42 41 53 49 43 20 53 54 41 54 45 4D |ENT BASIC STATEM|
00001730: 45 4E 54 2E 22 3A 8D 36 33 30 30 30 00 6B 1F 8E |ENT.":.63000.k..|
00001740: 03 81 54 B2 31 A4 32 30 30 3A 82 3A 99 4D 32 24 |..T.1.200:.:.M2$|
00001750: 3A 81 54 B2 31 A4 32 30 30 3A 82 3A 99 4D 33 24 |:.T.1.200:.:.M3$|
00001760: 3A 81 54 B2 31 A4 32 30 30 3A 82 00 7B 1F 93 03 |:.T.1.200:..{...|
00001770: 99 4D 34 24 3A 8D 36 33 30 30 30 00 A1 1F 98 03 |.M4$:.63000.....|
00001780: 99 22 93 2E 2C 20 42 34 42 36 20 41 35 20 32 42 |.".., B4B6 A5 2B|
00001790: 20 20 20 20 12 4C 44 41 20 24 32 42 20 20 20 20 | .LDA $2B |
000017A0: 22 00 C6 1F 99 03 99 22 2E 2C 20 42 34 42 38 20 |"......"., B4B8 |
000017B0: 41 34 20 32 43 20 20 20 20 12 4C 44 59 20 24 32 |A4 2C .LDY $2|
000017C0: 43 20 20 20 20 22 00 EB 1F 9A 03 99 22 2E 2C 20 |C "......"., |
000017D0: 42 34 42 41 20 38 35 20 32 32 20 20 20 20 12 53 |B4BA 85 22 .S|
000017E0: 54 41 20 24 32 32 20 20 20 20 22 00 10 20 9B 03 |TA $22 ".. ..|
000017F0: 99 22 2E 2C 20 42 34 42 43 20 38 34 20 32 33 20 |."., B4BC 84 23 |
00001800: 20 20 20 12 53 54 59 20 24 32 33 20 20 20 20 22 | .STY $23 "|
00001810: 00 3F 20 A2 03 99 22 11 57 45 20 47 45 54 20 54 |.? ...".WE GET T|
00001820: 48 45 20 53 54 41 52 54 2D 4F 46 2D 42 41 53 49 |HE START-OF-BASI|
00001830: 43 20 41 44 44 52 45 53 53 20 46 52 4F 4D 22 00 |C ADDRESS FROM".|
00001840: 68 20 AC 03 99 22 11 24 32 42 2F 24 32 43 20 41 |h ...".$2B/$2C A|
00001850: 4E 44 20 53 54 4F 52 45 20 49 54 20 49 4E 20 24 |ND STORE IT IN $|
00001860: 32 32 2F 24 32 33 2E 22 00 96 20 B6 03 99 22 11 |22/$23.".. ...".|
00001870: 57 45 20 57 49 4C 4C 20 42 45 20 4D 4F 44 49 46 |WE WILL BE MODIF|
00001880: 59 49 4E 47 20 54 48 49 53 20 41 44 44 52 45 53 |YING THIS ADDRES|
00001890: 53 20 41 4E 44 22 00 C3 20 C0 03 99 22 11 57 49 |S AND".. ...".WI|
000018A0: 4C 4C 20 44 4F 20 54 48 45 20 4D 4F 44 49 46 59 |LL DO THE MODIFY|
000018B0: 49 4E 47 20 54 4F 20 54 48 45 20 43 4F 50 59 20 |ING TO THE COPY |
000018C0: 41 54 22 00 D4 20 CA 03 99 22 11 24 32 32 2F 24 |AT".. ...".$22/$|
000018D0: 32 33 2E 22 00 01 21 D4 03 99 22 11 24 32 32 2F |23."..!...".$22/|
000018E0: 24 32 33 20 57 49 4C 4C 20 48 4F 4C 44 20 54 48 |$23 WILL HOLD TH|
000018F0: 45 20 41 44 44 52 45 53 53 20 4F 46 20 54 48 45 |E ADDRESS OF THE|
00001900: 22 00 2C 21 DE 03 99 22 11 12 4C 4F 2D 42 59 54 |".,!..."..LO-BYT|
00001910: 45 20 4C 49 4E 4B 92 20 41 53 20 57 45 20 4D 41 |E LINK. AS WE MA|
00001920: 52 43 48 20 54 48 52 4F 55 47 48 22 00 4A 21 E8 |RCH THROUGH".J!.|
00001930: 03 99 22 11 54 48 45 20 42 41 53 49 43 20 53 54 |..".THE BASIC ST|
00001940: 41 54 45 4D 45 4E 54 53 2E 22 00 77 21 F2 03 99 |ATEMENTS.".w!...|
00001950: 22 11 54 4F 20 53 54 41 52 54 20 57 49 54 48 20 |".TO START WITH |
00001960: 49 54 20 48 4F 4C 44 53 20 24 30 38 30 31 2E 22 |IT HOLDS $0801."|
00001970: 3A 8D 36 33 30 30 30 00 9C 21 FC 03 99 22 93 2E |:.63000..!..."..|
00001980: 2C 20 42 34 42 45 20 31 38 20 20 20 20 20 20 20 |, B4BE 18 |
00001990: 12 43 4C 43 20 20 20 20 20 20 20 22 00 C5 21 06 |.CLC "..!.|
000019A0: 04 99 22 11 11 57 45 20 44 4F 20 54 48 49 53 20 |.."..WE DO THIS |
000019B0: 12 43 4C 43 92 20 49 4E 20 50 52 45 50 41 52 41 |.CLC. IN PREPARA|
000019C0: 54 49 4F 4E 22 00 EC 21 10 04 99 22 11 46 4F 52 |TION"..!...".FOR|
000019D0: 20 41 4E 20 12 41 44 43 92 20 4C 41 54 45 52 20 | AN .ADC. LATER |
000019E0: 4F 4E 2E 2E 22 3A 8D 36 33 30 30 30 00 12 22 1A |ON..":.63000..".|
000019F0: 04 99 22 93 2E 2C 20 42 34 42 46 20 41 30 20 30 |..".., B4BF A0 0|
00001A00: 31 20 20 20 20 12 4C 44 59 20 23 24 30 31 20 20 |1 .LDY #$01 |
00001A10: 20 22 00 37 22 24 04 99 22 2E 2C 20 42 34 43 31 | ".7"$.."., B4C1|
00001A20: 20 42 31 20 32 32 20 20 20 20 12 4C 44 41 20 28 | B1 22 .LDA (|
00001A30: 24 32 32 29 2C 59 22 00 63 22 2E 04 99 22 11 11 |$22),Y".c"..."..|
00001A40: 11 4E 4F 57 20 54 48 45 20 41 2D 52 45 47 49 53 |.NOW THE A-REGIS|
00001A50: 54 45 52 20 48 4F 4C 44 53 20 54 48 45 20 42 59 |TER HOLDS THE BY|
00001A60: 54 45 22 00 7C 22 38 04 99 22 11 53 54 4F 52 45 |TE".|"8..".STORE|
00001A70: 44 20 41 54 20 24 30 38 30 32 2E 22 00 A5 22 42 |D AT $0802.".."B|
00001A80: 04 99 22 11 54 48 41 54 27 53 20 54 48 45 20 12 |..".THAT'S THE .|
00001A90: 48 49 2D 42 59 54 45 20 4C 49 4E 4B 92 20 54 4F |HI-BYTE LINK. TO|
00001AA0: 20 54 48 45 22 00 C3 22 4C 04 99 22 11 4E 45 58 | THE".."L..".NEX|
00001AB0: 54 20 42 41 53 49 43 20 53 54 41 54 45 4D 45 4E |T BASIC STATEMEN|
00001AC0: 54 2E 22 00 EE 22 60 04 99 22 11 49 46 20 54 48 |T.".."`..".IF TH|
00001AD0: 49 53 20 49 53 20 12 30 30 92 20 54 48 45 4E 20 |IS IS .00. THEN |
00001AE0: 57 45 20 4D 55 53 54 20 42 45 20 41 54 22 00 0A |WE MUST BE AT"..|
00001AF0: 23 6A 04 99 22 11 45 4E 44 20 4F 46 20 54 48 45 |#j..".END OF THE|
00001B00: 20 50 52 4F 47 52 41 4D 21 22 00 3F 23 74 04 99 | PROGRAM!".?#t..|
00001B10: 22 11 28 52 45 4D 45 4D 42 45 52 2E 2E 45 4E 44 |".(REMEMBER..END|
00001B20: 2D 4F 46 2D 50 52 4F 47 52 41 4D 20 48 41 53 20 |-OF-PROGRAM HAS |
00001B30: 12 30 30 92 20 12 30 30 92 20 12 30 30 92 22 00 |.00. .00. .00.".|
00001B40: 71 23 7E 04 99 22 11 57 48 49 43 48 20 49 4D 50 |q#~..".WHICH IMP|
00001B50: 4C 49 45 53 20 41 20 12 30 30 92 20 48 49 2D 42 |LIES A .00. HI-B|
00001B60: 59 54 45 20 4C 49 4E 4B 2E 22 3A 8D 36 33 30 30 |YTE LINK.":.6300|
00001B70: 30 00 99 23 88 04 99 22 13 11 11 2E 2C 20 42 34 |0..#..."...., B4|
00001B80: 43 33 20 46 30 20 31 43 20 20 20 20 12 42 45 51 |C3 F0 1C .BEQ|
00001B90: 20 24 42 34 45 31 20 20 22 00 CE 23 92 04 81 54 | $B4E1 "..#...T|
00001BA0: B2 31 A4 32 30 3A 99 43 4C 24 3A 82 3A 99 22 13 |.1.20:.CL$:.:.".|
00001BB0: 11 11 11 11 11 2E 2E 53 4F 20 57 45 20 54 45 53 |.......SO WE TES|
00001BC0: 54 20 49 54 20 46 4F 52 20 5A 45 52 4F 22 00 FA |T IT FOR ZERO"..|
00001BD0: 23 9C 04 99 22 11 41 4E 44 20 12 42 45 51 92 20 |#...".AND .BEQ. |
00001BE0: 54 4F 20 24 42 34 45 31 20 57 48 49 43 48 20 49 |TO $B4E1 WHICH I|
00001BF0: 53 20 41 4E 20 45 58 49 54 22 00 1C 24 A6 04 99 |S AN EXIT"..$...|
00001C00: 22 11 46 52 4F 4D 20 54 48 49 53 20 52 4F 55 54 |".FROM THIS ROUT|
00001C10: 49 4E 45 21 22 3A 8D 36 33 30 30 30 00 3C 24 B0 |INE!":.63000.<$.|
00001C20: 04 99 22 93 2E 2C 20 42 34 42 36 20 41 35 20 32 |..".., B4B6 A5 2|
00001C30: 42 20 20 20 20 4C 44 41 20 24 32 42 00 5B 24 B1 |B LDA $2B.[$.|
00001C40: 04 99 22 2E 2C 20 42 34 42 38 20 41 34 20 32 43 |.."., B4B8 A4 2C|
00001C50: 20 20 20 20 4C 44 59 20 24 32 43 00 7A 24 B2 04 | LDY $2C.z$..|
00001C60: 99 22 2E 2C 20 42 34 42 41 20 38 35 20 32 32 20 |."., B4BA 85 22 |
00001C70: 20 20 20 53 54 41 20 24 32 32 00 99 24 B3 04 99 | STA $22..$...|
00001C80: 22 2E 2C 20 42 34 42 43 20 38 34 20 32 33 20 20 |"., B4BC 84 23 |
00001C90: 20 20 53 54 59 20 24 32 33 00 B4 24 B4 04 99 22 | STY $23..$..."|
00001CA0: 2E 2C 20 42 34 42 45 20 31 38 20 20 20 20 20 20 |., B4BE 18 |
00001CB0: 20 43 4C 43 00 D4 24 B5 04 99 22 2E 2C 20 42 34 | CLC..$..."., B4|
00001CC0: 42 46 20 41 30 20 30 31 20 20 20 20 4C 44 59 20 |BF A0 01 LDY |
00001CD0: 23 24 30 31 00 F7 24 B6 04 99 22 2E 2C 20 42 34 |#$01..$..."., B4|
00001CE0: 43 31 20 42 31 20 32 32 20 20 20 20 4C 44 41 20 |C1 B1 22 LDA |
00001CF0: 28 24 32 32 29 2C 59 00 18 25 B7 04 99 22 2E 2C |($22),Y..%...".,|
00001D00: 20 42 34 43 33 20 46 30 20 31 43 20 20 20 20 42 | B4C3 F0 1C B|
00001D10: 45 51 20 24 42 34 45 31 00 3C 25 BA 04 99 22 11 |EQ $B4E1.<%...".|
00001D20: 54 48 41 54 27 53 20 57 48 41 54 20 57 45 20 48 |THAT'S WHAT WE H|
00001D30: 41 56 45 20 53 4F 20 46 41 52 2E 22 00 6A 25 C4 |AVE SO FAR.".j%.|
00001D40: 04 99 22 11 4E 4F 57 20 57 45 27 52 45 20 47 4F |..".NOW WE'RE GO|
00001D50: 49 4E 47 20 54 4F 20 4D 4F 56 45 20 41 48 45 41 |ING TO MOVE AHEA|
00001D60: 44 20 35 20 42 59 54 45 53 22 00 9A 25 CE 04 99 |D 5 BYTES"..%...|
00001D70: 22 11 41 4E 44 20 53 54 41 52 54 20 43 48 45 43 |".AND START CHEC|
00001D80: 4B 49 4E 47 20 45 41 43 48 20 42 59 54 45 20 46 |KING EACH BYTE F|
00001D90: 52 4F 4D 20 54 48 45 52 45 22 00 C8 25 D8 04 99 |ROM THERE"..%...|
00001DA0: 22 11 46 4F 52 20 54 48 45 20 12 30 30 92 20 45 |".FOR THE .00. E|
00001DB0: 4E 44 2D 4F 46 2D 53 54 41 54 45 4D 45 4E 54 2E |ND-OF-STATEMENT.|
00001DC0: 22 3A 8D 36 33 30 30 30 00 EE 25 E2 04 99 22 93 |":.63000..%...".|
00001DD0: 2E 2C 20 42 34 43 35 20 41 30 20 30 34 20 20 20 |., B4C5 A0 04 |
00001DE0: 20 12 4C 44 59 20 23 24 30 34 20 20 20 22 00 13 | .LDY #$04 "..|
00001DF0: 26 EC 04 99 22 2E 2C 20 42 34 43 37 20 43 38 20 |&..."., B4C7 C8 |
00001E00: 20 20 20 20 20 20 12 49 4E 59 20 20 20 20 20 20 | .INY |
00001E10: 20 20 22 00 38 26 F6 04 99 22 2E 2C 20 42 34 43 | ".8&..."., B4C|
00001E20: 38 20 42 31 20 32 32 20 20 20 20 12 4C 44 41 20 |8 B1 22 .LDA |
00001E30: 28 24 32 32 29 2C 59 22 00 5D 26 00 05 99 22 2E |($22),Y".]&...".|
00001E40: 2C 20 42 34 43 41 20 44 30 20 46 42 20 20 20 20 |, B4CA D0 FB |
00001E50: 12 42 4E 45 20 24 42 34 43 37 20 20 22 00 89 26 |.BNE $B4C7 "..&|
00001E60: 0A 05 99 22 11 48 45 52 45 20 57 45 20 12 4C 44 |...".HERE WE .LD|
00001E70: 59 20 23 24 30 34 92 20 54 48 45 4E 20 12 49 4E |Y #$04. THEN .IN|
00001E80: 59 92 20 57 48 49 43 48 22 00 B9 26 14 05 99 22 |Y. WHICH"..&..."|
00001E90: 11 4D 41 4B 45 53 20 12 24 28 32 32 29 2C 59 92 |.MAKES .$(22),Y.|
00001EA0: 20 35 20 42 59 54 45 53 20 50 41 53 54 20 4F 55 | 5 BYTES PAST OU|
00001EB0: 52 20 27 42 41 53 45 27 22 00 D8 26 1E 05 99 22 |R 'BASE'"..&..."|
00001EC0: 11 41 54 20 54 48 45 20 12 4C 4F 2D 42 59 54 45 |.AT THE .LO-BYTE|
00001ED0: 20 4C 49 4E 4B 92 2E 22 00 04 27 28 05 99 22 11 | LINK.."..'(..".|
00001EE0: 57 45 20 43 48 45 43 4B 20 54 48 49 53 20 42 59 |WE CHECK THIS BY|
00001EF0: 54 45 20 46 4F 52 20 12 30 30 92 2C 20 54 4F 20 |TE FOR .00., TO |
00001F00: 53 45 45 22 00 2E 27 3C 05 99 22 11 49 46 20 49 |SEE"..'<..".IF I|
00001F10: 54 27 53 20 54 48 45 20 45 4E 44 2D 4F 46 2D 53 |T'S THE END-OF-S|
00001F20: 54 41 54 45 4D 45 4E 54 2C 20 41 4E 44 22 00 5F |TATEMENT, AND"._|
00001F30: 27 46 05 99 22 11 12 42 92 52 41 4E 43 48 20 49 |'F.."..B.RANCH I|
00001F40: 46 20 12 4E 92 4F 54 20 12 45 92 51 55 41 4C 20 |F .N.OT .E.QUAL |
00001F50: 54 4F 20 5A 45 52 4F 20 54 4F 20 54 48 45 22 00 |TO ZERO TO THE".|
00001F60: 8E 27 50 05 99 22 11 12 49 4E 59 92 20 49 4E 53 |.'P.."..INY. INS|
00001F70: 54 52 55 43 54 49 4F 4E 2E 20 46 52 4F 4D 20 4E |TRUCTION. FROM N|
00001F80: 4F 57 20 4F 4E 20 57 45 20 4D 4F 56 45 22 00 BA |OW ON WE MOVE"..|
00001F90: 27 5A 05 99 22 11 41 20 42 59 54 45 20 41 54 20 |'Z..".A BYTE AT |
00001FA0: 41 20 54 49 4D 45 2C 20 4C 4F 4F 4B 49 4E 47 20 |A TIME, LOOKING |
00001FB0: 46 4F 52 20 12 30 30 92 2C 22 00 EC 27 64 05 99 |FOR .00.,"..'d..|
00001FC0: 22 11 41 4E 44 20 53 54 41 59 20 49 4E 20 54 48 |".AND STAY IN TH|
00001FD0: 49 53 20 4C 4F 4F 50 20 55 4E 54 49 4C 20 57 45 |IS LOOP UNTIL WE|
00001FE0: 20 44 4F 21 22 3A 8D 36 33 30 30 30 00 1C 28 6E | DO!":.63000..(n|
00001FF0: 05 99 22 93 45 56 45 4E 54 55 41 4C 4C 59 20 57 |..".EVENTUALLY W|
00002000: 45 20 46 49 4E 44 20 54 48 45 20 45 4E 44 2D 4F |E FIND THE END-O|
00002010: 46 2D 53 54 41 54 45 4D 45 4E 54 22 00 4A 28 78 |F-STATEMENT".J(x|
00002020: 05 99 22 11 41 4E 44 20 4D 55 53 54 20 4E 4F 57 |..".AND MUST NOW|
00002030: 20 44 45 54 45 52 4D 49 4E 45 20 54 48 45 20 41 | DETERMINE THE A|
00002040: 44 44 52 45 53 53 20 4F 46 22 00 7C 28 82 05 99 |DDRESS OF".|(...|
00002050: 22 11 4F 46 20 54 48 45 20 27 4E 45 58 54 27 11 |".OF THE 'NEXT'.|
00002060: 9D 9D 9D 9D 9D B8 B8 B8 B8 20 91 20 12 4C 4F 2D |......... . .LO-|
00002070: 42 59 54 45 20 4C 49 4E 4B 92 2E 22 00 AB 28 8C |BYTE LINK.."..(.|
00002080: 05 99 22 11 54 57 4F 20 54 48 49 4E 47 53 20 41 |..".TWO THINGS A|
00002090: 52 45 20 44 4F 4E 45 20 57 49 54 48 20 54 48 49 |RE DONE WITH THI|
000020A0: 53 20 41 44 44 52 45 53 53 2E 22 00 D6 28 96 05 |S ADDRESS."..(..|
000020B0: 99 22 11 31 3A 49 54 20 57 49 4C 4C 20 42 45 20 |.".1:IT WILL BE |
000020C0: 53 54 4F 52 45 44 20 49 4E 20 54 48 45 20 45 41 |STORED IN THE EA|
000020D0: 52 4C 49 45 52 22 00 FF 28 A0 05 99 22 20 20 4C |RLIER"..(..." L|
000020E0: 49 4E 4B 53 20 28 4F 52 49 47 49 4E 41 4C 4C 59 |INKS (ORIGINALLY|
000020F0: 20 24 30 38 30 31 2F 24 30 38 30 32 29 2E 22 00 | $0801/$0802).".|
00002100: 26 29 AA 05 99 22 11 32 3A 4F 55 52 20 27 42 41 |&)...".2:OUR 'BA|
00002110: 53 45 27 20 28 4B 45 50 54 20 49 4E 20 24 32 32 |SE' (KEPT IN $22|
00002120: 2F 24 32 33 29 22 00 51 29 B4 05 99 22 20 20 4F |/$23)".Q)..." O|
00002130: 52 49 47 49 4E 41 4C 4C 59 20 57 41 53 20 54 48 |RIGINALLY WAS TH|
00002140: 45 20 4C 49 4E 4B 20 41 54 20 24 30 38 30 31 2E |E LINK AT $0801.|
00002150: 22 00 95 29 BE 05 99 22 20 20 24 32 32 2F 24 32 |"..)..." $22/$2|
00002160: 33 20 57 49 4C 4C 20 42 45 20 43 48 41 4E 47 45 |3 WILL BE CHANGE|
00002170: 44 20 54 4F 20 50 4F 49 4E 54 22 3A 99 22 20 20 |D TO POINT":." |
00002180: 54 4F 20 54 48 49 53 20 27 4E 45 58 54 27 20 4C |TO THIS 'NEXT' L|
00002190: 49 4E 4B 2E 22 00 C0 29 C3 05 99 22 11 41 54 20 |INK."..)...".AT |
000021A0: 54 48 45 20 4D 4F 4D 45 4E 54 20 57 45 27 52 45 |THE MOMENT WE'RE|
000021B0: 20 28 59 29 20 42 59 54 45 53 20 50 41 53 54 22 | (Y) BYTES PAST"|
000021C0: 00 E0 29 C4 05 99 22 11 54 48 45 20 41 44 44 52 |..)...".THE ADDR|
000021D0: 45 53 53 20 49 4E 20 24 32 32 2F 24 32 33 2E 22 |ESS IN $22/$23."|
000021E0: 00 21 2A C8 05 99 22 11 11 11 12 4C 45 54 27 53 |.!*..."....LET'S|
000021F0: 20 46 4F 52 47 45 20 41 48 45 41 44 92 2E 2E 2E | FORGE AHEAD....|
00002200: 22 3A 4D 53 24 B2 22 12 47 4F 21 47 4F 21 47 4F |":MS$.".GO!GO!GO|
00002210: 21 92 22 3A 8D 36 33 30 30 30 3A 8D 36 33 31 30 |!.":.63000:.6310|
00002220: 30 00 47 2A D2 05 99 22 93 2E 2C 20 42 34 43 43 |0.G*...".., B4CC|
00002230: 20 43 38 20 20 20 20 20 20 20 12 49 4E 59 20 20 | C8 .INY |
00002240: 20 20 20 20 20 20 22 00 75 2A DC 05 99 53 44 24 | ".u*...SD$|
00002250: 22 12 49 4E 59 92 20 41 44 56 41 4E 43 45 53 20 |".INY. ADVANCES |
00002260: 31 20 42 59 54 45 20 50 41 53 54 20 54 48 45 20 |1 BYTE PAST THE |
00002270: 12 30 30 92 22 00 A7 2A E6 05 99 22 11 45 4E 44 |.00."..*...".END|
00002280: 2D 4F 46 2D 53 54 41 54 45 4D 45 4E 54 20 54 4F |-OF-STATEMENT TO|
00002290: 20 54 48 45 20 27 4E 45 58 54 27 20 12 4C 4F 2D | THE 'NEXT' .LO-|
000022A0: 4C 49 4E 4B 92 2E 22 00 D2 2A F0 05 99 22 11 4E |LINK.."..*...".N|
000022B0: 4F 57 20 12 28 24 32 32 29 2C 59 92 20 50 4F 49 |OW .($22),Y. POI|
000022C0: 4E 54 53 20 54 4F 20 54 48 45 20 27 4E 45 58 54 |NTS TO THE 'NEXT|
000022D0: 27 22 00 FD 2A FA 05 99 22 11 12 4C 4F 2D 4C 49 |'"..*..."..LO-LI|
000022E0: 4E 4B 92 20 41 4E 44 20 57 45 20 44 4F 20 4F 55 |NK. AND WE DO OU|
000022F0: 52 20 27 32 20 54 48 49 4E 47 53 27 22 00 20 2B |R '2 THINGS'". +|
00002300: 04 06 99 22 11 57 49 54 48 20 54 48 49 53 20 41 |...".WITH THIS A|
00002310: 44 44 52 45 53 53 2E 2E 22 3A 8D 36 33 30 30 30 |DDRESS..":.63000|
00002320: 00 46 2B 05 06 99 22 13 11 2E 2C 20 42 34 43 44 |.F+..."..., B4CD|
00002330: 20 39 38 20 20 20 20 20 20 20 54 59 41 20 20 20 | 98 TYA |
00002340: 20 20 20 20 20 22 00 6A 2B 06 06 99 22 2E 2C 20 | ".j+..."., |
00002350: 42 34 43 45 20 36 35 20 32 32 20 20 20 20 41 44 |B4CE 65 22 AD|
00002360: 43 20 24 32 32 20 20 20 20 22 00 8E 2B 07 06 99 |C $22 "..+...|
00002370: 22 2E 2C 20 42 34 44 30 20 41 41 20 20 20 20 20 |"., B4D0 AA |
00002380: 20 20 54 41 58 20 20 20 20 20 20 20 20 22 00 B2 | TAX "..|
00002390: 2B 08 06 99 22 2E 2C 20 42 34 44 31 20 41 30 20 |+..."., B4D1 A0 |
000023A0: 30 30 20 20 20 20 4C 44 59 20 23 24 30 30 20 20 |00 LDY #$00 |
000023B0: 20 22 00 D6 2B 09 06 99 22 2E 2C 20 42 34 44 33 | "..+..."., B4D3|
000023C0: 20 39 31 20 32 32 20 20 20 20 53 54 41 20 28 24 | 91 22 STA ($|
000023D0: 32 32 29 2C 59 22 00 EF 2B 0E 06 99 53 44 24 3B |22),Y"..+...SD$;|
000023E0: 3A 81 54 B2 31 A4 31 30 3A 99 43 4C 24 3A 82 00 |:.T.1.10:.CL$:..|
000023F0: 21 2C 18 06 99 53 44 24 22 D1 57 45 20 12 41 44 |!,...SD$".WE .AD|
00002400: 43 92 20 54 48 45 20 41 44 44 52 45 53 53 20 41 |C. THE ADDRESS A|
00002410: 54 20 12 24 32 32 92 20 54 4F 20 12 59 92 2E 2E |T .$22. TO .Y...|
00002420: 22 00 51 2C 22 06 99 22 42 55 54 20 12 41 44 43 |".Q,".."BUT .ADC|
00002430: 92 20 4F 4E 4C 59 20 57 4F 52 4B 53 20 57 49 54 |. ONLY WORKS WIT|
00002440: 48 20 54 48 45 20 41 2D 52 45 47 49 53 54 45 52 |H THE A-REGISTER|
00002450: 22 00 8B 2C 2C 06 99 22 53 4F 20 57 45 20 12 54 |"..,,.."SO WE .T|
00002460: 59 41 92 20 46 49 52 53 54 20 54 48 45 4E 11 9D |YA. FIRST THEN..|
00002470: 9D 9D 9D B7 B7 B7 B7 91 20 12 41 44 43 20 24 32 |........ .ADC $2|
00002480: 32 92 2E 22 3A 8D 36 33 30 30 30 00 B2 2C 2D 06 |2..":.63000..,-.|
00002490: 99 22 13 11 2E 2C 20 42 34 43 44 20 39 38 20 20 |."..., B4CD 98 |
000024A0: 20 20 20 20 20 12 54 59 41 20 20 20 20 20 20 20 | .TYA |
000024B0: 20 22 00 DE 2C 2E 06 99 22 2E 2C 20 42 34 43 45 | "..,..."., B4CE|
000024C0: 20 36 35 20 32 32 20 20 20 20 12 41 44 43 20 24 | 65 22 .ADC $|
000024D0: 32 32 20 20 20 20 22 3A 8D 36 33 30 30 30 00 10 |22 ":.63000..|
000024E0: 2D 36 06 99 53 44 24 22 11 11 11 D1 4E 4F 57 20 |-6..SD$"....NOW |
000024F0: 12 41 92 20 43 4F 4E 54 41 49 4E 53 20 54 48 45 |.A. CONTAINS THE|
00002500: 20 4C 4F 2D 42 59 54 45 20 4F 46 20 54 48 45 22 | LO-BYTE OF THE"|
00002510: 00 40 2D 40 06 99 22 4E 45 57 20 27 42 41 53 45 |.@-@.."NEW 'BASE|
00002520: 27 20 41 44 44 52 45 53 53 3D 54 48 45 20 27 4E |' ADDRESS=THE 'N|
00002530: 45 58 54 27 20 12 4C 4F 2D 4C 49 4E 4B 92 2E 22 |EXT' .LO-LINK.."|
00002540: 00 6F 2D 45 06 99 22 57 45 20 53 41 56 45 20 54 |.o-E.."WE SAVE T|
00002550: 48 49 53 20 4D 41 47 49 43 20 42 59 54 45 20 49 |HIS MAGIC BYTE I|
00002560: 4E 20 27 58 27 2E 2E 22 3A 8D 36 33 30 30 30 00 |N 'X'..":.63000.|
00002570: 9F 2D 46 06 99 22 13 11 11 11 2E 2C 20 42 34 44 |.-F.."....., B4D|
00002580: 30 20 41 41 20 20 20 20 20 20 20 12 54 41 58 20 |0 AA .TAX |
00002590: 20 20 20 20 20 20 20 22 3A 8D 36 33 30 30 30 00 | ":.63000.|
000025A0: D4 2D 4A 06 99 53 44 24 22 11 11 11 11 11 11 D1 |.-J..SD$".......|
000025B0: 54 48 45 4E 20 50 55 54 20 49 54 20 49 4E 54 4F |THEN PUT IT INTO|
000025C0: 20 24 30 38 30 31 20 57 48 49 43 48 20 49 53 20 | $0801 WHICH IS |
000025D0: 54 48 45 22 00 FE 2D 54 06 99 22 41 44 44 52 45 |THE"..-T.."ADDRE|
000025E0: 53 53 20 43 55 52 52 45 4E 54 4C 59 20 48 45 4C |SS CURRENTLY HEL|
000025F0: 44 20 49 4E 20 24 32 32 2F 24 32 33 2E 22 00 29 |D IN $22/$23.".)|
00002600: 2E 5E 06 99 22 57 45 20 44 4F 20 54 48 49 53 20 |.^.."WE DO THIS |
00002610: 57 49 54 48 20 12 53 54 41 92 20 49 4E 54 4F 20 |WITH .STA. INTO |
00002620: 12 28 24 32 32 29 2C 30 22 00 56 2E 63 06 99 22 |.($22),0".V.c.."|
00002630: 57 48 49 43 48 20 52 45 51 55 49 52 45 53 20 27 |WHICH REQUIRES '|
00002640: 59 3D 30 27 20 53 4F 20 57 45 20 12 4C 44 59 20 |Y=0' SO WE .LDY |
00002650: 23 24 30 30 92 22 00 82 2E 68 06 99 22 54 48 45 |#$00."...h.."THE|
00002660: 4E 11 9D 9D 9D 9D B7 B7 B7 B7 91 20 12 53 54 41 |N.......... .STA|
00002670: 20 28 24 32 32 29 2C 59 92 21 22 3A 8D 36 33 30 | ($22),Y.!":.630|
00002680: 30 30 00 AC 2E 69 06 99 22 13 11 11 11 11 2E 2C |00...i.."......,|
00002690: 20 42 34 44 31 20 41 30 20 30 30 20 20 20 20 12 | B4D1 A0 00 .|
000026A0: 4C 44 59 20 23 24 30 30 20 20 20 22 00 D8 2E 6A |LDY #$00 "...j|
000026B0: 06 99 22 2E 2C 20 42 34 44 33 20 39 31 20 32 32 |.."., B4D3 91 22|
000026C0: 20 20 20 20 12 53 54 41 20 28 24 32 32 29 2C 59 | .STA ($22),Y|
000026D0: 22 3A 8D 36 33 30 30 30 00 F1 2E 72 06 99 53 44 |":.63000...r..SD|
000026E0: 24 3B 3A 81 49 B2 31 A4 31 35 3A 99 43 4C 24 3A |$;:.I.1.15:.CL$:|
000026F0: 82 00 0E 2F 77 06 4D 53 24 B2 22 12 47 4F 21 47 |.../w.MS$.".GO!G|
00002700: 4F 21 47 4F 21 92 22 3A 8D 36 33 31 30 30 00 27 |O!GO!.":.63100.'|
00002710: 2F 7C 06 99 53 44 24 3B 3A 81 49 B2 31 A4 31 35 |/|..SD$;:.I.1.15|
00002720: 3A 99 43 4C 24 3A 82 00 52 2F 7D 06 99 22 13 11 |:.CL$:..R/}.."..|
00002730: 11 11 11 11 11 2E 2C 20 42 34 44 35 20 39 38 20 |......, B4D5 98 |
00002740: 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 | TYA |
00002750: 20 22 00 77 2F 7E 06 99 22 2E 2C 20 42 34 44 36 | ".w/~.."., B4D6|
00002760: 20 36 35 20 32 33 20 20 20 20 41 44 43 20 24 32 | 65 23 ADC $2|
00002770: 33 20 20 20 20 20 22 00 9C 2F 7F 06 99 22 2E 2C |3 "../...".,|
00002780: 20 42 34 44 38 20 43 38 20 20 20 20 20 20 20 49 | B4D8 C8 I|
00002790: 4E 59 20 20 20 20 20 20 20 20 20 22 00 C0 2F 80 |NY "../.|
000027A0: 06 99 22 2E 2C 20 42 34 44 39 20 39 31 20 32 32 |.."., B4D9 91 22|
000027B0: 20 20 20 20 53 54 41 20 28 24 32 32 29 2C 59 22 | STA ($22),Y"|
000027C0: 00 EE 2F 86 06 99 53 44 24 22 11 11 11 11 11 11 |../...SD$"......|
000027D0: 57 45 20 48 41 56 45 20 54 48 45 20 4C 4F 2D 4C |WE HAVE THE LO-L|
000027E0: 49 4E 4B 20 46 49 58 45 44 20 55 50 2E 22 00 12 |INK FIXED UP."..|
000027F0: 30 90 06 99 22 11 4E 4F 57 20 46 4F 52 20 54 48 |0...".NOW FOR TH|
00002800: 45 20 48 49 2D 4C 49 4E 4B 2E 22 3A 8D 36 33 30 |E HI-LINK.":.630|
00002810: 30 30 00 32 30 9A 06 99 53 44 24 22 11 11 11 11 |00.20...SD$"....|
00002820: 11 11 22 3B 3A 81 49 B2 31 A4 38 3A 99 43 4C 24 |..";:.I.1.8:.CL$|
00002830: 3A 82 00 5F 30 A4 06 99 53 44 24 22 11 11 11 11 |:.._0...SD$"....|
00002840: D1 57 45 20 43 4C 45 41 52 20 54 48 45 20 41 2D |.WE CLEAR THE A-|
00002850: 52 45 47 49 53 54 45 52 20 54 4F 20 30 30 22 00 |REGISTER TO 00".|
00002860: 85 30 AE 06 99 22 12 57 49 54 48 4F 55 54 92 20 |.0...".WITHOUT. |
00002870: 41 46 46 45 43 54 49 4E 47 20 41 4E 59 20 43 41 |AFFECTING ANY CA|
00002880: 52 52 59 20 22 00 B9 30 B8 06 99 22 4C 45 46 54 |RRY "..0..."LEFT|
00002890: 20 4F 56 45 52 20 46 52 4F 4D 20 54 48 45 20 45 | OVER FROM THE E|
000028A0: 41 52 4C 49 45 52 20 12 41 44 43 20 24 32 32 92 |ARLIER .ADC $22.|
000028B0: 2E 22 3A 8D 36 33 30 30 30 00 EC 30 B9 06 99 22 |.":.63000..0..."|
000028C0: 13 11 11 11 11 11 11 2E 2C 20 42 34 44 35 20 39 |........, B4D5 9|
000028D0: 38 20 20 20 20 20 20 20 12 54 59 41 20 20 20 20 |8 .TYA |
000028E0: 20 20 20 20 22 3A 8D 36 33 30 30 30 00 10 31 C2 | ":.63000..1.|
000028F0: 06 99 53 44 24 22 11 11 11 11 11 11 11 D1 54 48 |..SD$"........TH|
00002900: 45 4E 20 57 45 20 12 41 44 43 20 24 32 33 92 22 |EN WE .ADC $23."|
00002910: 00 36 31 CC 06 99 22 41 44 44 49 4E 47 20 54 48 |.61..."ADDING TH|
00002920: 45 20 43 41 52 52 59 20 42 49 54 20 28 49 46 20 |E CARRY BIT (IF |
00002930: 41 4E 59 21 29 22 00 5E 31 D6 06 99 22 54 4F 20 |ANY!)".^1..."TO |
00002940: 54 48 45 20 48 49 2D 42 59 54 45 20 4F 46 20 4F |THE HI-BYTE OF O|
00002950: 55 52 20 4E 45 57 20 27 42 41 53 45 27 22 00 85 |UR NEW 'BASE'"..|
00002960: 31 E0 06 99 22 41 44 44 52 45 53 53 20 49 4E 20 |1..."ADDRESS IN |
00002970: 24 32 32 2F 24 32 33 2D 57 48 49 43 48 20 41 4C |$22/$23-WHICH AL|
00002980: 57 41 59 53 22 00 AA 31 F4 06 99 22 50 4F 49 4E |WAYS"..1..."POIN|
00002990: 54 53 20 54 4F 20 54 48 45 20 4C 4F 2D 4C 49 4E |TS TO THE LO-LIN|
000029A0: 4B 2E 22 3A 8D 36 33 30 30 30 00 DE 31 F5 06 99 |K.":.63000..1...|
000029B0: 22 13 11 11 11 11 11 11 11 2E 2C 20 42 34 44 36 |"........., B4D6|
000029C0: 20 36 35 20 32 30 20 20 20 20 12 41 44 43 20 24 | 65 20 .ADC $|
000029D0: 32 33 20 20 20 20 22 3A 8D 36 33 30 30 30 00 FE |23 ":.63000..|
000029E0: 31 FE 06 99 53 44 24 22 11 11 11 11 11 11 22 3B |1...SD$"......";|
000029F0: 3A 81 49 B2 31 A4 38 3A 99 43 4C 24 3A 82 00 2C |:.I.1.8:.CL$:..,|
00002A00: 32 08 07 99 53 44 24 22 11 11 11 11 D1 57 45 20 |2...SD$".....WE |
00002A10: 4E 4F 57 20 48 41 56 45 20 54 48 45 20 48 49 2D |NOW HAVE THE HI-|
00002A20: 42 59 54 45 20 4F 46 20 4F 55 52 22 00 52 32 12 |BYTE OF OUR".R2.|
00002A30: 07 99 22 4E 45 57 20 4C 4F 2D 4C 49 4E 4B 20 41 |.."NEW LO-LINK A|
00002A40: 44 44 52 45 53 53 20 49 4E 20 27 41 27 20 41 4E |DDRESS IN 'A' AN|
00002A50: 44 22 00 78 32 1C 07 99 22 57 45 20 4E 45 45 44 |D".x2..."WE NEED|
00002A60: 20 54 4F 20 53 54 55 46 46 20 49 54 20 49 4E 54 | TO STUFF IT INT|
00002A70: 4F 20 24 30 38 30 32 22 00 9E 32 26 07 99 22 57 |O $0802"..2&.."W|
00002A80: 48 49 43 48 20 49 53 20 31 20 42 59 54 45 20 50 |HICH IS 1 BYTE P|
00002A90: 41 53 54 20 24 30 38 30 31 20 41 4E 44 22 00 C8 |AST $0801 AND"..|
00002AA0: 32 30 07 99 22 24 30 38 30 31 20 49 53 20 48 45 |20.."$0801 IS HE|
00002AB0: 4C 44 20 49 4E 20 24 32 32 2F 24 32 33 21 21 21 |LD IN $22/$23!!!|
00002AC0: 22 3A 8D 36 33 30 30 30 00 E5 32 3A 07 4D 53 24 |":.63000..2:.MS$|
00002AD0: B2 22 20 12 20 4F 55 43 48 21 21 20 92 22 3A 8D |." . OUCH!! .":.|
00002AE0: 36 33 31 30 30 00 13 33 3B 07 99 22 13 11 11 11 |63100..3;.."....|
00002AF0: 11 11 11 11 11 2E 2C 20 42 34 44 38 20 43 38 20 |......, B4D8 C8 |
00002B00: 20 20 20 20 20 20 12 49 4E 59 20 20 20 20 20 20 | .INY |
00002B10: 20 20 22 00 3F 33 3C 07 99 22 2E 2C 20 42 34 44 | ".?3<.."., B4D|
00002B20: 39 20 39 31 20 32 32 20 20 20 20 12 53 54 41 20 |9 91 22 .STA |
00002B30: 28 24 32 32 29 2C 59 22 3A 8D 36 33 30 30 30 00 |($22),Y":.63000.|
00002B40: 5F 33 62 07 99 22 93 2E 2C 20 42 34 42 36 20 41 |_3b..".., B4B6 A|
00002B50: 35 20 32 42 20 20 20 20 4C 44 41 20 24 32 42 00 |5 2B LDA $2B.|
00002B60: 7E 33 63 07 99 22 2E 2C 20 42 34 42 38 20 41 34 |~3c.."., B4B8 A4|
00002B70: 20 32 43 20 20 20 20 4C 44 59 20 24 32 43 00 9D | 2C LDY $2C..|
00002B80: 33 64 07 99 22 2E 2C 20 42 34 42 41 20 38 35 20 |3d.."., B4BA 85 |
00002B90: 32 32 20 20 20 20 53 54 41 20 24 32 32 00 BC 33 |22 STA $22..3|
00002BA0: 65 07 99 22 2E 2C 20 42 34 42 43 20 38 34 20 32 |e.."., B4BC 84 2|
00002BB0: 33 20 20 20 20 53 54 59 20 24 32 33 00 D7 33 66 |3 STY $23..3f|
00002BC0: 07 99 22 2E 2C 20 42 34 42 45 20 31 38 20 20 20 |.."., B4BE 18 |
00002BD0: 20 20 20 20 43 4C 43 00 F7 33 67 07 99 22 2E 2C | CLC..3g..".,|
00002BE0: 20 42 34 42 46 20 41 30 20 30 31 20 20 20 20 4C | B4BF A0 01 L|
00002BF0: 44 59 20 23 24 30 31 00 1A 34 68 07 99 22 2E 2C |DY #$01..4h..".,|
00002C00: 20 42 34 43 31 20 42 31 20 32 32 20 20 20 20 4C | B4C1 B1 22 L|
00002C10: 44 41 20 28 24 32 32 29 2C 59 00 3B 34 69 07 99 |DA ($22),Y.;4i..|
00002C20: 22 2E 2C 20 42 34 43 33 20 46 30 20 31 43 20 20 |"., B4C3 F0 1C |
00002C30: 20 20 42 45 51 20 24 42 34 45 31 00 5B 34 6A 07 | BEQ $B4E1.[4j.|
00002C40: 99 22 2E 2C 20 42 34 43 35 20 41 30 20 30 34 20 |."., B4C5 A0 04 |
00002C50: 20 20 20 4C 44 59 20 23 24 30 34 00 76 34 6B 07 | LDY #$04.v4k.|
00002C60: 99 22 2E 2C 20 42 34 43 37 20 43 38 20 20 20 20 |."., B4C7 C8 |
00002C70: 20 20 20 49 4E 59 00 99 34 6C 07 99 22 2E 2C 20 | INY..4l.."., |
00002C80: 42 34 43 38 20 42 31 20 32 32 20 20 20 20 4C 44 |B4C8 B1 22 LD|
00002C90: 41 20 28 24 32 32 29 2C 59 00 BA 34 6D 07 99 22 |A ($22),Y..4m.."|
00002CA0: 2E 2C 20 42 34 43 41 20 44 30 20 46 42 20 20 20 |., B4CA D0 FB |
00002CB0: 20 42 4E 45 20 24 42 34 43 37 00 D5 34 6E 07 99 | BNE $B4C7..4n..|
00002CC0: 22 2E 2C 20 42 34 43 43 20 43 38 20 20 20 20 20 |"., B4CC C8 |
00002CD0: 20 20 49 4E 59 00 F0 34 6F 07 99 22 2E 2C 20 42 | INY..4o.."., B|
00002CE0: 34 43 44 20 39 38 20 20 20 20 20 20 20 54 59 41 |4CD 98 TYA|
00002CF0: 00 0F 35 70 07 99 22 2E 2C 20 42 34 43 45 20 36 |..5p.."., B4CE 6|
00002D00: 35 20 32 32 20 20 20 20 41 44 43 20 24 32 32 00 |5 22 ADC $22.|
00002D10: 2A 35 71 07 99 22 2E 2C 20 42 34 44 30 20 41 41 |*5q.."., B4D0 AA|
00002D20: 20 20 20 20 20 20 20 54 41 58 00 4A 35 72 07 99 | TAX.J5r..|
00002D30: 22 2E 2C 20 42 34 44 31 20 41 30 20 30 30 20 20 |"., B4D1 A0 00 |
00002D40: 20 20 4C 44 59 20 23 24 30 30 00 6D 35 73 07 99 | LDY #$00.m5s..|
00002D50: 22 2E 2C 20 42 34 44 33 20 39 31 20 32 32 20 20 |"., B4D3 91 22 |
00002D60: 20 20 53 54 41 20 28 24 32 32 29 2C 59 00 88 35 | STA ($22),Y..5|
00002D70: 74 07 99 22 2E 2C 20 42 34 44 35 20 39 38 20 20 |t.."., B4D5 98 |
00002D80: 20 20 20 20 20 54 59 41 00 A7 35 75 07 99 22 2E | TYA..5u..".|
00002D90: 2C 20 42 34 44 36 20 36 35 20 32 33 20 20 20 20 |, B4D6 65 23 |
00002DA0: 41 44 43 20 24 32 33 00 C2 35 76 07 99 22 2E 2C |ADC $23..5v..".,|
00002DB0: 20 42 34 44 38 20 43 38 20 20 20 20 20 20 20 49 | B4D8 C8 I|
00002DC0: 4E 59 00 E5 35 80 07 99 22 2E 2C 20 42 34 44 39 |NY..5..."., B4D9|
00002DD0: 20 39 31 20 32 32 20 20 20 20 53 54 41 20 28 24 | 91 22 STA ($|
00002DE0: 32 32 29 2C 59 00 0F 36 8A 07 99 42 54 24 22 91 |22),Y..6...BT$".|
00002DF0: 91 12 57 48 41 54 27 53 20 4C 45 46 54 20 54 4F |..WHAT'S LEFT TO|
00002E00: 20 44 4F 3F 3F 3F 92 22 3A 8D 36 33 30 30 30 00 | DO???.":.63000.|
00002E10: 3D 36 94 07 99 22 93 57 45 27 56 45 20 46 49 58 |=6...".WE'VE FIX|
00002E20: 45 44 20 54 48 45 20 4C 49 4E 4B 53 20 41 54 20 |ED THE LINKS AT |
00002E30: 24 30 38 30 31 2F 24 30 38 30 32 2E 22 00 6C 36 |$0801/$0802.".l6|
00002E40: 9E 07 99 22 11 54 48 45 59 20 50 4F 49 4E 54 20 |...".THEY POINT |
00002E50: 54 4F 20 54 48 45 20 27 4E 45 58 54 27 20 4C 4F |TO THE 'NEXT' LO|
00002E60: 2D 42 59 54 45 20 4C 49 4E 4B 2E 22 00 9D 36 A8 |-BYTE LINK."..6.|
00002E70: 07 99 22 11 54 48 41 54 27 53 20 54 48 45 20 46 |..".THAT'S THE F|
00002E80: 49 52 53 54 20 4F 46 20 4F 55 52 20 27 32 20 54 |IRST OF OUR '2 T|
00002E90: 48 49 4E 47 53 27 20 44 4F 4E 45 2E 22 00 C7 36 |HINGS' DONE."..6|
00002EA0: B2 07 99 22 11 12 4E 4F 57 92 20 57 45 20 53 54 |..."..NOW. WE ST|
00002EB0: 4F 52 45 20 54 48 45 20 27 4E 45 58 54 27 20 4C |ORE THE 'NEXT' L|
00002EC0: 4F 2D 4C 49 4E 4B 22 00 F2 36 BC 07 99 22 11 41 |O-LINK"..6...".A|
00002ED0: 44 44 52 45 53 53 20 49 4E 54 4F 20 24 32 32 2F |DDRESS INTO $22/|
00002EE0: 24 32 33 20 41 4E 44 20 53 54 41 52 54 20 41 4C |$23 AND START AL|
00002EF0: 4C 22 00 1C 37 C6 07 99 22 11 4F 56 45 52 20 41 |L"..7...".OVER A|
00002F00: 47 41 49 4E 20 57 49 54 48 20 54 48 49 53 20 12 |GAIN WITH THIS .|
00002F10: 4E 45 57 20 42 41 53 45 92 21 21 22 00 4D 37 D0 |NEW BASE.!!".M7.|
00002F20: 07 99 22 11 28 41 54 20 4C 45 41 53 54 20 55 4E |..".(AT LEAST UN|
00002F30: 54 49 4C 20 57 45 20 52 55 4E 20 41 43 52 4F 53 |TIL WE RUN ACROS|
00002F40: 53 20 12 30 30 20 30 30 20 30 30 92 22 00 7C 37 |S .00 00 00.".|7|
00002F50: DA 07 99 22 11 53 49 47 4E 49 46 59 49 4E 47 20 |...".SIGNIFYING |
00002F60: 54 48 45 20 45 4E 44 2D 4F 46 2D 50 52 4F 47 52 |THE END-OF-PROGR|
00002F70: 41 4D 29 2E 22 3A 8D 36 33 30 30 30 00 A7 37 E4 |AM).":.63000..7.|
00002F80: 07 99 22 93 59 4F 55 20 4D 41 59 20 4E 4F 54 20 |..".YOU MAY NOT |
00002F90: 52 45 41 4C 49 5A 45 20 49 54 20 42 55 54 20 57 |REALIZE IT BUT W|
00002FA0: 45 20 48 41 56 45 22 00 D4 37 EE 07 99 22 11 54 |E HAVE"..7...".T|
00002FB0: 48 49 53 20 27 4E 45 57 20 42 41 53 45 27 20 41 |HIS 'NEW BASE' A|
00002FC0: 44 44 52 45 53 53 28 3D 54 48 45 20 41 44 44 52 |DDRESS(=THE ADDR|
00002FD0: 45 53 53 22 00 03 38 F8 07 99 22 11 4F 46 20 54 |ESS"..8...".OF T|
00002FE0: 48 45 20 27 4E 45 58 54 27 20 4C 4F 2D 4C 49 4E |HE 'NEXT' LO-LIN|
00002FF0: 4B 29 20 49 4E 20 12 58 92 20 41 4E 44 20 12 41 |K) IN .X. AND .A|
00003000: 92 2E 22 00 36 38 02 08 99 22 11 58 20 48 41 53 |..".68...".X HAS|
00003010: 20 54 48 45 20 4C 4F 2D 42 59 54 45 21 22 3A 99 | THE LO-BYTE!":.|
00003020: 22 11 41 20 48 41 53 20 54 48 45 20 48 49 2D 42 |".A HAS THE HI-B|
00003030: 59 54 45 21 21 22 00 5C 38 0C 08 4D 53 24 B2 22 |YTE!!".\8..MS$."|
00003040: 20 20 12 43 4C 45 56 45 52 21 92 20 20 22 3A 8D | .CLEVER!. ":.|
00003050: 36 33 30 30 30 3A 8D 36 33 31 30 30 00 8C 38 16 |63000:.63100..8.|
00003060: 08 99 22 93 4C 45 54 27 53 20 53 45 45 20 49 54 |..".LET'S SEE IT|
00003070: 20 41 4C 4C 2E 2E 50 41 59 20 41 54 54 45 4E 54 | ALL..PAY ATTENT|
00003080: 49 4F 4E 21 22 3A 8D 36 33 30 30 30 00 AC 38 17 |ION!":.63000..8.|
00003090: 08 99 22 93 2E 2C 20 42 34 42 36 20 41 35 20 32 |..".., B4B6 A5 2|
000030A0: 42 20 20 20 20 4C 44 41 20 24 32 42 00 D2 38 18 |B LDA $2B..8.|
000030B0: 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 42 |..63002:."., B4B|
000030C0: 38 20 41 34 20 32 43 20 20 20 20 4C 44 59 20 24 |8 A4 2C LDY $|
000030D0: 32 43 00 F8 38 19 08 8D 36 33 30 30 32 3A 99 22 |2C..8...63002:."|
000030E0: 2E 2C 20 42 34 42 41 20 38 35 20 32 32 20 20 20 |., B4BA 85 22 |
000030F0: 20 53 54 41 20 24 32 32 00 1E 39 1A 08 8D 36 33 | STA $22..9...63|
00003100: 30 30 32 3A 99 22 2E 2C 20 42 34 42 43 20 38 34 |002:."., B4BC 84|
00003110: 20 32 33 20 20 20 20 53 54 59 20 24 32 33 00 40 | 23 STY $23.@|
00003120: 39 1B 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 |9...63002:."., B|
00003130: 34 42 45 20 31 38 20 20 20 20 20 20 20 43 4C 43 |4BE 18 CLC|
00003140: 00 67 39 1C 08 8D 36 33 30 30 32 3A 99 22 2E 2C |.g9...63002:.".,|
00003150: 20 42 34 42 46 20 41 30 20 30 31 20 20 20 20 4C | B4BF A0 01 L|
00003160: 44 59 20 23 24 30 31 00 91 39 1D 08 8D 36 33 30 |DY #$01..9...630|
00003170: 30 32 3A 99 22 2E 2C 20 42 34 43 31 20 42 31 20 |02:."., B4C1 B1 |
00003180: 32 32 20 20 20 20 4C 44 41 20 28 24 32 32 29 2C |22 LDA ($22),|
00003190: 59 00 B9 39 1E 08 8D 36 33 30 30 32 3A 99 22 2E |Y..9...63002:.".|
000031A0: 2C 20 42 34 43 33 20 46 30 20 31 43 20 20 20 20 |, B4C3 F0 1C |
000031B0: 42 45 51 20 24 42 34 45 31 00 E0 39 1F 08 8D 36 |BEQ $B4E1..9...6|
000031C0: 33 30 30 32 3A 99 22 2E 2C 20 42 34 43 35 20 41 |3002:."., B4C5 A|
000031D0: 30 20 30 34 20 20 20 20 4C 44 59 20 23 24 30 34 |0 04 LDY #$04|
000031E0: 00 02 3A 20 08 8D 36 33 30 30 32 3A 99 22 2E 2C |..: ..63002:.".,|
000031F0: 20 42 34 43 37 20 43 38 20 20 20 20 20 20 20 49 | B4C7 C8 I|
00003200: 4E 59 00 2C 3A 21 08 8D 36 33 30 30 32 3A 99 22 |NY.,:!..63002:."|
00003210: 2E 2C 20 42 34 43 38 20 42 31 20 32 32 20 20 20 |., B4C8 B1 22 |
00003220: 20 4C 44 41 20 28 24 32 32 29 2C 59 00 54 3A 22 | LDA ($22),Y.T:"|
00003230: 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 43 |..63002:."., B4C|
00003240: 41 20 44 30 20 46 42 20 20 20 20 42 4E 45 20 24 |A D0 FB BNE $|
00003250: 42 34 43 37 00 76 3A 23 08 8D 36 33 30 30 32 3A |B4C7.v:#..63002:|
00003260: 99 22 2E 2C 20 42 34 43 43 20 43 38 20 20 20 20 |."., B4CC C8 |
00003270: 20 20 20 49 4E 59 00 98 3A 24 08 8D 36 33 30 30 | INY..:$..6300|
00003280: 32 3A 99 22 2E 2C 20 42 34 43 44 20 39 38 20 20 |2:."., B4CD 98 |
00003290: 20 20 20 20 20 54 59 41 00 BE 3A 25 08 8D 36 33 | TYA..:%..63|
000032A0: 30 30 32 3A 99 22 2E 2C 20 42 34 43 45 20 36 35 |002:."., B4CE 65|
000032B0: 20 32 32 20 20 20 20 41 44 43 20 24 32 32 00 E0 | 22 ADC $22..|
000032C0: 3A 26 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 |:&..63002:."., B|
000032D0: 34 44 30 20 41 41 20 20 20 20 20 20 20 54 41 58 |4D0 AA TAX|
000032E0: 00 07 3B 27 08 8D 36 33 30 30 32 3A 99 22 2E 2C |..;'..63002:.".,|
000032F0: 20 42 34 44 31 20 41 30 20 30 30 20 20 20 20 4C | B4D1 A0 00 L|
00003300: 44 59 20 23 24 30 30 00 31 3B 28 08 8D 36 33 30 |DY #$00.1;(..630|
00003310: 30 32 3A 99 22 2E 2C 20 42 34 44 33 20 39 31 20 |02:."., B4D3 91 |
00003320: 32 32 20 20 20 20 53 54 41 20 28 24 32 32 29 2C |22 STA ($22),|
00003330: 59 00 53 3B 29 08 8D 36 33 30 30 32 3A 99 22 2E |Y.S;)..63002:.".|
00003340: 2C 20 42 34 44 35 20 39 38 20 20 20 20 20 20 20 |, B4D5 98 |
00003350: 54 59 41 00 79 3B 2A 08 8D 36 33 30 30 32 3A 99 |TYA.y;*..63002:.|
00003360: 22 2E 2C 20 42 34 44 36 20 36 35 20 32 33 20 20 |"., B4D6 65 23 |
00003370: 20 20 41 44 43 20 24 32 33 00 9B 3B 34 08 8D 36 | ADC $23..;4..6|
00003380: 33 30 30 32 3A 99 22 2E 2C 20 42 34 44 38 20 43 |3002:."., B4D8 C|
00003390: 38 20 20 20 20 20 20 20 49 4E 59 00 C5 3B 35 08 |8 INY..;5.|
000033A0: 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 44 39 |.63002:."., B4D9|
000033B0: 20 39 31 20 32 32 20 20 20 20 53 54 41 20 28 24 | 91 22 STA ($|
000033C0: 32 32 29 2C 59 00 EF 3B 36 08 8D 36 33 30 30 32 |22),Y..;6..63002|
000033D0: 3A 99 22 2E 2C 20 42 34 44 42 20 38 36 20 32 32 |:."., B4DB 86 22|
000033E0: 20 20 20 20 12 53 54 58 20 24 32 32 20 20 22 00 | .STX $22 ".|
000033F0: 19 3C 37 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 |.<7..63002:."., |
00003400: 42 34 44 44 20 38 35 20 32 33 20 20 20 20 12 53 |B4DD 85 23 .S|
00003410: 54 41 20 24 32 33 20 20 22 00 50 3C 38 08 8D 36 |TA $23 ".P<8..6|
00003420: 33 30 30 32 3A 99 22 2E 2C 20 42 34 44 46 20 39 |3002:."., B4DF 9|
00003430: 30 20 44 45 20 20 20 20 12 42 43 43 20 24 42 34 |0 DE .BCC $B4|
00003440: 42 46 92 5F 42 52 41 4E 43 48 20 42 41 43 4B 22 |BF._BRANCH BACK"|
00003450: 00 7B 3C 39 08 99 22 20 20 20 20 20 20 20 20 20 |.{<9.." |
00003460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003470: 20 20 54 4F 20 24 42 34 42 46 22 00 A7 3C 3A 08 | TO $B4BF"..<:.|
00003480: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00003490: 20 20 20 20 20 20 20 20 20 20 20 20 20 26 20 52 | & R|
000034A0: 45 50 45 41 54 21 22 00 D5 3C 87 13 99 3A 8D 36 |EPEAT!"..<...:.6|
000034B0: 33 30 30 30 3A 99 22 93 22 3A 4D 53 24 B2 22 12 |3000:.".":MS$.".|
000034C0: 41 55 20 52 45 56 4F 49 52 21 92 22 3A 8D 36 33 |AU REVOIR!.":.63|
000034D0: 31 30 30 3A 80 00 F6 3C 58 98 99 22 13 22 3B 3A |100:...<X..".";:|
000034E0: 81 49 B2 31 A4 31 37 3A 99 43 4C 24 3A 82 3A 99 |.I.1.17:.CL$:.:.|
000034F0: 22 13 22 3B 3A 8E 00 20 3D A2 9C 97 41 28 30 29 |".";:.. =...A(0)|
00003500: 2C 33 32 3A 81 54 54 B2 31 A4 50 50 3A 82 3A 81 |,32:.TT.1.PP:.:.|
00003510: 49 B2 30 A4 36 3A 97 41 28 49 AA 31 29 2C 33 32 |I.0.6:.A(I.1),32|
00003520: 00 54 3D A3 9C 97 41 28 49 29 2C C5 28 CA 28 4E |.T=...A(I),.(.(N|
00003530: 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A 81 54 54 |$,I.1,1)).48:.TT|
00003540: B2 31 A4 50 50 3A 82 3A 82 3A 97 41 28 37 29 2C |.1.PP:.:.:.A(7),|
00003550: 34 38 3A 8E 00 74 3D AE 9C 81 49 B2 30 A4 37 3A |48:..t=...I.0.7:|
00003560: 97 41 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 |.A(I),160:.TT.1.|
00003570: 50 50 3A 82 00 94 3D AF 9C 97 41 28 49 29 2C C5 |PP:...=...A(I),.|
00003580: 28 CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 |(.(N$,I.1,1)).48|
00003590: 3A 82 3A 8E 00 B4 3D B8 9C 81 49 B2 30 A4 37 3A |:.:...=...I.0.7:|
000035A0: 97 50 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 |.P(I),160:.TT.1.|
000035B0: 50 50 3A 82 00 D4 3D B9 9C 97 50 28 49 29 2C C5 |PP:...=...P(I),.|
000035C0: 28 CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 |(.(N$,I.1,1)).48|
000035D0: 3A 82 3A 8E 00 F4 3D C2 9C 81 49 B2 30 A4 37 3A |:.:...=...I.0.7:|
000035E0: 97 58 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 |.X(I),160:.TT.1.|
000035F0: 50 50 3A 82 00 14 3E C3 9C 97 58 28 49 29 2C C5 |PP:...>...X(I),.|
00003600: 28 CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 |(.(N$,I.1,1)).48|
00003610: 3A 82 3A 8E 00 34 3E CC 9C 81 49 B2 30 A4 37 3A |:.:..4>...I.0.7:|
00003620: 97 59 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 |.Y(I),160:.TT.1.|
00003630: 50 50 3A 82 00 54 3E CD 9C 97 59 28 49 29 2C C5 |PP:..T>...Y(I),.|
00003640: 28 CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 |(.(N$,I.1,1)).48|
00003650: 3A 82 3A 8E 00 74 3E E0 9C 81 49 B2 30 A4 37 3A |:.:..t>...I.0.7:|
00003660: 97 4D 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 |.M(I),160:.TT.1.|
00003670: 50 50 3A 82 00 94 3E E1 9C 97 4D 28 49 29 2C C5 |PP:...>...M(I),.|
00003680: 28 CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 |(.(N$,I.1,1)).48|
00003690: 3A 82 3A 8E 00 B4 3E A0 A0 81 49 B2 30 A4 37 3A |:.:...>...I.0.7:|
000036A0: 97 50 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 |.P(I),160:.TT.1.|
000036B0: 50 50 3A 82 00 CA 3E A1 A0 97 50 28 49 29 2C C2 |PP:...>...P(I),.|
000036C0: 28 41 28 49 29 29 3A 82 3A 8E 00 EA 3E AA A0 81 |(A(I)):.:...>...|
000036D0: 49 B2 30 A4 37 3A 97 58 28 49 29 2C 31 36 30 3A |I.0.7:.X(I),160:|
000036E0: 81 54 54 B2 31 A4 50 50 3A 82 00 00 3F AB A0 97 |.TT.1.PP:...?...|
000036F0: 58 28 49 29 2C C2 28 41 28 49 29 29 3A 82 3A 8E |X(I),.(A(I)):.:.|
00003700: 00 20 3F B4 A0 81 49 B2 30 A4 37 3A 97 59 28 49 |. ?...I.0.7:.Y(I|
00003710: 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 |),160:.TT.1.PP:.|
00003720: 00 36 3F B5 A0 97 59 28 49 29 2C C2 28 41 28 49 |.6?...Y(I),.(A(I|
00003730: 29 29 3A 82 3A 8E 00 56 3F C8 A0 81 49 B2 30 A4 |)):.:..V?...I.0.|
00003740: 37 3A 97 4D 28 49 29 2C 31 36 30 3A 81 54 54 B2 |7:.M(I),160:.TT.|
00003750: 31 A4 50 50 3A 82 00 6C 3F C9 A0 97 4D 28 49 29 |1.PP:..l?...M(I)|
00003760: 2C C2 28 41 28 49 29 29 3A 82 3A 8E 00 8C 3F 7C |,.(A(I)):.:...?||
00003770: A1 81 49 B2 30 A4 37 3A 97 41 28 49 29 2C 31 36 |..I.0.7:.A(I),16|
00003780: 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 A2 3F 7D |0:.TT.1.PP:...?}|
00003790: A1 97 41 28 49 29 2C C2 28 58 28 49 29 29 3A 82 |..A(I),.(X(I)):.|
000037A0: 3A 8E 00 C2 3F 90 A1 81 49 B2 30 A4 37 3A 97 4D |:...?...I.0.7:.M|
000037B0: 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 |(I),160:.TT.1.PP|
000037C0: 3A 82 00 D8 3F 91 A1 97 4D 28 49 29 2C C2 28 58 |:...?...M(I),.(X|
000037D0: 28 49 29 29 3A 82 3A 8E 00 F8 3F C2 A1 81 49 B2 |(I)):.:...?...I.|
000037E0: 30 A4 37 3A 97 41 28 49 29 2C 31 36 30 3A 81 54 |0.7:.A(I),160:.T|
000037F0: 54 B2 31 A4 50 50 3A 82 00 0E 40 C3 A1 97 41 28 |T.1.PP:...@...A(|
00003800: 49 29 2C C2 28 59 28 49 29 29 3A 82 3A 8E 00 2E |I),.(Y(I)):.:...|
00003810: 40 F4 A1 81 49 B2 30 A4 37 3A 97 4D 28 49 29 2C |@...I.0.7:.M(I),|
00003820: 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 44 |160:.TT.1.PP:..D|
00003830: 40 F5 A1 97 4D 28 49 29 2C C2 28 59 28 49 29 29 |@...M(I),.(Y(I))|
00003840: 3A 82 3A 8E 00 55 40 60 EA 8F 20 49 4E 49 54 49 |:.:..U@`.. INITI|
00003850: 41 4C 49 5A 45 00 77 40 61 EA 42 54 24 B2 22 13 |ALIZE.w@a.BT$.".|
00003860: 22 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 |":.I.1.24:BT$.BT|
00003870: 24 AA 22 11 22 3A 82 00 C1 40 62 EA 50 54 24 B2 |$.".":...@b.PT$.|
00003880: 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D |"...............|
00003890: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D |................|
000038A0: 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
000038B0: 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD |................|
000038C0: 22 00 09 41 63 EA 50 54 24 B2 50 54 24 AA 22 11 |"..Ac.PT$.PT$.".|
000038D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 |................|
000038E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D |................|
000038F0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D |...........=====|
00003900: 3D 3D 3D 3D 3D 3D 3D A7 22 00 45 41 64 EA 50 54 |=======.".EAd.PT|
00003910: 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D |$.PT$.".........|
00003920: 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 |................|
00003930: A3 A3 D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003940: 9D 9D 9D 9D 22 00 7C 41 65 EA 50 54 24 B2 42 54 |....".|Ae.PT$.BT|
00003950: 24 AA 22 91 91 91 91 91 91 1D 1D 1D 1D 1D 1D 1D |$.".............|
00003960: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003970: 1D 1D 1D 22 AA 50 54 24 AA 22 90 22 00 AC 41 67 |...".PT$."."..Ag|
00003980: EA 4D 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.ML$."..........|
00003990: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000039A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 C7 41 68 |..........."..Ah|
000039B0: EA 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 3A |.WD.40:CRT.1024:|
000039C0: 99 C7 28 31 34 32 29 00 EB 41 69 EA 57 32 B2 57 |..(142)..Ai.W2.W|
000039D0: 44 AD 32 3A 57 33 B2 57 44 AB 31 3A 57 31 24 B2 |D.2:W3.WD.1:W1$.|
000039E0: CA 28 C4 28 57 44 29 2C 32 29 3A 00 0D 42 6A EA |.(.(WD),2):..Bj.|
000039F0: 57 32 24 B2 CA 28 C4 28 57 32 29 2C 32 29 3A 57 |W2$..(.(W2),2):W|
00003A00: 33 24 B2 CA 28 C4 28 57 33 29 2C 32 29 00 41 42 |3$..(.(W3),2).AB|
00003A10: 73 EA 53 44 24 B2 22 13 11 11 11 11 11 11 11 11 |s.SD$.".........|
00003A20: 11 22 3A 43 4C 24 B2 22 22 3A 81 49 B2 31 A4 57 |.":CL$."":.I.1.W|
00003A30: 44 AB 31 3A 43 4C 24 B2 43 4C 24 AA 22 20 22 3A |D.1:CL$.CL$." ":|
00003A40: 82 00 47 42 74 EA 8E 00 54 42 18 F6 99 42 54 24 |..GBt...TB...BT$|
00003A50: 43 4C 24 3B 00 74 42 19 F6 99 42 54 24 22 12 52 |CL$;.tB...BT$".R|
00003A60: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
00003A70: 55 45 22 3B 00 8A 42 1A F6 A1 5A 24 3A 8B 5A 24 |UE";..B...Z$:.Z$|
00003A80: B3 B1 22 22 A7 36 33 30 30 32 00 9F 42 1B F6 A1 |.."".63002..B...|
00003A90: 5A 24 3A 8B 5A 24 B2 22 22 A7 36 33 30 30 33 00 |Z$:.Z$."".63003.|
00003AA0: A5 42 1C F6 8E 00 BD 42 22 F6 99 42 54 24 43 4C |.B.....B"..BT$CL|
00003AB0: 24 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 00 FD 42 |$;:.TT.1.50:...B|
00003AC0: 23 F6 99 42 54 24 22 A6 A6 A6 A6 A6 A6 A6 A6 12 |#..BT$".........|
00003AD0: 52 45 54 55 52 4E 20 54 4F 20 53 45 45 20 49 54 |RETURN TO SEE IT|
00003AE0: 20 48 41 50 50 45 4E 92 A6 A6 A6 A6 A6 A6 A6 A6 | HAPPEN.........|
00003AF0: 22 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 00 13 43 |";:.TT.1.50:...C|
00003B00: 24 F6 A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 36 33 |$..Z$:.Z$.."".63|
00003B10: 30 31 32 00 28 43 25 F6 A1 5A 24 3A 8B 5A 24 B2 |012.(C%..Z$:.Z$.|
00003B20: 22 22 A7 36 33 30 31 33 00 2E 43 26 F6 8E 00 42 |"".63013..C&...B|
00003B30: 43 7C F6 81 54 B2 31 A4 35 3A 99 50 54 24 4D 53 |C|..T.1.5:.PT$MS|
00003B40: 24 3B 00 58 43 7D F6 99 50 54 24 22 20 20 20 20 |$;.XC}..PT$" |
00003B50: 20 20 20 20 20 20 22 3B 00 67 43 7E F6 99 50 54 | ";.gC~..PT|
00003B60: 24 4D 53 24 3B 3A 82 00 6D 43 7F F6 8E 00 78 43 |$MS$;:..mC....xC|
00003B70: E0 F6 8D 36 33 30 30 30 00 99 43 E1 F6 99 53 44 |...63000..C...SD|
00003B80: 24 3B 3A 81 54 B2 31 A4 31 35 3A 99 43 4C 24 3A |$;:.T.1.15:.CL$:|
00003B90: 82 3A 99 53 44 24 3B 3A 8E 00 AD 43 44 F7 8D 36 |.:.SD$;:...CD..6|
00003BA0: 33 31 30 30 3A 8D 36 33 30 31 30 3A 8E 00 CD 43 |3100:.63010:...C|
00003BB0: A8 F7 99 22 13 22 3B 3A 81 49 B2 31 A4 35 3A 99 |...".";:.I.1.5:.|
00003BC0: 43 4C 24 3A 82 3A 99 22 13 22 3B 3A 8E 00 E3 43 |CL$:.:.".";:...C|
00003BD0: FF F9 8D 36 30 30 30 30 3A 99 22 93 22 3A 89 32 |...60000:.".":.2|
00003BE0: 30 32 30 00 00 00 |020... |
..!...."....... PONZO*83*WATERLOO./...."
........L....53281,15:.53280,12:.".".P..
..". ..C64 TUTOR-6. ....".
......................................."
......". .. MORE 6510 MACHINE LANGUA
GE .. .":MS$." WELCOME! "......".....
...................................."...
#..60000:.63100:.63000.\.(..".LET'S LOOK
AT HOW BASIC ............."...2..".
CLEARS THE SCREEN "...<..".WE'LL .
DISASSEMBLE. THE MACHINE LANGUAGE".T.F..
".(ASSUMED TO BE AT $E06B)."...P.."..IT'
S HANDY IF YOU HAVE AN EXTENDED".9.Z..".
MONITOR LIKE J.BUTTERFIELD'S .SUPERMON.!
!":.63000.Z.D..".., E068 A9 20 LDA #$
20.}.E.."., E06A 9D 00 04 STA $0400,X. .
F.."., E06D 9D 00 05 STA $0500,X.C.G..".
, E070 9D 00 06 STA $0600,X...H.."., E07
3 9D 00 07 STA $0700,X...I.."., E076 CA
DEX.*.J.."., E077 D0 F1 BNE $E0
6A":.63000.P.N..".., E068 A9 20 .LDA
#$20 ".U.O.."., E06A 9D 00 04 .STA $04
00,X"...P.."., E06D 9D 00 05 .STA $0500,
X"...Q.."., E070 9D 00 06 .STA $0600,X".
..R.."., E073 9D 00 07 .STA $0700,X"...S
.."., E076 CA .DEX "...T.."
., E077 D0 F1 .BNE $E06A ".F.X..".QR
ECOGNIZE THE .ASSEMBLER. INSTRUCTIONS?":
.63000......".., E068 .A9 20 .LDA #$2
0 "......"., E06A .9D 00 04 .STA $0400
,X".Y...."., E06D .9D 00 05 .STA $0500,X
"......"., E070 .9D 00 06 .STA $0600,X".
%...."., E073 .9D 00 07 .STA $0700,X".K.
..."., E076 .CA .DEX ".Q...
."., E077 .D0 F1 .BNE $E06A "......"
....QTHESE ARE THE HEX BYTES THAT ARE
".Q...." ACTUALLY IN MEMORY.
":.63000... ..".., .E068 .A9 20 LDA
#$20......"., .E06A .9D 00 04 STA $0400,
X.>...."., .E06D .9D 00 05 STA $0500,X.C
...."., .E070 .9D 00 06 STA $0600,X.....
."., .E073 .9D 00 07 STA $0700,X......".
, .E076 .CA DEX.H...."., .E077 .D0
F1 BNE $E06A......"........QTHESE AR
E THE LOCATIONS IN MEMORY".%...." WHICH
CONTAIN THE M-L CODE.":.63000.A...MS$."
ONWARD ":.63100.H....".NOW LET'S LOOK
AT HOW A BASIC "......"..NEW. IS DONE. W
E'LL PRETEND THE"......".CODE IS FROM $B
5D4 TO $B5E8."......".RECALL THAT THE FI
RST 3 BYTES"......".AT $0800/$0801/$0802
MUST BE .00 00 00..".9....".BUT $0800 A
LWAYS HAS .00. ANYWAY SO".E....".WE JUST
FILL $0801/$0802 WITH .00.."......".QTH
E .START OF BASIC. IS KEPT IN $2B/$2C.".
E.A..".QTHE .END OF BASIC., KEPT IN $2D/
$2E,"...B..".MUST BE JUST 2 BYTES PAST T
HE .START.."...C..".LET'S SEE HOW IT'S D
ONE..":.63000.-.D..".......";.[...."....
...., B5D4 A9 00 .LDA #$00 ._".....
."., B5D6 A8 .TAY ._"......
63400:."BOTH .A. AND .Y. ARE FILLED ".S.
...".WITH #$.00...TO START.":.63000.....
.".........., B5D7 91 2B .STA ($2B),Y
... .. .._".3....63400:.".SINCE .$2B. CO
NTAINS THE".^....".THE START OF BASIC,(U
SUALLY $0801)"......".#$.00. IS STORED I
N ($2B)+Y.":.63000.C."..63400:."THEN .IN
Y. GETS READY TO STORE #$.00. INTO"...,.
.".THE SECOND BYTE OF 'BASIC' AT (USUALL
Y)"...6..".$0802.".>.@.."..........., B5
D9 C8 .INY .. .._":.63000.T
.J.."............, B5DA 91 2B .STA ($
2B),Y.. .._"...T..63400:."THERE SHE GOES
!":.63000.E.^..63400:."THE .END. OF BASI
C NOW HAS TO"...H..".BE CHANGED TO READ
.$0803...AND .END"...R..".IS STORED AT .
$2D/$2E..":.63000.P.S.."............., B
5DC A5 2B .LDA $2B .. .._".|.|..63
400:."SO WE .LDA $2B. GETTING READY"....
..".TO ADD 2..":.63000.H....63400:."BUT
REMEMBER TO .CLC. FIRST!":.63000......".
............., B5DE 18 .CLC
.. .._":.63000.@...."..............., B
5DF 69 02 .ADC #$02 .. .._".|....63
400:."SEE..WE ADD 2.":.".THEN WE STORE T
HIS LO-BYTE"......".INTO $2D.":.63000.V.
B.."................, B5E1 85 2D .STA
$2D .. .._":.63000...L..63400:."NOW
WE MUST FIX UP THE HI-BYTE AT $2E.".=.V.
.".WE .LDA $2C. WHICH WILL GO TO $2E.":.
63000....."................., B5E3 A5 2
C .LDA $2C .. .._":.63000......634
00:."BUT, JUST IN CASE THERE'S A .CARRY.
"......".LEFT OVER FROM THE .ADC #$02. W
E..":.63000.&....".................., B5
E5 69 00 .ADC #$00 .. .._":.63000.Y
....63400:."NOW........ WE CAN STICK THE
HI-BYTE".R....".INTO $2E.":.63000......
"..................., B5E7 85 2E .STA
$2E .. .._":.63000...&..63400:MS$.".
NICE!NICE!.":.63100:.63000...0..".NOW LE
T'S LOOK AT HOW .BASIC CHAINING.".:.:.."
.MIGHT BE ACCOMPLISHED IN BASIC .".I.;..
"..(THE STATEMENTS IN BASIC ARE .LINKED.
"...<..".AND THESE LINKS MUST BE RECREAT
ED"...=..".EACH TIME WE INSERT OR MODIFY
.".V.>..".THAT'S .CHAINING..)"...D.."..R
ECALL THAT BASIC STATEMENTS ARE STORED".
?.N..".FROM $0801 IN THE FOLLOWING FORMA
T:":.63000:.".".V.X.BA$."...............
............ ..........".G(13)...B.Z$.".
. . . . .--. . .".
G(13)...L.BA$.BA$.Z$.Z$.Z$."............
............... ..........".G(13).".....
".6.V..BT$"......."BA$."LINK.LINK.STMT.S
TMT.BASIC...ZERO.LINK".D....".BYTE.BYTE.
NUM..NUM..TEXT ...BYTE.BYTE"......". LO
. HI . LO . HI .AREA....=END. LO".Y...M1
$.BT$.".. .^^^^ ^^^^.":.M1$:.".QTHIS IS
THE ADDRESS OF THE .NEXT"......".BASIC S
TATEMENT.":.63000.%...M2$.BT$."..
.^^^^ ^^^^.":.M2$.R....".....QTHIS I
S BASIC STATEMENT NUMBER:".W....".LO-BYT
E THEN HI-BYTE.":.63000...F.M3$.BT$."..
.^^^^-^.":.M3$...P..
".........QTHIS IS THE BASIC TEXT ITSELF
.":.63000.....M4$.BT$."..
.^^^^.":.M4$.F....".......
....QEND-OF-STATEMENT.":.63000.....M5$.B
T$."..
.^^^^.":.M5$......"..............QTHE NE
XT LINK.":.63000.C....M5$".... ".....
.39000:."QWE WILL LOOK IN $2B/$2C TO"...
...".FIND THE START OF BASIC (USUALLY $0
801)".A. ..".POINTING TO THE FIRST LINK
(LO-BYTE).":.M1$".... ":.63000...*.."
.......QTHEN WE WILL MARCH THROUGH TO TH
E END".D.4..".OF THE FIRST BASIC STATEME
NT....":.M4$...>..63000:."...........AND
STORE THE ADDRESS OF THE .NEXT. LINK.."
.G.H..M5$:.63000:.".............INTO THE
LINKS AT $0801/$0802.".F.R..M5$"....
":.M1$:.63000...\..39000:.M1$".... "
...F..".QIN FACT, ONCE AT THE LO-BYTE OF
THE"...P..".LINK WE CAN JUMP AHEAD 5 BY
TES BEFORE"...Z..".WE TEST FOR THE .00.
BYTE MARKING THE".<....".END OF THE CURR
ENT BASIC STATEMENT.":.63000.K....T.1.20
0:.:.M2$:.T.1.200:.:.M3$:.T.1.200:..{...
.M4$:.63000......".., B4B6 A5 2B .LDA
$2B ".F...."., B4B8 A4 2C .LDY $2
C "......"., B4BA 85 22 .STA $22
".. ..."., B4BC 84 23 .STY $23 "
.? ...".WE GET THE START-OF-BASIC ADDRES
S FROM".H ...".$2B/$2C AND STORE IT IN $
22/$23.".. ...".WE WILL BE MODIFYING THI
S ADDRESS AND".C ...".WILL DO THE MODIFY
ING TO THE COPY AT".T J..".$22/$23."..!T
..".$22/$23 WILL HOLD THE ADDRESS OF THE
".,!..."..LO-BYTE LINK. AS WE MARCH THRO
UGH".J!...".THE BASIC STATEMENTS.".W!...
".TO START WITH IT HOLDS $0801.":.63000.
.!...".., B4BE 18 .CLC ".E!.
.."..WE DO THIS .CLC. IN PREPARATION"..!
...".FOR AN .ADC. LATER ON..":.63000..".
..".., B4BF A0 01 .LDY #$01 ".7"$..
"., B4C1 B1 22 .LDA ($22),Y".C"..."..
.NOW THE A-REGISTER HOLDS THE BYTE".|"8.
.".STORED AT $0802.".."B..".THAT'S THE .
HI-BYTE LINK. TO THE".C"L..".NEXT BASIC
STATEMENT.".."`..".IF THIS IS .00. THEN
WE MUST BE AT"..#J..".END OF THE PROGRAM
!".?#T..".(REMEMBER..END-OF-PROGRAM HAS
.00. .00. .00.".Q#~..".WHICH IMPLIES A .
00. HI-BYTE LINK.":.63000..#..."...., B4
C3 F0 1C .BEQ $B4E1 ".N#...T.1.20:.C
L$:.:."........SO WE TEST IT FOR ZERO"..
#...".AND .BEQ. TO $B4E1 WHICH IS AN EXI
T"..$...".FROM THIS ROUTINE!":.63000.<$.
..".., B4B6 A5 2B LDA $2B.[$..."., B4
B8 A4 2C LDY $2C.Z$..."., B4BA 85 22
STA $22..$..."., B4BC 84 23 STY $2
3..$..."., B4BE 18 CLC.T$..."., B4
BF A0 01 LDY #$01..$..."., B4C1 B1 22
LDA ($22),Y..%..."., B4C3 F0 1C B
EQ $B4E1.<%...".THAT'S WHAT WE HAVE SO F
AR.".J%D..".NOW WE'RE GOING TO MOVE AHEA
D 5 BYTES"..%N..".AND START CHECKING EAC
H BYTE FROM THERE".H%X..".FOR THE .00. E
ND-OF-STATEMENT.":.63000..%...".., B4C5
A0 04 .LDY #$04 "..&..."., B4C7 C8
.INY ".8&..."., B4C8 B1 22
.LDA ($22),Y".]&..."., B4CA D0 FB
.BNE $B4C7 "..&...".HERE WE .LDY #$04.
THEN .INY. WHICH"..&...".MAKES .$(22),Y.
5 BYTES PAST OUR 'BASE'".X&...".AT THE
.LO-BYTE LINK.."..'(..".WE CHECK THIS BY
TE FOR .00., TO SEE"..'<..".IF IT'S THE
END-OF-STATEMENT, AND"._'F.."..B.RANCH I
F .N.OT .E.QUAL TO ZERO TO THE"..'P.."..
INY. INSTRUCTION. FROM NOW ON WE MOVE"..
'Z..".A BYTE AT A TIME, LOOKING FOR .00.
,"..'D..".AND STAY IN THIS LOOP UNTIL WE
DO!":.63000..(N..".EVENTUALLY WE FIND T
HE END-OF-STATEMENT".J(X..".AND MUST NOW
DETERMINE THE ADDRESS OF".|(...".OF THE
'NEXT'.......... . .LO-BYTE LINK.."..(.
..".TWO THINGS ARE DONE WITH THIS ADDRES
S.".V(...".1:IT WILL BE STORED IN THE EA
RLIER"..( .." LINKS (ORIGINALLY $0801/$
0802).".&)...".2:OUR 'BASE' (KEPT IN $22
/$23)".Q)..." ORIGINALLY WAS THE LINK A
T $0801."..)..." $22/$23 WILL BE CHANGE
D TO POINT":." TO THIS 'NEXT' LINK."..)
C..".AT THE MOMENT WE'RE (Y) BYTES PAST"
..)D..".THE ADDRESS IN $22/$23.".!*H..".
...LET'S FORGE AHEAD....":MS$.".GO!GO!GO
!.":.63000:.63100.G*R..".., B4CC C8
.INY ".U*...SD$".INY. ADVANCES
1 BYTE PAST THE .00."..*...".END-OF-STAT
EMENT TO THE 'NEXT' .LO-LINK..".R*...".N
OW .($22),Y. POINTS TO THE 'NEXT'"..*...
"..LO-LINK. AND WE DO OUR '2 THINGS'". +
...".WITH THIS ADDRESS..":.63000.F+...".
.., B4CD 98 TYA ".J+...".,
B4CE 65 22 ADC $22 "..+..."., B4D0
AA TAX "..+..."., B4D1 A0
00 LDY #$00 ".V+..."., B4D3 91 22
STA ($22),Y"..+...SD$;:.T.1.10:.CL$:..
!,...SD$"QWE .ADC. THE ADDRESS AT .$22.
TO .Y...".Q,".."BUT .ADC. ONLY WORKS WIT
H THE A-REGISTER"..,,.."SO WE .TYA. FIRS
T THEN.......... .ADC $22..":.63000..,-.
."..., B4CD 98 .TYA "..,...
"., B4CE 65 22 .ADC $22 ":.63000..
-6..SD$"...QNOW .A. CONTAINS THE LO-BYTE
OF THE".@-@.."NEW 'BASE' ADDRESS=THE 'N
EXT' .LO-LINK..".O-E.."WE SAVE THIS MAGI
C BYTE IN 'X'..":.63000..-F.."....., B4D
0 AA .TAX ":.63000.T-J..SD$
"......QTHEN PUT IT INTO $0801 WHICH IS
THE"..-T.."ADDRESS CURRENTLY HELD IN $22
/$23.".).^.."WE DO THIS WITH .STA. INTO
.($22),0".V.C.."WHICH REQUIRES 'Y=0' SO
WE .LDY #$00."...H.."THEN.......... .STA
($22),Y.!":.63000...I.."......, B4D1 A0
00 .LDY #$00 ".X.J.."., B4D3 91 22
.STA ($22),Y":.63000...R..SD$;:.I.1.
15:.CL$:.../W.MS$.".GO!GO!GO!.":.63100.'
/|..SD$;:.I.1.15:.CL$:..R/}.."........,
B4D5 98 TYA ".W/~.."., B4D6
65 23 ADC $23 "../.."., B4D8 C8
INY "../..."., B4D9 91 22
STA ($22),Y"../...SD$"......WE HAVE
THE LO-LINK FIXED UP."..0...".NOW FOR TH
E HI-LINK.":.63000.20...SD$"......";:.I.
1.8:.CL$:.._0...SD$"....QWE CLEAR THE A-
REGISTER TO 00"..0...".WITHOUT. AFFECTIN
G ANY CARRY "..0..."LEFT OVER FROM THE E
ARLIER .ADC $22..":.63000..0..."........
, B4D5 98 .TYA ":.63000..1B
..SD$".......QTHEN WE .ADC $23.".61L.."A
DDING THE CARRY BIT (IF ANY!)".^1V.."TO
THE HI-BYTE OF OUR NEW 'BASE'"..1..."ADD
RESS IN $22/$23-WHICH ALWAYS"..1..."POIN
TS TO THE LO-LINK.":.63000..1...".......
.., B4D6 65 20 .ADC $23 ":.63000..
1...SD$"......";:.I.1.8:.CL$:..,2...SD$"
....QWE NOW HAVE THE HI-BYTE OF OUR".R2.
.."NEW LO-LINK ADDRESS IN 'A' AND".X2...
"WE NEED TO STUFF IT INTO $0802"..2&.."W
HICH IS 1 BYTE PAST $0801 AND".H20.."$08
01 IS HELD IN $22/$23!!!":.63000..2:.MS$
." . OUCH!! .":.63100..3;.."..........,
B4D8 C8 .INY ".?3<.."., B4D
9 91 22 .STA ($22),Y":.63000._3B.."..
, B4B6 A5 2B LDA $2B.~3C.."., B4B8 A4
2C LDY $2C..3D.."., B4BA 85 22 ST
A $22..3E.."., B4BC 84 23 STY $23.W3F
.."., B4BE 18 CLC..3G.."., B4BF A0
01 LDY #$01..4H.."., B4C1 B1 22 L
DA ($22),Y.;4I.."., B4C3 F0 1C BEQ $B
4E1.[4J.."., B4C5 A0 04 LDY #$04.V4K.
."., B4C7 C8 INY..4L.."., B4C8 B1
22 LDA ($22),Y..4M.."., B4CA D0 FB
BNE $B4C7.U4N.."., B4CC C8 INY..4
O.."., B4CD 98 TYA..5P.."., B4CE 6
5 22 ADC $22.*5Q.."., B4D0 AA T
AX.J5R.."., B4D1 A0 00 LDY #$00.M5S..
"., B4D3 91 22 STA ($22),Y..5T.."., B
4D5 98 TYA..5U.."., B4D6 65 23
ADC $23.B5V.."., B4D8 C8 INY..5...
"., B4D9 91 22 STA ($22),Y..6...BT$".
..WHAT'S LEFT TO DO???.":.63000.=6...".W
E'VE FIXED THE LINKS AT $0801/$0802.".L6
...".THEY POINT TO THE 'NEXT' LO-BYTE LI
NK."..6...".THAT'S THE FIRST OF OUR '2 T
HINGS' DONE.".G6..."..NOW. WE STORE THE
'NEXT' LO-LINK"..6...".ADDRESS INTO $22/
$23 AND START ALL"..7F..".OVER AGAIN WIT
H THIS .NEW BASE.!!".M7P..".(AT LEAST UN
TIL WE RUN ACROSS .00 00 00.".|7Z..".SIG
NIFYING THE END-OF-PROGRAM).":.63000..7.
..".YOU MAY NOT REALIZE IT BUT WE HAVE".
T7...".THIS 'NEW BASE' ADDRESS(=THE ADDR
ESS"..8...".OF THE 'NEXT' LO-LINK) IN .X
. AND .A..".68...".X HAS THE LO-BYTE!":.
".A HAS THE HI-BYTE!!".\8..MS$." .CLEVE
R!. ":.63000:.63100..8...".LET'S SEE IT
ALL..PAY ATTENTION!":.63000..8...".., B
4B6 A5 2B LDA $2B.R8...63002:."., B4B
8 A4 2C LDY $2C..8...63002:."., B4BA
85 22 STA $22..9...63002:."., B4BC 84
23 STY $23.@9...63002:."., B4BE 18
CLC.G9...63002:."., B4BF A0 01 L
DY #$01..9...63002:."., B4C1 B1 22 LD
A ($22),Y..9...63002:."., B4C3 F0 1C
BEQ $B4E1..9...63002:."., B4C5 A0 04
LDY #$04..: ..63002:."., B4C7 C8 I
NY.,:!..63002:."., B4C8 B1 22 LDA ($2
2),Y.T:"..63002:."., B4CA D0 FB BNE $
B4C7.V:#..63002:."., B4CC C8 INY..
:$..63002:."., B4CD 98 TYA..:%..63
002:."., B4CE 65 22 ADC $22..:&..6300
2:."., B4D0 AA TAX..;'..63002:.".,
B4D1 A0 00 LDY #$00.1;(..63002:.".,
B4D3 91 22 STA ($22),Y.S;)..63002:.".
, B4D5 98 TYA.Y;*..63002:."., B4D6
65 23 ADC $23..;4..63002:."., B4D8 C
8 INY.E;5..63002:."., B4D9 91 22
STA ($22),Y..;6..63002:."., B4DB 86 22
.STX $22 "..<7..63002:."., B4DD 85
23 .STA $23 ".P<8..63002:."., B4DF 9
0 DE .BCC $B4BF._BRANCH BACK".{<9.."
TO $B4BF"..<:.
." & REPEAT!".
U<...:.63000:.".":MS$.".AU REVOIR!.":.63
100:...<X..".";:.I.1.17:.CL$:.:.".";:..
=...A(0),32:.TT.1.PP:.:.I.0.6:.A(I.1),32
.T=...A(I),E(J(N$,I.1,1)).48:.TT.1.PP:.:
.:.A(7),48:..T=...I.0.7:.A(I),160:.TT.1.
PP:...=...A(I),E(J(N$,I.1,1)).48:.:...=.
..I.0.7:.P(I),160:.TT.1.PP:..T=...P(I),E
(J(N$,I.1,1)).48:.:...=B..I.0.7:.X(I),16
0:.TT.1.PP:...>C..X(I),E(J(N$,I.1,1)).48
:.:..4>L..I.0.7:.Y(I),160:.TT.1.PP:..T>M
..Y(I),E(J(N$,I.1,1)).48:.:..T>...I.0.7:
.M(I),160:.TT.1.PP:...>...M(I),E(J(N$,I.
1,1)).48:.:...> .I.0.7:.P(I),160:.TT.1.
PP:..J>. .P(I),B(A(I)):.:...>. .I.0.7:.X
(I),160:.TT.1.PP:...?. .X(I),B(A(I)):.:.
. ?. .I.0.7:.Y(I),160:.TT.1.PP:..6?. .Y(
I),B(A(I)):.:..V?H .I.0.7:.M(I),160:.TT.
1.PP:..L?I .M(I),B(A(I)):.:...?|..I.0.7:
.A(I),160:.TT.1.PP:...?}..A(I),B(X(I)):.
:..B?...I.0.7:.M(I),160:.TT.1.PP:..X?...
M(I),B(X(I)):.:...?B..I.0.7:.A(I),160:.T
T.1.PP:...@C..A(I),B(Y(I)):.:...@...I.0.
7:.M(I),160:.TT.1.PP:..D@...M(I),B(Y(I))
:.:..U@`.. INITIALIZE.W@A.BT$.".":.I.1.2
4:BT$.BT$.".":..A@B.PT$."...............
........................................
........"..AC.PT$.PT$."..............N..
..........M................============.
".EAD.PT$.PT$."...............PO........
..PO................".|AE.PT$.BT$.".....
...........................".PT$."."..AG
.ML$."..................................
...".GAH.WD.40:CRT.1024:.G(142)..AI.W2.W
D.2:W3.WD.1:W1$.J(D(WD),2):..BJ.W2$.J(D(
W2),2):W3$.J(D(W3),2).ABS.SD$.".........
.":CL$."":.I.1.WD.1:CL$.CL$." ":..GBT...
TB...BT$CL$;.TB...BT$".RETURN. TO CONTIN
UE";..B...Z$:.Z$.."".63002..B...Z$:.Z$."
".63003..B.....B"..BT$CL$;:.TT.1.50:...B
#..BT$".........RETURN TO SEE IT HAPPEN.
........";:.TT.1.50:...C$..Z$:.Z$.."".63
012.(C%..Z$:.Z$."".63013..C&...BC|..T.1.
5:.PT$MS$;.XC}..PT$" ";.GC~..PT
$MS$;:..MC...XC...63000..C...SD$;:.T.1.
15:.CL$:.:.SD$;:...CD..63100:.63010:..MC
...".";:.I.1.5:.CL$:.:.".";:...C...60000
:.".":.2020...
> CLICK IMAGE PREVIEW FOR FULL MODAL