DISK PEEK 1541
FILE INFORMATION
FILENAME(S): DISK PEEK 1541
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-12-01 02:25:40
APPEARS ON: 1 disk(s)
FILE HASH
5e4d7f7742da29f7f66657e52814255d170405a4f163bd05cb52edaf2547d17a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| INSIDE C DOS 1 | DISK PEEK 1541 | PRG | hedning, shine | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 49 4E 53 49 44 45 20 |..(.... *INSIDE | 00000010: 43 4F 4D 4D 4F 44 4F 52 45 20 44 4F 53 2A 20 2A |COMMODORE DOS* *| 00000020: 50 47 2E 20 32 31 33 2A 00 3F 08 14 00 8F 20 2A |PG. 213*.?.... *| 00000030: 4A 4A 4D 2A 20 20 20 2A 30 34 31 37 38 37 2A 00 |JJM* *041787*.| 00000040: 54 08 64 00 8F 20 31 35 34 31 20 44 49 53 4B 20 |T.d.. 1541 DISK | 00000050: 50 45 45 4B 00 6C 08 6E 00 8F 20 42 59 20 47 45 |PEEK.l.n.. BY GE| 00000060: 52 41 4C 44 20 4E 45 55 46 45 4C 44 00 9D 08 78 |RALD NEUFELD...x| 00000070: 00 43 30 B2 4F 3A 43 32 B2 32 3A 43 37 B2 37 3A |.C0.O:C2.2:C7.7:| 00000080: 43 41 B2 31 30 3A 46 B2 31 35 3A 43 47 B2 31 36 |CA.10:F.15:CG.16| 00000090: 3A 48 4F B2 34 38 3A 48 58 B2 31 32 37 00 AF 08 |:HO.48:HX.127...| 000000A0: 82 00 5A 24 B2 C7 28 30 29 3A 4E 24 B2 22 22 00 |..Z$..(0):N$."".| 000000B0: E1 08 8C 00 4D 24 B2 22 20 12 20 20 20 20 50 52 |....M$." . PR| 000000C0: 45 53 53 3A 20 50 20 54 4F 20 50 41 55 53 45 20 |ESS: P TO PAUSE | 000000D0: 20 20 51 20 54 4F 20 51 55 49 54 20 20 20 20 92 | Q TO QUIT .| 000000E0: 22 00 04 09 96 00 99 22 93 22 A3 39 29 22 50 45 |"......".".9)"PE| 000000F0: 45 4B 20 4F 46 20 31 35 34 31 27 53 20 4D 45 4D |EK OF 1541'S MEM| 00000100: 4F 52 59 22 00 24 09 A0 00 99 A3 39 29 22 B8 B8 |ORY".$.....9)"..| 00000110: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000120: B8 B8 B8 22 00 4B 09 AA 00 99 A3 34 29 22 20 43 |...".K.....4)" C| 00000130: 4F 50 59 52 49 47 48 54 3A 20 47 2E 20 4E 45 55 |OPYRIGHT: G. NEU| 00000140: 46 45 4C 44 2C 20 31 39 38 33 22 00 6A 09 B4 00 |FELD, 1983".j...| 00000150: 99 22 11 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 |.". ONE MOMENT | 00000160: 50 4C 45 41 53 45 2E 2E 2E 22 00 7F 09 BE 00 86 |PLEASE..."......| 00000170: 48 58 24 28 32 35 35 29 2C 48 24 28 31 35 29 00 |HX$(255),H$(15).| 00000180: B3 09 BF 00 81 4B B2 30 A4 39 3A 48 24 28 4B 29 |.....K.0.9:H$(K)| 00000190: B2 C7 28 34 38 AA 4B 29 3A 82 3A 81 4B B2 31 30 |..(48.K):.:.K.10| 000001A0: A4 31 35 3A 48 24 28 4B 29 B2 C7 28 35 35 AA 4B |.15:H$(K)..(55.K| 000001B0: 29 3A 82 00 E1 09 C8 00 81 4A B2 30 A4 46 3A 81 |):.......J.0.F:.| 000001C0: 4B B2 30 A4 46 3A 48 58 24 28 4A AC 31 36 AA 4B |K.0.F:HX$(J.16.K| 000001D0: 29 B2 48 24 28 4A 29 AA 48 24 28 4B 29 3A 82 3A |).H$(J).H$(K):.:| 000001E0: 82 00 EE 09 D2 00 99 22 13 11 11 22 4D 24 00 1C |......."..."M$..| 000001F0: 0A DC 00 99 22 11 20 20 20 49 4E 50 55 54 20 53 |....". INPUT S| 00000200: 54 41 52 54 20 41 44 44 52 45 53 53 20 49 4E 20 |TART ADDRESS IN | 00000210: 48 45 58 41 44 45 43 49 4D 41 4C 22 00 29 0A E6 |HEXADECIMAL".)..| 00000220: 00 9F 31 35 2C 38 2C 31 35 00 3E 0A F0 00 99 22 |..15,8,15.>...."| 00000230: 11 20 24 30 30 30 30 22 3A 99 22 91 22 3B 00 46 |. $0000":.".";.F| 00000240: 0A FA 00 85 48 24 00 7A 0A 04 01 48 4C B2 43 30 |....H$.z...HL.C0| 00000250: 3A 48 48 B2 43 30 3A 81 4B B2 31 A4 32 3A 43 B2 |:HH.C0:.K.1.2:C.| 00000260: C6 28 CA 28 48 24 2C 4B 29 29 AB 48 4F 3A 8B 43 |.(.(H$,K)).HO:.C| 00000270: B1 43 41 A7 43 B2 43 AB 43 37 00 94 0A 0E 01 8B |.CA.C.C.C7......| 00000280: 43 B3 43 30 B0 43 B1 46 A7 99 22 91 91 22 3B 3A |C.C0.C.F.."..";:| 00000290: 89 32 34 30 00 B7 0A 18 01 44 B2 C6 28 CA 28 48 |.240.....D..(.(H| 000002A0: 24 2C 4B AA 32 29 29 AB 48 4F 3A 8B 44 B1 43 41 |$,K.2)).HO:.D.CA| 000002B0: A7 44 B2 44 AB 43 37 00 D1 0A 22 01 8B 44 B3 43 |.D.D.C7..."..D.C| 000002C0: 30 B0 44 B1 46 A7 99 22 91 91 22 3B 3A 89 32 34 |0.D.F.."..";:.24| 000002D0: 30 00 FC 0A 2C 01 48 48 B2 48 48 AA 43 AC 43 47 |0...,.HH.HH.C.CG| 000002E0: AE 28 43 32 AB 4B 29 3A 48 4C B2 48 4C AA 44 AC |.(C2.K):HL.HL.D.| 000002F0: 43 47 AE 28 43 32 AB 4B 29 3A 82 4B 00 09 0B 36 |CG.(C2.K):.K...6| 00000300: 01 99 22 91 22 A3 36 29 3B 00 25 0B 40 01 98 31 |..".".6);.%.@..1| 00000310: 35 2C 22 4D 2D 52 22 C7 28 48 4C 29 C7 28 48 48 |5,"M-R".(HL).(HH| 00000320: 29 C7 28 38 29 00 4D 0B 4A 01 4F 24 B2 22 22 3A |).(8).M.J.O$."":| 00000330: 81 4B B2 43 30 A4 43 37 3A A1 23 31 35 2C 41 24 |.K.C0.C7:.#15,A$| 00000340: 3A 8B 41 24 B2 4E 24 A7 41 24 B2 5A 24 00 7A 0B |:.A$.N$.A$.Z$.z.| 00000350: 54 01 41 B2 C6 28 41 24 29 3A 45 B2 41 AF 48 58 |T.A..(A$):E.A.HX| 00000360: 3A 45 24 B2 22 2E 22 3A 8B 45 B1 33 31 AF 45 B3 |:E$.".":.E.31.E.| 00000370: 39 37 A7 45 24 B2 C7 28 45 29 00 A0 0B 5E 01 4F |97.E$..(E)...^.O| 00000380: 24 B2 4F 24 AA 45 24 3A 99 22 20 22 48 58 24 28 |$.O$.E$:." "HX$(| 00000390: C6 28 41 24 29 29 3B 3A 82 3A 99 22 12 22 4F 24 |.(A$));:.:."."O$| 000003A0: 00 D4 0B 68 01 46 4C B2 30 3A 48 4C B2 48 4C AA |...h.FL.0:HL.HL.| 000003B0: 38 3A 8B 48 4C B1 32 35 35 A7 48 4C B2 48 4C AB |8:.HL.255.HL.HL.| 000003C0: 32 35 36 3A 48 48 B2 48 48 AA 31 3A 46 4C B2 31 |256:HH.HH.1:FL.1| 000003D0: 3A 99 4D 24 00 E9 0B 72 01 8B 48 4C B2 31 32 38 |:.M$...r..HL.128| 000003E0: A7 46 4C B2 31 3A 99 4D 24 00 15 0C 7C 01 99 22 |.FL.1:.M$...|.."| 000003F0: 20 24 22 48 58 24 28 48 48 29 48 58 24 28 48 4C | $"HX$(HH)HX$(HL| 00000400: 29 3B 3A 8B 46 4C B2 31 A7 99 3A 99 22 91 22 3B |);:.FL.1..:.".";| 00000410: 3A 89 32 35 30 00 28 0C 86 01 A1 41 24 3A 8B 41 |:.250.(....A$:.A| 00000420: 24 B2 22 22 89 33 32 30 00 41 0C 90 01 8B 41 24 |$."".320.A....A$| 00000430: B2 22 50 22 A7 99 3A 99 22 91 22 3B 3A 89 32 35 |."P"..:.".";:.25| 00000440: 30 00 49 0C 9A 01 A0 31 35 00 00 00 |0.I....15... |
..(.... *INSIDE COMMODORE DOS* *PG. 213* .?.... *JJM* *041787*.T.D.. 1541 DISK PEEK.L.N.. BY GERALD NEUFELD...X.C0.O:C2 .2:C7.7:CA.10:F.15:CG.16:HO.48:HX.127... ..Z$.G(0):N$."".....M$." . PRESS: P T O PAUSE Q TO QUIT ."......".".9)"PE EK OF 1541'S MEMORY".$. ...9)".......... ...........".K.....4)" COPYRIGHT: G. NEU FELD, 1983".J....". ONE MOMENT PLEASE.. .".....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 ADD RESS IN HEXADECIMAL".)....15,8,15.>...." . $0000":.".";.F....H$.Z...HL.C0:HH.C0:. K.1.2:C.F(J(H$,K)).HO:.C.CA.C.C.C7...... C.C0.C.F.."..";:.240.....D.F(J(H$,K.2)). HO:.D.CA.D.D.C7.Q."..D.C0.D.F.."..";:.24 0...,.HH.HH.C.CG.(C2.K):HL.HL.D.CG.(C2.K ):.K...6..".".6);.%.@..15,"M-R"G(HL)G(HH )G(8).M.J.O$."":.K.C0.C7:.#15,A$:.A$.N$. A$.Z$.Z.T.A.F(A$):E.A.HX:E$.".":.E.31.E. 97.E$.G(E). .^.O$.O$.E$:." "HX$(F(A$));: .:."."O$.T.H.FL.0:HL.HL.8:.HL.255.HL.HL. 256:HH.HH.1:FL.1:.M$...R..HL.128.FL.1:.M $...|.." $"HX$(HH)HX$(HL);:.FL.1..:."."; :.250.(....A$:.A$."".320.A....A$."P"..:. ".";:.250.I... 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL