> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 00 00 8F 20 4F 53 49 2D 4F 43 50 20 |....... OSI-OCP |
00000010: 50 52 4F 54 45 58 54 31 CC 00 47 08 0A 00 99 20 |PROTEXT1..G.... |
00000020: 22 93 11 20 46 49 4E 44 20 2F 20 43 48 41 4E 47 |".. FIND / CHANG|
00000030: 45 20 50 52 4F 47 52 41 4D 20 4C 4F 41 44 2D 41 |E PROGRAM LOAD-A|
00000040: 44 44 52 45 53 53 22 00 6F 08 14 00 99 20 22 11 |DDRESS".o.... ".|
00000050: 20 44 49 53 4B 20 55 4E 49 54 20 4E 52 20 28 38 | DISK UNIT NR (8|
00000060: 2D 31 35 29 20 3F A0 38 20 9D 9D 9D 9D 22 3B 00 |-15) ?.8 ....";.|
00000070: 95 08 1E 00 85 20 55 3A 20 8B 20 55 B3 38 20 B0 |..... U: . U.8 .|
00000080: 20 55 B1 31 35 20 A7 20 99 20 22 91 91 91 22 3A | U.15 . . "...":|
00000090: 20 89 20 32 30 00 BB 08 28 00 99 20 22 11 20 44 | . 20...(.. ". D|
000000A0: 49 53 4B 20 44 52 49 56 45 20 4E 52 20 28 30 2F |ISK DRIVE NR (0/|
000000B0: 31 29 20 3F A0 30 9D 9D 9D 22 3B 00 E0 08 32 00 |1) ?.0...";...2.|
000000C0: 85 20 44 3A 20 8B 20 44 B3 30 20 B0 20 44 B1 31 |. D: . D.0 . D.1|
000000D0: 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 34 30 | . . "...": . 40|
000000E0: 00 0F 09 3C 00 99 20 22 11 11 20 50 55 54 20 54 |...<.. ".. PUT T|
000000F0: 41 52 47 45 54 20 44 49 53 4B 20 49 4E 20 55 4E |ARGET DISK IN UN|
00000100: 49 54 22 3B 55 3B 22 44 52 49 56 45 22 3B 44 00 |IT";U;"DRIVE";D.|
00000110: 37 09 46 00 99 20 22 20 54 48 45 4E 20 50 52 45 |7.F.. " THEN PRE|
00000120: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00000130: 4E 54 49 4E 55 45 22 00 4E 09 50 00 A1 20 58 24 |NTINUE".N.P.. X$|
00000140: 3A 20 8B 20 58 24 B2 22 22 20 A7 20 38 30 00 75 |: . X$."" . 80.u|
00000150: 09 5A 00 99 20 22 93 11 20 45 4E 54 45 52 20 50 |.Z.. ".. ENTER P|
00000160: 52 4F 47 52 41 4D 2D 4E 41 4D 45 20 28 4F 52 20 |ROGRAM-NAME (OR |
00000170: 45 4E 44 29 22 00 9E 09 64 00 85 20 22 20 3F 20 |END)"...d.. " ? |
00000180: 45 4E 44 9D 9D 9D 9D 9D 22 3B 4E 24 3A 20 8B 20 |END.....";N$: . |
00000190: 4E 24 B2 22 45 4E 44 22 20 A7 20 36 31 30 00 C0 |N$."END" . 610..|
000001A0: 09 6E 00 56 B2 31 36 3A 20 51 B2 33 32 3A 20 46 |.n.V.16: Q.32: F|
000001B0: B2 32 35 36 3A 20 4E 24 B2 C8 28 4E 24 2C 56 29 |.256: N$..(N$,V)|
000001C0: 00 E3 09 78 00 48 24 B2 22 30 31 32 33 34 35 36 |...x.H$."0123456|
000001D0: 37 38 39 41 42 43 44 45 46 22 3A 20 5A 24 B2 C7 |789ABCDEF": Z$..|
000001E0: 28 30 29 00 0C 0A 82 00 54 24 B2 C9 28 C4 28 44 |(0).....T$..(.(D|
000001F0: 29 2C 31 29 3A 20 9F 20 31 2C 55 2C 31 35 2C 22 |),1): . 1,U,15,"|
00000200: 49 22 AA 54 24 3A 20 8D 20 36 32 30 00 30 0A 8C |I".T$: . 620.0..|
00000210: 00 54 24 B2 54 24 AA 22 3A 22 AA 4E 24 3A 20 9F |.T$.T$.":".N$: .|
00000220: 20 32 2C 55 2C 32 2C 54 24 AA 22 2C 50 2C 52 22 | 2,U,2,T$.",P,R"|
00000230: 00 4D 0A 96 00 84 31 2C 45 2C 4D 24 2C 4A 2C 4B |.M....1,E,M$,J,K|
00000240: 3A 20 8B 20 45 B2 30 20 A7 20 32 34 30 00 6D 0A |: . E.0 . 240.m.|
00000250: A0 00 A0 20 31 3A 20 A0 20 32 3A 20 99 20 22 11 |... 1: . 2: . ".|
00000260: 20 46 49 4C 45 3A 20 20 22 3B 4E 24 3B 00 90 0A | FILE: ";N$;...|
00000270: AA 00 8B 20 45 B2 36 32 20 A7 20 99 20 22 20 4E |... E.62 . . " N|
00000280: 4F 54 20 46 4F 55 4E 44 22 3A 20 89 20 32 30 30 |OT FOUND": . 200|
00000290: 00 B7 0A B4 00 8B 20 45 B2 36 34 20 A7 20 99 20 |...... E.64 . . |
000002A0: 22 20 4E 4F 54 20 41 20 50 52 4F 47 52 41 4D 22 |" NOT A PROGRAM"|
000002B0: 3A 20 89 20 32 30 30 00 D6 0A BE 00 99 20 22 11 |: . 200...... ".|
000002C0: 20 44 49 53 4B 20 52 45 41 44 2D 45 52 52 4F 52 | DISK READ-ERROR|
000002D0: 22 3B 45 3A 20 80 00 F0 0A C8 00 81 20 4A B2 31 |";E: ....... J.1|
000002E0: 20 A4 20 32 30 30 30 3A 20 82 3A 20 89 20 39 30 | . 2000: .: . 90|
000002F0: 00 06 0B D2 00 4A B2 B5 28 43 AD 56 29 3A 20 4B |.....J..(C.V): K|
00000300: B2 43 AB 4A AC 56 00 28 0B DC 00 4D 24 B2 4D 24 |.C.J.V.(...M$.M$|
00000310: AA CA 28 48 24 2C 4A AA 31 2C 31 29 AA CA 28 48 |..(H$,J.1,1)..(H|
00000320: 24 2C 4B AA 31 2C 31 29 00 2E 0B E6 00 8E 00 48 |$,K.1,1).......H|
00000330: 0B F0 00 A1 23 32 2C 41 24 2C 42 24 3A 20 8B 20 |....#2,A$,B$: . |
00000340: 53 54 20 A7 20 31 39 30 00 5C 0B FA 00 A0 20 32 |ST . 190.\.... 2|
00000350: 3A 20 A0 20 31 3A 20 4D 24 B2 22 22 00 77 0B 04 |: . 1: M$."".w..|
00000360: 01 41 B2 C6 28 41 24 AA 5A 24 29 3A 20 42 B2 C6 |.A..(A$.Z$): B..|
00000370: 28 42 24 AA 5A 24 29 00 92 0B 0E 01 43 B2 42 3A |(B$.Z$).....C.B:|
00000380: 20 8D 20 32 31 30 3A 20 43 B2 41 3A 20 8D 20 32 | . 210: C.A: . 2|
00000390: 31 30 00 B5 0B 18 01 99 20 22 11 20 43 55 52 52 |10...... ". CURR|
000003A0: 45 4E 54 20 4C 4F 41 44 2D 41 44 44 52 45 53 53 |ENT LOAD-ADDRESS|
000003B0: 20 49 53 3A 22 00 DF 0B 22 01 99 20 22 11 20 48 | IS:"...".. ". H|
000003C0: 45 58 3A 20 20 22 3B 4D 24 3B 22 20 20 20 20 44 |EX: ";M$;" D|
000003D0: 45 43 49 4D 41 4C 3A 20 22 3B 42 AC 46 AA 41 00 |ECIMAL: ";B.F.A.|
000003E0: 10 0C 2C 01 99 20 22 11 20 57 41 4E 54 20 54 4F |..,.. ". WANT TO|
000003F0: 20 43 48 41 4E 47 45 20 4C 4F 41 44 2D 41 44 44 | CHANGE LOAD-ADD|
00000400: 52 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B |R (Y/N) ? Y...";|
00000410: 00 29 0C 36 01 85 20 58 24 3A 20 8B 20 58 24 B3 |.).6.. X$: . X$.|
00000420: B1 22 59 22 20 A7 20 39 30 00 5F 0C 40 01 99 20 |."Y" . 90._.@.. |
00000430: 22 11 20 4E 45 57 20 4C 4F 41 44 2D 41 44 44 52 |". NEW LOAD-ADDR|
00000440: 20 28 44 45 43 49 4D 41 4C 29 20 3F 20 30 20 20 | (DECIMAL) ? 0 |
00000450: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 | .........";.|
00000460: 89 0C 4A 01 85 20 50 3A 20 8B 20 50 B3 30 20 B0 |..J.. P: . P.0 .|
00000470: 20 50 B1 36 35 35 33 35 20 A7 20 99 20 22 91 91 | P.65535 . . "..|
00000480: 91 22 3A 20 89 20 33 32 30 00 B4 0C 54 01 42 B2 |.": . 320...T.B.|
00000490: B5 28 50 AD 46 29 3A 20 41 B2 50 AB 42 AC 46 3A |.(P.F): A.P.B.F:|
000004A0: 20 50 24 B2 C7 28 41 29 AA C7 28 42 29 3A 20 4D | P$..(A)..(B): M|
000004B0: 24 B2 22 22 00 CF 0C 5E 01 43 B2 42 3A 20 8D 20 |$.""...^.C.B: . |
000004C0: 32 31 30 3A 20 43 B2 41 3A 20 8D 20 32 31 30 00 |210: C.A: . 210.|
000004D0: F9 0C 68 01 99 20 22 11 20 48 45 58 3A 20 20 22 |..h.. ". HEX: "|
000004E0: 3B 4D 24 3B 22 20 20 20 20 44 45 43 49 4D 41 4C |;M$;" DECIMAL|
000004F0: 3A 20 22 3B 42 AC 46 AA 41 00 2B 0D 72 01 99 20 |: ";B.F.A.+.r.. |
00000500: 22 11 20 4F 4B 20 54 4F 20 57 52 49 54 45 20 4E |". OK TO WRITE N|
00000510: 45 57 20 4C 4F 41 44 2D 41 44 44 52 20 28 59 2F |EW LOAD-ADDR (Y/|
00000520: 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 44 0D 7C 01 |N) ? Y...";.D.|.|
00000530: 85 20 58 24 3A 20 8B 20 58 24 B3 B1 22 59 22 20 |. X$: . X$.."Y" |
00000540: A7 20 39 30 00 5D 0D 86 01 4A B2 C3 28 4E 24 29 |. 90.]...J..(N$)|
00000550: 3A 20 8B 20 4A B2 56 20 A7 20 34 31 30 00 7C 0D |: . J.V . 410.|.|
00000560: 90 01 81 20 58 B2 4A AA 31 20 A4 20 56 3A 4E 24 |... X.J.1 . V:N$|
00000570: B2 4E 24 AA C7 28 31 36 30 29 3A 82 00 96 0D 9A |.N$..(160):.....|
00000580: 01 9F 20 31 2C 55 2C 31 35 3A 20 9F 20 32 2C 55 |.. 1,U,15: . 2,U|
00000590: 2C 32 2C 22 23 22 00 AB 0D A4 01 8D 20 36 32 30 |,2,"#"...... 620|
000005A0: 3A 20 54 B2 31 38 3A 20 53 B2 31 00 C7 0D AE 01 |: T.18: S.1.....|
000005B0: 98 31 2C 22 55 31 3A 22 3B 32 3B 44 3B 54 3B 53 |.1,"U1:";2;D;T;S|
000005C0: 3A 20 8D 20 36 32 30 00 E4 0D B8 01 98 31 2C 22 |: . 620......1,"|
000005D0: 42 2D 50 3A 22 3B 32 3B 30 3A 20 A1 23 32 2C 41 |B-P:";2;0: .#2,A|
000005E0: 24 2C 42 24 00 04 0E C2 01 54 B2 C6 28 41 24 AA |$,B$.....T..(A$.|
000005F0: 5A 24 29 3A 20 53 B2 C6 28 42 24 AA 5A 24 29 3A |Z$): S..(B$.Z$):|
00000600: 20 48 B2 32 00 1E 0E CC 01 98 31 2C 22 42 2D 50 | H.2......1,"B-P|
00000610: 3A 22 3B 32 3B 48 3A 20 A1 23 32 2C 54 24 00 3D |:";2;H: .#2,T$.=|
00000620: 0E D6 01 43 B2 C6 28 54 24 AA 5A 24 29 3A 20 8B |...C..(T$.Z$): .|
00000630: 20 43 B3 B1 31 33 30 20 A7 20 35 31 30 00 5D 0E | C..130 . 510.].|
00000640: E0 01 A1 23 32 2C 41 24 2C 42 24 3A 20 46 24 B2 |...#2,A$,B$: F$.|
00000650: 22 22 3A 20 81 20 58 B2 31 20 A4 20 56 00 75 0E |"": . X.1 . V.u.|
00000660: EA 01 A1 23 32 2C 54 24 3A 20 46 24 B2 46 24 AA |...#2,T$: F$.F$.|
00000670: 54 24 3A 20 82 00 87 0E F4 01 8B 20 46 24 B2 4E |T$: ....... F$.N|
00000680: 24 20 A7 20 35 33 30 00 9E 0E FE 01 48 B2 48 AA |$ . 530.....H.H.|
00000690: 51 3A 20 8B 20 48 B3 46 20 A7 20 34 36 30 00 A8 |Q: . H.F . 460..|
000006A0: 0E 08 02 89 20 34 33 30 00 C3 0E 12 02 41 B2 C6 |.... 430.....A..|
000006B0: 28 41 24 AA 5A 24 29 3A 20 42 B2 C6 28 42 24 AA |(A$.Z$): B..(B$.|
000006C0: 5A 24 29 00 DF 0E 1C 02 98 31 2C 22 55 31 3A 22 |Z$)......1,"U1:"|
000006D0: 3B 32 3B 44 3B 41 3B 42 3A 20 8D 20 36 32 30 00 |;2;D;A;B: . 620.|
000006E0: F9 0E 26 02 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |..&..1,"B-P:";2;|
000006F0: 32 3A 20 98 32 2C 50 24 3B 00 15 0F 30 02 98 31 |2: .2,P$;...0..1|
00000700: 2C 22 55 32 3A 22 3B 32 3B 44 3B 41 3B 42 3A 20 |,"U2:";2;D;A;B: |
00000710: 8D 20 36 32 30 00 29 0F 3A 02 A0 20 32 3A 20 8D |. 620.).:.. 2: .|
00000720: 20 36 32 30 3A 20 A0 20 31 00 4D 0F 44 02 99 20 | 620: . 1.M.D.. |
00000730: 22 11 20 4C 4F 41 44 2D 41 44 44 52 20 43 48 41 |". LOAD-ADDR CHA|
00000740: 4E 47 45 44 20 46 4F 52 20 22 3B 4E 24 00 7C 0F |NGED FOR ";N$.|.|
00000750: 4E 02 99 20 22 11 20 43 48 41 4E 47 45 20 41 4E |N.. ". CHANGE AN|
00000760: 4F 54 48 45 52 20 50 52 4F 47 52 41 4D 20 28 59 |OTHER PROGRAM (Y|
00000770: 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 94 0F 58 |/N) ? Y...";...X|
00000780: 02 85 20 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 |.. X$: . X$."Y" |
00000790: A7 20 39 30 00 A2 0F 62 02 99 20 22 93 22 3B 3A |. 90...b.. ".";:|
000007A0: 20 80 00 BC 0F 6C 02 84 31 2C 45 2C 4D 24 2C 4A | ....l..1,E,M$,J|
000007B0: 2C 4B 3A 8B 20 45 B2 30 20 A7 20 8E 00 D7 0F 76 |,K:. E.0 . ....v|
000007C0: 02 99 20 22 11 20 45 52 52 4F 52 3A 20 22 3B 45 |.. ". ERROR: ";E|
000007D0: 3B 4D 24 3B 4A 3B 4B 00 E7 0F 80 02 A0 20 32 3A |;M$;J;K...... 2:|
000007E0: 20 A0 20 31 3A 20 80 00 FA 0F BC 02 8F 20 4C 4F | . 1: ....... LO|
000007F0: 41 44 20 41 44 44 52 45 53 53 00 00 00 |AD ADDRESS... |
....... OSI-OCP PROTEXT1L.G.... ".. FIND
/ CHANGE PROGRAM LOAD-ADDRESS".O.... ".
DISK UNIT NR (8-15) ? 8 ....";...... U:
. U.8 . U.15 . . "...": . 20...(.. ". D
ISK DRIVE NR (0/1) ? 0...";...2.. D: . D
.0 . D.1 . . "...": . 40...<.. ".. PUT T
ARGET DISK IN UNIT";U;"DRIVE";D.7.F.. "
THEN PRESS ANY KEY TO CONTINUE".N.P.. X$
: . X$."" . 80.U.Z.. ".. ENTER PROGRAM-N
AME (OR END)"...D.. " ? END.....";N$: .
N$."END" . 610...N.V.16: Q.32: F.256: N$
.H(N$,V)...X.H$."0123456789ABCDEF": Z$.G
(0).....T$.I(D(D),1): . 1,U,15,"I".T$: .
620.0...T$.T$.":".N$: . 2,U,2,T$.",P,R"
.M....1,E,M$,J,K: . E.0 . 240.M. . 1:
2: . ". FILE: ";N$;...... E.62 . . " N
OT FOUND": . 200...... E.64 . . " NOT A
PROGRAM": . 200.V.... ". DISK READ-ERROR
";E: ....H.. J.1 . 2000: .: . 90...R.J..
(C.V): K.C.J.V.(...M$.M$.J(H$,J.1,1).J(H
$,K.1,1).......H....#2,A$,B$: . ST . 190
.\... 2: 1: M$."".W...A.F(A$.Z$): B.F
(B$.Z$).....C.B: . 210: C.A: . 210......
". CURRENT LOAD-ADDRESS IS:"...".. ". H
EX: ";M$;" DECIMAL: ";B.F.A...,.. ".
WANT TO CHANGE LOAD-ADDR (Y/N) ? Y...";
.).6.. X$: . X$.."Y" . 90._.@.. ". NEW L
OAD-ADDR (DECIMAL) ? 0 .........";.
..J.. P: . P.0 . P.65535 . . "...": . 32
0...T.B..(P.F): A.P.B.F: P$.G(A).G(B): M
$."".O.^.C.B: . 210: C.A: . 210...H.. ".
HEX: ";M$;" DECIMAL: ";B.F.A.+.R..
". OK TO WRITE NEW LOAD-ADDR (Y/N) ? Y..
.";.D.|.. X$: . X$.."Y" . 90.]...J.C(N$)
: . J.V . 410.|.... X.J.1 . V:N$.N$.G(16
0):....... 1,U,15: . 2,U,2,"#"...... 620
: T.18: S.1.G....1,"U1:";2;D;T;S: . 620.
.....1,"B-P:";2;0: .#2,A$,B$...B.T.F(A$.
Z$): S.F(B$.Z$): H.2...L..1,"B-P:";2;H:
.#2,T$.=.V.C.F(T$.Z$): . C..130 . 510.].
...#2,A$,B$: F$."": . X.1 . V.U....#2,T$
: F$.F$.T$: ....... F$.N$ . 530.....H.H.
Q: . H.F . 460...... 430.C...A.F(A$.Z$):
B.F(B$.Z$)......1,"U1:";2;D;A;B: . 620.
..&..1,"B-P:";2;2: .2,P$;...0..1,"U2:";2
;D;A;B: . 620.).:. 2: . 620: 1.M.D..
". LOAD-ADDR CHANGED FOR ";N$.|.N.. ". C
HANGE ANOTHER PROGRAM (Y/N) ? Y...";...X
.. X$: . X$."Y" . 90...B.. ".";: ....L..
1,E,M$,J,K:. E.0 . ..W.V.. ". ERROR: ";E
;M$;J;K..... 2: 1: ....... LOAD ADDRE
SS...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL