TB/ADD.SRC
FILE INFORMATION
FILENAME(S): TB/ADD.SRC
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-11-30 21:12:59
APPEARS ON: 1 disk(s)
FILE HASH
9428b9f7c361883999b8690e828713d75d0af22e1f848b8729193ada97321138
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | TB/ADD.SRC | PRG | DuncanTwain | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 54 42 2F 41 44 44 2E 41 |..).... TB/ADD.A|
00000010: 20 28 53 45 50 54 20 32 37 2F 38 34 29 20 20 20 | (SEPT 27/84) |
00000020: 20 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 | :./...:.|
00000030: 53 08 02 00 8F 20 20 54 48 49 53 20 50 52 4F 47 |S.... THIS PROG|
00000040: 52 41 4D 20 43 4F 4E 53 49 53 54 53 20 4F 46 20 |RAM CONSISTS OF |
00000050: 54 48 45 00 7B 08 03 00 8F 20 20 54 52 41 4E 53 |THE.{.... TRANS|
00000060: 42 41 53 49 43 20 4B 45 52 4E 45 4C 20 50 4C 55 |BASIC KERNEL PLU|
00000070: 53 20 54 48 45 20 27 41 44 44 27 00 A0 08 04 00 |S THE 'ADD'.....|
00000080: 8F 20 20 53 54 41 54 45 4D 45 4E 54 2E 20 49 54 |. STATEMENT. IT|
00000090: 20 49 53 20 41 53 53 45 4D 42 4C 45 44 20 54 4F | IS ASSEMBLED TO|
000000A0: 00 C7 08 05 00 8F 20 20 27 54 42 2F 41 44 44 2E |...... 'TB/ADD.|
000000B0: 4D 27 20 4F 4E 20 54 48 45 20 4C 49 42 52 41 52 |M' ON THE LIBRAR|
000000C0: 59 20 44 49 53 4B 2E 00 EB 08 06 00 8F 20 20 49 |Y DISK....... I|
000000D0: 54 20 49 53 20 55 53 45 44 20 54 4F 20 41 44 44 |T IS USED TO ADD|
000000E0: 20 53 54 41 54 45 4D 45 4E 54 53 00 0E 09 07 00 | STATEMENTS.....|
000000F0: 8F 20 20 41 4E 44 20 46 55 4E 43 54 49 4F 4E 53 |. AND FUNCTIONS|
00000100: 20 54 4F 20 54 42 2F 4B 45 52 4E 45 4C 2E 00 14 | TO TB/KERNEL...|
00000110: 09 08 00 3A 00 3C 09 09 00 8F 20 3D 3D 3D 3D 3D |...:.<.... =====|
00000120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 42 09 0A |============.B..|
00000140: 00 3A 00 58 09 19 00 8B 20 C2 28 37 37 33 29 B3 |.:.X.... .(773).|
00000150: 31 39 32 20 89 20 32 39 00 5E 09 1A 00 3A 00 65 |192 . 29.^...:.e|
00000160: 09 1B 00 5F 41 00 6B 09 1C 00 3A 00 75 09 1D 00 |..._A.k...:.u...|
00000170: 9E 20 37 30 30 00 81 09 1E 00 2E 4F 50 54 20 4F |. 700......OPT O|
00000180: 4F 00 8E 09 1F 00 AC B2 20 24 43 30 30 30 00 94 |O....... $C000..|
00000190: 09 20 00 3B 00 9F 09 21 00 54 32 20 B2 20 32 00 |. .;...!.T2 . 2.|
000001A0: AA 09 22 00 54 33 20 B2 20 33 00 B5 09 23 00 54 |..".T3 . 3...#.T|
000001B0: 34 20 B2 20 34 00 C0 09 24 00 54 35 20 B2 20 35 |4 . 4...$.T5 . 5|
000001C0: 00 CB 09 25 00 54 36 20 B2 20 36 00 D1 09 26 00 |...%.T6 . 6...&.|
000001D0: 3B 00 E6 09 27 00 53 45 54 4C 46 53 20 20 20 B2 |;...'.SETLFS .|
000001E0: 20 24 46 46 42 41 00 FB 09 28 00 53 45 54 4E 41 | $FFBA...(.SETNA|
000001F0: 4D 20 20 20 B2 20 24 46 46 42 44 00 0D 0A 29 00 |M . $FFBD...).|
00000200: 9F 20 20 20 20 20 B2 20 24 45 31 43 31 00 22 0A |. . $E1C1.".|
00000210: 2A 00 43 48 4B 49 4E 20 20 20 20 B2 20 24 45 31 |*.CHKIN . $E1|
00000220: 31 45 00 33 0A 2B 00 A0 20 20 20 20 B2 20 24 45 |1E.3.+.. . $E|
00000230: 31 43 43 00 46 0A 2C 00 9C 43 48 4E 20 20 20 B2 |1CC.F.,..CHN .|
00000240: 20 24 46 46 43 43 00 59 0A 2D 00 A1 49 4E 20 20 | $FFCC.Y.-..IN |
00000250: 20 20 B2 20 24 45 31 32 34 00 5F 0A 2E 00 3B 00 | . $E124._...;.|
00000260: 65 0A 5B 00 3B 00 73 0A 5C 00 4A 4D 50 20 53 54 |e.[.;.s.\.JMP ST|
00000270: 41 52 54 00 7F 0A 5D 00 4A 4D 50 20 45 58 54 00 |ART...].JMP EXT.|
00000280: 85 0A 5E 00 3B 00 A8 0A 5F 00 58 54 52 41 20 2E |..^.;..._.XTRA .|
00000290: 42 59 54 45 20 33 2C 30 20 20 20 3B 20 53 54 4D |BYTE 3,0 ; STM|
000002A0: 54 53 2C 46 55 4E 43 53 00 AE 0A 60 00 3B 00 BA |TS,FUNCS...`.;..|
000002B0: 0A 61 00 2E 42 59 54 45 20 30 00 C0 0A 62 00 3B |.a..BYTE 0...b.;|
000002C0: 00 CB 0A 63 00 53 4B 57 20 B2 AC 00 DD 0A 64 00 |...c.SKW .....d.|
000002D0: 2E C6 20 22 45 4C 53 C5 45 58 49 D4 22 00 EA 0A |.. "ELS.EXI."...|
000002E0: 72 00 2E C6 20 22 41 44 C4 22 00 F0 0A 56 02 3B |r... "AD."...V.;|
000002F0: 00 FB 0A 57 02 46 4B 57 20 B2 AC 00 01 0B 48 04 |...W.FKW .....H.|
00000300: 3B 00 0D 0B 49 04 2E 42 59 54 45 20 30 00 13 0B |;...I..BYTE 0...|
00000310: 4A 04 3B 00 1D 0B 4B 04 9D 53 20 B2 AC 00 32 0B |J.;...K..S ...2.|
00000320: 4C 04 2E 57 B0 44 20 24 41 39 33 41 2C 45 58 54 |L..W.D $A93A,EXT|
00000330: AB 31 00 42 0B 5A 04 2E 57 B0 44 20 58 41 44 44 |.1.B.Z..W.D XADD|
00000340: AB 31 00 48 0B 3E 06 3B 00 53 0B 3F 06 A5 43 53 |.1.H.>.;.S.?..CS|
00000350: 20 B2 AC 00 59 0B 33 08 3B 00 6A 0B 34 08 53 54 | ...Y.3.;.j.4.ST|
00000360: 41 52 54 20 4C 44 58 20 23 37 00 7E 0B 36 08 53 |ART LDX #7.~.6.S|
00000370: 54 54 31 20 4C 44 41 20 24 33 30 34 2C 58 00 8D |TT1 LDA $304,X..|
00000380: 0B 38 08 53 54 41 20 54 56 45 43 2C 58 00 9E 0B |.8.STA TVEC,X...|
00000390: 3A 08 4C 44 41 20 4E 55 56 45 43 53 2C 58 00 AD |:.LDA NUVECS,X..|
000003A0: 0B 3C 08 53 54 41 20 24 33 30 34 2C 58 00 B5 0B |.<.STA $304,X...|
000003B0: 3E 08 44 45 58 00 C2 0B 40 08 42 50 4C 20 53 54 |>.DEX...@.BPL ST|
000003C0: 54 31 00 CF 0B 42 08 4C 44 41 20 58 54 52 41 00 |T1...B.LDA XTRA.|
000003D0: D7 0B 44 08 43 4C 43 00 E6 0B 46 08 41 44 43 20 |..D.CLC...F.ADC |
000003E0: 58 54 52 41 AA 31 00 F5 0B 48 08 53 54 41 20 58 |XTRA.1...H.STA X|
000003F0: 54 52 41 AA 32 00 02 0C 4A 08 4C 44 41 20 23 24 |TRA.2...J.LDA #$|
00000400: 36 30 00 10 0C 4C 08 53 54 41 20 53 54 41 52 54 |60...L.STA START|
00000410: 00 18 0C 4E 08 52 54 53 00 1E 0C 50 08 3B 00 32 |...N.RTS...P.;.2|
00000420: 0C 52 08 54 56 45 43 20 2E 57 B0 44 20 24 41 35 |.R.TVEC .W.D $A5|
00000430: 37 43 00 46 0C 54 08 4C 56 45 43 20 2E 57 B0 44 |7C.F.T.LVEC .W.D|
00000440: 20 24 41 37 31 41 00 5A 0C 56 08 45 56 45 43 20 | $A71A.Z.V.EVEC |
00000450: 2E 57 B0 44 20 24 41 37 45 34 00 6E 0C 58 08 46 |.W.D $A7E4.n.X.F|
00000460: 56 45 43 20 2E 57 B0 44 20 24 41 45 38 36 00 74 |VEC .W.D $AE86.t|
00000470: 0C 5A 08 3B 00 93 0C 5C 08 4E 55 56 45 43 53 20 |.Z.;...\.NUVECS |
00000480: 2E 57 B0 44 20 A4 4B 2C 4C 49 53 2C 45 58 43 2C |.W.D .K,LIS,EXC,|
00000490: 46 55 4E 00 99 0C 5E 08 3B 00 A7 0C 60 08 A4 4B |FUN...^.;...`..K|
000004A0: 20 4C 44 58 20 23 30 00 B2 0C 62 08 4C 44 59 20 | LDX #0...b.LDY |
000004B0: 23 30 00 C5 0C 64 08 54 4B 31 20 4C 44 41 20 24 |#0...d.TK1 LDA $|
000004C0: 32 30 30 2C 58 00 D2 0C 66 08 43 4D 50 20 23 24 |200,X...f.CMP #$|
000004D0: 32 32 00 DE 0C 68 08 42 45 51 20 54 4B 39 00 EC |22...h.BEQ TK9..|
000004E0: 0C 6A 08 4A 53 52 20 43 8B 43 48 52 00 F8 0C 6C |.j.JSR C.CHR...l|
000004F0: 08 42 43 43 20 54 4B 34 00 04 0D 6E 08 53 54 59 |.BCC TK4...n.STY|
00000500: 20 24 37 31 00 0F 0D 70 08 53 54 58 20 54 33 00 | $71...p.STX T3.|
00000510: 1A 0D 72 08 4C 44 59 20 23 30 00 26 0D 74 08 53 |..r.LDY #0.&.t.S|
00000520: 54 59 20 24 30 42 00 2E 0D 76 08 44 45 59 00 36 |TY $0B...v.DEY.6|
00000530: 0D 78 08 44 45 58 00 42 0D 7A 08 54 4B 32 20 49 |.x.DEX.B.z.TK2 I|
00000540: 4E 59 00 4A 0D 7C 08 49 4E 58 00 5D 0D 7E 08 54 |NY.J.|.INX.].~.T|
00000550: 4B 33 20 4C 44 41 20 24 32 30 30 2C 58 00 65 0D |K3 LDA $200,X.e.|
00000560: 80 08 53 45 43 00 73 0D 82 08 53 42 43 20 53 4B |..SEC.s...SBC SK|
00000570: 57 2C 59 00 7F 0D 84 08 42 45 51 20 54 4B 32 00 |W,Y.....BEQ TK2.|
00000580: 8C 0D 86 08 43 4D 50 20 23 24 38 30 00 98 0D 88 |....CMP #$80....|
00000590: 08 42 4E 45 20 54 4B 35 00 A5 0D 8A 08 4C 44 41 |.BNE TK5.....LDA|
000005A0: 20 23 24 35 46 00 B1 0D 8C 08 4C 44 59 20 24 37 | #$5F.....LDY $7|
000005B0: 31 00 C0 0D 8E 08 53 54 41 20 24 32 30 30 2C 59 |1.....STA $200,Y|
000005C0: 00 C8 0D 90 08 49 4E 59 00 D4 0D 92 08 4C 44 41 |.....INY.....LDA|
000005D0: 20 24 30 42 00 E1 0D 94 08 41 44 43 20 23 24 33 | $0B.....ADC #$3|
000005E0: 46 00 ED 0D 96 08 54 4B 34 20 49 4E 58 00 FC 0D |F.....TK4 INX...|
000005F0: 98 08 53 54 41 20 24 32 30 30 2C 59 00 04 0E 9A |..STA $200,Y....|
00000600: 08 49 4E 59 00 13 0E 9C 08 4C 44 41 20 24 32 30 |.INY.....LDA $20|
00000610: 30 2C 59 00 1F 0E 9E 08 42 4E 45 20 54 4B 31 00 |0,Y.....BNE TK1.|
00000620: 2E 0E A0 08 4A 4D 50 20 28 54 56 45 43 29 00 34 |....JMP (TVEC).4|
00000630: 0E A2 08 3B 00 43 0E A4 08 54 4B 35 20 4C 44 58 |...;.C...TK5 LDX|
00000640: 20 54 33 00 53 0E A6 08 54 4B 36 20 49 4E 43 20 | T3.S...TK6 INC |
00000650: 24 30 42 00 5F 0E A8 08 4C 44 41 20 24 30 42 00 |$0B._...LDA $0B.|
00000660: 6C 0E AA 08 43 4D 50 20 23 24 31 45 00 78 0E AC |l...CMP #$1E.x..|
00000670: 08 42 45 51 20 54 4B 36 00 84 0E AE 08 54 4B 37 |.BEQ TK6.....TK7|
00000680: 20 49 4E 59 00 94 0E B0 08 4C 44 41 20 53 4B 57 | INY.....LDA SKW|
00000690: AB 31 2C 59 00 A0 0E B2 08 42 50 4C 20 54 4B 37 |.1,Y.....BPL TK7|
000006A0: 00 AE 0E B4 08 4C 44 41 20 53 4B 57 2C 59 00 BA |.....LDA SKW,Y..|
000006B0: 0E B6 08 42 4E 45 20 54 4B 33 00 C6 0E B8 08 4C |...BNE TK3.....L|
000006C0: 44 59 20 24 37 31 00 D5 0E BA 08 4C 44 41 20 24 |DY $71.....LDA $|
000006D0: 32 30 30 2C 58 00 E1 0E BC 08 42 50 4C 20 54 4B |200,X.....BPL TK|
000006E0: 34 00 E7 0E BE 08 3B 00 FA 0E C0 08 54 4B 38 20 |4.....;.....TK8 |
000006F0: 4C 44 41 20 24 32 30 30 2C 58 00 06 0F C2 08 42 |LDA $200,X.....B|
00000700: 45 51 20 54 4B 34 00 13 0F C4 08 43 4D 50 20 23 |EQ TK4.....CMP #|
00000710: 24 32 32 00 1F 0F C6 08 42 45 51 20 54 4B 34 00 |$22.....BEQ TK4.|
00000720: 32 0F C8 08 54 4B 39 20 53 54 41 20 24 32 30 30 |2...TK9 STA $200|
00000730: 2C 59 00 3A 0F CA 08 49 4E 59 00 42 0F CC 08 49 |,Y.:...INY.B...I|
00000740: 4E 58 00 4E 0F CE 08 42 4E 45 20 54 4B 38 00 54 |NX.N...BNE TK8.T|
00000750: 0F D0 08 3B 00 65 0F D2 08 4C 49 53 20 43 4D 50 |...;.e...LIS CMP|
00000760: 20 23 24 35 46 00 70 0F D4 08 42 4E 45 20 4C 32 | #$5F.p...BNE L2|
00000770: 00 78 0F D6 08 49 4E 59 00 88 0F D8 08 4C 44 41 |.x...INY.....LDA|
00000780: 20 28 24 35 46 29 2C 59 00 95 0F DA 08 53 42 43 | ($5F),Y.....SBC|
00000790: 20 23 24 34 30 00 A2 0F DC 08 43 4D 50 20 23 24 | #$40.....CMP #$|
000007A0: 31 45 00 AD 0F DE 08 42 43 43 20 4C 31 00 B8 0F |1E.....BCC L1...|
000007B0: E0 08 53 42 43 20 23 31 00 CA 0F E2 08 4C 31 20 |..SBC #1.....L1 |
000007C0: 43 4D 50 20 58 54 52 41 AA 32 00 D5 0F E4 08 42 |CMP XTRA.2.....B|
000007D0: 43 43 20 4C 33 00 DD 0F E6 08 44 45 59 00 ED 0F |CC L3.....DEY...|
000007E0: E8 08 4C 44 41 20 28 24 35 46 29 2C 59 00 F8 0F |..LDA ($5F),Y...|
000007F0: EA 08 4C 32 20 54 41 58 00 07 10 EC 08 4A 4D 50 |..L2 TAX.....JMP|
00000800: 20 28 4C 56 45 43 29 00 0D 10 EE 08 3B 00 1B 10 | (LVEC).....;...|
00000810: F0 08 4C 33 20 53 54 59 20 54 33 00 26 10 F2 08 |..L3 STY T3.&...|
00000820: 4C 44 59 20 23 30 00 2E 10 F4 08 54 41 58 00 39 |LDY #0.....TAX.9|
00000830: 10 F6 08 42 45 51 20 4C 35 00 4A 10 F8 08 4C 34 |...BEQ L5.J...L4|
00000840: 20 4C 44 41 20 53 4B 57 2C 59 00 52 10 FA 08 50 | LDA SKW,Y.R...P|
00000850: 48 50 00 5A 10 FC 08 49 4E 59 00 62 10 FE 08 50 |HP.Z...INY.b...P|
00000860: 4C 50 00 6D 10 00 09 42 50 4C 20 4C 34 00 75 10 |LP.m...BPL L4.u.|
00000870: 02 09 44 45 58 00 80 10 04 09 42 4E 45 20 4C 34 |..DEX.....BNE L4|
00000880: 00 86 10 06 09 3B 00 97 10 08 09 4C 35 20 4C 44 |.....;.....L5 LD|
00000890: 41 20 53 4B 57 2C 59 00 9F 10 0A 09 50 48 50 00 |A SKW,Y.....PHP.|
000008A0: AA 10 0C 09 AF 20 23 24 37 46 00 B8 10 0E 09 4A |..... #$7F.....J|
000008B0: 53 52 20 24 41 42 34 37 00 C0 10 10 09 49 4E 59 |SR $AB47.....INY|
000008C0: 00 C8 10 12 09 50 4C 50 00 D3 10 14 09 42 50 4C |.....PLP.....BPL|
000008D0: 20 4C 35 00 DE 10 16 09 4C 44 59 20 54 33 00 EF | L5.....LDY T3..|
000008E0: 10 18 09 4C 36 20 4A 4D 50 20 24 41 37 30 30 00 |...L6 JMP $A700.|
000008F0: F5 10 1A 09 3B 00 05 11 1C 09 45 58 43 20 4A 53 |....;.....EXC JS|
00000900: 52 20 24 37 33 00 16 11 1E 09 45 58 31 20 43 4D |R $73.....EX1 CM|
00000910: 50 20 23 24 38 42 00 22 11 20 09 42 45 51 20 45 |P #$8B.". .BEQ E|
00000920: 58 38 00 2F 11 22 09 43 4D 50 20 23 24 35 46 00 |X8./.".CMP #$5F.|
00000930: 3B 11 24 09 42 4E 45 20 45 58 35 00 47 11 26 09 |;.$.BNE EX5.G.&.|
00000940: 4A 53 52 20 24 37 33 00 53 11 28 09 4A 53 52 20 |JSR $73.S.(.JSR |
00000950: 45 58 32 00 61 11 2A 09 4A 4D 50 20 24 41 37 41 |EX2.a.*.JMP $A7A|
00000960: 45 00 67 11 2C 09 3B 00 73 11 2E 09 45 58 32 20 |E.g.,.;.s...EX2 |
00000970: 53 45 43 00 80 11 30 09 53 42 43 20 23 24 34 30 |SEC...0.SBC #$40|
00000980: 00 8D 11 32 09 43 4D 50 20 23 24 31 45 00 99 11 |...2.CMP #$1E...|
00000990: 34 09 42 43 43 20 45 58 33 00 A4 11 36 09 53 42 |4.BCC EX3...6.SB|
000009A0: 43 20 23 31 00 B5 11 38 09 45 58 33 20 43 4D 50 |C #1...8.EX3 CMP|
000009B0: 20 58 54 52 41 00 C1 11 3A 09 42 43 53 20 45 58 | XTRA...:.BCS EX|
000009C0: 37 00 C9 11 3C 09 41 53 4C 00 D1 11 3E 09 54 41 |7...<.ASL...>.TA|
000009D0: 59 00 E0 11 40 09 4C 44 41 20 9D 53 AA 31 2C 59 |Y...@.LDA .S.1,Y|
000009E0: 00 E8 11 42 09 50 48 41 00 F5 11 44 09 4C 44 41 |...B.PHA...D.LDA|
000009F0: 20 9D 53 2C 59 00 FD 11 46 09 50 48 41 00 09 12 | .S,Y...F.PHA...|
00000A00: 48 09 4A 4D 50 20 24 37 33 00 0F 12 4A 09 3B 00 |H.JMP $73...J.;.|
00000A10: 1F 12 4C 09 45 58 35 20 4C 44 41 20 24 37 41 00 |..L.EX5 LDA $7A.|
00000A20: 2B 12 4E 09 42 4E 45 20 45 58 36 00 37 12 50 09 |+.N.BNE EX6.7.P.|
00000A30: 44 45 43 20 24 37 42 00 47 12 52 09 45 58 36 20 |DEC $7B.G.R.EX6 |
00000A40: 44 45 43 20 24 37 41 00 56 12 54 09 4A 4D 50 20 |DEC $7A.V.T.JMP |
00000A50: 28 45 56 45 43 29 00 5C 12 56 09 3B 00 6E 12 58 |(EVEC).\.V.;.n.X|
00000A60: 09 45 58 37 20 4A 4D 50 20 24 41 46 30 38 00 74 |.EX7 JMP $AF08.t|
00000A70: 12 5A 09 3B 00 84 12 5C 09 45 58 38 20 4A 53 52 |.Z.;...\.EX8 JSR|
00000A80: 20 45 58 39 00 92 12 5E 09 4A 4D 50 20 24 41 37 | EX9...^.JMP $A7|
00000A90: 41 45 00 98 12 60 09 3B 00 AD 12 62 09 45 58 39 |AE...`.;...b.EX9|
00000AA0: 20 4C 44 41 20 23 B1 8B 52 54 4E AB 31 00 B5 12 | LDA #..RTN.1...|
00000AB0: 64 09 50 48 41 00 C6 12 66 09 4C 44 41 20 23 B3 |d.PHA...f.LDA #.|
00000AC0: 8B 52 54 4E AB 31 00 CE 12 68 09 50 48 41 00 DA |.RTN.1...h.PHA..|
00000AD0: 12 6A 09 4A 4D 50 20 24 37 33 00 E0 12 6C 09 3B |.j.JMP $73...l.;|
00000AE0: 00 F0 12 6E 09 46 55 4E 20 4A 53 52 20 24 37 33 |...n.FUN JSR $73|
00000AF0: 00 FD 12 70 09 43 4D 50 20 23 24 35 46 00 09 13 |...p.CMP #$5F...|
00000B00: 72 09 42 45 51 20 46 55 32 00 15 13 74 09 4C 44 |r.BEQ FU2...t.LD|
00000B10: 41 20 24 37 41 00 21 13 76 09 42 4E 45 20 46 55 |A $7A.!.v.BNE FU|
00000B20: 31 00 2D 13 78 09 44 45 43 20 24 37 42 00 3D 13 |1.-.x.DEC $7B.=.|
00000B30: 7A 09 46 55 31 20 44 45 43 20 24 37 41 00 4C 13 |z.FU1 DEC $7A.L.|
00000B40: 7C 09 4A 4D 50 20 28 46 56 45 43 29 00 52 13 7E ||.JMP (FVEC).R.~|
00000B50: 09 3B 00 61 13 80 09 46 55 32 20 4C 44 41 20 23 |.;.a...FU2 LDA #|
00000B60: 30 00 6D 13 82 09 53 54 41 20 24 30 44 00 79 13 |0.m...STA $0D.y.|
00000B70: 84 09 4A 53 52 20 24 37 33 00 81 13 86 09 53 45 |..JSR $73.....SE|
00000B80: 43 00 8E 13 88 09 53 42 43 20 23 24 34 30 00 9B |C.....SBC #$40..|
00000B90: 13 8A 09 43 4D 50 20 23 24 31 45 00 A7 13 8C 09 |...CMP #$1E.....|
00000BA0: 42 43 43 20 46 55 33 00 B2 13 8E 09 53 42 43 20 |BCC FU3.....SBC |
00000BB0: 23 31 00 BE 13 90 09 46 55 33 20 53 45 43 00 CB |#1.....FU3 SEC..|
00000BC0: 13 92 09 53 42 43 20 58 54 52 41 00 D7 13 94 09 |...SBC XTRA.....|
00000BD0: 42 43 43 20 45 58 37 00 E6 13 96 09 43 4D 50 20 |BCC EX7.....CMP |
00000BE0: 58 54 52 41 AA 31 00 F2 13 98 09 42 43 53 20 45 |XTRA.1.....BCS E|
00000BF0: 58 37 00 FA 13 9A 09 41 53 4C 00 02 14 9C 09 54 |X7.....ASL.....T|
00000C00: 41 59 00 12 14 9E 09 4C 44 41 20 A5 43 53 AA 31 |AY.....LDA .CS.1|
00000C10: 2C 59 00 1A 14 A0 09 50 48 41 00 28 14 A2 09 4C |,Y.....PHA.(...L|
00000C20: 44 41 20 A5 43 53 2C 59 00 30 14 A4 09 50 48 41 |DA .CS,Y.0...PHA|
00000C30: 00 3C 14 A6 09 4A 4D 50 20 24 37 33 00 42 14 A8 |.<...JMP $73.B..|
00000C40: 09 3B 00 55 14 AA 09 8B 52 54 4E 20 4A 53 52 20 |.;.U....RTN JSR |
00000C50: 24 41 44 39 45 00 61 14 AC 09 4A 53 52 20 24 37 |$AD9E.a...JSR $7|
00000C60: 39 00 6E 14 AE 09 43 4D 50 20 23 24 38 39 00 79 |9.n...CMP #$89.y|
00000C70: 14 B0 09 42 45 51 20 8B 31 00 86 14 B2 09 4C 44 |...BEQ .1.....LD|
00000C80: 41 20 23 24 41 37 00 94 14 B4 09 4A 53 52 20 24 |A #$A7.....JSR $|
00000C90: 41 45 46 46 00 A3 14 B6 09 8B 31 20 4A 53 52 20 |AEFF......1 JSR |
00000CA0: 24 37 39 00 AF 14 B8 09 4C 44 58 20 24 36 31 00 |$79.....LDX $61.|
00000CB0: BE 14 BA 09 42 45 51 20 45 4C 53 52 54 4E 00 C9 |....BEQ ELSRTN..|
00000CC0: 14 BC 09 42 43 53 20 8B 32 00 D7 14 BE 09 4A 4D |...BCS .2.....JM|
00000CD0: 50 20 24 41 38 41 30 00 E2 14 C0 09 8B 32 20 50 |P $A8A0......2 P|
00000CE0: 4C 41 00 EA 14 C2 09 50 4C 41 00 F6 14 C4 09 4A |LA.....PLA.....J|
00000CF0: 53 52 20 24 37 39 00 02 15 C6 09 4A 4D 50 20 45 |SR $79.....JMP E|
00000D00: 58 31 00 08 15 D0 09 3B 00 1D 15 D2 09 45 4C 53 |X1.....;.....ELS|
00000D10: 52 54 4E 20 4A 53 52 20 24 41 38 46 38 00 29 15 |RTN JSR $A8F8.).|
00000D20: D4 09 4A 53 52 20 24 37 39 00 34 15 D6 09 43 4D |..JSR $79.4...CM|
00000D30: 50 20 23 30 00 41 15 D8 09 42 4E 45 20 45 4C 53 |P #0.A...BNE ELS|
00000D40: 31 00 49 15 DA 09 52 54 53 00 5A 15 DC 09 45 4C |1.I...RTS.Z...EL|
00000D50: 53 31 20 4A 53 52 20 24 37 33 00 67 15 DE 09 43 |S1 JSR $73.g...C|
00000D60: 4D 50 20 23 24 35 46 00 76 15 E0 09 42 4E 45 20 |MP #$5F.v...BNE |
00000D70: 45 4C 53 52 54 4E 00 82 15 E2 09 4A 53 52 20 24 |ELSRTN.....JSR $|
00000D80: 37 33 00 8F 15 E4 09 43 4D 50 20 23 24 34 30 00 |73.....CMP #$40.|
00000D90: 9E 15 E6 09 42 4E 45 20 45 4C 53 52 54 4E 00 AA |....BNE ELSRTN..|
00000DA0: 15 E8 09 4A 53 52 20 24 37 33 00 B5 15 EA 09 4A |...JSR $73.....J|
00000DB0: 4D 50 20 8B 32 00 BB 15 EC 09 3B 00 CA 15 EE 09 |MP .2.....;.....|
00000DC0: 45 58 54 20 4C 44 58 20 23 37 00 DE 15 F0 09 45 |EXT LDX #7.....E|
00000DD0: 58 54 31 20 4C 44 41 20 54 56 45 43 2C 58 00 ED |XT1 LDA TVEC,X..|
00000DE0: 15 F2 09 53 54 41 20 24 33 30 34 2C 58 00 F5 15 |...STA $304,X...|
00000DF0: F4 09 44 45 58 00 02 16 F6 09 42 50 4C 20 45 58 |..DEX.....BPL EX|
00000E00: 54 31 00 0F 16 F8 09 4C 44 41 20 23 24 41 32 00 |T1.....LDA #$A2.|
00000E10: 1D 16 FA 09 53 54 41 20 53 54 41 52 54 00 2B 16 |....STA START.+.|
00000E20: FC 09 4A 4D 50 20 50 44 4F 57 4E 00 31 16 FE 09 |..JMP PDOWN.1...|
00000E30: 3B 00 44 16 00 0A 43 8B 43 48 52 20 43 4D 50 20 |;.D...C.CHR CMP |
00000E40: 23 24 35 42 00 51 16 02 0A 42 43 43 20 43 49 43 |#$5B.Q...BCC CIC|
00000E50: 31 00 59 16 04 0A 43 4C 43 00 66 16 06 0A 42 43 |1.Y...CLC.f...BC|
00000E60: 43 20 43 49 43 32 00 78 16 08 0A 43 49 43 31 20 |C CIC2.x...CIC1 |
00000E70: 43 4D 50 20 23 24 34 31 00 85 16 0A 0A 43 49 43 |CMP #$41.....CIC|
00000E80: 32 20 52 54 53 00 8B 16 0C 0A 3B 00 9E 16 7A 11 |2 RTS.....;...z.|
00000E90: 58 41 44 44 20 4A 53 52 20 24 41 44 39 45 00 AC |XADD JSR $AD9E..|
00000EA0: 16 7C 11 4A 53 52 20 24 42 36 41 33 00 B7 16 7E |.|.JSR $B6A3...~|
00000EB0: 11 53 54 41 20 54 33 00 BF 16 80 11 54 58 41 00 |.STA T3.....TXA.|
00000EC0: C7 16 82 11 50 48 41 00 CF 16 84 11 54 59 41 00 |....PHA.....TYA.|
00000ED0: D7 16 86 11 50 48 41 00 E2 16 88 11 4C 44 41 20 |....PHA.....LDA |
00000EE0: 54 33 00 F0 16 8A 11 4A 53 52 20 24 42 34 37 44 |T3.....JSR $B47D|
00000EF0: 00 F8 16 8C 11 54 41 58 00 04 17 8E 11 42 4E 45 |.....TAX.....BNE|
00000F00: 20 58 41 31 00 12 17 90 11 4A 4D 50 20 24 41 46 | XA1.....JMP $AF|
00000F10: 30 38 00 1E 17 92 11 58 41 31 20 43 4C 43 00 29 |08.....XA1 CLC.)|
00000F20: 17 94 11 41 44 43 20 23 32 00 34 17 96 11 53 54 |...ADC #2.4...ST|
00000F30: 41 20 54 33 00 42 17 98 11 4A 53 52 20 24 42 34 |A T3.B...JSR $B4|
00000F40: 37 44 00 4A 17 9A 11 54 41 59 00 52 17 9C 11 50 |7D.J...TAY.R...P|
00000F50: 4C 41 00 5E 17 9E 11 53 54 41 20 24 32 33 00 66 |LA.^...STA $23.f|
00000F60: 17 A0 11 50 4C 41 00 72 17 A2 11 53 54 41 20 24 |...PLA.r...STA $|
00000F70: 32 32 00 7A 17 A4 11 44 45 59 00 87 17 A6 11 4C |22.z...DEY.....L|
00000F80: 44 41 20 23 22 50 22 00 97 17 A8 11 53 54 41 20 |DA #"P".....STA |
00000F90: 28 24 36 32 29 2C 59 00 9F 17 AA 11 44 45 59 00 |($62),Y.....DEY.|
00000FA0: AC 17 AC 11 4C 44 41 20 23 22 2C 22 00 BC 17 AE |....LDA #","....|
00000FB0: 11 53 54 41 20 28 24 36 32 29 2C 59 00 C8 17 B0 |.STA ($62),Y....|
00000FC0: 11 58 41 32 20 44 45 59 00 D4 17 B2 11 42 4D 49 |.XA2 DEY.....BMI|
00000FD0: 20 58 41 33 00 E4 17 B4 11 4C 44 41 20 28 24 32 | XA3.....LDA ($2|
00000FE0: 32 29 2C 59 00 F4 17 B6 11 53 54 41 20 28 24 36 |2),Y.....STA ($6|
00000FF0: 32 29 2C 59 00 00 18 B8 11 42 4E 45 20 58 41 32 |2),Y.....BNE XA2|
00001000: 00 0F 18 BA 11 58 41 33 20 4C 44 41 20 54 33 00 |.....XA3 LDA T3.|
00001010: 1B 18 BC 11 4C 44 58 20 24 36 32 00 27 18 BE 11 |....LDX $62.'...|
00001020: 4C 44 59 20 24 36 33 00 36 18 C0 11 4A 53 52 20 |LDY $63.6...JSR |
00001030: 53 45 54 4E 41 4D 00 42 18 C2 11 4A 53 52 20 24 |SETNAM.B...JSR $|
00001040: 37 39 00 4E 18 C4 11 42 45 51 20 58 41 34 00 5C |79.N...BEQ XA4.\|
00001050: 18 C6 11 4A 53 52 20 24 41 45 46 44 00 6A 18 C8 |...JSR $AEFD.j..|
00001060: 11 4A 53 52 20 24 42 37 39 45 00 78 18 CA 11 2E |.JSR $B79E.x....|
00001070: 42 59 54 45 20 24 32 43 00 87 18 CC 11 58 41 34 |BYTE $2C.....XA4|
00001080: 20 4C 44 58 20 23 38 00 94 18 CE 11 4C 44 41 20 | LDX #8.....LDA |
00001090: 23 24 36 33 00 9C 18 D0 11 54 41 59 00 AB 18 D2 |#$63.....TAY....|
000010A0: 11 4A 53 52 20 53 45 54 4C 46 53 00 B5 18 D4 11 |.JSR SETLFS.....|
000010B0: 4A 53 52 20 9F 00 C2 18 D6 11 4C 44 58 20 23 24 |JSR ......LDX #$|
000010C0: 36 33 00 D0 18 D8 11 4A 53 52 20 43 48 4B 49 4E |63.....JSR CHKIN|
000010D0: 00 DD 18 DA 11 4A 53 52 20 44 53 4B A1 00 EA 18 |.....JSR DSK....|
000010E0: DC 11 4A 53 52 20 44 53 4B A1 00 FB 18 DE 11 58 |..JSR DSK......X|
000010F0: 41 35 20 4A 53 52 20 44 53 4B A1 00 08 19 E2 11 |A5 JSR DSK......|
00001100: 4A 53 52 20 44 53 4B A1 00 14 19 E4 11 42 4E 45 |JSR DSK......BNE|
00001110: 20 58 41 37 00 21 19 E6 11 4A 53 52 20 43 4C 53 | XA7.!...JSR CLS|
00001120: 9C 00 2F 19 E8 11 4A 53 52 20 24 41 36 35 39 00 |../...JSR $A659.|
00001130: 3D 19 EA 11 4A 4D 50 20 24 45 33 38 36 00 4E 19 |=...JMP $E386.N.|
00001140: EE 11 58 41 37 20 4A 53 52 20 44 53 4B A1 00 5A |..XA7 JSR DSK..Z|
00001150: 19 F0 11 53 54 41 20 24 31 34 00 67 19 F2 11 4A |...STA $14.g...J|
00001160: 53 52 20 44 53 4B A1 00 73 19 F4 11 53 54 41 20 |SR DSK..s...STA |
00001170: 24 31 35 00 7E 19 F6 11 4C 44 59 20 23 30 00 8F |$15.~...LDY #0..|
00001180: 19 F8 11 58 41 38 20 4A 53 52 20 44 53 4B A1 00 |...XA8 JSR DSK..|
00001190: 9E 19 FA 11 53 54 41 20 24 32 30 30 2C 59 00 AA |....STA $200,Y..|
000011A0: 19 FC 11 42 45 51 20 58 41 39 00 B2 19 FE 11 49 |...BEQ XA9.....I|
000011B0: 4E 59 00 BE 19 00 12 42 4E 45 20 58 41 38 00 CA |NY.....BNE XA8..|
000011C0: 19 02 12 58 41 39 20 54 59 41 00 D2 19 04 12 43 |...XA9 TYA.....C|
000011D0: 4C 43 00 DD 19 06 12 41 44 43 20 23 35 00 E9 19 |LC.....ADC #5...|
000011E0: 08 12 53 54 41 20 24 30 42 00 F7 19 0A 12 4A 53 |..STA $0B.....JS|
000011F0: 52 20 24 41 36 31 33 00 04 1A 0C 12 42 43 43 20 |R $A613.....BCC |
00001200: 58 41 31 33 00 0F 1A 0E 12 4C 44 59 20 23 31 00 |XA13.....LDY #1.|
00001210: 1F 1A 10 12 4C 44 41 20 28 24 35 46 29 2C 59 00 |....LDA ($5F),Y.|
00001220: 2B 1A 12 12 53 54 41 20 24 32 33 00 37 1A 14 12 |+...STA $23.7...|
00001230: 4C 44 41 20 24 32 44 00 43 1A 16 12 53 54 41 20 |LDA $2D.C...STA |
00001240: 24 32 32 00 4F 1A 18 12 4C 44 41 20 24 36 30 00 |$22.O...LDA $60.|
00001250: 5B 1A 1A 12 53 54 41 20 24 32 35 00 67 1A 1C 12 |[...STA $25.g...|
00001260: 4C 44 41 20 24 35 46 00 6F 1A 1E 12 44 45 59 00 |LDA $5F.o...DEY.|
00001270: 7F 1A 20 12 53 42 43 20 28 24 35 46 29 2C 59 00 |.. .SBC ($5F),Y.|
00001280: 87 1A 22 12 43 4C 43 00 93 1A 24 12 41 44 43 20 |..".CLC...$.ADC |
00001290: 24 32 44 00 9F 1A 26 12 53 54 41 20 24 32 44 00 |$2D...&.STA $2D.|
000012A0: AB 1A 28 12 53 54 41 20 24 32 34 00 B7 1A 2A 12 |..(.STA $24...*.|
000012B0: 4C 44 41 20 24 32 45 00 C4 1A 2C 12 41 44 43 20 |LDA $2E...,.ADC |
000012C0: 23 24 46 46 00 D0 1A 2E 12 53 54 41 20 24 32 45 |#$FF.....STA $2E|
000012D0: 00 DC 1A 30 12 53 42 43 20 24 36 30 00 E4 1A 32 |...0.SBC $60...2|
000012E0: 12 54 41 58 00 EC 1A 34 12 53 45 43 00 FD 1A 36 |.TAX...4.SEC...6|
000012F0: 12 58 41 31 30 20 42 43 43 20 58 41 35 00 09 1B |.XA10 BCC XA5...|
00001300: 38 12 4C 44 41 20 24 35 46 00 15 1B 3A 12 53 42 |8.LDA $5F...:.SB|
00001310: 43 20 24 32 44 00 1D 1B 3C 12 54 41 59 00 2A 1B |C $2D...<.TAY.*.|
00001320: 3E 12 42 43 53 20 58 41 31 31 00 32 1B 40 12 49 |>.BCS XA11.2.@.I|
00001330: 4E 58 00 3E 1B 42 12 44 45 43 20 24 32 35 00 4B |NX.>.B.DEC $25.K|
00001340: 1B 44 12 58 41 31 31 20 43 4C 43 00 57 1B 46 12 |.D.XA11 CLC.W.F.|
00001350: 41 44 43 20 24 32 32 00 64 1B 48 12 42 43 43 20 |ADC $22.d.H.BCC |
00001360: 58 41 31 32 00 70 1B 4A 12 44 45 43 20 24 32 33 |XA12.p.J.DEC $23|
00001370: 00 78 1B 4C 12 43 4C 43 00 8D 1B 4E 12 58 41 31 |.x.L.CLC...N.XA1|
00001380: 32 20 4C 44 41 20 28 24 32 32 29 2C 59 00 9D 1B |2 LDA ($22),Y...|
00001390: 50 12 53 54 41 20 28 24 32 34 29 2C 59 00 A5 1B |P.STA ($24),Y...|
000013A0: 52 12 49 4E 59 00 B2 1B 54 12 42 4E 45 20 58 41 |R.INY...T.BNE XA|
000013B0: 31 32 00 BE 1B 56 12 49 4E 43 20 24 32 33 00 CA |12...V.INC $23..|
000013C0: 1B 58 12 49 4E 43 20 24 32 35 00 D2 1B 5A 12 44 |.X.INC $25...Z.D|
000013D0: 45 58 00 DF 1B 5C 12 42 4E 45 20 58 41 31 32 00 |EX...\.BNE XA12.|
000013E0: F2 1B 5E 12 58 41 31 33 20 4A 53 52 20 24 41 36 |..^.XA13 JSR $A6|
000013F0: 36 33 00 00 1C 60 12 4A 53 52 20 24 41 35 33 33 |63...`.JSR $A533|
00001400: 00 08 1C 62 12 43 4C 43 00 14 1C 64 12 4C 44 41 |...b.CLC...d.LDA|
00001410: 20 24 32 44 00 20 1C 66 12 53 54 41 20 24 35 41 | $2D. .f.STA $5A|
00001420: 00 2C 1C 68 12 41 44 43 20 24 30 42 00 38 1C 6A |.,.h.ADC $0B.8.j|
00001430: 12 53 54 41 20 24 35 38 00 44 1C 6C 12 4C 44 59 |.STA $58.D.l.LDY|
00001440: 20 24 32 45 00 50 1C 6E 12 53 54 59 20 24 35 42 | $2E.P.n.STY $5B|
00001450: 00 5D 1C 70 12 42 43 43 20 58 41 31 34 00 65 1C |.].p.BCC XA14.e.|
00001460: 72 12 49 4E 59 00 76 1C 74 12 58 41 31 34 20 53 |r.INY.v.t.XA14 S|
00001470: 54 59 20 24 35 39 00 84 1C 76 12 4A 53 52 20 24 |TY $59...v.JSR $|
00001480: 41 33 42 38 00 90 1C 78 12 4C 44 41 20 24 31 34 |A3B8...x.LDA $14|
00001490: 00 9C 1C 7A 12 4C 44 59 20 24 31 35 00 A9 1C 7C |...z.LDY $15...||
000014A0: 12 53 54 41 20 24 31 46 45 00 B6 1C 7E 12 53 54 |.STA $1FE...~.ST|
000014B0: 59 20 24 31 46 46 00 C2 1C 80 12 4C 44 41 20 24 |Y $1FF.....LDA $|
000014C0: 33 31 00 CE 1C 82 12 4C 44 59 20 24 33 32 00 DA |31.....LDY $32..|
000014D0: 1C 84 12 53 54 41 20 24 32 44 00 E6 1C 86 12 53 |...STA $2D.....S|
000014E0: 54 59 20 24 32 45 00 F2 1C 88 12 4C 44 59 20 24 |TY $2E.....LDY $|
000014F0: 30 42 00 FA 1C 8A 12 44 45 59 00 0F 1D 8C 12 58 |0B.....DEY.....X|
00001500: 41 31 35 20 4C 44 41 20 24 30 31 46 43 2C 59 00 |A15 LDA $01FC,Y.|
00001510: 1F 1D 8E 12 53 54 41 20 28 24 35 46 29 2C 59 00 |....STA ($5F),Y.|
00001520: 27 1D 90 12 44 45 59 00 34 1D 92 12 42 50 4C 20 |'...DEY.4...BPL |
00001530: 58 41 31 35 00 42 1D 94 12 4A 53 52 20 24 41 36 |XA15.B...JSR $A6|
00001540: 36 33 00 50 1D 96 12 4A 53 52 20 24 41 35 33 33 |63.P...JSR $A533|
00001550: 00 58 1D 98 12 43 4C 43 00 65 1D 9A 12 42 43 43 |.X...CLC.e...BCC|
00001560: 20 58 41 31 30 00 6B 1D 9C 12 3B 00 7C 1D 9E 12 | XA10.k...;.|...|
00001570: 44 53 4B A1 20 4A 53 52 20 A1 49 4E 00 84 1D A0 |DSK. JSR .IN....|
00001580: 12 50 48 41 00 90 1D A2 12 4C 44 41 20 24 39 30 |.PHA.....LDA $90|
00001590: 00 9B 1D A4 12 AF 20 23 24 42 46 00 A8 1D A6 12 |...... #$BF.....|
000015A0: 42 4E 45 20 44 4B 47 31 00 B0 1D A8 12 50 4C 41 |BNE DKG1.....PLA|
000015B0: 00 B8 1D AA 12 52 54 53 00 CA 1D AC 12 44 4B 47 |.....RTS.....DKG|
000015C0: 31 20 4A 53 52 20 43 4C 53 9C 00 D7 1D AE 12 4C |1 JSR CLS......L|
000015D0: 44 58 20 23 24 31 44 00 E8 1D B0 12 4C 44 41 20 |DX #$1D.....LDA |
000015E0: 23 B3 4D 52 47 45 52 52 00 F4 1D B2 12 53 54 41 |#.MRGERR.....STA|
000015F0: 20 24 32 32 00 05 1E B4 12 4C 44 41 20 23 B1 4D | $22.....LDA #.M|
00001600: 52 47 45 52 52 00 13 1E B6 12 4A 4D 50 20 24 41 |RGERR.....JMP $A|
00001610: 34 34 35 00 19 1E B8 12 3B 00 2F 1E BA 12 4D 52 |445.....;./...MR|
00001620: 47 45 52 52 20 2E C6 20 22 4D 45 52 47 C5 22 00 |GERR .. "MERG.".|
00001630: 35 1E BC 12 3B 00 47 1E BE 12 43 4C 53 9C 20 4C |5...;.G...CLS. L|
00001640: 44 41 20 23 24 36 33 00 51 1E C0 12 4A 53 52 20 |DA #$63.Q...JSR |
00001650: A0 00 5E 1E C2 12 4A 4D 50 20 9C 43 48 4E 00 64 |..^...JMP .CHN.d|
00001660: 1E C4 12 3B 00 72 1E 66 14 50 44 4F 57 4E 20 52 |...;.r.f.PDOWN R|
00001670: 54 53 00 78 1E 68 14 3B 00 00 00 |TS.x.h.;... |
..).... TB/ADD.A (SEPT 27/84)
:./...:.S.... THIS PROGRAM CONSISTS OF
THE.{.... TRANSBASIC KERNEL PLUS THE 'A
DD'. .... STATEMENT. IT IS ASSEMBLED TO
.G.... 'TB/ADD.M' ON THE LIBRARY DISK..
..... IT IS USED TO ADD STATEMENTS.....
. AND FUNCTIONS TO TB/KERNEL......:.<..
.. =================================.B..
.:.X.... B(773).192 . 29.^...:.E..._A.K.
..:.U.... 700......OPT OO....... $C000..
. .;...!.T2 . 2...".T3 . 3...#.T4 . 4...
$.T5 . 5.K.%.T6 . 6.Q.&.;...'.SETLFS .
$FFBA...(.SETNAM . $FFBD...).. .
$E1C1.".*.CHKIN . $E11E.3.+. . $E
1CC.F.,..CHN . $FFCC.Y.-..IN . $E12
4._...;.E.[.;.S.\.JMP START..].JMP EXT.
..^.;..._.XTRA .BYTE 3,0 ; STMTS,FUNCS
...`.;...A..BYTE 0...B.;.K.C.SKW .....D.
.F "ELSEEXIT"...R..F "ADD"...V.;...W.FKW
.....H.;...I..BYTE 0...J.;...K..S ...2.
L..W.D $A93A,EXT.1.B.Z..W.D XADD.1.H.>.;
.S.?..CS ...Y.3.;.J.4.START LDX #7.~.6.S
TT1 LDA $304,X...8.STA TVEC,X...:.LDA NU
VECS,X...<.STA $304,X...>.DEX.B.@.BPL ST
T1.O.B.LDA XTRA.W.D.CLC...F.ADC XTRA.1..
.H.STA XTRA.2...J.LDA #$60...L.STA START
...N.RTS...P.;.2.R.TVEC .W.D $A57C.F.T.L
VEC .W.D $A71A.Z.V.EVEC .W.D $A7E4.N.X.F
VEC .W.D $AE86.T.Z.;...\.NUVECS .W.D .K,
LIS,EXC,FUN...^.;...`..K LDX #0...B.LDY
#0.E.D.TK1 LDA $200,X.R.F.CMP #$22...H.B
EQ TK9...J.JSR C.CHR...L.BCC TK4...N.STY
$71...P.STX T3...R.LDY #0.&.T.STY $0B..
.V.DEY.6.X.DEX.B.Z.TK2 INY.J.|.INX.].~.T
K3 LDA $200,X.E...SEC.S...SBC SKW,Y....
BEQ TK2.....CMP #$80.....BNE TK5.....LDA
#$5F.....LDY $71.....STA $200,Y.H...INY
.T...LDA $0B.....ADC #$3F.....TK4 INX...
..STA $200,Y.....INY.....LDA $200,Y.....
BNE TK1... .JMP (TVEC).4...;.C...TK5 LDX
T3.S...TK6 INC $0B._...LDA $0B.L...CMP
#$1E.X...BEQ TK6.....TK7 INY.....LDA SKW
.1,Y. ...BPL TK7.....LDA SKW,Y.....BNE T
K3.F...LDY $71.U...LDA $200,X.....BPL TK
4.....;.....TK8 LDA $200,X...B.BEQ TK4..
.D.CMP #$22...F.BEQ TK4.2.H.TK9 STA $200
,Y.:.J.INY.B.L.INX.N.N.BNE TK8.T.P.;.E.R
.LIS CMP #$5F.P.T.BNE L2.X.V.INY...X.LDA
($5F),Y...Z.SBC #$40.....CMP #$1E.....B
CC L1.....SBC #1.J...L1 CMP XTRA.2.U...B
CC L3.....DEY.....LDA ($5F),Y.....L2 TAX
.....JMP (LVEC).....;.....L3 STY T3.&...
LDY #0.....TAX.9...BEQ L5.J...L4 LDA SKW
,Y.R...PHP.Z...INY.B...PLP.M...BPL L4.U.
..DEX.....BNE L4.....;.....L5 LDA SKW,Y.
....PHP...... #$7F.....JSR $AB47.....INY
.H...PLP.S...BPL L5.....LDY T3.....L6 JM
P $A700.....;.....EXC JSR $73.....EX1 CM
P #$8B.". .BEQ EX8./.".CMP #$5F.;.$.BNE
EX5.G.&.JSR $73.S.(.JSR EX2.A.*.JMP $A7A
E.G.,.;.S...EX2 SEC...0.SBC #$40...2.CMP
#$1E...4.BCC EX3...6.SBC #1...8.EX3 CMP
XTRA.A.:.BCS EX7.I.<.ASL.Q.>.TAY...@.LD
A .S.1,Y...B.PHA...D.LDA .S,Y...F.PHA...
H.JMP $73...J.;...L.EX5 LDA $7A.+.N.BNE
EX6.7.P.DEC $7B.G.R.EX6 DEC $7A.V.T.JMP
(EVEC).\.V.;.N.X.EX7 JMP $AF08.T.Z.;...\
.EX8 JSR EX9...^.JMP $A7AE...`.;...B.EX9
LDA #..RTN.1...D.PHA.F.F.LDA #..RTN.1.N
.H.PHA.Z.J.JMP $73...L.;...N.FUN JSR $73
...P.CMP #$5F...R.BEQ FU2...T.LDA $7A.!.
V.BNE FU1.-.X.DEC $7B.=.Z.FU1 DEC $7A.L.
|.JMP (FVEC).R.~.;.A...FU2 LDA #0.M...ST
A $0D.Y...JSR $73.....SEC.....SBC #$40..
...CMP #$1E.....BCC FU3.....SBC #1.....F
U3 SEC.K...SBC XTRA.W...BCC EX7.....CMP
XTRA.1.....BCS EX7.....ASL.....TAY.....L
DA .CS.1,Y... .PHA.(...LDA .CS,Y.0...PHA
.<...JMP $73.B...;.U....RTN JSR $AD9E.A.
..JSR $79.N...CMP #$89.Y...BEQ .1.....LD
A #$A7.....JSR $AEFF......1 JSR $79.....
LDX $61.....BEQ ELSRTN.I...BCS .2.W...JM
P $A8A0......2 PLA...B.PLA...D.JSR $79..
.F.JMP EX1...P.;...R.ELSRTN JSR $A8F8.).
T.JSR $79.4.V.CMP #0.A.X.BNE ELS1.I.Z.RT
S.Z...ELS1 JSR $73.G...CMP #$5F.V...BNE
ELSRTN.....JSR $73.....CMP #$40.....BNE
ELSRTN.....JSR $73.....JMP .2.....;.J...
EXT LDX #7.....EXT1 LDA TVEC,X.....STA $
304,X.....DEX.....BPL EXT1.....LDA #$A2.
....STA START.+...JMP PDOWN.1...;.D...C.
CHR CMP #$5B.Q...BCC CIC1.Y...CLC.F...BC
C CIC2.X...CIC1 CMP #$41.....CIC2 RTS...
..;...Z.XADD JSR $AD9E...|.JSR $B6A3...~
.STA T3.....TXA.G...PHA.O...TYA.W...PHA.
....LDA T3.....JSR $B47D.....TAX.....BNE
XA1.....JMP $AF08.....XA1 CLC.)...ADC #
2.4...STA T3.B...JSR $B47D.J...TAY.R...P
LA.^...STA $23.F. .PLA.R...STA $22.Z...D
EY.....LDA #"P".....STA ($62),Y.....DEY.
....LDA #",".....STA ($62),Y.H...XA2 DEY
.T...BMI XA3.....LDA ($22),Y.....STA ($6
2),Y.....BNE XA2.....XA3 LDA T3.....LDX
$62.'...LDY $63.6...JSR SETNAM.B.B.JSR $
79.N.D.BEQ XA4.\.F.JSR $AEFD.J.H.JSR $B7
9E.X.J..BYTE $2C...L.XA4 LDX #8...N.LDA
#$63...P.TAY...R.JSR SETLFS...T.JSR ..B.
V.LDX #$63.P.X.JSR CHKIN...Z.JSR DSK....
..JSR DSK......XA5 JSR DSK......JSR DSK.
.....BNE XA7.!...JSR CLS../...JSR $A659.
=...JMP $E386.N...XA7 JSR DSK..Z...STA $
14.G...JSR DSK..S...STA $15.~...LDY #0..
...XA8 JSR DSK......STA $200,Y.....BEQ X
A9.....INY.....BNE XA8.J...XA9 TYA.R...C
LC.....ADC #5.....STA $0B.....JSR $A613.
....BCC XA13.....LDY #1.....LDA ($5F),Y.
+...STA $23.7...LDA $2D.C...STA $22.O...
LDA $60.[...STA $25.G...LDA $5F.O...DEY.
. .SBC ($5F),Y...".CLC...$.ADC $2D...&.
STA $2D...(.STA $24...*.LDA $2E.D.,.ADC
#$FF.P...STA $2E...0.SBC $60...2.TAX...4
.SEC...6.XA10 BCC XA5...8.LDA $5F...:.SB
C $2D...<.TAY.*.>.BCS XA11.2.@.INX.>.B.D
EC $25.K.D.XA11 CLC.W.F.ADC $22.D.H.BCC
XA12.P.J.DEC $23.X.L.CLC...N.XA12 LDA ($
22),Y...P.STA ($24),Y...R.INY...T.BNE XA
12...V.INC $23.J.X.INC $25.R.Z.DEX...\.B
NE XA12...^.XA13 JSR $A663...`.JSR $A533
...B.CLC...D.LDA $2D. .F.STA $5A.,.H.ADC
$0B.8.J.STA $58.D.L.LDY $2E.P.N.STY $5B
.].P.BCC XA14.E.R.INY.V.T.XA14 STY $59..
.V.JSR $A3B8...X.LDA $14...Z.LDY $15...|
.STA $1FE...~.STY $1FF.B...LDA $31.N...L
DY $32.Z...STA $2D.....STY $2E.....LDY $
0B.....DEY.....XA15 LDA $01FC,Y.....STA
($5F),Y.'...DEY.4...BPL XA15.B...JSR $A6
63.P...JSR $A533.X...CLC.E...BCC XA10.K.
..;.|...DSK. JSR .IN... .PHA.....LDA $90
...... #$BF.....BNE DKG1.....PLA.....RTS
.J...DKG1 JSR CLS..W...LDX #$1D.....LDA
#.MRGERR.....STA $22.....LDA #.MRGERR...
..JMP $A445.....;./...MRGERR .F "MERGE".
5...;.G...CLS. LDA #$63.Q...JSR .^.B.JM
P .CHN.D.D.;.R.F.PDOWN RTS.X.H.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL