00000000: 80 2A 4E 42 22 4B 45 52 4E 41 4C 20 31 32 38 22 |.*NB"KERNAL 128"|
00000010: 0D 0D 20 20 20 D4 48 45 20 46 49 52 53 54 20 48 |.. .HE FIRST H|
00000020: 45 58 49 44 45 43 49 4D 41 4C 20 4C 4F 43 41 54 |EXIDECIMAL LOCAT|
00000030: 49 4F 4E 20 49 53 20 54 48 41 54 20 4F 46 20 54 |ION IS THAT OF T|
00000040: 48 45 20 CB 45 52 4E 41 4C 20 CA 55 4D 50 20 54 |HE .ERNAL .UMP T|
00000050: 41 42 4C 45 20 46 4F 52 20 4E 45 57 20 31 32 38 |ABLE FOR NEW 128|
00000060: 20 4B 45 52 4E 41 4C 20 52 4F 55 54 49 4E 45 53 | KERNAL ROUTINES|
00000070: 2E 20 D4 48 45 20 53 45 43 4F 4E 44 20 4C 4F 43 |. .HE SECOND LOC|
00000080: 41 54 49 4F 4E 20 49 53 20 54 48 45 20 4C 4F 43 |ATION IS THE LOC|
00000090: 41 54 49 4F 4E 20 4F 46 20 54 48 45 20 53 55 42 |ATION OF THE SUB|
000000A0: 53 45 51 55 45 4E 54 20 4A 55 4D 50 20 49 4E 53 |SEQUENT JUMP INS|
000000B0: 54 52 55 43 54 49 4F 4E 2E 0D 0D 0D C6 C6 34 37 |TRUCTION......47|
000000C0: 20 20 20 CA CD D0 20 53 50 49 4E A4 50 53 4F 55 | ... SPIN.PSOU|
000000D0: 54 20 20 20 20 20 3B 53 45 54 20 55 50 20 46 41 |T ;SET UP FA|
000000E0: 53 54 20 53 45 52 49 4C 20 50 4F 52 54 20 46 4F |ST SERIL PORT FO|
000000F0: 52 20 49 2F 4F 0D C5 35 C6 C2 0D 0D 0D C6 C6 34 |R I/O..5.......4|
00000100: C1 20 20 20 CA CD D0 20 43 4C 4F 53 45 A4 41 4C |. ... CLOSE.AL|
00000110: 4C 20 20 20 20 20 20 3B 43 4C 4F 53 45 20 41 4C |L ;CLOSE AL|
00000120: 4C 20 4C 4F 47 49 43 41 4C 20 46 49 4C 45 53 20 |L LOGICAL FILES |
00000130: 46 4F 52 20 41 20 44 45 56 49 43 45 0D C6 32 33 |FOR A DEVICE..23|
00000140: C4 0D 0D 0D C6 C6 34 C4 20 20 20 CA CD D0 20 43 |......4. ... C|
00000150: 36 34 4D 4F 44 45 20 20 20 20 20 20 20 20 3B 52 |64MODE ;R|
00000160: 45 43 4F 4E 46 49 47 55 52 45 20 53 59 53 54 45 |ECONFIGURE SYSTE|
00000170: 4D 20 41 53 20 41 20 43 2F 36 34 0D C5 32 34 C2 |M AS A C/64..24.|
00000180: 0D 0D 0D C6 C6 35 30 20 20 20 CA CD D0 20 44 4D |.....50 ... DM|
00000190: 41 A4 43 41 4C 4C 20 20 20 20 20 20 20 3B 49 4E |A.CALL ;IN|
000001A0: 49 54 49 41 54 45 20 44 4D 41 20 52 45 51 55 45 |ITIATE DMA REQUE|
000001B0: 53 54 20 54 4F 20 45 58 54 45 52 4E 41 4C 20 D2 |ST TO EXTERNAL .|
000001C0: C1 CD 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 58 | ;EX|
000001E0: 50 41 4E 53 49 4F 4E 2C 53 45 4E 44 20 43 4F 4D |PANSION,SEND COM|
000001F0: 4D 41 4E 44 20 54 4F 20 C4 CD C1 20 44 45 56 49 |MAND TO ... DEVI|
00000200: 43 45 0D C6 37 C1 35 0D 0D 0D C6 C6 35 33 20 20 |CE..7.5.....53 |
00000210: CA CD D0 20 20 42 4F 4F 54 A4 43 41 4C 4C 20 20 |... BOOT.CALL |
00000220: 20 20 20 20 3B 42 4F 4F 54 20 4C 4F 41 44 20 50 | ;BOOT LOAD P|
00000230: 52 4F 47 52 41 4D 20 46 52 4F 4D 20 44 49 53 4B |ROGRAM FROM DISK|
00000240: 0D C6 38 39 30 0D 0D 0D C6 C6 35 36 20 20 CA CD |..890.....56 ..|
00000250: D0 20 20 50 48 4F 45 4E 49 58 20 20 20 20 20 20 |. PHOENIX |
00000260: 20 20 3B 43 41 4C 4C 20 41 4C 4C 20 46 55 4E 43 | ;CALL ALL FUNC|
00000270: 54 49 4F 4E 20 43 41 52 44 53 27 20 43 4F 4C 44 |TION CARDS' COLD|
00000280: 20 53 54 41 52 54 0D 20 20 20 20 20 20 20 20 20 | START. |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 3B 52 4F 55 54 49 4E 45 53 2C 20 49 4E 49 54 | ;ROUTINES, INIT|
000002B0: 49 41 4C 49 5A 45 0D C6 38 36 37 0D 0D 0D C6 C6 |IALIZE..867.....|
000002C0: 35 39 20 20 CA CD D0 20 20 4C 4B 55 50 4C 41 20 |59 ... LKUPLA |
000002D0: 20 20 20 20 20 20 20 20 3B 53 45 41 52 43 48 20 | ;SEARCH |
000002E0: 54 41 42 4C 45 20 46 4F 52 20 47 49 56 45 4E 20 |TABLE FOR GIVEN |
000002F0: 4C 41 0D C6 37 39 C4 0D 0D 0D C6 C6 35 C3 20 20 |LA..79......5. |
00000300: CA CD D0 20 20 4C 4B 55 50 53 41 20 20 20 20 20 |... LKUPSA |
00000310: 20 20 20 20 3B 53 45 41 52 43 48 20 54 41 42 4C | ;SEARCH TABL|
00000320: 45 20 46 4F 52 20 47 49 56 45 4E 20 53 41 0D C6 |E FOR GIVEN SA..|
00000330: 37 38 36 0D 0D 0D C6 C6 35 C6 20 20 CA CD D0 20 |786.....5. ... |
00000340: 20 53 57 41 50 50 45 52 46 20 20 20 20 20 20 20 | SWAPPERF |
00000350: 3B 53 57 49 54 43 48 20 42 45 54 57 45 45 4E 20 |;SWITCH BETWEEN |
00000360: 34 30 2F 38 30 20 43 4F 4C 55 4D 4E 53 0D C3 30 |40/80 COLUMNS..0|
00000370: 32 C1 0D C3 C4 32 C5 0D 0D 0D C6 C6 36 32 20 20 |2....2......62 |
00000380: CA CD D0 20 20 44 4C 43 48 52 20 20 20 20 20 20 |... DLCHR |
00000390: 20 20 20 20 3B 49 4E 49 54 20 38 30 2D 43 4F 4C | ;INIT 80-COL|
000003A0: 20 43 48 41 52 41 43 54 45 52 20 D2 C1 CD 0D C3 | CHARACTER .....|
000003B0: 30 32 37 0D C3 C5 30 C3 2D C3 C5 34 C2 20 C3 C4 |027...0.-..4. ..|
000003C0: C3 C1 2D C3 C4 C4 37 0D 0D 0D C6 C6 36 35 20 20 |..-...7.....65 |
000003D0: CA CD D0 20 20 50 46 4B 45 59 20 20 20 20 20 20 |... PFKEY |
000003E0: 20 20 20 20 3B 50 52 4F 47 52 41 4D 20 46 55 4E | ;PROGRAM FUN|
000003F0: 43 54 49 4F 4E 20 4B 45 59 0D C3 30 32 31 0D C3 |CTION KEY..021..|
00000400: C3 C1 32 0D 0D 0D C6 C6 36 38 20 20 CA CD D0 20 |..2.....68 ... |
00000410: 20 53 45 54 42 4E 4B 20 20 20 20 20 20 20 20 20 | SETBNK |
00000420: 3B 53 45 54 20 42 41 4E 4B 20 C9 2F CF 20 4F 50 |;SET BANK ./. OP|
00000430: 45 52 41 54 49 4F 4E 53 0D C6 37 33 C6 0D 0D 0D |ERATIONS..73....|
00000440: C6 C6 36 C2 20 20 CA CD D0 20 20 47 45 54 43 46 |..6. ... GETCF|
00000450: 47 20 20 20 20 20 20 20 20 20 3B 4C 4F 4F 4B 55 |G ;LOOKU|
00000460: 50 20 CD CD D5 20 44 41 54 41 20 46 4F 52 20 41 |P ... DATA FOR A|
00000470: 20 47 49 56 45 4E 20 42 41 4E 4B 0D C6 37 C5 C3 | GIVEN BANK..7..|
00000480: 0D 0D 0D C6 C6 36 C5 20 20 CA CD D0 20 20 4A 53 |.....6. ... JS|
00000490: 52 46 41 52 20 20 20 20 20 20 20 20 20 3B CA D3 |RFAR ;..|
000004A0: D2 20 54 4F 20 41 4E 59 20 42 41 4E 4B 2C D2 D4 |. TO ANY BANK,..|
000004B0: D3 20 54 4F 20 43 41 4C 4C 49 4E 47 20 42 41 4E |. TO CALLING BAN|
000004C0: 4B 0D 30 32 C3 C4 0D 0D 0D C6 C6 37 31 20 20 CA |K.02.......71 .|
000004D0: CD D0 20 20 4A 4D 50 46 41 52 20 20 20 20 20 20 |.. JMPFAR |
000004E0: 20 20 20 3B CA CD D0 20 54 4F 20 41 4E 59 20 42 | ;... TO ANY B|
000004F0: 41 4E 4B 0D 30 32 C5 33 0D 0D 0D C6 C6 37 34 20 |ANK.02.3.....74 |
00000500: 20 CA CD D0 20 20 49 4E 44 46 45 54 20 20 20 20 | ... INDFET |
00000510: 20 20 20 20 20 3B CC C4 C1 20 28 46 45 54 56 45 | ;... (FETVE|
00000520: 43 29 2C D9 20 46 52 4F 4D 20 41 4E 59 20 42 41 |C),. FROM ANY BA|
00000530: 4E 4B 0D C6 37 C4 30 0D 0D 0D C6 C6 37 37 20 20 |NK..7.0.....77 |
00000540: CA CD D0 20 20 49 4E 44 53 54 41 20 20 20 20 20 |... INDSTA |
00000550: 20 20 20 20 3B D3 D4 C1 20 28 53 54 41 56 45 43 | ;... (STAVEC|
00000560: 29 2C D9 20 54 4F 20 41 4E 59 20 42 41 4E 4B 0D |),. TO ANY BANK.|
00000570: C6 37 C4 C1 0D 0D 0D C6 C6 37 C1 20 20 CA CD D0 |.7.......7. ...|
00000580: 20 20 49 4E 44 43 4D 50 20 20 20 20 20 20 20 20 | INDCMP |
00000590: 20 3B C3 CD D0 20 28 43 4D 50 56 45 43 29 2C D9 | ;... (CMPVEC),.|
000005A0: 20 54 4F 20 41 4E 59 20 42 41 4E 4B 0D C6 37 C5 | TO ANY BANK..7.|
000005B0: 33 0D 0D 0D C6 C6 37 C4 20 20 CA CD D0 20 20 50 |3.....7. ... P|
000005C0: 52 49 4D 4D 20 20 20 20 20 20 20 20 20 20 3B 50 |RIMM ;P|
000005D0: 52 49 4E 54 20 49 4D 4D 45 44 49 41 54 45 20 55 |RINT IMMEDIATE U|
000005E0: 54 49 4C 49 54 59 0D C6 C1 31 37 0D 0D 0D |TILITY...17... |
.*NB"KERNAL 128".. THE FIRST HEXIDECIM
AL LOCATION IS THAT OF THE KERNAL JUMP T
ABLE FOR NEW 128 KERNAL ROUTINES. THE SE
COND LOCATION IS THE LOCATION OF THE SUB
SEQUENT JUMP INSTRUCTION....FF47 JMP S
PIN.PSOUT ;SET UP FAST SERIL PORT FO
R I/O.E5FB...FF4A JMP CLOSE.ALL ;
CLOSE ALL LOGICAL FILES FOR A DEVICE.F23
D...FF4D JMP C64MODE ;RECONFIGU
RE SYSTEM AS A C/64.E24B...FF50 JMP DM
A.CALL ;INITIATE DMA REQUEST TO EX
TERNAL RAM. ;EX
PANSION,SEND COMMAND TO DMA DEVICE.F7A5.
..FF53 JMP BOOT.CALL ;BOOT LOAD P
ROGRAM FROM DISK.F890...FF56 JMP PHOEN
IX ;CALL ALL FUNCTION CARDS' COLD
START. ;ROUTIN
ES, INITIALIZE.F867...FF59 JMP LKUPLA
;SEARCH TABLE FOR GIVEN LA.F79D.
..FF5C JMP LKUPSA ;SEARCH TABL
E FOR GIVEN SA.F786...FF5F JMP SWAPPER
F ;SWITCH BETWEEN 40/80 COLUMNS.C0
2A.CD2E...FF62 JMP DLCHR ;INI
T 80-COL CHARACTER RAM.C027.CE0C-CE4B CD
CA-CDD7...FF65 JMP PFKEY ;PRO
GRAM FUNCTION KEY.C021.CCA2...FF68 JMP
SETBNK ;SET BANK I/O OPERATIONS
.F73F...FF6B JMP GETCFG ;LOOKU
P MMU DATA FOR A GIVEN BANK.F7EC...FF6E
JMP JSRFAR ;JSR TO ANY BANK,RT
S TO CALLING BANK.02CD...FF71 JMP JMPF
AR ;JMP TO ANY BANK.02E3...FF74
JMP INDFET ;LDA (FETVEC),Y FRO
M ANY BANK.F7D0...FF77 JMP INDSTA
;STA (STAVEC),Y TO ANY BANK.F7DA...F
F7A JMP INDCMP ;CMP (CMPVEC),Y
TO ANY BANK.F7E3...FF7D JMP PRIMM
;PRINT IMMEDIATE UTILITY.FA17...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL