00000000: 01 04 16 04 64 00 8F 20 31 35 34 31 20 44 49 53 |....d.. 1541 DIS|
00000010: 4B 20 50 45 45 4B 00 2E 04 6E 00 8F 20 42 59 20 |K PEEK...n.. BY |
00000020: 47 45 52 41 4C 44 20 4E 45 55 46 45 4C 44 00 5F |GERALD NEUFELD._|
00000030: 04 78 00 43 30 B2 30 3A 43 32 B2 32 3A 43 37 B2 |.x.C0.0:C2.2:C7.|
00000040: 37 3A 43 41 B2 31 30 3A 46 B2 31 35 3A 43 47 B2 |7:CA.10:F.15:CG.|
00000050: 31 36 3A 48 4F B2 34 38 3A 48 58 B2 31 32 37 00 |16:HO.48:HX.127.|
00000060: 71 04 82 00 5A 24 B2 C7 28 30 29 3A 4E 24 B2 22 |q...Z$..(0):N$."|
00000070: 22 00 A4 04 8C 00 4D 24 B2 22 20 12 20 20 20 20 |".....M$." . |
00000080: 50 52 45 53 53 3A 20 20 50 20 54 4F 20 50 41 55 |PRESS: P TO PAU|
00000090: 53 45 20 20 20 51 20 54 4F 20 51 55 49 54 20 20 |SE Q TO QUIT |
000000A0: 20 20 92 22 00 C7 04 96 00 99 22 93 22 A3 39 29 | ."......".".9)|
000000B0: 22 50 45 45 4B 20 4F 46 20 31 35 34 31 27 53 20 |"PEEK OF 1541'S |
000000C0: 4D 45 4D 4F 52 59 22 00 E7 04 A0 00 99 A3 39 29 |MEMORY".......9)|
000000D0: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |"...............|
000000E0: B8 B8 B8 B8 B8 B8 22 00 0F 05 AA 00 99 A3 34 29 |......".......4)|
000000F0: 22 20 20 43 4F 50 59 52 49 47 48 54 3A 20 47 2E |" COPYRIGHT: G.|
00000100: 20 4E 45 55 46 45 4C 44 2C 20 31 39 38 33 22 00 | NEUFELD, 1983".|
00000110: 36 05 B4 00 99 22 11 20 20 20 20 20 20 20 20 4F |6....". O|
00000120: 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 |NE MOMENT PLEASE|
00000130: 20 2E 2E 2E 2E 22 00 4C 05 BE 00 86 20 48 58 24 | ....".L.... HX$|
00000140: 28 32 35 35 29 2C 48 24 28 31 35 29 00 83 05 BF |(255),H$(15)....|
00000150: 00 81 20 4B B2 30 20 A4 20 39 3A 48 24 28 4B 29 |.. K.0 . 9:H$(K)|
00000160: B2 C7 28 34 38 AA 4B 29 3A 82 3A 81 4B B2 31 30 |..(48.K):.:.K.10|
00000170: A4 31 35 3A 48 24 28 4B 29 B2 C7 28 35 35 AA 4B |.15:H$(K)..(55.K|
00000180: 29 3A 82 00 B1 05 C8 00 81 4A B2 30 A4 46 3A 81 |):.......J.0.F:.|
00000190: 4B B2 30 A4 46 3A 48 58 24 28 4A AC 31 36 AA 4B |K.0.F:HX$(J.16.K|
000001A0: 29 B2 48 24 28 4A 29 AA 48 24 28 4B 29 3A 82 3A |).H$(J).H$(K):.:|
000001B0: 82 00 BE 05 D2 00 99 22 13 11 11 22 4D 24 00 EB |......."..."M$..|
000001C0: 05 DC 00 99 22 11 20 20 49 4E 50 55 54 20 53 54 |....". INPUT ST|
000001D0: 41 52 54 20 41 44 44 52 45 53 53 20 49 4E 20 48 |ART ADDRESS IN H|
000001E0: 45 58 41 44 45 43 49 4D 41 4C 22 00 F9 05 E6 00 |EXADECIMAL".....|
000001F0: 9F 20 31 35 2C 38 2C 31 35 00 0E 06 F0 00 99 22 |. 15,8,15......"|
00000200: 11 20 24 30 30 30 30 22 3A 99 22 91 22 3B 00 17 |. $0000":.".";..|
00000210: 06 FA 00 85 20 48 24 00 4B 06 04 01 48 4C B2 43 |.... H$.K...HL.C|
00000220: 30 3A 48 48 B2 43 30 3A 81 4B B2 31 A4 32 3A 43 |0:HH.C0:.K.1.2:C|
00000230: B2 C6 28 CA 28 48 24 2C 4B 29 29 AB 48 4F 3A 8B |..(.(H$,K)).HO:.|
00000240: 43 B1 43 41 A7 43 B2 43 AB 43 37 00 69 06 0E 01 |C.CA.C.C.C7.i...|
00000250: 8B 20 43 B3 43 30 20 B0 20 43 B1 46 20 A7 99 22 |. C.C0 . C.F .."|
00000260: 91 91 22 3B 3A 89 32 34 30 00 8C 06 18 01 44 B2 |..";:.240.....D.|
00000270: C6 28 CA 28 48 24 2C 4B AA 32 29 29 AB 48 4F 3A |.(.(H$,K.2)).HO:|
00000280: 8B 44 B1 43 41 A7 44 B2 44 AB 43 37 00 AA 06 22 |.D.CA.D.D.C7..."|
00000290: 01 8B 20 44 B3 43 30 20 B0 20 44 B1 46 20 A7 99 |.. D.C0 . D.F ..|
000002A0: 22 91 91 22 3B 3A 89 32 34 30 00 D5 06 2C 01 48 |"..";:.240...,.H|
000002B0: 48 B2 48 48 AA 43 AC 43 47 AE 28 43 32 AB 4B 29 |H.HH.C.CG.(C2.K)|
000002C0: 3A 48 4C B2 48 4C AA 44 AC 43 47 AE 28 43 32 AB |:HL.HL.D.CG.(C2.|
000002D0: 4B 29 3A 82 4B 00 E2 06 36 01 99 22 91 22 A3 36 |K):.K...6..".".6|
000002E0: 29 3B 00 FE 06 40 01 98 31 35 2C 22 4D 2D 52 22 |);...@..15,"M-R"|
000002F0: C7 28 48 4C 29 C7 28 48 48 29 C7 28 38 29 00 28 |.(HL).(HH).(8).(|
00000300: 07 4A 01 4F 24 B2 22 22 3A 81 20 4B B2 43 30 A4 |.J.O$."":. K.C0.|
00000310: 43 37 3A A1 23 31 35 2C 41 24 3A 8B 20 41 24 B2 |C7:.#15,A$:. A$.|
00000320: 4E 24 A7 41 24 B2 5A 24 00 55 07 54 01 41 B2 C6 |N$.A$.Z$.U.T.A..|
00000330: 28 41 24 29 3A 45 B2 41 AF 48 58 3A 45 24 B2 22 |(A$):E.A.HX:E$."|
00000340: 2E 22 3A 8B 45 B1 33 31 AF 45 B3 39 37 A7 45 24 |.":.E.31.E.97.E$|
00000350: B2 C7 28 45 29 00 7C 07 5E 01 4F 24 B2 4F 24 AA |..(E).|.^.O$.O$.|
00000360: 45 24 3A 99 22 20 22 48 58 24 28 C6 28 41 24 29 |E$:." "HX$(.(A$)|
00000370: 29 3B 3A 82 3A 99 22 20 12 22 4F 24 00 B0 07 68 |);:.:." ."O$...h|
00000380: 01 46 4C B2 30 3A 48 4C B2 48 4C AA 38 3A 8B 48 |.FL.0:HL.HL.8:.H|
00000390: 4C B1 32 35 35 A7 48 4C B2 48 4C AB 32 35 36 3A |L.255.HL.HL.256:|
000003A0: 48 48 B2 48 48 AA 31 3A 46 4C B2 31 3A 99 4D 24 |HH.HH.1:FL.1:.M$|
000003B0: 00 C8 07 72 01 8B 20 48 4C B2 31 32 38 20 A7 20 |...r.. HL.128 . |
000003C0: 46 4C B2 31 3A 99 4D 24 00 F4 07 7C 01 99 22 20 |FL.1:.M$...|.." |
000003D0: 24 22 48 58 24 28 48 48 29 48 58 24 28 48 4C 29 |$"HX$(HH)HX$(HL)|
000003E0: 3B 3A 8B 46 4C B2 31 A7 99 3A 99 22 91 22 3B 3A |;:.FL.1..:.".";:|
000003F0: 89 32 35 30 00 0A 08 86 01 A1 20 41 24 3A 8B 20 |.250...... A$:. |
00000400: 41 24 B2 22 22 89 20 33 32 30 00 24 08 90 01 8B |A$."". 320.$....|
00000410: 20 41 24 B2 22 50 22 A7 99 3A 99 22 91 22 3B 3A | A$."P"..:.".";:|
00000420: 89 32 35 30 00 2C 08 9A 01 A0 31 35 00 00 00 |.250.,....15... |
....D.. 1541 DISK PEEK...N.. BY GERALD N
EUFELD._.X.C0.0:C2.2:C7.7:CA.10:F.15:CG.
16:HO.48:HX.127.Q...Z$.G(0):N$."".....M$
." . PRESS: P TO PAUSE Q TO QUIT
.".G....".".9)"PEEK OF 1541'S MEMORY".
.. ...9)".....................".......4)
" COPYRIGHT: G. NEUFELD, 1983".6....".
ONE MOMENT PLEASE ....".L.... HX$
(255),H$(15)...... K.0 . 9:H$(K).G(48.K)
:.:.K.10.15:H$(K).G(55.K):....H..J.0.F:.
K.0.F:HX$(J.16.K).H$(J).H$(K):.:....R.."
..."M$......". INPUT START ADDRESS IN H
EXADECIMAL"...... 15,8,15......". $0000"
:.".";...... H$.K...HL.C0:HH.C0:.K.1.2:C
.F(J(H$,K)).HO:.C.CA.C.C.C7.I.... C.C0 .
C.F .."..";:.240.....D.F(J(H$,K.2)).HO:
.D.CA.D.D.C7...".. D.C0 . D.F .."..";:.2
40.U.,.HH.HH.C.CG.(C2.K):HL.HL.D.CG.(C2.
K):.K...6..".".6);...@..15,"M-R"G(HL)G(H
H)G(8).(.J.O$."":. K.C0.C7:.#15,A$:. A$.
N$.A$.Z$.U.T.A.F(A$):E.A.HX:E$.".":.E.31
.E.97.E$.G(E).|.^.O$.O$.E$:." "HX$(F(A$)
);:.:." ."O$...H.FL.0:HL.HL.8:.HL.255.HL
.HL.256:HH.HH.1:FL.1:.M$.H.R.. HL.128 .
FL.1:.M$...|.." $"HX$(HH)HX$(HL);:.FL.1.
.:.".";:.250...... A$:. A$."". 320.$....
A$."P"..:.".";:.250.,... 15...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL