PONZO TUTOR-6.64
FILE INFORMATION
FILENAME(S): PONZO TUTOR-6.64
FILE TYPE(S): PRG
FILE SIZE: 15K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 2 disk(s)
FILE HASH
ebc1d9e189c51b388313f6f8dd65c6aca9eced97f7ffca521fa1a14c6ae99d42
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | PONZO TUTOR-6.64 | PRG | Treasure Chest - Wolfgang Rauprich | 29 | 8 | DOWNLOAD FILE |
| FREESOFT DISK NR | PONZO TUTOR-6.64 | PRG | Treasure Chest - Wolfgang Rauprich | 29 | 8 | 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 37 0A 5A 00 99 22 11 4D 4F 4E 49 54 4F 52 20 |.7.Z..".MONITOR |
00000210: 4C 49 4B 45 20 12 45 58 54 52 41 4D 4F 4E 92 20 |LIKE .EXTRAMON. |
00000220: 4F 52 20 12 4D 49 43 52 4F 4D 4F 4E 92 21 21 22 |OR .MICROMON.!!"|
00000230: 3A 8D 36 33 30 30 30 00 58 0A 64 00 99 22 93 2E |:.63000.X.d.."..|
00000240: 2C 20 45 30 36 38 20 41 39 20 32 30 20 20 20 20 |, E068 A9 20 |
00000250: 4C 44 41 20 23 24 32 33 00 7B 0A 65 00 99 22 2E |LDA #$23.{.e..".|
00000260: 2C 20 45 30 36 41 20 39 44 20 30 30 20 38 30 20 |, E06A 9D 00 80 |
00000270: 53 54 41 20 24 30 34 30 30 2C 58 00 9E 0A 66 00 |STA $0400,X...f.|
00000280: 99 22 2E 2C 20 45 30 36 44 20 39 44 20 30 30 20 |."., E06D 9D 00 |
00000290: 38 31 20 53 54 41 20 24 30 35 30 30 2C 58 00 C1 |81 STA $0500,X..|
000002A0: 0A 67 00 99 22 2E 2C 20 45 30 37 30 20 39 44 20 |.g.."., E070 9D |
000002B0: 30 30 20 38 32 20 53 54 41 20 24 30 36 30 30 2C |00 82 STA $0600,|
000002C0: 58 00 E4 0A 68 00 99 22 2E 2C 20 45 30 37 33 20 |X...h.."., E073 |
000002D0: 39 44 20 30 30 20 38 33 20 53 54 41 20 24 30 37 |9D 00 83 STA $07|
000002E0: 30 30 2C 58 00 FF 0A 69 00 99 22 2E 2C 20 45 30 |00,X...i.."., E0|
000002F0: 37 36 20 43 41 20 20 20 20 20 20 20 44 45 58 00 |76 CA DEX.|
00000300: 28 0B 6A 00 99 22 2E 2C 20 45 30 37 37 20 44 30 |(.j.."., E077 D0|
00000310: 20 46 31 20 20 20 20 42 4E 45 20 24 45 30 36 41 | F1 BNE $E06A|
00000320: 22 3A 8D 36 33 30 30 30 00 4E 0B 6E 00 99 22 13 |":.63000.N.n..".|
00000330: 2E 2C 20 45 30 36 38 20 41 39 20 32 30 20 20 20 |., E068 A9 20 |
00000340: 20 12 4C 44 41 20 23 24 32 33 20 20 20 22 00 73 | .LDA #$23 ".s|
00000350: 0B 6F 00 99 22 2E 2C 20 45 30 36 41 20 39 44 20 |.o.."., E06A 9D |
00000360: 30 30 20 38 30 20 12 53 54 41 20 24 30 34 30 30 |00 80 .STA $0400|
00000370: 2C 58 22 00 98 0B 70 00 99 22 2E 2C 20 45 30 36 |,X"...p.."., E06|
00000380: 44 20 39 44 20 30 30 20 38 31 20 12 53 54 41 20 |D 9D 00 81 .STA |
00000390: 24 30 35 30 30 2C 58 22 00 BD 0B 71 00 99 22 2E |$0500,X"...q..".|
000003A0: 2C 20 45 30 37 30 20 39 44 20 30 30 20 38 32 20 |, E070 9D 00 82 |
000003B0: 12 53 54 41 20 24 30 36 30 30 2C 58 22 00 E2 0B |.STA $0600,X"...|
000003C0: 72 00 99 22 2E 2C 20 45 30 37 33 20 39 44 20 30 |r.."., E073 9D 0|
000003D0: 30 20 38 33 20 12 53 54 41 20 24 30 37 30 30 2C |0 83 .STA $0700,|
000003E0: 58 22 00 07 0C 73 00 99 22 2E 2C 20 45 30 37 36 |X"...s.."., E076|
000003F0: 20 43 41 20 20 20 20 20 20 20 12 44 45 58 20 20 | CA .DEX |
00000400: 20 20 20 20 20 20 22 00 2C 0C 74 00 99 22 2E 2C | ".,.t..".,|
00000410: 20 45 30 37 37 20 44 30 20 46 31 20 20 20 20 12 | E077 D0 F1 .|
00000420: 42 4E 45 20 24 45 30 36 41 20 20 22 00 64 0C 78 |BNE $E06A ".d.x|
00000430: 00 99 22 11 D1 52 45 43 4F 47 4E 49 5A 45 20 54 |.."..RECOGNIZE T|
00000440: 48 45 20 12 41 53 53 45 4D 42 4C 45 52 92 20 49 |HE .ASSEMBLER. I|
00000450: 4E 53 54 52 55 43 54 49 4F 4E 53 3F 22 3A 8D 36 |NSTRUCTIONS?":.6|
00000460: 33 30 30 30 00 8B 0C 82 00 99 22 13 2E 2C 20 45 |3000......".., E|
00000470: 30 36 38 20 12 41 39 20 32 30 20 20 20 20 92 4C |068 .A9 20 .L|
00000480: 44 41 20 23 24 32 33 20 20 20 22 00 B1 0C 83 00 |DA #$23 ".....|
00000490: 99 22 2E 2C 20 45 30 36 41 20 12 39 44 20 30 30 |."., E06A .9D 00|
000004A0: 20 38 30 20 92 53 54 41 20 24 30 34 30 30 2C 58 | 80 .STA $0400,X|
000004B0: 22 00 D7 0C 84 00 99 22 2E 2C 20 45 30 36 44 20 |"......"., E06D |
000004C0: 12 39 44 20 30 30 20 38 31 20 92 53 54 41 20 24 |.9D 00 81 .STA $|
000004D0: 30 35 30 30 2C 58 22 00 FD 0C 85 00 99 22 2E 2C |0500,X"......".,|
000004E0: 20 45 30 37 30 20 12 39 44 20 30 30 20 38 32 20 | E070 .9D 00 82 |
000004F0: 92 53 54 41 20 24 30 36 30 30 2C 58 22 00 23 0D |.STA $0600,X".#.|
00000500: 86 00 99 22 2E 2C 20 45 30 37 33 20 12 39 44 20 |..."., E073 .9D |
00000510: 30 30 20 38 33 20 92 53 54 41 20 24 30 37 30 30 |00 83 .STA $0700|
00000520: 2C 58 22 00 49 0D 87 00 99 22 2E 2C 20 45 30 37 |,X".I...."., E07|
00000530: 36 20 12 43 41 20 20 20 20 20 20 20 92 44 45 58 |6 .CA .DEX|
00000540: 20 20 20 20 20 20 20 20 22 00 6F 0D 88 00 99 22 | ".o...."|
00000550: 2E 2C 20 45 30 37 37 20 12 44 30 20 46 31 20 20 |., E077 .D0 F1 |
00000560: 20 20 92 42 4E 45 20 24 45 30 36 41 20 20 22 00 | .BNE $E06A ".|
00000570: A2 0D 8C 00 99 22 11 11 11 11 D1 54 48 45 53 45 |.....".....THESE|
00000580: 20 41 52 45 20 54 48 45 20 48 45 58 20 42 59 54 | ARE THE HEX BYT|
00000590: 45 53 20 54 48 41 54 20 41 52 45 20 20 20 20 20 |ES THAT ARE |
000005A0: 20 22 00 CF 0D 96 00 99 22 20 41 43 54 55 41 4C | "......" ACTUAL|
000005B0: 4C 59 20 49 4E 20 4D 45 4D 4F 52 59 2E 20 20 20 |LY IN MEMORY. |
000005C0: 20 20 20 20 20 20 20 22 3A 8D 36 33 30 30 30 00 | ":.63000.|
000005D0: F2 0D A0 00 99 22 13 2E 2C 20 12 45 30 36 38 20 |.....".., .E068 |
000005E0: 92 41 39 20 32 30 20 20 20 20 4C 44 41 20 23 24 |.A9 20 LDA #$|
000005F0: 32 33 00 17 0E A1 00 99 22 2E 2C 20 12 45 30 36 |23......"., .E06|
00000600: 41 20 92 39 44 20 30 30 20 38 30 20 53 54 41 20 |A .9D 00 80 STA |
00000610: 24 30 34 30 30 2C 58 00 3C 0E A2 00 99 22 2E 2C |$0400,X.<....".,|
00000620: 20 12 45 30 36 44 20 92 39 44 20 30 30 20 38 31 | .E06D .9D 00 81|
00000630: 20 53 54 41 20 24 30 35 30 30 2C 58 00 61 0E A3 | STA $0500,X.a..|
00000640: 00 99 22 2E 2C 20 12 45 30 37 30 20 92 39 44 20 |.."., .E070 .9D |
00000650: 30 30 20 38 32 20 53 54 41 20 24 30 36 30 30 2C |00 82 STA $0600,|
00000660: 58 00 86 0E A4 00 99 22 2E 2C 20 12 45 30 37 33 |X......"., .E073|
00000670: 20 92 39 44 20 30 30 20 38 33 20 53 54 41 20 24 | .9D 00 83 STA $|
00000680: 30 37 30 30 2C 58 00 A3 0E A5 00 99 22 2E 2C 20 |0700,X......"., |
00000690: 12 45 30 37 36 20 92 43 41 20 20 20 20 20 20 20 |.E076 .CA |
000006A0: 44 45 58 00 C6 0E A6 00 99 22 2E 2C 20 12 45 30 |DEX......"., .E0|
000006B0: 37 37 20 92 44 30 20 46 31 20 20 20 20 42 4E 45 |77 .D0 F1 BNE|
000006C0: 20 24 45 30 36 41 00 F8 0E AA 00 99 22 11 11 11 | $E06A......"...|
000006D0: 11 11 11 11 11 D1 54 48 45 53 45 20 41 52 45 20 |......THESE ARE |
000006E0: 54 48 45 20 4C 4F 43 41 54 49 4F 4E 53 20 49 4E |THE LOCATIONS IN|
000006F0: 20 4D 45 4D 4F 52 59 22 00 23 0F B4 00 99 22 20 | MEMORY".#...." |
00000700: 57 48 49 43 48 20 43 4F 4E 54 41 49 4E 20 54 48 |WHICH CONTAIN TH|
00000710: 45 20 4D 2D 4C 20 43 4F 44 45 2E 22 3A 8D 36 33 |E M-L CODE.":.63|
00000720: 30 30 30 00 3F 0F B5 00 4D 53 24 B2 22 20 20 4F |000.?...MS$." O|
00000730: 4E 57 41 52 44 20 20 22 3A 8D 36 33 31 30 30 00 |NWARD ":.63100.|
00000740: 66 0F B9 00 99 22 93 4E 4F 57 20 4C 45 54 27 53 |f....".NOW LET'S|
00000750: 20 4C 4F 4F 4B 20 41 54 20 48 4F 57 20 41 20 42 | LOOK AT HOW A B|
00000760: 41 53 49 43 20 22 00 8F 0F BA 00 99 22 11 12 4E |ASIC "......"..N|
00000770: 45 57 92 20 49 53 20 44 4F 4E 45 2E 20 57 45 27 |EW. IS DONE. WE'|
00000780: 4C 4C 20 50 52 45 54 45 4E 44 20 54 48 45 22 00 |LL PRETEND THE".|
00000790: B4 0F BB 00 99 22 11 43 4F 44 45 20 49 53 20 46 |.....".CODE IS F|
000007A0: 52 4F 4D 20 24 42 35 44 34 20 54 4F 20 24 42 35 |ROM $B5D4 TO $B5|
000007B0: 45 38 2E 22 00 DA 0F BC 00 99 22 11 52 45 43 41 |E8."......".RECA|
000007C0: 4C 4C 20 54 48 41 54 20 54 48 45 20 46 49 52 53 |LL THAT THE FIRS|
000007D0: 54 20 33 20 42 59 54 45 53 22 00 0B 10 BD 00 99 |T 3 BYTES"......|
000007E0: 22 11 41 54 20 24 30 38 30 30 2F 24 30 38 30 31 |".AT $0800/$0801|
000007F0: 2F 24 30 38 30 32 20 4D 55 53 54 20 42 45 20 12 |/$0802 MUST BE .|
00000800: 30 30 20 30 30 20 30 30 92 2E 22 00 37 10 BE 00 |00 00 00..".7...|
00000810: 99 22 11 42 55 54 20 24 30 38 30 30 20 41 4C 57 |.".BUT $0800 ALW|
00000820: 41 59 53 20 48 41 53 20 12 30 30 92 20 41 4E 59 |AYS HAS .00. ANY|
00000830: 57 41 59 20 53 4F 22 00 63 10 BF 00 99 22 11 57 |WAY SO".c....".W|
00000840: 45 20 4A 55 53 54 20 46 49 4C 4C 20 24 30 38 30 |E JUST FILL $080|
00000850: 31 2F 24 30 38 30 32 20 57 49 54 48 20 12 30 30 |1/$0802 WITH .00|
00000860: 92 2E 22 00 95 10 C0 00 99 22 11 D1 54 48 45 20 |.."......"..THE |
00000870: 12 53 54 41 52 54 20 4F 46 20 42 41 53 49 43 92 |.START OF BASIC.|
00000880: 20 49 53 20 4B 45 50 54 20 49 4E 20 24 32 42 2F | IS KEPT IN $2B/|
00000890: 24 32 43 2E 22 00 C3 10 C1 00 99 22 11 D1 54 48 |$2C."......"..TH|
000008A0: 45 20 12 45 4E 44 20 4F 46 20 42 41 53 49 43 92 |E .END OF BASIC.|
000008B0: 2C 20 4B 45 50 54 20 49 4E 20 24 32 44 2F 24 32 |, KEPT IN $2D/$2|
000008C0: 45 2C 22 00 F2 10 C2 00 99 22 11 4D 55 53 54 20 |E,"......".MUST |
000008D0: 42 45 20 4A 55 53 54 20 32 20 42 59 54 45 53 20 |BE JUST 2 BYTES |
000008E0: 50 41 53 54 20 54 48 45 20 12 53 54 41 52 54 92 |PAST THE .START.|
000008F0: 2E 22 00 1B 11 C3 00 99 22 11 4C 45 54 27 53 20 |."......".LET'S |
00000900: 53 45 45 20 48 4F 57 20 49 54 27 53 20 44 4F 4E |SEE HOW IT'S DON|
00000910: 45 2E 2E 22 3A 8D 36 33 30 30 30 00 2B 11 C4 00 |E..":.63000.+...|
00000920: 99 22 93 11 11 11 11 11 11 22 3B 00 59 11 DC 00 |.".......";.Y...|
00000930: 99 22 13 11 11 11 11 11 11 2E 2C 20 42 35 44 34 |."........, B5D4|
00000940: 20 41 39 20 30 30 20 20 20 20 12 4C 44 41 20 23 | A9 00 .LDA #|
00000950: 24 30 30 20 20 20 92 5F 22 00 80 11 DD 00 99 22 |$00 ._"......"|
00000960: 2E 2C 20 42 35 44 36 20 41 38 20 20 20 20 20 20 |., B5D6 A8 |
00000970: 20 12 54 41 59 20 20 20 20 20 20 20 20 92 5F 22 | .TAY ._"|
00000980: 00 AB 11 E6 00 8D 36 33 34 30 30 3A 99 22 42 4F |......63400:."BO|
00000990: 54 48 20 12 41 92 20 41 4E 44 20 12 59 92 20 41 |TH .A. AND .Y. A|
000009A0: 52 45 20 46 49 4C 4C 45 44 20 22 00 D1 11 F0 00 |RE FILLED ".....|
000009B0: 99 22 11 57 49 54 48 20 23 24 12 30 30 92 2E 2E |.".WITH #$.00...|
000009C0: 54 4F 20 53 54 41 52 54 2E 22 3A 8D 36 33 30 30 |TO START.":.6300|
000009D0: 30 00 09 12 FA 00 99 22 13 11 11 11 11 11 11 11 |0......"........|
000009E0: 11 2E 2C 20 42 35 44 37 20 39 31 20 32 42 20 20 |.., B5D7 91 2B |
000009F0: 20 20 12 53 54 41 20 28 24 32 42 29 2C 59 92 91 | .STA ($2B),Y..|
00000A00: 91 20 11 9D 20 11 9D 5F 22 00 31 12 04 01 8D 36 |. .. .._".1....6|
00000A10: 33 34 30 30 3A 99 22 13 53 49 4E 43 45 20 12 24 |3400:.".SINCE .$|
00000A20: 32 42 92 20 43 4F 4E 54 41 49 4E 53 20 54 48 45 |2B. CONTAINS THE|
00000A30: 22 00 5C 12 0E 01 99 22 11 54 48 45 20 53 54 41 |".\....".THE STA|
00000A40: 52 54 20 4F 46 20 42 41 53 49 43 2C 28 55 53 55 |RT OF BASIC,(USU|
00000A50: 41 4C 4C 59 20 24 30 38 30 31 29 22 00 88 12 18 |ALLY $0801)"....|
00000A60: 01 99 22 11 23 24 12 30 30 92 20 49 53 20 53 54 |..".#$.00. IS ST|
00000A70: 4F 52 45 44 20 49 4E 20 28 24 32 42 29 2B 59 2E |ORED IN ($2B)+Y.|
00000A80: 22 3A 8D 36 33 30 30 30 00 C1 12 22 01 8D 36 33 |":.63000..."..63|
00000A90: 34 30 30 3A 99 22 54 48 45 4E 20 12 49 4E 59 92 |400:."THEN .INY.|
00000AA0: 20 47 45 54 53 20 52 45 41 44 59 20 54 4F 20 53 | GETS READY TO S|
00000AB0: 54 4F 52 45 20 23 24 12 30 30 92 20 49 4E 54 4F |TORE #$.00. INTO|
00000AC0: 22 00 F1 12 2C 01 99 22 11 54 48 45 20 53 45 43 |"...,..".THE SEC|
00000AD0: 4F 4E 44 20 42 59 54 45 20 4F 46 20 27 42 41 53 |OND BYTE OF 'BAS|
00000AE0: 49 43 27 20 41 54 20 28 55 53 55 41 4C 4C 59 29 |IC' AT (USUALLY)|
00000AF0: 22 00 00 13 36 01 99 22 11 24 30 38 30 32 2E 22 |"...6..".$0802."|
00000B00: 00 3C 13 40 01 99 22 13 11 11 11 11 11 11 11 11 |.<.@..".........|
00000B10: 11 2E 2C 20 42 35 44 39 20 43 38 20 20 20 20 20 |.., B5D9 C8 |
00000B20: 20 20 12 49 4E 59 20 20 20 20 20 20 20 20 92 91 | .INY ..|
00000B30: 20 11 9D 5F 22 3A 8D 36 33 30 30 30 00 72 13 4A | .._":.63000.r.J|
00000B40: 01 99 22 13 11 11 11 11 11 11 11 11 11 11 2E 2C |.."............,|
00000B50: 20 42 35 44 41 20 39 31 20 32 42 20 20 20 20 12 | B5DA 91 2B .|
00000B60: 53 54 41 20 28 24 32 42 29 2C 59 92 91 20 11 9D |STA ($2B),Y.. ..|
00000B70: 5F 22 00 97 13 54 01 8D 36 33 34 30 30 3A 99 22 |_"...T..63400:."|
00000B80: 54 48 45 52 45 20 53 48 45 20 47 4F 45 53 21 22 |THERE SHE GOES!"|
00000B90: 3A 8D 36 33 30 30 30 00 C3 13 5E 01 8D 36 33 34 |:.63000...^..634|
00000BA0: 30 30 3A 99 22 54 48 45 20 12 45 4E 44 92 20 4F |00:."THE .END. O|
00000BB0: 46 20 42 41 53 49 43 20 4E 4F 57 20 48 41 53 20 |F BASIC NOW HAS |
00000BC0: 54 4F 22 00 F0 13 68 01 99 22 11 42 45 20 43 48 |TO"...h..".BE CH|
00000BD0: 41 4E 47 45 44 20 54 4F 20 52 45 41 44 20 12 24 |ANGED TO READ .$|
00000BE0: 30 38 30 33 92 2E 2E 41 4E 44 20 12 45 4E 44 22 |0803...AND .END"|
00000BF0: 00 17 14 72 01 99 22 11 49 53 20 53 54 4F 52 45 |...r..".IS STORE|
00000C00: 44 20 41 54 20 12 24 32 44 2F 24 32 45 92 2E 22 |D AT .$2D/$2E.."|
00000C10: 3A 8D 36 33 30 30 30 00 4E 14 73 01 99 22 13 11 |:.63000.N.s.."..|
00000C20: 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 44 |..........., B5D|
00000C30: 43 20 41 35 20 32 42 20 20 20 20 12 4C 44 41 20 |C A5 2B .LDA |
00000C40: 24 32 42 20 20 20 20 92 91 20 11 9D 5F 22 00 7A |$2B .. .._".z|
00000C50: 14 7C 01 8D 36 33 34 30 30 3A 99 22 53 4F 20 57 |.|..63400:."SO W|
00000C60: 45 20 12 4C 44 41 20 24 32 42 92 20 47 45 54 54 |E .LDA $2B. GETT|
00000C70: 49 4E 47 20 52 45 41 44 59 22 00 94 14 86 01 99 |ING READY"......|
00000C80: 22 11 54 4F 20 41 44 44 20 32 2E 2E 22 3A 8D 36 |".TO ADD 2..":.6|
00000C90: 33 30 30 30 00 C6 14 90 01 8D 36 33 34 30 30 3A |3000......63400:|
00000CA0: 99 22 42 55 54 20 52 45 4D 45 4D 42 45 52 20 54 |."BUT REMEMBER T|
00000CB0: 4F 20 12 43 4C 43 92 20 46 49 52 53 54 21 22 3A |O .CLC. FIRST!":|
00000CC0: 8D 36 33 30 30 30 00 05 15 9A 01 99 22 13 11 11 |.63000......"...|
00000CD0: 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 44 |..........., B5D|
00000CE0: 45 20 31 38 20 20 20 20 20 20 20 12 43 4C 43 20 |E 18 .CLC |
00000CF0: 20 20 20 20 20 20 20 92 91 20 11 9D 5F 22 3A 8D | .. .._":.|
00000D00: 36 33 30 30 30 00 3E 15 A4 01 99 22 13 11 11 11 |63000.>...."....|
00000D10: 11 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 44 |..........., B5D|
00000D20: 46 20 36 39 20 30 32 20 20 20 20 12 41 44 43 20 |F 69 02 .ADC |
00000D30: 23 24 30 32 20 20 20 92 91 20 11 9D 5F 22 00 7A |#$02 .. .._".z|
00000D40: 15 AE 01 8D 36 33 34 30 30 3A 99 22 53 45 45 2E |....63400:."SEE.|
00000D50: 2E 57 45 20 41 44 44 20 32 2E 22 3A 99 22 11 54 |.WE ADD 2.":.".T|
00000D60: 48 45 4E 20 57 45 20 53 54 4F 52 45 20 54 48 49 |HEN WE STORE THI|
00000D70: 53 20 4C 4F 2D 42 59 54 45 22 00 93 15 B8 01 99 |S LO-BYTE"......|
00000D80: 22 11 49 4E 54 4F 20 24 32 44 2E 22 3A 8D 36 33 |".INTO $2D.":.63|
00000D90: 30 30 30 00 D4 15 C2 01 99 22 13 11 11 11 11 11 |000......"......|
00000DA0: 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 45 31 |.........., B5E1|
00000DB0: 20 38 35 20 32 44 20 20 20 20 12 53 54 41 20 24 | 85 2D .STA $|
00000DC0: 32 44 20 20 20 20 92 91 20 11 9D 5F 22 3A 8D 36 |2D .. .._":.6|
00000DD0: 33 30 30 30 00 09 16 CC 01 8D 36 33 34 30 30 3A |3000......63400:|
00000DE0: 99 22 4E 4F 57 20 57 45 20 4D 55 53 54 20 46 49 |."NOW WE MUST FI|
00000DF0: 58 20 55 50 20 54 48 45 20 48 49 2D 42 59 54 45 |X UP THE HI-BYTE|
00000E00: 20 41 54 20 24 32 45 2E 22 00 3B 16 D6 01 99 22 | AT $2E.".;...."|
00000E10: 11 57 45 20 12 4C 44 41 20 24 32 43 92 20 57 48 |.WE .LDA $2C. WH|
00000E20: 49 43 48 20 57 49 4C 4C 20 47 4F 20 54 4F 20 24 |ICH WILL GO TO $|
00000E30: 32 45 2E 22 3A 8D 36 33 30 30 30 00 7D 16 E0 01 |2E.":.63000.}...|
00000E40: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000E50: 11 11 2E 2C 20 42 35 45 33 20 41 35 20 32 43 20 |..., B5E3 A5 2C |
00000E60: 20 20 20 12 4C 44 41 20 24 32 43 20 20 20 20 92 | .LDA $2C .|
00000E70: 91 20 11 9D 5F 22 3A 8D 36 33 30 30 30 00 AF 16 |. .._":.63000...|
00000E80: EA 01 8D 36 33 34 30 30 3A 99 22 42 55 54 2C 20 |...63400:."BUT, |
00000E90: 4A 55 53 54 20 49 4E 20 43 41 53 45 20 54 48 45 |JUST IN CASE THE|
00000EA0: 52 45 27 53 20 41 20 12 43 41 52 52 59 92 22 00 |RE'S A .CARRY.".|
00000EB0: E1 16 F4 01 99 22 11 4C 45 46 54 20 4F 56 45 52 |.....".LEFT OVER|
00000EC0: 20 46 52 4F 4D 20 54 48 45 20 12 41 44 43 20 23 | FROM THE .ADC #|
00000ED0: 24 30 32 92 20 57 45 2E 2E 22 3A 8D 36 33 30 30 |$02. WE..":.6300|
00000EE0: 30 00 24 17 FE 01 99 22 13 11 11 11 11 11 11 11 |0.$...."........|
00000EF0: 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 45 35 |.........., B5E5|
00000F00: 20 36 39 20 30 30 20 20 20 20 12 41 44 43 20 23 | 69 00 .ADC #|
00000F10: 24 30 30 20 20 20 92 91 20 11 9D 5F 22 3A 8D 36 |$00 .. .._":.6|
00000F20: 33 30 30 30 00 57 17 08 02 8D 36 33 34 30 30 3A |3000.W....63400:|
00000F30: 99 22 4E 4F 57 11 9D 9D 9D B8 B8 B8 91 20 57 45 |."NOW........ WE|
00000F40: 20 43 41 4E 20 53 54 49 43 4B 20 54 48 45 20 48 | CAN STICK THE H|
00000F50: 49 2D 42 59 54 45 22 00 70 17 12 02 99 22 11 49 |I-BYTE".p....".I|
00000F60: 4E 54 4F 20 24 32 45 2E 22 3A 8D 36 33 30 30 30 |NTO $2E.":.63000|
00000F70: 00 B4 17 1C 02 99 22 13 11 11 11 11 11 11 11 11 |......".........|
00000F80: 11 11 11 11 11 11 11 11 11 2E 2C 20 42 35 45 37 |.........., B5E7|
00000F90: 20 38 35 20 32 45 20 20 20 20 12 53 54 41 20 24 | 85 2E .STA $|
00000FA0: 32 45 20 20 20 20 92 91 20 11 9D 5F 22 3A 8D 36 |2E .. .._":.6|
00000FB0: 33 30 30 30 00 E0 17 26 02 8D 36 33 34 30 30 3A |3000...&..63400:|
00000FC0: 4D 53 24 B2 22 12 4E 49 43 45 21 4E 49 43 45 21 |MS$.".NICE!NICE!|
00000FD0: 92 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 |.":.63100:.63000|
00000FE0: 00 0F 18 30 02 99 22 93 4E 4F 57 20 4C 45 54 27 |...0..".NOW LET'|
00000FF0: 53 20 4C 4F 4F 4B 20 41 54 20 48 4F 57 20 12 42 |S LOOK AT HOW .B|
00001000: 41 53 49 43 20 43 48 41 49 4E 49 4E 47 92 22 00 |ASIC CHAINING.".|
00001010: 38 18 3A 02 99 22 11 4D 49 47 48 54 20 42 45 20 |8.:..".MIGHT BE |
00001020: 41 43 43 4F 4D 50 4C 49 53 48 45 44 20 49 4E 20 |ACCOMPLISHED IN |
00001030: 42 41 53 49 43 20 2E 22 00 67 18 3B 02 99 22 11 |BASIC .".g.;..".|
00001040: 11 28 54 48 45 20 53 54 41 54 45 4D 45 4E 54 53 |.(THE STATEMENTS|
00001050: 20 49 4E 20 42 41 53 49 43 20 41 52 45 20 12 4C | IN BASIC ARE .L|
00001060: 49 4E 4B 45 44 92 22 00 91 18 3C 02 99 22 11 41 |INKED."...<..".A|
00001070: 4E 44 20 54 48 45 53 45 20 4C 49 4E 4B 53 20 4D |ND THESE LINKS M|
00001080: 55 53 54 20 42 45 20 52 45 43 52 45 41 54 45 44 |UST BE RECREATED|
00001090: 22 00 B8 18 3D 02 99 22 11 45 41 43 48 20 54 49 |"...=..".EACH TI|
000010A0: 4D 45 20 57 45 20 49 4E 53 45 52 54 20 4F 52 20 |ME WE INSERT OR |
000010B0: 4D 4F 44 49 46 59 2E 22 00 D4 18 3E 02 99 22 11 |MODIFY."...>..".|
000010C0: 54 48 41 54 27 53 20 12 43 48 41 49 4E 49 4E 47 |THAT'S .CHAINING|
000010D0: 92 2E 29 22 00 05 19 44 02 99 22 11 11 52 45 43 |..)"...D.."..REC|
000010E0: 41 4C 4C 20 54 48 41 54 20 42 41 53 49 43 20 53 |ALL THAT BASIC S|
000010F0: 54 41 54 45 4D 45 4E 54 53 20 41 52 45 20 53 54 |TATEMENTS ARE ST|
00001100: 4F 52 45 44 22 00 3D 19 4E 02 99 22 11 46 52 4F |ORED".=.N..".FRO|
00001110: 4D 20 24 30 38 30 31 20 49 4E 20 54 48 45 20 46 |M $0801 IN THE F|
00001120: 4F 4C 4C 4F 57 49 4E 47 20 46 4F 52 4D 41 54 3A |OLLOWING FORMAT:|
00001130: 22 3A 8D 36 33 30 30 30 3A 99 22 93 22 00 74 19 |":.63000:.".".t.|
00001140: 58 02 42 41 24 B2 22 B2 C0 C0 C0 C0 B2 C0 C0 C0 |X.BA$.".........|
00001150: C0 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 |................|
00001160: B2 C0 20 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 22 AA C7 |.. .........."..|
00001170: 28 31 33 29 00 AB 19 62 02 5A 24 B2 22 DD 20 20 |(13)...b.Z$.". |
00001180: 20 20 DD 20 A0 A0 A0 DD A0 A0 20 A0 DD A0 20 A0 | . ...... ... .|
00001190: A0 DD 20 A0 A0 A0 DD 2D 2D DD 20 20 20 20 DD 20 |.. ....--. . |
000011A0: 20 20 20 DD 22 AA C7 28 31 33 29 00 F7 19 6C 02 | ."..(13)...l.|
000011B0: 42 41 24 B2 42 41 24 AA 5A 24 AA 5A 24 AA 5A 24 |BA$.BA$.Z$.Z$.Z$|
000011C0: AA 22 B1 C0 C0 C0 C0 B1 C0 C0 C0 C0 B1 C0 C0 C0 |."..............|
000011D0: C0 B1 C0 C0 C0 C0 B1 C0 C0 C0 C0 B1 C0 20 B1 C0 |............. ..|
000011E0: C0 C0 C0 B1 C0 C0 C0 C0 22 AA C7 28 31 33 29 AA |........"..(13).|
000011F0: 22 1D 91 91 91 91 22 00 34 1A 76 02 99 42 54 24 |".....".4.v..BT$|
00001200: 22 91 91 91 91 91 91 91 22 42 41 24 AA 22 4C 49 |"......."BA$."LI|
00001210: 4E 4B 1D 4C 49 4E 4B 1D 53 54 4D 54 1D 53 54 4D |NK.LINK.STMT.STM|
00001220: 54 1D 42 41 53 49 43 1D 1D 1D 5A 45 52 4F 1D 4C |T.BASIC...ZERO.L|
00001230: 49 4E 4B 22 00 62 1A 80 02 99 22 1D 42 59 54 45 |INK".b....".BYTE|
00001240: 1D 42 59 54 45 1D 4E 55 4D 1D 1D 4E 55 4D 1D 1D |.BYTE.NUM..NUM..|
00001250: 54 45 58 54 20 1D 1D 1D 42 59 54 45 1D 42 59 54 |TEXT ...BYTE.BYT|
00001260: 45 22 00 8F 1A 8A 02 99 22 1D 20 4C 4F 20 1D 20 |E"......". LO . |
00001270: 48 49 20 1D 20 4C 4F 20 1D 20 48 49 20 1D 41 52 |HI . LO . HI .AR|
00001280: 45 41 1D 1D 1D 1D 3D 45 4E 44 1D 20 4C 4F 22 00 |EA....=END. LO".|
00001290: D7 1A 94 02 4D 31 24 B2 42 54 24 AA 22 91 91 20 |....M1$.BT$.".. |
000012A0: 12 5E 5E 5E 5E 20 5E 5E 5E 5E 92 22 3A 99 4D 31 |.^^^^ ^^^^.":.M1|
000012B0: 24 3A 99 22 13 D1 54 48 49 53 20 49 53 20 54 48 |$:."..THIS IS TH|
000012C0: 45 20 41 44 44 52 45 53 53 20 4F 46 20 54 48 45 |E ADDRESS OF THE|
000012D0: 20 12 4E 45 58 54 22 00 F7 1A 9E 02 99 22 11 42 | .NEXT"......".B|
000012E0: 41 53 49 43 20 53 54 41 54 45 4D 45 4E 54 2E 22 |ASIC STATEMENT."|
000012F0: 3A 8D 36 33 30 30 30 00 23 1B A8 02 4D 32 24 B2 |:.63000.#...M2$.|
00001300: 42 54 24 AA 22 91 91 20 20 20 20 20 20 20 20 20 |BT$.".. |
00001310: 20 20 12 5E 5E 5E 5E 20 5E 5E 5E 5E 92 22 3A 99 | .^^^^ ^^^^.":.|
00001320: 4D 32 24 00 50 1B B2 02 99 22 13 11 11 11 11 D1 |M2$.P...."......|
00001330: 54 48 49 53 20 49 53 20 42 41 53 49 43 20 53 54 |THIS IS BASIC ST|
00001340: 41 54 45 4D 45 4E 54 20 4E 55 4D 42 45 52 3A 22 |ATEMENT NUMBER:"|
00001350: 00 75 1B BC 02 99 22 11 4C 4F 2D 42 59 54 45 20 |.u....".LO-BYTE |
00001360: 54 48 45 4E 20 48 49 2D 42 59 54 45 2E 22 3A 8D |THEN HI-BYTE.":.|
00001370: 36 33 30 30 30 00 A8 1B C6 02 4D 33 24 B2 42 54 |63000.....M3$.BT|
00001380: 24 AA 22 91 91 20 20 20 20 20 20 20 20 20 20 20 |$.".. |
00001390: 20 20 20 20 20 20 20 20 20 20 12 5E 5E 5E 5E 2D | .^^^^-|
000013A0: 5E 92 22 3A 99 4D 33 24 00 DF 1B D0 02 99 22 13 |^.":.M3$......".|
000013B0: 11 11 11 11 11 11 11 11 D1 54 48 49 53 20 49 53 |.........THIS IS|
000013C0: 20 54 48 45 20 42 41 53 49 43 20 54 45 58 54 20 | THE BASIC TEXT |
000013D0: 49 54 53 45 4C 46 2E 22 3A 8D 36 33 30 30 30 00 |ITSELF.":.63000.|
000013E0: 18 1C E4 02 4D 34 24 B2 42 54 24 AA 22 91 91 20 |....M4$.BT$.".. |
000013F0: 20 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 12 5E 5E 5E | .^^^|
00001410: 5E 92 22 3A 99 4D 34 24 00 44 1C EE 02 99 22 13 |^.":.M4$.D....".|
00001420: 11 11 11 11 11 11 11 11 11 11 D1 45 4E 44 2D 4F |...........END-O|
00001430: 46 2D 53 54 41 54 45 4D 45 4E 54 2E 22 3A 8D 36 |F-STATEMENT.":.6|
00001440: 33 30 30 30 00 82 1C F8 02 4D 35 24 B2 42 54 24 |3000.....M5$.BT$|
00001450: AA 22 91 91 20 20 20 20 20 20 20 20 20 20 20 20 |.".. |
00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001470: 20 20 20 20 20 20 12 5E 5E 5E 5E 92 22 3A 99 4D | .^^^^.":.M|
00001480: 35 24 00 AE 1C 02 03 99 22 13 11 11 11 11 11 11 |5$......".......|
00001490: 11 11 11 11 11 11 11 D1 54 48 45 20 4E 45 58 54 |........THE NEXT|
000014A0: 20 4C 49 4E 4B 2E 22 3A 8D 36 33 30 30 30 00 C1 | LINK.":.63000..|
000014B0: 1C 07 03 99 4D 35 24 22 9D 9D 9D 9D 20 20 20 20 |....M5$".... |
000014C0: 22 00 EB 1C 0C 03 8D 33 39 30 30 30 3A 99 22 D1 |"......39000:.".|
000014D0: 57 45 20 57 49 4C 4C 20 4C 4F 4F 4B 20 49 4E 20 |WE WILL LOOK IN |
000014E0: 24 32 42 2F 24 32 43 20 54 4F 22 00 1B 1D 16 03 |$2B/$2C TO".....|
000014F0: 99 22 11 46 49 4E 44 20 54 48 45 20 53 54 41 52 |.".FIND THE STAR|
00001500: 54 20 4F 46 20 42 41 53 49 43 20 28 55 53 55 41 |T OF BASIC (USUA|
00001510: 4C 4C 59 20 24 30 38 30 31 29 22 00 5F 1D 20 03 |LLY $0801)"._. .|
00001520: 99 22 11 50 4F 49 4E 54 49 4E 47 20 54 4F 20 54 |.".POINTING TO T|
00001530: 48 45 20 46 49 52 53 54 20 4C 49 4E 4B 20 28 4C |HE FIRST LINK (L|
00001540: 4F 2D 42 59 54 45 29 2E 22 3A 99 4D 31 24 22 9D |O-BYTE).":.M1$".|
00001550: 9D 9D 9D 20 20 20 20 22 3A 8D 36 33 30 30 30 00 |... ":.63000.|
00001560: 94 1D 2A 03 99 22 13 11 11 11 11 11 11 D1 54 48 |..*.."........TH|
00001570: 45 4E 20 57 45 20 57 49 4C 4C 20 4D 41 52 43 48 |EN WE WILL MARCH|
00001580: 20 54 48 52 4F 55 47 48 20 54 4F 20 54 48 45 20 | THROUGH TO THE |
00001590: 45 4E 44 22 00 C2 1D 34 03 99 22 11 4F 46 20 54 |END"...4..".OF T|
000015A0: 48 45 20 46 49 52 53 54 20 42 41 53 49 43 20 53 |HE FIRST BASIC S|
000015B0: 54 41 54 45 4D 45 4E 54 2E 2E 2E 2E 22 3A 99 4D |TATEMENT....":.M|
000015C0: 34 24 00 06 1E 3E 03 8D 36 33 30 30 30 3A 99 22 |4$...>..63000:."|
000015D0: 13 11 11 11 11 11 11 11 11 11 11 41 4E 44 20 53 |...........AND S|
000015E0: 54 4F 52 45 20 54 48 45 20 41 44 44 52 45 53 53 |TORE THE ADDRESS|
000015F0: 20 4F 46 20 54 48 45 20 12 4E 45 58 54 92 20 4C | OF THE .NEXT. L|
00001600: 49 4E 4B 2E 2E 22 00 45 1E 48 03 99 4D 35 24 3A |INK..".E.H..M5$:|
00001610: 8D 36 33 30 30 30 3A 99 22 13 11 11 11 11 11 11 |.63000:.".......|
00001620: 11 11 11 11 11 11 49 4E 54 4F 20 54 48 45 20 4C |......INTO THE L|
00001630: 49 4E 4B 53 20 41 54 20 24 30 38 30 31 2F 24 30 |INKS AT $0801/$0|
00001640: 38 30 32 2E 22 00 64 1E 52 03 99 4D 35 24 22 9D |802.".d.R..M5$".|
00001650: 9D 9D 9D 20 20 20 20 22 3A 99 4D 31 24 3A 8D 36 |... ":.M1$:.6|
00001660: 33 30 30 30 00 7E 1E 5C 03 8D 33 39 30 30 30 3A |3000.~.\..39000:|
00001670: 99 4D 31 24 22 9D 9D 9D 9D 20 20 20 20 22 00 AB |.M1$".... "..|
00001680: 1E 66 03 99 22 13 D1 49 4E 20 46 41 43 54 2C 20 |.f.."..IN FACT, |
00001690: 4F 4E 43 45 20 41 54 20 54 48 45 20 4C 4F 2D 42 |ONCE AT THE LO-B|
000016A0: 59 54 45 20 4F 46 20 54 48 45 22 00 D9 1E 70 03 |YTE OF THE"...p.|
000016B0: 99 22 11 4C 49 4E 4B 20 57 45 20 43 41 4E 20 4A |.".LINK WE CAN J|
000016C0: 55 4D 50 20 41 48 45 41 44 20 35 20 42 59 54 45 |UMP AHEAD 5 BYTE|
000016D0: 53 20 42 45 46 4F 52 45 22 00 07 1F 7A 03 99 22 |S BEFORE"...z.."|
000016E0: 11 57 45 20 54 45 53 54 20 46 4F 52 20 54 48 45 |.WE TEST FOR THE|
000016F0: 20 12 30 30 92 20 42 59 54 45 20 4D 41 52 4B 49 | .00. BYTE MARKI|
00001700: 4E 47 20 54 48 45 22 00 3A 1F 84 03 99 22 11 45 |NG THE".:....".E|
00001710: 4E 44 20 4F 46 20 54 48 45 20 43 55 52 52 45 4E |ND OF THE CURREN|
00001720: 54 20 42 41 53 49 43 20 53 54 41 54 45 4D 45 4E |T BASIC STATEMEN|
00001730: 54 2E 22 3A 8D 36 33 30 30 30 00 69 1F 8E 03 81 |T.":.63000.i....|
00001740: 54 B2 31 A4 32 30 30 3A 82 3A 99 4D 32 24 3A 81 |T.1.200:.:.M2$:.|
00001750: 54 B2 31 A4 32 30 30 3A 82 3A 99 4D 33 24 3A 81 |T.1.200:.:.M3$:.|
00001760: 54 B2 31 A4 32 30 30 3A 82 00 79 1F 93 03 99 4D |T.1.200:..y....M|
00001770: 34 24 3A 8D 36 33 30 30 30 00 9F 1F 98 03 99 22 |4$:.63000......"|
00001780: 93 2E 2C 20 42 34 42 36 20 41 35 20 32 42 20 20 |.., B4B6 A5 2B |
00001790: 20 20 12 4C 44 41 20 24 32 42 20 20 20 20 22 00 | .LDA $2B ".|
000017A0: C4 1F 99 03 99 22 2E 2C 20 42 34 42 38 20 41 34 |....."., B4B8 A4|
000017B0: 20 32 43 20 20 20 20 12 4C 44 59 20 24 32 43 20 | 2C .LDY $2C |
000017C0: 20 20 20 22 00 E9 1F 9A 03 99 22 2E 2C 20 42 34 | "......"., B4|
000017D0: 42 41 20 38 35 20 32 32 20 20 20 20 12 53 54 41 |BA 85 22 .STA|
000017E0: 20 24 32 32 20 20 20 20 22 00 0E 20 9B 03 99 22 | $22 ".. ..."|
000017F0: 2E 2C 20 42 34 42 43 20 38 34 20 32 33 20 20 20 |., B4BC 84 23 |
00001800: 20 12 53 54 59 20 24 32 33 20 20 20 20 22 00 3D | .STY $23 ".=|
00001810: 20 A2 03 99 22 11 57 45 20 47 45 54 20 54 48 45 | ...".WE GET THE|
00001820: 20 53 54 41 52 54 2D 4F 46 2D 42 41 53 49 43 20 | START-OF-BASIC |
00001830: 41 44 44 52 45 53 53 20 46 52 4F 4D 22 00 66 20 |ADDRESS FROM".f |
00001840: AC 03 99 22 11 24 32 42 2F 24 32 43 20 41 4E 44 |...".$2B/$2C AND|
00001850: 20 53 54 4F 52 45 20 49 54 20 49 4E 20 24 32 32 | STORE IT IN $22|
00001860: 2F 24 32 33 2E 22 00 94 20 B6 03 99 22 11 57 45 |/$23.".. ...".WE|
00001870: 20 57 49 4C 4C 20 42 45 20 4D 4F 44 49 46 59 49 | WILL BE MODIFYI|
00001880: 4E 47 20 54 48 49 53 20 41 44 44 52 45 53 53 20 |NG THIS ADDRESS |
00001890: 41 4E 44 22 00 C1 20 C0 03 99 22 11 57 49 4C 4C |AND".. ...".WILL|
000018A0: 20 44 4F 20 54 48 45 20 4D 4F 44 49 46 59 49 4E | DO THE MODIFYIN|
000018B0: 47 20 54 4F 20 54 48 45 20 43 4F 50 59 20 41 54 |G TO THE COPY AT|
000018C0: 22 00 D2 20 CA 03 99 22 11 24 32 32 2F 24 32 33 |".. ...".$22/$23|
000018D0: 2E 22 00 00 21 D4 03 99 22 11 54 48 45 20 43 4F |."..!...".THE CO|
000018E0: 4E 54 45 4E 54 53 20 4F 46 20 24 32 32 2F 24 32 |NTENTS OF $22/$2|
000018F0: 33 20 57 49 4C 4C 20 48 4F 4C 44 20 54 48 45 22 |3 WILL HOLD THE"|
00001900: 00 2B 21 DE 03 99 22 11 12 4C 4F 2D 42 59 54 45 |.+!..."..LO-BYTE|
00001910: 20 4C 49 4E 4B 92 20 41 53 20 57 45 20 4D 41 52 | LINK. AS WE MAR|
00001920: 43 48 20 54 48 52 4F 55 47 48 22 00 49 21 E8 03 |CH THROUGH".I!..|
00001930: 99 22 11 54 48 45 20 42 41 53 49 43 20 53 54 41 |.".THE BASIC STA|
00001940: 54 45 4D 45 4E 54 53 2E 22 00 76 21 F2 03 99 22 |TEMENTS.".v!..."|
00001950: 11 54 4F 20 53 54 41 52 54 20 57 49 54 48 20 49 |.TO START WITH I|
00001960: 54 20 48 4F 4C 44 53 20 24 30 38 30 31 2E 22 3A |T HOLDS $0801.":|
00001970: 8D 36 33 30 30 30 00 9B 21 FC 03 99 22 93 2E 2C |.63000..!..."..,|
00001980: 20 42 34 42 45 20 31 38 20 20 20 20 20 20 20 12 | B4BE 18 .|
00001990: 43 4C 43 20 20 20 20 20 20 20 22 00 C4 21 06 04 |CLC "..!..|
000019A0: 99 22 11 11 57 45 20 44 4F 20 54 48 49 53 20 12 |."..WE DO THIS .|
000019B0: 43 4C 43 92 20 49 4E 20 50 52 45 50 41 52 41 54 |CLC. IN PREPARAT|
000019C0: 49 4F 4E 22 00 EB 21 10 04 99 22 11 46 4F 52 20 |ION"..!...".FOR |
000019D0: 41 4E 20 12 41 44 43 92 20 4C 41 54 45 52 20 4F |AN .ADC. LATER O|
000019E0: 4E 2E 2E 22 3A 8D 36 33 30 30 30 00 11 22 1A 04 |N..":.63000.."..|
000019F0: 99 22 93 2E 2C 20 42 34 42 46 20 41 30 20 30 31 |.".., B4BF A0 01|
00001A00: 20 20 20 20 12 4C 44 59 20 23 24 30 31 20 20 20 | .LDY #$01 |
00001A10: 22 00 36 22 24 04 99 22 2E 2C 20 42 34 43 31 20 |".6"$.."., B4C1 |
00001A20: 42 31 20 32 32 20 20 20 20 12 4C 44 41 20 28 24 |B1 22 .LDA ($|
00001A30: 32 32 29 2C 59 22 00 62 22 2E 04 99 22 11 11 11 |22),Y".b"..."...|
00001A40: 4E 4F 57 20 54 48 45 20 41 2D 52 45 47 49 53 54 |NOW THE A-REGIST|
00001A50: 45 52 20 48 4F 4C 44 53 20 54 48 45 20 42 59 54 |ER HOLDS THE BYT|
00001A60: 45 22 00 7B 22 38 04 99 22 11 53 54 4F 52 45 44 |E".{"8..".STORED|
00001A70: 20 41 54 20 24 30 38 30 32 2E 22 00 A4 22 42 04 | AT $0802.".."B.|
00001A80: 99 22 11 54 48 41 54 27 53 20 54 48 45 20 12 48 |.".THAT'S THE .H|
00001A90: 49 2D 42 59 54 45 20 4C 49 4E 4B 92 20 54 4F 20 |I-BYTE LINK. TO |
00001AA0: 54 48 45 22 00 C2 22 4C 04 99 22 11 4E 45 58 54 |THE".."L..".NEXT|
00001AB0: 20 42 41 53 49 43 20 53 54 41 54 45 4D 45 4E 54 | BASIC STATEMENT|
00001AC0: 2E 22 00 ED 22 60 04 99 22 11 49 46 20 54 48 49 |.".."`..".IF THI|
00001AD0: 53 20 49 53 20 12 30 30 92 20 54 48 45 4E 20 57 |S IS .00. THEN W|
00001AE0: 45 20 4D 55 53 54 20 42 45 20 41 54 22 00 09 23 |E MUST BE AT"..#|
00001AF0: 6A 04 99 22 11 45 4E 44 20 4F 46 20 54 48 45 20 |j..".END OF THE |
00001B00: 50 52 4F 47 52 41 4D 21 22 00 3E 23 74 04 99 22 |PROGRAM!".>#t.."|
00001B10: 11 28 52 45 4D 45 4D 42 45 52 2E 2E 45 4E 44 2D |.(REMEMBER..END-|
00001B20: 4F 46 2D 50 52 4F 47 52 41 4D 20 48 41 53 20 12 |OF-PROGRAM HAS .|
00001B30: 30 30 92 20 12 30 30 92 20 12 30 30 92 22 00 70 |00. .00. .00.".p|
00001B40: 23 7E 04 99 22 11 57 48 49 43 48 20 49 4D 50 4C |#~..".WHICH IMPL|
00001B50: 49 45 53 20 41 20 12 30 30 92 20 48 49 2D 42 59 |IES A .00. HI-BY|
00001B60: 54 45 20 4C 49 4E 4B 2E 22 3A 8D 36 33 30 30 30 |TE LINK.":.63000|
00001B70: 00 98 23 88 04 99 22 13 11 11 2E 2C 20 42 34 43 |..#..."...., B4C|
00001B80: 33 20 46 30 20 31 43 20 20 20 20 12 42 45 51 20 |3 F0 1C .BEQ |
00001B90: 24 42 34 45 31 20 20 22 00 CD 23 92 04 81 54 B2 |$B4E1 "..#...T.|
00001BA0: 31 A4 32 30 3A 99 43 4C 24 3A 82 3A 99 22 13 11 |1.20:.CL$:.:."..|
00001BB0: 11 11 11 11 2E 2E 53 4F 20 57 45 20 54 45 53 54 |......SO WE TEST|
00001BC0: 20 49 54 20 46 4F 52 20 5A 45 52 4F 22 00 F9 23 | IT FOR ZERO"..#|
00001BD0: 9C 04 99 22 11 41 4E 44 20 12 42 45 51 92 20 54 |...".AND .BEQ. T|
00001BE0: 4F 20 24 42 34 45 31 20 57 48 49 43 48 20 49 53 |O $B4E1 WHICH IS|
00001BF0: 20 41 4E 20 45 58 49 54 22 00 1B 24 A6 04 99 22 | AN EXIT"..$..."|
00001C00: 11 46 52 4F 4D 20 54 48 49 53 20 52 4F 55 54 49 |.FROM THIS ROUTI|
00001C10: 4E 45 21 22 3A 8D 36 33 30 30 30 00 3B 24 B0 04 |NE!":.63000.;$..|
00001C20: 99 22 93 2E 2C 20 42 34 42 36 20 41 35 20 32 42 |.".., B4B6 A5 2B|
00001C30: 20 20 20 20 4C 44 41 20 24 32 42 00 5A 24 B1 04 | LDA $2B.Z$..|
00001C40: 99 22 2E 2C 20 42 34 42 38 20 41 34 20 32 43 20 |."., B4B8 A4 2C |
00001C50: 20 20 20 4C 44 59 20 24 32 43 00 79 24 B2 04 99 | LDY $2C.y$...|
00001C60: 22 2E 2C 20 42 34 42 41 20 38 35 20 32 32 20 20 |"., B4BA 85 22 |
00001C70: 20 20 53 54 41 20 24 32 32 00 98 24 B3 04 99 22 | STA $22..$..."|
00001C80: 2E 2C 20 42 34 42 43 20 38 34 20 32 33 20 20 20 |., B4BC 84 23 |
00001C90: 20 53 54 59 20 24 32 33 00 B3 24 B4 04 99 22 2E | STY $23..$...".|
00001CA0: 2C 20 42 34 42 45 20 31 38 20 20 20 20 20 20 20 |, B4BE 18 |
00001CB0: 43 4C 43 00 D3 24 B5 04 99 22 2E 2C 20 42 34 42 |CLC..$..."., B4B|
00001CC0: 46 20 41 30 20 30 31 20 20 20 20 4C 44 59 20 23 |F A0 01 LDY #|
00001CD0: 24 30 31 00 F6 24 B6 04 99 22 2E 2C 20 42 34 43 |$01..$..."., B4C|
00001CE0: 31 20 42 31 20 32 32 20 20 20 20 4C 44 41 20 28 |1 B1 22 LDA (|
00001CF0: 24 32 32 29 2C 59 00 17 25 B7 04 99 22 2E 2C 20 |$22),Y..%..."., |
00001D00: 42 34 43 33 20 46 30 20 31 43 20 20 20 20 42 45 |B4C3 F0 1C BE|
00001D10: 51 20 24 42 34 45 31 00 3B 25 BA 04 99 22 11 54 |Q $B4E1.;%...".T|
00001D20: 48 41 54 27 53 20 57 48 41 54 20 57 45 20 48 41 |HAT'S WHAT WE HA|
00001D30: 56 45 20 53 4F 20 46 41 52 2E 22 00 69 25 C4 04 |VE SO FAR.".i%..|
00001D40: 99 22 11 4E 4F 57 20 57 45 27 52 45 20 47 4F 49 |.".NOW WE'RE GOI|
00001D50: 4E 47 20 54 4F 20 4D 4F 56 45 20 41 48 45 41 44 |NG TO MOVE AHEAD|
00001D60: 20 35 20 42 59 54 45 53 22 00 99 25 CE 04 99 22 | 5 BYTES"..%..."|
00001D70: 11 41 4E 44 20 53 54 41 52 54 20 43 48 45 43 4B |.AND START CHECK|
00001D80: 49 4E 47 20 45 41 43 48 20 42 59 54 45 20 46 52 |ING EACH BYTE FR|
00001D90: 4F 4D 20 54 48 45 52 45 22 00 C7 25 D8 04 99 22 |OM THERE"..%..."|
00001DA0: 11 46 4F 52 20 54 48 45 20 12 30 30 92 20 45 4E |.FOR THE .00. EN|
00001DB0: 44 2D 4F 46 2D 53 54 41 54 45 4D 45 4E 54 2E 22 |D-OF-STATEMENT."|
00001DC0: 3A 8D 36 33 30 30 30 00 ED 25 E2 04 99 22 93 2E |:.63000..%..."..|
00001DD0: 2C 20 42 34 43 35 20 41 30 20 30 34 20 20 20 20 |, B4C5 A0 04 |
00001DE0: 12 4C 44 59 20 23 24 30 34 20 20 20 22 00 12 26 |.LDY #$04 "..&|
00001DF0: EC 04 99 22 2E 2C 20 42 34 43 37 20 43 38 20 20 |..."., B4C7 C8 |
00001E00: 20 20 20 20 20 12 49 4E 59 20 20 20 20 20 20 20 | .INY |
00001E10: 20 22 00 37 26 F6 04 99 22 2E 2C 20 42 34 43 38 | ".7&..."., B4C8|
00001E20: 20 42 31 20 32 32 20 20 20 20 12 4C 44 41 20 28 | B1 22 .LDA (|
00001E30: 24 32 32 29 2C 59 22 00 5C 26 00 05 99 22 2E 2C |$22),Y".\&...".,|
00001E40: 20 42 34 43 41 20 44 30 20 46 42 20 20 20 20 12 | B4CA D0 FB .|
00001E50: 42 4E 45 20 24 42 34 43 37 20 20 22 00 88 26 0A |BNE $B4C7 "..&.|
00001E60: 05 99 22 11 48 45 52 45 20 57 45 20 12 4C 44 59 |..".HERE WE .LDY|
00001E70: 20 23 24 30 34 92 20 54 48 45 4E 20 12 49 4E 59 | #$04. THEN .INY|
00001E80: 92 20 57 48 49 43 48 22 00 B8 26 14 05 99 22 11 |. WHICH"..&...".|
00001E90: 4D 41 4B 45 53 20 12 24 28 32 32 29 2C 59 92 20 |MAKES .$(22),Y. |
00001EA0: 35 20 42 59 54 45 53 20 50 41 53 54 20 4F 55 52 |5 BYTES PAST OUR|
00001EB0: 20 27 42 41 53 45 27 22 00 D7 26 1E 05 99 22 11 | 'BASE'"..&...".|
00001EC0: 41 54 20 54 48 45 20 12 4C 4F 2D 42 59 54 45 20 |AT THE .LO-BYTE |
00001ED0: 4C 49 4E 4B 92 2E 22 00 03 27 28 05 99 22 11 57 |LINK.."..'(..".W|
00001EE0: 45 20 43 48 45 43 4B 20 54 48 49 53 20 42 59 54 |E CHECK THIS BYT|
00001EF0: 45 20 46 4F 52 20 12 30 30 92 2C 20 54 4F 20 53 |E FOR .00., TO S|
00001F00: 45 45 22 00 2D 27 3C 05 99 22 11 49 46 20 49 54 |EE".-'<..".IF IT|
00001F10: 27 53 20 54 48 45 20 45 4E 44 2D 4F 46 2D 53 54 |'S THE END-OF-ST|
00001F20: 41 54 45 4D 45 4E 54 2C 20 41 4E 44 22 00 5E 27 |ATEMENT, AND".^'|
00001F30: 46 05 99 22 11 12 42 92 52 41 4E 43 48 20 49 46 |F.."..B.RANCH IF|
00001F40: 20 12 4E 92 4F 54 20 12 45 92 51 55 41 4C 20 54 | .N.OT .E.QUAL T|
00001F50: 4F 20 5A 45 52 4F 20 54 4F 20 54 48 45 22 00 8D |O ZERO TO THE"..|
00001F60: 27 50 05 99 22 11 12 49 4E 59 92 20 49 4E 53 54 |'P.."..INY. INST|
00001F70: 52 55 43 54 49 4F 4E 2E 20 46 52 4F 4D 20 4E 4F |RUCTION. FROM NO|
00001F80: 57 20 4F 4E 20 57 45 20 4D 4F 56 45 22 00 B9 27 |W ON WE MOVE"..'|
00001F90: 5A 05 99 22 11 41 20 42 59 54 45 20 41 54 20 41 |Z..".A BYTE AT A|
00001FA0: 20 54 49 4D 45 2C 20 4C 4F 4F 4B 49 4E 47 20 46 | TIME, LOOKING F|
00001FB0: 4F 52 20 12 30 30 92 2C 22 00 EB 27 64 05 99 22 |OR .00.,"..'d.."|
00001FC0: 11 41 4E 44 20 53 54 41 59 20 49 4E 20 54 48 49 |.AND STAY IN THI|
00001FD0: 53 20 4C 4F 4F 50 20 55 4E 54 49 4C 20 57 45 20 |S LOOP UNTIL WE |
00001FE0: 44 4F 21 22 3A 8D 36 33 30 30 30 00 1B 28 6E 05 |DO!":.63000..(n.|
00001FF0: 99 22 93 45 56 45 4E 54 55 41 4C 4C 59 20 57 45 |.".EVENTUALLY WE|
00002000: 20 46 49 4E 44 20 54 48 45 20 45 4E 44 2D 4F 46 | FIND THE END-OF|
00002010: 2D 53 54 41 54 45 4D 45 4E 54 22 00 49 28 78 05 |-STATEMENT".I(x.|
00002020: 99 22 11 41 4E 44 20 4D 55 53 54 20 4E 4F 57 20 |.".AND MUST NOW |
00002030: 44 45 54 45 52 4D 49 4E 45 20 54 48 45 20 41 44 |DETERMINE THE AD|
00002040: 44 52 45 53 53 20 4F 46 22 00 7B 28 82 05 99 22 |DRESS OF".{(..."|
00002050: 11 4F 46 20 54 48 45 20 27 4E 45 58 54 27 11 9D |.OF THE 'NEXT'..|
00002060: 9D 9D 9D 9D B8 B8 B8 B8 20 91 20 12 4C 4F 2D 42 |........ . .LO-B|
00002070: 59 54 45 20 4C 49 4E 4B 92 2E 22 00 AA 28 8C 05 |YTE LINK.."..(..|
00002080: 99 22 11 54 57 4F 20 54 48 49 4E 47 53 20 41 52 |.".TWO THINGS AR|
00002090: 45 20 44 4F 4E 45 20 57 49 54 48 20 54 48 49 53 |E DONE WITH THIS|
000020A0: 20 41 44 44 52 45 53 53 2E 22 00 D5 28 96 05 99 | ADDRESS."..(...|
000020B0: 22 11 31 3A 49 54 20 57 49 4C 4C 20 42 45 20 53 |".1:IT WILL BE S|
000020C0: 54 4F 52 45 44 20 49 4E 20 54 48 45 20 45 41 52 |TORED IN THE EAR|
000020D0: 4C 49 45 52 22 00 FE 28 A0 05 99 22 20 20 4C 49 |LIER"..(..." LI|
000020E0: 4E 4B 53 20 28 4F 52 49 47 49 4E 41 4C 4C 59 20 |NKS (ORIGINALLY |
000020F0: 24 30 38 30 31 2F 24 30 38 30 32 29 2E 22 00 25 |$0801/$0802).".%|
00002100: 29 AA 05 99 22 11 32 3A 4F 55 52 20 27 42 41 53 |)...".2:OUR 'BAS|
00002110: 45 27 20 28 4B 45 50 54 20 49 4E 20 24 32 32 2F |E' (KEPT IN $22/|
00002120: 24 32 33 29 22 00 50 29 B4 05 99 22 20 20 4F 52 |$23)".P)..." OR|
00002130: 49 47 49 4E 41 4C 4C 59 20 57 41 53 20 54 48 45 |IGINALLY WAS THE|
00002140: 20 4C 49 4E 4B 20 41 54 20 24 30 38 30 31 2E 22 | LINK AT $0801."|
00002150: 00 94 29 BE 05 99 22 20 20 24 32 32 2F 24 32 33 |..)..." $22/$23|
00002160: 20 57 49 4C 4C 20 42 45 20 43 48 41 4E 47 45 44 | WILL BE CHANGED|
00002170: 20 54 4F 20 50 4F 49 4E 54 22 3A 99 22 20 20 54 | TO POINT":." T|
00002180: 4F 20 54 48 49 53 20 27 4E 45 58 54 27 20 4C 49 |O THIS 'NEXT' LI|
00002190: 4E 4B 2E 22 00 BF 29 C3 05 99 22 11 41 54 20 54 |NK."..)...".AT T|
000021A0: 48 45 20 4D 4F 4D 45 4E 54 20 57 45 27 52 45 20 |HE MOMENT WE'RE |
000021B0: 28 59 29 20 42 59 54 45 53 20 50 41 53 54 22 00 |(Y) BYTES PAST".|
000021C0: DF 29 C4 05 99 22 11 54 48 45 20 41 44 44 52 45 |.)...".THE ADDRE|
000021D0: 53 53 20 49 4E 20 24 32 32 2F 24 32 33 2E 22 00 |SS IN $22/$23.".|
000021E0: 20 2A C8 05 99 22 11 11 11 12 4C 45 54 27 53 20 | *..."....LET'S |
000021F0: 46 4F 52 47 45 20 41 48 45 41 44 92 2E 2E 2E 22 |FORGE AHEAD...."|
00002200: 3A 4D 53 24 B2 22 12 47 4F 21 47 4F 21 47 4F 21 |:MS$.".GO!GO!GO!|
00002210: 92 22 3A 8D 36 33 30 30 30 3A 8D 36 33 31 30 30 |.":.63000:.63100|
00002220: 00 46 2A D2 05 99 22 93 2E 2C 20 42 34 43 43 20 |.F*...".., B4CC |
00002230: 43 38 20 20 20 20 20 20 20 12 49 4E 59 20 20 20 |C8 .INY |
00002240: 20 20 20 20 20 22 00 74 2A DC 05 99 53 44 24 22 | ".t*...SD$"|
00002250: 12 49 4E 59 92 20 41 44 56 41 4E 43 45 53 20 31 |.INY. ADVANCES 1|
00002260: 20 42 59 54 45 20 50 41 53 54 20 54 48 45 20 12 | BYTE PAST THE .|
00002270: 30 30 92 22 00 A6 2A E6 05 99 22 11 45 4E 44 2D |00."..*...".END-|
00002280: 4F 46 2D 53 54 41 54 45 4D 45 4E 54 20 54 4F 20 |OF-STATEMENT TO |
00002290: 54 48 45 20 27 4E 45 58 54 27 20 12 4C 4F 2D 4C |THE 'NEXT' .LO-L|
000022A0: 49 4E 4B 92 2E 22 00 D1 2A F0 05 99 22 11 4E 4F |INK.."..*...".NO|
000022B0: 57 20 12 28 24 32 32 29 2C 59 92 20 50 4F 49 4E |W .($22),Y. POIN|
000022C0: 54 53 20 54 4F 20 54 48 45 20 27 4E 45 58 54 27 |TS TO THE 'NEXT'|
000022D0: 22 00 FC 2A FA 05 99 22 11 12 4C 4F 2D 4C 49 4E |"..*..."..LO-LIN|
000022E0: 4B 92 20 41 4E 44 20 57 45 20 44 4F 20 4F 55 52 |K. AND WE DO OUR|
000022F0: 20 27 32 20 54 48 49 4E 47 53 27 22 00 1F 2B 04 | '2 THINGS'"..+.|
00002300: 06 99 22 11 57 49 54 48 20 54 48 49 53 20 41 44 |..".WITH THIS AD|
00002310: 44 52 45 53 53 2E 2E 22 3A 8D 36 33 30 30 30 00 |DRESS..":.63000.|
00002320: 45 2B 05 06 99 22 13 11 2E 2C 20 42 34 43 44 20 |E+..."..., B4CD |
00002330: 39 38 20 20 20 20 20 20 20 54 59 41 20 20 20 20 |98 TYA |
00002340: 20 20 20 20 22 00 69 2B 06 06 99 22 2E 2C 20 42 | ".i+..."., B|
00002350: 34 43 45 20 36 35 20 32 32 20 20 20 20 41 44 43 |4CE 65 22 ADC|
00002360: 20 24 32 32 20 20 20 20 22 00 8D 2B 07 06 99 22 | $22 "..+..."|
00002370: 2E 2C 20 42 34 44 30 20 41 41 20 20 20 20 20 20 |., B4D0 AA |
00002380: 20 54 41 58 20 20 20 20 20 20 20 20 22 00 B1 2B | TAX "..+|
00002390: 08 06 99 22 2E 2C 20 42 34 44 31 20 41 30 20 30 |..."., B4D1 A0 0|
000023A0: 30 20 20 20 20 4C 44 59 20 23 24 30 30 20 20 20 |0 LDY #$00 |
000023B0: 22 00 D5 2B 09 06 99 22 2E 2C 20 42 34 44 33 20 |"..+..."., B4D3 |
000023C0: 39 31 20 32 32 20 20 20 20 53 54 41 20 28 24 32 |91 22 STA ($2|
000023D0: 32 29 2C 59 22 00 EE 2B 0E 06 99 53 44 24 3B 3A |2),Y"..+...SD$;:|
000023E0: 81 54 B2 31 A4 31 30 3A 99 43 4C 24 3A 82 00 20 |.T.1.10:.CL$:.. |
000023F0: 2C 18 06 99 53 44 24 22 D1 57 45 20 12 41 44 43 |,...SD$".WE .ADC|
00002400: 92 20 54 48 45 20 41 44 44 52 45 53 53 20 41 54 |. THE ADDRESS AT|
00002410: 20 12 24 32 32 92 20 54 4F 20 12 59 92 2E 2E 22 | .$22. TO .Y..."|
00002420: 00 50 2C 22 06 99 22 42 55 54 20 12 41 44 43 92 |.P,".."BUT .ADC.|
00002430: 20 4F 4E 4C 59 20 57 4F 52 4B 53 20 57 49 54 48 | ONLY WORKS WITH|
00002440: 20 54 48 45 20 41 2D 52 45 47 49 53 54 45 52 22 | THE A-REGISTER"|
00002450: 00 8A 2C 2C 06 99 22 53 4F 20 57 45 20 12 54 59 |..,,.."SO WE .TY|
00002460: 41 92 20 46 49 52 53 54 20 54 48 45 4E 11 9D 9D |A. FIRST THEN...|
00002470: 9D 9D B7 B7 B7 B7 91 20 12 41 44 43 20 24 32 32 |....... .ADC $22|
00002480: 92 2E 22 3A 8D 36 33 30 30 30 00 B1 2C 2D 06 99 |..":.63000..,-..|
00002490: 22 13 11 2E 2C 20 42 34 43 44 20 39 38 20 20 20 |"..., B4CD 98 |
000024A0: 20 20 20 20 12 54 59 41 20 20 20 20 20 20 20 20 | .TYA |
000024B0: 22 00 DD 2C 2E 06 99 22 2E 2C 20 42 34 43 45 20 |"..,..."., B4CE |
000024C0: 36 35 20 32 32 20 20 20 20 12 41 44 43 20 24 32 |65 22 .ADC $2|
000024D0: 32 20 20 20 20 22 3A 8D 36 33 30 30 30 00 0F 2D |2 ":.63000..-|
000024E0: 36 06 99 53 44 24 22 11 11 11 D1 4E 4F 57 20 12 |6..SD$"....NOW .|
000024F0: 41 92 20 43 4F 4E 54 41 49 4E 53 20 54 48 45 20 |A. CONTAINS THE |
00002500: 4C 4F 2D 42 59 54 45 20 4F 46 20 54 48 45 22 00 |LO-BYTE OF THE".|
00002510: 3F 2D 40 06 99 22 4E 45 57 20 27 42 41 53 45 27 |?-@.."NEW 'BASE'|
00002520: 20 41 44 44 52 45 53 53 3D 54 48 45 20 27 4E 45 | ADDRESS=THE 'NE|
00002530: 58 54 27 20 12 4C 4F 2D 4C 49 4E 4B 92 2E 22 00 |XT' .LO-LINK..".|
00002540: 6E 2D 45 06 99 22 57 45 20 53 41 56 45 20 54 48 |n-E.."WE SAVE TH|
00002550: 49 53 20 4D 41 47 49 43 20 42 59 54 45 20 49 4E |IS MAGIC BYTE IN|
00002560: 20 27 58 27 2E 2E 22 3A 8D 36 33 30 30 30 00 9E | 'X'..":.63000..|
00002570: 2D 46 06 99 22 13 11 11 11 2E 2C 20 42 34 44 30 |-F.."....., B4D0|
00002580: 20 41 41 20 20 20 20 20 20 20 12 54 41 58 20 20 | AA .TAX |
00002590: 20 20 20 20 20 20 22 3A 8D 36 33 30 30 30 00 D3 | ":.63000..|
000025A0: 2D 4A 06 99 53 44 24 22 11 11 11 11 11 11 D1 54 |-J..SD$".......T|
000025B0: 48 45 4E 20 50 55 54 20 49 54 20 49 4E 54 4F 20 |HEN PUT IT INTO |
000025C0: 24 30 38 30 31 20 57 48 49 43 48 20 49 53 20 54 |$0801 WHICH IS T|
000025D0: 48 45 22 00 FD 2D 54 06 99 22 41 44 44 52 45 53 |HE"..-T.."ADDRES|
000025E0: 53 20 43 55 52 52 45 4E 54 4C 59 20 48 45 4C 44 |S CURRENTLY HELD|
000025F0: 20 49 4E 20 24 32 32 2F 24 32 33 2E 22 00 28 2E | IN $22/$23.".(.|
00002600: 5E 06 99 22 57 45 20 44 4F 20 54 48 49 53 20 57 |^.."WE DO THIS W|
00002610: 49 54 48 20 12 53 54 41 92 20 49 4E 54 4F 20 12 |ITH .STA. INTO .|
00002620: 28 24 32 32 29 2C 30 22 00 55 2E 63 06 99 22 57 |($22),0".U.c.."W|
00002630: 48 49 43 48 20 52 45 51 55 49 52 45 53 20 27 59 |HICH REQUIRES 'Y|
00002640: 3D 30 27 20 53 4F 20 57 45 20 12 4C 44 59 20 23 |=0' SO WE .LDY #|
00002650: 24 30 30 92 22 00 81 2E 68 06 99 22 54 48 45 4E |$00."...h.."THEN|
00002660: 11 9D 9D 9D 9D B7 B7 B7 B7 91 20 12 53 54 41 20 |.......... .STA |
00002670: 28 24 32 32 29 2C 59 92 21 22 3A 8D 36 33 30 30 |($22),Y.!":.6300|
00002680: 30 00 AB 2E 69 06 99 22 13 11 11 11 11 2E 2C 20 |0...i.."......, |
00002690: 42 34 44 31 20 41 30 20 30 30 20 20 20 20 12 4C |B4D1 A0 00 .L|
000026A0: 44 59 20 23 24 30 30 20 20 20 22 00 D7 2E 6A 06 |DY #$00 "...j.|
000026B0: 99 22 2E 2C 20 42 34 44 33 20 39 31 20 32 32 20 |."., B4D3 91 22 |
000026C0: 20 20 20 12 53 54 41 20 28 24 32 32 29 2C 59 22 | .STA ($22),Y"|
000026D0: 3A 8D 36 33 30 30 30 00 F0 2E 72 06 99 53 44 24 |:.63000...r..SD$|
000026E0: 3B 3A 81 49 B2 31 A4 31 35 3A 99 43 4C 24 3A 82 |;:.I.1.15:.CL$:.|
000026F0: 00 0D 2F 77 06 4D 53 24 B2 22 12 47 4F 21 47 4F |../w.MS$.".GO!GO|
00002700: 21 47 4F 21 92 22 3A 8D 36 33 31 30 30 00 26 2F |!GO!.":.63100.&/|
00002710: 7C 06 99 53 44 24 3B 3A 81 49 B2 31 A4 31 35 3A ||..SD$;:.I.1.15:|
00002720: 99 43 4C 24 3A 82 00 51 2F 7D 06 99 22 13 11 11 |.CL$:..Q/}.."...|
00002730: 11 11 11 11 2E 2C 20 42 34 44 35 20 39 38 20 20 |....., B4D5 98 |
00002740: 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 20 | TYA |
00002750: 22 00 76 2F 7E 06 99 22 2E 2C 20 42 34 44 36 20 |".v/~.."., B4D6 |
00002760: 36 35 20 32 33 20 20 20 20 41 44 43 20 24 32 33 |65 23 ADC $23|
00002770: 20 20 20 20 20 22 00 9B 2F 7F 06 99 22 2E 2C 20 | "../..."., |
00002780: 42 34 44 38 20 43 38 20 20 20 20 20 20 20 49 4E |B4D8 C8 IN|
00002790: 59 20 20 20 20 20 20 20 20 20 22 00 BF 2F 80 06 |Y "../..|
000027A0: 99 22 2E 2C 20 42 34 44 39 20 39 31 20 32 32 20 |."., B4D9 91 22 |
000027B0: 20 20 20 53 54 41 20 28 24 32 32 29 2C 59 22 00 | STA ($22),Y".|
000027C0: ED 2F 86 06 99 53 44 24 22 11 11 11 11 11 11 57 |./...SD$"......W|
000027D0: 45 20 48 41 56 45 20 54 48 45 20 4C 4F 2D 4C 49 |E HAVE THE LO-LI|
000027E0: 4E 4B 20 46 49 58 45 44 20 55 50 2E 22 00 11 30 |NK FIXED UP."..0|
000027F0: 90 06 99 22 11 4E 4F 57 20 46 4F 52 20 54 48 45 |...".NOW FOR THE|
00002800: 20 48 49 2D 4C 49 4E 4B 2E 22 3A 8D 36 33 30 30 | HI-LINK.":.6300|
00002810: 30 00 31 30 9A 06 99 53 44 24 22 11 11 11 11 11 |0.10...SD$".....|
00002820: 11 22 3B 3A 81 49 B2 31 A4 38 3A 99 43 4C 24 3A |.";:.I.1.8:.CL$:|
00002830: 82 00 5E 30 A4 06 99 53 44 24 22 11 11 11 11 D1 |..^0...SD$".....|
00002840: 57 45 20 43 4C 45 41 52 20 54 48 45 20 41 2D 52 |WE CLEAR THE A-R|
00002850: 45 47 49 53 54 45 52 20 54 4F 20 30 30 22 00 84 |EGISTER TO 00"..|
00002860: 30 AE 06 99 22 12 57 49 54 48 4F 55 54 92 20 41 |0...".WITHOUT. A|
00002870: 46 46 45 43 54 49 4E 47 20 41 4E 59 20 43 41 52 |FFECTING ANY CAR|
00002880: 52 59 20 22 00 B8 30 B8 06 99 22 4C 45 46 54 20 |RY "..0..."LEFT |
00002890: 4F 56 45 52 20 46 52 4F 4D 20 54 48 45 20 45 41 |OVER FROM THE EA|
000028A0: 52 4C 49 45 52 20 12 41 44 43 20 24 32 32 92 2E |RLIER .ADC $22..|
000028B0: 22 3A 8D 36 33 30 30 30 00 EB 30 B9 06 99 22 13 |":.63000..0...".|
000028C0: 11 11 11 11 11 11 2E 2C 20 42 34 44 35 20 39 38 |......., B4D5 98|
000028D0: 20 20 20 20 20 20 20 12 54 59 41 20 20 20 20 20 | .TYA |
000028E0: 20 20 20 22 3A 8D 36 33 30 30 30 00 0F 31 C2 06 | ":.63000..1..|
000028F0: 99 53 44 24 22 11 11 11 11 11 11 11 D1 54 48 45 |.SD$"........THE|
00002900: 4E 20 57 45 20 12 41 44 43 20 24 32 33 92 22 00 |N WE .ADC $23.".|
00002910: 35 31 CC 06 99 22 41 44 44 49 4E 47 20 54 48 45 |51..."ADDING THE|
00002920: 20 43 41 52 52 59 20 42 49 54 20 28 49 46 20 41 | CARRY BIT (IF A|
00002930: 4E 59 21 29 22 00 5D 31 D6 06 99 22 54 4F 20 54 |NY!)".]1..."TO T|
00002940: 48 45 20 48 49 2D 42 59 54 45 20 4F 46 20 4F 55 |HE HI-BYTE OF OU|
00002950: 52 20 4E 45 57 20 27 42 41 53 45 27 22 00 84 31 |R NEW 'BASE'"..1|
00002960: E0 06 99 22 41 44 44 52 45 53 53 20 49 4E 20 24 |..."ADDRESS IN $|
00002970: 32 32 2F 24 32 33 2D 57 48 49 43 48 20 41 4C 57 |22/$23-WHICH ALW|
00002980: 41 59 53 22 00 A9 31 F4 06 99 22 50 4F 49 4E 54 |AYS"..1..."POINT|
00002990: 53 20 54 4F 20 54 48 45 20 4C 4F 2D 4C 49 4E 4B |S TO THE LO-LINK|
000029A0: 2E 22 3A 8D 36 33 30 30 30 00 DD 31 F5 06 99 22 |.":.63000..1..."|
000029B0: 13 11 11 11 11 11 11 11 2E 2C 20 42 34 44 36 20 |........., B4D6 |
000029C0: 36 35 20 32 30 20 20 20 20 12 41 44 43 20 24 32 |65 20 .ADC $2|
000029D0: 33 20 20 20 20 22 3A 8D 36 33 30 30 30 00 FD 31 |3 ":.63000..1|
000029E0: FE 06 99 53 44 24 22 11 11 11 11 11 11 22 3B 3A |...SD$"......";:|
000029F0: 81 49 B2 31 A4 38 3A 99 43 4C 24 3A 82 00 2B 32 |.I.1.8:.CL$:..+2|
00002A00: 08 07 99 53 44 24 22 11 11 11 11 D1 57 45 20 4E |...SD$".....WE N|
00002A10: 4F 57 20 48 41 56 45 20 54 48 45 20 48 49 2D 42 |OW HAVE THE HI-B|
00002A20: 59 54 45 20 4F 46 20 4F 55 52 22 00 51 32 12 07 |YTE OF OUR".Q2..|
00002A30: 99 22 4E 45 57 20 4C 4F 2D 4C 49 4E 4B 20 41 44 |."NEW LO-LINK AD|
00002A40: 44 52 45 53 53 20 49 4E 20 27 41 27 20 41 4E 44 |DRESS IN 'A' AND|
00002A50: 22 00 77 32 1C 07 99 22 57 45 20 4E 45 45 44 20 |".w2..."WE NEED |
00002A60: 54 4F 20 53 54 55 46 46 20 49 54 20 49 4E 54 4F |TO STUFF IT INTO|
00002A70: 20 24 30 38 30 32 22 00 9D 32 26 07 99 22 57 48 | $0802"..2&.."WH|
00002A80: 49 43 48 20 49 53 20 31 20 42 59 54 45 20 50 41 |ICH IS 1 BYTE PA|
00002A90: 53 54 20 24 30 38 30 31 20 41 4E 44 22 00 C7 32 |ST $0801 AND"..2|
00002AA0: 30 07 99 22 24 30 38 30 31 20 49 53 20 48 45 4C |0.."$0801 IS HEL|
00002AB0: 44 20 49 4E 20 24 32 32 2F 24 32 33 21 21 21 22 |D IN $22/$23!!!"|
00002AC0: 3A 8D 36 33 30 30 30 00 E4 32 3A 07 4D 53 24 B2 |:.63000..2:.MS$.|
00002AD0: 22 20 12 20 4F 55 43 48 21 21 20 92 22 3A 8D 36 |" . OUCH!! .":.6|
00002AE0: 33 31 30 30 00 12 33 3B 07 99 22 13 11 11 11 11 |3100..3;..".....|
00002AF0: 11 11 11 11 2E 2C 20 42 34 44 38 20 43 38 20 20 |....., B4D8 C8 |
00002B00: 20 20 20 20 20 12 49 4E 59 20 20 20 20 20 20 20 | .INY |
00002B10: 20 22 00 3E 33 3C 07 99 22 2E 2C 20 42 34 44 39 | ".>3<.."., B4D9|
00002B20: 20 39 31 20 32 32 20 20 20 20 12 53 54 41 20 28 | 91 22 .STA (|
00002B30: 24 32 32 29 2C 59 22 3A 8D 36 33 30 30 30 00 5E |$22),Y":.63000.^|
00002B40: 33 62 07 99 22 93 2E 2C 20 42 34 42 36 20 41 35 |3b..".., B4B6 A5|
00002B50: 20 32 42 20 20 20 20 4C 44 41 20 24 32 42 00 7D | 2B LDA $2B.}|
00002B60: 33 63 07 99 22 2E 2C 20 42 34 42 38 20 41 34 20 |3c.."., B4B8 A4 |
00002B70: 32 43 20 20 20 20 4C 44 59 20 24 32 43 00 9C 33 |2C LDY $2C..3|
00002B80: 64 07 99 22 2E 2C 20 42 34 42 41 20 38 35 20 32 |d.."., B4BA 85 2|
00002B90: 32 20 20 20 20 53 54 41 20 24 32 32 00 BB 33 65 |2 STA $22..3e|
00002BA0: 07 99 22 2E 2C 20 42 34 42 43 20 38 34 20 32 33 |.."., B4BC 84 23|
00002BB0: 20 20 20 20 53 54 59 20 24 32 33 00 D6 33 66 07 | STY $23..3f.|
00002BC0: 99 22 2E 2C 20 42 34 42 45 20 31 38 20 20 20 20 |."., B4BE 18 |
00002BD0: 20 20 20 43 4C 43 00 F6 33 67 07 99 22 2E 2C 20 | CLC..3g.."., |
00002BE0: 42 34 42 46 20 41 30 20 30 31 20 20 20 20 4C 44 |B4BF A0 01 LD|
00002BF0: 59 20 23 24 30 31 00 19 34 68 07 99 22 2E 2C 20 |Y #$01..4h.."., |
00002C00: 42 34 43 31 20 42 31 20 32 32 20 20 20 20 4C 44 |B4C1 B1 22 LD|
00002C10: 41 20 28 24 32 32 29 2C 59 00 3A 34 69 07 99 22 |A ($22),Y.:4i.."|
00002C20: 2E 2C 20 42 34 43 33 20 46 30 20 31 43 20 20 20 |., B4C3 F0 1C |
00002C30: 20 42 45 51 20 24 42 34 45 31 00 5A 34 6A 07 99 | BEQ $B4E1.Z4j..|
00002C40: 22 2E 2C 20 42 34 43 35 20 41 30 20 30 34 20 20 |"., B4C5 A0 04 |
00002C50: 20 20 4C 44 59 20 23 24 30 34 00 75 34 6B 07 99 | LDY #$04.u4k..|
00002C60: 22 2E 2C 20 42 34 43 37 20 43 38 20 20 20 20 20 |"., B4C7 C8 |
00002C70: 20 20 49 4E 59 00 98 34 6C 07 99 22 2E 2C 20 42 | INY..4l.."., B|
00002C80: 34 43 38 20 42 31 20 32 32 20 20 20 20 4C 44 41 |4C8 B1 22 LDA|
00002C90: 20 28 24 32 32 29 2C 59 00 B9 34 6D 07 99 22 2E | ($22),Y..4m..".|
00002CA0: 2C 20 42 34 43 41 20 44 30 20 46 42 20 20 20 20 |, B4CA D0 FB |
00002CB0: 42 4E 45 20 24 42 34 43 37 00 D4 34 6E 07 99 22 |BNE $B4C7..4n.."|
00002CC0: 2E 2C 20 42 34 43 43 20 43 38 20 20 20 20 20 20 |., B4CC C8 |
00002CD0: 20 49 4E 59 00 EF 34 6F 07 99 22 2E 2C 20 42 34 | INY..4o.."., B4|
00002CE0: 43 44 20 39 38 20 20 20 20 20 20 20 54 59 41 00 |CD 98 TYA.|
00002CF0: 0E 35 70 07 99 22 2E 2C 20 42 34 43 45 20 36 35 |.5p.."., B4CE 65|
00002D00: 20 32 32 20 20 20 20 41 44 43 20 24 32 32 00 29 | 22 ADC $22.)|
00002D10: 35 71 07 99 22 2E 2C 20 42 34 44 30 20 41 41 20 |5q.."., B4D0 AA |
00002D20: 20 20 20 20 20 20 54 41 58 00 49 35 72 07 99 22 | TAX.I5r.."|
00002D30: 2E 2C 20 42 34 44 31 20 41 30 20 30 30 20 20 20 |., B4D1 A0 00 |
00002D40: 20 4C 44 59 20 23 24 30 30 00 6C 35 73 07 99 22 | LDY #$00.l5s.."|
00002D50: 2E 2C 20 42 34 44 33 20 39 31 20 32 32 20 20 20 |., B4D3 91 22 |
00002D60: 20 53 54 41 20 28 24 32 32 29 2C 59 00 87 35 74 | STA ($22),Y..5t|
00002D70: 07 99 22 2E 2C 20 42 34 44 35 20 39 38 20 20 20 |.."., B4D5 98 |
00002D80: 20 20 20 20 54 59 41 00 A6 35 75 07 99 22 2E 2C | TYA..5u..".,|
00002D90: 20 42 34 44 36 20 36 35 20 32 33 20 20 20 20 41 | B4D6 65 23 A|
00002DA0: 44 43 20 24 32 33 00 C1 35 76 07 99 22 2E 2C 20 |DC $23..5v.."., |
00002DB0: 42 34 44 38 20 43 38 20 20 20 20 20 20 20 49 4E |B4D8 C8 IN|
00002DC0: 59 00 E4 35 80 07 99 22 2E 2C 20 42 34 44 39 20 |Y..5..."., B4D9 |
00002DD0: 39 31 20 32 32 20 20 20 20 53 54 41 20 28 24 32 |91 22 STA ($2|
00002DE0: 32 29 2C 59 00 0E 36 8A 07 99 42 54 24 22 91 91 |2),Y..6...BT$"..|
00002DF0: 12 57 48 41 54 27 53 20 4C 45 46 54 20 54 4F 20 |.WHAT'S LEFT TO |
00002E00: 44 4F 3F 3F 3F 92 22 3A 8D 36 33 30 30 30 00 3C |DO???.":.63000.<|
00002E10: 36 94 07 99 22 93 57 45 27 56 45 20 46 49 58 45 |6...".WE'VE FIXE|
00002E20: 44 20 54 48 45 20 4C 49 4E 4B 53 20 41 54 20 24 |D THE LINKS AT $|
00002E30: 30 38 30 31 2F 24 30 38 30 32 2E 22 00 6B 36 9E |0801/$0802.".k6.|
00002E40: 07 99 22 11 54 48 45 59 20 50 4F 49 4E 54 20 54 |..".THEY POINT T|
00002E50: 4F 20 54 48 45 20 27 4E 45 58 54 27 20 4C 4F 2D |O THE 'NEXT' LO-|
00002E60: 42 59 54 45 20 4C 49 4E 4B 2E 22 00 9C 36 A8 07 |BYTE LINK."..6..|
00002E70: 99 22 11 54 48 41 54 27 53 20 54 48 45 20 46 49 |.".THAT'S THE FI|
00002E80: 52 53 54 20 4F 46 20 4F 55 52 20 27 32 20 54 48 |RST OF OUR '2 TH|
00002E90: 49 4E 47 53 27 20 44 4F 4E 45 2E 22 00 C6 36 B2 |INGS' DONE."..6.|
00002EA0: 07 99 22 11 12 4E 4F 57 92 20 57 45 20 53 54 4F |.."..NOW. WE STO|
00002EB0: 52 45 20 54 48 45 20 27 4E 45 58 54 27 20 4C 4F |RE THE 'NEXT' LO|
00002EC0: 2D 4C 49 4E 4B 22 00 F1 36 BC 07 99 22 11 41 44 |-LINK"..6...".AD|
00002ED0: 44 52 45 53 53 20 49 4E 54 4F 20 24 32 32 2F 24 |DRESS INTO $22/$|
00002EE0: 32 33 20 41 4E 44 20 53 54 41 52 54 20 41 4C 4C |23 AND START ALL|
00002EF0: 22 00 1B 37 C6 07 99 22 11 4F 56 45 52 20 41 47 |"..7...".OVER AG|
00002F00: 41 49 4E 20 57 49 54 48 20 54 48 49 53 20 12 4E |AIN WITH THIS .N|
00002F10: 45 57 20 42 41 53 45 92 21 21 22 00 4C 37 D0 07 |EW BASE.!!".L7..|
00002F20: 99 22 11 28 41 54 20 4C 45 41 53 54 20 55 4E 54 |.".(AT LEAST UNT|
00002F30: 49 4C 20 57 45 20 52 55 4E 20 41 43 52 4F 53 53 |IL WE RUN ACROSS|
00002F40: 20 12 30 30 20 30 30 20 30 30 92 22 00 7B 37 DA | .00 00 00.".{7.|
00002F50: 07 99 22 11 53 49 47 4E 49 46 59 49 4E 47 20 54 |..".SIGNIFYING T|
00002F60: 48 45 20 45 4E 44 2D 4F 46 2D 50 52 4F 47 52 41 |HE END-OF-PROGRA|
00002F70: 4D 29 2E 22 3A 8D 36 33 30 30 30 00 A6 37 E4 07 |M).":.63000..7..|
00002F80: 99 22 93 59 4F 55 20 4D 41 59 20 4E 4F 54 20 52 |.".YOU MAY NOT R|
00002F90: 45 41 4C 49 5A 45 20 49 54 20 42 55 54 20 57 45 |EALIZE IT BUT WE|
00002FA0: 20 48 41 56 45 22 00 D3 37 EE 07 99 22 11 54 48 | HAVE"..7...".TH|
00002FB0: 49 53 20 27 4E 45 57 20 42 41 53 45 27 20 41 44 |IS 'NEW BASE' AD|
00002FC0: 44 52 45 53 53 28 3D 54 48 45 20 41 44 44 52 45 |DRESS(=THE ADDRE|
00002FD0: 53 53 22 00 02 38 F8 07 99 22 11 4F 46 20 54 48 |SS"..8...".OF TH|
00002FE0: 45 20 27 4E 45 58 54 27 20 4C 4F 2D 4C 49 4E 4B |E 'NEXT' LO-LINK|
00002FF0: 29 20 49 4E 20 12 58 92 20 41 4E 44 20 12 41 92 |) IN .X. AND .A.|
00003000: 2E 22 00 35 38 02 08 99 22 11 58 20 48 41 53 20 |.".58...".X HAS |
00003010: 54 48 45 20 4C 4F 2D 42 59 54 45 21 22 3A 99 22 |THE LO-BYTE!":."|
00003020: 11 41 20 48 41 53 20 54 48 45 20 48 49 2D 42 59 |.A HAS THE HI-BY|
00003030: 54 45 21 21 22 00 5B 38 0C 08 4D 53 24 B2 22 20 |TE!!".[8..MS$." |
00003040: 20 12 43 4C 45 56 45 52 21 92 20 20 22 3A 8D 36 | .CLEVER!. ":.6|
00003050: 33 30 30 30 3A 8D 36 33 31 30 30 00 8B 38 16 08 |3000:.63100..8..|
00003060: 99 22 93 4C 45 54 27 53 20 53 45 45 20 49 54 20 |.".LET'S SEE IT |
00003070: 41 4C 4C 2E 2E 50 41 59 20 41 54 54 45 4E 54 49 |ALL..PAY ATTENTI|
00003080: 4F 4E 21 22 3A 8D 36 33 30 30 30 00 AB 38 17 08 |ON!":.63000..8..|
00003090: 99 22 93 2E 2C 20 42 34 42 36 20 41 35 20 32 42 |.".., B4B6 A5 2B|
000030A0: 20 20 20 20 4C 44 41 20 24 32 42 00 D1 38 18 08 | LDA $2B..8..|
000030B0: 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 42 38 |.63002:."., B4B8|
000030C0: 20 41 34 20 32 43 20 20 20 20 4C 44 59 20 24 32 | A4 2C LDY $2|
000030D0: 43 00 F7 38 19 08 8D 36 33 30 30 32 3A 99 22 2E |C..8...63002:.".|
000030E0: 2C 20 42 34 42 41 20 38 35 20 32 32 20 20 20 20 |, B4BA 85 22 |
000030F0: 53 54 41 20 24 32 32 00 1D 39 1A 08 8D 36 33 30 |STA $22..9...630|
00003100: 30 32 3A 99 22 2E 2C 20 42 34 42 43 20 38 34 20 |02:."., B4BC 84 |
00003110: 32 33 20 20 20 20 53 54 59 20 24 32 33 00 3F 39 |23 STY $23.?9|
00003120: 1B 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 |...63002:."., B4|
00003130: 42 45 20 31 38 20 20 20 20 20 20 20 43 4C 43 00 |BE 18 CLC.|
00003140: 66 39 1C 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 |f9...63002:."., |
00003150: 42 34 42 46 20 41 30 20 30 31 20 20 20 20 4C 44 |B4BF A0 01 LD|
00003160: 59 20 23 24 30 31 00 90 39 1D 08 8D 36 33 30 30 |Y #$01..9...6300|
00003170: 32 3A 99 22 2E 2C 20 42 34 43 31 20 42 31 20 32 |2:."., B4C1 B1 2|
00003180: 32 20 20 20 20 4C 44 41 20 28 24 32 32 29 2C 59 |2 LDA ($22),Y|
00003190: 00 B8 39 1E 08 8D 36 33 30 30 32 3A 99 22 2E 2C |..9...63002:.".,|
000031A0: 20 42 34 43 33 20 46 30 20 31 43 20 20 20 20 42 | B4C3 F0 1C B|
000031B0: 45 51 20 24 42 34 45 31 00 DF 39 1F 08 8D 36 33 |EQ $B4E1..9...63|
000031C0: 30 30 32 3A 99 22 2E 2C 20 42 34 43 35 20 41 30 |002:."., B4C5 A0|
000031D0: 20 30 34 20 20 20 20 4C 44 59 20 23 24 30 34 00 | 04 LDY #$04.|
000031E0: 01 3A 20 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 |.: ..63002:."., |
000031F0: 42 34 43 37 20 43 38 20 20 20 20 20 20 20 49 4E |B4C7 C8 IN|
00003200: 59 00 2B 3A 21 08 8D 36 33 30 30 32 3A 99 22 2E |Y.+:!..63002:.".|
00003210: 2C 20 42 34 43 38 20 42 31 20 32 32 20 20 20 20 |, B4C8 B1 22 |
00003220: 4C 44 41 20 28 24 32 32 29 2C 59 00 53 3A 22 08 |LDA ($22),Y.S:".|
00003230: 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 43 41 |.63002:."., B4CA|
00003240: 20 44 30 20 46 42 20 20 20 20 42 4E 45 20 24 42 | D0 FB BNE $B|
00003250: 34 43 37 00 75 3A 23 08 8D 36 33 30 30 32 3A 99 |4C7.u:#..63002:.|
00003260: 22 2E 2C 20 42 34 43 43 20 43 38 20 20 20 20 20 |"., B4CC C8 |
00003270: 20 20 49 4E 59 00 97 3A 24 08 8D 36 33 30 30 32 | INY..:$..63002|
00003280: 3A 99 22 2E 2C 20 42 34 43 44 20 39 38 20 20 20 |:."., B4CD 98 |
00003290: 20 20 20 20 54 59 41 00 BD 3A 25 08 8D 36 33 30 | TYA..:%..630|
000032A0: 30 32 3A 99 22 2E 2C 20 42 34 43 45 20 36 35 20 |02:."., B4CE 65 |
000032B0: 32 32 20 20 20 20 41 44 43 20 24 32 32 00 DF 3A |22 ADC $22..:|
000032C0: 26 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 |&..63002:."., B4|
000032D0: 44 30 20 41 41 20 20 20 20 20 20 20 54 41 58 00 |D0 AA TAX.|
000032E0: 06 3B 27 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 |.;'..63002:."., |
000032F0: 42 34 44 31 20 41 30 20 30 30 20 20 20 20 4C 44 |B4D1 A0 00 LD|
00003300: 59 20 23 24 30 30 00 30 3B 28 08 8D 36 33 30 30 |Y #$00.0;(..6300|
00003310: 32 3A 99 22 2E 2C 20 42 34 44 33 20 39 31 20 32 |2:."., B4D3 91 2|
00003320: 32 20 20 20 20 53 54 41 20 28 24 32 32 29 2C 59 |2 STA ($22),Y|
00003330: 00 52 3B 29 08 8D 36 33 30 30 32 3A 99 22 2E 2C |.R;)..63002:.".,|
00003340: 20 42 34 44 35 20 39 38 20 20 20 20 20 20 20 54 | B4D5 98 T|
00003350: 59 41 00 78 3B 2A 08 8D 36 33 30 30 32 3A 99 22 |YA.x;*..63002:."|
00003360: 2E 2C 20 42 34 44 36 20 36 35 20 32 33 20 20 20 |., B4D6 65 23 |
00003370: 20 41 44 43 20 24 32 33 00 9A 3B 34 08 8D 36 33 | ADC $23..;4..63|
00003380: 30 30 32 3A 99 22 2E 2C 20 42 34 44 38 20 43 38 |002:."., B4D8 C8|
00003390: 20 20 20 20 20 20 20 49 4E 59 00 C4 3B 35 08 8D | INY..;5..|
000033A0: 36 33 30 30 32 3A 99 22 2E 2C 20 42 34 44 39 20 |63002:."., B4D9 |
000033B0: 39 31 20 32 32 20 20 20 20 53 54 41 20 28 24 32 |91 22 STA ($2|
000033C0: 32 29 2C 59 00 EE 3B 36 08 8D 36 33 30 30 32 3A |2),Y..;6..63002:|
000033D0: 99 22 2E 2C 20 42 34 44 42 20 38 36 20 32 32 20 |."., B4DB 86 22 |
000033E0: 20 20 20 12 53 54 58 20 24 32 32 20 20 22 00 18 | .STX $22 "..|
000033F0: 3C 37 08 8D 36 33 30 30 32 3A 99 22 2E 2C 20 42 |<7..63002:."., B|
00003400: 34 44 44 20 38 35 20 32 33 20 20 20 20 12 53 54 |4DD 85 23 .ST|
00003410: 41 20 24 32 33 20 20 22 00 4F 3C 38 08 8D 36 33 |A $23 ".O<8..63|
00003420: 30 30 32 3A 99 22 2E 2C 20 42 34 44 46 20 39 30 |002:."., B4DF 90|
00003430: 20 44 45 20 20 20 20 12 42 43 43 20 24 42 34 42 | DE .BCC $B4B|
00003440: 46 92 5F 42 52 41 4E 43 48 20 42 41 43 4B 22 00 |F._BRANCH BACK".|
00003450: 7A 3C 39 08 99 22 20 20 20 20 20 20 20 20 20 20 |z<9.." |
00003460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003470: 20 54 4F 20 24 42 34 42 46 22 00 A6 3C 3A 08 99 | TO $B4BF"..<:..|
00003480: 22 20 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 26 20 52 45 | & RE|
000034A0: 50 45 41 54 21 22 00 D4 3C 87 13 99 3A 8D 36 33 |PEAT!"..<...:.63|
000034B0: 30 30 30 3A 99 22 93 22 3A 4D 53 24 B2 22 12 41 |000:.".":MS$.".A|
000034C0: 55 20 52 45 56 4F 49 52 21 92 22 3A 8D 36 33 31 |U REVOIR!.":.631|
000034D0: 30 30 3A 80 00 F5 3C 58 98 99 22 13 22 3B 3A 81 |00:...<X..".";:.|
000034E0: 49 B2 31 A4 31 37 3A 99 43 4C 24 3A 82 3A 99 22 |I.1.17:.CL$:.:."|
000034F0: 13 22 3B 3A 8E 00 1F 3D A2 9C 97 41 28 30 29 2C |.";:...=...A(0),|
00003500: 33 32 3A 81 54 54 B2 31 A4 50 50 3A 82 3A 81 49 |32:.TT.1.PP:.:.I|
00003510: B2 30 A4 36 3A 97 41 28 49 AA 31 29 2C 33 32 00 |.0.6:.A(I.1),32.|
00003520: 53 3D A3 9C 97 41 28 49 29 2C C5 28 CA 28 4E 24 |S=...A(I),.(.(N$|
00003530: 2C 49 AA 31 2C 31 29 29 AA 34 38 3A 81 54 54 B2 |,I.1,1)).48:.TT.|
00003540: 31 A4 50 50 3A 82 3A 82 3A 97 41 28 37 29 2C 34 |1.PP:.:.:.A(7),4|
00003550: 38 3A 8E 00 73 3D AE 9C 81 49 B2 30 A4 37 3A 97 |8:..s=...I.0.7:.|
00003560: 41 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |A(I),160:.TT.1.P|
00003570: 50 3A 82 00 93 3D AF 9C 97 41 28 49 29 2C C5 28 |P:...=...A(I),.(|
00003580: CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A |.(N$,I.1,1)).48:|
00003590: 82 3A 8E 00 B3 3D B8 9C 81 49 B2 30 A4 37 3A 97 |.:...=...I.0.7:.|
000035A0: 50 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |P(I),160:.TT.1.P|
000035B0: 50 3A 82 00 D3 3D B9 9C 97 50 28 49 29 2C C5 28 |P:...=...P(I),.(|
000035C0: CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A |.(N$,I.1,1)).48:|
000035D0: 82 3A 8E 00 F3 3D C2 9C 81 49 B2 30 A4 37 3A 97 |.:...=...I.0.7:.|
000035E0: 58 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |X(I),160:.TT.1.P|
000035F0: 50 3A 82 00 13 3E C3 9C 97 58 28 49 29 2C C5 28 |P:...>...X(I),.(|
00003600: CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A |.(N$,I.1,1)).48:|
00003610: 82 3A 8E 00 33 3E CC 9C 81 49 B2 30 A4 37 3A 97 |.:..3>...I.0.7:.|
00003620: 59 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |Y(I),160:.TT.1.P|
00003630: 50 3A 82 00 53 3E CD 9C 97 59 28 49 29 2C C5 28 |P:..S>...Y(I),.(|
00003640: CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A |.(N$,I.1,1)).48:|
00003650: 82 3A 8E 00 73 3E E0 9C 81 49 B2 30 A4 37 3A 97 |.:..s>...I.0.7:.|
00003660: 4D 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |M(I),160:.TT.1.P|
00003670: 50 3A 82 00 93 3E E1 9C 97 4D 28 49 29 2C C5 28 |P:...>...M(I),.(|
00003680: CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A |.(N$,I.1,1)).48:|
00003690: 82 3A 8E 00 B3 3E A0 A0 81 49 B2 30 A4 37 3A 97 |.:...>...I.0.7:.|
000036A0: 50 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |P(I),160:.TT.1.P|
000036B0: 50 3A 82 00 C9 3E A1 A0 97 50 28 49 29 2C C2 28 |P:...>...P(I),.(|
000036C0: 41 28 49 29 29 3A 82 3A 8E 00 E9 3E AA A0 81 49 |A(I)):.:...>...I|
000036D0: B2 30 A4 37 3A 97 58 28 49 29 2C 31 36 30 3A 81 |.0.7:.X(I),160:.|
000036E0: 54 54 B2 31 A4 50 50 3A 82 00 FF 3E AB A0 97 58 |TT.1.PP:...>...X|
000036F0: 28 49 29 2C C2 28 41 28 49 29 29 3A 82 3A 8E 00 |(I),.(A(I)):.:..|
00003700: 1F 3F B4 A0 81 49 B2 30 A4 37 3A 97 59 28 49 29 |.?...I.0.7:.Y(I)|
00003710: 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 |,160:.TT.1.PP:..|
00003720: 35 3F B5 A0 97 59 28 49 29 2C C2 28 41 28 49 29 |5?...Y(I),.(A(I)|
00003730: 29 3A 82 3A 8E 00 55 3F C8 A0 81 49 B2 30 A4 37 |):.:..U?...I.0.7|
00003740: 3A 97 4D 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 |:.M(I),160:.TT.1|
00003750: A4 50 50 3A 82 00 6B 3F C9 A0 97 4D 28 49 29 2C |.PP:..k?...M(I),|
00003760: C2 28 41 28 49 29 29 3A 82 3A 8E 00 8B 3F 7C A1 |.(A(I)):.:...?|.|
00003770: 81 49 B2 30 A4 37 3A 97 41 28 49 29 2C 31 36 30 |.I.0.7:.A(I),160|
00003780: 3A 81 54 54 B2 31 A4 50 50 3A 82 00 A1 3F 7D A1 |:.TT.1.PP:...?}.|
00003790: 97 41 28 49 29 2C C2 28 58 28 49 29 29 3A 82 3A |.A(I),.(X(I)):.:|
000037A0: 8E 00 C1 3F 90 A1 81 49 B2 30 A4 37 3A 97 4D 28 |...?...I.0.7:.M(|
000037B0: 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A |I),160:.TT.1.PP:|
000037C0: 82 00 D7 3F 91 A1 97 4D 28 49 29 2C C2 28 58 28 |...?...M(I),.(X(|
000037D0: 49 29 29 3A 82 3A 8E 00 F7 3F C2 A1 81 49 B2 30 |I)):.:...?...I.0|
000037E0: A4 37 3A 97 41 28 49 29 2C 31 36 30 3A 81 54 54 |.7:.A(I),160:.TT|
000037F0: B2 31 A4 50 50 3A 82 00 0D 40 C3 A1 97 41 28 49 |.1.PP:...@...A(I|
00003800: 29 2C C2 28 59 28 49 29 29 3A 82 3A 8E 00 2D 40 |),.(Y(I)):.:..-@|
00003810: F4 A1 81 49 B2 30 A4 37 3A 97 4D 28 49 29 2C 31 |...I.0.7:.M(I),1|
00003820: 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 43 40 |60:.TT.1.PP:..C@|
00003830: F5 A1 97 4D 28 49 29 2C C2 28 59 28 49 29 29 3A |...M(I),.(Y(I)):|
00003840: 82 3A 8E 00 54 40 60 EA 8F 20 49 4E 49 54 49 41 |.:..T@`.. INITIA|
00003850: 4C 49 5A 45 00 76 40 61 EA 42 54 24 B2 22 13 22 |LIZE.v@a.BT$."."|
00003860: 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 24 |:.I.1.24:BT$.BT$|
00003870: AA 22 11 22 3A 82 00 C0 40 62 EA 50 54 24 B2 22 |.".":...@b.PT$."|
00003880: 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D 9D |................|
00003890: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D 1D |................|
000038A0: 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000038B0: 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD 22 |..............."|
000038C0: 00 08 41 63 EA 50 54 24 B2 50 54 24 AA 22 11 9D |..Ac.PT$.PT$."..|
000038D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 A3 |................|
000038E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D 9D |................|
000038F0: 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D 3D |..........======|
00003900: 3D 3D 3D 3D 3D 3D A7 22 00 44 41 64 EA 50 54 24 |======.".DAd.PT$|
00003910: B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D |.PT$."..........|
00003920: 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00003930: A3 D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003940: 9D 9D 9D 22 00 7B 41 65 EA 50 54 24 B2 42 54 24 |...".{Ae.PT$.BT$|
00003950: AA 22 91 91 91 91 91 91 1D 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 22 AA 50 54 24 AA 22 90 22 00 AB 41 67 EA |..".PT$."."..Ag.|
00003980: 4D 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 1D |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 22 00 C6 41 68 EA |.........."..Ah.|
000039B0: 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 3A 99 |WD.40:CRT.1024:.|
000039C0: C7 28 31 34 32 29 00 EA 41 69 EA 57 32 B2 57 44 |.(142)..Ai.W2.WD|
000039D0: AD 32 3A 57 33 B2 57 44 AB 31 3A 57 31 24 B2 CA |.2:W3.WD.1:W1$..|
000039E0: 28 C4 28 57 44 29 2C 32 29 3A 00 0C 42 6A EA 57 |(.(WD),2):..Bj.W|
000039F0: 32 24 B2 CA 28 C4 28 57 32 29 2C 32 29 3A 57 33 |2$..(.(W2),2):W3|
00003A00: 24 B2 CA 28 C4 28 57 33 29 2C 32 29 00 40 42 73 |$..(.(W3),2).@Bs|
00003A10: EA 53 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.SD$."..........|
00003A20: 22 3A 43 4C 24 B2 22 22 3A 81 49 B2 31 A4 57 44 |":CL$."":.I.1.WD|
00003A30: AB 31 3A 43 4C 24 B2 43 4C 24 AA 22 20 22 3A 82 |.1:CL$.CL$." ":.|
00003A40: 00 46 42 74 EA 8E 00 53 42 18 F6 99 42 54 24 43 |.FBt...SB...BT$C|
00003A50: 4C 24 3B 00 73 42 19 F6 99 42 54 24 22 12 52 45 |L$;.sB...BT$".RE|
00003A60: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
00003A70: 45 22 3B 00 89 42 1A F6 A1 5A 24 3A 8B 5A 24 B3 |E";..B...Z$:.Z$.|
00003A80: B1 22 22 A7 36 33 30 30 32 00 9E 42 1B F6 A1 5A |."".63002..B...Z|
00003A90: 24 3A 8B 5A 24 B2 22 22 A7 36 33 30 30 33 00 A4 |$:.Z$."".63003..|
00003AA0: 42 1C F6 8E 00 BC 42 22 F6 99 42 54 24 43 4C 24 |B.....B"..BT$CL$|
00003AB0: 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 00 FC 42 23 |;:.TT.1.50:...B#|
00003AC0: F6 99 42 54 24 22 A6 A6 A6 A6 A6 A6 A6 A6 12 52 |..BT$".........R|
00003AD0: 45 54 55 52 4E 20 54 4F 20 53 45 45 20 49 54 20 |ETURN TO SEE IT |
00003AE0: 48 41 50 50 45 4E 92 A6 A6 A6 A6 A6 A6 A6 A6 22 |HAPPEN........."|
00003AF0: 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 00 12 43 24 |;:.TT.1.50:...C$|
00003B00: F6 A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 36 33 30 |..Z$:.Z$.."".630|
00003B10: 31 32 00 27 43 25 F6 A1 5A 24 3A 8B 5A 24 B2 22 |12.'C%..Z$:.Z$."|
00003B20: 22 A7 36 33 30 31 33 00 2D 43 26 F6 8E 00 41 43 |".63013.-C&...AC|
00003B30: 7C F6 81 54 B2 31 A4 35 3A 99 50 54 24 4D 53 24 ||..T.1.5:.PT$MS$|
00003B40: 3B 00 57 43 7D F6 99 50 54 24 22 20 20 20 20 20 |;.WC}..PT$" |
00003B50: 20 20 20 20 20 22 3B 00 66 43 7E F6 99 50 54 24 | ";.fC~..PT$|
00003B60: 4D 53 24 3B 3A 82 00 6C 43 7F F6 8E 00 77 43 E0 |MS$;:..lC....wC.|
00003B70: F6 8D 36 33 30 30 30 00 98 43 E1 F6 99 53 44 24 |..63000..C...SD$|
00003B80: 3B 3A 81 54 B2 31 A4 31 35 3A 99 43 4C 24 3A 82 |;:.T.1.15:.CL$:.|
00003B90: 3A 99 53 44 24 3B 3A 8E 00 AC 43 44 F7 8D 36 33 |:.SD$;:...CD..63|
00003BA0: 31 30 30 3A 8D 36 33 30 31 30 3A 8E 00 CC 43 A8 |100:.63010:...C.|
00003BB0: F7 99 22 13 22 3B 3A 81 49 B2 31 A4 35 3A 99 43 |..".";:.I.1.5:.C|
00003BC0: 4C 24 3A 82 3A 99 22 13 22 3B 3A 8E 00 E2 43 FF |L$:.:.".";:...C.|
00003BD0: F9 8D 36 30 30 30 30 3A 99 22 93 22 3A 89 32 30 |..60000:.".":.20|
00003BE0: 32 30 00 00 00 |20... |
..!...."....... 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".7.Z..".
MONITOR LIKE .EXTRAMON. OR .MICROMON.!!"
:.63000.X.D..".., E068 A9 20 LDA #$23
.{.E.."., E06A 9D 00 80 STA $0400,X...F.
."., E06D 9D 00 81 STA $0500,X.A.G..".,
E070 9D 00 82 STA $0600,X...H.."., E073
9D 00 83 STA $0700,X...I.."., E076 CA
DEX.(.J.."., E077 D0 F1 BNE $E06A
":.63000.N.N..".., E068 A9 20 .LDA #$
23 ".S.O.."., E06A 9D 00 80 .STA $0400
,X"...P.."., E06D 9D 00 81 .STA $0500,X"
...Q.."., E070 9D 00 82 .STA $0600,X"...
R.."., E073 9D 00 83 .STA $0700,X"...S..
"., E076 CA .DEX ".,.T..".,
E077 D0 F1 .BNE $E06A ".D.X..".QREC
OGNIZE THE .ASSEMBLER. INSTRUCTIONS?":.6
3000......".., E068 .A9 20 .LDA #$23
"......"., E06A .9D 00 80 .STA $0400,X
".W...."., E06D .9D 00 81 .STA $0500,X".
....."., E070 .9D 00 82 .STA $0600,X".#.
..."., E073 .9D 00 83 .STA $0700,X".I...
."., E076 .CA .DEX ".O...."
., E077 .D0 F1 .BNE $E06A "......"..
..QTHESE ARE THE HEX BYTES THAT ARE
".O...." ACTUALLY IN MEMORY. "
:.63000... ..".., .E068 .A9 20 LDA #$
23......"., .E06A .9D 00 80 STA $0400,X.
<...."., .E06D .9D 00 81 STA $0500,X.A..
.."., .E070 .9D 00 82 STA $0600,X......"
., .E073 .9D 00 83 STA $0700,X......".,
.E076 .CA DEX.F...."., .E077 .D0 F
1 BNE $E06A......"........QTHESE ARE
THE LOCATIONS IN MEMORY".#...." WHICH CO
NTAIN THE M-L CODE.":.63000.?...MS$." O
NWARD ":.63100.F....".NOW LET'S LOOK AT
HOW A BASIC "......"..NEW. IS DONE. WE'
LL PRETEND THE"......".CODE IS FROM $B5D
4 TO $B5E8.".Z....".RECALL THAT THE FIRS
T 3 BYTES"......".AT $0800/$0801/$0802 M
UST BE .00 00 00..".7....".BUT $0800 ALW
AYS HAS .00. ANYWAY SO".C....".WE JUST F
ILL $0801/$0802 WITH .00.."......".QTHE
.START OF BASIC. IS KEPT IN $2B/$2C.".C.
A..".QTHE .END OF BASIC., KEPT IN $2D/$2
E,"...B..".MUST BE JUST 2 BYTES PAST THE
.START.."...C..".LET'S SEE HOW IT'S DON
E..":.63000.+.D..".......";.Y...."......
.., B5D4 A9 00 .LDA #$00 ._"......"
., B5D6 A8 .TAY ._"......63
400:."BOTH .A. AND .Y. ARE FILLED ".Q...
.".WITH #$.00...TO START.":.63000......"
.........., B5D7 91 2B .STA ($2B),Y..
. .. .._".1....63400:.".SINCE .$2B. CONT
AINS THE".\....".THE START OF BASIC,(USU
ALLY $0801)"......".#$.00. IS STORED IN
($2B)+Y.":.63000.A."..63400:."THEN .INY.
GETS READY TO STORE #$.00. INTO"...,.."
.THE SECOND BYTE OF 'BASIC' AT (USUALLY)
"...6..".$0802.".<.@.."..........., B5D9
C8 .INY .. .._":.63000.R.J
.."............, B5DA 91 2B .STA ($2B
),Y.. .._"...T..63400:."THERE SHE GOES!"
:.63000.C.^..63400:."THE .END. OF BASIC
NOW HAS TO"...H..".BE CHANGED TO READ .$
0803...AND .END"...R..".IS STORED AT .$2
D/$2E..":.63000.N.S.."............., B5D
C A5 2B .LDA $2B .. .._".Z.|..6340
0:."SO WE .LDA $2B. GETTING READY"......
".TO ADD 2..":.63000.F....63400:."BUT RE
MEMBER TO .CLC. FIRST!":.63000......"...
..........., B5DE 18 .CLC .
. .._":.63000.>...."..............., B5D
F 69 02 .ADC #$02 .. .._".Z....6340
0:."SEE..WE ADD 2.":.".THEN WE STORE THI
S LO-BYTE"......".INTO $2D.":.63000.T.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.":.63
000.}...."................., B5E3 A5 2C
.LDA $2C .. .._":.63000......63400
:."BUT, JUST IN CASE THERE'S A .CARRY.".
.....".LEFT OVER FROM THE .ADC #$02. WE.
.":.63000.$....".................., B5E5
69 00 .ADC #$00 .. .._":.63000.W..
..63400:."NOW........ WE CAN STICK THE H
I-BYTE".P....".INTO $2E.":.63000......".
.................., B5E7 85 2E .STA $
2E .. .._":.63000...&..63400:MS$.".NI
CE!NICE!.":.63100:.63000...0..".NOW LET'
S LOOK AT HOW .BASIC CHAINING.".8.:..".M
IGHT BE ACCOMPLISHED IN BASIC .".G.;..".
.(THE STATEMENTS IN BASIC ARE .LINKED.".
..<..".AND THESE LINKS MUST BE RECREATED
"...=..".EACH TIME WE INSERT OR MODIFY."
.T.>..".THAT'S .CHAINING..)"...D.."..REC
ALL THAT BASIC STATEMENTS ARE STORED".=.
N..".FROM $0801 IN THE FOLLOWING FORMAT:
":.63000:.".".T.X.BA$.".................
.......... ..........".G(13)...B.Z$.".
. . . . .--. . .".G(
13)...L.BA$.BA$.Z$.Z$.Z$."..............
............. ..........".G(13).".....".
4.V..BT$"......."BA$."LINK.LINK.STMT.STM
T.BASIC...ZERO.LINK".B....".BYTE.BYTE.NU
M..NUM..TEXT ...BYTE.BYTE"......". LO .
HI . LO . HI .AREA....=END. LO".W...M1$.
BT$.".. .^^^^ ^^^^.":.M1$:.".QTHIS IS TH
E ADDRESS OF THE .NEXT"......".BASIC STA
TEMENT.":.63000.#...M2$.BT$."..
.^^^^ ^^^^.":.M2$.P....".....QTHIS IS
BASIC STATEMENT NUMBER:".U....".LO-BYTE
THEN HI-BYTE.":.63000...F.M3$.BT$."..
.^^^^-^.":.M3$...P..".
........QTHIS IS THE BASIC TEXT ITSELF."
:.63000.....M4$.BT$."..
.^^^^.":.M4$.D....".........
..QEND-OF-STATEMENT.":.63000.....M5$.BT$
.".. .^
^^^.":.M5$......"..............QTHE NEXT
LINK.":.63000.A....M5$".... "......3
9000:."QWE WILL LOOK IN $2B/$2C TO".....
.".FIND THE START OF BASIC (USUALLY $080
1)"._. ..".POINTING TO THE FIRST LINK (L
O-BYTE).":.M1$".... ":.63000...*.."..
.....QTHEN WE WILL MARCH THROUGH TO THE
END".B.4..".OF THE FIRST BASIC STATEMENT
....":.M4$...>..63000:."...........AND S
TORE THE ADDRESS OF THE .NEXT. LINK..".E
.H..M5$:.63000:.".............INTO THE L
INKS AT $0801/$0802.".D.R..M5$".... "
:.M1$:.63000.~.\..39000:.M1$".... "..
.F..".QIN FACT, ONCE AT THE LO-BYTE OF T
HE".Y.P..".LINK WE CAN JUMP AHEAD 5 BYTE
S BEFORE"...Z..".WE TEST FOR THE .00. BY
TE MARKING THE".:....".END OF THE CURREN
T BASIC STATEMENT.":.63000.I....T.1.200:
.:.M2$:.T.1.200:.:.M3$:.T.1.200:..Y....M
4$:.63000......".., B4B6 A5 2B .LDA $
2B ".D...."., B4B8 A4 2C .LDY $2C
"......"., B4BA 85 22 .STA $22
".. ..."., B4BC 84 23 .STY $23 ".=
...".WE GET THE START-OF-BASIC ADDRESS
FROM".F ...".$2B/$2C AND STORE IT IN $22
/$23.".. ...".WE WILL BE MODIFYING THIS
ADDRESS AND".A ...".WILL DO THE MODIFYIN
G TO THE COPY AT".R J..".$22/$23."..!T..
".THE CONTENTS OF $22/$23 WILL HOLD THE"
.+!..."..LO-BYTE LINK. AS WE MARCH THROU
GH".I!...".THE BASIC STATEMENTS.".V!..."
.TO START WITH IT HOLDS $0801.":.63000..
!...".., B4BE 18 .CLC ".D!..
."..WE DO THIS .CLC. IN PREPARATION"..!.
..".FOR AN .ADC. LATER ON..":.63000.."..
.".., B4BF A0 01 .LDY #$01 ".6"$.."
., B4C1 B1 22 .LDA ($22),Y".B"..."...
NOW THE A-REGISTER HOLDS THE BYTE".{"8..
".STORED AT $0802.".."B..".THAT'S THE .H
I-BYTE LINK. TO THE".B"L..".NEXT BASIC S
TATEMENT.".."`..".IF THIS IS .00. THEN W
E MUST BE AT"..#J..".END OF THE PROGRAM!
".>#T..".(REMEMBER..END-OF-PROGRAM HAS .
00. .00. .00.".P#~..".WHICH IMPLIES A .0
0. HI-BYTE LINK.":.63000..#..."...., B4C
3 F0 1C .BEQ $B4E1 ".M#...T.1.20:.CL
$:.:."........SO WE TEST IT FOR ZERO"..#
...".AND .BEQ. TO $B4E1 WHICH IS AN EXIT
"..$...".FROM THIS ROUTINE!":.63000.;$..
.".., B4B6 A5 2B LDA $2B.Z$..."., B4B
8 A4 2C LDY $2C.Y$..."., B4BA 85 22
STA $22..$..."., B4BC 84 23 STY $23
..$..."., B4BE 18 CLC.S$..."., B4B
F A0 01 LDY #$01..$..."., B4C1 B1 22
LDA ($22),Y..%..."., B4C3 F0 1C BE
Q $B4E1.;%...".THAT'S WHAT WE HAVE SO FA
R.".I%D..".NOW WE'RE GOING TO MOVE AHEAD
5 BYTES"..%N..".AND START CHECKING EACH
BYTE FROM THERE".G%X..".FOR THE .00. EN
D-OF-STATEMENT.":.63000..%...".., B4C5 A
0 04 .LDY #$04 "..&..."., B4C7 C8
.INY ".7&..."., B4C8 B1 22
.LDA ($22),Y".\&..."., B4CA D0 FB .
BNE $B4C7 "..&...".HERE WE .LDY #$04. T
HEN .INY. WHICH"..&...".MAKES .$(22),Y.
5 BYTES PAST OUR 'BASE'".W&...".AT THE .
LO-BYTE LINK.."..'(..".WE CHECK THIS BYT
E FOR .00., TO SEE".-'<..".IF IT'S THE E
ND-OF-STATEMENT, AND".^'F.."..B.RANCH IF
.N.OT .E.QUAL TO ZERO TO THE"..'P.."..I
NY. 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 TH
E END-OF-STATEMENT".I(X..".AND MUST NOW
DETERMINE THE ADDRESS OF".{(...".OF THE
'NEXT'.......... . .LO-BYTE LINK.."..(..
.".TWO THINGS ARE DONE WITH THIS ADDRESS
.".U(...".1:IT WILL BE STORED IN THE EAR
LIER"..( .." LINKS (ORIGINALLY $0801/$0
802).".%)...".2:OUR 'BASE' (KEPT IN $22/
$23)".P)..." ORIGINALLY WAS THE LINK AT
$0801."..)..." $22/$23 WILL BE CHANGED
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.F*R..".., B4CC C8
.INY ".T*...SD$".INY. ADVANCES 1
BYTE PAST THE .00."..*...".END-OF-STATE
MENT TO THE 'NEXT' .LO-LINK..".Q*...".NO
W .($22),Y. POINTS TO THE 'NEXT'"..*..."
..LO-LINK. AND WE DO OUR '2 THINGS'"..+.
..".WITH THIS ADDRESS..":.63000.E+..."..
., B4CD 98 TYA ".I+..."., B
4CE 65 22 ADC $22 "..+..."., B4D0
AA TAX "..+..."., B4D1 A0 0
0 LDY #$00 ".U+..."., B4D3 91 22
STA ($22),Y"..+...SD$;:.T.1.10:.CL$:..
,...SD$"QWE .ADC. THE ADDRESS AT .$22. T
O .Y...".P,".."BUT .ADC. ONLY WORKS WITH
THE A-REGISTER"..,,.."SO WE .TYA. FIRST
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 'NE
XT' .LO-LINK..".N-E.."WE SAVE THIS MAGIC
BYTE IN 'X'..":.63000..-F.."....., B4D0
AA .TAX ":.63000.S-J..SD$"
......QTHEN PUT IT INTO $0801 WHICH IS T
HE"..-T.."ADDRESS CURRENTLY HELD IN $22/
$23.".(.^.."WE DO THIS WITH .STA. INTO .
($22),0".U.C.."WHICH REQUIRES 'Y=0' SO W
E .LDY #$00."...H.."THEN.......... .STA
($22),Y.!":.63000...I.."......, B4D1 A0
00 .LDY #$00 ".W.J.."., B4D3 91 22
.STA ($22),Y":.63000...R..SD$;:.I.1.1
5:.CL$:.../W.MS$.".GO!GO!GO!.":.63100.&/
|..SD$;:.I.1.15:.CL$:..Q/}.."........, B
4D5 98 TYA ".V/~.."., B4D6
65 23 ADC $23 "../.."., B4D8 C8
INY "../..."., B4D9 91 22
STA ($22),Y"../...SD$"......WE HAVE T
HE LO-LINK FIXED UP."..0...".NOW FOR THE
HI-LINK.":.63000.10...SD$"......";:.I.1
.8:.CL$:..^0...SD$"....QWE CLEAR THE A-R
EGISTER TO 00"..0...".WITHOUT. AFFECTING
ANY CARRY "..0..."LEFT OVER FROM THE EA
RLIER .ADC $22..":.63000..0..."........,
B4D5 98 .TYA ":.63000..1B.
.SD$".......QTHEN WE .ADC $23.".51L.."AD
DING THE CARRY BIT (IF ANY!)".]1V.."TO T
HE HI-BYTE OF OUR NEW 'BASE'"..1..."ADDR
ESS IN $22/$23-WHICH ALWAYS"..1..."POINT
S 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".Q2..
."NEW LO-LINK ADDRESS IN 'A' AND".W2..."
WE NEED TO STUFF IT INTO $0802"..2&.."WH
ICH IS 1 BYTE PAST $0801 AND".G20.."$080
1 IS HELD IN $22/$23!!!":.63000..2:.MS$.
" . OUCH!! .":.63100..3;..".........., B
4D8 C8 .INY ".>3<.."., B4D9
91 22 .STA ($22),Y":.63000.^3B.."..,
B4B6 A5 2B LDA $2B.}3C.."., B4B8 A4
2C LDY $2C..3D.."., B4BA 85 22 STA
$22..3E.."., B4BC 84 23 STY $23.V3F.
."., B4BE 18 CLC..3G.."., B4BF A0
01 LDY #$01..4H.."., B4C1 B1 22 LD
A ($22),Y.:4I.."., B4C3 F0 1C BEQ $B4
E1.Z4J.."., B4C5 A0 04 LDY #$04.U4K..
"., B4C7 C8 INY..4L.."., B4C8 B1 2
2 LDA ($22),Y..4M.."., B4CA D0 FB
BNE $B4C7.T4N.."., B4CC C8 INY..4O
.."., B4CD 98 TYA..5P.."., B4CE 65
22 ADC $22.)5Q.."., B4D0 AA TA
X.I5R.."., B4D1 A0 00 LDY #$00.L5S.."
., B4D3 91 22 STA ($22),Y..5T.."., B4
D5 98 TYA..5U.."., B4D6 65 23 A
DC $23.A5V.."., B4D8 C8 INY..5..."
., B4D9 91 22 STA ($22),Y..6...BT$"..
.WHAT'S LEFT TO DO???.":.63000.<6...".WE
'VE FIXED THE LINKS AT $0801/$0802.".K6.
..".THEY POINT TO THE 'NEXT' LO-BYTE LIN
K."..6...".THAT'S THE FIRST OF OUR '2 TH
INGS' DONE.".F6..."..NOW. WE STORE THE '
NEXT' LO-LINK"..6...".ADDRESS INTO $22/$
23 AND START ALL"..7F..".OVER AGAIN WITH
THIS .NEW BASE.!!".L7P..".(AT LEAST UNT
IL WE RUN ACROSS .00 00 00.".{7Z..".SIGN
IFYING THE END-OF-PROGRAM).":.63000..7..
.".YOU MAY NOT REALIZE IT BUT WE HAVE".S
7...".THIS 'NEW BASE' ADDRESS(=THE ADDRE
SS"..8...".OF THE 'NEXT' LO-LINK) IN .X.
AND .A..".58...".X HAS THE LO-BYTE!":."
.A HAS THE HI-BYTE!!".[8..MS$." .CLEVER
!. ":.63000:.63100..8...".LET'S SEE IT
ALL..PAY ATTENTION!":.63000..8...".., B4
B6 A5 2B LDA $2B.Q8...63002:."., B4B8
A4 2C LDY $2C..8...63002:."., B4BA 8
5 22 STA $22..9...63002:."., B4BC 84
23 STY $23.?9...63002:."., B4BE 18
CLC.F9...63002:."., B4BF A0 01 LD
Y #$01..9...63002:."., B4C1 B1 22 LDA
($22),Y..9...63002:."., B4C3 F0 1C B
EQ $B4E1..9...63002:."., B4C5 A0 04 L
DY #$04..: ..63002:."., B4C7 C8 IN
Y.+:!..63002:."., B4C8 B1 22 LDA ($22
),Y.S:"..63002:."., B4CA D0 FB BNE $B
4C7.U:#..63002:."., B4CC C8 INY..:
$..63002:."., B4CD 98 TYA..:%..630
02:."., B4CE 65 22 ADC $22..:&..63002
:."., B4D0 AA TAX..;'..63002:.".,
B4D1 A0 00 LDY #$00.0;(..63002:."., B
4D3 91 22 STA ($22),Y.R;)..63002:.".,
B4D5 98 TYA.X;*..63002:."., B4D6
65 23 ADC $23..;4..63002:."., B4D8 C8
INY.D;5..63002:."., B4D9 91 22
STA ($22),Y..;6..63002:."., B4DB 86 22
.STX $22 "..<7..63002:."., B4DD 85 2
3 .STA $23 ".O<8..63002:."., B4DF 90
DE .BCC $B4BF._BRANCH BACK".Z<9.."
TO $B4BF"..<:..
" & REPEAT!".T
<...:.63000:.".":MS$.".AU REVOIR!.":.631
00:...<X..".";:.I.1.17:.CL$:.:.".";:...=
...A(0),32:.TT.1.PP:.:.I.0.6:.A(I.1),32.
S=...A(I),E(J(N$,I.1,1)).48:.TT.1.PP:.:.
:.A(7),48:..S=...I.0.7:.A(I),160:.TT.1.P
P:...=...A(I),E(J(N$,I.1,1)).48:.:...=..
.I.0.7:.P(I),160:.TT.1.PP:..S=...P(I),E(
J(N$,I.1,1)).48:.:...=B..I.0.7:.X(I),160
:.TT.1.PP:...>C..X(I),E(J(N$,I.1,1)).48:
.:..3>L..I.0.7:.Y(I),160:.TT.1.PP:..S>M.
.Y(I),E(J(N$,I.1,1)).48:.:..S>...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.P
P:..I>. .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:..5?. .Y(I
),B(A(I)):.:..U?H .I.0.7:.M(I),160:.TT.1
.PP:..K?I .M(I),B(A(I)):.:...?|..I.0.7:.
A(I),160:.TT.1.PP:...?}..A(I),B(X(I)):.:
..A?...I.0.7:.M(I),160:.TT.1.PP:..W?...M
(I),B(X(I)):.:...?B..I.0.7:.A(I),160:.TT
.1.PP:...@C..A(I),B(Y(I)):.:..-@...I.0.7
:.M(I),160:.TT.1.PP:..C@...M(I),B(Y(I)):
.:..T@`.. INITIALIZE.V@A.BT$.".":.I.1.24
:BT$.BT$.".":...@B.PT$."................
........................................
......."..AC.PT$.PT$."..............N...
.........M................============."
.DAD.PT$.PT$."...............PO.........
.PO................".{AE.PT$.BT$."......
..........................".PT$."."..AG.
ML$."...................................
..".FAH.WD.40:CRT.1024:.G(142)..AI.W2.WD
.2:W3.WD.1:W1$.J(D(WD),2):..BJ.W2$.J(D(W
2),2):W3$.J(D(W3),2).@BS.SD$."..........
":CL$."":.I.1.WD.1:CL$.CL$." ":..FBT...S
B...BT$CL$;.SB...BT$".RETURN. TO CONTINU
E";..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$.."".630
12.'C%..Z$:.Z$."".63013.-C&...AC|..T.1.5
:.PT$MS$;.WC}..PT$" ";.FC~..PT$
MS$;:..LC...WC...63000..C...SD$;:.T.1.1
5:.CL$:.:.SD$;:...CD..63100:.63010:..LC.
..".";:.I.1.5:.CL$:.:.".";:...C...60000:
.".":.2020...
> CLICK IMAGE PREVIEW FOR FULL MODAL