TB/ADD
FILE INFORMATION
FILENAME(S): TB/ADD
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
a835bf864deecf89ca4adfda2efee17e92f644631094fce428832dd2287d93f9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC UTILITIES | TB/ADD | PRG | High Voltage Complete C64 Collection | 11 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 00 00 8F 20 41 44 44 20 28 53 45 50 |....... ADD (SEP|
00000010: 54 20 32 37 2F 38 34 29 3A 00 1F 08 01 00 3A 00 |T 27/84):.....:.|
00000020: 3E 08 02 00 8F 20 31 20 53 54 41 54 45 4D 45 4E |>.... 1 STATEMEN|
00000030: 54 2C 20 30 20 46 55 4E 43 54 49 4F 4E 53 00 44 |T, 0 FUNCTIONS.D|
00000040: 08 03 00 3A 00 60 08 04 00 8F 20 4B 45 59 57 4F |...:.`.... KEYWO|
00000050: 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 33 |RD CHARACTERS: 3|
00000060: 00 66 08 05 00 3A 00 89 08 06 00 8F 20 4B 45 59 |.f...:...... KEY|
00000070: 57 4F 52 44 20 20 52 4F 55 54 49 4E 45 20 20 4C |WORD ROUTINE L|
00000080: 49 4E 45 20 20 53 45 52 23 00 AB 08 07 00 8F 20 |INE SER#...... |
00000090: 41 44 44 20 20 20 20 20 20 58 41 44 44 20 20 20 |ADD XADD |
000000A0: 20 20 34 34 37 34 20 20 30 35 35 00 B1 08 08 00 | 4474 055.....|
000000B0: 3A 00 C9 08 09 00 8F 20 45 2F 49 4F 52 54 4E 53 |:...... E/IORTNS|
000000C0: 20 28 33 39 2F 30 35 36 29 00 CF 08 0A 00 3A 00 | (39/056).....:.|
000000D0: F6 08 0B 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..... ==========|
000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000F0: 3D 3D 3D 3D 3D 3D 00 FC 08 0C 00 3A 00 1C 09 27 |======.....:...'|
00000100: 00 53 45 54 4C 46 53 20 B2 20 24 46 46 42 41 20 |.SETLFS . $FFBA |
00000110: 3B 49 AD 4F 20 52 4F 55 54 49 4E 45 00 3D 09 28 |;I.O ROUTINE.=.(|
00000120: 00 53 45 54 4E 41 4D 20 B2 20 24 46 46 42 44 20 |.SETNAM . $FFBD |
00000130: 3B 41 44 44 52 45 53 53 45 53 20 49 4E 00 57 09 |;ADDRESSES IN.W.|
00000140: 29 00 9F 20 B2 20 24 45 31 43 31 20 3B 4B 45 52 |).. . $E1C1 ;KER|
00000150: 4E 41 4C 20 52 4F 4D 00 69 09 2A 00 43 48 4B 49 |NAL ROM.i.*.CHKI|
00000160: 4E 20 B2 20 24 45 31 31 45 00 77 09 2B 00 A0 20 |N . $E11E.w.+.. |
00000170: B2 20 24 45 31 43 43 00 88 09 2C 00 9C 43 48 4E |. $E1CC...,..CHN|
00000180: 20 B2 20 24 46 46 43 43 00 98 09 2D 00 A1 49 4E | . $FFCC...-..IN|
00000190: 20 B2 20 24 45 31 32 34 00 9E 09 2E 00 3B 00 AB | . $E124.....;..|
000001A0: 09 72 00 2E C6 20 22 41 44 C4 22 00 BB 09 5A 04 |.r... "AD."...Z.|
000001B0: 2E 57 B0 44 20 58 41 44 44 AB 31 00 D8 09 7A 11 |.W.D XADD.1...z.|
000001C0: 58 41 44 44 20 4A 53 52 20 24 41 44 39 45 20 3B |XADD JSR $AD9E ;|
000001D0: A1 20 46 49 C3 41 4D 45 00 E6 09 7C 11 4A 53 52 |. FI.AME...|.JSR|
000001E0: 20 24 42 36 41 33 00 F9 09 7E 11 53 54 41 20 54 | $B6A3...~.STA T|
000001F0: 33 20 3B 94 20 C3 47 54 48 00 01 0A 80 11 54 58 |3 ;. .GTH.....TX|
00000200: 41 00 09 0A 82 11 50 48 41 00 11 0A 84 11 54 59 |A.....PHA.....TY|
00000210: 41 00 19 0A 86 11 50 48 41 00 24 0A 88 11 4C 44 |A.....PHA.$...LD|
00000220: 41 20 54 33 00 41 0A 8A 11 4A 53 52 20 24 42 34 |A T3.A...JSR $B4|
00000230: 37 44 20 3B 52 45 53 45 52 56 45 20 53 50 41 43 |7D ;RESERVE SPAC|
00000240: 45 00 49 0A 8C 11 54 41 58 00 55 0A 8E 11 42 4E |E.I...TAX.U...BN|
00000250: 45 20 58 41 31 00 7C 0A 90 11 4A 4D 50 20 24 41 |E XA1.|...JMP $A|
00000260: 46 30 38 20 3B 4E 55 4C 4C 20 53 54 52 49 4E 47 |F08 ;NULL STRING|
00000270: 20 53 59 4E 54 41 58 20 45 52 52 B0 00 99 0A 92 | SYNTAX ERR.....|
00000280: 11 58 41 31 20 43 4C 43 20 3B 41 44 44 20 2C 50 |.XA1 CLC ;ADD ,P|
00000290: 20 A4 20 46 49 C3 41 4D 45 00 A4 0A 94 11 41 44 | . FI.AME.....AD|
000002A0: 43 20 23 32 00 AF 0A 96 11 53 54 41 20 54 33 00 |C #2.....STA T3.|
000002B0: BD 0A 98 11 4A 53 52 20 24 42 34 37 44 00 C5 0A |....JSR $B47D...|
000002C0: 9A 11 54 41 59 00 CD 0A 9C 11 50 4C 41 00 D9 0A |..TAY.....PLA...|
000002D0: 9E 11 53 54 41 20 24 32 33 00 E1 0A A0 11 50 4C |..STA $23.....PL|
000002E0: 41 00 ED 0A A2 11 53 54 41 20 24 32 32 00 F5 0A |A.....STA $22...|
000002F0: A4 11 44 45 59 00 02 0B A6 11 4C 44 41 20 23 22 |..DEY.....LDA #"|
00000300: 50 22 00 12 0B A8 11 53 54 41 20 28 24 36 32 29 |P".....STA ($62)|
00000310: 2C 59 00 1A 0B AA 11 44 45 59 00 27 0B AC 11 4C |,Y.....DEY.'...L|
00000320: 44 41 20 23 22 2C 22 00 37 0B AE 11 53 54 41 20 |DA #",".7...STA |
00000330: 28 24 36 32 29 2C 59 00 43 0B B0 11 58 41 32 20 |($62),Y.C...XA2 |
00000340: 44 45 59 00 4F 0B B2 11 42 4D 49 20 58 41 33 00 |DEY.O...BMI XA3.|
00000350: 5F 0B B4 11 4C 44 41 20 28 24 32 32 29 2C 59 00 |_...LDA ($22),Y.|
00000360: 6F 0B B6 11 53 54 41 20 28 24 36 32 29 2C 59 00 |o...STA ($62),Y.|
00000370: 7B 0B B8 11 42 4E 45 20 58 41 32 00 9B 0B BA 11 |{...BNE XA2.....|
00000380: 58 41 33 20 4C 44 41 20 54 33 20 3B 53 45 54 20 |XA3 LDA T3 ;SET |
00000390: 55 50 20 81 20 53 45 54 4E 41 4D 00 A7 0B BC 11 |UP . SETNAM.....|
000003A0: 4C 44 58 20 24 36 32 00 B3 0B BE 11 4C 44 59 20 |LDX $62.....LDY |
000003B0: 24 36 33 00 C2 0B C0 11 4A 53 52 20 53 45 54 4E |$63.....JSR SETN|
000003C0: 41 4D 00 D7 0B C2 11 4A 53 52 20 24 37 39 20 3B |AM.....JSR $79 ;|
000003D0: 43 48 45 43 4B 20 81 00 F2 0B C4 11 42 45 51 20 |CHECK ......BEQ |
000003E0: 58 41 34 20 3B 44 45 56 49 43 45 20 4E 55 4D 42 |XA4 ;DEVICE NUMB|
000003F0: 45 52 00 00 0C C6 11 4A 53 52 20 24 41 45 46 44 |ER.....JSR $AEFD|
00000400: 00 0E 0C C8 11 4A 53 52 20 24 42 37 39 45 00 1C |.....JSR $B79E..|
00000410: 0C CA 11 2E 42 59 54 45 20 24 32 43 00 3B 0C CC |....BYTE $2C.;..|
00000420: 11 58 41 34 20 4C 44 58 20 23 38 20 3B 96 41 55 |.XA4 LDX #8 ;.AU|
00000430: 4C 54 20 44 45 56 49 43 45 20 38 00 57 0C CE 11 |LT DEVICE 8.W...|
00000440: 4C 44 41 20 23 24 36 33 20 3B 46 49 4C 45 20 4E |LDA #$63 ;FILE N|
00000450: 55 4D 42 45 52 20 AF 00 71 0C D0 11 54 41 59 20 |UMBER ..q...TAY |
00000460: 3B 53 45 43 91 44 41 52 59 20 41 44 44 52 20 39 |;SEC.DARY ADDR 9|
00000470: 39 00 80 0C D2 11 4A 53 52 20 53 45 54 4C 46 53 |9.....JSR SETLFS|
00000480: 00 8A 0C D4 11 4A 53 52 20 9F 00 97 0C D6 11 4C |.....JSR ......L|
00000490: 44 58 20 23 24 36 33 00 B0 0C D8 11 4A 53 52 20 |DX #$63.....JSR |
000004A0: 43 48 4B 49 4E 20 3B 9F 20 43 48 41 4E 4E 45 4C |CHKIN ;. CHANNEL|
000004B0: 00 CD 0C DA 11 4A 53 52 20 44 53 4B A1 20 3B 53 |.....JSR DSK. ;S|
000004C0: 4B 49 50 20 93 20 41 44 44 52 45 53 53 00 DA 0C |KIP . ADDRESS...|
000004D0: DC 11 4A 53 52 20 44 53 4B A1 00 FA 0C DE 11 58 |..JSR DSK......X|
000004E0: 41 35 20 4A 53 52 20 44 53 4B A1 20 3B 4C 49 4E |A5 JSR DSK. ;LIN|
000004F0: 45 20 4C 49 4E 4B 20 4C 4F 57 00 1B 0D E2 11 4A |E LINK LOW.....J|
00000500: 53 52 20 44 53 4B A1 20 3B 80 20 91 20 5A 45 52 |SR DSK. ;. . ZER|
00000510: 4F 20 48 49 47 48 20 42 59 54 45 00 27 0D E4 11 |O HIGH BYTE.'...|
00000520: 42 4E 45 20 58 41 37 00 41 0D E6 11 4A 53 52 20 |BNE XA7.A...JSR |
00000530: 43 4C 53 9C 20 3B 57 52 41 59 20 55 50 20 49 AD |CLS. ;WRAY UP I.|
00000540: 4F 00 61 0D E8 11 4A 53 52 20 24 41 36 35 39 20 |O.a...JSR $A659 |
00000550: 3B 52 45 53 45 54 20 43 48 52 A1 20 50 54 52 2C |;RESET CHR. PTR,|
00000560: 9C 00 76 0D EA 11 4A 4D 50 20 24 45 33 38 36 20 |..v...JMP $E386 |
00000570: 3B 27 87 59 2E 27 00 96 0D EE 11 58 41 37 20 4A |;'.Y.'.....XA7 J|
00000580: 53 52 20 44 53 4B A1 20 3B 94 20 4C 49 4E 45 20 |SR DSK. ;. LINE |
00000590: 4E 55 4D 42 45 52 00 A2 0D F0 11 53 54 41 20 24 |NUMBER.....STA $|
000005A0: 31 34 00 AF 0D F2 11 4A 53 52 20 44 53 4B A1 00 |14.....JSR DSK..|
000005B0: BB 0D F4 11 53 54 41 20 24 31 35 00 C6 0D F6 11 |....STA $15.....|
000005C0: 4C 44 59 20 23 30 00 E5 0D F8 11 58 41 38 20 4A |LDY #0.....XA8 J|
000005D0: 53 52 20 44 53 4B A1 20 3B 4D 4F 56 45 20 52 45 |SR DSK. ;MOVE RE|
000005E0: 53 54 20 4F 46 00 FE 0D FA 11 53 54 41 20 24 32 |ST OF.....STA $2|
000005F0: 30 30 2C 59 20 3B 4C 49 4E 45 20 A4 20 85 00 12 |00,Y ;LINE . ...|
00000600: 0E FC 11 42 45 51 20 58 41 39 20 3B 42 55 46 46 |...BEQ XA9 ;BUFF|
00000610: 45 52 00 1A 0E FE 11 49 4E 59 00 26 0E 00 12 42 |ER.....INY.&...B|
00000620: 4E 45 20 58 41 38 00 3F 0E 02 12 58 41 39 20 54 |NE XA8.?...XA9 T|
00000630: 59 41 20 3B 94 20 4C 49 4E 45 20 53 49 5A 45 00 |YA ;. LINE SIZE.|
00000640: 47 0E 04 12 43 4C 43 00 52 0E 06 12 41 44 43 20 |G...CLC.R...ADC |
00000650: 23 35 00 5E 0E 08 12 53 54 41 20 24 30 42 00 7C |#5.^...STA $0B.||
00000660: 0E 0A 12 4A 53 52 20 24 41 36 31 33 20 3B 53 45 |...JSR $A613 ;SE|
00000670: 41 52 43 48 20 81 20 4C 49 4E 45 23 00 99 0E 0C |ARCH . LINE#....|
00000680: 12 42 43 43 20 58 41 31 33 20 3B 53 4B 49 50 20 |.BCC XA13 ;SKIP |
00000690: 8B 20 A8 20 46 4F 55 4E 44 00 A4 0E 0E 12 4C 44 |. . FOUND.....LD|
000006A0: 59 20 23 31 00 BF 0E 10 12 4C 44 41 20 28 24 35 |Y #1.....LDA ($5|
000006B0: 46 29 2C 59 20 3B 44 45 88 45 20 4C 49 4E 45 00 |F),Y ;DE.E LINE.|
000006C0: CB 0E 12 12 53 54 41 20 24 32 33 00 D7 0E 14 12 |....STA $23.....|
000006D0: 4C 44 41 20 24 32 44 00 E3 0E 16 12 53 54 41 20 |LDA $2D.....STA |
000006E0: 24 32 32 00 EF 0E 18 12 4C 44 41 20 24 36 30 00 |$22.....LDA $60.|
000006F0: FB 0E 1A 12 53 54 41 20 24 32 35 00 07 0F 1C 12 |....STA $25.....|
00000700: 4C 44 41 20 24 35 46 00 0F 0F 1E 12 44 45 59 00 |LDA $5F.....DEY.|
00000710: 1F 0F 20 12 53 42 43 20 28 24 35 46 29 2C 59 00 |.. .SBC ($5F),Y.|
00000720: 27 0F 22 12 43 4C 43 00 33 0F 24 12 41 44 43 20 |'.".CLC.3.$.ADC |
00000730: 24 32 44 00 3F 0F 26 12 53 54 41 20 24 32 44 00 |$2D.?.&.STA $2D.|
00000740: 4B 0F 28 12 53 54 41 20 24 32 34 00 57 0F 2A 12 |K.(.STA $24.W.*.|
00000750: 4C 44 41 20 24 32 45 00 64 0F 2C 12 41 44 43 20 |LDA $2E.d.,.ADC |
00000760: 23 24 46 46 00 70 0F 2E 12 53 54 41 20 24 32 45 |#$FF.p...STA $2E|
00000770: 00 7C 0F 30 12 53 42 43 20 24 36 30 00 84 0F 32 |.|.0.SBC $60...2|
00000780: 12 54 41 58 00 8C 0F 34 12 53 45 43 00 A3 0F 36 |.TAX...4.SEC...6|
00000790: 12 58 41 31 30 20 42 43 43 20 58 41 35 20 3B 4C |.XA10 BCC XA5 ;L|
000007A0: 49 4E 4B 00 AF 0F 38 12 4C 44 41 20 24 35 46 00 |INK...8.LDA $5F.|
000007B0: BB 0F 3A 12 53 42 43 20 24 32 44 00 C3 0F 3C 12 |..:.SBC $2D...<.|
000007C0: 54 41 59 00 D0 0F 3E 12 42 43 53 20 58 41 31 31 |TAY...>.BCS XA11|
000007D0: 00 D8 0F 40 12 49 4E 58 00 E4 0F 42 12 44 45 43 |...@.INX...B.DEC|
000007E0: 20 24 32 35 00 F1 0F 44 12 58 41 31 31 20 43 4C | $25...D.XA11 CL|
000007F0: 43 00 FD 0F 46 12 41 44 43 20 24 32 32 00 0A 10 |C...F.ADC $22...|
00000800: 48 12 42 43 43 20 58 41 31 32 00 16 10 4A 12 44 |H.BCC XA12...J.D|
00000810: 45 43 20 24 32 33 00 1E 10 4C 12 43 4C 43 00 33 |EC $23...L.CLC.3|
00000820: 10 4E 12 58 41 31 32 20 4C 44 41 20 28 24 32 32 |.N.XA12 LDA ($22|
00000830: 29 2C 59 00 43 10 50 12 53 54 41 20 28 24 32 34 |),Y.C.P.STA ($24|
00000840: 29 2C 59 00 4B 10 52 12 49 4E 59 00 58 10 54 12 |),Y.K.R.INY.X.T.|
00000850: 42 4E 45 20 58 41 31 32 00 64 10 56 12 49 4E 43 |BNE XA12.d.V.INC|
00000860: 20 24 32 33 00 70 10 58 12 49 4E 43 20 24 32 35 | $23.p.X.INC $25|
00000870: 00 78 10 5A 12 44 45 58 00 85 10 5C 12 42 4E 45 |.x.Z.DEX...\.BNE|
00000880: 20 58 41 31 32 00 9B 10 5E 12 58 41 31 33 20 4A | XA12...^.XA13 J|
00000890: 53 52 20 24 41 36 36 33 20 3B 9C 00 B2 10 60 12 |SR $A663 ;....`.|
000008A0: 4A 53 52 20 24 41 35 33 33 20 3B 52 45 AB 4C 49 |JSR $A533 ;RE.LI|
000008B0: 4E 4B 00 BA 10 62 12 43 4C 43 00 C6 10 64 12 4C |NK...b.CLC...d.L|
000008C0: 44 41 20 24 32 44 00 D2 10 66 12 53 54 41 20 24 |DA $2D...f.STA $|
000008D0: 35 41 00 DE 10 68 12 41 44 43 20 24 30 42 00 EA |5A...h.ADC $0B..|
000008E0: 10 6A 12 53 54 41 20 24 35 38 00 F6 10 6C 12 4C |.j.STA $58...l.L|
000008F0: 44 59 20 24 32 45 00 02 11 6E 12 53 54 59 20 24 |DY $2E...n.STY $|
00000900: 35 42 00 0F 11 70 12 42 43 43 20 58 41 31 34 00 |5B...p.BCC XA14.|
00000910: 17 11 72 12 49 4E 59 00 36 11 74 12 58 41 31 34 |..r.INY.6.t.XA14|
00000920: 20 53 54 59 20 24 35 39 20 3B 4D 41 4B 45 20 53 | STY $59 ;MAKE S|
00000930: 50 41 43 45 20 81 00 4C 11 76 12 4A 53 52 20 24 |PACE ..L.v.JSR $|
00000940: 41 33 42 38 20 3B A2 20 4C 49 4E 45 00 58 11 78 |A3B8 ;. LINE.X.x|
00000950: 12 4C 44 41 20 24 31 34 00 64 11 7A 12 4C 44 59 |.LDA $14.d.z.LDY|
00000960: 20 24 31 35 00 71 11 7C 12 53 54 41 20 24 31 46 | $15.q.|.STA $1F|
00000970: 45 00 7E 11 7E 12 53 54 59 20 24 31 46 46 00 8A |E.~.~.STY $1FF..|
00000980: 11 80 12 4C 44 41 20 24 33 31 00 96 11 82 12 4C |...LDA $31.....L|
00000990: 44 59 20 24 33 32 00 A2 11 84 12 53 54 41 20 24 |DY $32.....STA $|
000009A0: 32 44 00 AE 11 86 12 53 54 59 20 24 32 45 00 BA |2D.....STY $2E..|
000009B0: 11 88 12 4C 44 59 20 24 30 42 00 C2 11 8A 12 44 |...LDY $0B.....D|
000009C0: 45 59 00 E2 11 8C 12 58 41 31 35 20 4C 44 41 20 |EY.....XA15 LDA |
000009D0: 24 30 31 46 43 2C 59 20 3B 4D 4F 56 45 20 4C 49 |$01FC,Y ;MOVE LI|
000009E0: 4E 45 00 FE 11 8E 12 53 54 41 20 28 24 35 46 29 |NE.....STA ($5F)|
000009F0: 2C 59 20 3B B5 4F 20 50 52 4F 47 52 41 4D 00 06 |,Y ;.O PROGRAM..|
00000A00: 12 90 12 44 45 59 00 13 12 92 12 42 50 4C 20 58 |...DEY.....BPL X|
00000A10: 41 31 35 00 24 12 94 12 4A 53 52 20 24 41 36 36 |A15.$...JSR $A66|
00000A20: 33 20 3B 9C 00 3B 12 96 12 4A 53 52 20 24 41 35 |3 ;..;...JSR $A5|
00000A30: 33 33 20 3B 52 45 AB 4C 49 4E 4B 00 43 12 98 12 |33 ;RE.LINK.C...|
00000A40: 43 4C 43 00 5A 12 9A 12 42 43 43 20 58 41 31 30 |CLC.Z...BCC XA10|
00000A50: 20 3B 44 4F 20 41 A8 48 45 52 00 60 12 9C 12 3B | ;DO A.HER.`...;|
00000A60: 00 79 12 9E 12 44 53 4B A1 20 4A 53 52 20 A1 49 |.y...DSK. JSR .I|
00000A70: 4E 20 3B A1 20 42 59 54 45 00 81 12 A0 12 50 48 |N ;. BYTE.....PH|
00000A80: 41 00 9B 12 A2 12 4C 44 41 20 24 39 30 20 3B 43 |A.....LDA $90 ;C|
00000A90: 48 45 43 4B 20 53 54 41 54 55 53 00 A6 12 A4 12 |HECK STATUS.....|
00000AA0: AF 20 23 24 42 46 00 B3 12 A6 12 42 4E 45 20 44 |. #$BF.....BNE D|
00000AB0: 4B 47 31 00 C3 12 A8 12 50 4C 41 20 3B 8E 20 8B |KG1.....PLA ;. .|
00000AC0: 20 4F 4B 00 CB 12 AA 12 52 54 53 00 EA 12 AC 12 | OK.....RTS.....|
00000AD0: 44 4B 47 31 20 4A 53 52 20 43 4C 53 9C 20 3B 57 |DKG1 JSR CLS. ;W|
00000AE0: 52 41 50 20 55 50 20 49 AD 4F 00 05 13 AE 12 4C |RAP UP I.O.....L|
00000AF0: 44 58 20 23 24 31 44 20 3B 27 4D 45 52 47 45 20 |DX #$1D ;'MERGE |
00000B00: 45 52 52 B0 27 00 16 13 B0 12 4C 44 41 20 23 B3 |ERR.'.....LDA #.|
00000B10: 4D 52 47 45 52 52 00 22 13 B2 12 53 54 41 20 24 |MRGERR."...STA $|
00000B20: 32 32 00 33 13 B4 12 4C 44 41 20 23 B1 4D 52 47 |22.3...LDA #.MRG|
00000B30: 45 52 52 00 41 13 B6 12 4A 4D 50 20 24 41 34 34 |ERR.A...JMP $A44|
00000B40: 35 00 47 13 B8 12 3B 00 5D 13 BA 12 4D 52 47 45 |5.G...;.]...MRGE|
00000B50: 52 52 20 2E C6 20 22 4D 45 52 47 C5 22 00 63 13 |RR .. "MERG.".c.|
00000B60: BC 12 3B 00 7D 13 BE 12 43 4C 53 9C 20 4C 44 41 |..;.}...CLS. LDA|
00000B70: 20 23 24 36 33 20 3B A0 20 46 49 4C 45 00 97 13 | #$63 ;. FILE...|
00000B80: C0 12 4A 53 52 20 A0 20 3B 43 4C 45 41 52 20 43 |..JSR . ;CLEAR C|
00000B90: 48 41 4E 4E 45 4C 53 00 A4 13 C2 12 4A 4D 50 20 |HANNELS.....JMP |
00000BA0: 9C 43 48 4E 00 AA 13 C4 12 3B 00 00 00 |.CHN.....;... |
....... ADD (SEPT 27/84):.....:.>.... 1
STATEMENT, 0 FUNCTIONS.D...:.`.... KEYWO
RD CHARACTERS: 3.F...:...... KEYWORD RO
UTINE LINE SER#...... ADD XADD
4474 055.....:.I.... E/IORTNS (39/056
).O...:...... ==========================
======.....:...'.SETLFS . $FFBA ;I.O ROU
TINE.=.(.SETNAM . $FFBD ;ADDRESSES IN.W.
).. . $E1C1 ;KERNAL ROM.I.*.CHKIN . $E11
E.W.+. . $E1CC...,..CHN . $FFCC...-..IN
. $E124.....;...R..F "ADD"...Z..W.D XAD
D.1.X.Z.XADD JSR $AD9E ;. FICAME...|.JSR
$B6A3...~.STA T3 ;. CGTH.....TXA.....PH
A.....TYA.....PHA.$...LDA T3.A...JSR $B4
7D ;RESERVE SPACE.I...TAX.U...BNE XA1.|.
..JMP $AF08 ;NULL STRING SYNTAX ERR.....
.XA1 CLC ;ADD ,P . FICAME.....ADC #2....
.STA T3.....JSR $B47D.E...TAY.M...PLA.Y.
..STA $23... .PLA.....STA $22.....DEY...
..LDA #"P".....STA ($62),Y.....DEY.'...L
DA #",".7...STA ($62),Y.C...XA2 DEY.O...
BMI XA3._...LDA ($22),Y.O...STA ($62),Y.
{...BNE XA2.....XA3 LDA T3 ;SET UP . SET
NAM.....LDX $62.....LDY $63.B...JSR SETN
AM.W.B.JSR $79 ;CHECK ....D.BEQ XA4 ;DEV
ICE NUMBER...F.JSR $AEFD...H.JSR $B79E..
.J..BYTE $2C.;.L.XA4 LDX #8 ;.AULT DEVIC
E 8.W.N.LDA #$63 ;FILE NUMBER ..Q.P.TAY
;SEC.DARY ADDR 99...R.JSR SETLFS...T.JSR
....V.LDX #$63...X.JSR CHKIN ;. CHANNEL
.M.Z.JSR DSK. ;SKIP . ADDRESS.Z...JSR DS
K......XA5 JSR DSK. ;LINE LINK LOW.....J
SR DSK. ;. . ZERO HIGH BYTE.'...BNE XA7.
A...JSR CLS. ;WRAY UP I.O.A...JSR $A659
;RESET CHR. PTR,..V...JMP $E386 ;'.Y.'..
...XA7 JSR DSK. ;. LINE NUMBER.....STA $
14.....JSR DSK......STA $15.F...LDY #0..
...XA8 JSR DSK. ;MOVE REST OF.....STA $2
00,Y ;LINE . ......BEQ XA9 ;BUFFER.....I
NY.&...BNE XA8.?...XA9 TYA ;. LINE SIZE.
G...CLC.R...ADC #5.^...STA $0B.|...JSR $
A613 ;SEARCH . LINE#.....BCC XA13 ;SKIP
. . FOUND.....LDY #1.....LDA ($5F),Y ;DE
.E LINE.K...STA $23.W...LDA $2D.....STA
$22.....LDA $60.....STA $25.....LDA $5F.
....DEY... .SBC ($5F),Y.'.".CLC.3.$.ADC
$2D.?.&.STA $2D.K.(.STA $24.W.*.LDA $2E.
D.,.ADC #$FF.P...STA $2E.|.0.SBC $60...2
.TAX...4.SEC...6.XA10 BCC XA5 ;LINK...8.
LDA $5F...:.SBC $2D.C.<.TAY.P.>.BCS XA11
.X.@.INX...B.DEC $25...D.XA11 CLC...F.AD
C $22...H.BCC XA12...J.DEC $23...L.CLC.3
.N.XA12 LDA ($22),Y.C.P.STA ($24),Y.K.R.
INY.X.T.BNE XA12.D.V.INC $23.P.X.INC $25
.X.Z.DEX...\.BNE XA12...^.XA13 JSR $A663
;....`.JSR $A533 ;RE.LINK...B.CLC.F.D.L
DA $2D.R.F.STA $5A...H.ADC $0B...J.STA $
58...L.LDY $2E...N.STY $5B...P.BCC XA14.
..R.INY.6.T.XA14 STY $59 ;MAKE SPACE ..L
.V.JSR $A3B8 ;. LINE.X.X.LDA $14.D.Z.LDY
$15.Q.|.STA $1FE.~.~.STY $1FF.....LDA $
31.....LDY $32.....STA $2D.....STY $2E..
...LDY $0B.B...DEY.....XA15 LDA $01FC,Y
;MOVE LINE.....STA ($5F),Y ;.O PROGRAM..
...DEY.....BPL XA15.$...JSR $A663 ;..;..
.JSR $A533 ;RE.LINK.C...CLC.Z...BCC XA10
;DO A.HER.`...;.Y...DSK. JSR .IN ;. BYT
E... .PHA.....LDA $90 ;CHECK STATUS.....
. #$BF.....BNE DKG1.C...PLA ;. . OK.K...
RTS.....DKG1 JSR CLS. ;WRAP UP I.O.....L
DX #$1D ;'MERGE ERR.'.....LDA #.MRGERR."
...STA $22.3...LDA #.MRGERR.A...JMP $A44
5.G...;.]...MRGERR .F "MERGE".C...;.}...
CLS. LDA #$63 ; FILE.....JSR ;CLEAR C
HANNELS...B.JMP .CHN...D.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL