TB/KERNEL

FILE INFORMATION

FILENAME(S): TB/KERNEL

FILE TYPE(S): PRG

FILE SIZE: 3.6K

FIRST SEEN: 2025-11-30 21:12:21

APPEARS ON: 2 disk(s)

FILE HASH

a02b1dd0038178fe34c33f0286d3432b4f4d1aaf047a1995d7127d504393e60d

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
RANS ISK1	TB/KERNEL	PRG	DuncanTwain	19	0	DOWNLOAD FILE
RANS ISK2	TB/KERNEL	PRG	DuncanTwain	19	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 00 00 8F 20  54 52 41 4E 53 42 41 53  |..).... TRANSBAS|
00000010: 49 43 20 4B 45 52 4E 45  4C 20 28 53 45 50 54 20  |IC KERNEL (SEPT |
00000020: 32 39 2F 38 34 29 20 20  3A 00 2F 08 01 00 3A 00  |29/84)  :./...:.|
00000030: 4F 08 02 00 8F 20 32 20  53 54 41 54 45 4D 45 4E  |O.... 2 STATEMEN|
00000040: 54 53 2C 20 30 20 46 55  4E 43 54 49 4F 4E 53 00  |TS, 0 FUNCTIONS.|
00000050: 55 08 03 00 3A 00 72 08  04 00 8F 20 4B 45 59 57  |U...:.r.... KEYW|
00000060: 4F 52 44 20 43 48 41 52  41 43 54 45 52 53 3A 20  |ORD CHARACTERS: |
00000070: 20 38 00 78 08 05 00 3A  00 A0 08 06 00 8F 20 4B  | 8.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20  20 20 20 52 4F 55 54 49  |EYWORD     ROUTI|
00000090: 4E 45 20 20 4C 49 4E 45  20 20 20 53 45 52 20 23  |NE  LINE   SER #|
000000A0: 00 C7 08 07 00 8F 20 53  2F 45 4C 53 45 20 20 20  |...... S/ELSE   |
000000B0: 20 20 20 45 4C 53 52 54  4E 20 20 20 32 35 31 34  |   ELSRTN   2514|
000000C0: 20 20 20 20 30 30 31 00  EE 08 08 00 8F 20 53 2F  |    001...... S/|
000000D0: 45 58 49 54 20 20 20 20  20 20 45 58 54 20 20 20  |EXIT      EXT   |
000000E0: 20 20 20 32 35 34 32 20  20 20 20 30 30 32 00 F4  |   2542    002..|
000000F0: 08 09 00 3A 00 15 09 0A  00 8F 20 55 54 49 4C 49  |...:...... UTILI|
00000100: 54 59 3A 20 43 49 46 43  48 52 20 28 32 35 36 30  |TY: CIFCHR (2560|
00000110: 2F 30 30 33 29 00 1B 09  0B 00 3A 00 3F 09 0C 00  |/003).....:.?...|
00000120: 8F 20 4B 45 52 4E 45 4C  20 41 4C 53 4F 20 49 4E  |. KERNEL ALSO IN|
00000130: 43 4C 55 44 45 53 20 4D  4F 44 49 46 49 45 44 00  |CLUDES MODIFIED.|
00000140: 65 09 0D 00 8F 20 27 49  46 27 20 53 54 41 54 45  |e.... 'IF' STATE|
00000150: 4D 45 4E 54 20 28 49 46  52 54 4E 2F 32 34 37 34  |MENT (IFRTN/2474|
00000160: 2F 30 30 30 29 00 6B 09  0E 00 3A 00 81 09 19 00  |/000).k...:.....|
00000170: 8B 20 C2 28 37 37 33 29  B3 31 39 32 20 89 20 32  |. .(773).192 . 2|
00000180: 39 00 87 09 1A 00 3A 00  8E 09 1B 00 5F 41 00 94  |9.....:....._A..|
00000190: 09 1C 00 3A 00 9E 09 1D  00 9E 20 37 30 30 00 AB  |...:...... 700..|
000001A0: 09 1F 00 AC B2 20 24 43  30 30 30 00 B1 09 20 00  |..... $C000... .|
000001B0: 3B 00 BC 09 21 00 54 32  20 B2 20 32 00 C7 09 22  |;...!.T2 . 2..."|
000001C0: 00 54 33 20 B2 20 33 00  D2 09 23 00 54 34 20 B2  |.T3 . 3...#.T4 .|
000001D0: 20 34 00 DD 09 24 00 54  35 20 B2 20 35 00 E8 09  | 4...$.T5 . 5...|
000001E0: 25 00 54 36 20 B2 20 36  00 EE 09 26 00 3B 00 F4  |%.T6 . 6...&.;..|
000001F0: 09 5B 00 3B 00 02 0A 5C  00 4A 4D 50 20 53 54 41  |.[.;...\.JMP STA|
00000200: 52 54 00 0E 0A 5D 00 4A  4D 50 20 45 58 54 00 14  |RT...].JMP EXT..|
00000210: 0A 5E 00 3B 00 37 0A 5F  00 58 54 52 41 20 2E 42  |.^.;.7._.XTRA .B|
00000220: 59 54 45 20 32 2C 30 20  20 20 3B 20 53 54 4D 54  |YTE 2,0   ; STMT|
00000230: 53 2C 46 55 4E 43 53 00  3D 0A 60 00 3B 00 49 0A  |S,FUNCS.=.`.;.I.|
00000240: 61 00 2E 42 59 54 45 20  30 00 4F 0A 62 00 3B 00  |a..BYTE 0.O.b.;.|
00000250: 5A 0A 63 00 53 4B 57 20  B2 AC 00 6C 0A 64 00 2E  |Z.c.SKW ...l.d..|
00000260: C6 20 22 45 4C 53 C5 45  58 49 D4 22 00 72 0A 56  |. "ELS.EXI.".r.V|
00000270: 02 3B 00 7D 0A 57 02 46  4B 57 20 B2 AC 00 83 0A  |.;.}.W.FKW .....|
00000280: 48 04 3B 00 8F 0A 49 04  2E 42 59 54 45 20 30 00  |H.;...I..BYTE 0.|
00000290: 95 0A 4A 04 3B 00 9F 0A  4B 04 9D 53 20 B2 AC 00  |..J.;...K..S ...|
000002A0: B4 0A 4C 04 2E 57 B0 44  20 24 41 39 33 41 2C 45  |..L..W.D $A93A,E|
000002B0: 58 54 AB 31 00 BA 0A 3E  06 3B 00 C5 0A 3F 06 A5  |XT.1...>.;...?..|
000002C0: 43 53 20 B2 AC 00 CB 0A  33 08 3B 00 DC 0A 34 08  |CS .....3.;...4.|
000002D0: 53 54 41 52 54 20 4C 44  58 20 23 37 00 F0 0A 36  |START LDX #7...6|
000002E0: 08 53 54 54 31 20 4C 44  41 20 24 33 30 34 2C 58  |.STT1 LDA $304,X|
000002F0: 00 FF 0A 38 08 53 54 41  20 54 56 45 43 2C 58 00  |...8.STA TVEC,X.|
00000300: 10 0B 3A 08 4C 44 41 20  4E 55 56 45 43 53 2C 58  |..:.LDA NUVECS,X|
00000310: 00 1F 0B 3C 08 53 54 41  20 24 33 30 34 2C 58 00  |...<.STA $304,X.|
00000320: 27 0B 3E 08 44 45 58 00  34 0B 40 08 42 50 4C 20  |'.>.DEX.4.@.BPL |
00000330: 53 54 54 31 00 41 0B 42  08 4C 44 41 20 58 54 52  |STT1.A.B.LDA XTR|
00000340: 41 00 49 0B 44 08 43 4C  43 00 58 0B 46 08 41 44  |A.I.D.CLC.X.F.AD|
00000350: 43 20 58 54 52 41 AA 31  00 67 0B 48 08 53 54 41  |C XTRA.1.g.H.STA|
00000360: 20 58 54 52 41 AA 32 00  74 0B 4A 08 4C 44 41 20  | XTRA.2.t.J.LDA |
00000370: 23 24 36 30 00 82 0B 4C  08 53 54 41 20 53 54 41  |#$60...L.STA STA|
00000380: 52 54 00 90 0B 4D 08 4A  53 52 20 4D B0 56 45 43  |RT...M.JSR M.VEC|
00000390: 00 98 0B 4E 08 52 54 53  00 9E 0B 50 08 3B 00 A7  |...N.RTS...P.;..|
000003A0: 0B 51 08 2E 50 41 44 00  BB 0B 52 08 54 56 45 43  |.Q..PAD...R.TVEC|
000003B0: 20 2E 57 B0 44 20 24 41  35 37 43 00 CF 0B 54 08  | .W.D $A57C...T.|
000003C0: 4C 56 45 43 20 2E 57 B0  44 20 24 41 37 31 41 00  |LVEC .W.D $A71A.|
000003D0: E3 0B 56 08 45 56 45 43  20 2E 57 B0 44 20 24 41  |..V.EVEC .W.D $A|
000003E0: 37 45 34 00 F7 0B 58 08  46 56 45 43 20 2E 57 B0  |7E4...X.FVEC .W.|
000003F0: 44 20 24 41 45 38 36 00  FD 0B 5A 08 3B 00 1C 0C  |D $AE86...Z.;...|
00000400: 5C 08 4E 55 56 45 43 53  20 2E 57 B0 44 20 A4 4B  |\.NUVECS .W.D .K|
00000410: 2C 4C 49 53 2C 45 58 43  2C 46 55 4E 00 22 0C 5E  |,LIS,EXC,FUN.".^|
00000420: 08 3B 00 30 0C 60 08 A4  4B 20 4C 44 58 20 23 30  |.;.0.`..K LDX #0|
00000430: 00 3B 0C 62 08 4C 44 59  20 23 30 00 4E 0C 64 08  |.;.b.LDY #0.N.d.|
00000440: 54 4B 31 20 4C 44 41 20  24 32 30 30 2C 58 00 5B  |TK1 LDA $200,X.[|
00000450: 0C 66 08 43 4D 50 20 23  24 32 32 00 67 0C 68 08  |.f.CMP #$22.g.h.|
00000460: 42 45 51 20 54 4B 39 00  75 0C 6A 08 4A 53 52 20  |BEQ TK9.u.j.JSR |
00000470: 43 8B 43 48 52 00 81 0C  6C 08 42 43 43 20 54 4B  |C.CHR...l.BCC TK|
00000480: 34 00 8D 0C 6E 08 53 54  59 20 24 37 31 00 98 0C  |4...n.STY $71...|
00000490: 70 08 53 54 58 20 54 33  00 A3 0C 72 08 4C 44 59  |p.STX T3...r.LDY|
000004A0: 20 23 30 00 AF 0C 74 08  53 54 59 20 24 30 42 00  | #0...t.STY $0B.|
000004B0: B7 0C 76 08 44 45 59 00  BF 0C 78 08 44 45 58 00  |..v.DEY...x.DEX.|
000004C0: CB 0C 7A 08 54 4B 32 20  49 4E 59 00 D3 0C 7C 08  |..z.TK2 INY...|.|
000004D0: 49 4E 58 00 E6 0C 7E 08  54 4B 33 20 4C 44 41 20  |INX...~.TK3 LDA |
000004E0: 24 32 30 30 2C 58 00 EE  0C 80 08 53 45 43 00 FC  |$200,X.....SEC..|
000004F0: 0C 82 08 53 42 43 20 53  4B 57 2C 59 00 08 0D 84  |...SBC SKW,Y....|
00000500: 08 42 45 51 20 54 4B 32  00 15 0D 86 08 43 4D 50  |.BEQ TK2.....CMP|
00000510: 20 23 24 38 30 00 21 0D  88 08 42 4E 45 20 54 4B  | #$80.!...BNE TK|
00000520: 35 00 2E 0D 8A 08 4C 44  41 20 23 24 35 46 00 3A  |5.....LDA #$5F.:|
00000530: 0D 8C 08 4C 44 59 20 24  37 31 00 49 0D 8E 08 53  |...LDY $71.I...S|
00000540: 54 41 20 24 32 30 30 2C  59 00 51 0D 90 08 49 4E  |TA $200,Y.Q...IN|
00000550: 59 00 5D 0D 92 08 4C 44  41 20 24 30 42 00 6A 0D  |Y.]...LDA $0B.j.|
00000560: 94 08 41 44 43 20 23 24  33 46 00 76 0D 96 08 54  |..ADC #$3F.v...T|
00000570: 4B 34 20 49 4E 58 00 85  0D 98 08 53 54 41 20 24  |K4 INX.....STA $|
00000580: 32 30 30 2C 59 00 8D 0D  9A 08 49 4E 59 00 9C 0D  |200,Y.....INY...|
00000590: 9C 08 4C 44 41 20 24 32  30 30 2C 59 00 A8 0D 9E  |..LDA $200,Y....|
000005A0: 08 42 4E 45 20 54 4B 31  00 B7 0D A0 08 4A 4D 50  |.BNE TK1.....JMP|
000005B0: 20 28 54 56 45 43 29 00  BD 0D A2 08 3B 00 CC 0D  | (TVEC).....;...|
000005C0: A4 08 54 4B 35 20 4C 44  58 20 54 33 00 DC 0D A6  |..TK5 LDX T3....|
000005D0: 08 54 4B 36 20 49 4E 43  20 24 30 42 00 E8 0D A8  |.TK6 INC $0B....|
000005E0: 08 4C 44 41 20 24 30 42  00 F5 0D AA 08 43 4D 50  |.LDA $0B.....CMP|
000005F0: 20 23 24 31 45 00 01 0E  AC 08 42 45 51 20 54 4B  | #$1E.....BEQ TK|
00000600: 36 00 0D 0E AE 08 54 4B  37 20 49 4E 59 00 1D 0E  |6.....TK7 INY...|
00000610: B0 08 4C 44 41 20 53 4B  57 AB 31 2C 59 00 29 0E  |..LDA SKW.1,Y.).|
00000620: B2 08 42 50 4C 20 54 4B  37 00 37 0E B4 08 4C 44  |..BPL TK7.7...LD|
00000630: 41 20 53 4B 57 2C 59 00  43 0E B6 08 42 4E 45 20  |A SKW,Y.C...BNE |
00000640: 54 4B 33 00 4F 0E B8 08  4C 44 59 20 24 37 31 00  |TK3.O...LDY $71.|
00000650: 5E 0E BA 08 4C 44 41 20  24 32 30 30 2C 58 00 6A  |^...LDA $200,X.j|
00000660: 0E BC 08 42 50 4C 20 54  4B 34 00 70 0E BE 08 3B  |...BPL TK4.p...;|
00000670: 00 83 0E C0 08 54 4B 38  20 4C 44 41 20 24 32 30  |.....TK8 LDA $20|
00000680: 30 2C 58 00 8F 0E C2 08  42 45 51 20 54 4B 34 00  |0,X.....BEQ TK4.|
00000690: 9C 0E C4 08 43 4D 50 20  23 24 32 32 00 A8 0E C6  |....CMP #$22....|
000006A0: 08 42 45 51 20 54 4B 34  00 BB 0E C8 08 54 4B 39  |.BEQ TK4.....TK9|
000006B0: 20 53 54 41 20 24 32 30  30 2C 59 00 C3 0E CA 08  | STA $200,Y.....|
000006C0: 49 4E 59 00 CB 0E CC 08  49 4E 58 00 D7 0E CE 08  |INY.....INX.....|
000006D0: 42 4E 45 20 54 4B 38 00  DD 0E D0 08 3B 00 EE 0E  |BNE TK8.....;...|
000006E0: D2 08 4C 49 53 20 43 4D  50 20 23 24 35 46 00 F9  |..LIS CMP #$5F..|
000006F0: 0E D4 08 42 4E 45 20 4C  32 00 01 0F D6 08 49 4E  |...BNE L2.....IN|
00000700: 59 00 11 0F D8 08 4C 44  41 20 28 24 35 46 29 2C  |Y.....LDA ($5F),|
00000710: 59 00 1E 0F DA 08 53 42  43 20 23 24 34 30 00 2B  |Y.....SBC #$40.+|
00000720: 0F DC 08 43 4D 50 20 23  24 31 45 00 36 0F DE 08  |...CMP #$1E.6...|
00000730: 42 43 43 20 4C 31 00 41  0F E0 08 53 42 43 20 23  |BCC L1.A...SBC #|
00000740: 31 00 53 0F E2 08 4C 31  20 43 4D 50 20 58 54 52  |1.S...L1 CMP XTR|
00000750: 41 AA 32 00 5E 0F E4 08  42 43 43 20 4C 33 00 66  |A.2.^...BCC L3.f|
00000760: 0F E6 08 44 45 59 00 76  0F E8 08 4C 44 41 20 28  |...DEY.v...LDA (|
00000770: 24 35 46 29 2C 59 00 81  0F EA 08 4C 32 20 54 41  |$5F),Y.....L2 TA|
00000780: 58 00 90 0F EC 08 4A 4D  50 20 28 4C 56 45 43 29  |X.....JMP (LVEC)|
00000790: 00 96 0F EE 08 3B 00 A4  0F F0 08 4C 33 20 53 54  |.....;.....L3 ST|
000007A0: 59 20 54 33 00 AF 0F F2  08 4C 44 59 20 23 30 00  |Y T3.....LDY #0.|
000007B0: B7 0F F4 08 54 41 58 00  C2 0F F6 08 42 45 51 20  |....TAX.....BEQ |
000007C0: 4C 35 00 D3 0F F8 08 4C  34 20 4C 44 41 20 53 4B  |L5.....L4 LDA SK|
000007D0: 57 2C 59 00 DB 0F FA 08  50 48 50 00 E3 0F FC 08  |W,Y.....PHP.....|
000007E0: 49 4E 59 00 EB 0F FE 08  50 4C 50 00 F6 0F 00 09  |INY.....PLP.....|
000007F0: 42 50 4C 20 4C 34 00 FE  0F 02 09 44 45 58 00 09  |BPL L4.....DEX..|
00000800: 10 04 09 42 4E 45 20 4C  34 00 0F 10 06 09 3B 00  |...BNE L4.....;.|
00000810: 20 10 08 09 4C 35 20 4C  44 41 20 53 4B 57 2C 59  | ...L5 LDA SKW,Y|
00000820: 00 28 10 0A 09 50 48 50  00 33 10 0C 09 AF 20 23  |.(...PHP.3.... #|
00000830: 24 37 46 00 41 10 0E 09  4A 53 52 20 24 41 42 34  |$7F.A...JSR $AB4|
00000840: 37 00 49 10 10 09 49 4E  59 00 51 10 12 09 50 4C  |7.I...INY.Q...PL|
00000850: 50 00 5C 10 14 09 42 50  4C 20 4C 35 00 67 10 16  |P.\...BPL L5.g..|
00000860: 09 4C 44 59 20 54 33 00  78 10 18 09 4C 36 20 4A  |.LDY T3.x...L6 J|
00000870: 4D 50 20 24 41 37 30 30  00 7E 10 1A 09 3B 00 8E  |MP $A700.~...;..|
00000880: 10 1C 09 45 58 43 20 4A  53 52 20 24 37 33 00 9F  |...EXC JSR $73..|
00000890: 10 1E 09 45 58 31 20 43  4D 50 20 23 24 38 42 00  |...EX1 CMP #$8B.|
000008A0: AB 10 20 09 42 45 51 20  45 58 38 00 B8 10 22 09  |.. .BEQ EX8...".|
000008B0: 43 4D 50 20 23 24 35 46  00 C4 10 24 09 42 4E 45  |CMP #$5F...$.BNE|
000008C0: 20 45 58 35 00 D0 10 26  09 4A 53 52 20 24 37 33  | EX5...&.JSR $73|
000008D0: 00 DC 10 28 09 4A 53 52  20 45 58 32 00 EA 10 2A  |...(.JSR EX2...*|
000008E0: 09 4A 4D 50 20 24 41 37  41 45 00 F0 10 2C 09 3B  |.JMP $A7AE...,.;|
000008F0: 00 FC 10 2E 09 45 58 32  20 53 45 43 00 09 11 30  |.....EX2 SEC...0|
00000900: 09 53 42 43 20 23 24 34  30 00 16 11 32 09 43 4D  |.SBC #$40...2.CM|
00000910: 50 20 23 24 31 45 00 22  11 34 09 42 43 43 20 45  |P #$1E.".4.BCC E|
00000920: 58 33 00 2D 11 36 09 53  42 43 20 23 31 00 3E 11  |X3.-.6.SBC #1.>.|
00000930: 38 09 45 58 33 20 43 4D  50 20 58 54 52 41 00 4A  |8.EX3 CMP XTRA.J|
00000940: 11 3A 09 42 43 53 20 45  58 37 00 52 11 3C 09 41  |.:.BCS EX7.R.<.A|
00000950: 53 4C 00 5A 11 3E 09 54  41 59 00 69 11 40 09 4C  |SL.Z.>.TAY.i.@.L|
00000960: 44 41 20 9D 53 AA 31 2C  59 00 71 11 42 09 50 48  |DA .S.1,Y.q.B.PH|
00000970: 41 00 7E 11 44 09 4C 44  41 20 9D 53 2C 59 00 86  |A.~.D.LDA .S,Y..|
00000980: 11 46 09 50 48 41 00 92  11 48 09 4A 4D 50 20 24  |.F.PHA...H.JMP $|
00000990: 37 33 00 98 11 4A 09 3B  00 A8 11 4C 09 45 58 35  |73...J.;...L.EX5|
000009A0: 20 4C 44 41 20 24 37 41  00 B4 11 4E 09 42 4E 45  | LDA $7A...N.BNE|
000009B0: 20 45 58 36 00 C0 11 50  09 44 45 43 20 24 37 42  | EX6...P.DEC $7B|
000009C0: 00 D0 11 52 09 45 58 36  20 44 45 43 20 24 37 41  |...R.EX6 DEC $7A|
000009D0: 00 DF 11 54 09 4A 4D 50  20 28 45 56 45 43 29 00  |...T.JMP (EVEC).|
000009E0: E5 11 56 09 3B 00 F7 11  58 09 45 58 37 20 4A 4D  |..V.;...X.EX7 JM|
000009F0: 50 20 24 41 46 30 38 00  FD 11 5A 09 3B 00 0D 12  |P $AF08...Z.;...|
00000A00: 5C 09 45 58 38 20 4A 53  52 20 45 58 39 00 1B 12  |\.EX8 JSR EX9...|
00000A10: 5E 09 4A 4D 50 20 24 41  37 41 45 00 21 12 60 09  |^.JMP $A7AE.!.`.|
00000A20: 3B 00 36 12 62 09 45 58  39 20 4C 44 41 20 23 B1  |;.6.b.EX9 LDA #.|
00000A30: 8B 52 54 4E AB 31 00 3E  12 64 09 50 48 41 00 4F  |.RTN.1.>.d.PHA.O|
00000A40: 12 66 09 4C 44 41 20 23  B3 8B 52 54 4E AB 31 00  |.f.LDA #..RTN.1.|
00000A50: 57 12 68 09 50 48 41 00  63 12 6A 09 4A 4D 50 20  |W.h.PHA.c.j.JMP |
00000A60: 24 37 33 00 69 12 6C 09  3B 00 79 12 6E 09 46 55  |$73.i.l.;.y.n.FU|
00000A70: 4E 20 4A 53 52 20 24 37  33 00 86 12 70 09 43 4D  |N JSR $73...p.CM|
00000A80: 50 20 23 24 35 46 00 92  12 72 09 42 45 51 20 46  |P #$5F...r.BEQ F|
00000A90: 55 32 00 9E 12 74 09 4C  44 41 20 24 37 41 00 AA  |U2...t.LDA $7A..|
00000AA0: 12 76 09 42 4E 45 20 46  55 31 00 B6 12 78 09 44  |.v.BNE FU1...x.D|
00000AB0: 45 43 20 24 37 42 00 C6  12 7A 09 46 55 31 20 44  |EC $7B...z.FU1 D|
00000AC0: 45 43 20 24 37 41 00 D5  12 7C 09 4A 4D 50 20 28  |EC $7A...|.JMP (|
00000AD0: 46 56 45 43 29 00 DB 12  7E 09 3B 00 EA 12 80 09  |FVEC)...~.;.....|
00000AE0: 46 55 32 20 4C 44 41 20  23 30 00 F6 12 82 09 53  |FU2 LDA #0.....S|
00000AF0: 54 41 20 24 30 44 00 02  13 84 09 4A 53 52 20 24  |TA $0D.....JSR $|
00000B00: 37 33 00 0A 13 86 09 53  45 43 00 17 13 88 09 53  |73.....SEC.....S|
00000B10: 42 43 20 23 24 34 30 00  24 13 8A 09 43 4D 50 20  |BC #$40.$...CMP |
00000B20: 23 24 31 45 00 30 13 8C  09 42 43 43 20 46 55 33  |#$1E.0...BCC FU3|
00000B30: 00 3B 13 8E 09 53 42 43  20 23 31 00 47 13 90 09  |.;...SBC #1.G...|
00000B40: 46 55 33 20 53 45 43 00  54 13 92 09 53 42 43 20  |FU3 SEC.T...SBC |
00000B50: 58 54 52 41 00 60 13 94  09 42 43 43 20 45 58 37  |XTRA.`...BCC EX7|
00000B60: 00 6F 13 96 09 43 4D 50  20 58 54 52 41 AA 31 00  |.o...CMP XTRA.1.|
00000B70: 7B 13 98 09 42 43 53 20  45 58 37 00 83 13 9A 09  |{...BCS EX7.....|
00000B80: 41 53 4C 00 8B 13 9C 09  54 41 59 00 9B 13 9E 09  |ASL.....TAY.....|
00000B90: 4C 44 41 20 A5 43 53 AA  31 2C 59 00 A3 13 A0 09  |LDA .CS.1,Y.....|
00000BA0: 50 48 41 00 B1 13 A2 09  4C 44 41 20 A5 43 53 2C  |PHA.....LDA .CS,|
00000BB0: 59 00 B9 13 A4 09 50 48  41 00 C5 13 A6 09 4A 4D  |Y.....PHA.....JM|
00000BC0: 50 20 24 37 33 00 CB 13  A8 09 3B 00 DE 13 AA 09  |P $73.....;.....|
00000BD0: 8B 52 54 4E 20 4A 53 52  20 24 41 44 39 45 00 EA  |.RTN JSR $AD9E..|
00000BE0: 13 AC 09 4A 53 52 20 24  37 39 00 F7 13 AE 09 43  |...JSR $79.....C|
00000BF0: 4D 50 20 23 24 38 39 00  02 14 B0 09 42 45 51 20  |MP #$89.....BEQ |
00000C00: 8B 31 00 0F 14 B2 09 4C  44 41 20 23 24 41 37 00  |.1.....LDA #$A7.|
00000C10: 1D 14 B4 09 4A 53 52 20  24 41 45 46 46 00 2C 14  |....JSR $AEFF.,.|
00000C20: B6 09 8B 31 20 4A 53 52  20 24 37 39 00 38 14 B8  |...1 JSR $79.8..|
00000C30: 09 4C 44 58 20 24 36 31  00 47 14 BA 09 42 45 51  |.LDX $61.G...BEQ|
00000C40: 20 45 4C 53 52 54 4E 00  52 14 BC 09 42 43 53 20  | ELSRTN.R...BCS |
00000C50: 8B 32 00 60 14 BE 09 4A  4D 50 20 24 41 38 41 30  |.2.`...JMP $A8A0|
00000C60: 00 6B 14 C0 09 8B 32 20  50 4C 41 00 73 14 C2 09  |.k....2 PLA.s...|
00000C70: 50 4C 41 00 7F 14 C4 09  4A 53 52 20 24 37 39 00  |PLA.....JSR $79.|
00000C80: 8B 14 C6 09 4A 4D 50 20  45 58 31 00 91 14 D0 09  |....JMP EX1.....|
00000C90: 3B 00 A6 14 D2 09 45 4C  53 52 54 4E 20 4A 53 52  |;.....ELSRTN JSR|
00000CA0: 20 24 41 38 46 38 00 B2  14 D4 09 4A 53 52 20 24  | $A8F8.....JSR $|
00000CB0: 37 39 00 BD 14 D6 09 43  4D 50 20 23 30 00 CA 14  |79.....CMP #0...|
00000CC0: D8 09 42 4E 45 20 45 4C  53 31 00 D2 14 DA 09 52  |..BNE ELS1.....R|
00000CD0: 54 53 00 E3 14 DC 09 45  4C 53 31 20 4A 53 52 20  |TS.....ELS1 JSR |
00000CE0: 24 37 33 00 F0 14 DE 09  43 4D 50 20 23 24 35 46  |$73.....CMP #$5F|
00000CF0: 00 FF 14 E0 09 42 4E 45  20 45 4C 53 52 54 4E 00  |.....BNE ELSRTN.|
00000D00: 0B 15 E2 09 4A 53 52 20  24 37 33 00 18 15 E4 09  |....JSR $73.....|
00000D10: 43 4D 50 20 23 24 34 30  00 27 15 E6 09 42 4E 45  |CMP #$40.'...BNE|
00000D20: 20 45 4C 53 52 54 4E 00  33 15 E8 09 4A 53 52 20  | ELSRTN.3...JSR |
00000D30: 24 37 33 00 3E 15 EA 09  4A 4D 50 20 8B 32 00 44  |$73.>...JMP .2.D|
00000D40: 15 EC 09 3B 00 53 15 EE  09 45 58 54 20 4C 44 58  |...;.S...EXT LDX|
00000D50: 20 23 37 00 67 15 F0 09  45 58 54 31 20 4C 44 41  | #7.g...EXT1 LDA|
00000D60: 20 54 56 45 43 2C 58 00  76 15 F2 09 53 54 41 20  | TVEC,X.v...STA |
00000D70: 24 33 30 34 2C 58 00 7E  15 F4 09 44 45 58 00 8B  |$304,X.~...DEX..|
00000D80: 15 F6 09 42 50 4C 20 45  58 54 31 00 98 15 F8 09  |...BPL EXT1.....|
00000D90: 4C 44 41 20 23 24 41 32  00 A6 15 FA 09 53 54 41  |LDA #$A2.....STA|
00000DA0: 20 53 54 41 52 54 00 B5  15 FB 09 4A 53 52 20 4B  | START.....JSR K|
00000DB0: 49 4C 56 45 43 00 C3 15  FC 09 4A 4D 50 20 50 44  |ILVEC.....JMP PD|
00000DC0: 4F 57 4E 00 C9 15 FE 09  3B 00 DC 15 00 0A 43 8B  |OWN.....;.....C.|
00000DD0: 43 48 52 20 43 4D 50 20  23 24 35 42 00 E9 15 02  |CHR CMP #$5B....|
00000DE0: 0A 42 43 43 20 43 49 43  31 00 F1 15 04 0A 43 4C  |.BCC CIC1.....CL|
00000DF0: 43 00 FE 15 06 0A 42 43  43 20 43 49 43 32 00 10  |C.....BCC CIC2..|
00000E00: 16 08 0A 43 49 43 31 20  43 4D 50 20 23 24 34 31  |...CIC1 CMP #$41|
00000E10: 00 1D 16 0A 0A 43 49 43  32 20 52 54 53 00 23 16  |.....CIC2 RTS.#.|
00000E20: 0C 0A 3B 00 31 16 66 14  50 44 4F 57 4E 20 52 54  |..;.1.f.PDOWN RT|
00000E30: 53 00 37 16 68 14 3B 00  45 16 CA 23 4D B0 56 45  |S.7.h.;.E..#M.VE|
00000E40: 43 20 B2 20 AC 00 4D 16  DA 23 52 54 53 00 5C 16  |C . ..M..#RTS.\.|
00000E50: DE 23 4B 49 4C 56 45 43  20 B2 20 AC 00 64 16 EE  |.#KILVEC . ..d..|
00000E60: 23 52 54 53 00 6A 16 F0  23 3B 00 00 00           |#RTS.j..#;...   |

..).... TRANSBASIC KERNEL (SEPT 29/84)  
:./...:.O.... 2 STATEMENTS, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS:  8.X...:
. .... KEYWORD     ROUTINE  LINE   SER #
.G.... S/ELSE      ELSRTN   2514    001.
..... S/EXIT      EXT      2542    002..
...:...... UTILITY: CIFCHR (2560/003)...
..:.?.... KERNEL ALSO INCLUDES MODIFIED.
E.... 'IF' STATEMENT (IFRTN/2474/000).K.
..:...... B(773).192 . 29.....:....._A..
...:...... 700....... $C000... .;...!.T2
 . 2.G.".T3 . 3.R.#.T4 . 4...$.T5 . 5...
%.T6 . 6...&.;...[.;...\.JMP START...].J
MP EXT...^.;.7._.XTRA .BYTE 2,0   ; STMT
S,FUNCS.=.`.;.I.A..BYTE 0.O.B.;.Z.C.SKW 
...L.D..F "ELSEEXIT".R.V.;.}.W.FKW .....
H.;...I..BYTE 0...J.;...K..S .....L..W.D
 $A93A,EXT.1...>.;.E.?..CS ...K.3.;...4.
START LDX #7...6.STT1 LDA $304,X...8.STA
 TVEC,X...:.LDA NUVECS,X...<.STA $304,X.
'.>.DEX.4.@.BPL STT1.A.B.LDA XTRA.I.D.CL
C.X.F.ADC XTRA.1.G.H.STA XTRA.2.T.J.LDA 
#$60...L.STA START...M.JSR M.VEC...N.RTS
...P.;...Q..PAD...R.TVEC .W.D $A57C.O.T.
LVEC .W.D $A71A...V.EVEC .W.D $A7E4...X.
FVEC .W.D $AE86...Z.;...\.NUVECS .W.D .K
,LIS,EXC,FUN.".^.;.0.`..K LDX #0.;.B.LDY
 #0.N.D.TK1 LDA $200,X.[.F.CMP #$22.G.H.
BEQ TK9.U.J.JSR C.CHR...L.BCC TK4...N.ST
Y $71...P.STX T3...R.LDY #0...T.STY $0B.
..V.DEY...X.DEX.K.Z.TK2 INY.S.|.INX...~.
TK3 LDA $200,X.....SEC.....SBC SKW,Y....
.BEQ TK2.....CMP #$80.!...BNE TK5.....LD
A #$5F.:...LDY $71.I...STA $200,Y.Q...IN
Y.]...LDA $0B.J...ADC #$3F.V...TK4 INX..
...STA $200,Y.....INY.....LDA $200,Y....
.BNE TK1... .JMP (TVEC).....;.L...TK5 LD
X T3.....TK6 INC $0B.....LDA $0B.....CMP
 #$1E.....BEQ TK6.....TK7 INY.....LDA SK
W.1,Y.)...BPL TK7.7...LDA SKW,Y.C...BNE 
TK3.O...LDY $71.^...LDA $200,X.J...BPL T
K4.P...;.....TK8 LDA $200,X...B.BEQ TK4.
..D.CMP #$22...F.BEQ TK4...H.TK9 STA $20
0,Y.C.J.INY.K.L.INX.W.N.BNE TK8...P.;...
R.LIS CMP #$5F...T.BNE L2...V.INY...X.LD
A ($5F),Y...Z.SBC #$40.+...CMP #$1E.6...
BCC L1.A...SBC #1.S...L1 CMP XTRA.2.^...
BCC L3.F...DEY.V...LDA ($5F),Y.....L2 TA
X.....JMP (LVEC).....;.....L3 STY T3....
.LDY #0.....TAX.B...BEQ L5.S...L4 LDA SK
W,Y.....PHP.....INY.....PLP.....BPL L4..
...DEX.....BNE L4.....;. ...L5 LDA SKW,Y
.(...PHP.3.... #$7F.A...JSR $AB47.I...IN
Y.Q...PLP.\...BPL L5.G...LDY T3.X...L6 J
MP $A700.~...;.....EXC JSR $73.....EX1 C
MP #$8B... .BEQ EX8...".CMP #$5F.D.$.BNE
 EX5.P.&.JSR $73...(.JSR EX2...*.JMP $A7
AE...,.;.....EX2 SEC...0.SBC #$40...2.CM
P #$1E.".4.BCC EX3.-.6.SBC #1.>.8.EX3 CM
P XTRA.J.:.BCS EX7.R.<.ASL.Z.>.TAY.I.@.L
DA .S.1,Y.Q.B.PHA.~.D.LDA .S,Y...F.PHA..
.H.JMP $73...J.;...L.EX5 LDA $7A...N.BNE
 EX6...P.DEC $7B.P.R.EX6 DEC $7A...T.JMP
 (EVEC)...V.;...X.EX7 JMP $AF08...Z.;...
\.EX8 JSR EX9...^.JMP $A7AE.!.`.;.6.B.EX
9 LDA #..RTN.1.>.D.PHA.O.F.LDA #..RTN.1.
W.H.PHA.C.J.JMP $73.I.L.;.Y.N.FUN JSR $7
3...P.CMP #$5F...R.BEQ FU2...T.LDA $7A..
.V.BNE FU1...X.DEC $7B.F.Z.FU1 DEC $7A.U
.|.JMP (FVEC)...~.;.....FU2 LDA #0.....S
TA $0D.....JSR $73.....SEC.....SBC #$40.
$...CMP #$1E.0...BCC FU3.;...SBC #1.G...
FU3 SEC.T...SBC XTRA.`...BCC EX7.O...CMP
 XTRA.1.{...BCS EX7.....ASL.....TAY.....
LDA .CS.1,Y... .PHA.....LDA .CS,Y.....PH
A.E...JMP $73.K...;......RTN JSR $AD9E..
...JSR $79.....CMP #$89.....BEQ .1.....L
DA #$A7.....JSR $AEFF.,....1 JSR $79.8..
.LDX $61.G...BEQ ELSRTN.R...BCS .2.`...J
MP $A8A0.K....2 PLA.S.B.PLA..D.JSR $79.
..F.JMP EX1...P.;...R.ELSRTN JSR $A8F8..
.T.JSR $79...V.CMP #0.J.X.BNE ELS1.R.Z.R
TS.....ELS1 JSR $73.....CMP #$5F.....BNE
 ELSRTN.....JSR $73.....CMP #$40.'...BNE
 ELSRTN.3...JSR $73.>...JMP .2.D...;.S..
.EXT LDX #7.G...EXT1 LDA TVEC,X.V...STA 
$304,X.~...DEX.....BPL EXT1.....LDA #$A2
.....STA START.....JSR KILVEC.C...JMP PD
OWN.I...;.....C.CHR CMP #$5B.....BCC CIC
1.....CLC.....BCC CIC2.....CIC1 CMP #$41
.....CIC2 RTS.#...;.1.F.PDOWN RTS.7.H.;.
E.J#M.VEC . ..M.Z#RTS.\..#KILVEC . ..D..
#RTS.J..#;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL