ADD

FILE INFORMATION

FILENAME(S): ADD

FILE TYPE(S): PRG

FILE SIZE: 2.4K

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

APPEARS ON: 1 disk(s)

FILE HASH

d2fd6d93dc3b3f192d21f9f455376c5555f186022d15a7d0e6c7ac662d431f3e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR 4	ADD	PRG	DuncanTwain	13	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 29 08 00 00 8F 20  41 44 44 20 28 53 45 50  |..).... ADD (SEP|
00000010: 54 20 32 37 2F 38 34 29  20 20 20 20 20 20 20 20  |T 27/84)        |
00000020: 20 20 20 20 20 20 20 20  3A 00 2F 08 01 00 3A 00  |        :./...:.|
00000030: 4F 08 02 00 8F 20 20 31  20 53 54 41 54 45 4D 45  |O....  1 STATEME|
00000040: 4E 54 2C 20 30 20 46 55  4E 43 54 49 4F 4E 53 00  |NT, 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 33 00 78 08 05 00 3A  00 A0 08 06 00 8F 20 4B  | 3.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 41  44 44 20 20 20 20 20 20  |...... ADD      |
000000B0: 20 20 20 58 41 44 44 20  20 20 20 20 34 34 37 34  |   XADD     4474|
000000C0: 20 20 20 20 30 35 35 00  CD 08 08 00 3A 00 E5 08  |    055.....:...|
000000D0: 09 00 8F 20 45 2F 49 4F  52 54 4E 53 20 28 33 39  |... E/IORTNS (39|
000000E0: 2F 30 35 36 29 00 EB 08  0A 00 3A 00 12 09 0B 00  |/056).....:.....|
000000F0: 8F 20 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |. ==============|
00000100: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000110: 3D 3D 00 18 09 0C 00 3A  00 2D 09 27 00 53 45 54  |==.....:.-.'.SET|
00000120: 4C 46 53 20 20 20 B2 20  24 46 46 42 41 00 42 09  |LFS   . $FFBA.B.|
00000130: 28 00 53 45 54 4E 41 4D  20 20 20 B2 20 24 46 46  |(.SETNAM   . $FF|
00000140: 42 44 00 54 09 29 00 9F  20 20 20 20 20 B2 20 24  |BD.T.)..     . $|
00000150: 45 31 43 31 00 69 09 2A  00 43 48 4B 49 4E 20 20  |E1C1.i.*.CHKIN  |
00000160: 20 20 B2 20 24 45 31 31  45 00 7A 09 2B 00 A0 20  |  . $E11E.z.+.. |
00000170: 20 20 20 B2 20 24 45 31  43 43 00 8D 09 2C 00 9C  |   . $E1CC...,..|
00000180: 43 48 4E 20 20 20 B2 20  24 46 46 43 43 00 A0 09  |CHN   . $FFCC...|
00000190: 2D 00 A1 49 4E 20 20 20  20 B2 20 24 45 31 32 34  |-..IN    . $E124|
000001A0: 00 A6 09 2E 00 3B 00 B3  09 72 00 2E C6 20 22 41  |.....;...r... "A|
000001B0: 44 C4 22 00 C3 09 5A 04  2E 57 B0 44 20 58 41 44  |D."...Z..W.D XAD|
000001C0: 44 AB 31 00 D6 09 7A 11  58 41 44 44 20 4A 53 52  |D.1...z.XADD JSR|
000001D0: 20 24 41 44 39 45 00 E4  09 7C 11 4A 53 52 20 24  | $AD9E...|.JSR $|
000001E0: 42 36 41 33 00 EF 09 7E  11 53 54 41 20 54 33 00  |B6A3...~.STA T3.|
000001F0: F7 09 80 11 54 58 41 00  FF 09 82 11 50 48 41 00  |....TXA.....PHA.|
00000200: 07 0A 84 11 54 59 41 00  0F 0A 86 11 50 48 41 00  |....TYA.....PHA.|
00000210: 1A 0A 88 11 4C 44 41 20  54 33 00 28 0A 8A 11 4A  |....LDA T3.(...J|
00000220: 53 52 20 24 42 34 37 44  00 30 0A 8C 11 54 41 58  |SR $B47D.0...TAX|
00000230: 00 3C 0A 8E 11 42 4E 45  20 58 41 31 00 4A 0A 90  |.<...BNE XA1.J..|
00000240: 11 4A 4D 50 20 24 41 46  30 38 00 56 0A 92 11 58  |.JMP $AF08.V...X|
00000250: 41 31 20 43 4C 43 00 61  0A 94 11 41 44 43 20 23  |A1 CLC.a...ADC #|
00000260: 32 00 6C 0A 96 11 53 54  41 20 54 33 00 7A 0A 98  |2.l...STA T3.z..|
00000270: 11 4A 53 52 20 24 42 34  37 44 00 82 0A 9A 11 54  |.JSR $B47D.....T|
00000280: 41 59 00 8A 0A 9C 11 50  4C 41 00 96 0A 9E 11 53  |AY.....PLA.....S|
00000290: 54 41 20 24 32 33 00 9E  0A A0 11 50 4C 41 00 AA  |TA $23.....PLA..|
000002A0: 0A A2 11 53 54 41 20 24  32 32 00 B2 0A A4 11 44  |...STA $22.....D|
000002B0: 45 59 00 BF 0A A6 11 4C  44 41 20 23 22 50 22 00  |EY.....LDA #"P".|
000002C0: CF 0A A8 11 53 54 41 20  28 24 36 32 29 2C 59 00  |....STA ($62),Y.|
000002D0: D7 0A AA 11 44 45 59 00  E4 0A AC 11 4C 44 41 20  |....DEY.....LDA |
000002E0: 23 22 2C 22 00 F4 0A AE  11 53 54 41 20 28 24 36  |#",".....STA ($6|
000002F0: 32 29 2C 59 00 00 0B B0  11 58 41 32 20 44 45 59  |2),Y.....XA2 DEY|
00000300: 00 0C 0B B2 11 42 4D 49  20 58 41 33 00 1C 0B B4  |.....BMI XA3....|
00000310: 11 4C 44 41 20 28 24 32  32 29 2C 59 00 2C 0B B6  |.LDA ($22),Y.,..|
00000320: 11 53 54 41 20 28 24 36  32 29 2C 59 00 38 0B B8  |.STA ($62),Y.8..|
00000330: 11 42 4E 45 20 58 41 32  00 47 0B BA 11 58 41 33  |.BNE XA2.G...XA3|
00000340: 20 4C 44 41 20 54 33 00  53 0B BC 11 4C 44 58 20  | LDA T3.S...LDX |
00000350: 24 36 32 00 5F 0B BE 11  4C 44 59 20 24 36 33 00  |$62._...LDY $63.|
00000360: 6E 0B C0 11 4A 53 52 20  53 45 54 4E 41 4D 00 7A  |n...JSR SETNAM.z|
00000370: 0B C2 11 4A 53 52 20 24  37 39 00 86 0B C4 11 42  |...JSR $79.....B|
00000380: 45 51 20 58 41 34 00 94  0B C6 11 4A 53 52 20 24  |EQ XA4.....JSR $|
00000390: 41 45 46 44 00 A2 0B C8  11 4A 53 52 20 24 42 37  |AEFD.....JSR $B7|
000003A0: 39 45 00 B0 0B CA 11 2E  42 59 54 45 20 24 32 43  |9E......BYTE $2C|
000003B0: 00 BF 0B CC 11 58 41 34  20 4C 44 58 20 23 38 00  |.....XA4 LDX #8.|
000003C0: CC 0B CE 11 4C 44 41 20  23 24 36 33 00 D4 0B D0  |....LDA #$63....|
000003D0: 11 54 41 59 00 E3 0B D2  11 4A 53 52 20 53 45 54  |.TAY.....JSR SET|
000003E0: 4C 46 53 00 ED 0B D4 11  4A 53 52 20 9F 00 FA 0B  |LFS.....JSR ....|
000003F0: D6 11 4C 44 58 20 23 24  36 33 00 08 0C D8 11 4A  |..LDX #$63.....J|
00000400: 53 52 20 43 48 4B 49 4E  00 15 0C DA 11 4A 53 52  |SR CHKIN.....JSR|
00000410: 20 44 53 4B A1 00 22 0C  DC 11 4A 53 52 20 44 53  | DSK.."...JSR DS|
00000420: 4B A1 00 33 0C DE 11 58  41 35 20 4A 53 52 20 44  |K..3...XA5 JSR D|
00000430: 53 4B A1 00 40 0C E2 11  4A 53 52 20 44 53 4B A1  |SK..@...JSR DSK.|
00000440: 00 4C 0C E4 11 42 4E 45  20 58 41 37 00 59 0C E6  |.L...BNE XA7.Y..|
00000450: 11 4A 53 52 20 43 4C 53  9C 00 67 0C E8 11 4A 53  |.JSR CLS..g...JS|
00000460: 52 20 24 41 36 35 39 00  75 0C EA 11 4A 4D 50 20  |R $A659.u...JMP |
00000470: 24 45 33 38 36 00 86 0C  EE 11 58 41 37 20 4A 53  |$E386.....XA7 JS|
00000480: 52 20 44 53 4B A1 00 92  0C F0 11 53 54 41 20 24  |R DSK......STA $|
00000490: 31 34 00 9F 0C F2 11 4A  53 52 20 44 53 4B A1 00  |14.....JSR DSK..|
000004A0: AB 0C F4 11 53 54 41 20  24 31 35 00 B6 0C F6 11  |....STA $15.....|
000004B0: 4C 44 59 20 23 30 00 C7  0C F8 11 58 41 38 20 4A  |LDY #0.....XA8 J|
000004C0: 53 52 20 44 53 4B A1 00  D6 0C FA 11 53 54 41 20  |SR DSK......STA |
000004D0: 24 32 30 30 2C 59 00 E2  0C FC 11 42 45 51 20 58  |$200,Y.....BEQ X|
000004E0: 41 39 00 EA 0C FE 11 49  4E 59 00 F6 0C 00 12 42  |A9.....INY.....B|
000004F0: 4E 45 20 58 41 38 00 02  0D 02 12 58 41 39 20 54  |NE XA8.....XA9 T|
00000500: 59 41 00 0A 0D 04 12 43  4C 43 00 15 0D 06 12 41  |YA.....CLC.....A|
00000510: 44 43 20 23 35 00 21 0D  08 12 53 54 41 20 24 30  |DC #5.!...STA $0|
00000520: 42 00 2F 0D 0A 12 4A 53  52 20 24 41 36 31 33 00  |B./...JSR $A613.|
00000530: 3C 0D 0C 12 42 43 43 20  58 41 31 33 00 47 0D 0E  |<...BCC XA13.G..|
00000540: 12 4C 44 59 20 23 31 00  57 0D 10 12 4C 44 41 20  |.LDY #1.W...LDA |
00000550: 28 24 35 46 29 2C 59 00  63 0D 12 12 53 54 41 20  |($5F),Y.c...STA |
00000560: 24 32 33 00 6F 0D 14 12  4C 44 41 20 24 32 44 00  |$23.o...LDA $2D.|
00000570: 7B 0D 16 12 53 54 41 20  24 32 32 00 87 0D 18 12  |{...STA $22.....|
00000580: 4C 44 41 20 24 36 30 00  93 0D 1A 12 53 54 41 20  |LDA $60.....STA |
00000590: 24 32 35 00 9F 0D 1C 12  4C 44 41 20 24 35 46 00  |$25.....LDA $5F.|
000005A0: A7 0D 1E 12 44 45 59 00  B7 0D 20 12 53 42 43 20  |....DEY... .SBC |
000005B0: 28 24 35 46 29 2C 59 00  BF 0D 22 12 43 4C 43 00  |($5F),Y...".CLC.|
000005C0: CB 0D 24 12 41 44 43 20  24 32 44 00 D7 0D 26 12  |..$.ADC $2D...&.|
000005D0: 53 54 41 20 24 32 44 00  E3 0D 28 12 53 54 41 20  |STA $2D...(.STA |
000005E0: 24 32 34 00 EF 0D 2A 12  4C 44 41 20 24 32 45 00  |$24...*.LDA $2E.|
000005F0: FC 0D 2C 12 41 44 43 20  23 24 46 46 00 08 0E 2E  |..,.ADC #$FF....|
00000600: 12 53 54 41 20 24 32 45  00 14 0E 30 12 53 42 43  |.STA $2E...0.SBC|
00000610: 20 24 36 30 00 1C 0E 32  12 54 41 58 00 24 0E 34  | $60...2.TAX.$.4|
00000620: 12 53 45 43 00 35 0E 36  12 58 41 31 30 20 42 43  |.SEC.5.6.XA10 BC|
00000630: 43 20 58 41 35 00 41 0E  38 12 4C 44 41 20 24 35  |C XA5.A.8.LDA $5|
00000640: 46 00 4D 0E 3A 12 53 42  43 20 24 32 44 00 55 0E  |F.M.:.SBC $2D.U.|
00000650: 3C 12 54 41 59 00 62 0E  3E 12 42 43 53 20 58 41  |<.TAY.b.>.BCS XA|
00000660: 31 31 00 6A 0E 40 12 49  4E 58 00 76 0E 42 12 44  |11.j.@.INX.v.B.D|
00000670: 45 43 20 24 32 35 00 83  0E 44 12 58 41 31 31 20  |EC $25...D.XA11 |
00000680: 43 4C 43 00 8F 0E 46 12  41 44 43 20 24 32 32 00  |CLC...F.ADC $22.|
00000690: 9C 0E 48 12 42 43 43 20  58 41 31 32 00 A8 0E 4A  |..H.BCC XA12...J|
000006A0: 12 44 45 43 20 24 32 33  00 B0 0E 4C 12 43 4C 43  |.DEC $23...L.CLC|
000006B0: 00 C5 0E 4E 12 58 41 31  32 20 4C 44 41 20 28 24  |...N.XA12 LDA ($|
000006C0: 32 32 29 2C 59 00 D5 0E  50 12 53 54 41 20 28 24  |22),Y...P.STA ($|
000006D0: 32 34 29 2C 59 00 DD 0E  52 12 49 4E 59 00 EA 0E  |24),Y...R.INY...|
000006E0: 54 12 42 4E 45 20 58 41  31 32 00 F6 0E 56 12 49  |T.BNE XA12...V.I|
000006F0: 4E 43 20 24 32 33 00 02  0F 58 12 49 4E 43 20 24  |NC $23...X.INC $|
00000700: 32 35 00 0A 0F 5A 12 44  45 58 00 17 0F 5C 12 42  |25...Z.DEX...\.B|
00000710: 4E 45 20 58 41 31 32 00  2A 0F 5E 12 58 41 31 33  |NE XA12.*.^.XA13|
00000720: 20 4A 53 52 20 24 41 36  36 33 00 38 0F 60 12 4A  | JSR $A663.8.`.J|
00000730: 53 52 20 24 41 35 33 33  00 40 0F 62 12 43 4C 43  |SR $A533.@.b.CLC|
00000740: 00 4C 0F 64 12 4C 44 41  20 24 32 44 00 58 0F 66  |.L.d.LDA $2D.X.f|
00000750: 12 53 54 41 20 24 35 41  00 64 0F 68 12 41 44 43  |.STA $5A.d.h.ADC|
00000760: 20 24 30 42 00 70 0F 6A  12 53 54 41 20 24 35 38  | $0B.p.j.STA $58|
00000770: 00 7C 0F 6C 12 4C 44 59  20 24 32 45 00 88 0F 6E  |.|.l.LDY $2E...n|
00000780: 12 53 54 59 20 24 35 42  00 95 0F 70 12 42 43 43  |.STY $5B...p.BCC|
00000790: 20 58 41 31 34 00 9D 0F  72 12 49 4E 59 00 AE 0F  | XA14...r.INY...|
000007A0: 74 12 58 41 31 34 20 53  54 59 20 24 35 39 00 BC  |t.XA14 STY $59..|
000007B0: 0F 76 12 4A 53 52 20 24  41 33 42 38 00 C8 0F 78  |.v.JSR $A3B8...x|
000007C0: 12 4C 44 41 20 24 31 34  00 D4 0F 7A 12 4C 44 59  |.LDA $14...z.LDY|
000007D0: 20 24 31 35 00 E1 0F 7C  12 53 54 41 20 24 31 46  | $15...|.STA $1F|
000007E0: 45 00 EE 0F 7E 12 53 54  59 20 24 31 46 46 00 FA  |E...~.STY $1FF..|
000007F0: 0F 80 12 4C 44 41 20 24  33 31 00 06 10 82 12 4C  |...LDA $31.....L|
00000800: 44 59 20 24 33 32 00 12  10 84 12 53 54 41 20 24  |DY $32.....STA $|
00000810: 32 44 00 1E 10 86 12 53  54 59 20 24 32 45 00 2A  |2D.....STY $2E.*|
00000820: 10 88 12 4C 44 59 20 24  30 42 00 32 10 8A 12 44  |...LDY $0B.2...D|
00000830: 45 59 00 47 10 8C 12 58  41 31 35 20 4C 44 41 20  |EY.G...XA15 LDA |
00000840: 24 30 31 46 43 2C 59 00  57 10 8E 12 53 54 41 20  |$01FC,Y.W...STA |
00000850: 28 24 35 46 29 2C 59 00  5F 10 90 12 44 45 59 00  |($5F),Y._...DEY.|
00000860: 6C 10 92 12 42 50 4C 20  58 41 31 35 00 7A 10 94  |l...BPL XA15.z..|
00000870: 12 4A 53 52 20 24 41 36  36 33 00 88 10 96 12 4A  |.JSR $A663.....J|
00000880: 53 52 20 24 41 35 33 33  00 90 10 98 12 43 4C 43  |SR $A533.....CLC|
00000890: 00 9D 10 9A 12 42 43 43  20 58 41 31 30 00 A3 10  |.....BCC XA10...|
000008A0: 9C 12 3B 00 B4 10 9E 12  44 53 4B A1 20 4A 53 52  |..;.....DSK. JSR|
000008B0: 20 A1 49 4E 00 BC 10 A0  12 50 48 41 00 C8 10 A2  | .IN.....PHA....|
000008C0: 12 4C 44 41 20 24 39 30  00 D3 10 A4 12 AF 20 23  |.LDA $90...... #|
000008D0: 24 42 46 00 E0 10 A6 12  42 4E 45 20 44 4B 47 31  |$BF.....BNE DKG1|
000008E0: 00 E8 10 A8 12 50 4C 41  00 F0 10 AA 12 52 54 53  |.....PLA.....RTS|
000008F0: 00 02 11 AC 12 44 4B 47  31 20 4A 53 52 20 43 4C  |.....DKG1 JSR CL|
00000900: 53 9C 00 0F 11 AE 12 4C  44 58 20 23 24 31 44 00  |S......LDX #$1D.|
00000910: 20 11 B0 12 4C 44 41 20  23 B3 4D 52 47 45 52 52  | ...LDA #.MRGERR|
00000920: 00 2C 11 B2 12 53 54 41  20 24 32 32 00 3D 11 B4  |.,...STA $22.=..|
00000930: 12 4C 44 41 20 23 B1 4D  52 47 45 52 52 00 4B 11  |.LDA #.MRGERR.K.|
00000940: B6 12 4A 4D 50 20 24 41  34 34 35 00 51 11 B8 12  |..JMP $A445.Q...|
00000950: 3B 00 67 11 BA 12 4D 52  47 45 52 52 20 2E C6 20  |;.g...MRGERR .. |
00000960: 22 4D 45 52 47 C5 22 00  6D 11 BC 12 3B 00 7F 11  |"MERG.".m...;...|
00000970: BE 12 43 4C 53 9C 20 4C  44 41 20 23 24 36 33 00  |..CLS. LDA #$63.|
00000980: 89 11 C0 12 4A 53 52 20  A0 00 96 11 C2 12 4A 4D  |....JSR ......JM|
00000990: 50 20 9C 43 48 4E 00 9C  11 C4 12 3B 00 00 00     |P .CHN.....;... |

..).... ADD (SEPT 27/84)                
:./...:.O....  1 STATEMENT, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS:  3.X...:
. .... KEYWORD     ROUTINE  LINE   SER #
.G.... ADD         XADD     4474    055.
M...:...... E/IORTNS (39/056).....:.....
. ================================.....:
.-.'.SETLFS   . $FFBA.B.(.SETNAM   . $FF
BD.T.)..     . $E1C1.I.*.CHKIN    . $E11
E.Z.+.     . $E1CC...,..CHN   . $FFCC. .
-..IN    . $E124.....;...R..F "ADD".C.Z.
.W.D XADD.1.V.Z.XADD JSR $AD9E...|.JSR $
B6A3...~.STA T3.....TXA.....PHA.....TYA.
....PHA.....LDA T3.(...JSR $B47D.0...TAX
.<...BNE XA1.J...JMP $AF08.V...XA1 CLC.A
...ADC #2.L...STA T3.Z...JSR $B47D.....T
AY.....PLA.....STA $23... .PLA.....STA $
22.....DEY.....LDA #"P".O...STA ($62),Y.
W...DEY.....LDA #",".....STA ($62),Y....
.XA2 DEY.....BMI XA3.....LDA ($22),Y.,..
.STA ($62),Y.8...BNE XA2.G...XA3 LDA T3.
S...LDX $62._...LDY $63.N...JSR SETNAM.Z
.B.JSR $79...D.BEQ XA4...F.JSR $AEFD...H
.JSR $B79E...J..BYTE $2C...L.XA4 LDX #8.
L.N.LDA #$63.T.P.TAY...R.JSR SETLFS...T.
JSR ....V.LDX #$63...X.JSR CHKIN...Z.JSR
 DSK.."...JSR DSK..3...XA5 JSR DSK..@...
JSR DSK..L...BNE XA7.Y...JSR CLS..G...JS
R $A659.U...JMP $E386.....XA7 JSR DSK...
...STA $14.....JSR DSK......STA $15.....
LDY #0.G...XA8 JSR DSK..V...STA $200,Y..
...BEQ XA9.....INY.....BNE XA8.....XA9 T
YA.....CLC.....ADC #5.!...STA $0B./...JS
R $A613.<...BCC XA13.G...LDY #1.W...LDA 
($5F),Y.C...STA $23.O...LDA $2D.{...STA 
$22.....LDA $60.....STA $25.....LDA $5F.
....DEY... .SBC ($5F),Y...".CLC.K.$.ADC 
$2D.W.&.STA $2D...(.STA $24...*.LDA $2E.
..,.ADC #$FF.....STA $2E...0.SBC $60...2
.TAX.$.4.SEC.5.6.XA10 BCC XA5.A.8.LDA $5
F.M.:.SBC $2D.U.<.TAY.B.>.BCS XA11.J.@.I
NX.V.B.DEC $25...D.XA11 CLC...F.ADC $22.
..H.BCC XA12...J.DEC $23...L.CLC.E.N.XA1
2 LDA ($22),Y.U.P.STA ($24),Y...R.INY...
T.BNE XA12...V.INC $23...X.INC $25...Z.D
EX...\.BNE XA12.*.^.XA13 JSR $A663.8.`.J
SR $A533.@.B.CLC.L.D.LDA $2D.X.F.STA $5A
.D.H.ADC $0B.P.J.STA $58.|.L.LDY $2E...N
.STY $5B...P.BCC XA14...R.INY...T.XA14 S
TY $59...V.JSR $A3B8.H.X.LDA $14.T.Z.LDY
 $15...|.STA $1FE...~.STY $1FF.....LDA $
31.....LDY $32.....STA $2D.....STY $2E.*
...LDY $0B.2...DEY.G...XA15 LDA $01FC,Y.
W...STA ($5F),Y._...DEY.L...BPL XA15.Z..
.JSR $A663.....JSR $A533.....CLC.....BCC
 XA10.....;.....DSK. JSR .IN... .PHA.H..
.LDA $90.S.... #$BF.....BNE DKG1.....PLA
.....RTS.....DKG1 JSR CLS......LDX #$1D.
 ...LDA #.MRGERR.,...STA $22.=...LDA #.M
RGERR.K...JMP $A445.Q...;.G...MRGERR .F 
"MERGE".M...;....CLS. LDA #$63.....JSR 
 ...B.JMP .CHN...D.;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL