00000000: 01 04 17 04 00 00 9C 3A 97 35 39 34 36 38 2C 31 |.......:.59468,1|
00000010: 34 3A 50 4B B2 31 34 00 43 04 01 00 8F 20 52 45 |4:PK.14.C.... RE|
00000020: 41 44 45 52 20 43 4F 50 59 52 49 47 48 54 20 28 |ADER COPYRIGHT (|
00000030: 43 29 20 31 39 37 39 20 47 4C 45 4E 20 46 49 53 |C) 1979 GLEN FIS|
00000040: 48 45 52 00 5F 04 02 00 8F 20 43 55 52 53 4F 52 |HER._.... CURSOR|
00000050: 20 23 31 30 2C 20 4D 41 59 2C 20 31 39 37 39 00 | #10, MAY, 1979.|
00000060: 80 04 03 00 8F 20 42 4F 58 20 35 35 30 2C 20 47 |..... BOX 550, G|
00000070: 4F 4C 45 54 41 2C 20 43 41 2E 20 39 33 30 31 37 |OLETA, CA. 93017|
00000080: 00 86 04 04 00 3A 00 9F 04 0A 00 8F 20 41 53 20 |.....:...... AS |
00000090: 4F 46 20 4A 55 4E 45 20 32 2C 20 31 39 37 39 00 |OF JUNE 2, 1979.|
000000A0: C1 04 5A 00 50 47 24 B2 22 52 45 41 44 45 52 22 |..Z.PG$."READER"|
000000B0: 3A 4E 4D 24 B2 22 31 30 22 3A 8D 20 36 32 30 30 |:NM$."10":. 6200|
000000C0: 30 00 CF 04 64 00 43 52 24 B2 C7 28 31 33 29 00 |0...d.CR$..(13).|
000000D0: DA 04 6E 00 4E B2 31 30 30 30 00 0E 05 C8 00 99 |..n.N.1000......|
000000E0: 22 C6 C9 D2 D3 D4 20 C1 C4 C4 D2 C5 D3 D3 3F 20 |"..... .......? |
000000F0: 22 3B 3A 8D 36 30 30 30 30 3A 4C B2 C5 28 49 4E |";:.60000:L..(IN|
00000100: 24 29 3A 8B 49 4E 24 B2 22 22 A7 32 30 30 00 4F |$):.IN$."".200.O|
00000110: 05 D2 00 8B 4C B3 30 B0 4C B1 36 35 35 33 35 A7 |....L.0.L.65535.|
00000120: 20 99 22 C5 CE D4 C5 D2 20 C1 20 CE D5 CD C2 C5 | ."..... . .....|
00000130: D2 20 C6 D2 CF CD 20 30 20 D4 CF 20 36 35 35 33 |. .... 0 .. 6553|
00000140: 35 2C 20 D0 CC C5 C1 D3 C5 22 3A 89 32 30 30 00 |5, ......":.200.|
00000150: 82 05 DC 00 99 22 CC C1 D3 D4 20 C1 C4 C4 D2 C5 |.....".... .....|
00000160: D3 D3 3F 20 22 3B 3A 8D 36 30 30 30 30 3A 48 B2 |..? ";:.60000:H.|
00000170: C5 28 49 4E 24 29 3A 8B 49 4E 24 B2 22 22 A7 32 |.(IN$):.IN$."".2|
00000180: 32 30 00 C3 05 E6 00 8B 48 B3 30 B0 48 B1 36 35 |20......H.0.H.65|
00000190: 35 33 35 A7 20 99 22 C5 CE D4 C5 D2 20 C1 20 CE |535. ."..... . .|
000001A0: D5 CD C2 C5 D2 20 C6 D2 CF CD 20 30 20 D4 CF 20 |..... .... 0 .. |
000001B0: 36 35 35 33 35 2C 20 D0 CC C5 C1 D3 C5 22 3A 89 |65535, ......":.|
000001C0: 32 32 30 00 FB 05 F0 00 8B 48 B3 4C A7 54 B2 48 |220......H.L.T.H|
000001D0: 3A 48 B2 4C 3A 4C B2 54 3A 99 22 C1 D3 D3 D5 CD |:H.L:L.T:.".....|
000001E0: C9 CE C7 22 3B 4C 3B 22 D4 CF 22 3B 48 3B 22 9D |...";L;"..";H;".|
000001F0: 2C 20 C9 CE D3 D4 C5 C1 C4 2E 22 00 06 06 FA 00 |, ........".....|
00000200: 4E B2 31 30 30 30 00 1D 06 4A 01 99 4E 3B 22 C4 |N.1000...J..N;".|
00000210: C1 D4 C1 22 3B 4C 3B 22 9D 2C 22 3B 48 00 2B 06 |...";L;".,";H.+.|
00000220: 54 01 81 49 B2 4C A4 48 A9 31 36 00 42 06 5E 01 |T..I.L.H.16.B.^.|
00000230: 4E B2 4E AA 31 30 3A 99 4E 3B 22 C4 C1 D4 C1 20 |N.N.10:.N;".... |
00000240: 22 3B 00 56 06 68 01 4B B2 49 AA 31 35 3A 8B 4B |";.V.h.K.I.15:.K|
00000250: B1 48 A7 4B B2 48 00 61 06 72 01 81 4A B2 49 A4 |.H.K.H.a.r..J.I.|
00000260: 4B 00 7E 06 7C 01 54 24 B2 CA 28 C4 28 C2 28 4A |K.~.|.T$..(.(.(J|
00000270: 29 29 2C 32 29 3A 99 54 24 3B 22 2C 22 3B 00 85 |)),2):.T$;",";..|
00000280: 06 86 01 82 4A 00 90 06 90 01 99 20 22 9D 20 22 |....J...... ". "|
00000290: 00 97 06 9A 01 82 49 00 9D 06 F4 01 80 00 A5 06 |......I.........|
000002A0: 56 EA 83 22 22 00 C6 06 60 EA 49 4E 24 B2 22 20 |V..""...`.IN$." |
000002B0: 22 3A 5A 54 B2 54 49 3A 5A 43 B2 32 3A 5A 44 24 |":ZT.TI:ZC.2:ZD$|
000002C0: B2 C7 28 32 30 29 00 DD 06 6A EA A1 5A 24 3A 8B |..(20)...j..Z$:.|
000002D0: 20 5A 24 B3 B1 22 22 A7 36 30 30 37 30 00 0D 07 | Z$.."".60070...|
000002E0: 74 EA 8B 5A 54 B3 B2 54 49 A7 99 CA 28 22 20 A6 |t..ZT..TI...(" .|
000002F0: 22 2C 5A 43 2C 31 29 3B 22 9D 22 3B 3A 5A 43 B2 |",ZC,1);".";:ZC.|
00000300: 33 AB 5A 43 3A 5A 54 B2 54 49 AA 31 35 00 18 07 |3.ZC:ZT.TI.15...|
00000310: 7E EA 89 36 30 30 31 30 00 48 07 A6 EA 5A B2 C6 |~..60010.H...Z..|
00000320: 28 5A 24 29 3A 5A 4C B2 C3 28 49 4E 24 29 3A 8B |(Z$):ZL..(IN$):.|
00000330: 28 5A AF 31 32 37 29 B3 33 32 A7 99 22 20 9D 22 |(Z.127).32.." ."|
00000340: 3B 3A 89 36 30 31 31 30 00 78 07 B0 EA 8B 46 4C |;:.60110.x....FL|
00000350: AF 28 5A AF 31 32 37 29 B1 36 34 AF 28 5A AF 31 |.(Z.127).64.(Z.1|
00000360: 32 37 29 B3 39 31 A7 5A 24 B2 C7 28 28 5A AA 31 |27).91.Z$..((Z.1|
00000370: 32 38 29 AF 32 35 35 29 00 8A 07 BA EA 8B 5A 4C |28).255)......ZL|
00000380: B1 32 35 34 A7 36 30 30 31 30 00 A5 07 C4 EA 49 |.254.60010.....I|
00000390: 4E 24 B2 49 4E 24 AA 5A 24 3A 99 5A 24 3B 5A 44 |N$.IN$.Z$:.Z$;ZD|
000003A0: 24 3B 5A 24 3B 00 C4 07 CE EA 8B 5A B2 31 33 A7 |$;Z$;......Z.13.|
000003B0: 49 4E 24 B2 CA 28 49 4E 24 2C 32 29 3A 99 43 52 |IN$..(IN$,2):.CR|
000003C0: 24 3B 3A 8E 00 F0 07 D8 EA 8B 5A B2 32 30 AF 5A |$;:.......Z.20.Z|
000003D0: 4C B1 31 A7 49 4E 24 B2 C8 28 49 4E 24 2C 5A 4C |L.1.IN$..(IN$,ZL|
000003E0: AB 31 29 3A 99 22 9D 22 3B 3A 89 36 30 30 31 30 |.1):.".";:.60010|
000003F0: 00 23 08 E2 EA 8B 5A B2 31 34 31 A7 5A 24 B2 C7 |.#....Z.141.Z$..|
00000400: 28 AB 32 30 AC 28 5A 4C B1 31 29 29 3A 81 5A B2 |(.20.(ZL.1)):.Z.|
00000410: 32 A4 5A 4C 3A 99 5A 24 3B 3A 82 5A 3A 89 36 30 |2.ZL:.Z$;:.Z:.60|
00000420: 30 30 30 00 2E 08 EC EA 89 36 30 30 31 30 00 3E |000......60010.>|
00000430: 08 28 EB 8B 50 4E B2 30 A7 36 30 32 35 30 00 5A |.(..PN.0.60250.Z|
00000440: 08 32 EB 99 22 11 D0 52 45 53 53 20 12 D2 C5 D4 |.2.."..RESS ....|
00000450: D5 D2 CE 92 20 54 4F 20 22 3B 00 77 08 3C EB 8B |.... TO ";.w.<..|
00000460: 50 4E B2 4C 50 A7 99 22 42 45 47 49 4E 3A 22 3B |PN.LP.."BEGIN:";|
00000470: 3A 89 36 30 32 34 30 00 89 08 46 EB 99 22 43 4F |:.60240...F.."CO|
00000480: 4E 54 49 4E 55 45 3A 22 3B 00 9E 08 50 EB A1 54 |NTINUE:";...P..T|
00000490: 24 3A 8B 54 24 B2 22 22 A7 36 30 32 34 30 00 C0 |$:.T$."".60240..|
000004A0: 08 5A EB 8B 50 4E B2 4C 50 A7 97 35 39 34 36 38 |.Z..PN.LP..59468|
000004B0: 2C 50 4B 3A 9C 3A 99 22 93 22 3B 3A 89 31 30 30 |,PK:.:.".";:.100|
000004C0: 00 03 09 64 EB 50 4E B2 50 4E AA 31 3A 99 22 93 |...d.PN.PN.1:.".|
000004D0: 22 3B 50 47 24 3B 22 20 2D 20 C3 55 52 53 4F 52 |";PG$;" - .URSOR|
000004E0: 20 23 22 3B 4E 4D 24 3B 22 20 20 28 43 29 20 31 | #";NM$;" (C) 1|
000004F0: 39 37 39 20 20 20 20 D0 41 47 45 22 3B 50 4E 3B |979 .AGE";PN;|
00000500: 22 11 22 00 09 09 6E EB 8E 00 2F 09 30 F2 99 22 |"."...n.../.0.."|
00000510: 93 11 22 3B A3 38 29 3B 22 C3 D5 D2 D3 CF D2 20 |..";.8);"...... |
00000520: 23 22 3B 4E 4D 24 3B A3 32 32 29 3B 50 47 24 00 |#";NM$;.22);PG$.|
00000530: 5F 09 35 F2 99 22 11 C3 CF D0 D9 D2 C9 C7 C8 D4 |_.5.."..........|
00000540: 20 28 C3 29 20 31 39 37 39 22 3B A3 32 32 29 3B | (.) 1979";.22);|
00000550: 22 C2 D9 20 C7 CC C5 CE 20 C6 C9 D3 C8 C5 D2 00 |".. .... .......|
00000560: 76 09 37 F2 81 49 B2 31 A4 31 30 3A 99 22 C0 C0 |v.7..I.1.10:."..|
00000570: C0 C0 22 3B 3A 82 00 A3 09 3A F2 99 22 11 D3 C1 |..";:....:.."...|
00000580: D6 C5 20 CD C1 C3 C8 C9 CE C5 20 C3 CF C4 C5 20 |.. ....... .... |
00000590: C1 D3 20 C4 C1 D4 C1 20 D3 D4 C1 D4 C5 CD C5 CE |.. .... ........|
000005A0: D4 D3 2E 00 C6 09 44 F2 99 22 11 11 D7 C1 CE D4 |......D.."......|
000005B0: 20 C4 C9 D2 C5 C3 D4 C9 CF CE D3 3F 20 22 3B 3A | ..........? ";:|
000005C0: 8D 36 30 30 30 30 00 DE 09 4E F2 8B C8 28 49 4E |.60000...N...(IN|
000005D0: 24 2C 31 29 B2 22 59 22 A7 36 32 31 30 30 00 F8 |$,1)."Y".62100..|
000005E0: 09 58 F2 99 22 93 22 3A 97 35 39 34 36 38 2C 50 |.X..".":.59468,P|
000005F0: 4B 3A 9C 3A 89 31 30 30 00 17 0A 94 F2 99 22 93 |K:.:.100......".|
00000600: 22 3A 97 35 39 34 36 38 2C 31 34 3A 4C 50 B2 33 |":.59468,14:LP.3|
00000610: 3A 8D 36 30 32 30 30 00 44 0A 9E F2 99 22 D2 C5 |:.60200.D...."..|
00000620: C1 C4 C5 D2 20 49 53 20 49 4E 54 45 4E 44 45 44 |.... IS INTENDED|
00000630: A0 41 53 A0 41 4E A0 41 44 4A 55 4E 43 54 20 54 |.AS.AN.ADJUNCT T|
00000640: 4F A0 41 4E 00 70 0A A8 F2 99 22 41 53 53 45 4D |O.AN.p...."ASSEM|
00000650: 42 4C 45 52 2C 20 53 4F A0 54 48 41 54 A0 41 53 |BLER, SO.THAT.AS|
00000660: 53 45 4D 42 4C 45 44 A0 43 4F 44 45 A0 43 41 4E |SEMBLED.CODE.CAN|
00000670: 00 95 0A B2 F2 99 22 42 45 A0 53 41 56 45 44 A0 |......"BE.SAVED.|
00000680: 41 4E 44 A0 D0 CF CB C5 44 A0 42 41 43 4B A0 4C |AND.....D.BACK.L|
00000690: 41 54 45 52 2E 00 C4 0A BC F2 99 22 11 D2 C5 C1 |ATER......."....|
000006A0: C4 C5 D2 20 4E 45 45 44 53 A0 54 4F A0 4B 4E 4F |... NEEDS.TO.KNO|
000006B0: 57 A0 54 48 45 A0 46 49 52 53 54 A0 41 4E 44 A0 |W.THE.FIRST.AND.|
000006C0: 4C 41 53 54 00 F0 0A C6 F2 99 22 41 44 44 52 45 |LAST......"ADDRE|
000006D0: 53 53 45 53 A0 4F 46 A0 54 48 45 A0 43 4F 44 45 |SSES.OF.THE.CODE|
000006E0: A0 54 4F A0 42 45 A0 53 41 56 45 44 2E 20 C9 54 |.TO.BE.SAVED. .T|
000006F0: 00 1C 0B D0 F2 99 22 57 49 4C 4C A0 54 48 45 4E |......"WILL.THEN|
00000700: A0 D0 C5 C5 CB 20 41 54 A0 54 48 45 A0 43 4F 44 |..... AT.THE.COD|
00000710: 45 2C 20 41 4E 44 A0 50 52 49 4E 54 00 4A 0B DA |E, AND.PRINT.J..|
00000720: F2 99 22 C4 C1 D4 C1 20 53 54 41 54 45 4D 45 4E |..".... STATEMEN|
00000730: 54 53 A0 43 4F 4E 54 41 49 4E 49 4E 47 A0 49 54 |TS.CONTAINING.IT|
00000740: 2E 20 D4 48 45 A0 C4 C1 D4 C1 00 76 0B E4 F2 99 |. .HE......v....|
00000750: 22 53 54 41 54 45 4D 45 4E 54 53 A0 57 49 4C 4C |"STATEMENTS.WILL|
00000760: A0 42 45 A0 4E 55 4D 42 45 52 45 44 A0 46 52 4F |.BE.NUMBERED.FRO|
00000770: 4D 20 31 30 30 30 00 90 0B EE F2 99 22 4F 4E 2C |M 1000......"ON,|
00000780: 20 47 4F 49 4E 47 A0 55 50 A0 42 59 A0 31 30 2E | GOING.UP.BY.10.|
00000790: 00 BB 0B F8 F2 99 22 11 D4 48 45 A0 45 41 53 49 |......"..HE.EASI|
000007A0: 45 53 54 A0 57 41 59 A0 54 4F 20 55 53 45 A0 D2 |EST.WAY.TO USE..|
000007B0: C5 C1 C4 C5 D2 20 49 53 A0 54 4F 00 E9 0B 02 F3 |..... IS.TO.....|
000007C0: 99 22 4D 41 4B 45 A0 54 48 45 A0 47 45 4E 45 52 |."MAKE.THE.GENER|
000007D0: 41 54 45 44 A0 C4 C1 D4 C1 A0 50 41 52 54 A0 4F |ATED......PART.O|
000007E0: 46 20 D2 C5 C1 C4 C5 D2 2C 00 17 0C 0C F3 99 22 |F ......,......"|
.......:.59468,14:PK.14.C.... READER COP
YRIGHT (C) 1979 GLEN FISHER._.... CURSOR
#10, MAY, 1979...... BOX 550, GOLETA, C
A. 93017.....:...... AS OF JUNE 2, 1979.
A.Z.PG$."READER":NM$."10":. 62000.O.D.CR
$.G(13).Z.N.N.1000...H.."FIRST ADDRESS?
";:.60000:L.E(IN$):.IN$."".200.O.R..L.0.
L.65535. ."ENTER A NUMBER FROM 0 TO 6553
5, PLEASE":.200......"LAST ADDRESS? ";:.
60000:H.E(IN$):.IN$."".220.C....H.0.H.65
535. ."ENTER A NUMBER FROM 0 TO 65535, P
LEASE":.220......H.L.T.H:H.L:L.T:."ASSUM
ING";L;"TO";H;"., INSTEAD.".....N.1000..
.J..N;"DATA";L;".,";H.+.T..I.L.H.16.B.^.
N.N.10:.N;"DATA ";.V.H.K.I.15:.K.H.K.H.A
.R..J.I.K.~.|.T$.J(D(B(J)),2):.T$;",";..
....J...... ". "......I.........V.."".F.
`.IN$." ":ZT.TI:ZC.2:ZD$.G(20)...J..Z$:.
Z$.."".60070...T..ZT..TI..J(" .",ZC,1);
".";:ZC.3.ZC:ZT.TI.15...~..60010.H...Z.F
(Z$):ZL.C(IN$):.(Z.127).32.." .";:.60110
.X....FL.(Z.127).64.(Z.127).91.Z$.G((Z.1
28).255)......ZL.254.60010...D.IN$.IN$.Z
$:.Z$;ZD$;Z$;.D.N..Z.13.IN$.J(IN$,2):.CR
$;:....X..Z.20.ZL.1.IN$.H(IN$,ZL.1):."."
;:.60010.#....Z.141.Z$.G(.20.(ZL.1)):.Z.
2.ZL:.Z$;:.Z:.60000......60010.>.(..PN.0
.60250.Z.2..".PRESS .RETURN. TO ";.W.<..
PN.LP.."BEGIN:";:.60240...F.."CONTINUE:"
;...P..T$:.T$."".60240...Z..PN.LP..59468
,PK:.:.".";:.100...D.PN.PN.1:.".";PG$;"
- CURSOR #";NM$;" (C) 1979 PAGE";PN;
"."...N.../.0.."..";.8);"CURSOR #";NM$;.
22);PG$._.5..".COPYRIGHT (C) 1979";.22);
"BY GLEN FISHER.V.7..I.1.10:."....";:...
.:..".SAVE MACHINE CODE AS DATA STATEMEN
TS..F.D.."..WANT DIRECTIONS? ";:.60000..
.N..H(IN$,1)."Y".62100...X..".":.59468,P
K:.:.100......".":.59468,14:LP.3:.60200.
D...."READER IS INTENDED AS AN ADJUNCT T
O AN.P...."ASSEMBLER, SO THAT ASSEMBLED
CODE CAN......"BE SAVED AND POKED BACK L
ATER..D....".READER NEEDS TO KNOW THE FI
RST AND LAST...F.."ADDRESSES OF THE CODE
TO BE SAVED. IT...P.."WILL THEN PEEK AT
THE CODE, AND PRINT.J.Z.."DATA STATEMEN
TS CONTAINING IT. THE DATA.V...."STATEME
NTS WILL BE NUMBERED FROM 1000......"ON,
GOING UP BY 10.......".THE EASIEST WAY
TO USE READER IS TO......"MAKE THE GENER
ATED DATA PART OF READER,......"
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL