TB/KERNEL
FILE INFORMATION
FILENAME(S): TB/KERNEL
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 21:12:59
APPEARS ON: 1 disk(s)
FILE HASH
187ddd319f8fa2a54546f05593e820d17576246b93cbed9a16415461a0b31d46
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | TB/KERNEL | PRG | DuncanTwain | 22 | 5 | 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 AA |...:...... 700..|
000001A0: 09 1E 00 2E 4F 50 54 20 4F 4F 00 B7 09 1F 00 AC |....OPT OO......|
000001B0: B2 20 24 43 30 30 30 00 BD 09 20 00 3B 00 C8 09 |. $C000... .;...|
000001C0: 21 00 54 32 20 B2 20 32 00 D3 09 22 00 54 33 20 |!.T2 . 2...".T3 |
000001D0: B2 20 33 00 DE 09 23 00 54 34 20 B2 20 34 00 E9 |. 3...#.T4 . 4..|
000001E0: 09 24 00 54 35 20 B2 20 35 00 F4 09 25 00 54 36 |.$.T5 . 5...%.T6|
000001F0: 20 B2 20 36 00 FA 09 26 00 3B 00 00 0A 5B 00 3B | . 6...&.;...[.;|
00000200: 00 0E 0A 5C 00 4A 4D 50 20 53 54 41 52 54 00 1A |...\.JMP START..|
00000210: 0A 5D 00 4A 4D 50 20 45 58 54 00 20 0A 5E 00 3B |.].JMP EXT. .^.;|
00000220: 00 43 0A 5F 00 58 54 52 41 20 2E 42 59 54 45 20 |.C._.XTRA .BYTE |
00000230: 32 2C 30 20 20 20 3B 20 53 54 4D 54 53 2C 46 55 |2,0 ; STMTS,FU|
00000240: 4E 43 53 00 49 0A 60 00 3B 00 55 0A 61 00 2E 42 |NCS.I.`.;.U.a..B|
00000250: 59 54 45 20 30 00 5B 0A 62 00 3B 00 66 0A 63 00 |YTE 0.[.b.;.f.c.|
00000260: 53 4B 57 20 B2 AC 00 78 0A 64 00 2E C6 20 22 45 |SKW ...x.d... "E|
00000270: 4C 53 C5 45 58 49 D4 22 00 7E 0A 56 02 3B 00 89 |LS.EXI.".~.V.;..|
00000280: 0A 57 02 46 4B 57 20 B2 AC 00 8F 0A 48 04 3B 00 |.W.FKW .....H.;.|
00000290: 9B 0A 49 04 2E 42 59 54 45 20 30 00 A1 0A 4A 04 |..I..BYTE 0...J.|
000002A0: 3B 00 AB 0A 4B 04 9D 53 20 B2 AC 00 C0 0A 4C 04 |;...K..S .....L.|
000002B0: 2E 57 B0 44 20 24 41 39 33 41 2C 45 58 54 AB 31 |.W.D $A93A,EXT.1|
000002C0: 00 C6 0A 3E 06 3B 00 D1 0A 3F 06 A5 43 53 20 B2 |...>.;...?..CS .|
000002D0: AC 00 D7 0A 33 08 3B 00 E8 0A 34 08 53 54 41 52 |....3.;...4.STAR|
000002E0: 54 20 4C 44 58 20 23 37 00 FC 0A 36 08 53 54 54 |T LDX #7...6.STT|
000002F0: 31 20 4C 44 41 20 24 33 30 34 2C 58 00 0B 0B 38 |1 LDA $304,X...8|
00000300: 08 53 54 41 20 54 56 45 43 2C 58 00 1C 0B 3A 08 |.STA TVEC,X...:.|
00000310: 4C 44 41 20 4E 55 56 45 43 53 2C 58 00 2B 0B 3C |LDA NUVECS,X.+.<|
00000320: 08 53 54 41 20 24 33 30 34 2C 58 00 33 0B 3E 08 |.STA $304,X.3.>.|
00000330: 44 45 58 00 40 0B 40 08 42 50 4C 20 53 54 54 31 |DEX.@.@.BPL STT1|
00000340: 00 4D 0B 42 08 4C 44 41 20 58 54 52 41 00 55 0B |.M.B.LDA XTRA.U.|
00000350: 44 08 43 4C 43 00 64 0B 46 08 41 44 43 20 58 54 |D.CLC.d.F.ADC XT|
00000360: 52 41 AA 31 00 73 0B 48 08 53 54 41 20 58 54 52 |RA.1.s.H.STA XTR|
00000370: 41 AA 32 00 80 0B 4A 08 4C 44 41 20 23 24 36 30 |A.2...J.LDA #$60|
00000380: 00 8E 0B 4C 08 53 54 41 20 53 54 41 52 54 00 96 |...L.STA START..|
00000390: 0B 4E 08 52 54 53 00 9C 0B 50 08 3B 00 B0 0B 52 |.N.RTS...P.;...R|
000003A0: 08 54 56 45 43 20 2E 57 B0 44 20 24 41 35 37 43 |.TVEC .W.D $A57C|
000003B0: 00 C4 0B 54 08 4C 56 45 43 20 2E 57 B0 44 20 24 |...T.LVEC .W.D $|
000003C0: 41 37 31 41 00 D8 0B 56 08 45 56 45 43 20 2E 57 |A71A...V.EVEC .W|
000003D0: B0 44 20 24 41 37 45 34 00 EC 0B 58 08 46 56 45 |.D $A7E4...X.FVE|
000003E0: 43 20 2E 57 B0 44 20 24 41 45 38 36 00 F2 0B 5A |C .W.D $AE86...Z|
000003F0: 08 3B 00 11 0C 5C 08 4E 55 56 45 43 53 20 2E 57 |.;...\.NUVECS .W|
00000400: B0 44 20 A4 4B 2C 4C 49 53 2C 45 58 43 2C 46 55 |.D .K,LIS,EXC,FU|
00000410: 4E 00 17 0C 5E 08 3B 00 25 0C 60 08 A4 4B 20 4C |N...^.;.%.`..K L|
00000420: 44 58 20 23 30 00 30 0C 62 08 4C 44 59 20 23 30 |DX #0.0.b.LDY #0|
00000430: 00 43 0C 64 08 54 4B 31 20 4C 44 41 20 24 32 30 |.C.d.TK1 LDA $20|
00000440: 30 2C 58 00 50 0C 66 08 43 4D 50 20 23 24 32 32 |0,X.P.f.CMP #$22|
00000450: 00 5C 0C 68 08 42 45 51 20 54 4B 39 00 6A 0C 6A |.\.h.BEQ TK9.j.j|
00000460: 08 4A 53 52 20 43 8B 43 48 52 00 76 0C 6C 08 42 |.JSR C.CHR.v.l.B|
00000470: 43 43 20 54 4B 34 00 82 0C 6E 08 53 54 59 20 24 |CC TK4...n.STY $|
00000480: 37 31 00 8D 0C 70 08 53 54 58 20 54 33 00 98 0C |71...p.STX T3...|
00000490: 72 08 4C 44 59 20 23 30 00 A4 0C 74 08 53 54 59 |r.LDY #0...t.STY|
000004A0: 20 24 30 42 00 AC 0C 76 08 44 45 59 00 B4 0C 78 | $0B...v.DEY...x|
000004B0: 08 44 45 58 00 C0 0C 7A 08 54 4B 32 20 49 4E 59 |.DEX...z.TK2 INY|
000004C0: 00 C8 0C 7C 08 49 4E 58 00 DB 0C 7E 08 54 4B 33 |...|.INX...~.TK3|
000004D0: 20 4C 44 41 20 24 32 30 30 2C 58 00 E3 0C 80 08 | LDA $200,X.....|
000004E0: 53 45 43 00 F1 0C 82 08 53 42 43 20 53 4B 57 2C |SEC.....SBC SKW,|
000004F0: 59 00 FD 0C 84 08 42 45 51 20 54 4B 32 00 0A 0D |Y.....BEQ TK2...|
00000500: 86 08 43 4D 50 20 23 24 38 30 00 16 0D 88 08 42 |..CMP #$80.....B|
00000510: 4E 45 20 54 4B 35 00 23 0D 8A 08 4C 44 41 20 23 |NE TK5.#...LDA #|
00000520: 24 35 46 00 2F 0D 8C 08 4C 44 59 20 24 37 31 00 |$5F./...LDY $71.|
00000530: 3E 0D 8E 08 53 54 41 20 24 32 30 30 2C 59 00 46 |>...STA $200,Y.F|
00000540: 0D 90 08 49 4E 59 00 52 0D 92 08 4C 44 41 20 24 |...INY.R...LDA $|
00000550: 30 42 00 5F 0D 94 08 41 44 43 20 23 24 33 46 00 |0B._...ADC #$3F.|
00000560: 6B 0D 96 08 54 4B 34 20 49 4E 58 00 7A 0D 98 08 |k...TK4 INX.z...|
00000570: 53 54 41 20 24 32 30 30 2C 59 00 82 0D 9A 08 49 |STA $200,Y.....I|
00000580: 4E 59 00 91 0D 9C 08 4C 44 41 20 24 32 30 30 2C |NY.....LDA $200,|
00000590: 59 00 9D 0D 9E 08 42 4E 45 20 54 4B 31 00 AC 0D |Y.....BNE TK1...|
000005A0: A0 08 4A 4D 50 20 28 54 56 45 43 29 00 B2 0D A2 |..JMP (TVEC)....|
000005B0: 08 3B 00 C1 0D A4 08 54 4B 35 20 4C 44 58 20 54 |.;.....TK5 LDX T|
000005C0: 33 00 D1 0D A6 08 54 4B 36 20 49 4E 43 20 24 30 |3.....TK6 INC $0|
000005D0: 42 00 DD 0D A8 08 4C 44 41 20 24 30 42 00 EA 0D |B.....LDA $0B...|
000005E0: AA 08 43 4D 50 20 23 24 31 45 00 F6 0D AC 08 42 |..CMP #$1E.....B|
000005F0: 45 51 20 54 4B 36 00 02 0E AE 08 54 4B 37 20 49 |EQ TK6.....TK7 I|
00000600: 4E 59 00 12 0E B0 08 4C 44 41 20 53 4B 57 AB 31 |NY.....LDA SKW.1|
00000610: 2C 59 00 1E 0E B2 08 42 50 4C 20 54 4B 37 00 2C |,Y.....BPL TK7.,|
00000620: 0E B4 08 4C 44 41 20 53 4B 57 2C 59 00 38 0E B6 |...LDA SKW,Y.8..|
00000630: 08 42 4E 45 20 54 4B 33 00 44 0E B8 08 4C 44 59 |.BNE TK3.D...LDY|
00000640: 20 24 37 31 00 53 0E BA 08 4C 44 41 20 24 32 30 | $71.S...LDA $20|
00000650: 30 2C 58 00 5F 0E BC 08 42 50 4C 20 54 4B 34 00 |0,X._...BPL TK4.|
00000660: 65 0E BE 08 3B 00 78 0E C0 08 54 4B 38 20 4C 44 |e...;.x...TK8 LD|
00000670: 41 20 24 32 30 30 2C 58 00 84 0E C2 08 42 45 51 |A $200,X.....BEQ|
00000680: 20 54 4B 34 00 91 0E C4 08 43 4D 50 20 23 24 32 | TK4.....CMP #$2|
00000690: 32 00 9D 0E C6 08 42 45 51 20 54 4B 34 00 B0 0E |2.....BEQ TK4...|
000006A0: C8 08 54 4B 39 20 53 54 41 20 24 32 30 30 2C 59 |..TK9 STA $200,Y|
000006B0: 00 B8 0E CA 08 49 4E 59 00 C0 0E CC 08 49 4E 58 |.....INY.....INX|
000006C0: 00 CC 0E CE 08 42 4E 45 20 54 4B 38 00 D2 0E D0 |.....BNE TK8....|
000006D0: 08 3B 00 E3 0E D2 08 4C 49 53 20 43 4D 50 20 23 |.;.....LIS CMP #|
000006E0: 24 35 46 00 EE 0E D4 08 42 4E 45 20 4C 32 00 F6 |$5F.....BNE L2..|
000006F0: 0E D6 08 49 4E 59 00 06 0F D8 08 4C 44 41 20 28 |...INY.....LDA (|
00000700: 24 35 46 29 2C 59 00 13 0F DA 08 53 42 43 20 23 |$5F),Y.....SBC #|
00000710: 24 34 30 00 20 0F DC 08 43 4D 50 20 23 24 31 45 |$40. ...CMP #$1E|
00000720: 00 2B 0F DE 08 42 43 43 20 4C 31 00 36 0F E0 08 |.+...BCC L1.6...|
00000730: 53 42 43 20 23 31 00 48 0F E2 08 4C 31 20 43 4D |SBC #1.H...L1 CM|
00000740: 50 20 58 54 52 41 AA 32 00 53 0F E4 08 42 43 43 |P XTRA.2.S...BCC|
00000750: 20 4C 33 00 5B 0F E6 08 44 45 59 00 6B 0F E8 08 | L3.[...DEY.k...|
00000760: 4C 44 41 20 28 24 35 46 29 2C 59 00 76 0F EA 08 |LDA ($5F),Y.v...|
00000770: 4C 32 20 54 41 58 00 85 0F EC 08 4A 4D 50 20 28 |L2 TAX.....JMP (|
00000780: 4C 56 45 43 29 00 8B 0F EE 08 3B 00 99 0F F0 08 |LVEC).....;.....|
00000790: 4C 33 20 53 54 59 20 54 33 00 A4 0F F2 08 4C 44 |L3 STY T3.....LD|
000007A0: 59 20 23 30 00 AC 0F F4 08 54 41 58 00 B7 0F F6 |Y #0.....TAX....|
000007B0: 08 42 45 51 20 4C 35 00 C8 0F F8 08 4C 34 20 4C |.BEQ L5.....L4 L|
000007C0: 44 41 20 53 4B 57 2C 59 00 D0 0F FA 08 50 48 50 |DA SKW,Y.....PHP|
000007D0: 00 D8 0F FC 08 49 4E 59 00 E0 0F FE 08 50 4C 50 |.....INY.....PLP|
000007E0: 00 EB 0F 00 09 42 50 4C 20 4C 34 00 F3 0F 02 09 |.....BPL L4.....|
000007F0: 44 45 58 00 FE 0F 04 09 42 4E 45 20 4C 34 00 04 |DEX.....BNE L4..|
00000800: 10 06 09 3B 00 15 10 08 09 4C 35 20 4C 44 41 20 |...;.....L5 LDA |
00000810: 53 4B 57 2C 59 00 1D 10 0A 09 50 48 50 00 28 10 |SKW,Y.....PHP.(.|
00000820: 0C 09 AF 20 23 24 37 46 00 36 10 0E 09 4A 53 52 |... #$7F.6...JSR|
00000830: 20 24 41 42 34 37 00 3E 10 10 09 49 4E 59 00 46 | $AB47.>...INY.F|
00000840: 10 12 09 50 4C 50 00 51 10 14 09 42 50 4C 20 4C |...PLP.Q...BPL L|
00000850: 35 00 5C 10 16 09 4C 44 59 20 54 33 00 6D 10 18 |5.\...LDY T3.m..|
00000860: 09 4C 36 20 4A 4D 50 20 24 41 37 30 30 00 73 10 |.L6 JMP $A700.s.|
00000870: 1A 09 3B 00 83 10 1C 09 45 58 43 20 4A 53 52 20 |..;.....EXC JSR |
00000880: 24 37 33 00 94 10 1E 09 45 58 31 20 43 4D 50 20 |$73.....EX1 CMP |
00000890: 23 24 38 42 00 A0 10 20 09 42 45 51 20 45 58 38 |#$8B... .BEQ EX8|
000008A0: 00 AD 10 22 09 43 4D 50 20 23 24 35 46 00 B9 10 |...".CMP #$5F...|
000008B0: 24 09 42 4E 45 20 45 58 35 00 C5 10 26 09 4A 53 |$.BNE EX5...&.JS|
000008C0: 52 20 24 37 33 00 D1 10 28 09 4A 53 52 20 45 58 |R $73...(.JSR EX|
000008D0: 32 00 DF 10 2A 09 4A 4D 50 20 24 41 37 41 45 00 |2...*.JMP $A7AE.|
000008E0: E5 10 2C 09 3B 00 F1 10 2E 09 45 58 32 20 53 45 |..,.;.....EX2 SE|
000008F0: 43 00 FE 10 30 09 53 42 43 20 23 24 34 30 00 0B |C...0.SBC #$40..|
00000900: 11 32 09 43 4D 50 20 23 24 31 45 00 17 11 34 09 |.2.CMP #$1E...4.|
00000910: 42 43 43 20 45 58 33 00 22 11 36 09 53 42 43 20 |BCC EX3.".6.SBC |
00000920: 23 31 00 33 11 38 09 45 58 33 20 43 4D 50 20 58 |#1.3.8.EX3 CMP X|
00000930: 54 52 41 00 3F 11 3A 09 42 43 53 20 45 58 37 00 |TRA.?.:.BCS EX7.|
00000940: 47 11 3C 09 41 53 4C 00 4F 11 3E 09 54 41 59 00 |G.<.ASL.O.>.TAY.|
00000950: 5E 11 40 09 4C 44 41 20 9D 53 AA 31 2C 59 00 66 |^.@.LDA .S.1,Y.f|
00000960: 11 42 09 50 48 41 00 73 11 44 09 4C 44 41 20 9D |.B.PHA.s.D.LDA .|
00000970: 53 2C 59 00 7B 11 46 09 50 48 41 00 87 11 48 09 |S,Y.{.F.PHA...H.|
00000980: 4A 4D 50 20 24 37 33 00 8D 11 4A 09 3B 00 9D 11 |JMP $73...J.;...|
00000990: 4C 09 45 58 35 20 4C 44 41 20 24 37 41 00 A9 11 |L.EX5 LDA $7A...|
000009A0: 4E 09 42 4E 45 20 45 58 36 00 B5 11 50 09 44 45 |N.BNE EX6...P.DE|
000009B0: 43 20 24 37 42 00 C5 11 52 09 45 58 36 20 44 45 |C $7B...R.EX6 DE|
000009C0: 43 20 24 37 41 00 D4 11 54 09 4A 4D 50 20 28 45 |C $7A...T.JMP (E|
000009D0: 56 45 43 29 00 DA 11 56 09 3B 00 EC 11 58 09 45 |VEC)...V.;...X.E|
000009E0: 58 37 20 4A 4D 50 20 24 41 46 30 38 00 F2 11 5A |X7 JMP $AF08...Z|
000009F0: 09 3B 00 02 12 5C 09 45 58 38 20 4A 53 52 20 45 |.;...\.EX8 JSR E|
00000A00: 58 39 00 10 12 5E 09 4A 4D 50 20 24 41 37 41 45 |X9...^.JMP $A7AE|
00000A10: 00 16 12 60 09 3B 00 2B 12 62 09 45 58 39 20 4C |...`.;.+.b.EX9 L|
00000A20: 44 41 20 23 B1 8B 52 54 4E AB 31 00 33 12 64 09 |DA #..RTN.1.3.d.|
00000A30: 50 48 41 00 44 12 66 09 4C 44 41 20 23 B3 8B 52 |PHA.D.f.LDA #..R|
00000A40: 54 4E AB 31 00 4C 12 68 09 50 48 41 00 58 12 6A |TN.1.L.h.PHA.X.j|
00000A50: 09 4A 4D 50 20 24 37 33 00 5E 12 6C 09 3B 00 6E |.JMP $73.^.l.;.n|
00000A60: 12 6E 09 46 55 4E 20 4A 53 52 20 24 37 33 00 7B |.n.FUN JSR $73.{|
00000A70: 12 70 09 43 4D 50 20 23 24 35 46 00 87 12 72 09 |.p.CMP #$5F...r.|
00000A80: 42 45 51 20 46 55 32 00 93 12 74 09 4C 44 41 20 |BEQ FU2...t.LDA |
00000A90: 24 37 41 00 9F 12 76 09 42 4E 45 20 46 55 31 00 |$7A...v.BNE FU1.|
00000AA0: AB 12 78 09 44 45 43 20 24 37 42 00 BB 12 7A 09 |..x.DEC $7B...z.|
00000AB0: 46 55 31 20 44 45 43 20 24 37 41 00 CA 12 7C 09 |FU1 DEC $7A...|.|
00000AC0: 4A 4D 50 20 28 46 56 45 43 29 00 D0 12 7E 09 3B |JMP (FVEC)...~.;|
00000AD0: 00 DF 12 80 09 46 55 32 20 4C 44 41 20 23 30 00 |.....FU2 LDA #0.|
00000AE0: EB 12 82 09 53 54 41 20 24 30 44 00 F7 12 84 09 |....STA $0D.....|
00000AF0: 4A 53 52 20 24 37 33 00 FF 12 86 09 53 45 43 00 |JSR $73.....SEC.|
00000B00: 0C 13 88 09 53 42 43 20 23 24 34 30 00 19 13 8A |....SBC #$40....|
00000B10: 09 43 4D 50 20 23 24 31 45 00 25 13 8C 09 42 43 |.CMP #$1E.%...BC|
00000B20: 43 20 46 55 33 00 30 13 8E 09 53 42 43 20 23 31 |C FU3.0...SBC #1|
00000B30: 00 3C 13 90 09 46 55 33 20 53 45 43 00 49 13 92 |.<...FU3 SEC.I..|
00000B40: 09 53 42 43 20 58 54 52 41 00 55 13 94 09 42 43 |.SBC XTRA.U...BC|
00000B50: 43 20 45 58 37 00 64 13 96 09 43 4D 50 20 58 54 |C EX7.d...CMP XT|
00000B60: 52 41 AA 31 00 70 13 98 09 42 43 53 20 45 58 37 |RA.1.p...BCS EX7|
00000B70: 00 78 13 9A 09 41 53 4C 00 80 13 9C 09 54 41 59 |.x...ASL.....TAY|
00000B80: 00 90 13 9E 09 4C 44 41 20 A5 43 53 AA 31 2C 59 |.....LDA .CS.1,Y|
00000B90: 00 98 13 A0 09 50 48 41 00 A6 13 A2 09 4C 44 41 |.....PHA.....LDA|
00000BA0: 20 A5 43 53 2C 59 00 AE 13 A4 09 50 48 41 00 BA | .CS,Y.....PHA..|
00000BB0: 13 A6 09 4A 4D 50 20 24 37 33 00 C0 13 A8 09 3B |...JMP $73.....;|
00000BC0: 00 D3 13 AA 09 8B 52 54 4E 20 4A 53 52 20 24 41 |......RTN JSR $A|
00000BD0: 44 39 45 00 DF 13 AC 09 4A 53 52 20 24 37 39 00 |D9E.....JSR $79.|
00000BE0: EC 13 AE 09 43 4D 50 20 23 24 38 39 00 F7 13 B0 |....CMP #$89....|
00000BF0: 09 42 45 51 20 8B 31 00 04 14 B2 09 4C 44 41 20 |.BEQ .1.....LDA |
00000C00: 23 24 41 37 00 12 14 B4 09 4A 53 52 20 24 41 45 |#$A7.....JSR $AE|
00000C10: 46 46 00 21 14 B6 09 8B 31 20 4A 53 52 20 24 37 |FF.!....1 JSR $7|
00000C20: 39 00 2D 14 B8 09 4C 44 58 20 24 36 31 00 3C 14 |9.-...LDX $61.<.|
00000C30: BA 09 42 45 51 20 45 4C 53 52 54 4E 00 47 14 BC |..BEQ ELSRTN.G..|
00000C40: 09 42 43 53 20 8B 32 00 55 14 BE 09 4A 4D 50 20 |.BCS .2.U...JMP |
00000C50: 24 41 38 41 30 00 60 14 C0 09 8B 32 20 50 4C 41 |$A8A0.`....2 PLA|
00000C60: 00 68 14 C2 09 50 4C 41 00 74 14 C4 09 4A 53 52 |.h...PLA.t...JSR|
00000C70: 20 24 37 39 00 80 14 C6 09 4A 4D 50 20 45 58 31 | $79.....JMP EX1|
00000C80: 00 86 14 D0 09 3B 00 9B 14 D2 09 45 4C 53 52 54 |.....;.....ELSRT|
00000C90: 4E 20 4A 53 52 20 24 41 38 46 38 00 A7 14 D4 09 |N JSR $A8F8.....|
00000CA0: 4A 53 52 20 24 37 39 00 B2 14 D6 09 43 4D 50 20 |JSR $79.....CMP |
00000CB0: 23 30 00 BF 14 D8 09 42 4E 45 20 45 4C 53 31 00 |#0.....BNE ELS1.|
00000CC0: C7 14 DA 09 52 54 53 00 D8 14 DC 09 45 4C 53 31 |....RTS.....ELS1|
00000CD0: 20 4A 53 52 20 24 37 33 00 E5 14 DE 09 43 4D 50 | JSR $73.....CMP|
00000CE0: 20 23 24 35 46 00 F4 14 E0 09 42 4E 45 20 45 4C | #$5F.....BNE EL|
00000CF0: 53 52 54 4E 00 00 15 E2 09 4A 53 52 20 24 37 33 |SRTN.....JSR $73|
00000D00: 00 0D 15 E4 09 43 4D 50 20 23 24 34 30 00 1C 15 |.....CMP #$40...|
00000D10: E6 09 42 4E 45 20 45 4C 53 52 54 4E 00 28 15 E8 |..BNE ELSRTN.(..|
00000D20: 09 4A 53 52 20 24 37 33 00 33 15 EA 09 4A 4D 50 |.JSR $73.3...JMP|
00000D30: 20 8B 32 00 39 15 EC 09 3B 00 48 15 EE 09 45 58 | .2.9...;.H...EX|
00000D40: 54 20 4C 44 58 20 23 37 00 5C 15 F0 09 45 58 54 |T LDX #7.\...EXT|
00000D50: 31 20 4C 44 41 20 54 56 45 43 2C 58 00 6B 15 F2 |1 LDA TVEC,X.k..|
00000D60: 09 53 54 41 20 24 33 30 34 2C 58 00 73 15 F4 09 |.STA $304,X.s...|
00000D70: 44 45 58 00 80 15 F6 09 42 50 4C 20 45 58 54 31 |DEX.....BPL EXT1|
00000D80: 00 8D 15 F8 09 4C 44 41 20 23 24 41 32 00 9B 15 |.....LDA #$A2...|
00000D90: FA 09 53 54 41 20 53 54 41 52 54 00 A9 15 FC 09 |..STA START.....|
00000DA0: 4A 4D 50 20 50 44 4F 57 4E 00 AF 15 FE 09 3B 00 |JMP PDOWN.....;.|
00000DB0: C2 15 00 0A 43 8B 43 48 52 20 43 4D 50 20 23 24 |....C.CHR CMP #$|
00000DC0: 35 42 00 CF 15 02 0A 42 43 43 20 43 49 43 31 00 |5B.....BCC CIC1.|
00000DD0: D7 15 04 0A 43 4C 43 00 E4 15 06 0A 42 43 43 20 |....CLC.....BCC |
00000DE0: 43 49 43 32 00 F6 15 08 0A 43 49 43 31 20 43 4D |CIC2.....CIC1 CM|
00000DF0: 50 20 23 24 34 31 00 03 16 0A 0A 43 49 43 32 20 |P #$41.....CIC2 |
00000E00: 52 54 53 00 09 16 0C 0A 3B 00 17 16 66 14 50 44 |RTS.....;...f.PD|
00000E10: 4F 57 4E 20 52 54 53 00 1D 16 68 14 3B 00 00 00 |OWN RTS...h.;...|
..).... 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......OPT OO....... $C000.
.. .;.H.!.T2 . 2.S.".T3 . 3...#.T4 . 4..
.$.T5 . 5...%.T6 . 6...&.;...[.;...\.JMP
START...].JMP EXT. .^.;.C._.XTRA .BYTE
2,0 ; STMTS,FUNCS.I.`.;.U.A..BYTE 0.[.
B.;.F.C.SKW ...X.D..F "ELSEEXIT".~.V.;..
.W.FKW .....H.;...I..BYTE 0...J.;...K..S
.....L..W.D $A93A,EXT.1.F.>.;.Q.?..CS .
..W.3.;...4.START LDX #7...6.STT1 LDA $3
04,X...8.STA TVEC,X...:.LDA NUVECS,X.+.<
.STA $304,X.3.>.DEX.@.@.BPL STT1.M.B.LDA
XTRA.U.D.CLC.D.F.ADC XTRA.1.S.H.STA XTR
A.2...J.LDA #$60...L.STA START...N.RTS..
.P.;...R.TVEC .W.D $A57C.D.T.LVEC .W.D $
A71A.X.V.EVEC .W.D $A7E4...X.FVEC .W.D $
AE86...Z.;...\.NUVECS .W.D .K,LIS,EXC,FU
N...^.;.%.`..K LDX #0.0.B.LDY #0.C.D.TK1
LDA $200,X.P.F.CMP #$22.\.H.BEQ TK9.J.J
.JSR C.CHR.V.L.BCC TK4...N.STY $71...P.S
TX T3...R.LDY #0...T.STY $0B...V.DEY...X
.DEX...Z.TK2 INY.H.|.INX...~.TK3 LDA $20
0,X.....SEC.....SBC SKW,Y.....BEQ TK2...
..CMP #$80.....BNE TK5.#...LDA #$5F./...
LDY $71.>...STA $200,Y.F...INY.R...LDA $
0B._...ADC #$3F.K...TK4 INX.Z...STA $200
,Y.....INY.....LDA $200,Y.....BNE TK1...
.JMP (TVEC).....;.A...TK5 LDX T3.Q...TK
6 INC $0B.....LDA $0B.....CMP #$1E.....B
EQ TK6.....TK7 INY.....LDA SKW.1,Y.....B
PL TK7.,...LDA SKW,Y.8...BNE TK3.D...LDY
$71.S...LDA $200,X._...BPL TK4.E...;.X.
..TK8 LDA $200,X...B.BEQ TK4...D.CMP #$2
2...F.BEQ TK4...H.TK9 STA $200,Y...J.INY
...L.INX.L.N.BNE TK8.R.P.;...R.LIS CMP #
$5F...T.BNE L2...V.INY...X.LDA ($5F),Y..
.Z.SBC #$40. ...CMP #$1E.+...BCC L1.6...
SBC #1.H...L1 CMP XTRA.2.S...BCC L3.[...
DEY.K...LDA ($5F),Y.V...L2 TAX.....JMP (
LVEC).....;.....L3 STY T3.....LDY #0....
.TAX.....BEQ L5.H...L4 LDA SKW,Y.P...PHP
.X...INY.....PLP.....BPL L4.....DEX.....
BNE L4.....;.....L5 LDA SKW,Y.....PHP.(.
... #$7F.6...JSR $AB47.>...INY.F...PLP.Q
...BPL L5.\...LDY T3.M...L6 JMP $A700.S.
..;.....EXC JSR $73.....EX1 CMP #$8B. .
.BEQ EX8...".CMP #$5F...$.BNE EX5.E.&.JS
R $73.Q.(.JSR EX2...*.JMP $A7AE...,.;...
..EX2 SEC...0.SBC #$40...2.CMP #$1E...4.
BCC EX3.".6.SBC #1.3.8.EX3 CMP XTRA.?.:.
BCS EX7.G.<.ASL.O.>.TAY.^.@.LDA .S.1,Y.F
.B.PHA.S.D.LDA .S,Y.{.F.PHA...H.JMP $73.
..J.;...L.EX5 LDA $7A...N.BNE EX6...P.DE
C $7B.E.R.EX6 DEC $7A.T.T.JMP (EVEC).Z.V
.;...X.EX7 JMP $AF08...Z.;...\.EX8 JSR E
X9...^.JMP $A7AE...`.;.+.B.EX9 LDA #..RT
N.1.3.D.PHA.D.F.LDA #..RTN.1.L.H.PHA.X.J
.JMP $73.^.L.;.N.N.FUN JSR $73.{.P.CMP #
$5F...R.BEQ FU2...T.LDA $7A...V.BNE FU1.
..X.DEC $7B...Z.FU1 DEC $7A.J.|.JMP (FVE
C).P.~.;.....FU2 LDA #0.....STA $0D.....
JSR $73.....SEC.....SBC #$40.....CMP #$1
E.%...BCC FU3.0...SBC #1.<...FU3 SEC.I..
.SBC XTRA.U...BCC EX7.D...CMP XTRA.1.P..
.BCS EX7.X...ASL.....TAY.....LDA .CS.1,Y
... .PHA.....LDA .CS,Y.....PHA.....JMP $
73.....;.S....RTN JSR $AD9E.....JSR $79.
....CMP #$89.....BEQ .1.....LDA #$A7....
.JSR $AEFF.!....1 JSR $79.-...LDX $61.<.
..BEQ ELSRTN.G...BCS .2.U...JMP $A8A0.`.
...2 PLA.H.B.PLA.T.D.JSR $79...F.JMP EX1
...P.;...R.ELSRTN JSR $A8F8...T.JSR $79.
..V.CMP #0...X.BNE ELS1.G.Z.RTS.X...ELS1
JSR $73.....CMP #$5F.....BNE ELSRTN....
.JSR $73.....CMP #$40.....BNE ELSRTN.(..
.JSR $73.3...JMP .2.9...;.H...EXT LDX #7
.\...EXT1 LDA TVEC,X.K...STA $304,X.S...
DEX.....BPL EXT1.....LDA #$A2.....STA ST
ART.....JMP PDOWN.....;.B...C.CHR CMP #$
5B.O...BCC CIC1.W...CLC.....BCC CIC2....
.CIC1 CMP #$41.....CIC2 RTS.....;...F.PD
OWN RTS...H.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL