> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 64 00 99 22 93 11 11 05 4E 41 4D 45 |..).d.."....NAME|
00000010: 20 4F 46 20 50 52 4F 47 52 41 4D 20 54 4F 20 4C | OF PROGRAM TO L|
00000020: 4F 41 44 22 3A 85 50 4E 24 00 4A 08 6E 00 85 20 |OAD":.PN$.J.n.. |
00000030: 22 4E 41 4D 45 20 4F 46 20 42 4F 4F 54 20 50 52 |"NAME OF BOOT PR|
00000040: 4F 47 52 41 4D 22 3B 42 4E 24 00 73 08 78 00 85 |OGRAM";BN$.s.x..|
00000050: 20 22 4C 4F 43 41 54 49 4F 4E 20 54 4F 20 4A 55 | "LOCATION TO JU|
00000060: 4D 50 20 41 46 54 45 52 20 4C 4F 41 44 22 3B 4C |MP AFTER LOAD";L|
00000070: 4F 43 24 00 91 08 82 00 8B 20 4C 4F 43 24 B2 22 |OC$...... LOC$."|
00000080: 22 20 A7 20 42 41 53 49 43 B2 31 3A 89 20 31 36 |" . BASIC.1:. 16|
00000090: 30 00 B3 08 8C 00 8B 20 C8 28 4C 4F 43 24 2C 31 |0...... .(LOC$,1|
000000A0: 29 B2 22 24 22 20 A7 20 8D 20 37 36 30 3A 89 20 |)."$" . . 760:. |
000000B0: 31 36 30 00 C3 08 96 00 4C 4F 43 B2 C5 28 4C 4F |160.....LOC..(LO|
000000C0: 43 24 29 00 EA 08 A0 00 85 20 22 4B 49 4C 4C 20 |C$)...... "KILL |
000000D0: 52 55 4E 53 54 4F 50 2F 52 45 53 54 4F 52 45 20 |RUNSTOP/RESTORE |
000000E0: 28 59 2F 4E 29 22 3B 52 4E 24 00 FB 08 AA 00 52 |(Y/N)";RN$.....R|
000000F0: 4E 24 B2 C8 28 52 4E 24 2C 31 29 00 1D 09 B4 00 |N$..(RN$,1).....|
00000100: 8B 20 A8 20 28 52 4E 24 B2 22 59 22 20 B0 20 52 |. . (RN$."Y" . R|
00000110: 4E 24 B2 22 4E 22 29 20 A7 20 31 36 30 00 2F 09 |N$."N") . 160./.|
00000120: BE 00 9F 20 31 35 2C 38 2C 31 35 2C 22 49 22 00 |... 15,8,15,"I".|
00000130: 4B 09 C8 00 9F 20 38 2C 38 2C 38 2C 22 30 3A 22 |K.... 8,8,8,"0:"|
00000140: AA 42 4E 24 AA 22 2C 50 2C 57 22 00 5F 09 D2 00 |.BN$.",P,W"._...|
00000150: 98 38 2C C7 28 31 36 37 29 C7 28 30 32 29 3B 00 |.8,.(167).(02);.|
00000160: 71 09 DC 00 98 38 2C C7 28 C3 28 50 4E 24 29 29 |q....8,.(.(PN$))|
00000170: 3B 00 7D 09 E6 00 98 38 2C 50 4E 24 3B 00 91 09 |;.}....8,PN$;...|
00000180: F0 00 8B 20 52 4E 24 B2 22 4E 22 20 A7 20 33 38 |... RN$."N" . 38|
00000190: 30 00 A0 09 FA 00 81 20 43 B2 31 20 A4 20 31 37 |0...... C.1 . 17|
000001A0: 00 AB 09 04 01 87 20 43 4F 44 45 00 BB 09 0E 01 |...... CODE.....|
000001B0: 98 38 2C C7 28 43 4F 44 45 29 3B 00 C3 09 18 01 |.8,.(CODE);.....|
000001C0: 82 20 43 00 DD 09 22 01 83 20 31 32 30 20 20 20 |. C...".. 120 |
000001D0: 20 20 20 20 20 20 3A 20 8F 20 53 45 49 00 FB 09 | : . SEI...|
000001E0: 2C 01 83 20 31 36 39 2C 30 35 32 20 20 20 20 20 |,.. 169,052 |
000001F0: 3A 20 8F 20 4C 44 41 20 23 35 32 00 1B 0A 36 01 |: . LDA #52...6.|
00000200: 83 20 31 34 31 2C 30 32 30 2C 30 30 33 20 3A 20 |. 141,020,003 : |
00000210: 8F 20 53 54 41 20 24 30 33 31 34 00 3A 0A 40 01 |. STA $0314.:.@.|
00000220: 83 20 31 36 39 2C 31 33 34 20 20 20 20 20 3A 20 |. 169,134 : |
00000230: 8F 20 4C 44 41 20 23 31 33 34 00 5A 0A 4A 01 83 |. LDA #134.Z.J..|
00000240: 20 31 34 31 2C 30 32 34 2C 30 30 33 20 3A 20 8F | 141,024,003 : .|
00000250: 20 53 54 41 20 24 30 33 31 38 00 79 0A 54 01 83 | STA $0318.y.T..|
00000260: 20 31 36 39 2C 32 33 34 20 20 20 20 20 3A 20 8F | 169,234 : .|
00000270: 20 4C 44 41 20 23 32 33 34 00 99 0A 5E 01 83 20 | LDA #234...^.. |
00000280: 31 34 31 2C 30 32 35 2C 30 30 33 20 3A 20 8F 20 |141,025,003 : . |
00000290: 53 54 41 20 24 30 33 31 39 00 B3 0A 68 01 83 20 |STA $0319...h.. |
000002A0: 30 38 38 20 20 20 20 20 20 20 20 20 3A 20 8F 20 |088 : . |
000002B0: 43 4C 49 00 BD 0A 72 01 89 20 33 39 30 00 D7 0A |CLI...r.. 390...|
000002C0: 7C 01 81 20 43 B2 31 20 A4 20 31 37 3A 87 20 43 ||.. C.1 . 17:. C|
000002D0: 4F 44 45 3A 82 20 43 00 E6 0A 86 01 81 20 43 B2 |ODE:. C...... C.|
000002E0: 31 20 A4 20 33 38 00 F1 0A 90 01 87 20 43 4F 44 |1 . 38...... COD|
000002F0: 45 00 01 0B 9A 01 98 38 2C C7 28 43 4F 44 45 29 |E......8,.(CODE)|
00000300: 3B 00 09 0B A4 01 82 20 43 00 25 0B AE 01 83 20 |;...... C.%.... |
00000310: 31 36 39 2C 30 30 32 20 20 20 20 20 3A 8F 20 4C |169,002 :. L|
00000320: 44 41 20 23 32 00 41 0B B8 01 83 20 31 36 32 2C |DA #2.A.... 162,|
00000330: 30 30 38 20 20 20 20 20 3A 8F 20 4C 44 58 20 23 |008 :. LDX #|
00000340: 38 00 5F 0B C2 01 83 20 31 36 30 2C 32 35 35 20 |8._.... 160,255 |
00000350: 20 20 20 20 3A 8F 20 4C 44 59 20 23 32 35 35 00 | :. LDY #255.|
00000360: 7E 0B CC 01 83 20 30 33 32 2C 31 38 36 2C 32 35 |~.... 032,186,25|
00000370: 35 20 3A 8F 20 4A 53 52 20 24 46 46 42 41 00 9D |5 :. JSR $FFBA..|
00000380: 0B D6 01 83 20 31 37 33 2C 31 36 37 2C 30 30 32 |.... 173,167,002|
00000390: 20 3A 8F 20 4C 44 41 20 24 30 32 41 37 00 BB 0B | :. LDA $02A7...|
000003A0: E0 01 83 20 31 36 32 2C 31 36 38 20 20 20 20 20 |... 162,168 |
000003B0: 3A 8F 20 4C 44 58 20 23 24 41 38 00 D9 0B EA 01 |:. LDX #$A8.....|
000003C0: 83 20 31 36 90 FF 99 FF E3 FF F2 3A 3A 8F 20 4C |. 16.......::. L|
000003D0: 44 59 20 23 24 30 32 00 F8 0B F4 01 83 20 30 33 |DY #$02...... 03|
000003E0: 32 2C 31 38 39 2C 32 35 35 20 3A 8F 20 4A 53 52 |2,189,255 :. JSR|
000003F0: 20 24 46 46 42 44 30 00 00 16 0C FE 01 83 20 31 | $FFBD0....... 1|
00000400: 36 39 2C 30 30 30 20 20 20 20 20 3A 8F 20 4C 44 |69,000 :. LD|
00000410: 41 20 23 24 30 30 00 35 0C 08 02 83 20 30 33 32 |A #$00.5.... 032|
00000420: 2C 32 31 33 2C 32 35 35 20 3A 8F 20 4A 53 52 20 |,213,255 :. JSR |
00000430: 24 46 46 44 35 00 53 0C 12 02 83 20 31 36 39 2C |$FFD5.S.... 169,|
00000440: 31 33 31 20 20 20 20 20 3A 8F 20 4C 44 41 20 23 |131 :. LDA #|
00000450: 31 33 31 00 72 0C 1C 02 83 20 31 34 31 2C 30 30 |131.r.... 141,00|
00000460: 32 2C 30 30 33 20 3A 8F 20 53 54 41 20 24 30 33 |2,003 :. STA $03|
00000470: 30 32 00 90 0C 26 02 83 20 31 36 39 2C 31 36 34 |02...&.. 169,164|
00000480: 20 20 20 20 20 3A 8F 20 4C 44 41 20 23 31 36 34 | :. LDA #164|
00000490: 00 AF 0C 30 02 83 20 31 34 31 2C 30 30 33 2C 30 |...0.. 141,003,0|
000004A0: 30 33 20 3A 8F 20 53 54 41 20 24 30 33 30 33 00 |03 :. STA $0303.|
000004B0: CC 0C 3A 02 83 20 31 33 34 2C 30 34 35 20 20 20 |..:.. 134,045 |
000004C0: 20 20 3A 8F 20 53 54 58 20 24 32 44 00 E9 0C 44 | :. STX $2D...D|
000004D0: 02 83 20 31 33 32 2C 30 34 36 20 20 20 20 20 3A |.. 132,046 :|
000004E0: 8F 20 53 54 59 20 24 32 45 00 05 0D 4E 02 8B 20 |. STY $2E...N.. |
000004F0: 42 41 53 49 43 B2 31 20 A7 20 8D 20 38 36 30 3A |BASIC.1 . . 860:|
00000500: 89 20 36 32 30 00 27 0D 58 02 4C 31 B2 B5 28 4C |. 620.'.X.L1..(L|
00000510: 4F 43 AD 32 35 36 29 3A 4C 32 B2 4C 4F 43 AB 28 |OC.256):L2.LOC.(|
00000520: 4C 31 AC 32 35 36 29 00 3F 0D 62 02 98 38 2C C7 |L1.256).?.b..8,.|
00000530: 28 37 36 29 C7 28 4C 32 29 C7 28 4C 31 29 3B 00 |(76).(L2).(L1);.|
00000540: 5E 0D 6C 02 8B 20 52 4E 24 B2 22 59 22 20 A7 20 |^.l.. RN$."Y" . |
00000550: 42 55 B2 35 38 AA C3 28 50 4E 24 29 AA 31 00 7D |BU.58..(PN$).1.}|
00000560: 0D 76 02 8B 20 52 4E 24 B2 22 4E 22 20 A7 20 42 |.v.. RN$."N" . B|
00000570: 55 B2 34 31 AA C3 28 50 4E 24 29 AA 31 00 96 0D |U.41..(PN$).1...|
00000580: 80 02 8B 20 42 41 53 49 43 B2 31 20 A7 20 42 55 |... BASIC.1 . BU|
00000590: B2 42 55 AA 31 31 00 A3 0D 8A 02 42 4C B2 38 38 |.BU.11.....BL.88|
000005A0: AB 42 55 00 C1 0D 94 02 81 20 43 B2 31 20 A4 20 |.BU...... C.1 . |
000005B0: 42 4C AA 31 3A 98 38 2C C7 28 30 29 3B 3A 82 20 |BL.1:.8,.(0);:. |
000005C0: 43 00 D6 0D 9E 02 98 38 2C C7 28 31 33 39 29 C7 |C......8,.(139).|
000005D0: 28 32 32 37 29 3B 00 E9 0D A8 02 42 B2 36 37 39 |(227);.....B.679|
000005E0: AA C3 28 50 4E 24 29 AA 31 00 07 0E B2 02 4C 31 |..(PN$).1.....L1|
000005F0: B2 B5 28 42 AD 32 35 36 29 3A 4C 32 B2 42 AB 28 |..(B.256):L2.B.(|
00000600: 4C 31 AC 32 35 36 29 00 1A 0E BC 02 98 38 2C C7 |L1.256)......8,.|
00000610: 28 4C 32 29 C7 28 4C 31 29 3B 00 21 0E C6 02 A0 |(L2).(L1);.!....|
00000620: 38 00 32 0E D0 02 A1 23 31 35 2C 41 24 3A 53 B2 |8.2....#15,A$:S.|
00000630: 53 54 00 3C 0E DA 02 99 20 41 24 3B 00 4C 0E E4 |ST.<.... A$;.L..|
00000640: 02 8B 20 53 B2 30 20 A7 20 37 32 30 00 52 0E EE |.. S.0 . 720.R..|
00000650: 02 80 00 60 0E F8 02 4C B2 C3 28 4C 4F 43 24 29 |...`...L..(LOC$)|
00000660: 00 6A 0E 02 03 53 B2 4C AB 31 00 78 0E 0C 03 81 |.j...S.L.1.x....|
00000670: 20 43 B2 31 20 A4 20 4C 00 8B 0E 16 03 49 24 B2 | C.1 . L.....I$.|
00000680: CA 28 4C 4F 43 24 2C 43 2C 31 29 00 A7 0E 20 03 |.(LOC$,C,1)... .|
00000690: 8B 20 49 24 B3 B2 22 39 22 20 A7 20 49 24 B2 C4 |. I$.."9" . I$..|
000006A0: 28 C5 28 49 24 29 29 00 C6 0E 2A 03 8B 20 49 24 |(.(I$))...*.. I$|
000006B0: B2 B1 22 41 22 20 A7 20 49 24 B2 C4 28 C6 28 49 |.."A" . I$..(.(I|
000006C0: 24 29 AB 35 35 29 00 DD 0E 34 03 4C 4F 43 B2 4C |$).55)...4.LOC.L|
000006D0: 4F 43 AA C5 28 49 24 29 AC 31 36 AE 53 00 E7 0E |OC..(I$).16.S...|
000006E0: 3E 03 53 B2 53 AB 31 00 EF 0E 48 03 82 20 43 00 |>.S.S.1...H.. C.|
000006F0: F5 0E 52 03 8E 00 04 0F 5C 03 81 20 43 B2 31 20 |..R.....\.. C.1 |
00000700: A4 20 31 34 00 0F 0F 66 03 87 20 43 4F 44 45 00 |. 14...f.. CODE.|
00000710: 1F 0F 70 03 98 38 2C C7 28 43 4F 44 45 29 3B 00 |..p..8,.(CODE);.|
00000720: 27 0F 7A 03 82 20 43 00 45 0F 84 03 83 20 31 36 |'.z.. C.E.... 16|
00000730: 39 2C 30 30 30 20 20 20 20 20 3A 8F 20 4C 44 41 |9,000 :. LDA|
00000740: 20 23 24 30 30 00 62 0F 8E 03 83 20 31 33 33 2C | #$00.b.... 133,|
00000750: 31 32 32 20 20 20 20 20 3A 8F 20 53 54 41 20 24 |122 :. STA $|
00000760: 37 41 00 80 0F 98 03 83 20 31 36 39 2C 30 30 38 |7A...... 169,008|
00000770: 20 20 20 20 20 3A 8F 20 4C 44 41 20 23 24 30 38 | :. LDA #$08|
00000780: 00 9D 0F A2 03 83 20 31 33 33 2C 31 32 33 20 20 |...... 133,123 |
00000790: 20 20 20 3A 8F 20 53 54 41 20 24 37 38 00 BC 0F | :. STA $78...|
000007A0: AC 03 83 20 30 33 32 2C 30 39 36 2C 31 36 36 20 |... 032,096,166 |
000007B0: 3A 8F 20 4A 53 52 20 24 41 36 36 30 00 DB 0F B6 |:. JSR $A660....|
000007C0: 03 83 20 30 37 36 2C 31 37 34 2C 31 36 37 20 3A |.. 076,174,167 :|
000007D0: 8F 20 4A 4D 50 20 24 41 37 41 45 00 E1 0F C0 03 |. JMP $A7AE.....|
000007E0: 8E 00 00 00 |.... |
..).D.."....NAME OF PROGRAM TO LOAD":.PN
$.J.N.. "NAME OF BOOT PROGRAM";BN$.S.X..
"LOCATION TO JUMP AFTER LOAD";LOC$.....
. LOC$."" . BASIC.1:. 160...... H(LOC$,1
)."$" . . 760:. 160.C...LOC.E(LOC$)... .
. "KILL RUNSTOP/RESTORE (Y/N)";RN$.....R
N$.H(RN$,1)...... . (RN$."Y" . RN$."N")
. 160./.... 15,8,15,"I".K.H.. 8,8,8,"0:"
.BN$.",P,W"._.R..8,G(167)G(02);.Q....8,G
(C(PN$));.}....8,PN$;...... RN$."N" . 38
0. .... C.1 . 17...... CODE......8,G(COD
E);.C.... C...".. 120 : . SEI...
,.. 169,052 : . LDA #52...6.. 141,02
0,003 : . STA $0314.:.@.. 169,134 :
. LDA #134.Z.J.. 141,024,003 : . STA $03
18.Y.T.. 169,234 : . LDA #234...^..
141,025,003 : . STA $0319...H.. 088
: . CLI...R.. 390.W.|.. C.1 . 17:. C
ODE:. C...... C.1 . 38...... CODE......8
,G(CODE);...... C.%.... 169,002 :. L
DA #2.A.... 162,008 :. LDX #8._.B..
160,255 :. LDY #255.~.L.. 032,186,25
5 :. JSR $FFBA...V.. 173,167,002 :. LDA
$02A7...... 162,168 :. LDX #$A8.Y...
. 16.......::. LDY #$02...... 032,189,25
5 :. JSR $FFBD0....... 169,000 :. LD
A #$00.5.... 032,213,255 :. JSR $FFD5.S.
... 169,131 :. LDA #131.R.... 141,00
2,003 :. STA $0302...&.. 169,164 :.
LDA #164...0.. 141,003,003 :. STA $0303.
L.:.. 134,045 :. STX $2D...D.. 132,0
46 :. STY $2E...N.. BASIC.1 . . 860:
. 620.'.X.L1..(LOC.256):L2.LOC.(L1.256).
?.B..8,G(76)G(L2)G(L1);.^.L.. RN$."Y" .
BU.58.C(PN$).1.}.V.. RN$."N" . BU.41.C(P
N$).1...... BASIC.1 . BU.BU.11.....BL.88
.BU.A.... C.1 . BL.1:.8,G(0);:. C.V....8
,G(139)G(227);.....B.679.C(PN$).1.....L1
..(B.256):L2.B.(L1.256)......8,G(L2)G(L1
);.!.F. 8.2.P..#15,A$:S.ST.<.Z.. A$;.L..
.. S.0 . 720.R.....`...L.C(LOC$).J...S.L
.1.X.... C.1 . L.....I$.J(LOC$,C,1)... .
. I$.."9" . I$.D(E(I$)).F.*.. I$.."A" .
I$.D(F(I$).55)...4.LOC.LOC.E(I$).16.S...
>.S.S.1...H.. C...R.....\.. C.1 . 14...F
.. CODE...P..8,G(CODE);.'.Z.. C.E.... 16
9,000 :. LDA #$00.B.... 133,122
:. STA $7A...... 169,008 :. LDA #$08
...... 133,123 :. STA $78...... 032,
096,166 :. JSR $A660...... 076,174,167 :
. JMP $A7AE.........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL