> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 64 00 3B 2E 59 20 49 53 20 94 44 20 |....d.;.Y IS .D |
00000010: 49 4E 20 27 48 4F 4C 44 59 27 00 4E 08 6E 00 3B |IN 'HOLDY'.N.n.;|
00000020: 20 AF 20 93 45 44 20 57 49 54 48 20 54 48 45 20 | . .ED WITH THE |
00000030: 4C 4F 57 20 42 59 54 45 20 4F 46 20 54 48 45 20 |LOW BYTE OF THE |
00000040: 6B 45 52 4E 41 4C 20 52 4F 55 54 49 4E 45 00 6F |kERNAL ROUTINE.o|
00000050: 08 78 00 3B 20 50 52 49 B0 20 A4 20 43 41 4C 4C |.x.; PRI. . CALL|
00000060: 49 4E 47 20 27 46 41 52 4B 45 52 4E 41 4C 27 00 |ING 'FARKERNAL'.|
00000070: 75 08 82 00 3B 00 86 08 8C 00 46 41 52 4B 45 52 |u...;.....FARKER|
00000080: 4E 41 4C 20 B2 AC 00 A7 08 96 00 53 54 59 20 4B |NAL .......STY K|
00000090: 45 52 4E 52 54 4E 20 20 20 20 3B 53 45 4C 46 20 |ERNRTN ;SELF |
000000A0: 4D 4F 44 20 4A 53 52 00 B2 08 A0 00 4C 44 59 20 |MOD JSR.....LDY |
000000B0: 23 30 00 CE 08 AA 00 53 54 59 20 24 46 46 30 30 |#0.....STY $FF00|
000000C0: 20 20 20 20 20 20 3B 42 41 4E 4B 20 31 35 00 03 | ;BANK 15..|
000000D0: 09 B4 00 53 54 59 20 24 44 35 30 37 20 20 20 20 |...STY $D507 |
000000E0: 20 20 3B 59 4F 55 52 20 4F 57 4E 20 5A 20 50 41 | ;YOUR OWN Z PA|
000000F0: 47 45 2C 20 4D 52 2E 20 4B 45 52 4E 41 4C 20 53 |GE, MR. KERNAL S|
00000100: 49 52 2E 00 2B 09 BE 00 4C 44 59 20 48 4F 4C 44 |IR..+...LDY HOLD|
00000110: 59 20 20 20 20 20 20 3B 49 4E 20 43 41 53 45 20 |Y ;IN CASE |
00000120: 49 54 27 53 20 4E 45 45 44 45 44 00 4C 09 C8 00 |IT'S NEEDED.L...|
00000130: 4A 53 52 20 24 46 46 46 46 20 20 20 20 20 20 3B |JSR $FFFF ;|
00000140: 43 41 4C 4C 20 52 4F 55 54 49 4E 45 00 5D 09 D2 |CALL ROUTINE.]..|
00000150: 00 4B 45 52 4E 52 54 4E 20 B2 AC AB 32 00 7A 09 |.KERNRTN ...2.z.|
00000160: DC 00 50 48 50 20 20 20 20 20 20 20 20 20 20 20 |..PHP |
00000170: 20 3B 94 20 53 54 41 54 55 53 00 93 09 E6 00 50 | ;. STATUS.....P|
00000180: 48 41 20 20 20 20 20 20 20 20 20 20 20 20 3B AF |HA ;.|
00000190: 20 2E 41 00 B9 09 F0 00 4C 44 41 20 23 4D 59 5A | .A.....LDA #MYZ|
000001A0: 50 47 20 20 20 20 20 3B 4D 59 20 5A 45 52 4F 20 |PG ;MY ZERO |
000001B0: 50 41 47 45 20 42 41 43 4B 00 C7 09 FA 00 53 54 |PAGE BACK.....ST|
000001C0: 41 20 24 44 35 30 37 00 EA 09 04 01 53 54 41 20 |A $D507.....STA |
000001D0: 24 46 46 30 32 20 20 20 20 20 20 3B 4C 41 54 43 |$FF02 ;LATC|
000001E0: 48 20 A4 20 42 41 4E 4B 20 31 00 08 0A 0E 01 50 |H . BANK 1.....P|
000001F0: 4C 41 20 20 20 20 20 20 20 20 20 20 20 20 3B 8F |LA ;.|
00000200: 45 4D 42 45 52 20 2E 41 00 25 0A 18 01 50 4C 50 |EMBER .A.%...PLP|
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 3B AF 20 53 | ;. S|
00000220: 54 41 54 55 53 00 2D 0A 22 01 52 54 53 00 33 0A |TATUS.-.".RTS.3.|
00000230: 2C 01 3B 00 74 0A 36 01 3B 22 20 C8 45 52 45 20 |,.;.t.6.;" .ERE |
00000240: 49 53 20 48 4F 57 20 C6 C1 D2 CB C5 D2 CE C1 CC |IS HOW .........|
00000250: 20 57 4F 55 4C 44 20 42 45 20 55 53 45 44 20 54 | WOULD BE USED T|
00000260: 4F 20 D0 D2 C9 CE D4 20 46 52 4F 4D 20 C2 41 4E |O ..... FROM .AN|
00000270: 4B 20 31 3A 00 7D 0A 40 01 99 20 B2 AC 00 98 0A |K 1:.}.@.. .....|
00000280: 4A 01 53 54 59 20 48 4F 4C 44 59 20 20 20 20 20 |J.STY HOLDY |
00000290: 20 20 20 3B 94 20 2E 59 00 B5 0A 54 01 4C 44 59 | ;. .Y...T.LDY|
000002A0: 20 23 24 44 32 20 20 20 20 20 20 20 20 20 3B B3 | #$D2 ;.|
000002B0: 24 46 46 44 32 00 C7 0A 5E 01 4A 4D 50 20 46 41 |$FFD2...^.JMP FA|
000002C0: 52 4B 45 52 4E 41 4C 00 00 00 |RKERNAL... |
....D.;.Y IS .D IN 'HOLDY'.N.N.; . .ED W
ITH THE LOW BYTE OF THE KERNAL ROUTINE.O
.X.; PRI. . CALLING 'FARKERNAL'.U...;...
..FARKERNAL .......STY KERNRTN ;SELF
MOD JSR... .LDY #0.N...STY $FF00 ;B
ANK 15.....STY $D507 ;YOUR OWN Z PA
GE, MR. KERNAL SIR..+...LDY HOLDY ;
IN CASE IT'S NEEDED.L.H.JSR $FFFF ;
CALL ROUTINE.].R.KERNRTN ...2.Z...PHP
;. STATUS.....PHA ;.
.A.....LDA #MYZPG ;MY ZERO PAGE BAC
K.G...STA $D507.....STA $FF02 ;LATC
H . BANK 1.....PLA ;.EMBER .A
.%...PLP ;. STATUS.-.".RTS.3.
,.;.T.6.;" HERE IS HOW FARKERNAL WOULD B
E USED TO PRINT FROM BANK 1:.}.@.. .....
J.STY HOLDY ;. .Y...T.LDY #$D2
;.$FFD2.G.^.JMP FARKERNAL...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL