Multiple names: PONZO TUTOR-7.64, PONZO TUTOR NO 7
FILE INFORMATION
FILENAME(S):
• PONZO TUTOR-7.64<br>• PONZO TUTOR NO 7
FILE TYPE(S): PRG
FILE SIZE: 14.7K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 3 disk(s)
FILE HASH
0d35eb68c104acc124065640dd8e712543dacbfcff131494e10f6ad034909917
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | PONZO TUTOR-7.64 | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | PONZO TUTOR-7.64 | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 0 | DOWNLOAD FILE |
| PONZO TUTOR | PONZO TUTOR NO 7 | PRG | DuncanTwain | 7 | 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 32 2A 57 41 54 45 52 4C 4F |PONZO*82*WATERLO|
00000020: 4F 00 2F 08 01 00 8F 22 14 14 14 14 14 14 14 00 |O./...."........|
00000030: 4C 08 05 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 37 | ..C64 TUTOR-7|
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 2E 2E 2E |......". .. ...|
000000B0: 41 4E 44 20 4D 4F 52 45 20 4D 41 43 48 49 4E 45 |AND MORE MACHINE|
000000C0: 20 4C 41 4E 47 55 41 47 45 2E 2E 2E 20 20 1C 92 | 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 39 |:.63100:.63000.9|
00000130: 09 28 00 8D 32 30 30 30 30 00 65 09 2D 00 99 22 |.(..20000.e.-.."|
00000140: 93 22 3A 99 53 44 24 22 52 45 43 41 4C 4C 20 54 |.":.SD$"RECALL T|
00000150: 48 41 54 20 54 48 45 20 12 36 35 31 30 92 20 48 |HAT THE .6510. H|
00000160: 41 53 20 41 22 00 9C 09 32 00 99 22 11 4E 55 4D |AS A"...2..".NUM|
00000170: 42 45 52 20 4F 46 20 49 4E 54 45 52 4E 41 4C 20 |BER OF INTERNAL |
00000180: 52 45 47 49 53 54 45 52 53 2E 2E 2E 22 3A 8D 36 |REGISTERS...":.6|
00000190: 33 30 30 30 3A 99 41 24 58 24 59 24 00 CB 09 3C |3000:.A$X$Y$...<|
000001A0: 00 8D 33 39 31 30 30 3A 99 22 53 4F 4D 45 20 43 |..39100:."SOME C|
000001B0: 4F 4D 4D 41 4E 44 53 20 41 46 46 45 43 54 20 54 |OMMANDS AFFECT T|
000001C0: 48 45 20 4E 55 4D 42 45 52 53 22 00 00 0A 46 00 |HE NUMBERS"...F.|
000001D0: 99 22 43 4F 4E 54 41 49 4E 45 44 20 49 4E 20 54 |."CONTAINED IN T|
000001E0: 48 45 53 45 20 52 45 47 49 53 54 45 52 53 2E 2E |HESE REGISTERS..|
000001F0: 22 3A 8D 36 33 30 30 30 3A 99 53 44 24 22 11 22 |":.63000:.SD$"."|
00000200: 00 3D 0A 5A 00 99 22 11 12 41 44 43 92 20 12 41 |.=.Z.."..ADC. .A|
00000210: 4E 44 92 20 12 41 53 4C 92 20 12 43 4D 50 92 20 |ND. .ASL. .CMP. |
00000220: 12 43 50 58 92 20 12 43 50 59 92 20 12 44 45 43 |.CPX. .CPY. .DEC|
00000230: 92 20 12 44 45 58 92 20 12 44 45 59 22 00 7A 0A |. .DEX. .DEY".z.|
00000240: 64 00 99 22 11 12 45 4F 52 92 20 12 49 4E 43 92 |d.."..EOR. .INC.|
00000250: 20 12 49 4E 58 92 20 12 49 4E 59 92 20 12 4C 44 | .INX. .INY. .LD|
00000260: 41 92 20 12 4C 44 58 92 20 12 4C 44 59 92 20 12 |A. .LDX. .LDY. .|
00000270: 4C 53 52 92 20 12 4F 52 41 22 00 B7 0A 6E 00 99 |LSR. .ORA"...n..|
00000280: 22 11 12 50 4C 41 92 20 12 50 4C 50 92 20 12 52 |"..PLA. .PLP. .R|
00000290: 4F 4C 92 20 12 52 4F 52 92 20 12 52 54 49 92 20 |OL. .ROR. .RTI. |
000002A0: 12 53 42 43 92 20 12 54 41 58 92 20 12 54 53 58 |.SBC. .TAX. .TSX|
000002B0: 92 20 12 54 58 41 22 00 EF 0A 78 00 99 22 11 2E |. .TXA"...x.."..|
000002C0: 2E 41 4E 44 20 12 54 59 41 92 21 21 22 3A 4D 53 |.AND .TYA.!!":MS|
000002D0: 24 B2 22 57 48 45 52 45 27 53 12 42 49 54 92 22 |$."WHERE'S.BIT."|
000002E0: 20 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 | :.63100:.63000.|
000002F0: 1F 0B 82 00 8D 33 39 31 30 30 3A 99 22 54 48 45 |.....39100:."THE|
00000300: 20 12 36 35 31 30 92 20 4B 45 45 50 53 20 54 52 | .6510. KEEPS TR|
00000310: 41 43 4B 20 4F 46 20 57 48 45 54 48 45 52 22 00 |ACK OF WHETHER".|
00000320: 51 0B 8C 00 99 22 11 4F 4E 45 20 4F 46 20 54 48 |Q....".ONE OF TH|
00000330: 45 53 45 20 4F 50 45 52 41 54 49 4F 4E 53 20 50 |ESE OPERATIONS P|
00000340: 52 4F 44 55 43 45 53 20 41 20 12 5A 92 45 52 4F |RODUCES A .Z.ERO|
00000350: 22 00 7E 0B 96 00 99 22 11 4F 52 20 12 4E 92 45 |".~....".OR .N.E|
00000360: 47 41 54 49 56 45 20 52 45 53 55 4C 54 2E 2E 41 |GATIVE RESULT..A|
00000370: 4E 44 2C 20 46 4F 52 20 12 41 44 43 92 22 00 AA |ND, FOR .ADC."..|
00000380: 0B A0 00 99 22 11 41 4E 44 20 12 53 42 43 92 20 |....".AND .SBC. |
00000390: 28 41 44 44 20 26 20 53 55 42 54 52 41 43 54 29 |(ADD & SUBTRACT)|
000003A0: 2C 20 57 48 45 54 48 45 52 22 00 DF 0B AA 00 99 |, WHETHER"......|
000003B0: 22 11 54 48 45 20 4F 50 45 52 41 54 49 4F 4E 20 |".THE OPERATION |
000003C0: 50 52 4F 44 55 43 45 53 20 41 4E 20 12 4F 56 45 |PRODUCES AN .OVE|
000003D0: 52 46 4C 4F 57 92 2E 22 3A 8D 36 33 30 30 30 00 |RFLOW..":.63000.|
000003E0: 0D 0C B4 00 8D 33 39 31 30 30 3A 99 22 54 48 45 |.....39100:."THE|
000003F0: 20 12 50 92 52 4F 43 45 53 53 4F 52 20 53 54 41 | .P.ROCESSOR STA|
00000400: 54 55 53 20 52 45 47 49 53 54 45 52 22 00 3B 0C |TUS REGISTER".;.|
00000410: BE 00 99 22 11 48 41 53 20 38 20 42 49 54 53 2E |...".HAS 8 BITS.|
00000420: 20 54 48 52 45 45 20 42 49 54 53 20 41 52 45 20 | THREE BITS ARE |
00000430: 44 45 56 4F 54 45 44 20 54 4F 22 00 70 0C C8 00 |DEVOTED TO".p...|
00000440: 99 22 11 12 4E 92 45 47 41 54 49 56 45 2C 4F 12 |."..N.EGATIVE,O.|
00000450: 56 92 45 52 46 4C 4F 57 20 41 4E 44 20 12 5A 92 |V.ERFLOW AND .Z.|
00000460: 45 52 4F 2E 22 3A 8D 36 33 30 30 30 3A 99 50 24 |ERO.":.63000:.P$|
00000470: 00 99 0C D2 00 97 50 28 30 29 2C 31 34 32 3A 97 |......P(0),142:.|
00000480: 50 28 31 29 2C 31 35 30 3A 97 50 28 36 29 2C 31 |P(1),150:.P(6),1|
00000490: 35 34 3A 8D 36 33 30 30 30 00 B8 0C D7 00 97 50 |54:.63000......P|
000004A0: 28 30 29 2C 33 32 3A 97 50 28 31 29 2C 33 32 3A |(0),32:.P(1),32:|
000004B0: 97 50 28 36 29 2C 33 32 00 EC 0C DC 00 8D 33 39 |.P(6),32......39|
000004C0: 31 30 30 3A 99 22 49 46 20 41 4E 20 4F 50 45 52 |100:."IF AN OPER|
000004D0: 41 54 49 4F 4E 20 50 52 4F 44 55 43 45 53 20 41 |ATION PRODUCES A|
000004E0: 20 12 4E 92 45 47 41 54 49 56 45 22 00 12 0D E6 | .N.EGATIVE"....|
000004F0: 00 99 22 11 52 45 53 55 4C 54 2C 12 4E 3D 31 92 |..".RESULT,.N=1.|
00000500: 22 3A 97 50 28 30 29 2C 31 37 37 3A 8D 36 33 30 |":.P(0),177:.630|
00000510: 30 30 00 40 0D F0 00 8D 33 39 31 30 30 3A 99 22 |00.@....39100:."|
00000520: 49 46 20 49 54 27 53 20 4E 4F 54 20 4E 45 47 41 |IF IT'S NOT NEGA|
00000530: 54 49 56 45 20 54 48 45 4E 20 12 4E 3D 30 92 22 |TIVE THEN .N=0."|
00000540: 00 72 0D FA 00 99 22 11 28 4D 45 41 4E 49 4E 47 |.r....".(MEANING|
00000550: 20 49 54 27 53 20 50 4F 53 49 54 49 56 45 21 29 | IT'S POSITIVE!)|
00000560: 22 3A 97 50 28 30 29 2C 31 37 36 3A 8D 36 33 30 |":.P(0),176:.630|
00000570: 30 30 00 96 0D 04 01 99 22 93 41 20 4E 45 47 41 |00......".A NEGA|
00000580: 54 49 56 45 20 4E 55 4D 42 45 52 20 48 41 53 20 |TIVE NUMBER HAS |
00000590: 41 20 27 31 27 22 00 B3 0D 0E 01 99 22 11 49 4E |A '1'"......".IN|
000005A0: 20 54 48 45 20 4D 53 42 20 50 4F 53 49 54 49 4F | THE MSB POSITIO|
000005B0: 4E 2E 22 00 E1 0D 18 01 99 22 11 49 46 20 4F 4E |N."......".IF ON|
000005C0: 45 20 4F 46 20 54 48 45 20 4F 50 45 52 41 54 49 |E OF THE OPERATI|
000005D0: 4F 4E 53 20 57 48 49 43 48 20 41 46 46 45 43 54 |ONS WHICH AFFECT|
000005E0: 22 00 0E 0E 22 01 99 22 11 54 48 45 20 41 2C 58 |"..."..".THE A,X|
000005F0: 20 4F 52 20 59 2D 52 45 47 49 53 54 45 52 53 20 | OR Y-REGISTERS |
00000600: 49 53 20 50 45 52 46 4F 52 4D 45 44 2C 22 00 3D |IS PERFORMED,".=|
00000610: 0E 2C 01 99 22 11 41 4E 44 20 54 48 45 20 4D 53 |.,..".AND THE MS|
00000620: 42 20 4F 46 20 54 48 45 20 52 45 53 55 4C 54 20 |B OF THE RESULT |
00000630: 49 53 20 27 31 27 2C 20 54 48 45 4E 22 00 65 0E |IS '1', THEN".e.|
00000640: 36 01 99 22 11 12 4E 3D 31 92 2E 20 49 54 27 53 |6.."..N=1.. IT'S|
00000650: 20 54 48 41 54 20 53 49 4D 50 4C 45 21 22 3A 8D | THAT SIMPLE!":.|
00000660: 36 33 30 30 30 00 88 0E 40 01 4D 53 24 B2 22 20 |63000...@.MS$." |
00000670: 20 12 4E 3D 4D 53 42 92 20 22 3A 8D 36 33 31 30 | .N=MSB. ":.6310|
00000680: 30 3A 8D 36 33 30 30 30 00 B7 0E 4A 01 99 22 93 |0:.63000...J..".|
00000690: 12 42 4D 49 20 24 31 32 33 34 92 20 57 49 4C 4C |.BMI $1234. WILL|
000006A0: 20 54 45 53 54 20 54 48 45 20 12 4E 92 2D 42 49 | TEST THE .N.-BI|
000006B0: 54 20 41 4E 44 2C 22 00 E2 0E 54 01 99 22 11 49 |T AND,"...T..".I|
000006C0: 46 20 49 54 27 53 20 27 31 27 2C 20 57 49 4C 4C |F IT'S '1', WILL|
000006D0: 20 42 52 41 4E 43 48 20 54 4F 20 24 31 32 33 34 | BRANCH TO $1234|
000006E0: 2E 22 00 0B 0F 5E 01 99 22 11 28 53 49 4E 43 45 |."...^..".(SINCE|
000006F0: 20 54 48 45 20 27 52 45 53 55 4C 54 27 20 49 53 | THE 'RESULT' IS|
00000700: 20 12 4D 49 92 4E 55 53 21 29 22 00 36 0F 68 01 | .MI.NUS!)".6.h.|
00000710: 99 22 11 12 42 50 4C 20 24 31 32 33 34 92 20 57 |."..BPL $1234. W|
00000720: 49 4C 4C 20 12 42 92 52 41 4E 43 48 20 54 4F 20 |ILL .B.RANCH TO |
00000730: 24 31 32 33 34 22 00 5F 0F 72 01 99 22 11 49 46 |$1234"._.r..".IF|
00000740: 20 54 48 45 20 27 52 45 53 55 4C 54 27 20 49 53 | THE 'RESULT' IS|
00000750: 20 12 50 4C 92 55 53 20 28 4E 3D 30 29 2E 22 00 | .PL.US (N=0).".|
00000760: 82 0F 7C 01 99 22 11 49 46 20 57 45 20 12 4C 44 |..|..".IF WE .LD|
00000770: 41 20 23 24 44 33 92 2C 20 54 48 45 4E 20 4E 3D |A #$D3., THEN N=|
00000780: 31 22 00 B3 0F 86 01 99 22 11 42 45 43 41 55 53 |1"......".BECAUS|
00000790: 45 20 24 44 30 3D 31 31 30 31 30 30 31 31 20 49 |E $D0=11010011 I|
000007A0: 4E 20 42 49 4E 41 52 59 20 41 4E 44 20 4D 53 42 |N BINARY AND MSB|
000007B0: 3D 31 22 00 EA 0F 90 01 99 22 11 53 4F 11 9D 9D |=1"......".SO...|
000007C0: B8 B8 91 2E 2E 12 42 50 4C 20 24 31 32 33 34 92 |......BPL $1234.|
000007D0: 20 57 49 4C 4C 20 4E 4F 54 11 9D 9D 9D B8 B8 B8 | WILL NOT.......|
000007E0: 91 20 54 41 4B 45 20 55 53 22 00 1B 10 9A 01 99 |. TAKE US"......|
000007F0: 22 11 54 4F 20 24 31 32 33 34 2E 22 3A 4D 53 24 |".TO $1234.":MS$|
00000800: B2 22 20 43 41 52 45 46 55 4C 21 21 22 3A 8D 36 |." CAREFUL!!":.6|
00000810: 33 30 30 30 3A 8D 36 33 31 30 30 00 38 10 A4 01 |3000:.63100.8...|
00000820: 99 22 93 20 20 20 20 20 20 20 20 20 12 54 48 45 |.". .THE|
00000830: 20 56 2D 42 49 54 92 22 00 66 10 A9 01 99 22 11 | V-BIT.".f....".|
00000840: 53 49 4E 43 45 20 54 48 45 20 4D 53 42 20 43 41 |SINCE THE MSB CA|
00000850: 52 52 49 45 53 20 54 48 45 20 27 53 49 47 4E 27 |RRIES THE 'SIGN'|
00000860: 20 4F 46 20 41 22 00 8E 10 AE 01 99 22 11 4E 55 | OF A"......".NU|
00000870: 4D 42 45 52 20 28 49 4E 20 27 53 49 47 4E 45 44 |MBER (IN 'SIGNED|
00000880: 20 41 52 49 54 48 4D 45 54 49 43 27 29 22 00 BA | ARITHMETIC')"..|
00000890: 10 B8 01 99 22 11 54 48 45 4E 20 41 4E 20 12 41 |....".THEN AN .A|
000008A0: 44 43 92 20 4F 52 20 12 53 42 43 92 20 57 48 49 |DC. OR .SBC. WHI|
000008B0: 43 48 20 43 41 55 53 45 53 22 00 E9 10 C2 01 99 |CH CAUSES"......|
000008C0: 22 11 54 48 45 20 4E 45 58 54 2D 54 4F 2D 4D 53 |".THE NEXT-TO-MS|
000008D0: 42 20 54 4F 20 27 4F 56 45 52 46 4C 4F 57 27 20 |B TO 'OVERFLOW' |
000008E0: 49 4E 54 4F 20 54 48 45 22 00 0C 11 CC 01 99 22 |INTO THE"......"|
000008F0: 11 53 49 47 4E 2D 42 49 54 20 57 49 4C 4C 20 43 |.SIGN-BIT WILL C|
00000900: 41 55 53 45 20 12 56 3D 31 92 2E 22 00 38 11 D6 |AUSE .V=1..".8..|
00000910: 01 99 22 11 49 46 20 27 53 49 47 4E 45 44 20 41 |..".IF 'SIGNED A|
00000920: 52 49 54 48 4D 45 54 49 43 27 20 49 53 20 4E 4F |RITHMETIC' IS NO|
00000930: 54 20 42 45 49 4E 47 22 00 68 11 E0 01 99 22 11 |T BEING".h....".|
00000940: 50 45 52 46 4F 52 4D 45 44 20 54 48 45 4E 20 57 |PERFORMED THEN W|
00000950: 45 20 43 41 4E 20 49 47 4E 4F 52 45 20 54 48 45 |E CAN IGNORE THE|
00000960: 20 56 2D 42 49 54 2E 22 00 95 11 EA 01 99 22 11 | V-BIT."......".|
00000970: 41 4C 54 48 4F 55 47 48 20 12 41 44 43 92 20 41 |ALTHOUGH .ADC. A|
00000980: 4E 44 20 12 53 42 43 92 20 4D 41 59 20 53 45 54 |ND .SBC. MAY SET|
00000990: 20 56 3D 31 22 00 C0 11 F4 01 99 22 11 57 45 20 | V=1"......".WE |
000009A0: 43 41 4E 20 46 4F 52 43 45 20 56 3D 30 20 57 49 |CAN FORCE V=0 WI|
000009B0: 54 48 20 54 48 45 20 43 4F 4D 4D 41 4E 44 3A 22 |TH THE COMMAND:"|
000009C0: 00 F1 11 FE 01 99 22 11 12 43 4C 56 92 3D 12 43 |......"..CLV.=.C|
000009D0: 4C 92 45 41 52 20 54 48 45 20 12 56 92 2D 42 49 |L.EAR THE .V.-BI|
000009E0: 54 2E 22 3A 8D 36 33 30 30 30 3A 8D 31 30 30 30 |T.":.63000:.1000|
000009F0: 30 00 1F 12 08 02 99 22 93 49 54 27 53 20 4F 46 |0......".IT'S OF|
00000A00: 54 45 4E 20 4E 45 43 45 53 53 41 52 59 20 54 4F |TEN NECESSARY TO|
00000A10: 20 12 4A 92 55 12 4D 50 92 20 46 52 4F 4D 22 00 | .J.U.MP. FROM".|
00000A20: 4A 12 12 02 99 22 11 4F 4E 45 20 50 4C 41 43 45 |J....".ONE PLACE|
00000A30: 20 54 4F 20 41 4E 4F 54 48 45 52 20 49 4E 20 41 | TO ANOTHER IN A|
00000A40: 20 50 52 4F 47 52 41 4D 2E 22 00 6B 12 1C 02 99 | PROGRAM.".k....|
00000A50: 22 11 57 45 20 43 41 4E 20 55 53 45 3A 20 12 4A |".WE CAN USE: .J|
00000A60: 4D 50 20 24 31 32 33 34 92 2E 22 00 95 12 26 02 |MP $1234.."...&.|
00000A70: 99 22 11 4F 46 20 43 4F 55 52 53 45 20 57 45 A0 |.".OF COURSE WE.|
00000A80: 48 41 44 20 42 45 54 54 45 52 20 48 41 56 45 20 |HAD BETTER HAVE |
00000A90: 53 4F 4D 45 22 00 B5 12 30 02 99 22 11 49 4E 53 |SOME"...0..".INS|
00000AA0: 54 52 55 43 54 49 4F 4E 53 20 41 54 20 24 31 32 |TRUCTIONS AT $12|
00000AB0: 33 34 21 21 22 00 DE 12 3A 02 99 22 11 49 46 20 |34!!"...:..".IF |
00000AC0: 4F 55 52 20 50 52 4F 47 52 41 4D 20 49 53 20 41 |OUR PROGRAM IS A|
00000AD0: 54 20 24 31 30 30 30 2D 24 32 30 30 30 22 00 0A |T $1000-$2000"..|
00000AE0: 13 4E 02 99 22 11 41 4E 44 20 49 54 20 48 41 53 |.N..".AND IT HAS|
00000AF0: 20 41 20 12 4A 4D 50 20 24 31 32 33 34 92 2C 54 | A .JMP $1234.,T|
00000B00: 48 41 54 27 53 20 4F 4B 2E 22 00 39 13 58 02 99 |HAT'S OK.".9.X..|
00000B10: 22 11 49 46 20 57 45 A0 50 48 59 53 49 43 41 4C |".IF WE.PHYSICAL|
00000B20: 4C 59 20 4D 4F 56 45 20 54 48 49 53 20 50 52 4F |LY MOVE THIS PRO|
00000B30: 47 52 41 4D 20 54 4F 2C 22 00 66 13 62 02 99 22 |GRAM TO,".f.b.."|
00000B40: 11 53 41 59 2C 20 24 33 30 30 30 20 54 4F 20 24 |.SAY, $3000 TO $|
00000B50: 34 30 30 30 20 28 50 45 52 48 41 50 53 20 54 4F |4000 (PERHAPS TO|
00000B60: 20 4D 41 4B 45 22 00 97 13 6C 02 99 22 11 52 4F | MAKE"...l..".RO|
00000B70: 4F 4D 20 46 4F 52 20 53 4F 4D 45 20 12 42 41 53 |OM FOR SOME .BAS|
00000B80: 49 43 92 20 41 54 20 24 30 38 30 31 20 54 4F 20 |IC. AT $0801 TO |
00000B90: 24 32 30 30 30 29 22 00 C5 13 76 02 99 22 11 54 |$2000)"...v..".T|
00000BA0: 48 45 4E 20 54 48 45 20 52 45 4C 4F 43 41 54 45 |HEN THE RELOCATE|
00000BB0: 44 20 50 52 4F 47 52 41 4D 20 53 48 4F 55 4C 44 |D PROGRAM SHOULD|
00000BC0: 20 4E 4F 54 22 00 ED 13 80 02 99 22 11 48 41 56 | NOT"......".HAV|
00000BD0: 45 20 12 4A 4D 50 20 24 31 32 33 34 92 20 49 4E |E .JMP $1234. IN|
00000BE0: 20 49 54 21 21 22 3A 8D 36 33 30 30 30 00 16 14 | IT!!":.63000...|
00000BF0: 8A 02 99 22 93 48 45 52 45 27 53 20 41 4E 4F 54 |...".HERE'S ANOT|
00000C00: 48 45 52 20 55 53 45 20 4F 46 20 54 48 45 20 56 |HER USE OF THE V|
00000C10: 2D 42 49 54 2E 22 00 42 14 94 02 99 22 11 53 55 |-BIT.".B....".SU|
00000C20: 50 50 4F 53 45 20 57 45 20 48 41 56 45 20 12 4A |PPOSE WE HAVE .J|
00000C30: 4D 50 20 24 31 32 33 34 92 20 4C 4F 43 41 54 45 |MP $1234. LOCATE|
00000C40: 44 22 00 69 14 9E 02 99 22 11 49 4E 20 4F 55 52 |D".i....".IN OUR|
00000C50: 20 50 52 4F 47 52 41 4D 20 41 54 20 24 31 32 30 | PROGRAM AT $120|
00000C60: 30 2D 24 31 32 30 32 2E 22 00 8D 14 A8 02 99 22 |0-$1202."......"|
00000C70: 11 24 31 32 30 30 20 20 24 31 32 30 31 20 20 24 |.$1200 $1201 $|
00000C80: 31 32 30 32 20 20 20 24 31 32 30 33 22 00 B5 14 |1202 $1203"...|
00000C90: B2 02 99 22 20 20 12 34 43 92 20 20 20 20 20 12 |..." .4C. .|
00000CA0: 33 34 92 20 20 20 20 20 12 31 32 92 20 20 20 20 |34. .12. |
00000CB0: 20 2A 2A 2A 22 00 D8 14 BC 02 99 22 20 20 5E 4A | ***"......" ^J|
00000CC0: 4D 50 20 20 20 5E 48 49 20 20 20 20 5E 4C 4F 20 |MP ^HI ^LO |
00000CD0: 20 20 5E 4E 45 58 54 22 00 FB 14 C6 02 99 22 20 | ^NEXT"......" |
00000CE0: 20 5E 49 4E 53 54 20 20 5E 42 59 54 45 20 20 5E | ^INST ^BYTE ^|
00000CF0: 42 59 54 45 20 5E 49 4E 53 54 22 00 2A 15 D0 02 |BYTE ^INST".*...|
00000D00: 99 22 11 57 45 20 57 4F 55 4C 44 20 4E 4F 52 4D |.".WE WOULD NORM|
00000D10: 41 4C 4C 59 20 43 4F 4E 54 49 4E 55 45 20 54 4F |ALLY CONTINUE TO|
00000D20: 20 54 48 45 20 4E 45 58 54 22 00 58 15 DA 02 99 | THE NEXT".X....|
00000D30: 22 11 49 4E 53 54 52 55 43 54 49 4F 4E 20 41 54 |".INSTRUCTION AT|
00000D40: 20 24 12 31 32 30 33 92 20 42 55 54 2C 42 45 43 | $.1203. BUT,BEC|
00000D50: 41 55 53 45 20 4F 46 22 00 8B 15 E4 02 99 22 11 |AUSE OF"......".|
00000D60: 54 48 45 20 12 4A 4D 50 92 2C 20 57 45 20 41 43 |THE .JMP., WE AC|
00000D70: 54 55 41 4C 4C 59 20 4D 4F 56 45 20 41 48 45 41 |TUALLY MOVE AHEA|
00000D80: 44 20 54 4F 20 24 31 32 33 34 22 00 C3 15 EE 02 |D TO $1234".....|
00000D90: 99 22 11 57 48 49 43 48 20 49 53 20 24 12 33 31 |.".WHICH IS $.31|
00000DA0: 92 20 4D 45 4D 4F 52 59 20 4C 4F 43 27 4E 53 20 |. MEMORY LOC'NS |
00000DB0: 46 41 52 54 48 45 52 20 4F 4E 21 22 3A 8D 36 33 |FARTHER ON!":.63|
00000DC0: 30 30 30 00 F0 15 F8 02 99 22 93 57 45 20 43 41 |000......".WE CA|
00000DD0: 4E 20 50 45 52 46 4F 52 4D 20 41 20 12 52 45 4C |N PERFORM A .REL|
00000DE0: 41 54 49 56 45 20 4A 55 4D 50 92 2C 20 42 59 22 |ATIVE JUMP., BY"|
00000DF0: 00 1C 16 02 03 99 22 11 24 12 33 31 92 20 4D 45 |......".$.31. ME|
00000E00: 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E 53 2C 20 |MORY LOCATIONS, |
00000E10: 42 59 20 57 52 49 54 49 4E 47 3A 22 00 46 16 0C |BY WRITING:".F..|
00000E20: 03 99 22 11 12 43 4C 56 20 20 20 20 20 92 3D 43 |.."..CLV .=C|
00000E30: 4C 45 41 52 20 56 2D 42 49 54 20 28 53 45 54 20 |LEAR V-BIT (SET |
00000E40: 56 3D 30 29 2E 22 00 77 16 16 03 99 22 12 42 56 |V=0).".w....".BV|
00000E50: 43 20 23 24 33 31 92 3D 42 52 41 4E 43 48 20 41 |C #$31.=BRANCH A|
00000E60: 48 45 41 44 20 24 33 31 20 4C 4F 43 27 4E 53 20 |HEAD $31 LOC'NS |
00000E70: 49 46 20 56 3D 30 22 00 A2 16 20 03 99 22 11 54 |IF V=0"... ..".T|
00000E80: 48 49 53 20 57 49 4C 4C 20 54 41 4B 45 20 55 53 |HIS WILL TAKE US|
00000E90: 20 54 4F 20 24 31 32 33 34 20 41 4E 44 20 54 48 | TO $1234 AND TH|
00000EA0: 45 22 00 D0 16 2A 03 99 22 11 50 52 4F 47 52 41 |E"...*..".PROGRA|
00000EB0: 4D 20 49 53 20 27 52 45 4C 4F 43 41 54 41 42 4C |M IS 'RELOCATABL|
00000EC0: 45 27 21 22 3A 8D 36 33 30 30 30 3A 99 53 44 24 |E'!":.63000:.SD$|
00000ED0: 00 EC 16 34 03 99 22 11 24 31 32 30 30 20 20 24 |...4..".$1200 $|
00000EE0: 31 32 30 31 20 20 24 31 32 30 32 22 00 0B 17 3E |1201 $1202"...>|
00000EF0: 03 99 22 20 20 12 42 38 92 20 20 20 20 20 12 35 |.." .B8. .5|
00000F00: 30 92 20 20 20 20 20 12 33 31 22 00 2C 17 48 03 |0. .31".,.H.|
00000F10: 99 22 20 20 5E 43 4C 56 20 20 20 5E 42 56 43 20 |." ^CLV ^BVC |
00000F20: 20 20 5E 23 20 4C 4F 43 27 4E 53 22 00 5A 17 52 | ^# LOC'NS".Z.R|
00000F30: 03 99 22 11 49 46 20 57 45 20 44 4F 4E 27 54 20 |..".IF WE DON'T |
00000F40: 55 53 45 20 12 4A 4D 50 92 53 2C 20 42 55 54 20 |USE .JMP.S, BUT |
00000F50: 27 52 45 4C 41 54 49 56 45 22 00 86 17 5C 03 99 |'RELATIVE"...\..|
00000F60: 22 11 42 52 41 4E 43 48 45 53 27 20 49 4E 53 54 |".BRANCHES' INST|
00000F70: 45 41 44 2C 20 4F 55 52 20 50 52 4F 47 52 41 4D |EAD, OUR PROGRAM|
00000F80: 20 57 49 4C 4C 22 00 AD 17 66 03 99 22 11 52 55 | WILL"...f..".RU|
00000F90: 4E 20 41 4E 59 57 48 45 52 45 20 49 4E 20 4D 45 |N ANYWHERE IN ME|
00000FA0: 4D 4F 52 59 21 22 3A 8D 36 33 30 30 30 00 E2 17 |MORY!":.63000...|
00000FB0: 6B 03 99 22 93 12 43 4F 4E 46 55 53 49 4E 47 3F |k.."..CONFUSING?|
00000FC0: 3F 92 22 3A 99 22 11 57 48 45 4E 20 44 4F 20 57 |?.":.".WHEN DO W|
00000FD0: 45 A0 53 41 59 20 12 42 56 43 20 24 31 32 33 34 |E.SAY .BVC $1234|
00000FE0: 92 22 00 01 18 6C 03 99 22 11 41 4E 44 20 57 48 |."...l..".AND WH|
00000FF0: 45 4E 20 12 42 56 43 20 23 24 33 31 92 3F 2A 21 |EN .BVC #$31.?*!|
00001000: 22 00 30 18 6D 03 99 22 11 41 43 54 55 41 4C 4C |".0.m..".ACTUALL|
00001010: 59 2C 20 41 4C 54 48 4F 55 47 48 20 41 4E 20 27 |Y, ALTHOUGH AN '|
00001020: 41 53 53 45 4D 42 4C 45 52 27 20 53 55 43 48 22 |ASSEMBLER' SUCH"|
00001030: 00 5B 18 6E 03 99 22 11 41 53 20 12 4D 49 43 52 |.[.n..".AS .MICR|
00001040: 4F 4D 4F 4E 92 20 57 49 4C 4C 20 41 4C 4C 4F 57 |OMON. WILL ALLOW|
00001050: 20 55 53 20 54 4F 20 53 41 59 22 00 89 18 6F 03 | US TO SAY"...o.|
00001060: 99 22 11 42 56 43 20 24 31 32 33 34 92 2C 20 54 |.".BVC $1234., T|
00001070: 48 45 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 |HE MACHINE LANGU|
00001080: 41 47 45 20 43 4F 44 45 22 00 B2 18 70 03 99 22 |AGE CODE"...p.."|
00001090: 11 47 45 4E 45 52 41 54 45 44 20 57 49 4C 4C 20 |.GENERATED WILL |
000010A0: 52 45 41 44 20 12 42 56 43 20 23 24 33 31 92 21 |READ .BVC #$31.!|
000010B0: 21 22 00 DF 18 71 03 99 22 11 54 48 41 54 20 49 |!"...q..".THAT I|
000010C0: 53 2C 20 54 48 45 20 49 4E 53 54 52 55 43 54 49 |S, THE INSTRUCTI|
000010D0: 4F 4E 20 57 49 4C 4C 20 41 50 50 45 41 52 22 00 |ON WILL APPEAR".|
000010E0: 0E 19 72 03 99 22 11 49 4E 20 4D 45 4D 4F 52 59 |..r..".IN MEMORY|
000010F0: 20 41 53 20 12 35 30 92 20 12 33 31 92 2E 2E 4D | AS .50. .31...M|
00001100: 45 41 4E 49 4E 47 20 42 52 41 4E 43 48 22 00 36 |EANING BRANCH".6|
00001110: 19 73 03 99 22 11 41 48 45 41 44 20 24 33 31 20 |.s..".AHEAD $31 |
00001120: 4C 4F 43 27 4E 53 20 49 46 20 56 3D 30 2E 22 3A |LOC'NS IF V=0.":|
00001130: 8D 36 33 30 30 30 00 68 19 75 03 99 22 93 41 4C |.63000.h.u..".AL|
00001140: 4C 20 12 42 92 52 41 4E 43 48 20 49 4E 53 54 52 |L .B.RANCH INSTR|
00001150: 55 43 54 49 4F 4E 53 20 41 52 45 20 27 52 45 4C |UCTIONS ARE 'REL|
00001160: 41 54 49 56 45 27 3A 22 00 92 19 7A 03 99 22 11 |ATIVE':"...z..".|
00001170: 12 42 43 53 92 3D 42 52 41 4E 43 48 20 49 46 20 |.BCS.=BRANCH IF |
00001180: 43 41 52 52 59 20 49 53 20 53 45 54 28 43 3D 31 |CARRY IS SET(C=1|
00001190: 29 22 00 BE 19 84 03 99 22 11 12 42 43 43 92 3D |)"......"..BCC.=|
000011A0: 42 52 41 4E 43 48 20 49 46 20 43 41 52 52 59 20 |BRANCH IF CARRY |
000011B0: 49 53 20 43 4C 45 41 52 28 43 3D 30 29 22 00 E8 |IS CLEAR(C=0)"..|
000011C0: 19 8E 03 99 22 11 12 42 45 51 92 3D 42 52 41 4E |...."..BEQ.=BRAN|
000011D0: 43 48 20 49 46 20 5A 2D 42 49 54 20 49 53 20 53 |CH IF Z-BIT IS S|
000011E0: 45 54 28 5A 3D 31 29 22 00 14 1A 98 03 99 22 11 |ET(Z=1)"......".|
000011F0: 12 42 4E 45 92 3D 42 52 41 4E 43 48 20 49 46 20 |.BNE.=BRANCH IF |
00001200: 5A 2D 42 49 54 20 49 53 20 43 4C 45 41 52 28 5A |Z-BIT IS CLEAR(Z|
00001210: 3D 30 29 22 00 3E 1A A2 03 99 22 11 12 42 4D 49 |=0)".>...."..BMI|
00001220: 92 3D 42 52 41 4E 43 48 20 49 46 20 4E 2D 42 49 |.=BRANCH IF N-BI|
00001230: 54 20 49 53 20 53 45 54 28 4E 3D 31 29 22 00 6A |T IS SET(N=1)".j|
00001240: 1A AC 03 99 22 11 12 42 50 4C 92 3D 42 52 41 4E |...."..BPL.=BRAN|
00001250: 43 48 20 49 46 20 4E 2D 42 49 54 20 49 53 20 43 |CH IF N-BIT IS C|
00001260: 4C 45 41 52 28 4E 3D 30 29 22 00 94 1A B6 03 99 |LEAR(N=0)"......|
00001270: 22 11 12 42 56 53 92 3D 42 52 41 4E 43 48 20 49 |"..BVS.=BRANCH I|
00001280: 46 20 56 2D 42 49 54 20 49 53 20 53 45 54 28 56 |F V-BIT IS SET(V|
00001290: 3D 31 29 22 00 C7 1A C0 03 99 22 11 12 42 56 43 |=1)"......"..BVC|
000012A0: 92 3D 42 52 41 4E 43 48 20 49 46 20 56 2D 42 49 |.=BRANCH IF V-BI|
000012B0: 54 20 49 53 20 43 4C 45 41 52 28 56 3D 30 29 22 |T IS CLEAR(V=0)"|
000012C0: 3A 8D 36 33 30 30 30 00 E3 1A C5 03 4D 53 24 B2 |:.63000.....MS$.|
000012D0: 22 52 45 4C 41 54 49 56 45 53 3F 22 3A 8D 36 33 |"RELATIVES?":.63|
000012E0: 31 30 30 00 1A 1B CA 03 99 22 93 22 3A 99 50 24 |100......".":.P$|
000012F0: 3A 99 53 44 24 22 53 4F 4D 45 20 4F 46 20 54 48 |:.SD$"SOME OF TH|
00001300: 45 20 42 49 54 53 20 4F 46 20 54 48 45 20 12 50 |E BITS OF THE .P|
00001310: 92 52 4F 43 45 53 53 4F 52 22 00 46 1B D4 03 99 |.ROCESSOR".F....|
00001320: 22 11 53 54 41 54 55 53 20 52 45 47 49 53 54 45 |".STATUS REGISTE|
00001330: 52 20 43 41 4E 20 42 45 20 53 45 54 28 3D 31 29 |R CAN BE SET(=1)|
00001340: 2C 20 41 4E 44 22 00 75 1B DE 03 99 22 11 53 4F |, AND".u....".SO|
00001350: 4D 45 20 43 41 4E 20 42 45 20 43 4C 45 41 52 45 |ME CAN BE CLEARE|
00001360: 44 28 3D 30 29 2E 22 3A 8D 36 33 30 30 30 3A 8D |D(=0).":.63000:.|
00001370: 33 39 31 30 30 00 AC 1B E8 03 99 22 12 43 4C 56 |39100......".CLV|
00001380: 92 3D 43 4C 45 41 52 53 20 4F 12 56 92 45 52 46 |.=CLEARS O.V.ERF|
00001390: 4C 4F 57 22 3A 97 50 28 31 29 2C 31 37 36 3A 8D |LOW":.P(1),176:.|
000013A0: 36 33 30 30 30 3A 8D 33 39 31 30 30 00 B9 1B ED |63000:.39100....|
000013B0: 03 97 50 28 31 29 2C 33 32 00 ED 1B F2 03 99 22 |..P(1),32......"|
000013C0: 12 43 4C 43 92 3D 43 4C 45 41 52 53 20 12 43 92 |.CLC.=CLEARS .C.|
000013D0: 41 52 52 59 22 3A 97 50 28 37 29 2C 31 37 36 3A |ARRY":.P(7),176:|
000013E0: 8D 36 33 30 30 30 3A 8D 33 39 31 30 30 00 FA 1B |.63000:.39100...|
000013F0: F7 03 97 50 28 37 29 2C 33 32 00 33 1C FC 03 99 |...P(7),32.3....|
00001400: 22 12 43 4C 44 92 3D 43 4C 45 41 52 53 20 12 44 |".CLD.=CLEARS .D|
00001410: 92 45 43 49 4D 41 4C 20 4D 4F 44 45 20 46 4C 41 |.ECIMAL MODE FLA|
00001420: 47 22 3A 97 50 28 34 29 2C 31 37 36 3A 8D 36 33 |G":.P(4),176:.63|
00001430: 30 30 30 00 67 1C 01 04 4D 53 24 B2 22 57 48 41 |000.g...MS$."WHA|
00001440: 54 20 46 4C 41 47 3F 22 3A 8D 36 33 31 30 30 3A |T FLAG?":.63100:|
00001450: 8D 36 33 30 30 30 3A 8D 33 39 31 30 30 3A 97 50 |.63000:.39100:.P|
00001460: 28 34 29 2C 31 33 32 00 9D 1C 06 04 99 22 12 43 |(4),132......".C|
00001470: 4C 49 92 3D 43 4C 45 41 52 53 20 12 49 92 4E 54 |LI.=CLEARS .I.NT|
00001480: 45 52 52 55 50 54 20 46 4C 41 47 22 3A 97 50 28 |ERRUPT FLAG":.P(|
00001490: 35 29 2C 31 37 36 3A 8D 36 33 30 30 30 00 D3 1C |5),176:.63000...|
000014A0: 0B 04 4D 53 24 B2 22 12 57 48 41 54 20 46 4C 41 |..MS$.".WHAT FLA|
000014B0: 47 21 92 22 3A 8D 36 33 31 30 30 3A 97 50 28 35 |G!.":.63100:.P(5|
000014C0: 29 2C 31 33 37 3A 8D 36 33 30 30 30 3A 8D 33 39 |),137:.63000:.39|
000014D0: 31 30 30 00 F5 1C 10 04 99 22 93 22 53 44 24 22 |100......"."SD$"|
000014E0: 41 4C 54 4F 47 45 54 48 45 52 20 4E 4F 57 2E 2E |ALTOGETHER NOW..|
000014F0: 22 3A 99 50 24 00 2C 1D 1A 04 97 50 28 30 29 2C |":.P$.,....P(0),|
00001500: 31 34 3A 97 50 28 31 29 2C 32 32 3A 97 50 28 34 |14:.P(1),22:.P(4|
00001510: 29 2C 34 3A 97 50 28 35 29 2C 39 3A 97 50 28 36 |),4:.P(5),9:.P(6|
00001520: 29 2C 32 36 3A 97 50 28 37 29 2C 33 00 37 1D 1F |),26:.P(7),3.7..|
00001530: 04 8D 36 33 30 30 30 00 70 1D 24 04 8D 33 39 31 |..63000.p.$..391|
00001540: 30 30 3A 99 22 12 4E 92 3D 12 4E 92 45 47 41 54 |00:.".N.=.N.EGAT|
00001550: 49 56 45 20 46 4C 41 47 20 42 49 54 2E 22 3A 97 |IVE FLAG BIT.":.|
00001560: 50 28 30 29 2C C2 28 50 28 30 29 29 AA 31 32 38 |P(0),.(P(0)).128|
00001570: 00 7B 1D 25 04 8D 36 33 30 30 30 00 B9 1D 2E 04 |.{.%..63000.....|
00001580: 99 53 44 24 22 11 11 12 56 92 3D 4F 12 56 92 45 |.SD$"...V.=O.V.E|
00001590: 52 46 4C 4F 57 20 46 4C 41 47 20 42 49 54 2E 22 |RFLOW FLAG BIT."|
000015A0: 3A 97 50 28 31 29 2C C2 28 50 28 31 29 29 AA 31 |:.P(1),.(P(1)).1|
000015B0: 32 38 3A 8D 36 33 30 30 30 00 F6 1D 38 04 99 53 |28:.63000...8..S|
000015C0: 44 24 22 11 11 11 11 12 44 92 3D 12 44 92 45 43 |D$".....D.=.D.EC|
000015D0: 49 4D 41 4C 20 4D 4F 44 45 20 46 4C 41 47 20 42 |IMAL MODE FLAG B|
000015E0: 49 54 2E 22 3A 97 50 28 34 29 2C C2 28 50 28 34 |IT.":.P(4),.(P(4|
000015F0: 29 29 AA 31 32 38 00 01 1E 39 04 8D 36 33 30 30 |)).128...9..6300|
00001600: 30 00 3D 1E 42 04 99 53 44 24 22 11 11 11 11 11 |0.=.B..SD$".....|
00001610: 11 12 49 92 3D 12 49 92 4E 54 45 52 52 55 50 54 |..I.=.I.NTERRUPT|
00001620: 20 46 4C 41 47 20 42 49 54 2E 22 3A 97 50 28 35 | FLAG BIT.":.P(5|
00001630: 29 2C C2 28 50 28 35 29 29 AA 31 32 38 00 48 1E |),.(P(5)).128.H.|
00001640: 43 04 8D 36 33 30 30 30 00 88 1E 4C 04 99 53 44 |C..63000...L..SD|
00001650: 24 22 11 11 11 11 11 11 11 11 12 5A 92 3D 12 5A |$".........Z.=.Z|
00001660: 92 45 52 4F 20 46 4C 41 47 20 42 49 54 2E 22 3A |.ERO FLAG BIT.":|
00001670: 97 50 28 36 29 2C C2 28 50 28 36 29 29 AA 31 32 |.P(6),.(P(6)).12|
00001680: 38 3A 8D 36 33 30 30 30 00 C4 1E 56 04 99 53 44 |8:.63000...V..SD|
00001690: 24 22 11 11 11 11 11 11 11 11 11 11 12 43 92 3D |$"...........C.=|
000016A0: 12 43 92 41 52 52 59 20 46 4C 41 47 20 42 49 54 |.C.ARRY FLAG BIT|
000016B0: 2E 22 3A 97 50 28 37 29 2C C2 28 50 28 37 29 29 |.":.P(7),.(P(7))|
000016C0: AA 31 32 38 00 CF 1E 5B 04 8D 36 33 30 30 30 00 |.128...[..63000.|
000016D0: F7 1E 60 04 97 50 28 32 29 2C 32 31 34 3A 4D 53 |..`..P(2),214:MS|
000016E0: 24 B2 22 12 4E 4F 54 20 55 53 45 44 21 21 92 22 |$.".NOT USED!!."|
000016F0: 3A 8D 36 33 31 30 30 00 15 1F 65 04 A1 5A 24 3A |:.63100...e..Z$:|
00001700: 8B 5A 24 B2 22 22 A7 97 50 28 32 29 2C 33 32 3A |.Z$.""..P(2),32:|
00001710: 89 31 31 32 30 00 52 1F 6A 04 97 50 28 33 29 2C |.1120.R.j..P(3),|
00001720: 31 33 30 3A 8D 33 39 31 30 30 3A 99 22 57 48 45 |130:.39100:."WHE|
00001730: 4E 20 54 48 45 20 36 35 31 30 20 47 45 54 53 20 |N THE 6510 GETS |
00001740: 41 20 12 42 52 45 41 4B 92 20 43 4F 4D 4D 41 4E |A .BREAK. COMMAN|
00001750: 44 22 00 6B 1F 74 04 99 22 11 28 57 48 49 43 48 |D".k.t..".(WHICH|
00001760: 20 49 53 20 12 30 30 92 29 20 22 00 A0 1F 7E 04 | IS .00.) "...~.|
00001770: 99 22 11 54 48 45 20 12 42 92 52 45 41 4B 20 42 |.".THE .B.REAK B|
00001780: 49 54 20 49 53 20 53 45 54 28 42 3D 31 29 22 3A |IT IS SET(B=1)":|
00001790: 8D 36 33 30 30 30 3A 97 50 28 33 29 2C 31 33 30 |.63000:.P(3),130|
000017A0: 00 C3 1F 88 04 4D 53 24 B2 22 43 4F 4D 4D 41 4E |.....MS$."COMMAN|
000017B0: 44 3D 30 30 22 3A 8D 36 33 31 30 30 3A 8D 36 33 |D=00":.63100:.63|
000017C0: 30 30 30 00 EB 1F 92 04 99 22 93 4A 55 53 54 20 |000......".JUST |
000017D0: 49 4E 20 43 41 53 45 20 59 4F 55 27 52 45 20 57 |IN CASE YOU'RE W|
000017E0: 4F 4E 44 45 52 49 4E 47 2E 2E 22 00 1B 20 9C 04 |ONDERING..".. ..|
000017F0: 99 22 11 54 48 45 20 12 36 35 31 30 92 20 48 41 |.".THE .6510. HA|
00001800: 53 20 41 20 12 44 45 43 49 4D 41 4C 92 20 4D 4F |S A .DECIMAL. MO|
00001810: 44 45 20 57 48 45 52 45 42 59 22 00 47 20 A6 04 |DE WHEREBY".G ..|
00001820: 99 22 11 41 52 49 54 48 4D 45 54 49 43 20 4F 50 |.".ARITHMETIC OP|
00001830: 45 52 41 54 49 4F 4E 53 20 41 52 45 20 50 45 52 |ERATIONS ARE PER|
00001840: 46 4F 52 4D 45 44 22 00 79 20 B0 04 99 22 11 41 |FORMED".y ...".A|
00001850: 53 53 55 4D 49 4E 47 20 41 4C 4C 20 4E 55 4D 42 |SSUMING ALL NUMB|
00001860: 45 52 53 20 41 52 45 20 12 4E 4F 54 92 20 49 4E |ERS ARE .NOT. IN|
00001870: 20 44 45 43 49 4D 41 4C 22 00 AB 20 BA 04 99 22 | DECIMAL".. ..."|
00001880: 11 42 55 54 20 52 41 54 48 45 52 20 49 4E 20 12 |.BUT RATHER IN .|
00001890: 42 92 49 4E 41 52 59 20 12 43 92 4F 44 45 44 20 |B.INARY .C.ODED |
000018A0: 12 44 92 45 43 49 4D 41 4C 21 22 00 D5 20 C4 04 |.D.ECIMAL!".. ..|
000018B0: 99 22 11 49 46 20 57 45 20 57 41 4E 54 20 54 4F |.".IF WE WANT TO|
000018C0: 20 4F 50 45 52 41 54 45 20 49 4E 20 27 44 45 43 | OPERATE IN 'DEC|
000018D0: 49 4D 41 4C 22 00 04 21 CE 04 99 22 11 4D 4F 44 |IMAL"..!...".MOD|
000018E0: 45 27 20 57 45 20 4D 55 53 54 20 53 45 54 20 54 |E' WE MUST SET T|
000018F0: 48 45 20 12 44 92 2D 46 4C 41 47 20 54 4F 20 27 |HE .D.-FLAG TO '|
00001900: 31 27 3A 22 00 11 21 D8 04 99 22 11 12 53 45 44 |1':"..!..."..SED|
00001910: 22 00 3E 21 E2 04 99 22 11 54 4F 20 47 45 54 20 |".>!...".TO GET |
00001920: 4F 55 54 20 4F 46 20 54 48 49 53 20 4D 4F 44 45 |OUT OF THIS MODE|
00001930: 20 57 45 20 43 4C 45 41 52 20 54 48 45 22 00 60 | WE CLEAR THE".`|
00001940: 21 EC 04 99 22 11 44 45 43 49 4D 41 4C 20 4D 4F |!...".DECIMAL MO|
00001950: 44 45 20 46 4C 41 47 20 54 4F 20 27 30 27 3A 22 |DE FLAG TO '0':"|
00001960: 00 74 21 F6 04 99 22 11 12 43 4C 44 22 3A 8D 36 |.t!..."..CLD":.6|
00001970: 33 30 30 30 00 A3 21 00 05 99 22 93 46 55 52 54 |3000..!...".FURT|
00001980: 48 45 52 2E 2E 54 48 45 20 12 36 35 31 30 92 20 |HER..THE .6510. |
00001990: 43 41 4E 20 42 45 20 49 4E 54 45 52 52 55 50 54 |CAN BE INTERRUPT|
000019A0: 45 44 22 00 D2 21 0A 05 99 22 11 42 59 20 4C 4F |ED"..!...".BY LO|
000019B0: 57 45 52 49 4E 47 20 54 48 45 20 56 4F 4C 54 41 |WERING THE VOLTA|
000019C0: 47 45 20 4F 4E 20 4F 4E 45 20 4F 46 20 49 54 27 |GE ON ONE OF IT'|
000019D0: 53 22 00 10 22 14 05 99 22 11 50 49 4E 53 2E 2E |S".."...".PINS..|
000019E0: 54 48 45 20 12 49 52 51 92 20 4F 52 20 49 11 9D |THE .IRQ. OR I..|
000019F0: B8 91 4E 54 45 52 52 55 50 54 20 52 11 9D B8 91 |..NTERRUPT R....|
00001A00: 45 51 11 9D B8 91 55 45 53 54 20 50 49 4E 2E 22 |EQ....UEST PIN."|
00001A10: 00 3E 22 1E 05 99 22 11 28 45 58 54 45 52 4E 41 |.>"...".(EXTERNA|
00001A20: 4C 20 44 45 56 49 43 45 53 20 44 4F 20 54 48 49 |L DEVICES DO THI|
00001A30: 53 20 54 4F 20 54 48 45 20 36 35 31 30 22 00 54 |S TO THE 6510".T|
00001A40: 22 28 05 99 22 41 4C 4C 20 54 48 45 20 54 49 4D |"(.."ALL THE TIM|
00001A50: 45 21 29 22 00 81 22 32 05 99 22 11 57 48 45 4E |E!)".."2..".WHEN|
00001A60: 20 54 48 45 20 36 35 31 30 20 47 45 54 53 20 41 | THE 6510 GETS A|
00001A70: 4E 20 12 49 52 51 92 20 49 54 20 53 54 4F 50 53 |N .IRQ. IT STOPS|
00001A80: 22 00 A8 22 3C 05 99 22 11 57 48 41 54 20 49 54 |".."<..".WHAT IT|
00001A90: 27 53 20 44 4F 49 4E 27 2E 2E 2E 53 45 52 56 49 |'S DOIN'...SERVI|
00001AA0: 43 45 53 20 54 48 45 22 00 D2 22 46 05 99 22 11 |CES THE".."F..".|
00001AB0: 49 4E 54 45 52 52 55 50 54 49 4E 47 20 44 45 56 |INTERRUPTING DEV|
00001AC0: 49 43 45 2E 2E 54 48 45 4E 20 52 45 54 55 52 4E |ICE..THEN RETURN|
00001AD0: 53 22 00 01 23 50 05 99 22 11 46 52 4F 4D 20 54 |S"..#P..".FROM T|
00001AE0: 48 45 20 49 4E 54 45 52 52 55 50 54 20 54 4F 20 |HE INTERRUPT TO |
00001AF0: 43 4F 4E 54 49 4E 55 45 2E 22 3A 8D 36 33 30 30 |CONTINUE.":.6300|
00001B00: 30 00 30 23 5A 05 99 22 93 46 4F 52 20 45 58 41 |0.0#Z..".FOR EXA|
00001B10: 4D 50 4C 45 2C 20 45 56 45 52 59 20 4A 49 46 46 |MPLE, EVERY JIFF|
00001B20: 59 28 3D 31 2F 36 30 20 53 45 43 4F 4E 44 29 22 |Y(=1/60 SECOND)"|
00001B30: 00 60 23 64 05 99 22 11 54 48 45 20 36 35 31 30 |.`#d..".THE 6510|
00001B40: 20 49 4E 54 45 52 52 55 50 54 53 20 57 48 41 54 | INTERRUPTS WHAT|
00001B50: 45 56 45 52 20 49 54 27 53 20 44 4F 49 4E 27 22 |EVER IT'S DOIN'"|
00001B60: 00 8E 23 6E 05 99 22 11 41 4E 44 20 55 50 44 41 |..#n..".AND UPDA|
00001B70: 54 45 53 20 54 48 45 20 49 4E 54 45 52 4E 41 4C |TES THE INTERNAL|
00001B80: 20 43 4C 4F 43 4B 2C 43 48 45 43 4B 53 22 00 BD | CLOCK,CHECKS"..|
00001B90: 23 78 05 99 22 11 54 48 45 20 4B 45 59 42 4F 41 |#x..".THE KEYBOA|
00001BA0: 52 44 20 54 4F 20 53 45 45 20 49 46 20 59 4F 55 |RD TO SEE IF YOU|
00001BB0: 27 52 45 20 50 52 45 53 53 49 4E 47 22 00 DA 23 |'RE PRESSING"..#|
00001BC0: 82 05 99 22 11 54 48 45 20 12 53 54 4F 50 92 20 |...".THE .STOP. |
00001BD0: 4B 45 59 2C 20 45 54 43 2E 22 00 0A 24 8C 05 99 |KEY, ETC."..$...|
00001BE0: 22 11 57 48 45 54 48 45 52 20 4F 52 20 4E 4F 54 |".WHETHER OR NOT|
00001BF0: 20 54 48 45 20 36 35 31 30 20 57 49 4C 4C 20 4C | THE 6510 WILL L|
00001C00: 45 54 20 49 54 53 45 4C 46 22 00 36 24 96 05 99 |ET ITSELF".6$...|
00001C10: 22 11 42 45 20 49 4E 54 45 52 52 55 50 54 45 44 |".BE INTERRUPTED|
00001C20: 20 44 45 50 45 4E 44 53 20 55 50 4F 4E 20 41 20 | DEPENDS UPON A |
00001C30: 4D 41 47 49 43 22 00 57 24 A0 05 99 22 11 42 49 |MAGIC".W$...".BI|
00001C40: 54 20 49 4E 20 54 48 45 20 12 50 92 2D 52 45 47 |T IN THE .P.-REG|
00001C50: 49 53 54 45 52 2E 22 00 7A 24 AA 05 99 22 11 12 |ISTER.".z$..."..|
00001C60: 47 55 45 53 53 20 57 48 49 43 48 20 4F 4E 45 3F |GUESS WHICH ONE?|
00001C70: 21 21 22 3A 8D 36 33 30 30 30 00 B1 24 B4 05 99 |!!":.63000..$...|
00001C80: 22 93 22 50 24 3A 97 50 28 30 29 2C 31 34 3A 97 |"."P$:.P(0),14:.|
00001C90: 50 28 31 29 2C 32 32 3A 97 50 28 33 29 2C 32 3A |P(1),22:.P(3),2:|
00001CA0: 97 50 28 34 29 2C 34 3A 97 50 28 35 29 2C 31 33 |.P(4),4:.P(5),13|
00001CB0: 37 00 C6 24 BE 05 97 50 28 36 29 2C 32 36 3A 97 |7..$...P(6),26:.|
00001CC0: 50 28 37 29 2C 33 00 D9 24 C8 05 99 53 44 24 22 |P(7),3..$...SD$"|
00001CD0: 59 4F 55 20 42 45 54 21 22 00 06 25 D2 05 99 22 |YOU BET!"..%..."|
00001CE0: 11 49 46 20 54 48 45 20 12 49 92 20 42 49 54 20 |.IF THE .I. BIT |
00001CF0: 49 53 20 43 4C 45 41 52 28 3D 30 29 20 54 48 45 |IS CLEAR(=0) THE|
00001D00: 20 36 35 31 30 22 00 30 25 DC 05 99 22 11 57 49 | 6510".0%...".WI|
00001D10: 4C 4C 20 12 4C 45 54 92 20 49 54 53 45 4C 46 20 |LL .LET. ITSELF |
00001D20: 42 45 20 49 4E 54 45 52 52 55 50 54 45 44 2E 22 |BE INTERRUPTED."|
00001D30: 00 56 25 E6 05 99 22 11 49 46 20 49 3D 31 20 48 |.V%...".IF I=1 H|
00001D40: 4F 57 45 56 45 52 20 49 54 20 57 49 4C 4C 20 12 |OWEVER IT WILL .|
00001D50: 4E 4F 54 92 21 22 00 71 25 F0 05 99 22 11 12 53 |NOT.!".q%..."..S|
00001D60: 45 49 92 20 57 49 4C 4C 20 53 45 54 20 49 3D 31 |EI. WILL SET I=1|
00001D70: 22 00 8E 25 FA 05 99 22 11 12 43 4C 49 92 20 57 |"..%..."..CLI. W|
00001D80: 49 4C 4C 20 43 4C 45 41 52 20 49 3D 30 22 00 99 |ILL CLEAR I=0"..|
00001D90: 25 04 06 8D 36 33 30 30 30 00 C4 25 0E 06 99 22 |%...63000..%..."|
00001DA0: 93 53 4F 2C 20 49 46 20 59 4F 55 20 57 41 4E 54 |.SO, IF YOU WANT|
00001DB0: 20 54 48 45 20 36 35 31 30 20 54 4F 20 49 47 4E | THE 6510 TO IGN|
00001DC0: 4F 52 45 22 00 EF 25 18 06 99 22 11 49 4E 54 45 |ORE"..%...".INTE|
00001DD0: 52 52 55 50 54 53 20 28 49 4E 43 4C 55 44 49 4E |RRUPTS (INCLUDIN|
00001DE0: 47 20 54 48 45 20 50 4F 4F 52 20 47 55 59 22 00 |G THE POOR GUY".|
00001DF0: 13 26 22 06 99 22 11 42 41 4E 47 49 4E 47 20 4F |.&"..".BANGING O|
00001E00: 4E 20 54 48 45 20 12 53 54 4F 50 92 20 4B 45 59 |N THE .STOP. KEY|
00001E10: 21 29 22 00 3E 26 2C 06 99 22 11 53 54 41 52 54 |!)".>&,..".START|
00001E20: 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 20 57 49 | YOUR PROGRAM WI|
00001E30: 54 48 20 12 53 45 49 92 20 41 4E 44 2C 22 00 62 |TH .SEI. AND,".b|
00001E40: 26 36 06 99 22 11 2E 2E 2E 54 4F 20 41 56 4F 49 |&6.."....TO AVOI|
00001E50: 44 20 41 4E 59 20 56 49 4F 4C 45 4E 43 45 2E 2E |D ANY VIOLENCE..|
00001E60: 2E 22 00 91 26 40 06 99 22 11 28 45 56 45 4E 54 |."..&@..".(EVENT|
00001E70: 55 41 4C 4C 59 29 20 45 4E 44 20 49 54 20 57 49 |UALLY) END IT WI|
00001E80: 54 48 20 12 43 4C 49 92 2E 22 3A 8D 36 33 30 30 |TH .CLI..":.6300|
00001E90: 30 00 BB 26 4A 06 99 22 93 12 41 4E 44 20 54 48 |0..&J.."..AND TH|
00001EA0: 45 4E 20 54 48 45 52 45 20 41 52 45 20 53 55 42 |EN THERE ARE SUB|
00001EB0: 52 4F 55 54 49 4E 45 53 92 3A 22 00 E9 26 54 06 |ROUTINES.:"..&T.|
00001EC0: 99 22 11 49 46 20 57 45 20 57 52 49 54 45 20 4C |.".IF WE WRITE L|
00001ED0: 4F 2D 4F 2D 4F 4E 47 20 4D 41 43 48 49 4E 45 20 |O-O-ONG MACHINE |
00001EE0: 4C 41 4E 47 55 41 47 45 22 00 14 27 5E 06 99 22 |LANGUAGE"..'^.."|
00001EF0: 11 50 52 4F 47 52 41 4D 53 20 28 55 53 49 4E 47 |.PROGRAMS (USING|
00001F00: 20 41 4E 20 41 53 53 45 4D 42 4C 45 52 20 53 4F | AN ASSEMBLER SO|
00001F10: 20 57 45 22 00 3E 27 68 06 99 22 11 44 4F 4E 27 | WE".>'h..".DON'|
00001F20: 54 20 48 41 56 45 20 54 4F 20 45 4E 54 45 52 20 |T HAVE TO ENTER |
00001F30: 54 48 45 20 48 45 58 20 42 59 54 45 53 22 00 67 |THE HEX BYTES".g|
00001F40: 27 72 06 99 22 11 49 4E 54 4F 20 4D 45 4D 4F 52 |'r..".INTO MEMOR|
00001F50: 59 20 42 55 54 20 43 41 4E 20 55 53 45 20 41 53 |Y BUT CAN USE AS|
00001F60: 53 45 4D 42 4C 59 22 00 91 27 7C 06 99 22 11 4C |SEMBLY"..'|..".L|
00001F70: 41 4E 47 55 41 47 45 29 20 54 48 45 4E 20 49 54 |ANGUAGE) THEN IT|
00001F80: 27 53 20 43 4F 4E 56 45 4E 49 45 4E 54 20 54 4F |'S CONVENIENT TO|
00001F90: 22 00 BC 27 86 06 99 22 11 42 52 45 41 4B 20 55 |"..'...".BREAK U|
00001FA0: 50 20 4F 55 52 20 4C 4F 4E 47 20 50 52 4F 47 52 |P OUR LONG PROGR|
00001FB0: 41 4D 20 49 4E 54 4F 20 57 45 45 22 00 D8 27 90 |AM INTO WEE"..'.|
00001FC0: 06 99 22 11 50 49 45 43 45 53 3D 53 55 42 52 4F |..".PIECES=SUBRO|
00001FD0: 55 54 49 4E 45 53 2E 22 00 01 28 9A 06 99 22 11 |UTINES."..(...".|
00001FE0: D1 49 4E 20 42 41 53 49 43 20 57 45 27 44 20 53 |.IN BASIC WE'D S|
00001FF0: 41 59 3A 20 12 47 4F 53 55 42 20 31 30 30 30 92 |AY: .GOSUB 1000.|
00002000: 22 00 2C 28 A4 06 99 22 11 D1 49 4E 20 41 53 53 |".,(..."..IN ASS|
00002010: 45 4D 42 4C 45 52 20 57 45 27 44 20 53 41 59 3A |EMBLER WE'D SAY:|
00002020: 20 12 4A 53 52 20 24 31 32 33 34 22 00 59 28 AE | .JSR $1234".Y(.|
00002030: 06 99 22 11 D1 57 48 49 43 48 20 54 52 41 4E 53 |.."..WHICH TRANS|
00002040: 4C 41 54 45 53 20 54 4F 3A 20 12 32 30 92 20 12 |LATES TO: .20. .|
00002050: 33 34 92 20 12 31 32 92 22 00 7E 28 B8 06 99 22 |34. .12.".~(..."|
00002060: 11 20 49 4E 20 4D 41 43 48 49 4E 45 20 4C 41 4E |. IN MACHINE LAN|
00002070: 47 55 41 47 45 21 22 3A 8D 36 33 30 30 30 00 AD |GUAGE!":.63000..|
00002080: 28 C2 06 99 22 93 42 41 53 49 43 20 53 55 42 52 |(...".BASIC SUBR|
00002090: 4F 55 54 49 4E 45 53 20 4D 55 53 54 20 45 4E 44 |OUTINES MUST END|
000020A0: 20 49 4E 20 12 52 45 54 55 52 4E 92 22 00 DB 28 | IN .RETURN."..(|
000020B0: CC 06 99 22 11 53 4F 20 54 48 45 20 50 52 4F 47 |...".SO THE PROG|
000020C0: 52 41 4D 20 43 41 4E 20 47 4F 20 42 41 43 4B 20 |RAM CAN GO BACK |
000020D0: 46 52 4F 4D 20 57 48 45 52 45 22 00 F4 28 D6 06 |FROM WHERE"..(..|
000020E0: 99 22 11 49 54 20 57 41 53 20 27 43 41 4C 4C 45 |.".IT WAS 'CALLE|
000020F0: 44 27 2E 22 00 21 29 E0 06 99 22 11 49 4E 20 41 |D'.".!)...".IN A|
00002100: 53 53 45 4D 42 4C 45 52 20 57 45 20 45 4E 44 20 |SSEMBLER WE END |
00002110: 53 55 42 52 4F 55 54 49 4E 45 53 20 57 49 54 48 |SUBROUTINES WITH|
00002120: 22 00 4F 29 EA 06 99 22 11 12 52 54 53 92 3D 12 |".O)..."..RTS.=.|
00002130: 52 92 45 12 54 92 55 52 4E 20 46 52 4F 4D 20 12 |R.E.T.URN FROM .|
00002140: 53 92 55 42 52 4F 55 54 49 4E 45 3A 11 11 22 00 |S.UBROUTINE:..".|
00002150: 67 29 F4 06 99 22 24 31 30 30 30 20 12 4C 44 41 |g)..."$1000 .LDA|
00002160: 20 23 24 30 30 20 22 00 82 29 F5 06 99 22 24 31 | #$00 "..)..."$1|
00002170: 30 30 32 20 12 4A 53 52 20 24 31 32 33 34 92 C0 |002 .JSR $1234..|
00002180: AE 22 00 9D 29 F6 06 99 22 24 31 30 30 35 20 12 |."..)..."$1005 .|
00002190: 2D 2D 2D 2D 2D 20 20 20 20 92 20 DD 22 00 B8 29 |----- . ."..)|
000021A0: F7 06 99 22 20 20 20 20 20 20 12 2D 2D 2D 2D 2D |..." .-----|
000021B0: 20 20 20 20 92 20 DD 22 00 D1 29 F8 06 99 22 20 | . ."..)..." |
000021C0: 20 20 20 20 20 2D 2D 2D 2D 2D 20 20 20 20 20 DD | ----- .|
000021D0: 22 00 EA 29 F9 06 99 22 20 20 20 20 20 20 2D 2D |"..)..." --|
000021E0: 2D 2D 2D 20 20 20 20 20 2E 22 00 0F 2A FA 06 99 |--- ."..*...|
000021F0: 22 24 31 32 33 34 20 12 2A 2A 2A 2A 2A 20 20 20 |"$1234 .***** |
00002200: 20 92 5F BD 53 55 42 52 4F 55 54 49 4E 45 22 00 | ._.SUBROUTINE".|
00002210: 27 2A FB 06 99 22 20 20 20 20 20 20 12 2A 2A 2A |'*..." .***|
00002220: 2A 2A 20 20 20 20 22 00 3F 2A FC 06 99 22 20 20 |** ".?*..." |
00002230: 20 20 20 20 12 52 54 53 20 20 20 20 20 20 22 00 | .RTS ".|
00002240: 62 2A FD 06 4D 53 24 B2 22 54 48 45 52 45 2E 2E |b*..MS$."THERE..|
00002250: 41 4E 44 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 |AND":.63100:.630|
00002260: 30 32 00 76 2A FE 06 99 22 13 11 11 11 11 11 11 |02.v*...".......|
00002270: 11 11 11 11 11 22 00 92 2A FF 06 99 22 24 31 30 |....."..*..."$10|
00002280: 30 32 20 12 4A 53 52 20 24 31 32 33 34 92 20 20 |02 .JSR $1234. |
00002290: 20 22 00 AD 2A 00 07 99 22 24 31 30 30 35 20 12 | "..*..."$1005 .|
000022A0: 2D 2D 2D 2D 2D 20 20 20 20 92 5F AE 22 00 C8 2A |----- ._."..*|
000022B0: 01 07 99 22 20 20 20 20 20 20 12 2D 2D 2D 2D 2D |..." .-----|
000022C0: 20 20 20 20 92 20 DD 22 00 E1 2A 02 07 99 22 20 | . ."..*..." |
000022D0: 20 20 20 20 20 2D 2D 2D 2D 2D 20 20 20 20 20 DD | ----- .|
000022E0: 22 00 FA 2A 03 07 99 22 20 20 20 20 20 20 2D 2D |"..*..." --|
000022F0: 2D 2D 2D 20 20 20 20 20 2E 22 00 1F 2B 04 07 99 |--- ."..+...|
00002300: 22 24 31 32 33 34 20 12 2A 2A 2A 2A 2A 20 20 20 |"$1234 .***** |
00002310: 20 92 20 DD 20 20 20 20 20 20 20 20 20 20 22 00 | . . ".|
00002320: 3A 2B 05 07 99 22 20 20 20 20 20 20 12 2A 2A 2A |:+..." .***|
00002330: 2A 2A 20 20 20 20 92 20 DD 22 00 74 2B 06 07 99 |** . .".t+...|
00002340: 22 20 20 20 20 20 20 12 52 54 53 20 20 20 20 20 |" .RTS |
00002350: 20 92 C0 BD 22 3A 4D 53 24 B2 22 42 41 43 4B 20 | ...":MS$."BACK |
00002360: 41 47 41 49 4E 22 3A 8D 36 33 31 30 30 3A 8D 36 |AGAIN":.63100:.6|
00002370: 33 30 30 30 00 9C 2B 08 07 99 22 93 4A 55 53 54 |3000..+...".JUST|
00002380: 20 4F 4E 45 20 4D 4F 52 45 20 43 4F 4D 4D 41 4E | ONE MORE COMMAN|
00002390: 44 2E 2E 2E 22 3A 8D 36 33 30 30 30 00 AB 2B 0D |D...":.63000..+.|
000023A0: 07 99 22 93 22 3A 99 41 24 50 24 00 DC 2B 12 07 |..".":.A$P$..+..|
000023B0: 99 53 44 24 22 12 4C 44 41 20 23 24 44 33 92 22 |.SD$".LDA #$D3."|
000023C0: 3A 4E 24 B2 22 31 31 30 31 30 30 31 31 22 3A 8D |:N$."11010011":.|
000023D0: 36 33 30 31 30 3A 8D 34 30 31 31 30 00 03 2C 1C |63010:.40110..,.|
000023E0: 07 4E 24 B2 22 31 30 30 30 30 30 30 30 22 3A 8D |.N$."10000000":.|
000023F0: 34 30 31 32 30 3A 8D 36 33 30 30 30 3A 50 50 B2 |40120:.63000:PP.|
00002400: 33 30 30 00 36 2C 26 07 99 53 44 24 22 11 12 52 |300.6,&..SD$"..R|
00002410: 4F 52 92 3D 52 4F 54 41 54 45 20 52 49 47 48 54 |OR.=ROTATE RIGHT|
00002420: 22 3A 4E 24 B2 22 30 31 31 30 31 30 30 31 22 3A |":N$."01101001":|
00002430: 8D 36 33 30 31 30 00 54 2C 2B 07 97 50 28 37 29 |.63010.T,+..P(7)|
00002440: 2C 33 32 3A 99 22 13 11 11 11 11 11 22 A3 33 37 |,32:."......".37|
00002450: 29 22 30 22 00 8B 2C 2C 07 99 53 44 24 22 11 11 |)"0"..,,..SD$"..|
00002460: 11 43 41 52 52 59 20 42 49 54 20 52 45 4D 4F 56 |.CARRY BIT REMOV|
00002470: 45 44 20 46 4F 52 20 53 41 46 45 20 4B 45 45 50 |ED FOR SAFE KEEP|
00002480: 49 4E 47 22 3A 8D 36 33 30 30 30 00 C2 2C 30 07 |ING":.63000..,0.|
00002490: 99 22 13 11 11 11 22 A6 31 37 29 22 DD 11 9D AD |."....".17)"....|
000024A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000024B0: C0 C0 C0 BD 91 9D 5E 22 3B 3A 97 50 28 37 29 2C |......^";:.P(7),|
000024C0: 34 39 00 DD 2C 35 07 8D 34 30 30 39 36 3A 99 22 |49..,5..40096:."|
000024D0: 13 11 11 11 22 43 4C 24 3A 99 43 4C 24 00 16 2D |...."CL$:.CL$..-|
000024E0: 36 07 99 53 44 24 22 11 11 11 11 11 12 41 92 2D |6..SD$"......A.-|
000024F0: 52 45 47 49 53 54 45 52 20 52 4F 54 41 54 45 44 |REGISTER ROTATED|
00002500: 20 2E 2E 49 4E 54 4F 20 43 41 52 52 59 21 22 3A | ..INTO CARRY!":|
00002510: 8D 36 33 30 30 30 00 55 2D 3A 07 99 22 13 11 11 |.63000.U-:.."...|
00002520: 11 11 1D 1D 1D 5E 11 9D AD C0 C0 C0 C0 C0 C0 C0 |.....^..........|
00002530: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002540: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 97 41 28 |...........":.A(|
00002550: 30 29 2C 34 38 00 90 2D 44 07 99 53 44 24 22 11 |0),48..-D..SD$".|
00002560: 11 11 11 11 11 11 43 41 52 52 59 20 42 49 54 20 |......CARRY BIT |
00002570: 53 54 55 46 46 45 44 20 49 4E 54 4F 20 4D 53 42 |STUFFED INTO MSB|
00002580: 20 4F 46 20 12 41 92 2E 22 3A 8D 36 33 30 30 30 | OF .A..":.63000|
00002590: 00 B7 2D 4E 07 99 22 93 2E 2E 41 4E 44 20 54 48 |..-N.."...AND TH|
000025A0: 45 52 45 27 53 20 12 52 4F 4C 92 20 57 48 49 43 |ERE'S .ROL. WHIC|
000025B0: 48 20 41 4C 53 4F 22 00 E1 2D 58 07 99 22 11 49 |H ALSO"..-X..".I|
000025C0: 4E 56 4F 4C 56 45 53 20 54 48 45 20 12 43 92 41 |NVOLVES THE .C.A|
000025D0: 52 52 59 20 42 49 54 2E 2E 22 3A 8D 36 33 30 30 |RRY BIT..":.6300|
000025E0: 30 00 07 2E 62 07 99 22 93 53 55 50 50 4F 53 45 |0...b..".SUPPOSE|
000025F0: 20 57 45 20 57 41 4E 54 20 54 4F 20 12 4A 53 52 | WE WANT TO .JSR|
00002600: 20 24 31 32 33 34 22 00 37 2E 6C 07 99 22 11 42 | $1234".7.l..".B|
00002610: 55 54 20 41 4C 53 4F 20 57 41 4E 54 20 54 4F 20 |UT ALSO WANT TO |
00002620: 52 45 54 41 49 4E 20 41 4C 4C 20 54 48 45 20 4E |RETAIN ALL THE N|
00002630: 55 4D 42 45 52 53 22 00 66 2E 76 07 99 22 11 49 |UMBERS".f.v..".I|
00002640: 4E 20 54 48 45 20 36 35 31 30 20 52 45 47 49 53 |N THE 6510 REGIS|
00002650: 54 45 52 53 2C 20 41 46 54 45 52 20 52 45 54 55 |TERS, AFTER RETU|
00002660: 52 4E 49 4E 47 22 00 83 2E 80 07 99 22 11 46 52 |RNING"......".FR|
00002670: 4F 4D 20 54 48 45 20 53 55 42 52 4F 55 54 49 4E |OM THE SUBROUTIN|
00002680: 45 2E 22 00 B0 2E 8A 07 99 22 11 57 45 20 43 41 |E."......".WE CA|
00002690: 4E 20 12 50 55 53 48 92 20 41 4C 4C 20 54 48 45 |N .PUSH. ALL THE|
000026A0: 20 52 45 47 49 53 54 45 52 53 20 4F 4E 54 4F 22 | REGISTERS ONTO"|
000026B0: 00 DE 2E 94 07 99 22 11 54 48 45 20 12 53 54 41 |......".THE .STA|
000026C0: 43 4B 92 20 57 48 49 43 48 20 43 4F 4E 53 49 53 |CK. WHICH CONSIS|
000026D0: 54 53 20 4F 46 20 53 45 56 45 52 41 4C 22 00 0C |TS OF SEVERAL"..|
000026E0: 2F 9E 07 99 22 11 4D 45 4D 4F 52 59 20 4C 4F 43 |/...".MEMORY LOC|
000026F0: 41 54 49 4F 4E 53 20 49 4E 20 12 52 41 4D 92 2E |ATIONS IN .RAM..|
00002700: 2E 24 31 30 30 2D 24 31 46 46 2E 22 00 3D 2F A8 |.$100-$1FF.".=/.|
00002710: 07 99 22 11 12 50 48 41 92 3D 50 55 53 48 20 54 |.."..PHA.=PUSH T|
00002720: 48 45 20 41 2D 52 45 47 49 53 54 45 52 20 4F 4E |HE A-REGISTER ON|
00002730: 54 4F 20 54 48 45 20 53 54 41 43 4B 22 00 75 2F |TO THE STACK".u/|
00002740: B2 07 99 22 11 12 50 48 50 92 3D 50 55 53 48 20 |..."..PHP.=PUSH |
00002750: 54 48 45 20 50 2D 52 45 47 49 53 54 45 52 20 4F |THE P-REGISTER O|
00002760: 4E 54 4F 20 54 48 45 20 53 54 41 43 4B 22 3A 8D |NTO THE STACK":.|
00002770: 36 33 30 30 30 00 9F 2F BC 07 99 22 93 54 4F 20 |63000../...".TO |
00002780: 50 55 53 48 20 54 48 45 20 58 20 41 4E 44 20 59 |PUSH THE X AND Y|
00002790: 20 52 45 47 49 53 54 45 52 53 20 57 45 3A 22 00 | REGISTERS WE:".|
000027A0: C4 2F C6 07 99 22 11 12 54 58 41 92 20 12 50 48 |./..."..TXA. .PH|
000027B0: 41 92 20 41 4E 44 20 12 54 59 41 92 20 12 50 48 |A. AND .TYA. .PH|
000027C0: 41 92 2E 22 00 D4 2F D0 07 99 22 11 53 4F 2E 2E |A.."../...".SO..|
000027D0: 57 45 3A 22 00 FF 2F DA 07 99 22 11 12 50 48 41 |WE:"../..."..PHA|
000027E0: 92 20 12 50 48 50 92 20 12 54 58 41 92 20 12 50 |. .PHP. .TXA. .P|
000027F0: 48 41 92 20 12 54 59 41 92 20 12 50 48 41 22 00 |HA. .TYA. .PHA".|
00002800: 19 30 E4 07 99 22 11 54 48 45 4E 2E 2E 12 4A 53 |.0...".THEN...JS|
00002810: 52 20 24 31 32 33 34 2E 22 00 41 30 EE 07 99 22 |R $1234.".A0..."|
00002820: 11 4C 41 54 45 52 2C 20 41 46 54 45 52 20 12 52 |.LATER, AFTER .R|
00002830: 54 53 92 2C 20 57 45 20 57 41 4E 54 20 41 4C 4C |TS., WE WANT ALL|
00002840: 22 00 6E 30 F8 07 99 22 11 54 48 4F 53 45 20 4E |".n0...".THOSE N|
00002850: 55 4D 42 45 52 53 20 42 41 43 4B 20 49 4E 20 54 |UMBERS BACK IN T|
00002860: 48 45 20 52 45 47 49 53 54 45 52 53 2E 22 00 97 |HE REGISTERS."..|
00002870: 30 02 08 99 22 11 53 4F 20 57 45 20 12 50 55 4C |0...".SO WE .PUL|
00002880: 4C 92 20 54 48 45 4D 20 46 52 4F 4D 20 54 48 45 |L. THEM FROM THE|
00002890: 20 53 54 41 43 4B 22 00 B9 30 0C 08 99 22 11 49 | STACK"..0...".I|
000028A0: 4E 20 54 48 45 20 12 52 45 56 45 52 53 45 20 4F |N THE .REVERSE O|
000028B0: 52 44 45 52 92 21 21 21 22 00 EB 30 16 08 99 22 |RDER.!!!"..0..."|
000028C0: 11 12 50 4C 41 92 20 12 54 41 59 92 20 12 50 4C |..PLA. .TAY. .PL|
000028D0: 41 92 20 12 54 41 58 92 20 12 50 4C 50 92 20 12 |A. .TAX. .PLP. .|
000028E0: 50 4C 41 22 3A 8D 36 33 30 30 30 00 16 31 20 08 |PLA":.63000..1 .|
000028F0: 99 22 93 54 48 45 20 53 54 41 43 4B 20 49 53 20 |.".THE STACK IS |
00002900: 41 20 4E 49 43 45 20 50 4C 41 43 45 20 54 4F 20 |A NICE PLACE TO |
00002910: 53 54 4F 52 45 22 00 3F 31 2A 08 99 22 11 42 59 |STORE".?1*..".BY|
00002920: 54 45 53 20 54 45 4D 50 4F 52 41 52 49 4C 59 2E |TES TEMPORARILY.|
00002930: 20 49 46 20 57 45 20 57 41 4E 54 20 54 4F 22 00 | IF WE WANT TO".|
00002940: 6E 31 34 08 99 22 11 45 58 43 48 41 4E 47 45 20 |n14..".EXCHANGE |
00002950: 54 48 45 20 43 4F 4E 54 45 4E 54 53 20 4F 46 20 |THE CONTENTS OF |
00002960: 4D 45 4D 4F 52 59 20 4C 4F 43 27 4E 53 22 00 93 |MEMORY LOC'NS"..|
00002970: 31 3E 08 99 22 11 24 32 30 30 30 20 41 4E 44 20 |1>..".$2000 AND |
00002980: 24 33 30 30 30 20 54 48 45 4E 20 57 45 20 43 41 |$3000 THEN WE CA|
00002990: 4E 3A 22 00 C4 31 48 08 99 22 11 12 4C 44 41 20 |N:"..1H.."..LDA |
000029A0: 24 32 30 30 30 92 20 12 50 48 41 92 20 12 4C 44 |$2000. .PHA. .LD|
000029B0: 41 20 24 33 30 30 30 92 20 12 53 54 41 20 24 32 |A $3000. .STA $2|
000029C0: 30 30 30 22 00 FB 31 52 08 99 22 11 12 50 4C 41 |000"..1R.."..PLA|
000029D0: 92 20 12 53 54 41 20 24 33 30 30 30 22 3A 4D 53 |. .STA $3000":MS|
000029E0: 24 B2 22 20 12 53 4C 49 43 4B 21 92 22 3A 8D 36 |$." .SLICK!.":.6|
000029F0: 33 30 30 30 3A 8D 36 33 31 30 30 00 26 32 5C 08 |3000:.63100.&2\.|
00002A00: 99 22 93 12 59 4F 55 92 20 44 45 54 45 52 4D 49 |."..YOU. DETERMI|
00002A10: 4E 45 20 57 48 41 54 20 54 48 45 20 46 4F 4C 4C |NE WHAT THE FOLL|
00002A20: 4F 57 49 4E 47 22 00 47 32 66 08 99 22 11 53 55 |OWING".G2f..".SU|
00002A30: 42 52 4F 55 54 49 4E 45 20 44 4F 45 53 2E 2E 22 |BROUTINE DOES.."|
00002A40: 3A 8D 36 33 30 30 30 00 68 32 B8 0B 99 22 93 2E |:.63000.h2..."..|
00002A50: 2C 20 36 30 30 30 20 41 32 20 30 30 20 20 20 20 |, 6000 A2 00 |
00002A60: 4C 44 58 20 23 24 30 30 00 8B 32 B9 0B 99 22 2E |LDX #$00..2...".|
00002A70: 2C 20 36 30 30 32 20 42 44 20 30 30 20 30 34 20 |, 6002 BD 00 04 |
00002A80: 4C 44 41 20 24 30 34 30 30 2C 58 00 A6 32 BA 0B |LDA $0400,X..2..|
00002A90: 99 22 2E 2C 20 36 30 30 35 20 34 38 20 20 20 20 |."., 6005 48 |
00002AA0: 20 20 20 50 48 41 00 C9 32 BB 0B 99 22 2E 2C 20 | PHA..2..."., |
00002AB0: 36 30 30 36 20 42 44 20 34 30 20 30 35 20 4C 44 |6006 BD 40 05 LD|
00002AC0: 41 20 24 30 35 34 30 2C 58 00 EC 32 BC 0B 99 22 |A $0540,X..2..."|
00002AD0: 2E 2C 20 36 30 30 39 20 39 44 20 30 30 20 30 34 |., 6009 9D 00 04|
00002AE0: 20 53 54 41 20 24 30 34 30 30 2C 58 00 07 33 BD | STA $0400,X..3.|
00002AF0: 0B 99 22 2E 2C 20 36 30 30 43 20 36 38 20 20 20 |.."., 600C 68 |
00002B00: 20 20 20 20 50 4C 41 00 2A 33 BE 0B 99 22 2E 2C | PLA.*3...".,|
00002B10: 20 36 30 30 44 20 39 44 20 34 30 20 30 35 20 53 | 600D 9D 40 05 S|
00002B20: 54 41 20 24 30 35 34 30 2C 58 00 4D 33 BF 0B 99 |TA $0540,X.M3...|
00002B30: 22 2E 2C 20 36 30 31 30 20 42 44 20 41 30 20 30 |"., 6010 BD A0 0|
00002B40: 34 20 4C 44 41 20 24 30 34 41 30 2C 58 00 68 33 |4 LDA $04A0,X.h3|
00002B50: C0 0B 99 22 2E 2C 20 36 30 31 33 20 34 38 20 20 |..."., 6013 48 |
00002B60: 20 20 20 20 20 50 48 41 00 8B 33 C1 0B 99 22 2E | PHA..3...".|
00002B70: 2C 20 36 30 31 34 20 42 44 20 45 30 20 30 35 20 |, 6014 BD E0 05 |
00002B80: 4C 44 41 20 24 30 35 45 30 2C 58 00 AE 33 C2 0B |LDA $05E0,X..3..|
00002B90: 99 22 2E 2C 20 36 30 31 37 20 39 44 20 41 30 20 |."., 6017 9D A0 |
00002BA0: 30 34 20 53 54 41 20 24 30 34 41 30 2C 58 00 C9 |04 STA $04A0,X..|
00002BB0: 33 C3 0B 99 22 2E 2C 20 36 30 31 41 20 36 38 20 |3..."., 601A 68 |
00002BC0: 20 20 20 20 20 20 50 4C 41 00 EC 33 C4 0B 99 22 | PLA..3..."|
00002BD0: 2E 2C 20 36 30 31 42 20 39 44 20 45 30 20 30 35 |., 601B 9D E0 05|
00002BE0: 20 53 54 41 20 24 30 35 45 30 2C 58 00 07 34 C5 | STA $05E0,X..4.|
00002BF0: 0B 99 22 2E 2C 20 36 30 31 45 20 45 38 20 20 20 |.."., 601E E8 |
00002C00: 20 20 20 20 49 4E 58 00 27 34 C6 0B 99 22 2E 2C | INX.'4...".,|
00002C10: 20 36 30 31 46 20 44 30 20 45 31 20 20 20 20 43 | 601F D0 E1 C|
00002C20: 50 58 20 23 24 41 30 00 48 34 C7 0B 99 22 2E 2C |PX #$A0.H4...".,|
00002C30: 20 36 30 32 31 20 44 30 20 44 46 20 20 20 20 42 | 6021 D0 DF B|
00002C40: 4E 45 20 24 36 30 30 32 00 63 34 C8 0B 99 22 2E |NE $6002.c4...".|
00002C50: 2C 20 36 30 32 33 20 36 30 20 20 20 20 20 20 20 |, 6023 60 |
00002C60: 52 54 53 00 84 34 CC 0B 4D B2 36 AC 34 30 39 36 |RTS..4..M.6.4096|
00002C70: 3A 81 49 B2 4D A4 4D AA 33 35 3A 87 4B 3A 97 49 |:.I.M.M.35:.K:.I|
00002C80: 2C 4B 3A 82 00 C2 34 D6 0B 83 31 36 32 2C 30 2C |,K:...4...162,0,|
00002C90: 31 38 39 2C 30 2C 34 2C 37 32 2C 31 38 39 2C 36 |189,0,4,72,189,6|
00002CA0: 34 2C 35 2C 31 35 37 2C 30 2C 34 2C 31 30 34 2C |4,5,157,0,4,104,|
00002CB0: 31 35 37 2C 36 34 2C 35 2C 31 38 39 2C 31 36 30 |157,64,5,189,160|
00002CC0: 2C 34 00 03 35 E0 0B 83 37 32 2C 31 38 39 2C 32 |,4..5...72,189,2|
00002CD0: 32 34 2C 35 2C 31 35 37 2C 31 36 30 2C 34 2C 31 |24,5,157,160,4,1|
00002CE0: 30 34 2C 31 35 37 2C 32 32 34 2C 35 2C 32 33 32 |04,157,224,5,232|
00002CF0: 2C 32 32 34 2C 31 36 30 2C 32 30 38 2C 32 32 33 |,224,160,208,223|
00002D00: 2C 39 36 00 34 35 EA 0B 55 24 B2 22 22 3A 56 24 |,96.45..U$."":V$|
00002D10: B2 22 12 22 3A 81 49 B2 31 A4 57 44 AB 31 3A 55 |.".":.I.1.WD.1:U|
00002D20: 24 B2 55 24 AA 22 2A 22 3A 56 24 B2 56 24 AA 22 |$.U$."*":V$.V$."|
00002D30: 20 22 3A 82 00 53 35 EF 0B 99 42 54 24 22 91 91 | ":..S5...BT$"..|
00002D40: 91 91 12 59 4F 55 20 43 41 4E 20 54 52 59 20 49 |...YOU CAN TRY I|
00002D50: 54 21 22 00 7E 35 1C 0C 8D 36 33 30 30 30 3A 99 |T!".~5...63000:.|
00002D60: 22 93 22 3B 3A 81 49 B2 31 A4 34 3A 99 55 24 3A |".";:.I.1.4:.U$:|
00002D70: 82 3A 81 49 B2 31 A4 34 3A 99 56 24 3A 82 00 A6 |.:.I.1.4:.V$:...|
00002D80: 35 26 0C 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |5&.."...........|
00002D90: 1D 1D 1D 12 45 4E 44 20 4F 46 20 54 55 54 4F 52 |....END OF TUTOR|
00002DA0: 37 92 11 11 11 22 00 BD 35 2B 0C 4D 53 24 B2 22 |7...."..5+.MS$."|
00002DB0: 12 41 55 20 52 45 56 4F 49 52 21 92 22 00 E5 35 |.AU REVOIR!."..5|
00002DC0: 30 0C 81 49 B2 31 A4 31 30 3A 9E 36 AC 34 30 39 |0..I.1.10:.6.409|
00002DD0: 36 3A 81 54 B2 31 A4 35 30 30 3A 82 3A 82 3A 8D |6:.T.1.500:.:.:.|
00002DE0: 36 33 31 30 30 00 12 36 35 0C 81 49 B2 31 A4 31 |63100..65..I.1.1|
00002DF0: 30 3A A1 5A 24 3A 82 3A 99 42 54 24 22 91 91 91 |0:.Z$:.:.BT$"...|
00002E00: 91 91 91 53 59 53 36 2A 34 30 39 36 91 91 91 22 |...SYS6*4096..."|
00002E10: 3A 80 00 3E 36 10 27 99 22 93 22 3A 99 50 24 3A |:..>6.'.".":.P$:|
00002E20: 99 53 44 24 22 D1 54 48 45 20 5A 2D 42 49 54 20 |.SD$".THE Z-BIT |
00002E30: 49 53 20 53 45 54 20 54 4F 20 27 31 27 22 00 71 |IS SET TO '1'".q|
00002E40: 36 1A 27 99 22 11 49 46 20 45 56 45 52 59 20 42 |6.'.".IF EVERY B|
00002E50: 49 54 20 4F 46 20 41 20 27 52 45 53 55 4C 54 27 |IT OF A 'RESULT'|
00002E60: 20 49 53 20 12 30 30 92 2E 22 3A 8D 36 33 30 30 | IS .00..":.6300|
00002E70: 30 00 92 36 24 27 97 50 28 36 29 2C 31 37 37 3A |0..6$'.P(6),177:|
00002E80: 8D 36 33 30 30 30 3A 99 53 44 24 22 11 11 11 11 |.63000:.SD$"....|
00002E90: 22 3B 00 CB 36 2E 27 99 22 D1 5A 3D 30 20 49 46 |";..6.'.".Z=0 IF|
00002EA0: 20 41 20 27 52 45 53 55 4C 54 27 20 49 53 20 4E | A 'RESULT' IS N|
00002EB0: 4F 54 11 9D 9D 9D B8 B8 B8 91 20 5A 45 52 4F 2E |OT........ ZERO.|
00002EC0: 22 3A 97 50 28 36 29 2C 31 37 36 00 D6 36 38 27 |":.P(6),176..68'|
00002ED0: 8D 36 33 30 30 30 00 FF 36 42 27 99 22 93 22 3A |.63000..6B'.".":|
00002EE0: 99 50 24 3A 99 53 44 24 22 41 4E 44 20 54 48 45 |.P$:.SD$"AND THE|
00002EF0: 20 12 43 41 52 52 59 92 20 42 49 54 2E 2E 22 00 | .CARRY. BIT..".|
00002F00: 2F 37 4C 27 99 22 11 57 48 45 52 45 27 53 20 54 |/7L'.".WHERE'S T|
00002F10: 48 45 20 43 41 52 52 59 20 42 49 54 21 21 22 3A |HE CARRY BIT!!":|
00002F20: 81 54 B2 31 A4 31 30 3A 99 C7 28 31 34 29 3B 00 |.T.1.10:..(14);.|
00002F30: 54 37 56 27 81 54 31 B2 31 A4 35 30 3A 82 3A 99 |T7V'.T1.1.50:.:.|
00002F40: C7 28 31 34 32 29 3B 3A 81 54 31 B2 31 A4 35 30 |.(142);:.T1.1.50|
00002F50: 3A 82 3A 82 00 72 37 60 27 8D 36 33 30 30 30 3A |:.:..r7`'.63000:|
00002F60: 97 50 28 37 29 2C 31 33 31 3A 8D 36 33 30 30 30 |.P(7),131:.63000|
00002F70: 3A 8E 00 A0 37 20 4E 99 22 93 11 11 11 48 45 52 |:...7 N."....HER|
00002F80: 45 27 53 20 54 48 45 20 53 45 54 20 4F 46 20 12 |E'S THE SET OF .|
00002F90: 36 35 31 30 92 20 43 4F 4D 4D 41 4E 44 53 3A 22 |6510. COMMANDS:"|
00002FA0: 00 DD 37 2A 4E 99 22 11 12 41 44 43 92 20 12 41 |..7*N."..ADC. .A|
00002FB0: 4E 44 92 20 12 41 53 4C 92 20 12 42 43 43 92 20 |ND. .ASL. .BCC. |
00002FC0: 12 42 43 53 92 20 12 42 45 51 92 20 12 42 49 54 |.BCS. .BEQ. .BIT|
00002FD0: 92 20 12 42 4D 49 92 20 12 42 4E 45 22 00 1A 38 |. .BMI. .BNE"..8|
00002FE0: 34 4E 99 22 11 12 42 50 4C 92 20 12 42 52 4B 92 |4N."..BPL. .BRK.|
00002FF0: 20 12 42 56 43 92 20 12 42 56 53 92 20 12 43 4C | .BVC. .BVS. .CL|
00003000: 43 92 20 12 43 4C 44 92 20 12 43 4C 49 92 20 12 |C. .CLD. .CLI. .|
00003010: 43 4C 56 92 20 12 43 4D 50 22 00 57 38 3E 4E 99 |CLV. .CMP".W8>N.|
00003020: 22 11 12 43 50 58 92 20 12 43 50 59 92 20 12 44 |"..CPX. .CPY. .D|
00003030: 45 43 92 20 12 44 45 58 92 20 12 44 45 59 92 20 |EC. .DEX. .DEY. |
00003040: 12 45 4F 52 92 20 12 49 4E 43 92 20 12 49 4E 58 |.EOR. .INC. .INX|
00003050: 92 20 12 49 4E 59 22 00 94 38 48 4E 99 22 11 12 |. .INY"..8HN."..|
00003060: 4A 4D 50 92 20 12 4A 53 52 92 20 12 4C 44 41 92 |JMP. .JSR. .LDA.|
00003070: 20 12 4C 44 58 92 20 12 4C 44 59 92 20 12 4C 53 | .LDX. .LDY. .LS|
00003080: 52 92 20 12 4E 4F 50 92 20 12 4F 52 41 92 20 12 |R. .NOP. .ORA. .|
00003090: 50 48 41 22 00 D1 38 52 4E 99 22 11 12 50 48 50 |PHA"..8RN."..PHP|
000030A0: 92 20 12 50 4C 41 92 20 12 50 4C 50 92 20 12 52 |. .PLA. .PLP. .R|
000030B0: 4F 4C 92 20 12 52 4F 52 92 20 12 52 54 49 92 20 |OL. .ROR. .RTI. |
000030C0: 12 53 42 43 92 20 12 53 45 43 92 20 12 53 45 44 |.SBC. .SEC. .SED|
000030D0: 22 00 0E 39 5C 4E 99 22 11 12 54 58 41 92 20 12 |"..9\N."..TXA. .|
000030E0: 53 54 41 92 20 12 53 54 58 92 20 12 53 54 59 92 |STA. .STX. .STY.|
000030F0: 20 12 54 41 58 92 20 12 54 41 59 92 20 12 54 59 | .TAX. .TAY. .TY|
00003100: 41 92 20 12 54 53 58 92 20 12 54 58 41 22 00 2A |A. .TSX. .TXA".*|
00003110: 39 66 4E 99 22 11 2E 2E 41 4E 44 20 12 54 58 53 |9fN."...AND .TXS|
00003120: 92 21 22 3A 8D 36 33 30 30 30 00 46 39 70 4E 4D |.!":.63000.F9pNM|
00003130: 53 24 B2 22 49 4D 50 52 45 53 53 49 56 45 22 3A |S$."IMPRESSIVE":|
00003140: 8D 36 33 31 30 30 00 53 39 7A 4E 8D 36 33 30 30 |.63100.S9zN.6300|
00003150: 30 3A 8E 00 74 39 58 98 99 22 13 22 3B 3A 81 49 |0:..t9X..".";:.I|
00003160: B2 31 A4 31 37 3A 99 43 4C 24 3A 82 3A 99 22 13 |.1.17:.CL$:.:.".|
00003170: 22 3B 3A 8E 00 95 39 BC 98 99 53 44 24 3B 3A 81 |";:...9...SD$;:.|
00003180: 49 B2 31 A4 31 35 3A 99 43 4C 24 3A 82 3A 99 53 |I.1.15:.CL$:.:.S|
00003190: 44 24 3B 3A 8E 00 C2 39 A0 9C 97 41 28 37 29 2C |D$;:...9...A(7),|
000031A0: 33 32 3A 81 54 54 B2 31 A4 50 50 3A 82 3A 81 49 |32:.TT.1.PP:.:.I|
000031B0: B2 37 A4 31 A9 AB 31 3A 97 41 28 49 AB 31 29 2C |.7.1..1:.A(I.1),|
000031C0: 33 32 00 EB 39 A1 9C 97 41 28 49 29 2C C5 28 CA |32..9...A(I),.(.|
000031D0: 28 4E 24 2C 49 2C 31 29 29 AA 34 38 3A 81 54 54 |(N$,I,1)).48:.TT|
000031E0: B2 31 A4 50 50 3A 82 3A 82 3A 8E 00 15 3A A2 9C |.1.PP:.:.:...:..|
000031F0: 97 41 28 30 29 2C 33 32 3A 81 54 54 B2 31 A4 50 |.A(0),32:.TT.1.P|
00003200: 50 3A 82 3A 81 49 B2 30 A4 36 3A 97 41 28 49 AA |P:.:.I.0.6:.A(I.|
00003210: 31 29 2C 33 32 00 49 3A A3 9C 97 41 28 49 29 2C |1),32.I:...A(I),|
00003220: C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 29 29 AA 34 |.(.(N$,I.1,1)).4|
00003230: 38 3A 81 54 54 B2 31 A4 50 50 3A 82 3A 82 3A 97 |8:.TT.1.PP:.:.:.|
00003240: 41 28 37 29 2C 34 38 3A 8E 00 69 3A AE 9C 81 49 |A(7),48:..i:...I|
00003250: B2 30 A4 37 3A 97 41 28 49 29 2C 31 36 30 3A 81 |.0.7:.A(I),160:.|
00003260: 54 54 B2 31 A4 50 50 3A 82 00 89 3A AF 9C 97 41 |TT.1.PP:...:...A|
00003270: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003280: 29 29 AA 34 38 3A 82 3A 8E 00 A9 3A B8 9C 81 49 |)).48:.:...:...I|
00003290: B2 30 A4 37 3A 97 50 28 49 29 2C 31 36 30 3A 81 |.0.7:.P(I),160:.|
000032A0: 54 54 B2 31 A4 50 50 3A 82 00 C9 3A B9 9C 97 50 |TT.1.PP:...:...P|
000032B0: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
000032C0: 29 29 AA 34 38 3A 82 3A 8E 00 E9 3A C2 9C 81 49 |)).48:.:...:...I|
000032D0: B2 30 A4 37 3A 97 58 28 49 29 2C 31 36 30 3A 81 |.0.7:.X(I),160:.|
000032E0: 54 54 B2 31 A4 50 50 3A 82 00 09 3B C3 9C 97 58 |TT.1.PP:...;...X|
000032F0: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003300: 29 29 AA 34 38 3A 82 3A 8E 00 29 3B CC 9C 81 49 |)).48:.:..);...I|
00003310: B2 30 A4 37 3A 97 59 28 49 29 2C 31 36 30 3A 81 |.0.7:.Y(I),160:.|
00003320: 54 54 B2 31 A4 50 50 3A 82 00 49 3B CD 9C 97 59 |TT.1.PP:..I;...Y|
00003330: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003340: 29 29 AA 34 38 3A 82 3A 8E 00 69 3B E0 9C 81 49 |)).48:.:..i;...I|
00003350: B2 30 A4 37 3A 97 4D 28 49 29 2C 31 36 30 3A 81 |.0.7:.M(I),160:.|
00003360: 54 54 B2 31 A4 50 50 3A 82 00 89 3B E1 9C 97 4D |TT.1.PP:...;...M|
00003370: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA 31 2C 31 |(I),.(.(N$,I.1,1|
00003380: 29 29 AA 34 38 3A 82 3A 8E 00 A9 3B A0 A0 81 49 |)).48:.:...;...I|
00003390: B2 30 A4 37 3A 97 50 28 49 29 2C 31 36 30 3A 81 |.0.7:.P(I),160:.|
000033A0: 54 54 B2 31 A4 50 50 3A 82 00 BF 3B A1 A0 97 50 |TT.1.PP:...;...P|
000033B0: 28 49 29 2C C2 28 41 28 49 29 29 3A 82 3A 8E 00 |(I),.(A(I)):.:..|
000033C0: DF 3B AA A0 81 49 B2 30 A4 37 3A 97 58 28 49 29 |.;...I.0.7:.X(I)|
000033D0: 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 |,160:.TT.1.PP:..|
000033E0: F5 3B AB A0 97 58 28 49 29 2C C2 28 41 28 49 29 |.;...X(I),.(A(I)|
000033F0: 29 3A 82 3A 8E 00 15 3C B4 A0 81 49 B2 30 A4 37 |):.:...<...I.0.7|
00003400: 3A 97 59 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 |:.Y(I),160:.TT.1|
00003410: A4 50 50 3A 82 00 2B 3C B5 A0 97 59 28 49 29 2C |.PP:..+<...Y(I),|
00003420: C2 28 41 28 49 29 29 3A 82 3A 8E 00 4B 3C C8 A0 |.(A(I)):.:..K<..|
00003430: 81 49 B2 30 A4 37 3A 97 4D 28 49 29 2C 31 36 30 |.I.0.7:.M(I),160|
00003440: 3A 81 54 54 B2 31 A4 50 50 3A 82 00 61 3C C9 A0 |:.TT.1.PP:..a<..|
00003450: 97 4D 28 49 29 2C C2 28 41 28 49 29 29 3A 82 3A |.M(I),.(A(I)):.:|
00003460: 8E 00 81 3C 7C A1 81 49 B2 30 A4 37 3A 97 41 28 |...<|..I.0.7:.A(|
00003470: 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A |I),160:.TT.1.PP:|
00003480: 82 00 97 3C 7D A1 97 41 28 49 29 2C C2 28 58 28 |...<}..A(I),.(X(|
00003490: 49 29 29 3A 82 3A 8E 00 B7 3C 90 A1 81 49 B2 30 |I)):.:...<...I.0|
000034A0: A4 37 3A 97 4D 28 49 29 2C 31 36 30 3A 81 54 54 |.7:.M(I),160:.TT|
000034B0: B2 31 A4 50 50 3A 82 00 CD 3C 91 A1 97 4D 28 49 |.1.PP:...<...M(I|
000034C0: 29 2C C2 28 58 28 49 29 29 3A 82 3A 8E 00 ED 3C |),.(X(I)):.:...<|
000034D0: C2 A1 81 49 B2 30 A4 37 3A 97 41 28 49 29 2C 31 |...I.0.7:.A(I),1|
000034E0: 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 03 3D |60:.TT.1.PP:...=|
000034F0: C3 A1 97 41 28 49 29 2C C2 28 59 28 49 29 29 3A |...A(I),.(Y(I)):|
00003500: 82 3A 8E 00 23 3D F4 A1 81 49 B2 30 A4 37 3A 97 |.:..#=...I.0.7:.|
00003510: 4D 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 |M(I),160:.TT.1.P|
00003520: 50 3A 82 00 39 3D F5 A1 97 4D 28 49 29 2C C2 28 |P:..9=...M(I),.(|
00003530: 59 28 49 29 29 3A 82 3A 8E 00 78 3D 60 EA 52 24 |Y(I)):.:..x=`.R$|
00003540: B2 22 B0 C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 |."..............|
00003550: B2 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003560: 9D 9D 9D 9D 9D DD A0 DD A0 DD A0 DD A0 DD A0 DD |................|
00003570: A0 DD A0 DD A0 DD 11 22 00 A7 3D 61 EA 52 24 B2 |......."..=a.R$.|
00003580: 52 24 AA 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |R$."............|
00003590: 9D 9D 9D 9D 9D AD C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
000035A0: C0 B1 C0 B1 C0 BD 22 00 DF 3D 62 EA 41 24 B2 22 |......"..=b.A$."|
000035B0: 13 11 20 12 41 92 91 22 AA 52 24 3A 50 24 B2 22 |.. .A..".R$:P$."|
000035C0: 13 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000035D0: 1D 1D 1D 1D 1D 1D 1D 12 50 92 91 22 AA 52 24 00 |........P..".R$.|
000035E0: 1D 3E 63 EA 58 24 B2 22 13 11 11 11 11 20 12 58 |.>c.X$."..... .X|
000035F0: 92 91 22 AA 52 24 3A 59 24 B2 22 13 11 11 11 11 |..".R$:Y$.".....|
00003600: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003610: 1D 1D 1D 1D 1D 12 59 92 91 22 AA 52 24 00 4B 3E |......Y..".R$.K>|
00003620: 64 EA 4D 24 B2 22 13 11 11 11 11 11 11 11 1D 1D |d.M$."..........|
00003630: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003640: 1D 1D 1D 12 4D 92 91 22 AA 52 24 00 6E 3E 65 EA |....M..".R$.n>e.|
00003650: 43 52 24 B2 22 13 11 11 11 11 11 11 B0 C0 AE 11 |CR$."...........|
00003660: 9D 9D 9D DD 1D DD 11 9D 9D 9D AD C0 BD 22 00 AE |............."..|
00003670: 3E 66 EA 43 43 24 B2 22 13 11 20 12 41 92 DD 11 |>f.CC$.".. .A...|
00003680: 9D 9D 9D 20 11 9D 20 11 9D 20 11 9D 20 11 9D 20 |... .. .. .. .. |
00003690: 20 20 11 9D 9D 9D 20 20 20 11 9D 9D 9D 20 20 20 | .... .... |
000036A0: 91 20 20 20 20 20 20 20 20 20 20 20 20 22 00 C9 |. "..|
000036B0: 3E 67 EA 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 |>g.WD.40:CRT.102|
000036C0: 34 3A 99 C7 28 31 34 32 29 00 0F 3F 68 EA 81 49 |4:..(142)..?h..I|
000036D0: B2 30 A4 37 3A 41 28 49 29 B2 43 52 54 AA 57 44 |.0.7:A(I).CRT.WD|
000036E0: AA 33 AA 32 AC 49 3A 50 28 49 29 B2 41 28 49 29 |.3.2.I:P(I).A(I)|
000036F0: AA 32 30 3A 58 28 49 29 B2 41 28 49 29 AA 33 AC |.20:X(I).A(I).3.|
00003700: 57 44 3A 59 28 49 29 B2 58 28 49 29 AA 32 30 00 |WD:Y(I).X(I).20.|
00003710: 31 3F 69 EA 4D 28 49 29 B2 59 28 49 29 AA 33 AC |1?i.M(I).Y(I).3.|
00003720: 57 44 3A 82 3A 43 B2 43 52 54 AA 37 AC 57 44 AA |WD:.:C.CRT.7.WD.|
00003730: 31 00 65 3F 6A EA 53 44 24 B2 22 13 11 11 11 11 |1.e?j.SD$.".....|
00003740: 11 11 11 11 11 22 3A 43 4C 24 B2 22 22 3A 81 49 |.....":CL$."":.I|
00003750: B2 31 A4 57 44 AB 31 3A 43 4C 24 B2 43 4C 24 AA |.1.WD.1:CL$.CL$.|
00003760: 22 20 22 3A 82 00 87 3F 6B EA 42 54 24 B2 22 13 |" ":...?k.BT$.".|
00003770: 22 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 |":.I.1.24:BT$.BT|
00003780: 24 AA 22 11 22 3A 82 00 BA 3F 6C EA 43 24 B2 43 |$.".":...?l.C$.C|
00003790: 52 24 AA 22 13 11 B0 C0 B3 11 9D 9D 9D DD 11 9D |R$."............|
000037A0: DD 11 9D DD 11 9D DD 11 9D AB 11 1D 1D 1D 1D 5F |..............._|
000037B0: 43 41 52 52 59 20 42 49 54 22 00 EA 3F 73 EA 4D |CARRY BIT"..?s.M|
000037C0: 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 1D 1D |L$."............|
000037D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000037E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 0C 40 74 EA 42 |........."..@t.B|
000037F0: 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 3A 42 |T$.".":.I.1.24:B|
00003800: 54 24 B2 42 54 24 AA 22 11 22 3A 82 00 56 40 75 |T$.BT$.".":..V@u|
00003810: EA 50 54 24 B2 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 |.PT$."..........|
00003820: C0 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003830: DD 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D |................|
00003840: 9D 9D 9D 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 |................|
00003850: C0 C0 C0 B2 BD 22 00 9E 40 76 EA 50 54 24 B2 50 |....."..@v.PT$.P|
00003860: 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |T$."............|
00003870: 9D 9D CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD |................|
00003880: 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 |................|
00003890: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 DA |============."..|
000038A0: 40 77 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D |@w.PT$.PT$."....|
000038B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 |................|
000038C0: A3 A3 A3 A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D |................|
000038D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 11 41 78 EA 50 |........."..Ax.P|
000038E0: 54 24 B2 42 54 24 AA 22 91 91 91 91 91 91 1D 1D |T$.BT$."........|
000038F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003900: 1D 1D 1D 1D 1D 1D 1D 1D 22 AA 50 54 24 AA 22 90 |........".PT$.".|
00003910: 22 00 1D 41 79 EA 99 C7 28 31 34 32 29 00 27 41 |"..Ay...(142).'A|
00003920: C3 EA 50 50 B2 35 30 00 2D 41 C4 EA 8E 00 45 41 |..PP.50.-A....EA|
00003930: 18 F6 99 42 54 24 43 4C 24 3B 3A 81 54 54 B2 31 |...BT$CL$;:.TT.1|
00003940: A4 35 30 3A 82 00 70 41 19 F6 99 42 54 24 22 12 |.50:..pA...BT$".|
00003950: 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 |RETURN. TO CONTI|
00003960: 4E 55 45 22 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 |NUE";:.TT.1.50:.|
00003970: 00 86 41 1A F6 A1 5A 24 3A 8B 5A 24 B3 B1 22 22 |..A...Z$:.Z$..""|
00003980: A7 36 33 30 30 32 00 9B 41 1B F6 A1 5A 24 3A 8B |.63002..A...Z$:.|
00003990: 5A 24 B2 22 22 A7 36 33 30 30 33 00 A1 41 1C F6 |Z$."".63003..A..|
000039A0: 8E 00 B9 41 22 F6 99 42 54 24 43 4C 24 3B 3A 81 |...A"..BT$CL$;:.|
000039B0: 54 54 B2 31 A4 35 30 3A 82 00 F9 41 23 F6 99 42 |TT.1.50:...A#..B|
000039C0: 54 24 22 A6 A6 A6 A6 A6 A6 A6 A6 12 52 45 54 55 |T$".........RETU|
000039D0: 52 4E 20 54 4F 20 53 45 45 20 49 54 20 48 41 50 |RN TO SEE IT HAP|
000039E0: 50 45 4E 92 A6 A6 A6 A6 A6 A6 A6 A6 22 3B 3A 81 |PEN.........";:.|
000039F0: 54 54 B2 31 A4 35 30 3A 82 00 0F 42 24 F6 A1 5A |TT.1.50:...B$..Z|
00003A00: 24 3A 8B 5A 24 B3 B1 22 22 A7 36 33 30 31 32 00 |$:.Z$.."".63012.|
00003A10: 24 42 25 F6 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 36 |$B%..Z$:.Z$."".6|
00003A20: 33 30 31 33 00 2A 42 26 F6 8E 00 3E 42 7C F6 81 |3013.*B&...>B|..|
00003A30: 54 B2 31 A4 35 3A 99 50 54 24 4D 53 24 3B 00 54 |T.1.5:.PT$MS$;.T|
00003A40: 42 7D F6 99 50 54 24 22 20 20 20 20 20 20 20 20 |B}..PT$" |
00003A50: 20 20 22 3B 00 63 42 7E F6 99 50 54 24 4D 53 24 | ";.cB~..PT$MS$|
00003A60: 3B 3A 82 00 69 42 7F F6 8E 00 74 42 E0 F6 8D 36 |;:..iB....tB...6|
00003A70: 33 30 30 30 00 95 42 E1 F6 99 53 44 24 3B 3A 81 |3000..B...SD$;:.|
00003A80: 54 B2 31 A4 31 35 3A 99 43 4C 24 3A 82 3A 99 53 |T.1.15:.CL$:.:.S|
00003A90: 44 24 3B 3A 8E 00 A9 42 44 F7 8D 36 33 31 30 30 |D$;:...BD..63100|
00003AA0: 3A 8D 36 33 30 31 30 3A 8E 00 C9 42 A8 F7 99 22 |:.63010:...B..."|
00003AB0: 13 22 3B 3A 81 49 B2 31 A4 35 3A 99 43 4C 24 3A |.";:.I.1.5:.CL$:|
00003AC0: 82 3A 99 22 13 22 3B 3A 8E 00 DF 42 FF F9 8D 36 |.:.".";:...B...6|
00003AD0: 30 30 30 30 3A 99 22 93 22 3A 89 33 30 30 30 00 |0000:.".":.3000.|
00003AE0: 00 00 |.. |
..!...."....... PONZO*82*WATERLOO./...."
........L....53281,15:.53280,12:.".".P..
..". ..C64 TUTOR-7. ....".
......................................."
......". .. ...AND MORE MACHINE LANGUAG
E... .. .":MS$." WELCOME! "......".....
...................................."...
#..60000:.63100:.63000.9.(..20000.E.-.."
.":.SD$"RECALL THAT THE .6510. HAS A"...
2..".NUMBER OF INTERNAL REGISTERS...":.6
3000:.A$X$Y$.K.<..39100:."SOME COMMANDS
AFFECT THE NUMBERS"...F.."CONTAINED IN T
HESE REGISTERS..":.63000:.SD$".".=.Z..".
.ADC. .AND. .ASL. .CMP. .CPX. .CPY. .DEC
. .DEX. .DEY".Z.D.."..EOR. .INC. .INX. .
INY. .LDA. .LDX. .LDY. .LSR. .ORA"...N..
"..PLA. .PLP. .ROL. .ROR. .RTI. .SBC. .T
AX. .TSX. .TXA"...X.."...AND .TYA.!!":MS
$."WHERE'S.BIT." :.63100:.63000......391
00:."THE .6510. KEEPS TRACK OF WHETHER".
Q....".ONE OF THESE OPERATIONS PRODUCES
A .Z.ERO".~....".OR .N.EGATIVE RESULT..A
ND, FOR .ADC."... ..".AND .SBC. (ADD & S
UBTRACT), WHETHER"......".THE OPERATION
PRODUCES AN .OVERFLOW..":.63000......391
00:."THE .P.ROCESSOR STATUS REGISTER".;.
...".HAS 8 BITS. THREE BITS ARE DEVOTED
TO".P.H.."..N.EGATIVE,O.V.ERFLOW AND .Z.
ERO.":.63000:.P$...R..P(0),142:.P(1),150
:.P(6),154:.63000...W..P(0),32:.P(1),32:
.P(6),32......39100:."IF AN OPERATION PR
ODUCES A .N.EGATIVE"......".RESULT,.N=1.
":.P(0),177:.63000.@....39100:."IF IT'S
NOT NEGATIVE THEN .N=0.".R....".(MEANING
IT'S POSITIVE!)":.P(0),176:.63000......
".A NEGATIVE NUMBER HAS A '1'"......".IN
THE MSB POSITION."......".IF ONE OF THE
OPERATIONS WHICH AFFECT"..."..".THE A,X
OR Y-REGISTERS IS PERFORMED,".=.,..".AN
D THE MSB OF THE RESULT IS '1', THEN".E.
6.."..N=1.. IT'S THAT SIMPLE!":.63000...
@.MS$." .N=MSB. ":.63100:.63000...J..".
.BMI $1234. WILL TEST THE .N.-BIT AND,".
..T..".IF IT'S '1', WILL BRANCH TO $1234
."...^..".(SINCE THE 'RESULT' IS .MI.NUS
!)".6.H.."..BPL $1234. WILL .B.RANCH TO
$1234"._.R..".IF THE 'RESULT' IS .PL.US
(N=0)."...|..".IF WE .LDA #$D3., THEN N=
1"......".BECAUSE $D0=11010011 IN BINARY
AND MSB=1"......".SO.........BPL $1234.
WILL NOT........ TAKE US"......".TO $12
34.":MS$." CAREFUL!!":.63000:.63100.8...
.". .THE V-BIT.".F....".SINCE TH
E MSB CARRIES THE 'SIGN' OF A"......".NU
MBER (IN 'SIGNED ARITHMETIC')"......".TH
EN AN .ADC. OR .SBC. WHICH CAUSES"...B..
".THE NEXT-TO-MSB TO 'OVERFLOW' INTO THE
"...L..".SIGN-BIT WILL CAUSE .V=1..".8.V
..".IF 'SIGNED ARITHMETIC' IS NOT BEING"
.H....".PERFORMED THEN WE CAN IGNORE THE
V-BIT."......".ALTHOUGH .ADC. AND .SBC.
MAY SET V=1"......".WE CAN FORCE V=0 WI
TH THE COMMAND:"......"..CLV.=.CL.EAR TH
E .V.-BIT.":.63000:.10000......".IT'S OF
TEN NECESSARY TO .J.U.MP. FROM".J....".O
NE PLACE TO ANOTHER IN A PROGRAM.".K....
".WE CAN USE: .JMP $1234.."...&..".OF CO
URSE WE HAD BETTER HAVE SOME"...0..".INS
TRUCTIONS AT $1234!!"...:..".IF OUR PROG
RAM IS AT $1000-$2000"...N..".AND IT HAS
A .JMP $1234.,THAT'S OK.".9.X..".IF WE
PHYSICALLY MOVE THIS PROGRAM TO,".F.B.."
.SAY, $3000 TO $4000 (PERHAPS TO MAKE"..
.L..".ROOM FOR SOME .BASIC. AT $0801 TO
$2000)".E.V..".THEN THE RELOCATED PROGRA
M SHOULD NOT"......".HAVE .JMP $1234. IN
IT!!":.63000......".HERE'S ANOTHER USE
OF THE V-BIT.".B....".SUPPOSE WE HAVE .J
MP $1234. LOCATED".I....".IN OUR PROGRAM
AT $1200-$1202."......".$1200 $1201 $
1202 $1203"......" .4C. .34.
.12. ***".X...." ^JMP ^HI ^LO
^NEXT"...F.." ^INST ^BYTE ^BYTE ^IN
ST".*.P..".WE WOULD NORMALLY CONTINUE TO
THE NEXT".X.Z..".INSTRUCTION AT $.1203.
BUT,BECAUSE OF"......".THE .JMP., WE AC
TUALLY MOVE AHEAD TO $1234".C....".WHICH
IS $.31. MEMORY LOC'NS FARTHER ON!":.63
000......".WE CAN PERFORM A .RELATIVE JU
MP., BY"......".$.31. MEMORY LOCATIONS,
BY WRITING:".F...."..CLV .=CLEAR V-B
IT (SET V=0).".W....".BVC #$31.=BRANCH A
HEAD $31 LOC'NS IF V=0"... ..".THIS WILL
TAKE US TO $1234 AND THE".P.*..".PROGRA
M IS 'RELOCATABLE'!":.63000:.SD$...4..".
$1200 $1201 $1202"...>.." .B8. .5
0. .31".,.H.." ^CLV ^BVC ^# LOC
'NS".Z.R..".IF WE DON'T USE .JMP.S, BUT
'RELATIVE"...\..".BRANCHES' INSTEAD, OUR
PROGRAM WILL"...F..".RUN ANYWHERE IN ME
MORY!":.63000...K.."..CONFUSING??.":.".W
HEN DO WE SAY .BVC $1234."...L..".AND WH
EN .BVC #$31.?*!".0.M..".ACTUALLY, ALTHO
UGH AN 'ASSEMBLER' SUCH".[.N..".AS .MICR
OMON. WILL ALLOW US TO SAY"...O..".BVC $
1234., THE MACHINE LANGUAGE CODE"...P.."
.GENERATED WILL READ .BVC #$31.!!"...Q..
".THAT IS, THE INSTRUCTION WILL APPEAR".
..R..".IN MEMORY AS .50. .31...MEANING B
RANCH".6.S..".AHEAD $31 LOC'NS IF V=0.":
.63000.H.U..".ALL .B.RANCH INSTRUCTIONS
ARE 'RELATIVE':"...Z.."..BCS.=BRANCH IF
CARRY IS SET(C=1)"......"..BCC.=BRANCH I
F CARRY IS CLEAR(C=0)"......"..BEQ.=BRAN
CH IF Z-BIT IS SET(Z=1)"......"..BNE.=BR
ANCH IF Z-BIT IS CLEAR(Z=0)".>...."..BMI
.=BRANCH IF N-BIT IS SET(N=1)".J...."..B
PL.=BRANCH IF N-BIT IS CLEAR(N=0)"......
"..BVS.=BRANCH IF V-BIT IS SET(V=1)".G..
.."..BVC.=BRANCH IF V-BIT IS CLEAR(V=0)"
:.63000...E.MS$."RELATIVES?":.63100...J.
.".":.P$:.SD$"SOME OF THE BITS OF THE .P
.ROCESSOR".F.T..".STATUS REGISTER CAN BE
SET(=1), AND".U....".SOME CAN BE CLEARE
D(=0).":.63000:.39100......".CLV.=CLEARS
O.V.ERFLOW":.P(1),176:.63000:.39100....
..P(1),32......".CLC.=CLEARS .C.ARRY":.P
(7),176:.63000:.39100......P(7),32.3....
".CLD.=CLEARS .D.ECIMAL MODE FLAG":.P(4)
,176:.63000.G...MS$."WHAT FLAG?":.63100:
.63000:.39100:.P(4),132......".CLI.=CLEA
RS .I.NTERRUPT FLAG":.P(5),176:.63000.S.
..MS$.".WHAT FLAG!.":.63100:.P(5),137:.6
3000:.39100......"."SD$"ALTOGETHER NOW..
":.P$.,....P(0),14:.P(1),22:.P(4),4:.P(5
),9:.P(6),26:.P(7),3.7....63000.P.$..391
00:.".N.=.N.EGATIVE FLAG BIT.":.P(0),B(P
(0)).128.{.%..63000......SD$"...V.=O.V.E
RFLOW FLAG BIT.":.P(1),B(P(1)).128:.6300
0...8..SD$".....D.=.D.ECIMAL MODE FLAG B
IT.":.P(4),B(P(4)).128...9..63000.=.B..S
D$".......I.=.I.NTERRUPT FLAG BIT.":.P(5
),B(P(5)).128.H.C..63000...L..SD$"......
...Z.=.Z.ERO FLAG BIT.":.P(6),B(P(6)).12
8:.63000.D.V..SD$"...........C.=.C.ARRY
FLAG BIT.":.P(7),B(P(7)).128.O.[..63000.
..`..P(2),214:MS$.".NOT USED!!.":.63100.
..E..Z$:.Z$.""..P(2),32:.1120.R.J..P(3),
130:.39100:."WHEN THE 6510 GETS A .BREAK
. COMMAND".K.T..".(WHICH IS .00.) ". .~.
.".THE .B.REAK BIT IS SET(B=1)":.63000:.
P(3),130.C...MS$."COMMAND=00":.63100:.63
000......".JUST IN CASE YOU'RE WONDERING
..".. ...".THE .6510. HAS A .DECIMAL. MO
DE WHEREBY".G ...".ARITHMETIC OPERATIONS
ARE PERFORMED".Y ...".ASSUMING ALL NUMB
ERS ARE .NOT. IN DECIMAL".. ...".BUT RAT
HER IN .B.INARY .C.ODED .D.ECIMAL!".U D.
.".IF WE WANT TO OPERATE IN 'DECIMAL"..!
N..".MODE' WE MUST SET THE .D.-FLAG TO '
1':"..!X.."..SED".>!...".TO GET OUT OF T
HIS MODE WE CLEAR THE".`!...".DECIMAL MO
DE FLAG TO '0':".T!..."..CLD":.63000..!.
..".FURTHER..THE .6510. CAN BE INTERRUPT
ED".R!...".BY LOWERING THE VOLTAGE ON ON
E OF IT'S".."...".PINS..THE .IRQ. OR I..
..NTERRUPT R....EQ....UEST PIN.".>"...".
(EXTERNAL DEVICES DO THIS TO THE 6510".T
"(.."ALL THE TIME!)".."2..".WHEN THE 651
0 GETS AN .IRQ. IT STOPS".."<..".WHAT IT
'S DOIN'...SERVICES THE".R"F..".INTERRUP
TING DEVICE..THEN RETURNS"..#P..".FROM T
HE INTERRUPT TO CONTINUE.":.63000.0#Z.."
.FOR EXAMPLE, EVERY JIFFY(=1/60 SECOND)"
.`#D..".THE 6510 INTERRUPTS WHATEVER IT'
S DOIN'"..#N..".AND UPDATES THE INTERNAL
CLOCK,CHECKS"..#X..".THE KEYBOARD TO SE
E IF YOU'RE PRESSING".Z#...".THE .STOP.
KEY, ETC."..$...".WHETHER OR NOT THE 651
0 WILL LET ITSELF".6$...".BE INTERRUPTED
DEPENDS UPON A MAGIC".W$ ..".BIT IN THE
.P.-REGISTER.".Z$..."..GUESS WHICH ONE?
!!":.63000..$..."."P$:.P(0),14:.P(1),22:
.P(3),2:.P(4),4:.P(5),137.F$...P(6),26:.
P(7),3.Y$H..SD$"YOU BET!"..%R..".IF THE
.I. BIT IS CLEAR(=0) THE 6510".0%...".WI
LL .LET. ITSELF BE INTERRUPTED.".V%...".
IF I=1 HOWEVER IT WILL .NOT.!".Q%..."..S
EI. WILL SET I=1"..%..."..CLI. WILL CLEA
R I=0"..%...63000.D%...".SO, IF YOU WANT
THE 6510 TO IGNORE"..%...".INTERRUPTS (
INCLUDING THE POOR GUY"..&"..".BANGING O
N THE .STOP. KEY!)".>&,..".START YOUR PR
OGRAM WITH .SEI. AND,".B&6.."....TO AVOI
D ANY VIOLENCE..."..&@..".(EVENTUALLY) E
ND IT WITH .CLI..":.63000..&J.."..AND TH
EN THERE ARE SUBROUTINES.:"..&T..".IF WE
WRITE LO-O-ONG MACHINE LANGUAGE"..'^.."
.PROGRAMS (USING AN ASSEMBLER SO WE".>'H
..".DON'T HAVE TO ENTER THE HEX BYTES".G
'R..".INTO MEMORY BUT CAN USE ASSEMBLY".
.'|..".LANGUAGE) THEN IT'S CONVENIENT TO
"..'...".BREAK UP OUR LONG PROGRAM INTO
WEE".X'...".PIECES=SUBROUTINES."..(...".
QIN BASIC WE'D SAY: .GOSUB 1000.".,(..."
.QIN ASSEMBLER WE'D SAY: .JSR $1234".Y(.
..".QWHICH TRANSLATES TO: .20. .34. .12.
".~(...". IN MACHINE LANGUAGE!":.63000..
(B..".BASIC SUBROUTINES MUST END IN .RET
URN."..(L..".SO THE PROGRAM CAN GO BACK
FROM WHERE"..(V..".IT WAS 'CALLED'.".!).
..".IN ASSEMBLER WE END SUBROUTINES WITH
".O)..."..RTS.=.R.E.T.URN FROM .S.UBROUT
INE:..".G)..."$1000 .LDA #$00 "..)..."$1
002 .JSR $1234..."..)..."$1005 .-----
. ."..)..." .----- . .".Q)..."
----- ."..)..." -----
."..*..."$1234 .***** ._.SUBROUTINE".
'*..." .***** ".?*..." .RTS
".B*..MS$."THERE..AND":.63100:.630
02.V*..."............"..*..."$1002 .JSR
$1234. "..*..."$1005 .----- ._.".H*
..." .----- . ."..*..." ---
-- ."..*..." ----- ."..+...
"$1234 .***** . . ".:+..."
.***** . .".T+..." .RTS
...":MS$."BACK AGAIN":.63100:.63000..+.
..".JUST ONE MORE COMMAND...":.63000..+.
..".":.A$P$..+...SD$".LDA #$D3.":N$."110
10011":.63010:.40110..,..N$."10000000":.
40120:.63000:PP.300.6,&..SD$"..ROR.=ROTA
TE RIGHT":N$."01101001":.63010.T,+..P(7)
,32:."......".37)"0"..,,..SD$"...CARRY B
IT REMOVED FOR SAFE KEEPING":.63000.B,0.
."....".17)"..........................^"
;:.P(7),49..,5..40096:."...."CL$:.CL$..-
6..SD$"......A.-REGISTER ROTATED ..INTO
CARRY!":.63000.U-:.."........^..........
...........................":.A(0),48..-
D..SD$".......CARRY BIT STUFFED INTO MSB
OF .A..":.63000..-N.."...AND THERE'S .R
OL. WHICH ALSO"..-X..".INVOLVES THE .C.A
RRY BIT..":.63000...B..".SUPPOSE WE WANT
TO .JSR $1234".7.L..".BUT ALSO WANT TO
RETAIN ALL THE NUMBERS".F.V..".IN THE 65
10 REGISTERS, AFTER RETURNING"......".FR
OM THE SUBROUTINE."......".WE CAN .PUSH.
ALL THE REGISTERS ONTO"......".THE .STA
CK. WHICH CONSISTS OF SEVERAL"../...".ME
MORY LOCATIONS IN .RAM...$100-$1FF.".=/.
.."..PHA.=PUSH THE A-REGISTER ONTO THE S
TACK".U/..."..PHP.=PUSH THE P-REGISTER O
NTO THE STACK":.63000../...".TO PUSH THE
X AND Y REGISTERS WE:".D/F.."..TXA. .PH
A. AND .TYA. .PHA..".T/P..".SO..WE:"../Z
.."..PHA. .PHP. .TXA. .PHA. .TYA. .PHA".
.0...".THEN...JSR $1234.".A0...".LATER,
AFTER .RTS., WE WANT ALL".N0...".THOSE N
UMBERS BACK IN THE REGISTERS."..0...".SO
WE .PULL. THEM FROM THE STACK"..0...".I
N THE .REVERSE ORDER.!!!"..0..."..PLA. .
TAY. .PLA. .TAX. .PLP. .PLA":.63000..1 .
.".THE STACK IS A NICE PLACE TO STORE".?
1*..".BYTES TEMPORARILY. IF WE WANT TO".
N14..".EXCHANGE THE CONTENTS OF MEMORY L
OC'NS"..1>..".$2000 AND $3000 THEN WE CA
N:".D1H.."..LDA $2000. .PHA. .LDA $3000.
.STA $2000"..1R.."..PLA. .STA $3000":MS
$." .SLICK!.":.63000:.63100.&2\.."..YOU.
DETERMINE WHAT THE FOLLOWING".G2F..".SU
BROUTINE DOES..":.63000.H2...".., 6000 A
2 00 LDX #$00..2..."., 6002 BD 00 04
LDA $0400,X..2..."., 6005 48 PHA.I
2..."., 6006 BD 40 05 LDA $0540,X..2..."
., 6009 9D 00 04 STA $0400,X..3..."., 60
0C 68 PLA.*3..."., 600D 9D 40 05 S
TA $0540,X.M3..."., 6010 BD A0 04 LDA $0
4A0,X.H3..."., 6013 48 PHA..3A..".
, 6014 BD E0 05 LDA $05E0,X..3B.."., 601
7 9D A0 04 STA $04A0,X.I3C.."., 601A 68
PLA..3D.."., 601B 9D E0 05 STA $05
E0,X..4E.."., 601E E8 INX.'4F..".,
601F D0 E1 CPX #$A0.H4G.."., 6021 D0
DF BNE $6002.C4H.."., 6023 60
RTS..4L.M.6.4096:.I.M.M.35:.K:.I,K:..B4V
..162,0,189,0,4,72,189,64,5,157,0,4,104,
157,64,5,189,160,4..5...72,189,224,5,157
,160,4,104,157,224,5,232,224,160,208,223
,96.45..U$."":V$.".":.I.1.WD.1:U$.U$."*"
:V$.V$." ":..S5...BT$".....YOU CAN TRY I
T!".~5...63000:.".";:.I.1.4:.U$:.:.I.1.4
:.V$:...5&.."...............END OF TUTOR
7...."..5+.MS$.".AU REVOIR!."..50..I.1.1
0:.6.4096:.T.1.500:.:.:.63100..65..I.1.1
0:.Z$:.:.BT$"......SYS6*4096...":..>6.'.
".":.P$:.SD$"QTHE Z-BIT IS SET TO '1'".Q
6.'.".IF EVERY BIT OF A 'RESULT' IS .00.
.":.63000..6$'.P(6),177:.63000:.SD$"....
";.K6.'."QZ=0 IF A 'RESULT' IS NOT......
.. ZERO.":.P(6),176.V68'.63000..6B'.".":
.P$:.SD$"AND THE .CARRY. BIT.."./7L'.".W
HERE'S THE CARRY BIT!!":.T.1.10:.G(14);.
T7V'.T1.1.50:.:.G(142);:.T1.1.50:.:..R7`
'.63000:.P(7),131:.63000:.. 7 N."....HER
E'S THE SET OF .6510. COMMANDS:"..7*N.".
.ADC. .AND. .ASL. .BCC. .BCS. .BEQ. .BIT
. .BMI. .BNE"..84N."..BPL. .BRK. .BVC. .
BVS. .CLC. .CLD. .CLI. .CLV. .CMP".W8>N.
"..CPX. .CPY. .DEC. .DEX. .DEY. .EOR. .I
NC. .INX. .INY"..8HN."..JMP. .JSR. .LDA.
.LDX. .LDY. .LSR. .NOP. .ORA. .PHA".Q8R
N."..PHP. .PLA. .PLP. .ROL. .ROR. .RTI.
.SBC. .SEC. .SED"..9\N."..TXA. .STA. .ST
X. .STY. .TAX. .TAY. .TYA. .TSX. .TXA".*
9FN."...AND .TXS.!":.63000.F9PNMS$."IMPR
ESSIVE":.63100.S9ZN.63000:..T9X..".";:.I
.1.17:.CL$:.:.".";:...9...SD$;:.I.1.15:.
CL$:.:.SD$;:..B9 ..A(7),32:.TT.1.PP:.:.I
.7.1..1:.A(I.1),32..9...A(I),E(J(N$,I,1)
).48:.TT.1.PP:.:.:...:...A(0),32:.TT.1.P
P:.:.I.0.6:.A(I.1),32.I:...A(I),E(J(N$,I
.1,1)).48:.TT.1.PP:.:.:.A(7),48:..I:...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:..I:...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:.:..);L..I.0.7:.Y(
I),160:.TT.1.PP:..I;M..Y(I),E(J(N$,I.1,1
)).48:.:..I;...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:...;. .P(I),B(A(
I)):.:...;. .I.0.7:.X(I),160:.TT.1.PP:..
.;. .X(I),B(A(I)):.:...<. .I.0.7:.Y(I),1
60:.TT.1.PP:..+<. .Y(I),B(A(I)):.:..K<H
.I.0.7:.M(I),160:.TT.1.PP:..A<I .M(I),B(
A(I)):.:...<|..I.0.7:.A(I),160:.TT.1.PP:
...<}..A(I),B(X(I)):.:...<...I.0.7:.M(I)
,160:.TT.1.PP:..M<...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.P
P:..9=...M(I),B(Y(I)):.:..X=`.R$."......
.............................. . . . . .
. . .."..=A.R$.R$."....................
.............."..=B.A$.".. .A..".R$:P$."
........................P..".R$..>C.X$."
..... .X..".R$:Y$.".....................
......Y..".R$.K>D.M$."..................
............M..".R$.N>E.CR$."...........
............."..>F.CC$.".. .A...... .. .
. .. .. .... .... . ".I
>G.WD.40:CRT.1024:.G(142)..?H..I.0.7:A(I
).CRT.WD.3.2.I:P(I).A(I).20:X(I).A(I).3.
WD:Y(I).X(I).20.1?I.M(I).Y(I).3.WD:.:C.C
RT.7.WD.1.E?J.SD$."..........":CL$."":.I
.1.WD.1:CL$.CL$." ":...?K.BT$.".":.I.1.2
4:BT$.BT$.".":...?L.C$.CR$."............
..............._CARRY BIT"..?S.ML$."....
................................."..@T.B
T$.".":.I.1.24:BT$.BT$.".":..V@U.PT$."..
........................................
....................."..@V.PT$.PT$."....
..........N............M................
============.".Z@W.PT$.PT$."............
...PO..........PO................"..AX.P
T$.BT$."................................
".PT$."."..AY..G(142).'AC.PP.50.-AD...EA
...BT$CL$;:.TT.1.50:..PA...BT$".RETURN.
TO CONTINUE";:.TT.1.50:...A...Z$:.Z$..""
.63002..A...Z$:.Z$."".63003..A.....A"..B
T$CL$;:.TT.1.50:...A#..BT$".........RETU
RN TO SEE IT HAPPEN.........";:.TT.1.50:
...B$..Z$:.Z$.."".63012.$B%..Z$:.Z$."".6
3013.*B&...>B|..T.1.5:.PT$MS$;.TB}..PT$"
";.CB~..PT$MS$;:..IB...TB...6
3000..B...SD$;:.T.1.15:.CL$:.:.SD$;:...B
D..63100:.63010:..IB...".";:.I.1.5:.CL$:
.:.".";:...B...60000:.".":.3000...
> CLICK IMAGE PREVIEW FOR FULL MODAL