COPROCESSOR
FILE INFORMATION
FILENAME(S): COPROCESSOR
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-10-20 14:30:01
APPEARS ON: 1 disk(s)
FILE HASH
b23d76a260db4403803997957dc19a92917848296141216d0969828312211e73
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | COPROCESSOR | PRG | Treasure Chest - Klaus Der Suhler | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 05 00 97 35 36 2C 31 36 30 3A 9C 3A |.......56,160:.:| 00000010: 89 32 30 30 37 00 32 08 07 00 51 24 B2 C7 28 33 |.2007.2...Q$..(3| 00000020: 34 29 3A 45 B2 35 36 35 37 36 3A 56 B2 35 33 32 |4):E.56576:V.532| 00000030: 34 38 00 59 08 09 00 99 22 93 8E 11 11 11 50 52 |48.Y....".....PR| 00000040: 45 53 53 20 44 20 46 4F 52 20 44 4F 43 55 4D 45 |ESS D FOR DOCUME| 00000050: 4E 54 41 54 49 4F 4E 2E 22 00 7A 08 0A 00 99 22 |NTATION.".z...."| 00000060: 11 50 52 45 53 53 20 43 20 46 4F 52 20 43 41 4C |.PRESS C FOR CAL| 00000070: 43 55 4C 41 54 49 4F 4E 2E 22 00 94 08 0C 00 A1 |CULATION."......| 00000080: 41 24 3A 8B 41 24 B2 22 43 22 A7 99 22 93 11 22 |A$:.A$."C"..".."| 00000090: 3A 89 31 37 00 A9 08 0D 00 8B 41 24 B2 22 44 22 |:.17......A$."D"| 000000A0: A7 8D 31 30 30 30 3A 89 39 00 BD 08 0E 00 8B 41 |..1000:.9......A| 000000B0: 24 B2 22 52 22 A7 8D 32 30 30 3A 89 39 00 C5 08 |$."R"..200:.9...| 000000C0: 0F 00 89 31 32 00 E9 08 10 00 99 22 93 11 3F 44 |...12......"..?D| 000000D0: 45 56 49 43 45 22 3B 44 3B 22 4E 4F 54 20 50 52 |EVICE";D;"NOT PR| 000000E0: 45 53 45 4E 54 22 3A A0 38 00 12 09 11 00 99 22 |ESENT":.8......"| 000000F0: 11 11 45 4E 54 45 52 20 44 49 53 4B 20 44 52 49 |..ENTER DISK DRI| 00000100: 56 45 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 |VE DEVICE NUMBER| 00000110: 2E 22 00 2D 09 14 00 99 22 11 28 45 4E 54 45 52 |.".-....".(ENTER| 00000120: 20 30 20 54 4F 20 45 58 49 54 2E 29 22 00 44 09 | 0 TO EXIT.)".D.| 00000130: 16 00 99 22 11 20 20 38 91 22 3A 85 44 3A 8B 44 |...". 8.":.D:.D| 00000140: B2 2E A7 80 00 75 09 19 00 8B 44 B1 33 30 B0 44 |.....u....D.30.D| 00000150: B3 34 B0 44 B2 31 35 A7 99 22 11 49 4C 4C 45 47 |.4.D.15..".ILLEG| 00000160: 41 4C 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 |AL DEVICE NUMBER| 00000170: 22 3A 89 31 37 00 AC 09 1B 00 97 31 38 33 2C 36 |":.17......183,6| 00000180: 3A 97 31 38 34 2C 38 3A 97 31 38 35 2C 38 3A 97 |:.184,8:.185,8:.| 00000190: 31 38 36 2C 44 3A 97 31 38 37 2C 35 32 3A 97 31 |186,D:.187,52:.1| 000001A0: 38 38 2C 33 3A 97 38 32 30 2C 33 38 00 C0 09 1C |88,3:.820,38....| 000001B0: 00 97 38 32 34 2C 34 34 3A 97 38 32 35 2C 38 35 |..824,44:.825,85| 000001C0: 00 F0 09 1E 00 97 38 32 31 2C 38 33 3A 97 38 32 |......821,83:.82| 000001D0: 32 2C 38 31 3A 97 38 32 33 2C 38 32 3A 9E 36 35 |2,81:.823,82:.65| 000001E0: 34 37 32 3A 8B C2 28 37 38 33 29 AF 31 A7 31 36 |472:..(783).1.16| 000001F0: 00 0E 0A 1F 00 A0 38 3A 9F 31 35 2C 44 2C 31 35 |......8:.15,D,15| 00000200: 3A 8D 39 30 30 3A 8B 41 B3 32 30 A7 34 30 00 21 |:.900:.A.20.40.!| 00000210: 0A 20 00 8B 41 B2 36 32 B0 41 B2 36 34 A7 34 30 |. ..A.62.A.64.40| 00000220: 30 00 2D 0A 21 00 A0 31 35 3A 89 31 37 00 47 0A |0.-.!..15:.17.G.| 00000230: 28 00 81 49 B2 2E A4 36 37 3A 87 59 3A 97 38 32 |(..I...67:.Y:.82| 00000240: 38 AA 49 2C 59 3A 82 00 66 0A 2D 00 97 31 38 33 |8.I,Y:..f.-..183| 00000250: 2C 31 32 30 3A 97 31 38 37 2C 32 35 35 3A 97 31 |,120:.187,255:.1| 00000260: 38 38 2C 31 39 38 00 7F 0A 32 00 98 31 35 2C 22 |88,198...2..15,"| 00000270: 26 53 51 52 22 3A 97 45 2C 37 3A 99 22 93 22 00 |&SQR":.E,7:.".".| 00000280: B5 0A 41 00 46 B2 2E 3A 99 22 11 11 45 4E 54 45 |..A.F..:."..ENTE| 00000290: 52 20 49 4E 54 45 47 45 52 20 46 52 4F 4D 20 31 |R INTEGER FROM 1| 000002A0: 20 54 4F 20 39 39 20 46 4F 52 20 43 4F 4D 50 55 | TO 99 FOR COMPU| 000002B0: 54 45 52 2E 22 00 DA 0A 42 00 99 22 28 50 52 45 |TER."...B.."(PRE| 000002C0: 53 53 20 52 45 54 55 52 4E 20 46 4F 52 20 4E 4F |SS RETURN FOR NO| 000002D0: 20 4E 55 4D 42 45 52 2E 29 22 00 01 0B 44 00 99 | NUMBER.)"...D..| 000002E0: 22 11 28 45 4E 54 45 52 20 52 20 54 4F 20 52 45 |".(ENTER R TO RE| 000002F0: 53 45 54 20 44 49 53 4B 20 44 52 49 56 45 2E 29 |SET DISK DRIVE.)| 00000300: 22 00 22 0B 46 00 4E 24 B2 22 22 3A 99 3A 85 4E |".".F.N$."":.:.N| 00000310: 24 3A 8B 4E 24 B2 22 52 22 A7 8D 32 30 30 3A 89 |$:.N$."R"..200:.| 00000320: 34 35 00 37 0B 47 00 4E B2 C5 28 4E 24 29 3A 8B |45.7.G.N..(N$):.| 00000330: 4E B1 39 39 A7 37 30 00 48 0B 48 00 8B 4E B3 31 |N.99.70.H.H..N.1| 00000340: A7 46 B2 31 3A 89 37 37 00 53 0B 4B 00 97 31 34 |.F.1:.77.S.K..14| 00000350: 30 2C 4E 00 80 0B 4D 00 99 22 11 11 45 4E 54 45 |0,N...M.."..ENTE| 00000360: 52 20 49 4E 54 45 47 45 52 20 46 52 4F 4D 20 31 |R INTEGER FROM 1| 00000370: 20 54 4F 20 39 39 20 46 4F 52 20 44 4F 53 2E 22 | TO 99 FOR DOS."| 00000380: 00 A6 0B 4E 00 99 22 11 28 50 52 45 53 53 20 52 |...N..".(PRESS R| 00000390: 45 54 55 52 4E 20 46 4F 52 20 4E 4F 20 4E 55 4D |ETURN FOR NO NUM| 000003A0: 42 45 52 2E 29 22 00 BC 0B 50 00 4E B2 2E 3A 99 |BER.)"...P.N..:.| 000003B0: 3A 85 4E 3A 8B 4E B1 39 39 A7 38 30 00 CC 0B 52 |:.N:.N.99.80...R| 000003C0: 00 8B 4E B3 31 A7 8B 46 A7 31 30 30 00 E5 0B 53 |..N.1..F.100...S| 000003D0: 00 99 22 93 11 11 43 41 4C 43 55 4C 41 54 49 4E |.."...CALCULATIN| 000003E0: 47 2E 2E 2E 22 00 FD 0B 54 00 8B 4E B2 B1 31 A7 |G..."...T..N..1.| 000003F0: 97 38 38 38 2C 4E 3A 9E 34 39 36 37 35 00 11 0C |.888,N:.49675...| 00000400: 55 00 8B 4E B3 31 A7 9E 34 39 36 39 33 3A 89 36 |U..N.1..49693:.6| 00000410: 35 00 23 0C 5A 00 8B 46 A7 9E 34 39 35 38 36 3A |5.#.Z..F..49586:| 00000420: 89 36 35 00 32 0C 5F 00 9E 34 39 31 35 32 3A 89 |.65.2._..49152:.| 00000430: 36 35 00 41 0C 64 00 8D 32 30 30 3A A0 31 35 3A |65.A.d..200:.15:| 00000440: 80 00 64 0C C8 00 99 22 93 11 11 11 4A 55 53 54 |..d...."....JUST| 00000450: 20 41 20 53 45 43 4F 4E 44 20 50 4C 45 41 53 45 | A SECOND PLEASE| 00000460: 2E 2E 2E 22 00 71 0C D2 00 98 31 35 2C 22 55 3A |...".q....15,"U:| 00000470: 22 00 81 0C DC 00 81 49 B2 31 A4 33 30 30 30 3A |"......I.1.3000:| 00000480: 82 00 98 0C E6 00 9F 38 2C 44 2C 38 2C 22 26 53 |.......8,D,8,"&S| 00000490: 51 52 22 3A A0 38 3A 8E 00 CC 0C 90 01 99 22 93 |QR":.8:.......".| 000004A0: 11 11 11 54 48 45 52 45 20 49 53 20 4E 4F 20 55 |...THERE IS NO U| 000004B0: 53 52 20 46 49 4C 45 20 4E 41 4D 45 44 20 22 3B |SR FILE NAMED ";| 000004C0: 51 24 3B 22 26 53 51 52 22 3B 51 24 00 FD 0C 9A |Q$;"&SQR";Q$....| 000004D0: 01 99 22 11 4F 4E 20 44 49 53 4B 2E 20 20 50 52 |..".ON DISK. PR| 000004E0: 45 53 53 20 43 20 54 4F 20 43 52 45 41 54 45 20 |ESS C TO CREATE | 000004F0: 53 55 43 48 20 41 20 46 49 4C 45 2E 22 00 19 0D |SUCH A FILE."...| 00000500: A4 01 99 22 11 4F 52 20 50 52 45 53 53 20 58 20 |...".OR PRESS X | 00000510: 54 4F 20 45 58 49 54 2E 22 00 2D 0D AE 01 A1 41 |TO EXIT.".-....A| 00000520: 24 3A 8B 41 24 B2 22 43 22 A7 34 36 30 00 3B 0D |$:.A$."C".460.;.| 00000530: B8 01 8B 41 24 B2 22 58 22 A7 80 00 44 0D C2 01 |...A$."X"...D...| 00000540: 89 34 33 30 00 5C 0D CC 01 9F 38 2C 44 2C 38 2C |.430.\....8,D,8,| 00000550: 22 30 3A 26 53 51 52 2C 55 2C 57 22 00 7D 0D D6 |"0:&SQR,U,W".}..| 00000560: 01 81 49 B2 34 39 37 30 31 A4 35 30 31 32 35 3A |..I.49701.50125:| 00000570: 98 38 2C C7 28 C2 28 49 29 29 3B 3A 82 00 8D 0D |.8,.(.(I));:....| 00000580: E0 01 A0 38 3A 99 22 93 22 3A 89 34 30 00 B1 0D |...8:.".":.40...| 00000590: F4 01 83 31 37 2C 31 37 2C 38 33 2C 38 31 2C 38 |...17,17,83,81,8| 000005A0: 32 2C 33 32 2C 34 30 2C 31 2C 31 2C 34 31 2C 33 |2,32,40,1,1,41,3| 000005B0: 32 00 D4 0D FE 01 83 39 31 2C 37 30 2C 38 32 2C |2......91,70,82,| 000005C0: 37 39 2C 37 37 2C 33 32 2C 36 37 2C 37 39 2C 37 |79,77,32,67,79,7| 000005D0: 37 2C 38 30 00 F6 0D 08 02 83 38 35 2C 38 34 2C |7,80......85,84,| 000005E0: 36 39 2C 38 32 2C 39 33 2C 33 32 2C 36 31 2C 31 |69,82,93,32,61,1| 000005F0: 33 2C 31 33 2C 30 00 1A 0E 12 02 83 31 37 2C 31 |3,13,0......17,1| 00000600: 37 2C 38 33 2C 38 31 2C 38 32 2C 33 32 2C 34 30 |7,83,81,82,32,40| 00000610: 2C 31 2C 31 2C 34 31 2C 33 32 00 3D 0E 1C 02 83 |,1,1,41,32.=....| 00000620: 39 31 2C 37 30 2C 38 32 2C 37 39 2C 37 37 2C 33 |91,70,82,79,77,3| 00000630: 32 2C 36 38 2C 37 39 2C 38 33 2C 39 33 00 5D 0E |2,68,79,83,93.].| 00000640: 26 02 83 33 32 2C 36 31 2C 31 33 2C 31 33 2C 30 |&..32,61,13,13,0| 00000650: 2C 38 35 2C 35 32 2C 35 38 2C 31 2C 30 00 73 0E |,85,52,58,1,0.s.| 00000660: 30 02 83 37 37 2C 34 35 2C 38 32 2C 30 2C 33 2C |0..77,45,82,0,3,| 00000670: 31 32 30 00 84 0E 84 03 84 31 35 2C 41 2C 42 24 |120......15,A,B$| 00000680: 2C 43 2C 59 00 9A 0E 8E 03 8B 41 B3 32 30 B0 41 |,C,Y......A.20.A| 00000690: B2 36 32 B0 41 B2 36 34 A7 8E 00 B0 0E 98 03 99 |.62.A.64........| 000006A0: 3A 99 41 3A 99 3A 99 42 24 3A 99 3A 99 43 2C 59 |:.A:.:.B$:.:.C,Y| 000006B0: 00 B6 0E A2 03 8E 00 E5 0E E8 03 51 24 B2 C7 28 |...........Q$..(| 000006C0: 33 34 29 3A 99 22 93 11 11 50 52 45 53 53 20 53 |34):."...PRESS S| 000006D0: 20 54 4F 20 50 52 49 4E 54 20 54 4F 20 53 43 52 | TO PRINT TO SCR| 000006E0: 45 45 4E 2E 22 00 0A 0F F2 03 99 22 11 50 52 45 |EEN."......".PRE| 000006F0: 53 53 20 50 20 54 4F 20 50 52 49 4E 54 20 54 4F |SS P TO PRINT TO| 00000700: 20 50 52 49 4E 54 45 52 2E 22 00 2A 0F FC 03 A1 | PRINTER.".*....| 00000710: 42 24 3A 8B 42 24 B2 22 50 22 A7 9F 34 2C 34 2C |B$:.B$."P"..4,4,| 00000720: 37 3A 9D 34 3A 89 31 30 35 30 00 3B 0F 06 04 8B |7:.4:.1050.;....| 00000730: 42 24 B2 22 53 22 A7 31 30 35 30 00 45 0F 10 04 |B$."S".1050.E...| 00000740: 89 31 30 32 30 00 58 0F 1A 04 97 56 AA 32 34 2C |.1020.X....V.24,| 00000750: 32 32 3A 99 22 93 22 3B 00 86 0F 24 04 99 22 11 |22:.".";...$..".| 00000760: D4 48 49 53 20 46 49 4C 45 20 44 45 4D 4F 4E 53 |.HIS FILE DEMONS| 00000770: 54 52 41 54 45 53 20 54 48 45 20 55 53 45 20 4F |TRATES THE USE O| 00000780: 46 20 54 48 45 22 00 B3 0F 2E 04 99 22 11 36 35 |F THE"......".65| 00000790: 30 32 20 CD D0 D5 20 49 4E 20 54 48 45 20 31 35 |02 ... IN THE 15| 000007A0: 34 31 20 44 52 49 56 45 20 41 53 20 41 20 4D 41 |41 DRIVE AS A MA| 000007B0: 54 48 22 00 DE 0F 38 04 99 22 11 43 4F 50 52 4F |TH"...8..".COPRO| 000007C0: 43 45 53 53 4F 52 2E 20 20 C1 4E 20 CD CC 20 52 |CESSOR. .N .. R| 000007D0: 4F 55 54 49 4E 45 20 49 4E 20 54 48 45 22 00 0D |OUTINE IN THE"..| 000007E0: 10 42 04 99 22 11 43 4F 4D 50 55 54 45 52 20 43 |.B..".COMPUTER C| 000007F0: 41 4C 43 55 4C 41 54 45 53 20 54 48 45 20 53 51 |ALCULATES THE SQ| 00000800: 55 41 52 45 20 52 4F 4F 54 20 4F 46 22 00 36 10 |UARE ROOT OF".6.| 00000810: 4C 04 99 22 11 41 4E 20 49 4E 54 45 47 45 52 20 |L..".AN INTEGER | 00000820: 28 46 52 4F 4D 20 31 20 54 4F 20 39 39 29 20 54 |(FROM 1 TO 99) T| 00000830: 4F 20 31 31 39 22 00 66 10 56 04 99 22 11 53 49 |O 119".f.V..".SI| 00000840: 47 4E 49 46 49 43 41 4E 54 20 46 49 47 55 52 45 |GNIFICANT FIGURE| 00000850: 53 2E 20 20 C1 20 53 49 4D 49 4C 41 52 20 52 4F |S. . SIMILAR RO| 00000860: 55 54 49 4E 45 22 00 90 10 60 04 99 22 11 49 53 |UTINE"...`..".IS| 00000870: 20 D3 C1 D6 C5 44 20 54 4F 20 44 49 53 4B 20 49 | ....D TO DISK I| 00000880: 4E 20 41 20 46 49 4C 45 20 4E 41 4D 45 44 11 22 |N A FILE NAMED."| 00000890: 00 C1 10 6A 04 99 51 24 3B 22 26 D3 D1 D2 22 3B |...j..Q$;"&...";| 000008A0: 51 24 3B 22 2E 20 20 D4 48 45 20 C4 CF D3 20 41 |Q$;". .HE ... A| 000008B0: 4D 50 45 52 53 41 4E 44 20 43 4F 4D 4D 41 4E 44 |MPERSAND COMMAND| 000008C0: 22 00 F0 10 74 04 99 22 11 49 53 20 54 48 45 4E |"...t..".IS THEN| 000008D0: 20 43 41 4C 4C 45 44 20 54 4F 20 4C 4F 41 44 20 | CALLED TO LOAD | 000008E0: 54 48 45 20 46 49 4C 45 20 49 4E 54 4F 20 41 22 |THE FILE INTO A"| 000008F0: 00 1D 11 7E 04 99 22 11 53 50 45 43 49 46 49 45 |...~..".SPECIFIE| 00000900: 44 20 C4 CF D3 20 42 55 46 46 45 52 20 41 4E 44 |D ... BUFFER AND| 00000910: 20 45 58 45 43 55 54 45 20 54 48 45 22 00 49 11 | EXECUTE THE".I.| 00000920: 88 04 99 22 11 36 35 30 32 20 52 4F 55 54 49 4E |...".6502 ROUTIN| 00000930: 45 20 41 54 20 54 48 45 20 46 49 52 53 54 20 42 |E AT THE FIRST B| 00000940: 59 54 45 2E 20 20 C9 4E 22 00 5A 11 8D 04 8B 42 |YTE. .N".Z....B| 00000950: 24 B2 22 50 22 A7 31 31 39 30 00 7D 11 92 04 99 |$."P".1190.}....| 00000960: 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 D0 |". .| 00000970: D2 C5 D3 D3 20 D2 C5 D4 D5 D2 CE 2E 22 00 95 11 |.... ......."...| 00000980: 9C 04 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 |...A$:.A$...(13)| 00000990: A7 31 31 38 30 00 C5 11 A6 04 99 22 93 11 54 48 |.1180......"..TH| 000009A0: 49 53 20 41 50 50 4C 49 43 41 54 49 4F 4E 2C 20 |IS APPLICATION, | 000009B0: 57 45 20 41 52 45 20 4E 4F 54 20 59 45 54 20 52 |WE ARE NOT YET R| 000009C0: 45 41 44 59 22 00 F5 11 B0 04 99 22 11 46 4F 52 |EADY"......".FOR| 000009D0: 20 54 48 45 20 52 4F 55 54 49 4E 45 2C 20 53 4F | THE ROUTINE, SO| 000009E0: 20 54 48 45 20 46 49 52 53 54 20 42 59 54 45 20 | THE FIRST BYTE | 000009F0: 49 53 20 41 22 00 23 12 BA 04 99 22 11 44 55 4D |IS A".#....".DUM| 00000A00: 4D 59 20 28 D2 D4 D3 29 2E 20 20 D7 48 45 4E 20 |MY (...). .HEN | 00000A10: 57 45 20 57 41 4E 54 20 54 48 45 20 C4 CF D3 20 |WE WANT THE ... | 00000A20: 54 4F 22 00 5D 12 C4 04 99 22 11 43 41 4C 43 55 |TO".]....".CALCU| 00000A30: 4C 41 54 45 2C 20 57 45 20 53 45 4E 44 20 41 20 |LATE, WE SEND A | 00000A40: 22 3B 51 24 3B 22 D5 34 3A 3B C3 C8 D2 24 28 CE |";Q$;".4:;...$(.| 00000A50: 29 22 3B 51 24 3B 22 20 4F 56 45 52 22 00 8A 12 |)";Q$;" OVER"...| 00000A60: CE 04 99 22 11 54 48 45 20 43 4F 4D 4D 41 4E 44 |...".THE COMMAND| 00000A70: 20 43 48 41 4E 4E 45 4C 20 28 31 35 29 2C 20 57 | CHANNEL (15), W| 00000A80: 48 45 52 45 20 CE 20 49 53 22 00 BA 12 D8 04 99 |HERE . IS"......| 00000A90: 22 11 54 48 45 20 41 52 47 55 4D 45 4E 54 20 4F |".THE ARGUMENT O| 00000AA0: 46 20 D3 D1 D2 2E 20 20 D4 48 45 20 D5 34 20 44 |F .... .HE .4 D| 00000AB0: 4F 45 53 20 41 20 C4 CF D3 22 00 E6 12 E2 04 99 |OES A ..."......| 00000AC0: 22 11 CA D3 D2 20 54 4F 20 24 30 35 30 33 20 41 |".... TO $0503 A| 00000AD0: 4E 44 20 50 55 4C 4C 53 20 54 48 45 20 41 52 47 |ND PULLS THE ARG| 00000AE0: 55 4D 45 4E 54 22 00 14 13 EC 04 99 22 11 46 52 |UMENT"......".FR| 00000AF0: 4F 4D 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 42 |OM THE COMMAND B| 00000B00: 55 46 46 45 52 20 28 24 30 32 30 33 29 2E 20 20 |UFFER ($0203). | 00000B10: D4 48 45 22 00 3E 13 F6 04 99 22 11 52 4F 55 54 |.HE".>....".ROUT| 00000B20: 49 4E 45 20 52 45 54 55 52 4E 53 20 31 32 30 20 |INE RETURNS 120 | 00000B30: 43 48 41 52 41 43 54 45 52 53 20 49 4E 22 00 6D |CHARACTERS IN".m| 00000B40: 13 00 05 99 22 11 28 24 30 33 30 30 20 54 4F 20 |....".($0300 TO | 00000B50: 24 30 33 37 37 29 2E 20 20 D4 48 45 59 20 43 41 |$0377). .HEY CA| 00000B60: 4E 20 42 45 20 46 45 54 43 48 45 44 22 00 98 13 |N BE FETCHED"...| 00000B70: 0A 05 99 22 11 57 49 54 48 20 41 20 4D 45 4D 4F |...".WITH A MEMO| 00000B80: 52 59 20 52 45 41 44 20 28 CD 2D D2 29 2E 20 20 |RY READ (.-.). | 00000B90: C9 4E 20 54 48 49 53 22 00 A9 13 0F 05 8B 42 24 |.N THIS"......B$| 00000BA0: B2 22 50 22 A7 31 33 32 30 00 CC 13 14 05 99 22 |."P".1320......"| 00000BB0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 D0 D2 |. ..| 00000BC0: C5 D3 D3 20 D2 C5 D4 D5 D2 CE 2E 22 00 E4 13 1E |... ......."....| 00000BD0: 05 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 |..A$:.A$...(13).| 00000BE0: 31 33 31 30 00 12 14 28 05 99 22 93 11 50 52 4F |1310...(.."..PRO| 00000BF0: 47 52 41 4D 2C 20 54 48 49 53 20 49 53 20 44 4F |GRAM, THIS IS DO| 00000C00: 4E 45 20 49 4E 20 CD CC 2E 20 20 C2 55 54 20 41 |NE IN ... .UT A| 00000C10: 53 22 00 4B 14 32 05 99 22 11 4C 4F 4E 47 20 41 |S".K.2..".LONG A| 00000C20: 53 20 54 48 45 20 22 3B 51 24 3B 22 26 D3 D1 D2 |S THE ";Q$;"&...| 00000C30: 22 3B 51 24 3B 22 20 49 53 20 4F 4E 20 44 49 53 |";Q$;" IS ON DIS| 00000C40: 4B 2C 20 59 4F 55 20 43 41 4E 22 00 74 14 3C 05 |K, YOU CAN".t.<.| 00000C50: 99 22 11 55 53 45 20 49 54 20 46 4F 52 20 D3 D1 |.".USE IT FOR ..| 00000C60: D2 28 CE 29 20 42 59 20 52 55 4E 4E 49 4E 47 20 |.(.) BY RUNNING | 00000C70: 54 48 45 22 00 95 14 46 05 99 22 11 46 4F 4C 4C |THE"...F..".FOLL| 00000C80: 4F 57 49 4E 47 20 C2 C1 D3 C9 C3 20 50 52 4F 47 |OWING ..... PROG| 00000C90: 52 41 4D 3A 22 00 BA 14 50 05 99 22 11 31 30 20 |RAM:"...P..".10 | 00000CA0: CF D0 C5 CE 31 35 2C 38 2C 31 35 2C 22 3B 51 24 |....15,8,15,";Q$| 00000CB0: 3B 22 26 D3 D1 D2 22 3B 51 24 00 ED 14 5A 05 99 |;"&...";Q$...Z..| 00000CC0: 22 11 32 30 20 C9 CE D0 D5 D4 CE 3A D0 D2 C9 CE |".20 ......:....| 00000CD0: D4 23 31 35 2C 22 3B 51 24 3B 22 D5 34 3A 22 3B |.#15,";Q$;".4:";| 00000CE0: 51 24 3B 22 3B C3 C8 D2 24 28 CE 29 22 00 08 15 |Q$;";...$(.)"...| 00000CF0: 64 05 99 22 11 33 30 20 C5 3D 35 36 35 37 36 3A |d..".30 .=56576:| 00000D00: D0 CF CB C5 C5 2C 37 22 00 29 15 6E 05 99 22 11 |.....,7".).n..".| 00000D10: 34 30 20 C9 C6 D0 C5 C5 CB 28 C5 29 C1 CE C4 31 |40 ......(.)...1| 00000D20: 32 38 D4 C8 C5 CE 34 30 22 00 65 15 78 05 99 22 |28....40".e.x.."| 00000D30: 11 35 30 20 D0 D2 C9 CE D4 23 31 35 2C 22 3B 51 |.50 .....#15,";Q| 00000D40: 24 3B 22 CD 2D D2 22 3B 51 24 3B 22 3B C3 C8 D2 |$;".-.";Q$;";...| 00000D50: 24 28 30 29 3B C3 C8 D2 24 28 33 29 3B C3 C8 D2 |$(0);...$(3);...| 00000D60: 24 28 31 22 3B 00 71 15 82 05 99 22 32 30 29 3B |$(1";.q...."20);| 00000D70: 22 00 A1 15 8C 05 99 22 11 11 36 30 20 C6 CF D2 |"......"..60 ...| 00000D80: C9 3D 31 D4 CF 31 32 30 3A C7 C5 D4 23 31 35 2C |.=1..120:...#15,| 00000D90: C1 24 3A D0 D2 C9 CE D4 C1 24 3B 3A CE C5 D8 D4 |.$:......$;:....| 00000DA0: 22 00 B2 15 91 05 8B 42 24 B2 22 50 22 A7 31 34 |"......B$."P".14| 00000DB0: 35 30 00 D5 15 96 05 99 22 11 20 20 20 20 20 20 |50......". | 00000DC0: 20 20 20 20 20 20 20 D0 D2 C5 D3 D3 20 D2 C5 D4 | ..... ...| 00000DD0: D5 D2 CE 2E 22 00 ED 15 A0 05 A1 41 24 3A 8B 41 |...."......A$:.A| 00000DE0: 24 B3 B1 C7 28 31 33 29 A7 31 34 34 30 00 0F 16 |$...(13).1440...| 00000DF0: AA 05 99 22 93 11 37 30 20 D0 D2 C9 CE D4 23 31 |..."..70 .....#1| 00000E00: 35 2C 22 3B 51 24 3B 22 D5 3A 22 3B 51 24 22 00 |5,";Q$;".:";Q$".| 00000E10: 34 16 AF 05 99 22 11 38 30 20 C6 CF D2 C9 3D 31 |4....".80 ....=1| 00000E20: D4 CF 33 30 30 30 3A CE C5 D8 D4 3A C3 CC CF D3 |..3000:....:....| 00000E30: C5 31 35 22 00 69 16 B4 05 99 22 11 11 D5 50 4F |.15".i...."...PO| 00000E40: 4E 20 D2 D5 CE 4E 49 4E 47 20 22 3B 51 24 3B 22 |N ...NING ";Q$;"| 00000E50: C3 CF D0 D2 CF C3 2E C2 C9 CE 22 3B 51 24 3B 22 |..........";Q$;"| 00000E60: 2C 20 49 46 20 59 4F 55 22 00 96 16 BE 05 99 22 |, IF YOU"......"| 00000E70: 11 53 45 4C 45 43 54 20 C3 C1 CC C3 D5 CC C1 D4 |.SELECT ........| 00000E80: C9 CF CE 2C 20 54 48 45 20 44 49 53 4B 20 57 49 |..., THE DISK WI| 00000E90: 4C 4C 20 42 45 22 00 CD 16 C8 05 99 22 11 53 43 |LL BE"......".SC| 00000EA0: 41 4E 4E 45 44 20 46 4F 52 20 41 20 D5 D3 D2 20 |ANNED FOR A ... | 00000EB0: 46 49 4C 45 20 4E 41 4D 45 44 20 22 3B 51 24 3B |FILE NAMED ";Q$;| 00000EC0: 22 26 D3 D1 D2 22 3B 51 24 3B 22 2E 22 00 F9 16 |"&...";Q$;"."...| 00000ED0: D2 05 99 22 11 C9 46 20 49 54 20 49 53 20 4E 4F |..."..F IT IS NO| 00000EE0: 54 20 46 4F 55 4E 44 2C 20 59 4F 55 20 41 52 45 |T FOUND, YOU ARE| 00000EF0: 20 47 49 56 45 4E 20 41 22 00 25 17 DC 05 99 22 | GIVEN A".%...."| 00000F00: 11 43 48 41 4E 43 45 20 54 4F 20 43 52 45 41 54 |.CHANCE TO CREAT| 00000F10: 45 20 4F 4E 45 2E 20 20 D4 48 45 4E 20 59 4F 55 |E ONE. .HEN YOU| 00000F20: 20 41 52 45 22 00 55 17 E6 05 99 22 11 50 52 4F | ARE".U....".PRO| 00000F30: 4D 50 54 45 44 20 46 4F 52 20 4E 55 4D 42 45 52 |MPTED FOR NUMBER| 00000F40: 53 20 54 4F 20 42 45 20 50 52 4F 43 45 53 53 45 |S TO BE PROCESSE| 00000F50: 44 20 42 59 22 00 85 17 F0 05 99 22 11 54 48 45 |D BY"......".THE| 00000F60: 20 43 4F 4D 50 55 54 45 52 20 41 4E 44 20 42 59 | COMPUTER AND BY| 00000F70: 20 C4 CF D3 2E 20 20 D9 4F 55 20 4D 41 59 20 50 | .... .OU MAY P| 00000F80: 52 45 53 53 22 00 B5 17 FA 05 99 22 11 D2 C5 D4 |RESS"......"....| 00000F90: D5 D2 CE 20 46 4F 52 20 CE CF 20 CE D5 CD C2 C5 |... FOR .. .....| 00000FA0: D2 2E 20 20 C9 46 20 59 4F 55 20 44 4F 20 53 4F |.. .F YOU DO SO| 00000FB0: 20 46 4F 52 22 00 C6 17 09 06 8B 42 24 B2 22 50 | FOR"......B$."P| 00000FC0: 22 A7 31 35 37 30 00 E9 17 0E 06 99 22 11 20 20 |".1570......". | 00000FD0: 20 20 20 20 20 20 20 20 20 20 20 D0 D2 C5 D3 D3 | .....| 00000FE0: 20 D2 C5 D4 D5 D2 CE 2E 22 00 01 18 18 06 A1 41 | ......."......A| 00000FF0: 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 35 36 |$:.A$...(13).156| 00001000: 30 00 33 18 22 06 99 22 93 11 42 4F 54 48 20 43 |0.3.".."..BOTH C| 00001010: 4F 4D 50 55 54 45 52 20 41 4E 44 20 C4 CF D3 2C |OMPUTER AND ...,| 00001020: 20 54 48 45 20 50 52 4F 47 52 41 4D 20 45 4E 44 | THE PROGRAM END| 00001030: 53 2E 22 00 60 18 27 06 99 22 D4 48 45 20 C4 CF |S.".`.'..".HE ..| 00001040: D3 20 41 52 47 55 4D 45 4E 54 20 49 53 20 53 45 |. ARGUMENT IS SE| 00001050: 4E 54 20 54 4F 20 54 48 45 20 44 52 49 56 45 22 |NT TO THE DRIVE"| 00001060: 00 90 18 2C 06 99 22 11 41 4E 44 20 54 48 45 20 |...,..".AND THE | 00001070: 43 4F 4D 50 55 54 45 52 20 4E 55 4D 42 45 52 20 |COMPUTER NUMBER | 00001080: 49 53 20 50 52 4F 43 45 53 53 45 44 20 42 59 22 |IS PROCESSED BY"| 00001090: 00 C0 18 36 06 99 22 11 54 48 45 20 43 4F 4D 50 |...6..".THE COMP| 000010A0: 55 54 45 52 2E 20 20 D7 48 45 4E 20 54 48 45 20 |UTER. .HEN THE | 000010B0: 43 4F 4D 50 55 54 45 52 20 50 52 49 4E 54 53 22 |COMPUTER PRINTS"| 000010C0: 00 F0 18 40 06 99 22 11 54 48 45 20 52 45 53 55 |...@..".THE RESU| 000010D0: 4C 54 20 54 4F 20 54 48 45 20 53 43 52 45 45 4E |LT TO THE SCREEN| 000010E0: 2C 20 49 54 20 54 48 45 4E 20 57 41 49 54 53 22 |, IT THEN WAITS"| 000010F0: 00 20 19 4A 06 99 22 11 46 4F 52 20 54 48 45 20 |. .J..".FOR THE | 00001100: 53 49 47 4E 41 4C 20 46 52 4F 4D 20 C4 CF D3 20 |SIGNAL FROM ... | 00001110: 28 42 49 54 20 37 20 4F 46 20 24 C4 C4 30 30 22 |(BIT 7 OF $..00"| 00001120: 00 4F 19 54 06 99 22 11 43 4C 45 41 52 29 20 54 |.O.T..".CLEAR) T| 00001130: 4F 20 52 45 41 44 20 54 48 45 20 C4 CF D3 20 52 |O READ THE ... R| 00001140: 45 53 55 4C 54 20 46 52 4F 4D 20 54 48 45 22 00 |ESULT FROM THE".| 00001150: 79 19 5E 06 99 22 11 44 52 49 56 45 20 41 4E 44 |y.^..".DRIVE AND| 00001160: 20 50 52 49 4E 54 20 49 54 20 54 4F 20 54 48 45 | PRINT IT TO THE| 00001170: 20 53 43 52 45 45 4E 2E 22 00 A8 19 60 06 99 22 | SCREEN."...`.."| 00001180: 11 C1 4C 4C 20 46 49 56 45 20 C4 CF D3 20 42 55 |..LL FIVE ... BU| 00001190: 46 46 45 52 53 20 41 52 45 20 55 53 45 44 2C 20 |FFERS ARE USED, | 000011A0: 41 53 20 57 45 4C 4C 22 00 D2 19 62 06 99 22 11 |AS WELL"...b..".| 000011B0: 41 53 20 53 45 56 45 52 41 4C 20 52 45 47 49 53 |AS SEVERAL REGIS| 000011C0: 54 45 52 53 20 49 4E 20 5A 45 52 4F 20 50 41 47 |TERS IN ZERO PAG| 000011D0: 45 22 00 03 1A 63 06 99 22 11 4D 45 4D 4F 52 59 |E"...c..".MEMORY| 000011E0: 2E 20 20 C1 53 20 41 20 52 45 53 55 4C 54 2C 20 |. .S A RESULT, | 000011F0: 49 54 20 49 53 20 4E 45 43 45 53 53 41 52 59 20 |IT IS NECESSARY | 00001200: 54 4F 22 00 14 1A 64 06 8B 42 24 B2 22 50 22 A7 |TO"...d..B$."P".| 00001210: 31 36 33 39 00 36 1A 65 06 99 22 20 20 20 20 20 |1639.6.e.." | 00001220: 20 20 20 20 20 20 20 20 D0 D2 C5 D3 D3 20 D2 C5 | ..... ..| 00001230: D4 D5 D2 CE 2E 22 00 4E 1A 66 06 A1 41 24 3A 8B |.....".N.f..A$:.| 00001240: 41 24 B3 B1 C7 28 31 33 29 A7 31 36 33 38 00 7E |A$...(13).1638.~| 00001250: 1A 67 06 99 22 93 11 52 45 53 45 54 20 54 48 45 |.g.."..RESET THE| 00001260: 20 44 52 49 56 45 20 42 45 46 4F 52 45 20 52 45 | DRIVE BEFORE RE| 00001270: 53 55 4D 49 4E 47 20 4E 4F 52 4D 41 4C 22 00 AC |SUMING NORMAL"..| 00001280: 1A 68 06 99 22 11 44 52 49 56 45 20 4F 50 45 52 |.h..".DRIVE OPER| 00001290: 41 54 49 4F 4E 2E 20 20 D4 48 49 53 20 49 53 20 |ATION. .HIS IS | 000012A0: 44 4F 4E 45 20 42 59 20 54 48 45 22 00 D8 1A 6A |DONE BY THE"...j| 000012B0: 06 99 22 11 50 52 4F 47 52 41 4D 20 4F 4E 20 50 |..".PROGRAM ON P| 000012C0: 52 4F 50 45 52 20 45 58 49 54 2E 20 20 C2 55 54 |ROPER EXIT. .UT| 000012D0: 20 49 46 20 59 4F 55 22 00 09 1B 6D 06 99 22 11 | IF YOU"...m..".| 000012E0: 4E 4F 54 49 43 45 20 4F 44 44 20 52 45 53 55 4C |NOTICE ODD RESUL| 000012F0: 54 53 2C 20 59 4F 55 20 4D 41 59 20 53 45 4C 45 |TS, YOU MAY SELE| 00001300: 43 54 20 D2 20 46 4F 52 22 00 35 1B 6E 06 99 22 |CT . FOR".5.n.."| 00001310: 52 45 53 45 54 20 41 54 20 54 48 45 20 43 4F 4D |RESET AT THE COM| 00001320: 50 55 54 45 52 20 4E 55 4D 42 45 52 20 50 52 4F |PUTER NUMBER PRO| 00001330: 4D 50 54 2E 22 00 61 1B 6F 06 99 22 11 11 CE 4F |MPT.".a.o.."...O| 00001340: 57 20 54 48 45 20 50 55 52 50 4F 53 45 20 4F 46 |W THE PURPOSE OF| 00001350: 20 54 48 49 53 20 46 49 4C 45 20 49 53 20 54 4F | THIS FILE IS TO| 00001360: 22 00 90 1B 72 06 99 22 11 44 45 4D 4F 4E 53 54 |"...r..".DEMONST| 00001370: 52 41 54 45 20 54 48 45 20 54 45 43 48 4E 49 51 |RATE THE TECHNIQ| 00001380: 55 45 20 4F 46 20 55 53 49 4E 47 20 54 48 45 22 |UE OF USING THE"| 00001390: 00 C0 1B 77 06 99 22 11 C4 CF D3 20 CD D0 D5 20 |...w..".... ... | 000013A0: 41 53 20 41 20 43 4F 50 52 4F 43 45 53 53 4F 52 |AS A COPROCESSOR| 000013B0: 2E 20 20 D4 48 45 20 56 41 4C 55 45 20 4F 46 22 |. .HE VALUE OF"| 000013C0: 00 EF 1B 7C 06 99 22 11 43 41 4C 43 55 4C 41 54 |...|..".CALCULAT| 000013D0: 49 4E 47 20 D3 D1 D2 20 28 CE 29 A0 54 4F 20 31 |ING ... (.).TO 1| 000013E0: 31 39 20 53 49 47 4E 49 46 49 43 41 4E 54 22 00 |19 SIGNIFICANT".| 000013F0: 1D 1C 7E 06 99 22 11 46 49 47 55 52 45 53 20 49 |..~..".FIGURES I| 00001400: 53 20 4D 4F 4F 54 2E 20 20 C2 55 54 20 54 48 45 |S MOOT. .UT THE| 00001410: 20 31 35 34 31 20 43 41 4E 20 42 45 22 00 2E 1C | 1541 CAN BE"...| 00001420: 81 06 8B 42 24 B2 22 50 22 A7 31 37 32 30 00 51 |...B$."P".1720.Q| 00001430: 1C 86 06 99 22 11 20 20 20 20 20 20 20 20 20 20 |....". | 00001440: 20 20 20 D0 D2 C5 D3 D3 20 D2 C5 D4 D5 D2 CE 2E | ..... .......| 00001450: 22 00 69 1C 90 06 A1 41 24 3A 8B 41 24 B3 B1 C7 |".i....A$:.A$...| 00001460: 28 31 33 29 A7 31 36 38 30 00 97 1C B8 06 99 22 |(13).1680......"| 00001470: 93 11 47 49 56 45 4E 20 41 4E 59 20 4F 4E 45 20 |..GIVEN ANY ONE | 00001480: 4F 46 20 32 37 20 44 49 46 46 45 52 45 4E 54 20 |OF 27 DIFFERENT | 00001490: 44 45 56 49 43 45 22 00 C6 1C BD 06 99 22 11 4E |DEVICE"......".N| 000014A0: 55 4D 42 45 52 53 20 28 34 20 54 4F 20 33 30 29 |UMBERS (4 TO 30)| 000014B0: 2E 20 20 D3 4F 20 4F 4E 45 20 C3 2D 36 34 20 41 |. .O ONE .-64 A| 000014C0: 4E 44 20 32 37 22 00 F5 1C C2 06 99 22 11 31 35 |ND 27"......".15| 000014D0: 34 31 27 53 20 43 41 4E 20 42 45 20 41 4C 4C 20 |41'S CAN BE ALL | 000014E0: 57 4F 52 4B 49 4E 47 20 4F 4E 20 44 49 46 46 45 |WORKING ON DIFFE| 000014F0: 52 45 4E 54 22 00 22 1D CC 06 99 22 11 50 41 52 |RENT"."....".PAR| 00001500: 54 53 20 4F 46 20 41 20 50 52 4F 42 4C 45 4D 20 |TS OF A PROBLEM | 00001510: 41 54 20 54 48 45 20 53 41 4D 45 20 54 49 4D 45 |AT THE SAME TIME| 00001520: 2E 22 00 46 1D D6 06 99 3A 99 22 11 D4 C1 CC CB |.".F....:.".....| 00001530: 20 C1 C2 CF D5 D4 20 CD D5 CC D4 C9 2D D4 C1 D3 | ..... .....-...| 00001540: CB C9 CE C7 21 22 00 5A 1D DB 06 8B 42 24 B2 22 |....!".Z....B$."| 00001550: 50 22 A7 98 34 3A A0 34 3A 8E 00 86 1D E0 06 99 |P"..4:.4:.......| 00001560: 22 11 11 11 20 20 20 20 20 20 D0 D2 C5 D3 D3 20 |"... ..... | 00001570: D2 C5 D4 D5 D2 CE 20 C6 CF D2 20 CD C1 C9 CE 20 |...... ... .... | 00001580: CD C5 CE D5 2E 22 00 AD 1D EA 06 99 22 11 20 20 |....."......". | 00001590: 20 20 20 20 20 20 20 28 CF D2 20 D0 D2 C5 D3 D3 | (.. .....| 000015A0: 20 D8 20 D4 CF 20 C5 D8 C9 D4 2E 29 22 00 C1 1D | . .. .....)"...| 000015B0: F4 06 A1 41 24 3A 8B 41 24 B2 C7 28 31 33 29 A7 |...A$:.A$..(13).| 000015C0: 8E 00 DD 1D FE 06 8B 41 24 B2 22 58 22 B0 41 24 |.......A$."X".A$| 000015D0: B2 22 D8 22 A7 99 22 93 8E 22 3B 3A 80 00 E7 1D |.".".."..";:....| 000015E0: 08 07 89 31 37 38 30 00 06 1E D7 07 99 22 93 11 |...1780......"..| 000015F0: 11 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 |.ONE MOMENT PLEA| 00001600: 53 45 2E 2E 2E 22 00 1E 1E DA 07 50 B2 C2 28 34 |SE...".....P..(4| 00001610: 35 29 AA 32 35 36 AC C2 28 34 36 29 AB 31 00 2A |5).256..(46).1.*| 00001620: 1E DF 07 50 B2 50 AB 39 37 34 00 49 1E E4 07 81 |...P.P.974.I....| 00001630: 49 B2 2E A4 39 37 34 3A 97 34 39 31 35 32 AA 49 |I...974:.49152.I| 00001640: 2C C2 28 50 AA 49 29 3A 82 00 59 1E E9 07 97 32 |,.(P.I):..Y....2| 00001650: 30 36 34 2C 34 38 3A 89 37 00 00 00 78 A9 01 85 |064,48:.7...x...| 00001660: 8B A6 8C E8 86 96 A0 01 84 02 88 98 18 85 9B 65 |...............e| 00001670: 02 C8 E6 02 E6 02 C5 96 90 F3 88 8C 00 C7 A5 8C |................| 00001680: E5 9B A0 FF C8 E9 0A B0 FB 69 0A 8D 02 C8 C8 88 |.........i......| 00001690: D0 12 8D 01 C8 8C 02 C8 8C 03 C8 A0 03 84 8D 8D |................| 000016A0: 01 C8 D0 0F A9 04 85 8D 8C 01 C8 A9 00 8D 03 C8 |................| 000016B0: 8D 04 C8 A9 00 8D 00 C8 A4 8B A9 00 99 00 C7 C4 |................| 000016C0: 8D B0 59 B9 00 C7 2A E9 09 B0 03 69 0A 18 99 01 |..Y...*....i....| 000016D0: C4 88 10 EF 90 03 A9 01 2C A9 00 8D 00 C4 A6 8B |........,.......| 000016E0: 86 8E E6 8E A6 8E E4 8D F0 0F BD 00 C4 9D 01 C4 |................| 000016F0: CA 10 F7 E8 8E 00 C4 F0 E9 A9 01 9D 00 C4 A9 00 |................| 00001700: 9D 00 C6 CA 10 FA 85 8F 20 27 C1 90 0B A6 8E FE |........ '......| 00001710: 00 C4 E6 8F D0 F2 D0 A0 A6 8F D0 04 A4 8D D0 2E |................| 00001720: 8A A6 8B 9D 00 C7 A6 8E 38 BD 00 C8 FD 00 C5 B0 |........8.......| 00001730: 03 69 0A 18 9D 00 C8 CA 10 EF E8 BD 01 C8 F0 FA |.i..............| 00001740: A0 00 E8 C8 BD 00 C8 99 00 C8 E4 8D D0 F4 A9 00 |................| 00001750: C8 99 00 C8 C8 99 00 C8 84 8D A6 8B E0 77 90 1F |.............w..| 00001760: BD 00 C7 C9 05 90 15 CA BD 00 C7 69 00 C9 0A 90 |...........i....| 00001770: 08 A9 00 9D 00 C7 CA 10 EF 9D 00 C7 4C 79 C1 E6 |............Ly..| 00001780: 8B D0 93 A6 8E BD 00 C6 9D 00 C5 CA 10 F7 A5 8F |................| 00001790: C9 09 F0 3F A6 8E 18 BD 00 C6 7D 00 C4 E9 09 B0 |...?......}.....| 000017A0: 03 69 0A 18 9D 00 C6 CA 10 ED B0 27 A6 8E A5 8F |.i.........'....| 000017B0: 2C A9 00 7D 00 C6 E9 09 B0 03 69 0A 18 9D 00 C6 |,..}......i.....| 000017C0: CA 10 EE A2 FF E8 BD 00 C8 DD 00 C6 D0 06 E4 8E |................| 000017D0: D0 F3 24 18 60 A2 76 BD 00 C7 09 30 9D 00 C7 CA |..$.`.v....0....| 000017E0: 10 F5 AD 00 C7 8D FF C6 A9 2E 8D 00 C7 A5 8C 38 |...............8| 000017F0: A0 FF C8 E9 0A B0 FB 69 0A 09 30 8D 44 03 98 09 |.......i..0.D...| 00001800: 30 8D 43 03 A9 3C A0 03 20 1E AB 20 C1 F5 78 A9 |0.C..<.. .. ..x.| 00001810: 04 2C 00 DD F0 4A 30 F9 A2 0F 20 C9 FF A2 FA BD |.,...J0... .....| 00001820: 80 02 20 D2 FF E8 D0 F7 20 CC FF A2 0F 20 C6 FF |.. ..... .... ..| 00001830: AD 78 03 38 A0 FF C8 E9 0A B0 FB 69 0A 09 30 8D |.x.8.......i..0.| 00001840: 63 03 98 09 30 8D 62 03 A9 5B A0 03 20 1E AB A9 |c...0.b..[.. ...| 00001850: 78 85 C3 20 E4 FF 20 D2 FF C6 C3 D0 F6 20 CC FF |x.. .. ...... ..| 00001860: A9 07 8D 00 DD 58 60 78 A2 0F 20 C9 FF A9 75 A0 |.....X`x.. ...u.| 00001870: 03 20 1E AB 20 CC FF 58 60 A9 03 8D 00 DD 4C 00 |. .. ..X`.....L.| 00001880: C0 02 05 F0 60 78 AD 03 02 85 C4 A9 01 85 C3 A6 |....`x..........| 00001890: C4 E8 86 C1 A0 01 84 C0 88 98 18 85 C2 65 C0 C8 |.............e..| 000018A0: E6 C0 E6 C0 C5 C1 90 F3 88 8C 01 03 A5 C4 E5 C2 |................| 000018B0: A0 FF C8 E9 0A B0 FB 69 0A 8D 82 03 C8 88 D0 12 |.......i........| 000018C0: 8D 81 03 8C 82 03 8C 83 03 A0 03 84 C5 8D 81 03 |................| 000018D0: D0 0F A9 04 85 C5 8C 81 03 A9 00 8D 83 03 8D 84 |................| 000018E0: 03 A9 00 8D 80 03 A4 C3 A9 00 99 01 03 C4 C5 B0 |................| 000018F0: 59 B9 01 03 2A E9 09 B0 03 69 0A 18 99 01 04 88 |Y...*....i......| 00001900: 10 EF 90 03 A9 01 2C A9 00 8D 00 04 A6 C3 86 C6 |......,.........| 00001910: E6 C6 A6 C6 E4 C5 F0 0F BD 00 04 9D 01 04 CA 10 |................| 00001920: F7 E8 8E 00 04 F0 E9 A9 01 9D 00 04 A9 00 9D 00 |................| 00001930: 07 CA 10 FA 85 C7 20 2F 06 90 0B A6 C6 FE 00 04 |...... /........| 00001940: E6 C7 D0 F2 D0 A0 A6 C7 D0 04 A4 C5 D0 2E 8A A6 |................| 00001950: C3 9D 01 03 A6 C6 38 BD 80 03 FD 80 04 B0 03 69 |......8........i| 00001960: 0A 18 9D 80 03 CA 10 EF E8 BD 81 03 F0 FA A0 00 |................| 00001970: E8 C8 BD 80 69 F2 05 B1 03 99 80 03 E4 C5 D0 F4 |....i...........| 00001980: A9 00 C8 99 80 03 C8 99 80 03 84 C5 A6 C3 E0 77 |...............w| 00001990: 90 1F BD 01 03 C9 05 90 15 CA BD 01 03 69 00 C9 |.............i..| 000019A0: 0A 90 08 A9 00 9D 01 03 CA 10 EF 9D 01 03 4C 81 |..............L.| 000019B0: 06 E6 C3 D0 93 A6 C6 BD 00 07 9D 80 04 CA 10 F7 |................| 000019C0: A5 C7 C9 09 F0 3F A6 C6 18 BD 00 07 7D 00 04 E9 |.....?......}...| 000019D0: 09 B0 03 69 0A 18 9D 00 07 CA 10 ED B0 27 A6 C6 |...i.........'..| 000019E0: A5 C7 2C A9 00 7D 00 07 E9 09 B0 03 69 0A 18 9D |..,..}......i...| 000019F0: 00 07 CA 10 EE A2 FF E8 BD 80 03 DD 00 07 D0 06 |................| 00001A00: E4 C6 D0 F3 24 18 60 A2 76 BD 01 03 09 30 9D 01 |....$.`.v....0..| 00001A10: 03 CA 10 F5 AD 01 03 8D 00 03 A9 2E 8D 01 03 AD |................| 00001A20: 00 18 09 02 8D 00 18 58 60 47 00 1A 1A 1A 1A 1A |.......X`G......| 00001A30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00001A40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00001A50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00001A60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00001A70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
.......56,160:.:.2007.2...Q$.G(34):E.565
76:V.53248.Y....".....PRESS D FOR DOCUME
NTATION.".Z....".PRESS C FOR CALCULATION
."......A$:.A$."C".."..":.17......A$."D"
..1000:.9......A$."R"..200:.9.E....12...
..."..?DEVICE";D;"NOT PRESENT": 8......"
..ENTER DISK DRIVE DEVICE NUMBER.".-....
".(ENTER 0 TO EXIT.)".D....". 8.":.D:.D
.....U....D.30.D.4.D.15..".ILLEGAL DEVIC
E NUMBER":.17......183,6:.184,8:.185,8:.
186,D:.187,52:.188,3:.820,38......824,44
:.825,85......821,83:.822,81:.823,82:.65
472:.B(783).1.16..... 8:.15,D,15:.900:.A
.20.40.!. ..A.62.A.64.400.-.!. 15:.17.G.
(..I...67:.Y:.828.I,Y:..F.-..183,120:.18
7,255:.188,198..2..15,"&SQR":.E,7:.".".
..A.F..:."..ENTER INTEGER FROM 1 TO 99 F
OR COMPUTER.".Z.B.."(PRESS RETURN FOR NO
NUMBER.)"...D..".(ENTER R TO RESET DISK
DRIVE.)".".F.N$."":.:.N$:.N$."R"..200:.
45.7.G.N.E(N$):.N.99.70.H.H..N.1.F.1:.77
.S.K..140,N...M.."..ENTER INTEGER FROM 1
TO 99 FOR DOS."...N..".(PRESS RETURN FO
R NO NUMBER.)"...P.N..:.:.N:.N.99.80.L.R
..N.1..F.100...S.."...CALCULATING..."...
T..N..1..888,N:.49675...U..N.1..49693:.6
5.#.Z..F..49586:.65.2._..49152:.65.A.D..
200: 15:..D.H.."....JUST A SECOND PLEASE
...".Q.R..15,"U:"......I.1.3000:.......8
,D,8,"&SQR": 8:..L...."....THERE IS NO U
SR FILE NAMED ";Q$;"&SQR";Q$......".ON D
ISK. PRESS C TO CREATE SUCH A FILE."...
...".OR PRESS X TO EXIT.".-....A$:.A$."C
".460.;....A$."X"...D.B..430.\.L..8,D,8,
"0:&SQR,U,W".}.V..I.49701.50125:.8,G(B(I
));:...... 8:.".":.40......17,17,83,81,8
2,32,40,1,1,41,32.T....91,70,82,79,77,32
,67,79,77,80......85,84,69,82,93,32,61,1
3,13,0......17,17,83,81,82,32,40,1,1,41,
32.=....91,70,82,79,77,32,68,79,83,93.].
&..32,61,13,13,0,85,52,58,1,0.S.0..77,45
,82,0,3,120......15,A,B$,C,Y......A.20.A
.62.A.64........:.A:.:.B$:.:.C,Y........
...Q$.G(34):."...PRESS S TO PRINT TO SCR
EEN."......".PRESS P TO PRINT TO PRINTER
.".*....B$:.B$."P"..4,4,7:.4:.1050.;....
B$."S".1050.E....1020.X....V.24,22:.".";
...$..".THIS FILE DEMONSTRATES THE USE O
F THE"......".6502 MPU IN THE 1541 DRIVE
AS A MATH"...8..".COPROCESSOR. AN ML R
OUTINE IN THE"...B..".COMPUTER CALCULATE
S THE SQUARE ROOT OF".6.L..".AN INTEGER
(FROM 1 TO 99) TO 119".F.V..".SIGNIFICAN
T FIGURES. A SIMILAR ROUTINE"...`..".IS
SAVED TO DISK IN A FILE NAMED.".A.J..Q$
;"&SQR";Q$;". THE DOS AMPERSAND COMMAND
"...T..".IS THEN CALLED TO LOAD THE FILE
INTO A"...~..".SPECIFIED DOS BUFFER AND
EXECUTE THE".I....".6502 ROUTINE AT THE
FIRST BYTE. IN".Z....B$."P".1190.}....
". PRESS RETURN."......A$:.A
$..G(13).1180.E...."..THIS APPLICATION,
WE ARE NOT YET READY"......".FOR THE ROU
TINE, SO THE FIRST BYTE IS A".#....".DUM
MY (RTS). WHEN WE WANT THE DOS TO".].D.
.".CALCULATE, WE SEND A ";Q$;"U4:;CHR$(N
)";Q$;" OVER"...N..".THE COMMAND CHANNEL
(15), WHERE N IS"...X..".THE ARGUMENT O
F SQR. THE U4 DOES A DOS"......".JSR TO
$0503 AND PULLS THE ARGUMENT"......".FR
OM THE COMMAND BUFFER ($0203). THE".>..
..".ROUTINE RETURNS 120 CHARACTERS IN".M
....".($0300 TO $0377). THEY CAN BE FET
CHED"......".WITH A MEMORY READ (M-R).
IN THIS"......B$."P".1320.L....".
PRESS RETURN."......A$:.A$..G(13).
1310...(.."..PROGRAM, THIS IS DONE IN ML
. BUT AS".K.2..".LONG AS THE ";Q$;"&SQR
";Q$;" IS ON DISK, YOU CAN".T.<..".USE I
T FOR SQR(N) BY RUNNING THE"...F..".FOLL
OWING BASIC PROGRAM:"...P..".10 OPEN15,8
,15,";Q$;"&SQR";Q$...Z..".20 INPUTN:PRIN
T#15,";Q$;"U4:";Q$;";CHR$(N)"...D..".30
E=56576:POKEE,7".).N..".40 IFPEEK(E)AND1
28THEN40".E.X..".50 PRINT#15,";Q$;"M-R";
Q$;";CHR$(0);CHR$(3);CHR$(1";.Q...."20);
"......"..60 FORI=1TO120:GET#15,A$:PRINT
A$;:NEXT"......B$."P".1450.U....".
PRESS RETURN."... ..A$:.A$..G(13)
.1440......"..70 PRINT#15,";Q$;"U:";Q$".
4....".80 FORI=1TO3000:NEXT:CLOSE15".I..
.."..UPON RUNNING ";Q$;"COPROC.BIN";Q$;"
, IF YOU"......".SELECT CALCULATION, THE
DISK WILL BE".M.H..".SCANNED FOR A USR
FILE NAMED ";Q$;"&SQR";Q$;"."...R..".IF
IT IS NOT FOUND, YOU ARE GIVEN A".%...."
.CHANCE TO CREATE ONE. THEN YOU ARE".U.
...".PROMPTED FOR NUMBERS TO BE PROCESSE
D BY"......".THE COMPUTER AND BY DOS. Y
OU MAY PRESS"......".RETURN FOR NO NUMBE
R. IF YOU DO SO FOR".F....B$."P".1570..
....". PRESS RETURN."......A
$:.A$..G(13).1560.3.".."..BOTH COMPUTER
AND DOS, THE PROGRAM ENDS.".`.'.."THE DO
S ARGUMENT IS SENT TO THE DRIVE"...,..".
AND THE COMPUTER NUMBER IS PROCESSED BY"
...6..".THE COMPUTER. WHEN THE COMPUTER
PRINTS"...@..".THE RESULT TO THE SCREEN
, IT THEN WAITS". .J..".FOR THE SIGNAL F
ROM DOS (BIT 7 OF $DD00".O.T..".CLEAR) T
O READ THE DOS RESULT FROM THE".Y.^..".D
RIVE AND PRINT IT TO THE SCREEN."...`.."
.ALL FIVE DOS BUFFERS ARE USED, AS WELL"
.R.B..".AS SEVERAL REGISTERS IN ZERO PAG
E"...C..".MEMORY. AS A RESULT, IT IS NE
CESSARY TO"...D..B$."P".1639.6.E.."
PRESS RETURN.".N.F..A$:.A$..G(13
).1638.~.G.."..RESET THE DRIVE BEFORE RE
SUMING NORMAL"...H..".DRIVE OPERATION.
THIS IS DONE BY THE".X.J..".PROGRAM ON P
ROPER EXIT. BUT IF YOU"...M..".NOTICE O
DD RESULTS, YOU MAY SELECT R FOR".5.N.."
RESET AT THE COMPUTER NUMBER PROMPT.".A.
O.."..NOW THE PURPOSE OF THIS FILE IS TO
"...R..".DEMONSTRATE THE TECHNIQUE OF US
ING THE"...W..".DOS MPU AS A COPROCESSOR
. THE VALUE OF"...|..".CALCULATING SQR
(N) TO 119 SIGNIFICANT"...~..".FIGURES I
S MOOT. BUT THE 1541 CAN BE"......B$."P
".1720.Q....". PRESS RETURN.
".I....A$:.A$..G(13).1680......"..GIVEN
ANY ONE OF 27 DIFFERENT DEVICE".F....".N
UMBERS (4 TO 30). SO ONE C-64 AND 27"..
.B..".1541'S CAN BE ALL WORKING ON DIFFE
RENT".".L..".PARTS OF A PROBLEM AT THE S
AME TIME.".F.V..:.".TALK ABOUT MULTI-TAS
KING!".Z....B$."P"..4: 4:......."...
PRESS RETURN FOR MAIN MENU."......".
(OR PRESS X TO EXIT.)".A....A$:.A
$.G(13)........A$."X".A$."X".."..";:....
...1780...W.."...ONE MOMENT PLEASE..."..
.Z.P.B(45).256.B(46).1.*...P.P.974.I....
I...974:.49152.I,B(P.I):..Y....2064,48:.
7...X......... ........E.H....E......G..
.. .H....I...HH.P...H..H..H .....HP.....
..H....H..H....H......GD..Y..G*....I....
D.......,....D..............D..DJ.....D.
.....D....FJ.... 'A......D..P.P ..P...P.
.....G..8..H..E..I....HJ.....H.. ..H..H.
.H..P...H..HH..H.....W....GI...J..GI.I..
.....GJ....GLYA..P.....F..EJ....I..?....
.F}.D....I....FJ...'....,..}.F....I....F
J.......H..FP...P.$.`.V..G.0..GJ....G..F
....G..8 .H....I..0.D...0.C..< . .. A.X.
.,...J0... I...... R..P. L... F..X.8 .H.
...I..0.C...0.B..[ . ...X.C .. R.FCP. L.
.....X`X.. I..U . .. L.X`.....L.....`X..
..D...C.D..A .......BE.H....EA.......D.B
.H....I....H.P.......... ..E...P....E..
...............C.....DE.Y...*....I......
......,......C.F.F.F.E........J.........
.........J...G /....F....GP.P .GP..EP...
C....F8........I.....J........ ..H..I...
.....EP...H...H....E.C.W.....I...J...I.I
........J.....L...CP..F......J...GI..?.F
....}......I.....J...'.F.G,..}......I...
..J...........P..FP.$.`.V....0...J......
...............X`G......................
........................................
........................
> CLICK IMAGE PREVIEW FOR FULL MODAL