PONZO TUTOR-7.64
FILE INFORMATION
FILENAME(S): PONZO TUTOR-7.64
FILE TYPE(S): PRG
FILE SIZE: 14.7K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
2638e478e2c2647c0d329b97be17975011819a31d5a183ac000b3483cb706e0f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TUTORIALS C | PONZO TUTOR-7.64 | PRG | DuncanTwain | 8 | 19 | 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 4C 4F 20 20 20 20 5E 48 49 20 |MP ^LO ^HI |
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 E1 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 53 48 4F 55 4C 44 20 57 45 |?.":.".SHOULD WE|
00000FD0: 20 53 41 59 20 12 42 56 43 20 24 31 32 33 34 92 | SAY .BVC $1234.|
00000FE0: 22 00 08 18 6C 03 99 22 11 4F 52 20 53 48 4F 55 |"...l..".OR SHOU|
00000FF0: 4C 44 20 57 45 20 53 41 59 20 12 42 56 43 20 23 |LD WE SAY .BVC #|
00001000: 24 33 31 92 3F 2A 21 22 00 37 18 6D 03 99 22 11 |$31.?*!".7.m..".|
00001010: 41 43 54 55 41 4C 4C 59 2C 20 41 4C 54 48 4F 55 |ACTUALLY, ALTHOU|
00001020: 47 48 20 41 4E 20 27 41 53 53 45 4D 42 4C 45 52 |GH AN 'ASSEMBLER|
00001030: 27 20 53 55 43 48 22 00 62 18 6E 03 99 22 11 41 |' SUCH".b.n..".A|
00001040: 53 20 12 4D 49 43 52 4F 4D 4F 4E 92 20 57 49 4C |S .MICROMON. WIL|
00001050: 4C 20 41 4C 4C 4F 57 20 55 53 20 54 4F 20 53 41 |L ALLOW US TO SA|
00001060: 59 22 00 90 18 6F 03 99 22 11 42 56 43 20 24 31 |Y"...o..".BVC $1|
00001070: 32 33 34 92 2C 20 54 48 45 20 4D 41 43 48 49 4E |234., THE MACHIN|
00001080: 45 20 4C 41 4E 47 55 41 47 45 20 43 4F 44 45 22 |E LANGUAGE CODE"|
00001090: 00 B9 18 70 03 99 22 11 47 45 4E 45 52 41 54 45 |...p..".GENERATE|
000010A0: 44 20 57 49 4C 4C 20 52 45 41 44 20 12 42 56 43 |D WILL READ .BVC|
000010B0: 20 23 24 33 31 92 21 21 22 00 E6 18 71 03 99 22 | #$31.!!"...q.."|
000010C0: 11 54 48 41 54 20 49 53 2C 20 54 48 45 20 49 4E |.THAT IS, THE IN|
000010D0: 53 54 52 55 43 54 49 4F 4E 20 57 49 4C 4C 20 41 |STRUCTION WILL A|
000010E0: 50 50 45 41 52 22 00 15 19 72 03 99 22 11 49 4E |PPEAR"...r..".IN|
000010F0: 20 4D 45 4D 4F 52 59 20 41 53 20 12 35 30 92 20 | MEMORY AS .50. |
00001100: 12 33 31 92 2E 2E 4D 45 41 4E 49 4E 47 20 42 52 |.31...MEANING BR|
00001110: 41 4E 43 48 22 00 3D 19 73 03 99 22 11 41 48 45 |ANCH".=.s..".AHE|
00001120: 41 44 20 24 33 31 20 4C 4F 43 27 4E 53 20 49 46 |AD $31 LOC'NS IF|
00001130: 20 56 3D 30 2E 22 3A 8D 36 33 30 30 30 00 6F 19 | V=0.":.63000.o.|
00001140: 75 03 99 22 93 41 4C 4C 20 12 42 92 52 41 4E 43 |u..".ALL .B.RANC|
00001150: 48 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 41 |H INSTRUCTIONS A|
00001160: 52 45 20 27 52 45 4C 41 54 49 56 45 27 3A 22 00 |RE 'RELATIVE':".|
00001170: 99 19 7A 03 99 22 11 12 42 43 53 92 3D 42 52 41 |..z.."..BCS.=BRA|
00001180: 4E 43 48 20 49 46 20 43 41 52 52 59 20 49 53 20 |NCH IF CARRY IS |
00001190: 53 45 54 28 43 3D 31 29 22 00 C5 19 84 03 99 22 |SET(C=1)"......"|
000011A0: 11 12 42 43 43 92 3D 42 52 41 4E 43 48 20 49 46 |..BCC.=BRANCH IF|
000011B0: 20 43 41 52 52 59 20 49 53 20 43 4C 45 41 52 28 | CARRY IS CLEAR(|
000011C0: 43 3D 30 29 22 00 EF 19 8E 03 99 22 11 12 42 45 |C=0)"......"..BE|
000011D0: 51 92 3D 42 52 41 4E 43 48 20 49 46 20 5A 2D 42 |Q.=BRANCH IF Z-B|
000011E0: 49 54 20 49 53 20 53 45 54 28 5A 3D 31 29 22 00 |IT IS SET(Z=1)".|
000011F0: 1B 1A 98 03 99 22 11 12 42 4E 45 92 3D 42 52 41 |....."..BNE.=BRA|
00001200: 4E 43 48 20 49 46 20 5A 2D 42 49 54 20 49 53 20 |NCH IF Z-BIT IS |
00001210: 43 4C 45 41 52 28 5A 3D 30 29 22 00 45 1A A2 03 |CLEAR(Z=0)".E...|
00001220: 99 22 11 12 42 4D 49 92 3D 42 52 41 4E 43 48 20 |."..BMI.=BRANCH |
00001230: 49 46 20 4E 2D 42 49 54 20 49 53 20 53 45 54 28 |IF N-BIT IS SET(|
00001240: 4E 3D 31 29 22 00 71 1A AC 03 99 22 11 12 42 50 |N=1)".q...."..BP|
00001250: 4C 92 3D 42 52 41 4E 43 48 20 49 46 20 4E 2D 42 |L.=BRANCH IF N-B|
00001260: 49 54 20 49 53 20 43 4C 45 41 52 28 4E 3D 30 29 |IT IS CLEAR(N=0)|
00001270: 22 00 9B 1A B6 03 99 22 11 12 42 56 53 92 3D 42 |"......"..BVS.=B|
00001280: 52 41 4E 43 48 20 49 46 20 56 2D 42 49 54 20 49 |RANCH IF V-BIT I|
00001290: 53 20 53 45 54 28 56 3D 31 29 22 00 CE 1A C0 03 |S SET(V=1)".....|
000012A0: 99 22 11 12 42 56 43 92 3D 42 52 41 4E 43 48 20 |."..BVC.=BRANCH |
000012B0: 49 46 20 56 2D 42 49 54 20 49 53 20 43 4C 45 41 |IF V-BIT IS CLEA|
000012C0: 52 28 56 3D 30 29 22 3A 8D 36 33 30 30 30 00 EA |R(V=0)":.63000..|
000012D0: 1A C5 03 4D 53 24 B2 22 52 45 4C 41 54 49 56 45 |...MS$."RELATIVE|
000012E0: 53 3F 22 3A 8D 36 33 31 30 30 00 21 1B CA 03 99 |S?":.63100.!....|
000012F0: 22 93 22 3A 99 50 24 3A 99 53 44 24 22 53 4F 4D |".":.P$:.SD$"SOM|
00001300: 45 20 4F 46 20 54 48 45 20 42 49 54 53 20 4F 46 |E OF THE BITS OF|
00001310: 20 54 48 45 20 12 50 92 52 4F 43 45 53 53 4F 52 | THE .P.ROCESSOR|
00001320: 22 00 4D 1B D4 03 99 22 11 53 54 41 54 55 53 20 |".M....".STATUS |
00001330: 52 45 47 49 53 54 45 52 20 43 41 4E 20 42 45 20 |REGISTER CAN BE |
00001340: 53 45 54 28 3D 31 29 2C 20 41 4E 44 22 00 7C 1B |SET(=1), AND".|.|
00001350: DE 03 99 22 11 53 4F 4D 45 20 43 41 4E 20 42 45 |...".SOME CAN BE|
00001360: 20 43 4C 45 41 52 45 44 28 3D 30 29 2E 22 3A 8D | CLEARED(=0).":.|
00001370: 36 33 30 30 30 3A 8D 33 39 31 30 30 00 B3 1B E8 |63000:.39100....|
00001380: 03 99 22 12 43 4C 56 92 3D 43 4C 45 41 52 53 20 |..".CLV.=CLEARS |
00001390: 4F 12 56 92 45 52 46 4C 4F 57 22 3A 97 50 28 31 |O.V.ERFLOW":.P(1|
000013A0: 29 2C 31 37 36 3A 8D 36 33 30 30 30 3A 8D 33 39 |),176:.63000:.39|
000013B0: 31 30 30 00 C0 1B ED 03 97 50 28 31 29 2C 33 32 |100......P(1),32|
000013C0: 00 F4 1B F2 03 99 22 12 43 4C 43 92 3D 43 4C 45 |......".CLC.=CLE|
000013D0: 41 52 53 20 12 43 92 41 52 52 59 22 3A 97 50 28 |ARS .C.ARRY":.P(|
000013E0: 37 29 2C 31 37 36 3A 8D 36 33 30 30 30 3A 8D 33 |7),176:.63000:.3|
000013F0: 39 31 30 30 00 01 1C F7 03 97 50 28 37 29 2C 33 |9100......P(7),3|
00001400: 32 00 3A 1C FC 03 99 22 12 43 4C 44 92 3D 43 4C |2.:....".CLD.=CL|
00001410: 45 41 52 53 20 12 44 92 45 43 49 4D 41 4C 20 4D |EARS .D.ECIMAL M|
00001420: 4F 44 45 20 46 4C 41 47 22 3A 97 50 28 34 29 2C |ODE FLAG":.P(4),|
00001430: 31 37 36 3A 8D 36 33 30 30 30 00 6E 1C 01 04 4D |176:.63000.n...M|
00001440: 53 24 B2 22 57 48 41 54 20 46 4C 41 47 3F 22 3A |S$."WHAT FLAG?":|
00001450: 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 3A 8D 33 |.63100:.63000:.3|
00001460: 39 31 30 30 3A 97 50 28 34 29 2C 31 33 32 00 A4 |9100:.P(4),132..|
00001470: 1C 06 04 99 22 12 43 4C 49 92 3D 43 4C 45 41 52 |....".CLI.=CLEAR|
00001480: 53 20 12 49 92 4E 54 45 52 52 55 50 54 20 46 4C |S .I.NTERRUPT FL|
00001490: 41 47 22 3A 97 50 28 35 29 2C 31 37 36 3A 8D 36 |AG":.P(5),176:.6|
000014A0: 33 30 30 30 00 DA 1C 0B 04 4D 53 24 B2 22 12 57 |3000.....MS$.".W|
000014B0: 48 41 54 20 46 4C 41 47 21 92 22 3A 8D 36 33 31 |HAT FLAG!.":.631|
000014C0: 30 30 3A 97 50 28 35 29 2C 31 33 37 3A 8D 36 33 |00:.P(5),137:.63|
000014D0: 30 30 30 3A 8D 33 39 31 30 30 00 FC 1C 10 04 99 |000:.39100......|
000014E0: 22 93 22 53 44 24 22 41 4C 54 4F 47 45 54 48 45 |"."SD$"ALTOGETHE|
000014F0: 52 20 4E 4F 57 2E 2E 22 3A 99 50 24 00 33 1D 1A |R NOW..":.P$.3..|
00001500: 04 97 50 28 30 29 2C 31 34 3A 97 50 28 31 29 2C |..P(0),14:.P(1),|
00001510: 32 32 3A 97 50 28 34 29 2C 34 3A 97 50 28 35 29 |22:.P(4),4:.P(5)|
00001520: 2C 39 3A 97 50 28 36 29 2C 32 36 3A 97 50 28 37 |,9:.P(6),26:.P(7|
00001530: 29 2C 33 00 3E 1D 1F 04 8D 36 33 30 30 30 00 77 |),3.>....63000.w|
00001540: 1D 24 04 8D 33 39 31 30 30 3A 99 22 12 4E 92 3D |.$..39100:.".N.=|
00001550: 12 4E 92 45 47 41 54 49 56 45 20 46 4C 41 47 20 |.N.EGATIVE FLAG |
00001560: 42 49 54 2E 22 3A 97 50 28 30 29 2C C2 28 50 28 |BIT.":.P(0),.(P(|
00001570: 30 29 29 AA 31 32 38 00 82 1D 25 04 8D 36 33 30 |0)).128...%..630|
00001580: 30 30 00 C0 1D 2E 04 99 53 44 24 22 11 11 12 56 |00......SD$"...V|
00001590: 92 3D 4F 12 56 92 45 52 46 4C 4F 57 20 46 4C 41 |.=O.V.ERFLOW FLA|
000015A0: 47 20 42 49 54 2E 22 3A 97 50 28 31 29 2C C2 28 |G BIT.":.P(1),.(|
000015B0: 50 28 31 29 29 AA 31 32 38 3A 8D 36 33 30 30 30 |P(1)).128:.63000|
000015C0: 00 FD 1D 38 04 99 53 44 24 22 11 11 11 11 12 44 |...8..SD$".....D|
000015D0: 92 3D 12 44 92 45 43 49 4D 41 4C 20 4D 4F 44 45 |.=.D.ECIMAL MODE|
000015E0: 20 46 4C 41 47 20 42 49 54 2E 22 3A 97 50 28 34 | FLAG BIT.":.P(4|
000015F0: 29 2C C2 28 50 28 34 29 29 AA 31 32 38 00 08 1E |),.(P(4)).128...|
00001600: 39 04 8D 36 33 30 30 30 00 44 1E 42 04 99 53 44 |9..63000.D.B..SD|
00001610: 24 22 11 11 11 11 11 11 12 49 92 3D 12 49 92 4E |$".......I.=.I.N|
00001620: 54 45 52 52 55 50 54 20 46 4C 41 47 20 42 49 54 |TERRUPT FLAG BIT|
00001630: 2E 22 3A 97 50 28 35 29 2C C2 28 50 28 35 29 29 |.":.P(5),.(P(5))|
00001640: AA 31 32 38 00 4F 1E 43 04 8D 36 33 30 30 30 00 |.128.O.C..63000.|
00001650: 8F 1E 4C 04 99 53 44 24 22 11 11 11 11 11 11 11 |..L..SD$".......|
00001660: 11 12 5A 92 3D 12 5A 92 45 52 4F 20 46 4C 41 47 |..Z.=.Z.ERO FLAG|
00001670: 20 42 49 54 2E 22 3A 97 50 28 36 29 2C C2 28 50 | BIT.":.P(6),.(P|
00001680: 28 36 29 29 AA 31 32 38 3A 8D 36 33 30 30 30 00 |(6)).128:.63000.|
00001690: CB 1E 56 04 99 53 44 24 22 11 11 11 11 11 11 11 |..V..SD$".......|
000016A0: 11 11 11 12 43 92 3D 12 43 92 41 52 52 59 20 46 |....C.=.C.ARRY F|
000016B0: 4C 41 47 20 42 49 54 2E 22 3A 97 50 28 37 29 2C |LAG BIT.":.P(7),|
000016C0: C2 28 50 28 37 29 29 AA 31 32 38 00 D6 1E 5B 04 |.(P(7)).128...[.|
000016D0: 8D 36 33 30 30 30 00 FE 1E 60 04 97 50 28 32 29 |.63000...`..P(2)|
000016E0: 2C 32 31 34 3A 4D 53 24 B2 22 12 4E 4F 54 20 55 |,214:MS$.".NOT U|
000016F0: 53 45 44 21 21 92 22 3A 8D 36 33 31 30 30 00 1C |SED!!.":.63100..|
00001700: 1F 65 04 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 97 50 |.e..Z$:.Z$.""..P|
00001710: 28 32 29 2C 33 32 3A 89 31 31 32 30 00 59 1F 6A |(2),32:.1120.Y.j|
00001720: 04 97 50 28 33 29 2C 31 33 30 3A 8D 33 39 31 30 |..P(3),130:.3910|
00001730: 30 3A 99 22 57 48 45 4E 20 54 48 45 20 36 35 31 |0:."WHEN THE 651|
00001740: 30 20 47 45 54 53 20 41 20 12 42 52 45 41 4B 92 |0 GETS A .BREAK.|
00001750: 20 43 4F 4D 4D 41 4E 44 22 00 72 1F 74 04 99 22 | COMMAND".r.t.."|
00001760: 11 28 57 48 49 43 48 20 49 53 20 12 30 30 92 29 |.(WHICH IS .00.)|
00001770: 20 22 00 A7 1F 7E 04 99 22 11 54 48 45 20 12 42 | "...~..".THE .B|
00001780: 92 52 45 41 4B 20 42 49 54 20 49 53 20 53 45 54 |.REAK BIT IS SET|
00001790: 28 42 3D 31 29 22 3A 8D 36 33 30 30 30 3A 97 50 |(B=1)":.63000:.P|
000017A0: 28 33 29 2C 31 33 30 00 CA 1F 88 04 4D 53 24 B2 |(3),130.....MS$.|
000017B0: 22 43 4F 4D 4D 41 4E 44 3D 30 30 22 3A 8D 36 33 |"COMMAND=00":.63|
000017C0: 31 30 30 3A 8D 36 33 30 30 30 00 F2 1F 92 04 99 |100:.63000......|
000017D0: 22 93 4A 55 53 54 20 49 4E 20 43 41 53 45 20 59 |".JUST IN CASE Y|
000017E0: 4F 55 27 52 45 20 57 4F 4E 44 45 52 49 4E 47 2E |OU'RE WONDERING.|
000017F0: 2E 22 00 22 20 9C 04 99 22 11 54 48 45 20 12 36 |."." ...".THE .6|
00001800: 35 31 30 92 20 48 41 53 20 41 20 12 44 45 43 49 |510. HAS A .DECI|
00001810: 4D 41 4C 92 20 4D 4F 44 45 20 57 48 45 52 45 42 |MAL. MODE WHEREB|
00001820: 59 22 00 4E 20 A6 04 99 22 11 41 52 49 54 48 4D |Y".N ...".ARITHM|
00001830: 45 54 49 43 20 4F 50 45 52 41 54 49 4F 4E 53 20 |ETIC OPERATIONS |
00001840: 41 52 45 20 50 45 52 46 4F 52 4D 45 44 22 00 80 |ARE PERFORMED"..|
00001850: 20 B0 04 99 22 11 41 53 53 55 4D 49 4E 47 20 41 | ...".ASSUMING A|
00001860: 4C 4C 20 4E 55 4D 42 45 52 53 20 41 52 45 20 12 |LL NUMBERS ARE .|
00001870: 4E 4F 54 92 20 49 4E 20 44 45 43 49 4D 41 4C 22 |NOT. IN DECIMAL"|
00001880: 00 B2 20 BA 04 99 22 11 42 55 54 20 52 41 54 48 |.. ...".BUT RATH|
00001890: 45 52 20 49 4E 20 12 42 92 49 4E 41 52 59 20 12 |ER IN .B.INARY .|
000018A0: 43 92 4F 44 45 44 20 12 44 92 45 43 49 4D 41 4C |C.ODED .D.ECIMAL|
000018B0: 21 22 00 DC 20 C4 04 99 22 11 49 46 20 57 45 20 |!".. ...".IF WE |
000018C0: 57 41 4E 54 20 54 4F 20 4F 50 45 52 41 54 45 20 |WANT TO OPERATE |
000018D0: 49 4E 20 27 44 45 43 49 4D 41 4C 22 00 0B 21 CE |IN 'DECIMAL"..!.|
000018E0: 04 99 22 11 4D 4F 44 45 27 20 57 45 20 4D 55 53 |..".MODE' WE MUS|
000018F0: 54 20 53 45 54 20 54 48 45 20 12 44 92 2D 46 4C |T SET THE .D.-FL|
00001900: 41 47 20 54 4F 20 27 31 27 3A 22 00 18 21 D8 04 |AG TO '1':"..!..|
00001910: 99 22 11 12 53 45 44 22 00 45 21 E2 04 99 22 11 |."..SED".E!...".|
00001920: 54 4F 20 47 45 54 20 4F 55 54 20 4F 46 20 54 48 |TO GET OUT OF TH|
00001930: 49 53 20 4D 4F 44 45 20 57 45 20 43 4C 45 41 52 |IS MODE WE CLEAR|
00001940: 20 54 48 45 22 00 67 21 EC 04 99 22 11 44 45 43 | THE".g!...".DEC|
00001950: 49 4D 41 4C 20 4D 4F 44 45 20 46 4C 41 47 20 54 |IMAL MODE FLAG T|
00001960: 4F 20 27 30 27 3A 22 00 7B 21 F6 04 99 22 11 12 |O '0':".{!..."..|
00001970: 43 4C 44 22 3A 8D 36 33 30 30 30 00 AA 21 00 05 |CLD":.63000..!..|
00001980: 99 22 93 46 55 52 54 48 45 52 2E 2E 54 48 45 20 |.".FURTHER..THE |
00001990: 12 36 35 31 30 92 20 43 41 4E 20 42 45 20 49 4E |.6510. CAN BE IN|
000019A0: 54 45 52 52 55 50 54 45 44 22 00 D9 21 0A 05 99 |TERRUPTED"..!...|
000019B0: 22 11 42 59 20 4C 4F 57 45 52 49 4E 47 20 54 48 |".BY LOWERING TH|
000019C0: 45 20 56 4F 4C 54 41 47 45 20 4F 4E 20 4F 4E 45 |E VOLTAGE ON ONE|
000019D0: 20 4F 46 20 49 54 27 53 22 00 17 22 14 05 99 22 | OF IT'S".."..."|
000019E0: 11 50 49 4E 53 2E 2E 54 48 45 20 12 49 52 51 92 |.PINS..THE .IRQ.|
000019F0: 20 4F 52 20 49 11 9D B8 91 4E 54 45 52 52 55 50 | OR I....NTERRUP|
00001A00: 54 20 52 11 9D B8 91 45 51 11 9D B8 91 55 45 53 |T R....EQ....UES|
00001A10: 54 20 50 49 4E 2E 22 00 45 22 1E 05 99 22 11 28 |T PIN.".E"...".(|
00001A20: 45 58 54 45 52 4E 41 4C 20 44 45 56 49 43 45 53 |EXTERNAL DEVICES|
00001A30: 20 44 4F 20 54 48 49 53 20 54 4F 20 54 48 45 20 | DO THIS TO THE |
00001A40: 36 35 31 30 22 00 5B 22 28 05 99 22 41 4C 4C 20 |6510".["(.."ALL |
00001A50: 54 48 45 20 54 49 4D 45 21 29 22 00 88 22 32 05 |THE TIME!)".."2.|
00001A60: 99 22 11 57 48 45 4E 20 54 48 45 20 36 35 31 30 |.".WHEN THE 6510|
00001A70: 20 47 45 54 53 20 41 4E 20 12 49 52 51 92 20 49 | GETS AN .IRQ. I|
00001A80: 54 20 53 54 4F 50 53 22 00 AF 22 3C 05 99 22 11 |T STOPS".."<..".|
00001A90: 57 48 41 54 20 49 54 27 53 20 44 4F 49 4E 27 2E |WHAT IT'S DOIN'.|
00001AA0: 2E 2E 53 45 52 56 49 43 45 53 20 54 48 45 22 00 |..SERVICES THE".|
00001AB0: D9 22 46 05 99 22 11 49 4E 54 45 52 52 55 50 54 |."F..".INTERRUPT|
00001AC0: 49 4E 47 20 44 45 56 49 43 45 2E 2E 54 48 45 4E |ING DEVICE..THEN|
00001AD0: 20 52 45 54 55 52 4E 53 22 00 08 23 50 05 99 22 | RETURNS"..#P.."|
00001AE0: 11 46 52 4F 4D 20 54 48 45 20 49 4E 54 45 52 52 |.FROM THE INTERR|
00001AF0: 55 50 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |UPT TO CONTINUE.|
00001B00: 22 3A 8D 36 33 30 30 30 00 37 23 5A 05 99 22 93 |":.63000.7#Z..".|
00001B10: 46 4F 52 20 45 58 41 4D 50 4C 45 2C 20 45 56 45 |FOR EXAMPLE, EVE|
00001B20: 52 59 20 4A 49 46 46 59 28 3D 31 2F 36 30 20 53 |RY JIFFY(=1/60 S|
00001B30: 45 43 4F 4E 44 29 22 00 67 23 64 05 99 22 11 54 |ECOND)".g#d..".T|
00001B40: 48 45 20 36 35 31 30 20 49 4E 54 45 52 52 55 50 |HE 6510 INTERRUP|
00001B50: 54 53 20 57 48 41 54 45 56 45 52 20 49 54 27 53 |TS WHATEVER IT'S|
00001B60: 20 44 4F 49 4E 27 22 00 95 23 6E 05 99 22 11 41 | DOIN'"..#n..".A|
00001B70: 4E 44 20 55 50 44 41 54 45 53 20 54 48 45 20 49 |ND UPDATES THE I|
00001B80: 4E 54 45 52 4E 41 4C 20 43 4C 4F 43 4B 2C 43 48 |NTERNAL CLOCK,CH|
00001B90: 45 43 4B 53 22 00 C4 23 78 05 99 22 11 54 48 45 |ECKS"..#x..".THE|
00001BA0: 20 4B 45 59 42 4F 41 52 44 20 54 4F 20 53 45 45 | KEYBOARD TO SEE|
00001BB0: 20 49 46 20 59 4F 55 27 52 45 20 50 52 45 53 53 | IF YOU'RE PRESS|
00001BC0: 49 4E 47 22 00 E1 23 82 05 99 22 11 54 48 45 20 |ING"..#...".THE |
00001BD0: 12 53 54 4F 50 92 20 4B 45 59 2C 20 45 54 43 2E |.STOP. KEY, ETC.|
00001BE0: 22 00 11 24 8C 05 99 22 11 57 48 45 54 48 45 52 |"..$...".WHETHER|
00001BF0: 20 4F 52 20 4E 4F 54 20 54 48 45 20 36 35 31 30 | OR NOT THE 6510|
00001C00: 20 57 49 4C 4C 20 4C 45 54 20 49 54 53 45 4C 46 | WILL LET ITSELF|
00001C10: 22 00 3D 24 96 05 99 22 11 42 45 20 49 4E 54 45 |".=$...".BE INTE|
00001C20: 52 52 55 50 54 45 44 20 44 45 50 45 4E 44 53 20 |RRUPTED DEPENDS |
00001C30: 55 50 4F 4E 20 41 20 4D 41 47 49 43 22 00 5E 24 |UPON A MAGIC".^$|
00001C40: A0 05 99 22 11 42 49 54 20 49 4E 20 54 48 45 20 |...".BIT IN THE |
00001C50: 12 50 92 2D 52 45 47 49 53 54 45 52 2E 22 00 81 |.P.-REGISTER."..|
00001C60: 24 AA 05 99 22 11 12 47 55 45 53 53 20 57 48 49 |$..."..GUESS WHI|
00001C70: 43 48 20 4F 4E 45 3F 21 21 22 3A 8D 36 33 30 30 |CH ONE?!!":.6300|
00001C80: 30 00 B8 24 B4 05 99 22 93 22 50 24 3A 97 50 28 |0..$..."."P$:.P(|
00001C90: 30 29 2C 31 34 3A 97 50 28 31 29 2C 32 32 3A 97 |0),14:.P(1),22:.|
00001CA0: 50 28 33 29 2C 32 3A 97 50 28 34 29 2C 34 3A 97 |P(3),2:.P(4),4:.|
00001CB0: 50 28 35 29 2C 31 33 37 00 CD 24 BE 05 97 50 28 |P(5),137..$...P(|
00001CC0: 36 29 2C 32 36 3A 97 50 28 37 29 2C 33 00 E0 24 |6),26:.P(7),3..$|
00001CD0: C8 05 99 53 44 24 22 59 4F 55 20 42 45 54 21 22 |...SD$"YOU BET!"|
00001CE0: 00 0D 25 D2 05 99 22 11 49 46 20 54 48 45 20 12 |..%...".IF THE .|
00001CF0: 49 92 20 42 49 54 20 49 53 20 43 4C 45 41 52 28 |I. BIT IS CLEAR(|
00001D00: 3D 30 29 20 54 48 45 20 36 35 31 30 22 00 37 25 |=0) THE 6510".7%|
00001D10: DC 05 99 22 11 57 49 4C 4C 20 12 4C 45 54 92 20 |...".WILL .LET. |
00001D20: 49 54 53 45 4C 46 20 42 45 20 49 4E 54 45 52 52 |ITSELF BE INTERR|
00001D30: 55 50 54 45 44 2E 22 00 5D 25 E6 05 99 22 11 49 |UPTED.".]%...".I|
00001D40: 46 20 49 3D 31 20 48 4F 57 45 56 45 52 20 49 54 |F I=1 HOWEVER IT|
00001D50: 20 57 49 4C 4C 20 12 4E 4F 54 92 21 22 00 78 25 | WILL .NOT.!".x%|
00001D60: F0 05 99 22 11 12 53 45 49 92 20 57 49 4C 4C 20 |..."..SEI. WILL |
00001D70: 53 45 54 20 49 3D 31 22 00 95 25 FA 05 99 22 11 |SET I=1"..%...".|
00001D80: 12 43 4C 49 92 20 57 49 4C 4C 20 43 4C 45 41 52 |.CLI. WILL CLEAR|
00001D90: 20 49 3D 30 22 00 A0 25 04 06 8D 36 33 30 30 30 | I=0"..%...63000|
00001DA0: 00 CB 25 0E 06 99 22 93 53 4F 2C 20 49 46 20 59 |..%...".SO, IF Y|
00001DB0: 4F 55 20 57 41 4E 54 20 54 48 45 20 36 35 31 30 |OU WANT THE 6510|
00001DC0: 20 54 4F 20 49 47 4E 4F 52 45 22 00 F6 25 18 06 | TO IGNORE"..%..|
00001DD0: 99 22 11 49 4E 54 45 52 52 55 50 54 53 20 28 49 |.".INTERRUPTS (I|
00001DE0: 4E 43 4C 55 44 49 4E 47 20 54 48 45 20 50 4F 4F |NCLUDING THE POO|
00001DF0: 52 20 47 55 59 22 00 1A 26 22 06 99 22 11 42 41 |R GUY"..&"..".BA|
00001E00: 4E 47 49 4E 47 20 4F 4E 20 54 48 45 20 12 53 54 |NGING ON THE .ST|
00001E10: 4F 50 92 20 4B 45 59 21 29 22 00 45 26 2C 06 99 |OP. KEY!)".E&,..|
00001E20: 22 11 53 54 41 52 54 20 59 4F 55 52 20 50 52 4F |".START YOUR PRO|
00001E30: 47 52 41 4D 20 57 49 54 48 20 12 53 45 49 92 20 |GRAM WITH .SEI. |
00001E40: 41 4E 44 2C 22 00 69 26 36 06 99 22 11 2E 2E 2E |AND,".i&6.."....|
00001E50: 54 4F 20 41 56 4F 49 44 20 41 4E 59 20 56 49 4F |TO AVOID ANY VIO|
00001E60: 4C 45 4E 43 45 2E 2E 2E 22 00 98 26 40 06 99 22 |LENCE..."..&@.."|
00001E70: 11 28 45 56 45 4E 54 55 41 4C 4C 59 29 20 45 4E |.(EVENTUALLY) EN|
00001E80: 44 20 49 54 20 57 49 54 48 20 12 43 4C 49 92 2E |D IT WITH .CLI..|
00001E90: 22 3A 8D 36 33 30 30 30 00 C2 26 4A 06 99 22 93 |":.63000..&J..".|
00001EA0: 12 41 4E 44 20 54 48 45 4E 20 54 48 45 52 45 20 |.AND THEN THERE |
00001EB0: 41 52 45 20 53 55 42 52 4F 55 54 49 4E 45 53 92 |ARE SUBROUTINES.|
00001EC0: 3A 22 00 F0 26 54 06 99 22 11 49 46 20 57 45 20 |:"..&T..".IF WE |
00001ED0: 57 52 49 54 45 20 4C 4F 2D 4F 2D 4F 4E 47 20 4D |WRITE LO-O-ONG M|
00001EE0: 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 22 |ACHINE LANGUAGE"|
00001EF0: 00 1B 27 5E 06 99 22 11 50 52 4F 47 52 41 4D 53 |..'^..".PROGRAMS|
00001F00: 20 28 55 53 49 4E 47 20 41 4E 20 41 53 53 45 4D | (USING AN ASSEM|
00001F10: 42 4C 45 52 20 53 4F 20 57 45 22 00 45 27 68 06 |BLER SO WE".E'h.|
00001F20: 99 22 11 44 4F 4E 27 54 20 48 41 56 45 20 54 4F |.".DON'T HAVE TO|
00001F30: 20 45 4E 54 45 52 20 54 48 45 20 48 45 58 20 42 | ENTER THE HEX B|
00001F40: 59 54 45 53 22 00 6E 27 72 06 99 22 11 49 4E 54 |YTES".n'r..".INT|
00001F50: 4F 20 4D 45 4D 4F 52 59 20 42 55 54 20 43 41 4E |O MEMORY BUT CAN|
00001F60: 20 55 53 45 20 41 53 53 45 4D 42 4C 59 22 00 98 | USE ASSEMBLY"..|
00001F70: 27 7C 06 99 22 11 4C 41 4E 47 55 41 47 45 29 20 |'|..".LANGUAGE) |
00001F80: 54 48 45 4E 20 49 54 27 53 20 43 4F 4E 56 45 4E |THEN IT'S CONVEN|
00001F90: 49 45 4E 54 20 54 4F 22 00 C3 27 86 06 99 22 11 |IENT TO"..'...".|
00001FA0: 42 52 45 41 4B 20 55 50 20 4F 55 52 20 4C 4F 4E |BREAK UP OUR LON|
00001FB0: 47 20 50 52 4F 47 52 41 4D 20 49 4E 54 4F 20 57 |G PROGRAM INTO W|
00001FC0: 45 45 22 00 DF 27 90 06 99 22 11 50 49 45 43 45 |EE"..'...".PIECE|
00001FD0: 53 3D 53 55 42 52 4F 55 54 49 4E 45 53 2E 22 00 |S=SUBROUTINES.".|
00001FE0: 08 28 9A 06 99 22 11 D1 49 4E 20 42 41 53 49 43 |.(..."..IN BASIC|
00001FF0: 20 57 45 27 44 20 53 41 59 3A 20 12 47 4F 53 55 | WE'D SAY: .GOSU|
00002000: 42 20 31 30 30 30 92 22 00 33 28 A4 06 99 22 11 |B 1000.".3(...".|
00002010: D1 49 4E 20 41 53 53 45 4D 42 4C 45 52 20 57 45 |.IN ASSEMBLER WE|
00002020: 27 44 20 53 41 59 3A 20 12 4A 53 52 20 24 31 32 |'D SAY: .JSR $12|
00002030: 33 34 22 00 60 28 AE 06 99 22 11 D1 57 48 49 43 |34".`(..."..WHIC|
00002040: 48 20 54 52 41 4E 53 4C 41 54 45 53 20 54 4F 3A |H TRANSLATES TO:|
00002050: 20 12 32 30 92 20 12 33 34 92 20 12 31 32 92 22 | .20. .34. .12."|
00002060: 00 85 28 B8 06 99 22 11 20 49 4E 20 4D 41 43 48 |..(...". IN MACH|
00002070: 49 4E 45 20 4C 41 4E 47 55 41 47 45 21 22 3A 8D |INE LANGUAGE!":.|
00002080: 36 33 30 30 30 00 B4 28 C2 06 99 22 93 42 41 53 |63000..(...".BAS|
00002090: 49 43 20 53 55 42 52 4F 55 54 49 4E 45 53 20 4D |IC SUBROUTINES M|
000020A0: 55 53 54 20 45 4E 44 20 49 4E 20 12 52 45 54 55 |UST END IN .RETU|
000020B0: 52 4E 92 22 00 E2 28 CC 06 99 22 11 53 4F 20 54 |RN."..(...".SO T|
000020C0: 48 45 20 50 52 4F 47 52 41 4D 20 43 41 4E 20 47 |HE PROGRAM CAN G|
000020D0: 4F 20 42 41 43 4B 20 46 52 4F 4D 20 57 48 45 52 |O BACK FROM WHER|
000020E0: 45 22 00 FB 28 D6 06 99 22 11 49 54 20 57 41 53 |E"..(...".IT WAS|
000020F0: 20 27 43 41 4C 4C 45 44 27 2E 22 00 28 29 E0 06 | 'CALLED'.".()..|
00002100: 99 22 11 49 4E 20 41 53 53 45 4D 42 4C 45 52 20 |.".IN ASSEMBLER |
00002110: 57 45 20 45 4E 44 20 53 55 42 52 4F 55 54 49 4E |WE END SUBROUTIN|
00002120: 45 53 20 57 49 54 48 22 00 56 29 EA 06 99 22 11 |ES WITH".V)...".|
00002130: 12 52 54 53 92 3D 12 52 92 45 12 54 92 55 52 4E |.RTS.=.R.E.T.URN|
00002140: 20 46 52 4F 4D 20 12 53 92 55 42 52 4F 55 54 49 | FROM .S.UBROUTI|
00002150: 4E 45 3A 11 11 22 00 6E 29 F4 06 99 22 24 31 30 |NE:..".n)..."$10|
00002160: 30 30 20 12 4C 44 41 20 23 24 30 30 20 22 00 89 |00 .LDA #$00 "..|
00002170: 29 F5 06 99 22 24 31 30 30 32 20 12 4A 53 52 20 |)..."$1002 .JSR |
00002180: 24 31 32 33 34 92 C0 AE 22 00 A4 29 F6 06 99 22 |$1234..."..)..."|
00002190: 24 31 30 30 35 20 12 2D 2D 2D 2D 2D 20 20 20 20 |$1005 .----- |
000021A0: 92 20 DD 22 00 BF 29 F7 06 99 22 20 20 20 20 20 |. ."..)..." |
000021B0: 20 12 2D 2D 2D 2D 2D 20 20 20 20 92 20 DD 22 00 | .----- . .".|
000021C0: D8 29 F8 06 99 22 20 20 20 20 20 20 2D 2D 2D 2D |.)..." ----|
000021D0: 2D 20 20 20 20 20 DD 22 00 F1 29 F9 06 99 22 20 |- ."..)..." |
000021E0: 20 20 20 20 20 2D 2D 2D 2D 2D 20 20 20 20 20 2E | ----- .|
000021F0: 22 00 16 2A FA 06 99 22 24 31 32 33 34 20 12 2A |"..*..."$1234 .*|
00002200: 2A 2A 2A 2A 20 20 20 20 92 5F BD 53 55 42 52 4F |**** ._.SUBRO|
00002210: 55 54 49 4E 45 22 00 2E 2A FB 06 99 22 20 20 20 |UTINE"..*..." |
00002220: 20 20 20 12 2A 2A 2A 2A 2A 20 20 20 20 22 00 46 | .***** ".F|
00002230: 2A FC 06 99 22 20 20 20 20 20 20 12 52 54 53 20 |*..." .RTS |
00002240: 20 20 20 20 20 22 00 69 2A FD 06 4D 53 24 B2 22 | ".i*..MS$."|
00002250: 54 48 45 52 45 2E 2E 41 4E 44 22 3A 8D 36 33 31 |THERE..AND":.631|
00002260: 30 30 3A 8D 36 33 30 30 32 00 7D 2A FE 06 99 22 |00:.63002.}*..."|
00002270: 13 11 11 11 11 11 11 11 11 11 11 11 22 00 99 2A |............"..*|
00002280: FF 06 99 22 24 31 30 30 32 20 12 4A 53 52 20 24 |..."$1002 .JSR $|
00002290: 31 32 33 34 92 20 20 20 22 00 B4 2A 00 07 99 22 |1234. "..*..."|
000022A0: 24 31 30 30 35 20 12 2D 2D 2D 2D 2D 20 20 20 20 |$1005 .----- |
000022B0: 92 5F AE 22 00 CF 2A 01 07 99 22 20 20 20 20 20 |._."..*..." |
000022C0: 20 12 2D 2D 2D 2D 2D 20 20 20 20 92 20 DD 22 00 | .----- . .".|
000022D0: E8 2A 02 07 99 22 20 20 20 20 20 20 2D 2D 2D 2D |.*..." ----|
000022E0: 2D 20 20 20 20 20 DD 22 00 01 2B 03 07 99 22 20 |- ."..+..." |
000022F0: 20 20 20 20 20 2D 2D 2D 2D 2D 20 20 20 20 20 2E | ----- .|
00002300: 22 00 26 2B 04 07 99 22 24 31 32 33 34 20 12 2A |".&+..."$1234 .*|
00002310: 2A 2A 2A 2A 20 20 20 20 92 20 DD 20 20 20 20 20 |**** . . |
00002320: 20 20 20 20 20 22 00 41 2B 05 07 99 22 20 20 20 | ".A+..." |
00002330: 20 20 20 12 2A 2A 2A 2A 2A 20 20 20 20 92 20 DD | .***** . .|
00002340: 22 00 7B 2B 06 07 99 22 20 20 20 20 20 20 12 52 |".{+..." .R|
00002350: 54 53 20 20 20 20 20 20 92 C0 BD 22 3A 4D 53 24 |TS ...":MS$|
00002360: B2 22 42 41 43 4B 20 41 47 41 49 4E 22 3A 8D 36 |."BACK AGAIN":.6|
00002370: 33 31 30 30 3A 8D 36 33 30 30 30 00 A3 2B 08 07 |3100:.63000..+..|
00002380: 99 22 93 4A 55 53 54 20 4F 4E 45 20 4D 4F 52 45 |.".JUST ONE MORE|
00002390: 20 43 4F 4D 4D 41 4E 44 2E 2E 2E 22 3A 8D 36 33 | COMMAND...":.63|
000023A0: 30 30 30 00 B2 2B 0D 07 99 22 93 22 3A 99 41 24 |000..+...".":.A$|
000023B0: 50 24 00 E3 2B 12 07 99 53 44 24 22 12 4C 44 41 |P$..+...SD$".LDA|
000023C0: 20 23 24 44 33 92 22 3A 4E 24 B2 22 31 31 30 31 | #$D3.":N$."1101|
000023D0: 30 30 31 31 22 3A 8D 36 33 30 31 30 3A 8D 34 30 |0011":.63010:.40|
000023E0: 31 31 30 00 0A 2C 1C 07 4E 24 B2 22 31 30 30 30 |110..,..N$."1000|
000023F0: 30 30 30 30 22 3A 8D 34 30 31 32 30 3A 8D 36 33 |0000":.40120:.63|
00002400: 30 30 30 3A 50 50 B2 33 30 30 00 3D 2C 26 07 99 |000:PP.300.=,&..|
00002410: 53 44 24 22 11 12 52 4F 52 92 3D 52 4F 54 41 54 |SD$"..ROR.=ROTAT|
00002420: 45 20 52 49 47 48 54 22 3A 4E 24 B2 22 30 31 31 |E RIGHT":N$."011|
00002430: 30 31 30 30 31 22 3A 8D 36 33 30 31 30 00 5B 2C |01001":.63010.[,|
00002440: 2B 07 97 50 28 37 29 2C 33 32 3A 99 22 13 11 11 |+..P(7),32:."...|
00002450: 11 11 11 22 A3 33 37 29 22 30 22 00 92 2C 2C 07 |...".37)"0"..,,.|
00002460: 99 53 44 24 22 11 11 11 43 41 52 52 59 20 42 49 |.SD$"...CARRY BI|
00002470: 54 20 52 45 4D 4F 56 45 44 20 46 4F 52 20 53 41 |T REMOVED FOR SA|
00002480: 46 45 20 4B 45 45 50 49 4E 47 22 3A 8D 36 33 30 |FE KEEPING":.630|
00002490: 30 30 00 C9 2C 30 07 99 22 13 11 11 11 22 A6 31 |00..,0.."....".1|
000024A0: 37 29 22 DD 11 9D AD C0 C0 C0 C0 C0 C0 C0 C0 C0 |7)".............|
000024B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 91 9D 5E 22 3B |.............^";|
000024C0: 3A 97 50 28 37 29 2C 34 39 00 E4 2C 35 07 8D 34 |:.P(7),49..,5..4|
000024D0: 30 30 39 36 3A 99 22 13 11 11 11 22 43 4C 24 3A |0096:."...."CL$:|
000024E0: 99 43 4C 24 00 1D 2D 36 07 99 53 44 24 22 11 11 |.CL$..-6..SD$"..|
000024F0: 11 11 11 12 41 92 2D 52 45 47 49 53 54 45 52 20 |....A.-REGISTER |
00002500: 52 4F 54 41 54 45 44 20 2E 2E 49 4E 54 4F 20 43 |ROTATED ..INTO C|
00002510: 41 52 52 59 21 22 3A 8D 36 33 30 30 30 00 5C 2D |ARRY!":.63000.\-|
00002520: 3A 07 99 22 13 11 11 11 11 1D 1D 1D 5E 11 9D AD |:.."........^...|
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 C0 C0 C0 C0 C0 |................|
00002550: C0 C0 22 3A 97 41 28 30 29 2C 34 38 00 97 2D 44 |..":.A(0),48..-D|
00002560: 07 99 53 44 24 22 11 11 11 11 11 11 11 43 41 52 |..SD$".......CAR|
00002570: 52 59 20 42 49 54 20 53 54 55 46 46 45 44 20 49 |RY BIT STUFFED I|
00002580: 4E 54 4F 20 4D 53 42 20 4F 46 20 12 41 92 2E 22 |NTO MSB OF .A.."|
00002590: 3A 8D 36 33 30 30 30 00 BE 2D 4E 07 99 22 93 2E |:.63000..-N.."..|
000025A0: 2E 41 4E 44 20 54 48 45 52 45 27 53 20 12 52 4F |.AND THERE'S .RO|
000025B0: 4C 92 20 57 48 49 43 48 20 41 4C 53 4F 22 00 E8 |L. WHICH ALSO"..|
000025C0: 2D 58 07 99 22 11 49 4E 56 4F 4C 56 45 53 20 54 |-X..".INVOLVES T|
000025D0: 48 45 20 12 43 92 41 52 52 59 20 42 49 54 2E 2E |HE .C.ARRY BIT..|
000025E0: 22 3A 8D 36 33 30 30 30 00 0E 2E 62 07 99 22 93 |":.63000...b..".|
000025F0: 53 55 50 50 4F 53 45 20 57 45 20 57 41 4E 54 20 |SUPPOSE WE WANT |
00002600: 54 4F 20 12 4A 53 52 20 24 31 32 33 34 22 00 3E |TO .JSR $1234".>|
00002610: 2E 6C 07 99 22 11 42 55 54 20 41 4C 53 4F 20 57 |.l..".BUT ALSO W|
00002620: 41 4E 54 20 54 4F 20 52 45 54 41 49 4E 20 41 4C |ANT TO RETAIN AL|
00002630: 4C 20 54 48 45 20 4E 55 4D 42 45 52 53 22 00 6D |L THE NUMBERS".m|
00002640: 2E 76 07 99 22 11 49 4E 20 54 48 45 20 36 35 31 |.v..".IN THE 651|
00002650: 30 20 52 45 47 49 53 54 45 52 53 2C 20 41 46 54 |0 REGISTERS, AFT|
00002660: 45 52 20 52 45 54 55 52 4E 49 4E 47 22 00 8A 2E |ER RETURNING"...|
00002670: 80 07 99 22 11 46 52 4F 4D 20 54 48 45 20 53 55 |...".FROM THE SU|
00002680: 42 52 4F 55 54 49 4E 45 2E 22 00 B7 2E 8A 07 99 |BROUTINE."......|
00002690: 22 11 57 45 20 43 41 4E 20 12 50 55 53 48 92 20 |".WE CAN .PUSH. |
000026A0: 41 4C 4C 20 54 48 45 20 52 45 47 49 53 54 45 52 |ALL THE REGISTER|
000026B0: 53 20 4F 4E 54 4F 22 00 E5 2E 94 07 99 22 11 54 |S ONTO"......".T|
000026C0: 48 45 20 12 53 54 41 43 4B 92 20 57 48 49 43 48 |HE .STACK. WHICH|
000026D0: 20 43 4F 4E 53 49 53 54 53 20 4F 46 20 53 45 56 | CONSISTS OF SEV|
000026E0: 45 52 41 4C 22 00 13 2F 9E 07 99 22 11 4D 45 4D |ERAL"../...".MEM|
000026F0: 4F 52 59 20 4C 4F 43 41 54 49 4F 4E 53 20 49 4E |ORY LOCATIONS IN|
00002700: 20 12 52 41 4D 92 2E 2E 24 31 30 30 2D 24 31 46 | .RAM...$100-$1F|
00002710: 46 2E 22 00 44 2F A8 07 99 22 11 12 50 48 41 92 |F.".D/..."..PHA.|
00002720: 3D 50 55 53 48 20 54 48 45 20 41 2D 52 45 47 49 |=PUSH THE A-REGI|
00002730: 53 54 45 52 20 4F 4E 54 4F 20 54 48 45 20 53 54 |STER ONTO THE ST|
00002740: 41 43 4B 22 00 7C 2F B2 07 99 22 11 12 50 48 50 |ACK".|/..."..PHP|
00002750: 92 3D 50 55 53 48 20 54 48 45 20 50 2D 52 45 47 |.=PUSH THE P-REG|
00002760: 49 53 54 45 52 20 4F 4E 54 4F 20 54 48 45 20 53 |ISTER ONTO THE S|
00002770: 54 41 43 4B 22 3A 8D 36 33 30 30 30 00 A6 2F BC |TACK":.63000../.|
00002780: 07 99 22 93 54 4F 20 50 55 53 48 20 54 48 45 20 |..".TO PUSH THE |
00002790: 58 20 41 4E 44 20 59 20 52 45 47 49 53 54 45 52 |X AND Y REGISTER|
000027A0: 53 20 57 45 3A 22 00 CB 2F C6 07 99 22 11 12 54 |S WE:"../..."..T|
000027B0: 58 41 92 20 12 50 48 41 92 20 41 4E 44 20 12 54 |XA. .PHA. AND .T|
000027C0: 59 41 92 20 12 50 48 41 92 2E 22 00 DB 2F D0 07 |YA. .PHA.."../..|
000027D0: 99 22 11 53 4F 2E 2E 57 45 3A 22 00 06 30 DA 07 |.".SO..WE:"..0..|
000027E0: 99 22 11 12 50 48 41 92 20 12 50 48 50 92 20 12 |."..PHA. .PHP. .|
000027F0: 54 58 41 92 20 12 50 48 41 92 20 12 54 59 41 92 |TXA. .PHA. .TYA.|
00002800: 20 12 50 48 41 22 00 20 30 E4 07 99 22 11 54 48 | .PHA". 0...".TH|
00002810: 45 4E 2E 2E 12 4A 53 52 20 24 31 32 33 34 2E 22 |EN...JSR $1234."|
00002820: 00 48 30 EE 07 99 22 11 4C 41 54 45 52 2C 20 41 |.H0...".LATER, A|
00002830: 46 54 45 52 20 12 52 54 53 92 2C 20 57 45 20 57 |FTER .RTS., WE W|
00002840: 41 4E 54 20 41 4C 4C 22 00 75 30 F8 07 99 22 11 |ANT ALL".u0...".|
00002850: 54 48 4F 53 45 20 4E 55 4D 42 45 52 53 20 42 41 |THOSE NUMBERS BA|
00002860: 43 4B 20 49 4E 20 54 48 45 20 52 45 47 49 53 54 |CK IN THE REGIST|
00002870: 45 52 53 2E 22 00 9E 30 02 08 99 22 11 53 4F 20 |ERS."..0...".SO |
00002880: 57 45 20 12 50 55 4C 4C 92 20 54 48 45 4D 20 46 |WE .PULL. THEM F|
00002890: 52 4F 4D 20 54 48 45 20 53 54 41 43 4B 22 00 C0 |ROM THE STACK"..|
000028A0: 30 0C 08 99 22 11 49 4E 20 54 48 45 20 12 52 45 |0...".IN THE .RE|
000028B0: 56 45 52 53 45 20 4F 52 44 45 52 92 21 21 21 22 |VERSE ORDER.!!!"|
000028C0: 00 F2 30 16 08 99 22 11 12 50 4C 41 92 20 12 54 |..0..."..PLA. .T|
000028D0: 41 59 92 20 12 50 4C 41 92 20 12 54 41 58 92 20 |AY. .PLA. .TAX. |
000028E0: 12 50 4C 50 92 20 12 50 4C 41 22 3A 8D 36 33 30 |.PLP. .PLA":.630|
000028F0: 30 30 00 1D 31 20 08 99 22 93 54 48 45 20 53 54 |00..1 ..".THE ST|
00002900: 41 43 4B 20 49 53 20 41 20 4E 49 43 45 20 50 4C |ACK IS A NICE PL|
00002910: 41 43 45 20 54 4F 20 53 54 4F 52 45 22 00 46 31 |ACE TO STORE".F1|
00002920: 2A 08 99 22 11 42 59 54 45 53 20 54 45 4D 50 4F |*..".BYTES TEMPO|
00002930: 52 41 52 49 4C 59 2E 20 49 46 20 57 45 20 57 41 |RARILY. IF WE WA|
00002940: 4E 54 20 54 4F 22 00 75 31 34 08 99 22 11 45 58 |NT TO".u14..".EX|
00002950: 43 48 41 4E 47 45 20 54 48 45 20 43 4F 4E 54 45 |CHANGE THE CONTE|
00002960: 4E 54 53 20 4F 46 20 4D 45 4D 4F 52 59 20 4C 4F |NTS OF MEMORY LO|
00002970: 43 27 4E 53 22 00 9A 31 3E 08 99 22 11 24 32 30 |C'NS"..1>..".$20|
00002980: 30 30 20 41 4E 44 20 24 33 30 30 30 20 54 48 45 |00 AND $3000 THE|
00002990: 4E 20 57 45 20 43 41 4E 3A 22 00 CB 31 48 08 99 |N WE CAN:"..1H..|
000029A0: 22 11 12 4C 44 41 20 24 32 30 30 30 92 20 12 50 |"..LDA $2000. .P|
000029B0: 48 41 92 20 12 4C 44 41 20 24 33 30 30 30 92 20 |HA. .LDA $3000. |
000029C0: 12 53 54 41 20 24 32 30 30 30 22 00 02 32 52 08 |.STA $2000"..2R.|
000029D0: 99 22 11 12 50 4C 41 92 20 12 53 54 41 20 24 33 |."..PLA. .STA $3|
000029E0: 30 30 30 22 3A 4D 53 24 B2 22 20 12 53 4C 49 43 |000":MS$." .SLIC|
000029F0: 4B 21 92 22 3A 8D 36 33 30 30 30 3A 8D 36 33 31 |K!.":.63000:.631|
00002A00: 30 30 00 2D 32 5C 08 99 22 93 12 59 4F 55 92 20 |00.-2\.."..YOU. |
00002A10: 44 45 54 45 52 4D 49 4E 45 20 57 48 41 54 20 54 |DETERMINE WHAT T|
00002A20: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 22 00 4E 32 |HE FOLLOWING".N2|
00002A30: 66 08 99 22 11 53 55 42 52 4F 55 54 49 4E 45 20 |f..".SUBROUTINE |
00002A40: 44 4F 45 53 2E 2E 22 3A 8D 36 33 30 30 30 00 6F |DOES..":.63000.o|
00002A50: 32 B8 0B 99 22 93 2E 2C 20 36 30 30 30 20 41 32 |2...".., 6000 A2|
00002A60: 20 30 30 20 20 20 20 4C 44 58 20 23 24 30 30 00 | 00 LDX #$00.|
00002A70: 92 32 B9 0B 99 22 2E 2C 20 36 30 30 32 20 42 44 |.2..."., 6002 BD|
00002A80: 20 30 30 20 30 34 20 4C 44 41 20 24 30 34 30 30 | 00 04 LDA $0400|
00002A90: 2C 58 00 AD 32 BA 0B 99 22 2E 2C 20 36 30 30 35 |,X..2..."., 6005|
00002AA0: 20 34 38 20 20 20 20 20 20 20 50 48 41 00 D0 32 | 48 PHA..2|
00002AB0: BB 0B 99 22 2E 2C 20 36 30 30 36 20 42 44 20 34 |..."., 6006 BD 4|
00002AC0: 30 20 30 35 20 4C 44 41 20 24 30 35 34 30 2C 58 |0 05 LDA $0540,X|
00002AD0: 00 F3 32 BC 0B 99 22 2E 2C 20 36 30 30 39 20 39 |..2..."., 6009 9|
00002AE0: 44 20 30 30 20 30 34 20 53 54 41 20 24 30 34 30 |D 00 04 STA $040|
00002AF0: 30 2C 58 00 0E 33 BD 0B 99 22 2E 2C 20 36 30 30 |0,X..3..."., 600|
00002B00: 43 20 36 38 20 20 20 20 20 20 20 50 4C 41 00 31 |C 68 PLA.1|
00002B10: 33 BE 0B 99 22 2E 2C 20 36 30 30 44 20 39 44 20 |3..."., 600D 9D |
00002B20: 34 30 20 30 35 20 53 54 41 20 24 30 35 34 30 2C |40 05 STA $0540,|
00002B30: 58 00 54 33 BF 0B 99 22 2E 2C 20 36 30 31 30 20 |X.T3..."., 6010 |
00002B40: 42 44 20 41 30 20 30 34 20 4C 44 41 20 24 30 34 |BD A0 04 LDA $04|
00002B50: 41 30 2C 58 00 6F 33 C0 0B 99 22 2E 2C 20 36 30 |A0,X.o3..."., 60|
00002B60: 31 33 20 34 38 20 20 20 20 20 20 20 50 48 41 00 |13 48 PHA.|
00002B70: 92 33 C1 0B 99 22 2E 2C 20 36 30 31 34 20 42 44 |.3..."., 6014 BD|
00002B80: 20 45 30 20 30 35 20 4C 44 41 20 24 30 35 45 30 | E0 05 LDA $05E0|
00002B90: 2C 58 00 B5 33 C2 0B 99 22 2E 2C 20 36 30 31 37 |,X..3..."., 6017|
00002BA0: 20 39 44 20 41 30 20 30 34 20 53 54 41 20 24 30 | 9D A0 04 STA $0|
00002BB0: 34 41 30 2C 58 00 D0 33 C3 0B 99 22 2E 2C 20 36 |4A0,X..3..."., 6|
00002BC0: 30 31 41 20 36 38 20 20 20 20 20 20 20 50 4C 41 |01A 68 PLA|
00002BD0: 00 F3 33 C4 0B 99 22 2E 2C 20 36 30 31 42 20 39 |..3..."., 601B 9|
00002BE0: 44 20 45 30 20 30 35 20 53 54 41 20 24 30 35 45 |D E0 05 STA $05E|
00002BF0: 30 2C 58 00 0E 34 C5 0B 99 22 2E 2C 20 36 30 31 |0,X..4..."., 601|
00002C00: 45 20 45 38 20 20 20 20 20 20 20 49 4E 58 00 2E |E E8 INX..|
00002C10: 34 C6 0B 99 22 2E 2C 20 36 30 31 46 20 44 30 20 |4..."., 601F D0 |
00002C20: 45 31 20 20 20 20 43 50 58 20 23 24 41 30 00 4F |E1 CPX #$A0.O|
00002C30: 34 C7 0B 99 22 2E 2C 20 36 30 32 31 20 44 30 20 |4..."., 6021 D0 |
00002C40: 44 46 20 20 20 20 42 4E 45 20 24 36 30 30 32 00 |DF BNE $6002.|
00002C50: 6A 34 C8 0B 99 22 2E 2C 20 36 30 32 33 20 36 30 |j4..."., 6023 60|
00002C60: 20 20 20 20 20 20 20 52 54 53 00 8B 34 CC 0B 4D | RTS..4..M|
00002C70: B2 36 AC 34 30 39 36 3A 81 49 B2 4D A4 4D AA 33 |.6.4096:.I.M.M.3|
00002C80: 35 3A 87 4B 3A 97 49 2C 4B 3A 82 00 C9 34 D6 0B |5:.K:.I,K:...4..|
00002C90: 83 31 36 32 2C 30 2C 31 38 39 2C 30 2C 34 2C 37 |.162,0,189,0,4,7|
00002CA0: 32 2C 31 38 39 2C 36 34 2C 35 2C 31 35 37 2C 30 |2,189,64,5,157,0|
00002CB0: 2C 34 2C 31 30 34 2C 31 35 37 2C 36 34 2C 35 2C |,4,104,157,64,5,|
00002CC0: 31 38 39 2C 31 36 30 2C 34 00 0A 35 E0 0B 83 37 |189,160,4..5...7|
00002CD0: 32 2C 31 38 39 2C 32 32 34 2C 35 2C 31 35 37 2C |2,189,224,5,157,|
00002CE0: 31 36 30 2C 34 2C 31 30 34 2C 31 35 37 2C 32 32 |160,4,104,157,22|
00002CF0: 34 2C 35 2C 32 33 32 2C 32 32 34 2C 31 36 30 2C |4,5,232,224,160,|
00002D00: 32 30 38 2C 32 32 33 2C 39 36 00 3B 35 EA 0B 55 |208,223,96.;5..U|
00002D10: 24 B2 22 22 3A 56 24 B2 22 12 22 3A 81 49 B2 31 |$."":V$.".":.I.1|
00002D20: A4 57 44 AB 31 3A 55 24 B2 55 24 AA 22 2A 22 3A |.WD.1:U$.U$."*":|
00002D30: 56 24 B2 56 24 AA 22 20 22 3A 82 00 5A 35 EF 0B |V$.V$." ":..Z5..|
00002D40: 99 42 54 24 22 91 91 91 91 12 59 4F 55 20 43 41 |.BT$".....YOU CA|
00002D50: 4E 20 54 52 59 20 49 54 21 22 00 85 35 1C 0C 8D |N TRY IT!"..5...|
00002D60: 36 33 30 30 30 3A 99 22 93 22 3B 3A 81 49 B2 31 |63000:.".";:.I.1|
00002D70: A4 34 3A 99 55 24 3A 82 3A 81 49 B2 31 A4 34 3A |.4:.U$:.:.I.1.4:|
00002D80: 99 56 24 3A 82 00 AD 35 26 0C 99 22 13 1D 1D 1D |.V$:...5&.."....|
00002D90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 45 4E 44 20 4F |...........END O|
00002DA0: 46 20 54 55 54 4F 52 37 92 11 11 11 22 00 C4 35 |F TUTOR7...."..5|
00002DB0: 2B 0C 4D 53 24 B2 22 12 41 55 20 52 45 56 4F 49 |+.MS$.".AU REVOI|
00002DC0: 52 21 92 22 00 EC 35 30 0C 81 49 B2 31 A4 31 30 |R!."..50..I.1.10|
00002DD0: 3A 9E 36 AC 34 30 39 36 3A 81 54 B2 31 A4 35 30 |:.6.4096:.T.1.50|
00002DE0: 30 3A 82 3A 82 3A 8D 36 33 31 30 30 00 19 36 35 |0:.:.:.63100..65|
00002DF0: 0C 81 49 B2 31 A4 31 30 3A A1 5A 24 3A 82 3A 99 |..I.1.10:.Z$:.:.|
00002E00: 42 54 24 22 91 91 91 91 91 91 53 59 53 36 2A 34 |BT$"......SYS6*4|
00002E10: 30 39 36 91 91 91 22 3A 80 00 45 36 10 27 99 22 |096...":..E6.'."|
00002E20: 93 22 3A 99 50 24 3A 99 53 44 24 22 D1 54 48 45 |.":.P$:.SD$".THE|
00002E30: 20 5A 2D 42 49 54 20 49 53 20 53 45 54 20 54 4F | Z-BIT IS SET TO|
00002E40: 20 27 31 27 22 00 78 36 1A 27 99 22 11 49 46 20 | '1'".x6.'.".IF |
00002E50: 45 56 45 52 59 20 42 49 54 20 4F 46 20 41 20 27 |EVERY BIT OF A '|
00002E60: 52 45 53 55 4C 54 27 20 49 53 20 12 30 30 92 2E |RESULT' IS .00..|
00002E70: 22 3A 8D 36 33 30 30 30 00 99 36 24 27 97 50 28 |":.63000..6$'.P(|
00002E80: 36 29 2C 31 37 37 3A 8D 36 33 30 30 30 3A 99 53 |6),177:.63000:.S|
00002E90: 44 24 22 11 11 11 11 22 3B 00 D2 36 2E 27 99 22 |D$"....";..6.'."|
00002EA0: D1 5A 3D 30 20 49 46 20 41 20 27 52 45 53 55 4C |.Z=0 IF A 'RESUL|
00002EB0: 54 27 20 49 53 20 4E 4F 54 11 9D 9D 9D B8 B8 B8 |T' IS NOT.......|
00002EC0: 91 20 5A 45 52 4F 2E 22 3A 97 50 28 36 29 2C 31 |. ZERO.":.P(6),1|
00002ED0: 37 36 00 DD 36 38 27 8D 36 33 30 30 30 00 06 37 |76..68'.63000..7|
00002EE0: 42 27 99 22 93 22 3A 99 50 24 3A 99 53 44 24 22 |B'.".":.P$:.SD$"|
00002EF0: 41 4E 44 20 54 48 45 20 12 43 41 52 52 59 92 20 |AND THE .CARRY. |
00002F00: 42 49 54 2E 2E 22 00 36 37 4C 27 99 22 11 57 48 |BIT..".67L'.".WH|
00002F10: 45 52 45 27 53 20 54 48 45 20 43 41 52 52 59 20 |ERE'S THE CARRY |
00002F20: 42 49 54 21 21 22 3A 81 54 B2 31 A4 31 30 3A 99 |BIT!!":.T.1.10:.|
00002F30: C7 28 31 34 29 3B 00 5B 37 56 27 81 54 31 B2 31 |.(14);.[7V'.T1.1|
00002F40: A4 35 30 3A 82 3A 99 C7 28 31 34 32 29 3B 3A 81 |.50:.:..(142);:.|
00002F50: 54 31 B2 31 A4 35 30 3A 82 3A 82 00 79 37 60 27 |T1.1.50:.:..y7`'|
00002F60: 8D 36 33 30 30 30 3A 97 50 28 37 29 2C 31 33 31 |.63000:.P(7),131|
00002F70: 3A 8D 36 33 30 30 30 3A 8E 00 A7 37 20 4E 99 22 |:.63000:...7 N."|
00002F80: 93 11 11 11 48 45 52 45 27 53 20 54 48 45 20 53 |....HERE'S THE S|
00002F90: 45 54 20 4F 46 20 12 36 35 31 30 92 20 43 4F 4D |ET OF .6510. COM|
00002FA0: 4D 41 4E 44 53 3A 22 00 E4 37 2A 4E 99 22 11 12 |MANDS:"..7*N."..|
00002FB0: 41 44 43 92 20 12 41 4E 44 92 20 12 41 53 4C 92 |ADC. .AND. .ASL.|
00002FC0: 20 12 42 43 43 92 20 12 42 43 53 92 20 12 42 45 | .BCC. .BCS. .BE|
00002FD0: 51 92 20 12 42 49 54 92 20 12 42 4D 49 92 20 12 |Q. .BIT. .BMI. .|
00002FE0: 42 4E 45 22 00 21 38 34 4E 99 22 11 12 42 50 4C |BNE".!84N."..BPL|
00002FF0: 92 20 12 42 52 4B 92 20 12 42 56 43 92 20 12 42 |. .BRK. .BVC. .B|
00003000: 56 53 92 20 12 43 4C 43 92 20 12 43 4C 44 92 20 |VS. .CLC. .CLD. |
00003010: 12 43 4C 49 92 20 12 43 4C 56 92 20 12 43 4D 50 |.CLI. .CLV. .CMP|
00003020: 22 00 5E 38 3E 4E 99 22 11 12 43 50 58 92 20 12 |".^8>N."..CPX. .|
00003030: 43 50 59 92 20 12 44 45 43 92 20 12 44 45 58 92 |CPY. .DEC. .DEX.|
00003040: 20 12 44 45 59 92 20 12 45 4F 52 92 20 12 49 4E | .DEY. .EOR. .IN|
00003050: 43 92 20 12 49 4E 58 92 20 12 49 4E 59 22 00 9B |C. .INX. .INY"..|
00003060: 38 48 4E 99 22 11 12 4A 4D 50 92 20 12 4A 53 52 |8HN."..JMP. .JSR|
00003070: 92 20 12 4C 44 41 92 20 12 4C 44 58 92 20 12 4C |. .LDA. .LDX. .L|
00003080: 44 59 92 20 12 4C 53 52 92 20 12 4E 4F 50 92 20 |DY. .LSR. .NOP. |
00003090: 12 4F 52 41 92 20 12 50 48 41 22 00 D8 38 52 4E |.ORA. .PHA"..8RN|
000030A0: 99 22 11 12 50 48 50 92 20 12 50 4C 41 92 20 12 |."..PHP. .PLA. .|
000030B0: 50 4C 50 92 20 12 52 4F 4C 92 20 12 52 4F 52 92 |PLP. .ROL. .ROR.|
000030C0: 20 12 52 54 49 92 20 12 53 42 43 92 20 12 53 45 | .RTI. .SBC. .SE|
000030D0: 43 92 20 12 53 45 44 22 00 15 39 5C 4E 99 22 11 |C. .SED"..9\N.".|
000030E0: 12 54 58 41 92 20 12 53 54 41 92 20 12 53 54 58 |.TXA. .STA. .STX|
000030F0: 92 20 12 53 54 59 92 20 12 54 41 58 92 20 12 54 |. .STY. .TAX. .T|
00003100: 41 59 92 20 12 54 59 41 92 20 12 54 53 58 92 20 |AY. .TYA. .TSX. |
00003110: 12 54 58 41 22 00 31 39 66 4E 99 22 11 2E 2E 41 |.TXA".19fN."...A|
00003120: 4E 44 20 12 54 58 53 92 21 22 3A 8D 36 33 30 30 |ND .TXS.!":.6300|
00003130: 30 00 4D 39 70 4E 4D 53 24 B2 22 49 4D 50 52 45 |0.M9pNMS$."IMPRE|
00003140: 53 53 49 56 45 22 3A 8D 36 33 31 30 30 00 5A 39 |SSIVE":.63100.Z9|
00003150: 7A 4E 8D 36 33 30 30 30 3A 8E 00 7B 39 58 98 99 |zN.63000:..{9X..|
00003160: 22 13 22 3B 3A 81 49 B2 31 A4 31 37 3A 99 43 4C |".";:.I.1.17:.CL|
00003170: 24 3A 82 3A 99 22 13 22 3B 3A 8E 00 9C 39 BC 98 |$:.:.".";:...9..|
00003180: 99 53 44 24 3B 3A 81 49 B2 31 A4 31 35 3A 99 43 |.SD$;:.I.1.15:.C|
00003190: 4C 24 3A 82 3A 99 53 44 24 3B 3A 8E 00 C9 39 A0 |L$:.:.SD$;:...9.|
000031A0: 9C 97 41 28 37 29 2C 33 32 3A 81 54 54 B2 31 A4 |..A(7),32:.TT.1.|
000031B0: 50 50 3A 82 3A 81 49 B2 37 A4 31 A9 AB 31 3A 97 |PP:.:.I.7.1..1:.|
000031C0: 41 28 49 AB 31 29 2C 33 32 00 F2 39 A1 9C 97 41 |A(I.1),32..9...A|
000031D0: 28 49 29 2C C5 28 CA 28 4E 24 2C 49 2C 31 29 29 |(I),.(.(N$,I,1))|
000031E0: AA 34 38 3A 81 54 54 B2 31 A4 50 50 3A 82 3A 82 |.48:.TT.1.PP:.:.|
000031F0: 3A 8E 00 1C 3A A2 9C 97 41 28 30 29 2C 33 32 3A |:...:...A(0),32:|
00003200: 81 54 54 B2 31 A4 50 50 3A 82 3A 81 49 B2 30 A4 |.TT.1.PP:.:.I.0.|
00003210: 36 3A 97 41 28 49 AA 31 29 2C 33 32 00 50 3A A3 |6:.A(I.1),32.P:.|
00003220: 9C 97 41 28 49 29 2C C5 28 CA 28 4E 24 2C 49 AA |..A(I),.(.(N$,I.|
00003230: 31 2C 31 29 29 AA 34 38 3A 81 54 54 B2 31 A4 50 |1,1)).48:.TT.1.P|
00003240: 50 3A 82 3A 82 3A 97 41 28 37 29 2C 34 38 3A 8E |P:.:.:.A(7),48:.|
00003250: 00 70 3A AE 9C 81 49 B2 30 A4 37 3A 97 41 28 49 |.p:...I.0.7:.A(I|
00003260: 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 |),160:.TT.1.PP:.|
00003270: 00 90 3A AF 9C 97 41 28 49 29 2C C5 28 CA 28 4E |..:...A(I),.(.(N|
00003280: 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A 82 3A 8E |$,I.1,1)).48:.:.|
00003290: 00 B0 3A B8 9C 81 49 B2 30 A4 37 3A 97 50 28 49 |..:...I.0.7:.P(I|
000032A0: 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 |),160:.TT.1.PP:.|
000032B0: 00 D0 3A B9 9C 97 50 28 49 29 2C C5 28 CA 28 4E |..:...P(I),.(.(N|
000032C0: 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A 82 3A 8E |$,I.1,1)).48:.:.|
000032D0: 00 F0 3A C2 9C 81 49 B2 30 A4 37 3A 97 58 28 49 |..:...I.0.7:.X(I|
000032E0: 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 |),160:.TT.1.PP:.|
000032F0: 00 10 3B C3 9C 97 58 28 49 29 2C C5 28 CA 28 4E |..;...X(I),.(.(N|
00003300: 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A 82 3A 8E |$,I.1,1)).48:.:.|
00003310: 00 30 3B CC 9C 81 49 B2 30 A4 37 3A 97 59 28 49 |.0;...I.0.7:.Y(I|
00003320: 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 |),160:.TT.1.PP:.|
00003330: 00 50 3B CD 9C 97 59 28 49 29 2C C5 28 CA 28 4E |.P;...Y(I),.(.(N|
00003340: 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A 82 3A 8E |$,I.1,1)).48:.:.|
00003350: 00 70 3B E0 9C 81 49 B2 30 A4 37 3A 97 4D 28 49 |.p;...I.0.7:.M(I|
00003360: 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 |),160:.TT.1.PP:.|
00003370: 00 90 3B E1 9C 97 4D 28 49 29 2C C5 28 CA 28 4E |..;...M(I),.(.(N|
00003380: 24 2C 49 AA 31 2C 31 29 29 AA 34 38 3A 82 3A 8E |$,I.1,1)).48:.:.|
00003390: 00 B0 3B A0 A0 81 49 B2 30 A4 37 3A 97 50 28 49 |..;...I.0.7:.P(I|
000033A0: 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 |),160:.TT.1.PP:.|
000033B0: 00 C6 3B A1 A0 97 50 28 49 29 2C C2 28 41 28 49 |..;...P(I),.(A(I|
000033C0: 29 29 3A 82 3A 8E 00 E6 3B AA A0 81 49 B2 30 A4 |)):.:...;...I.0.|
000033D0: 37 3A 97 58 28 49 29 2C 31 36 30 3A 81 54 54 B2 |7:.X(I),160:.TT.|
000033E0: 31 A4 50 50 3A 82 00 FC 3B AB A0 97 58 28 49 29 |1.PP:...;...X(I)|
000033F0: 2C C2 28 41 28 49 29 29 3A 82 3A 8E 00 1C 3C B4 |,.(A(I)):.:...<.|
00003400: A0 81 49 B2 30 A4 37 3A 97 59 28 49 29 2C 31 36 |..I.0.7:.Y(I),16|
00003410: 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 32 3C B5 |0:.TT.1.PP:..2<.|
00003420: A0 97 59 28 49 29 2C C2 28 41 28 49 29 29 3A 82 |..Y(I),.(A(I)):.|
00003430: 3A 8E 00 52 3C C8 A0 81 49 B2 30 A4 37 3A 97 4D |:..R<...I.0.7:.M|
00003440: 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 50 50 |(I),160:.TT.1.PP|
00003450: 3A 82 00 68 3C C9 A0 97 4D 28 49 29 2C C2 28 41 |:..h<...M(I),.(A|
00003460: 28 49 29 29 3A 82 3A 8E 00 88 3C 7C A1 81 49 B2 |(I)):.:...<|..I.|
00003470: 30 A4 37 3A 97 41 28 49 29 2C 31 36 30 3A 81 54 |0.7:.A(I),160:.T|
00003480: 54 B2 31 A4 50 50 3A 82 00 9E 3C 7D A1 97 41 28 |T.1.PP:...<}..A(|
00003490: 49 29 2C C2 28 58 28 49 29 29 3A 82 3A 8E 00 BE |I),.(X(I)):.:...|
000034A0: 3C 90 A1 81 49 B2 30 A4 37 3A 97 4D 28 49 29 2C |<...I.0.7:.M(I),|
000034B0: 31 36 30 3A 81 54 54 B2 31 A4 50 50 3A 82 00 D4 |160:.TT.1.PP:...|
000034C0: 3C 91 A1 97 4D 28 49 29 2C C2 28 58 28 49 29 29 |<...M(I),.(X(I))|
000034D0: 3A 82 3A 8E 00 F4 3C C2 A1 81 49 B2 30 A4 37 3A |:.:...<...I.0.7:|
000034E0: 97 41 28 49 29 2C 31 36 30 3A 81 54 54 B2 31 A4 |.A(I),160:.TT.1.|
000034F0: 50 50 3A 82 00 0A 3D C3 A1 97 41 28 49 29 2C C2 |PP:...=...A(I),.|
00003500: 28 59 28 49 29 29 3A 82 3A 8E 00 2A 3D F4 A1 81 |(Y(I)):.:..*=...|
00003510: 49 B2 30 A4 37 3A 97 4D 28 49 29 2C 31 36 30 3A |I.0.7:.M(I),160:|
00003520: 81 54 54 B2 31 A4 50 50 3A 82 00 40 3D F5 A1 97 |.TT.1.PP:..@=...|
00003530: 4D 28 49 29 2C C2 28 59 28 49 29 29 3A 82 3A 8E |M(I),.(Y(I)):.:.|
00003540: 00 7F 3D 60 EA 52 24 B2 22 B0 C0 B2 C0 B2 C0 B2 |..=`.R$.".......|
00003550: C0 B2 C0 B2 C0 B2 C0 B2 C0 AE 11 9D 9D 9D 9D 9D |................|
00003560: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD A0 DD A0 |................|
00003570: DD A0 DD A0 DD A0 DD A0 DD A0 DD A0 DD 11 22 00 |..............".|
00003580: AE 3D 61 EA 52 24 B2 52 24 AA 22 9D 9D 9D 9D 9D |.=a.R$.R$.".....|
00003590: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D AD C0 B1 C0 |................|
000035A0: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 BD 22 00 E6 |............."..|
000035B0: 3D 62 EA 41 24 B2 22 13 11 20 12 41 92 91 22 AA |=b.A$.".. .A..".|
000035C0: 52 24 3A 50 24 B2 22 13 11 1D 1D 1D 1D 1D 1D 1D |R$:P$.".........|
000035D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |...............P|
000035E0: 92 91 22 AA 52 24 00 24 3E 63 EA 58 24 B2 22 13 |..".R$.$>c.X$.".|
000035F0: 11 11 11 11 20 12 58 92 91 22 AA 52 24 3A 59 24 |.... .X..".R$:Y$|
00003600: B2 22 13 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00003610: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 59 92 91 |.............Y..|
00003620: 22 AA 52 24 00 52 3E 64 EA 4D 24 B2 22 13 11 11 |".R$.R>d.M$."...|
00003630: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003640: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 4D 92 91 22 AA |...........M..".|
00003650: 52 24 00 75 3E 65 EA 43 52 24 B2 22 13 11 11 11 |R$.u>e.CR$."....|
00003660: 11 11 11 B0 C0 AE 11 9D 9D 9D DD 1D DD 11 9D 9D |................|
00003670: 9D AD C0 BD 22 00 B5 3E 66 EA 43 43 24 B2 22 13 |...."..>f.CC$.".|
00003680: 11 20 12 41 92 DD 11 9D 9D 9D 20 11 9D 20 11 9D |. .A...... .. ..|
00003690: 20 11 9D 20 11 9D 20 20 20 11 9D 9D 9D 20 20 20 | .. .. .... |
000036A0: 11 9D 9D 9D 20 20 20 91 20 20 20 20 20 20 20 20 |.... . |
000036B0: 20 20 20 20 22 00 D0 3E 67 EA 57 44 B2 34 30 3A | "..>g.WD.40:|
000036C0: 43 52 54 B2 31 30 32 34 3A 99 C7 28 31 34 32 29 |CRT.1024:..(142)|
000036D0: 00 16 3F 68 EA 81 49 B2 30 A4 37 3A 41 28 49 29 |..?h..I.0.7:A(I)|
000036E0: B2 43 52 54 AA 57 44 AA 33 AA 32 AC 49 3A 50 28 |.CRT.WD.3.2.I:P(|
000036F0: 49 29 B2 41 28 49 29 AA 32 30 3A 58 28 49 29 B2 |I).A(I).20:X(I).|
00003700: 41 28 49 29 AA 33 AC 57 44 3A 59 28 49 29 B2 58 |A(I).3.WD:Y(I).X|
00003710: 28 49 29 AA 32 30 00 38 3F 69 EA 4D 28 49 29 B2 |(I).20.8?i.M(I).|
00003720: 59 28 49 29 AA 33 AC 57 44 3A 82 3A 43 B2 43 52 |Y(I).3.WD:.:C.CR|
00003730: 54 AA 37 AC 57 44 AA 31 00 6C 3F 6A EA 53 44 24 |T.7.WD.1.l?j.SD$|
00003740: B2 22 13 11 11 11 11 11 11 11 11 11 22 3A 43 4C |."..........":CL|
00003750: 24 B2 22 22 3A 81 49 B2 31 A4 57 44 AB 31 3A 43 |$."":.I.1.WD.1:C|
00003760: 4C 24 B2 43 4C 24 AA 22 20 22 3A 82 00 8E 3F 6B |L$.CL$." ":...?k|
00003770: EA 42 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 |.BT$.".":.I.1.24|
00003780: 3A 42 54 24 B2 42 54 24 AA 22 11 22 3A 82 00 C1 |:BT$.BT$.".":...|
00003790: 3F 6C EA 43 24 B2 43 52 24 AA 22 13 11 B0 C0 B3 |?l.C$.CR$.".....|
000037A0: 11 9D 9D 9D DD 11 9D DD 11 9D DD 11 9D DD 11 9D |................|
000037B0: AB 11 1D 1D 1D 1D 5F 43 41 52 52 59 20 42 49 54 |......_CARRY BIT|
000037C0: 22 00 F1 3F 73 EA 4D 4C 24 B2 22 13 11 11 11 11 |"..?s.ML$.".....|
000037D0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000037E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000037F0: 22 00 13 40 74 EA 42 54 24 B2 22 13 22 3A 81 49 |"..@t.BT$.".":.I|
00003800: B2 31 A4 32 34 3A 42 54 24 B2 42 54 24 AA 22 11 |.1.24:BT$.BT$.".|
00003810: 22 3A 82 00 5D 40 75 EA 50 54 24 B2 22 1C B0 C0 |":..]@u.PT$."...|
00003820: C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D 9D 9D 9D 9D |................|
00003830: 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003840: 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003850: AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD 22 00 A5 40 |............"..@|
00003860: 76 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D |v.PT$.PT$.".....|
00003870: 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 A3 A3 A3 A3 |................|
00003880: A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003890: 9D 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D 3D 3D 3D 3D |.......=========|
000038A0: 3D 3D 3D A7 22 00 E1 40 77 EA 50 54 24 B2 50 54 |===."..@w.PT$.PT|
000038B0: 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |$.".............|
000038C0: 9D 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 D0 CF |................|
000038D0: 91 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000038E0: 22 00 18 41 78 EA 50 54 24 B2 42 54 24 AA 22 91 |"..Ax.PT$.BT$.".|
000038F0: 91 91 91 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003900: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00003910: AA 50 54 24 AA 22 90 22 00 24 41 79 EA 99 C7 28 |.PT$.".".$Ay...(|
00003920: 31 34 32 29 00 2E 41 C3 EA 50 50 B2 35 30 00 34 |142)..A..PP.50.4|
00003930: 41 C4 EA 8E 00 4C 41 18 F6 99 42 54 24 43 4C 24 |A....LA...BT$CL$|
00003940: 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 00 77 41 19 |;:.TT.1.50:..wA.|
00003950: F6 99 42 54 24 22 12 52 45 54 55 52 4E 92 20 54 |..BT$".RETURN. T|
00003960: 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 3A 81 54 54 |O CONTINUE";:.TT|
00003970: B2 31 A4 35 30 3A 82 00 8D 41 1A F6 A1 5A 24 3A |.1.50:...A...Z$:|
00003980: 8B 5A 24 B3 B1 22 22 A7 36 33 30 30 32 00 A2 41 |.Z$.."".63002..A|
00003990: 1B F6 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 36 33 30 |...Z$:.Z$."".630|
000039A0: 30 33 00 A8 41 1C F6 8E 00 C0 41 22 F6 99 42 54 |03..A.....A"..BT|
000039B0: 24 43 4C 24 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 |$CL$;:.TT.1.50:.|
000039C0: 00 00 42 23 F6 99 42 54 24 22 A6 A6 A6 A6 A6 A6 |..B#..BT$"......|
000039D0: A6 A6 12 52 45 54 55 52 4E 20 54 4F 20 53 45 45 |...RETURN TO SEE|
000039E0: 20 49 54 20 48 41 50 50 45 4E 92 A6 A6 A6 A6 A6 | IT HAPPEN......|
000039F0: A6 A6 A6 22 3B 3A 81 54 54 B2 31 A4 35 30 3A 82 |...";:.TT.1.50:.|
00003A00: 00 16 42 24 F6 A1 5A 24 3A 8B 5A 24 B3 B1 22 22 |..B$..Z$:.Z$..""|
00003A10: A7 36 33 30 31 32 00 2B 42 25 F6 A1 5A 24 3A 8B |.63012.+B%..Z$:.|
00003A20: 5A 24 B2 22 22 A7 36 33 30 31 33 00 31 42 26 F6 |Z$."".63013.1B&.|
00003A30: 8E 00 45 42 7C F6 81 54 B2 31 A4 35 3A 99 50 54 |..EB|..T.1.5:.PT|
00003A40: 24 4D 53 24 3B 00 5B 42 7D F6 99 50 54 24 22 20 |$MS$;.[B}..PT$" |
00003A50: 20 20 20 20 20 20 20 20 20 22 3B 00 6A 42 7E F6 | ";.jB~.|
00003A60: 99 50 54 24 4D 53 24 3B 3A 82 00 70 42 7F F6 8E |.PT$MS$;:..pB...|
00003A70: 00 7B 42 E0 F6 8D 36 33 30 30 30 00 9C 42 E1 F6 |.{B...63000..B..|
00003A80: 99 53 44 24 3B 3A 81 54 B2 31 A4 31 35 3A 99 43 |.SD$;:.T.1.15:.C|
00003A90: 4C 24 3A 82 3A 99 53 44 24 3B 3A 8E 00 B0 42 44 |L$:.:.SD$;:...BD|
00003AA0: F7 8D 36 33 31 30 30 3A 8D 36 33 30 31 30 3A 8E |..63100:.63010:.|
00003AB0: 00 D0 42 A8 F7 99 22 13 22 3B 3A 81 49 B2 31 A4 |..B...".";:.I.1.|
00003AC0: 35 3A 99 43 4C 24 3A 82 3A 99 22 13 22 3B 3A 8E |5:.CL$:.:.".";:.|
00003AD0: 00 E6 42 FF F9 8D 36 30 30 30 30 3A 99 22 93 22 |..B...60000:."."|
00003AE0: 3A 89 33 30 30 30 00 00 00 |:.3000... |
..!...."....... 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 ^LO ^HI
^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??.":.".S
HOULD WE SAY .BVC $1234."...L..".OR SHOU
LD WE SAY .BVC #$31.?*!".7.M..".ACTUALLY
, ALTHOUGH AN 'ASSEMBLER' SUCH".B.N..".A
S .MICROMON. WILL ALLOW US TO SAY"...O..
".BVC $1234., THE MACHINE LANGUAGE CODE"
...P..".GENERATED WILL READ .BVC #$31.!!
"...Q..".THAT IS, THE INSTRUCTION WILL A
PPEAR"...R..".IN MEMORY AS .50. .31...ME
ANING BRANCH".=.S..".AHEAD $31 LOC'NS IF
V=0.":.63000.O.U..".ALL .B.RANCH INSTRU
CTIONS ARE 'RELATIVE':"...Z.."..BCS.=BRA
NCH IF CARRY IS SET(C=1)".E...."..BCC.=B
RANCH IF CARRY IS CLEAR(C=0)"......"..BE
Q.=BRANCH IF Z-BIT IS SET(Z=1)"......"..
BNE.=BRANCH IF Z-BIT IS CLEAR(Z=0)".E...
."..BMI.=BRANCH IF N-BIT IS SET(N=1)".Q.
..."..BPL.=BRANCH IF N-BIT IS CLEAR(N=0)
"......"..BVS.=BRANCH IF V-BIT IS SET(V=
1)".N...."..BVC.=BRANCH IF V-BIT IS CLEA
R(V=0)":.63000...E.MS$."RELATIVES?":.631
00.!.J..".":.P$:.SD$"SOME OF THE BITS OF
THE .P.ROCESSOR".M.T..".STATUS REGISTER
CAN BE SET(=1), AND".|....".SOME CAN BE
CLEARED(=0).":.63000:.39100......".CLV.
=CLEARS O.V.ERFLOW":.P(1),176:.63000:.39
100......P(1),32......".CLC.=CLEARS .C.A
RRY":.P(7),176:.63000:.39100......P(7),3
2.:....".CLD.=CLEARS .D.ECIMAL MODE FLAG
":.P(4),176:.63000.N...MS$."WHAT FLAG?":
.63100:.63000:.39100:.P(4),132......".CL
I.=CLEARS .I.NTERRUPT FLAG":.P(5),176:.6
3000.Z...MS$.".WHAT FLAG!.":.63100:.P(5)
,137:.63000:.39100......"."SD$"ALTOGETHE
R NOW..":.P$.3....P(0),14:.P(1),22:.P(4)
,4:.P(5),9:.P(6),26:.P(7),3.>....63000.W
.$..39100:.".N.=.N.EGATIVE FLAG BIT.":.P
(0),B(P(0)).128...%..63000......SD$"...V
.=O.V.ERFLOW FLAG BIT.":.P(1),B(P(1)).12
8:.63000...8..SD$".....D.=.D.ECIMAL MODE
FLAG BIT.":.P(4),B(P(4)).128...9..63000
.D.B..SD$".......I.=.I.NTERRUPT FLAG BIT
.":.P(5),B(P(5)).128.O.C..63000...L..SD$
".........Z.=.Z.ERO FLAG BIT.":.P(6),B(P
(6)).128:.63000.K.V..SD$"...........C.=.
C.ARRY FLAG BIT.":.P(7),B(P(7)).128.V.[.
.63000...`..P(2),214:MS$.".NOT USED!!.":
.63100...E..Z$:.Z$.""..P(2),32:.1120.Y.J
..P(3),130:.39100:."WHEN THE 6510 GETS A
.BREAK. COMMAND".R.T..".(WHICH IS .00.)
"...~..".THE .B.REAK BIT IS SET(B=1)":.
63000:.P(3),130.J...MS$."COMMAND=00":.63
100:.63000......".JUST IN CASE YOU'RE WO
NDERING.."." ...".THE .6510. HAS A .DECI
MAL. MODE WHEREBY".N ...".ARITHMETIC OPE
RATIONS ARE PERFORMED".. ...".ASSUMING A
LL NUMBERS ARE .NOT. IN DECIMAL".. ...".
BUT RATHER IN .B.INARY .C.ODED .D.ECIMAL
!".. D..".IF WE WANT TO OPERATE IN 'DECI
MAL"..!N..".MODE' WE MUST SET THE .D.-FL
AG TO '1':"..!X.."..SED".E!...".TO GET O
UT OF THIS MODE WE CLEAR THE".G!...".DEC
IMAL MODE FLAG TO '0':".{!..."..CLD":.63
000..!...".FURTHER..THE .6510. CAN BE IN
TERRUPTED".Y!...".BY LOWERING THE VOLTAG
E ON ONE OF IT'S".."...".PINS..THE .IRQ.
OR I....NTERRUPT R....EQ....UEST PIN.".
E"...".(EXTERNAL DEVICES DO THIS TO THE
6510".["(.."ALL THE TIME!)".."2..".WHEN
THE 6510 GETS AN .IRQ. IT STOPS".."<..".
WHAT IT'S DOIN'...SERVICES THE".Y"F..".I
NTERRUPTING DEVICE..THEN RETURNS"..#P.."
.FROM THE INTERRUPT TO CONTINUE.":.63000
.7#Z..".FOR EXAMPLE, EVERY JIFFY(=1/60 S
ECOND)".G#D..".THE 6510 INTERRUPTS WHATE
VER IT'S DOIN'"..#N..".AND UPDATES THE I
NTERNAL CLOCK,CHECKS".D#X..".THE KEYBOAR
D TO SEE IF YOU'RE PRESSING"..#...".THE
.STOP. KEY, ETC."..$...".WHETHER OR NOT
THE 6510 WILL LET ITSELF".=$...".BE INTE
RRUPTED DEPENDS UPON A MAGIC".^$ ..".BIT
IN THE .P.-REGISTER."..$..."..GUESS WHI
CH ONE?!!":.63000..$..."."P$:.P(0),14:.P
(1),22:.P(3),2:.P(4),4:.P(5),137.M$...P(
6),26:.P(7),3..$H..SD$"YOU BET!"..%R..".
IF THE .I. BIT IS CLEAR(=0) THE 6510".7%
...".WILL .LET. ITSELF BE INTERRUPTED.".
]%...".IF I=1 HOWEVER IT WILL .NOT.!".X%
..."..SEI. WILL SET I=1"..%..."..CLI. WI
LL CLEAR I=0". %...63000.K%...".SO, IF Y
OU WANT THE 6510 TO IGNORE"..%...".INTER
RUPTS (INCLUDING THE POOR GUY"..&"..".BA
NGING ON THE .STOP. KEY!)".E&,..".START
YOUR PROGRAM WITH .SEI. AND,".I&6.."....
TO AVOID ANY VIOLENCE..."..&@..".(EVENTU
ALLY) END IT WITH .CLI..":.63000.B&J..".
.AND THEN THERE ARE SUBROUTINES.:"..&T..
".IF WE WRITE LO-O-ONG MACHINE LANGUAGE"
..'^..".PROGRAMS (USING AN ASSEMBLER SO
WE".E'H..".DON'T HAVE TO ENTER THE HEX B
YTES".N'R..".INTO MEMORY BUT CAN USE ASS
EMBLY"..'|..".LANGUAGE) THEN IT'S CONVEN
IENT TO".C'...".BREAK UP OUR LONG PROGRA
M INTO WEE"..'...".PIECES=SUBROUTINES.".
.(...".QIN BASIC WE'D SAY: .GOSUB 1000."
.3(...".QIN ASSEMBLER WE'D SAY: .JSR $12
34".`(...".QWHICH TRANSLATES TO: .20. .3
4. .12."..(...". IN MACHINE LANGUAGE!":.
63000..(B..".BASIC SUBROUTINES MUST END
IN .RETURN."..(L..".SO THE PROGRAM CAN G
O BACK FROM WHERE"..(V..".IT WAS 'CALLED
'.".()...".IN ASSEMBLER WE END SUBROUTIN
ES WITH".V)..."..RTS.=.R.E.T.URN FROM .S
.UBROUTINE:..".N)..."$1000 .LDA #$00 "..
)..."$1002 .JSR $1234..."..)..."$1005 .-
---- . ."..)..." .----- . .".
X)..." ----- ."..)..." ---
-- ."..*..."$1234 .***** ._.SUBRO
UTINE"..*..." .***** ".F*..."
.RTS ".I*..MS$."THERE..AND":.631
00:.63002.}*..."............"..*..."$100
2 .JSR $1234. "..*..."$1005 .-----
._.".O*..." .----- . ."..*..."
----- ."..+..." ----- .
".&+..."$1234 .***** . . ".A
+..." .***** . .".{+..." .R
TS ...":MS$."BACK AGAIN":.63100:.63
000..+...".JUST ONE MORE COMMAND...":.63
000..+...".":.A$P$..+...SD$".LDA #$D3.":
N$."11010011":.63010:.40110..,..N$."1000
0000":.40120:.63000:PP.300.=,&..SD$"..RO
R.=ROTATE RIGHT":N$."01101001":.63010.[,
+..P(7),32:."......".37)"0"..,,..SD$"...
CARRY BIT REMOVED FOR SAFE KEEPING":.630
00.I,0.."....".17)".....................
.....^";:.P(7),49..,5..40096:."...."CL$:
.CL$..-6..SD$"......A.-REGISTER ROTATED
..INTO CARRY!":.63000.\-:.."........^...
..................................":.A(0
),48..-D..SD$".......CARRY BIT STUFFED I
NTO MSB OF .A..":.63000..-N.."...AND THE
RE'S .ROL. WHICH ALSO"..-X..".INVOLVES T
HE .C.ARRY BIT..":.63000...B..".SUPPOSE
WE WANT TO .JSR $1234".>.L..".BUT ALSO W
ANT TO RETAIN ALL THE NUMBERS".M.V..".IN
THE 6510 REGISTERS, AFTER RETURNING"...
...".FROM THE SUBROUTINE."......".WE CAN
.PUSH. ALL THE REGISTERS ONTO"......".T
HE .STACK. WHICH CONSISTS OF SEVERAL"../
...".MEMORY LOCATIONS IN .RAM...$100-$1F
F.".D/..."..PHA.=PUSH THE A-REGISTER ONT
O THE STACK".|/..."..PHP.=PUSH THE P-REG
ISTER ONTO THE STACK":.63000../...".TO P
USH THE X AND Y REGISTERS WE:".K/F.."..T
XA. .PHA. AND .TYA. .PHA.."../P..".SO..W
E:"..0Z.."..PHA. .PHP. .TXA. .PHA. .TYA.
.PHA". 0...".THEN...JSR $1234.".H0...".
LATER, AFTER .RTS., WE WANT ALL".U0...".
THOSE NUMBERS BACK IN THE REGISTERS."..0
...".SO WE .PULL. THEM FROM THE STACK"..
0...".IN THE .REVERSE ORDER.!!!"..0...".
.PLA. .TAY. .PLA. .TAX. .PLP. .PLA":.630
00..1 ..".THE STACK IS A NICE PLACE TO S
TORE".F1*..".BYTES TEMPORARILY. IF WE WA
NT TO".U14..".EXCHANGE THE CONTENTS OF M
EMORY LOC'NS"..1>..".$2000 AND $3000 THE
N WE CAN:".K1H.."..LDA $2000. .PHA. .LDA
$3000. .STA $2000"..2R.."..PLA. .STA $3
000":MS$." .SLICK!.":.63000:.63100.-2\..
"..YOU. DETERMINE WHAT THE FOLLOWING".N2
F..".SUBROUTINE DOES..":.63000.O2..."..,
6000 A2 00 LDX #$00..2..."., 6002 BD
00 04 LDA $0400,X..2..."., 6005 48
PHA.P2..."., 6006 BD 40 05 LDA $0540,X
..2..."., 6009 9D 00 04 STA $0400,X..3..
."., 600C 68 PLA.13..."., 600D 9D
40 05 STA $0540,X.T3..."., 6010 BD A0 04
LDA $04A0,X.O3..."., 6013 48 PHA.
.3A.."., 6014 BD E0 05 LDA $05E0,X..3B..
"., 6017 9D A0 04 STA $04A0,X.P3C.."., 6
01A 68 PLA..3D.."., 601B 9D E0 05
STA $05E0,X..4E.."., 601E E8 INX..
4F.."., 601F D0 E1 CPX #$A0.O4G..".,
6021 D0 DF BNE $6002.J4H.."., 6023 60
RTS..4L.M.6.4096:.I.M.M.35:.K:.I,
K:..I4V..162,0,189,0,4,72,189,64,5,157,0
,4,104,157,64,5,189,160,4..5...72,189,22
4,5,157,160,4,104,157,224,5,232,224,160,
208,223,96.;5..U$."":V$.".":.I.1.WD.1:U$
.U$."*":V$.V$." ":..Z5...BT$".....YOU CA
N TRY IT!"..5...63000:.".";:.I.1.4:.U$:.
:.I.1.4:.V$:...5&.."...............END O
F TUTOR7....".D5+.MS$.".AU REVOIR!."..50
..I.1.10:.6.4096:.T.1.500:.:.:.63100..65
..I.1.10:.Z$:.:.BT$"......SYS6*4096...":
..E6.'.".":.P$:.SD$"QTHE Z-BIT IS SET TO
'1'".X6.'.".IF EVERY BIT OF A 'RESULT'
IS .00..":.63000..6$'.P(6),177:.63000:.S
D$"....";.R6.'."QZ=0 IF A 'RESULT' IS NO
T........ ZERO.":.P(6),176..68'.63000..7
B'.".":.P$:.SD$"AND THE .CARRY. BIT..".6
7L'.".WHERE'S THE CARRY BIT!!":.T.1.10:.
G(14);.[7V'.T1.1.50:.:.G(142);:.T1.1.50:
.:..Y7`'.63000:.P(7),131:.63000:...7 N."
....HERE'S THE SET OF .6510. COMMANDS:".
.7*N."..ADC. .AND. .ASL. .BCC. .BCS. .BE
Q. .BIT. .BMI. .BNE".!84N."..BPL. .BRK.
.BVC. .BVS. .CLC. .CLD. .CLI. .CLV. .CMP
".^8>N."..CPX. .CPY. .DEC. .DEX. .DEY. .
EOR. .INC. .INX. .INY"..8HN."..JMP. .JSR
. .LDA. .LDX. .LDY. .LSR. .NOP. .ORA. .P
HA".X8RN."..PHP. .PLA. .PLP. .ROL. .ROR.
.RTI. .SBC. .SEC. .SED"..9\N."..TXA. .S
TA. .STX. .STY. .TAX. .TAY. .TYA. .TSX.
.TXA".19FN."...AND .TXS.!":.63000.M9PNMS
$."IMPRESSIVE":.63100.Z9ZN.63000:..{9X..
".";:.I.1.17:.CL$:.:.".";:...9...SD$;:.I
.1.15:.CL$:.:.SD$;:..I9 ..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.PP:.:.I.0.6:.A(I.1),32.P:...A(I),E
(J(N$,I.1,1)).48:.TT.1.PP:.:.:.A(7),48:.
.P:...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:..P:...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:.:..0;L..I.
0.7:.Y(I),160:.TT.1.PP:..P;M..Y(I),E(J(N
$,I.1,1)).48:.:..P;...I.0.7:.M(I),160:.T
T.1.PP:...;...M(I),E(J(N$,I.1,1)).48:.:.
..; .I.0.7:.P(I),160:.TT.1.PP:..F;. .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:..2<. .Y(I),B(A(I)):.
:..R<H .I.0.7:.M(I),160:.TT.1.PP:..H<I .
M(I),B(A(I)):.:...<|..I.0.7:.A(I),160:.T
T.1.PP:...<}..A(I),B(X(I)):.:...<...I.0.
7:.M(I),160:.TT.1.PP:..T<...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:..@=...M(I),B(Y(I)):.:..=`.R$.
".................................... .
. . . . . . .."..=A.R$.R$.".............
....................."..=B.A$.".. .A..".
R$:P$."........................P..".R$.$
>C.X$."..... .X..".R$:Y$."..............
.............Y..".R$.R>D.M$."...........
...................M..".R$.U>E.CR$."....
...................."..>F.CC$.".. .A....
.. .. .. .. .. .... .... .
".P>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.8?I.M(I).Y(I).3.W
D:.:C.CRT.7.WD.1.L?J.SD$."..........":CL
$."":.I.1.WD.1:CL$.CL$." ":...?K.BT$."."
:.I.1.24:BT$.BT$.".":..A?L.C$.CR$.".....
......................_CARRY BIT"..?S.ML
$.".....................................
"..@T.BT$.".":.I.1.24:BT$.BT$.".":..]@U.
PT$."...................................
............................"..@V.PT$.PT
$."..............N............M.........
.......============."..@W.PT$.PT$.".....
..........PO..........PO................
"..AX.PT$.BT$.".........................
.......".PT$.".".$AY..G(142)..AC.PP.50.4
AD...LA...BT$CL$;:.TT.1.50:..WA...BT$".R
ETURN. TO CONTINUE";:.TT.1.50:...A...Z$:
.Z$.."".63002..A...Z$:.Z$."".63003..A...
..A"..BT$CL$;:.TT.1.50:...B#..BT$"......
...RETURN TO SEE IT HAPPEN.........";:.T
T.1.50:...B$..Z$:.Z$.."".63012.+B%..Z$:.
Z$."".63013.1B&...EB|..T.1.5:.PT$MS$;.[B
}..PT$" ";.JB~..PT$MS$;:..PB..
.{B...63000..B...SD$;:.T.1.15:.CL$:.:.SD
$;:...BD..63100:.63010:..PB...".";:.I.1.
5:.CL$:.:.".";:...B...60000:.".":.3000..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL