USE
FILE INFORMATION
FILENAME(S): USE
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
f545c113b8b29f17961e113940cab029b20630b8d0ffe75a02c2c267fba7ede5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | USE | PRG | DuncanTwain | 13 | 1 | DOWNLOAD FILE |
| RANS ISK2 | USE | PRG | DuncanTwain | 13 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 00 00 8F 20 55 53 45 20 28 4A 55 4E |..(.... USE (JUN|
00000010: 45 20 31 38 2F 38 35 29 20 20 20 20 20 20 20 20 |E 18/85) |
00000020: 20 20 20 20 20 20 20 3A 00 2E 08 01 00 3A 00 4E | :.....:.N|
00000030: 08 02 00 8F 20 20 31 20 53 54 41 54 45 4D 45 4E |.... 1 STATEMEN|
00000040: 54 2C 20 30 20 46 55 4E 43 54 49 4F 4E 53 00 54 |T, 0 FUNCTIONS.T|
00000050: 08 03 00 3A 00 70 08 04 00 8F 20 4B 45 59 57 4F |...:.p.... KEYWO|
00000060: 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 33 |RD CHARACTERS: 3|
00000070: 00 76 08 05 00 3A 00 9E 08 06 00 8F 20 4B 45 59 |.v...:...... KEY|
00000080: 57 4F 52 44 20 20 20 20 20 52 4F 55 54 49 4E 45 |WORD ROUTINE|
00000090: 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 00 C5 | LINE SER #..|
000000A0: 08 07 00 8F 20 55 53 45 20 20 20 20 20 20 20 20 |.... USE |
000000B0: 20 55 5A 45 20 20 20 20 20 20 37 31 39 32 20 20 | UZE 7192 |
000000C0: 20 20 31 31 37 00 CB 08 08 00 3A 00 E4 08 09 00 | 117.....:.....|
000000D0: 8F 20 55 2F 4D 56 4D 45 4D 20 28 38 32 35 30 2F |. U/MVMEM (8250/|
000000E0: 31 32 30 29 00 FE 08 0A 00 8F 20 55 2F 44 45 4C |120)...... U/DEL|
000000F0: 49 4E 53 20 28 38 30 35 34 2F 31 32 32 29 00 18 |INS (8054/122)..|
00000100: 09 0B 00 8F 20 55 2F 45 52 52 50 47 4D 20 28 39 |.... U/ERRPGM (9|
00000110: 31 35 30 2F 31 33 35 29 00 1E 09 0C 00 3A 00 45 |150/135).....:.E|
00000120: 09 0D 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ===========|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000140: 3D 3D 3D 3D 3D 00 4B 09 0E 00 3A 00 51 09 26 00 |=====.K...:.Q.&.|
00000150: 3B 00 66 09 27 00 53 45 54 4C 46 53 20 20 20 B2 |;.f.'.SETLFS .|
00000160: 20 24 46 46 42 41 00 7B 09 28 00 53 45 54 4E 41 | $FFBA.{.(.SETNA|
00000170: 4D 20 20 20 B2 20 24 46 46 42 44 00 8D 09 29 00 |M . $FFBD...).|
00000180: 9F 20 20 20 20 20 B2 20 24 45 31 43 31 00 A2 09 |. . $E1C1...|
00000190: 2A 00 43 48 4B 49 4E 20 20 20 20 B2 20 24 45 31 |*.CHKIN . $E1|
000001A0: 31 45 00 B3 09 2B 00 A0 20 20 20 20 B2 20 24 45 |1E...+.. . $E|
000001B0: 31 43 43 00 C6 09 2C 00 9C 43 48 4E 20 20 20 B2 |1CC...,..CHN .|
000001C0: 20 24 46 46 43 43 00 D9 09 2D 00 A1 49 4E 20 20 | $FFCC...-..IN |
000001D0: 20 20 B2 20 24 45 31 32 34 00 DF 09 2E 00 3B 00 | . $E124.....;.|
000001E0: EC 09 84 00 2E C6 20 22 55 53 C5 22 00 FB 09 6C |...... "US."...l|
000001F0: 04 2E 57 B0 44 20 55 5A 45 AB 31 00 0E 0A 18 1C |..W.D UZE.1.....|
00000200: 55 5A 45 20 4A 53 52 20 45 52 52 50 47 4D 00 19 |UZE JSR ERRPGM..|
00000210: 0A 1A 1C 4C 44 41 20 23 32 00 27 0A 1C 1C 4A 53 |...LDA #2.'...JS|
00000220: 52 20 24 42 34 46 34 00 35 0A 1E 1C 4A 53 52 20 |R $B4F4.5...JSR |
00000230: 24 41 44 39 45 00 43 0A 20 1C 4A 53 52 20 24 42 |$AD9E.C. .JSR $B|
00000240: 36 41 33 00 51 0A 22 1C 4A 53 52 20 24 42 34 46 |6A3.Q.".JSR $B4F|
00000250: 34 00 59 0A 24 1C 54 41 59 00 65 0A 26 1C 42 4E |4.Y.$.TAY.e.&.BN|
00000260: 45 20 55 5A 31 00 73 0A 28 1C 4A 4D 50 20 24 41 |E UZ1.s.(.JMP $A|
00000270: 46 30 38 00 84 0A 2A 1C 55 5A 31 20 4C 44 41 20 |F08...*.UZ1 LDA |
00000280: 23 22 2C 22 00 94 0A 2C 1C 53 54 41 20 28 24 33 |#","...,.STA ($3|
00000290: 33 29 2C 59 00 9C 0A 2E 1C 49 4E 59 00 A9 0A 30 |3),Y.....INY...0|
000002A0: 1C 4C 44 41 20 23 22 50 22 00 B9 0A 32 1C 53 54 |.LDA #"P"...2.ST|
000002B0: 41 20 28 24 33 33 29 2C 59 00 C1 0A 34 1C 49 4E |A ($33),Y...4.IN|
000002C0: 59 00 C9 0A 36 1C 54 59 41 00 D1 0A 38 1C 50 48 |Y...6.TYA...8.PH|
000002D0: 41 00 DD 0A 3A 1C 4C 44 41 20 24 33 33 00 E5 0A |A...:.LDA $33...|
000002E0: 3C 1C 50 48 41 00 F1 0A 3E 1C 4C 44 41 20 24 33 |<.PHA...>.LDA $3|
000002F0: 34 00 F9 0A 40 1C 50 48 41 00 05 0B 42 1C 4A 53 |4...@.PHA...B.JS|
00000300: 52 20 24 37 39 00 11 0B 44 1C 42 45 51 20 55 5A |R $79...D.BEQ UZ|
00000310: 34 00 1F 0B 46 1C 4A 53 52 20 24 41 45 46 44 00 |4...F.JSR $AEFD.|
00000320: 2D 0B 48 1C 4A 53 52 20 24 42 37 39 45 00 3A 0B |-.H.JSR $B79E.:.|
00000330: 4A 1C 4A 4D 50 20 55 5A 34 41 00 4D 0B 4C 1C 55 |J.JMP UZ4A.M.L.U|
00000340: 5A 34 20 4C 44 58 20 44 45 56 49 43 45 00 61 0B |Z4 LDX DEVICE.a.|
00000350: 4D 1C 55 5A 34 41 20 53 54 58 20 44 45 56 49 43 |M.UZ4A STX DEVIC|
00000360: 45 00 6C 0B 4E 1C 53 54 58 20 54 32 00 79 0B 50 |E.l.N.STX T2.y.P|
00000370: 1C 4C 44 41 20 23 24 36 32 00 83 0B 52 1C 4A 53 |.LDA #$62...R.JS|
00000380: 52 20 A0 00 8E 0B 54 1C 4C 44 41 20 23 30 00 9D |R ....T.LDA #0..|
00000390: 0B 56 1C 4A 53 52 20 53 45 54 4E 41 4D 00 AA 0B |.V.JSR SETNAM...|
000003A0: 58 1C 4C 44 41 20 23 24 36 32 00 B5 0B 5A 1C 4C |X.LDA #$62...Z.L|
000003B0: 44 58 20 54 32 00 C2 0B 5C 1C 4C 44 59 20 23 24 |DX T2...\.LDY #$|
000003C0: 30 46 00 D1 0B 5E 1C 4A 53 52 20 53 45 54 4C 46 |0F...^.JSR SETLF|
000003D0: 53 00 DB 0B 60 1C 4A 53 52 20 9F 00 E6 0B 62 1C |S...`.JSR ....b.|
000003E0: 4C 44 41 20 54 32 00 F4 0B 64 1C 4A 53 52 20 24 |LDA T2...d.JSR $|
000003F0: 46 46 42 31 00 02 0C 66 1C 4A 53 52 20 24 46 46 |FFB1...f.JSR $FF|
00000400: 41 45 00 0E 0C 68 1C 4C 44 41 20 24 39 30 00 1A |AE...h.LDA $90..|
00000410: 0C 6A 1C 42 45 51 20 55 5A 35 00 25 0C 6C 1C 4C |.j.BEQ UZ5.%.l.L|
00000420: 44 58 20 23 35 00 34 0C 6E 1C 4A 4D 50 20 28 24 |DX #5.4.n.JMP ($|
00000430: 33 30 30 29 00 47 0C 70 1C 55 5A 35 20 4A 53 52 |300).G.p.UZ5 JSR|
00000440: 20 44 53 4B 43 48 4B 00 54 0C 72 1C 4C 44 41 20 | DSKCHK.T.r.LDA |
00000450: 23 24 36 33 00 5E 0C 74 1C 4A 53 52 20 A0 00 66 |#$63.^.t.JSR ..f|
00000460: 0C 76 1C 50 4C 41 00 6E 0C 78 1C 54 41 59 00 76 |.v.PLA.n.x.TAY.v|
00000470: 0C 7A 1C 50 4C 41 00 7E 0C 7C 1C 54 41 58 00 86 |.z.PLA.~.|.TAX..|
00000480: 0C 7E 1C 50 4C 41 00 95 0C 80 1C 4A 53 52 20 53 |.~.PLA.....JSR S|
00000490: 45 54 4E 41 4D 00 A2 0C 82 1C 4C 44 41 20 23 24 |ETNAM.....LDA #$|
000004A0: 36 33 00 AD 0C 84 1C 4C 44 58 20 54 32 00 B5 0C |63.....LDX T2...|
000004B0: 86 1C 54 41 59 00 C4 0C 88 1C 4A 53 52 20 53 45 |..TAY.....JSR SE|
000004C0: 54 4C 46 53 00 CE 0C 8A 1C 4A 53 52 20 9F 00 DD |TLFS.....JSR ...|
000004D0: 0C 8C 1C 4A 53 52 20 44 53 4B 43 48 4B 00 EA 0C |...JSR DSKCHK...|
000004E0: 8E 1C 4A 53 52 20 9C 43 48 4E 00 F7 0C 90 1C 4C |..JSR .CHN.....L|
000004F0: 44 58 20 23 24 36 33 00 05 0D 92 1C 4A 53 52 20 |DX #$63.....JSR |
00000500: 43 48 4B 49 4E 00 12 0D 94 1C 4A 53 52 20 50 52 |CHKIN.....JSR PR|
00000510: 47 A1 00 1F 0D 96 1C 4A 53 52 20 50 52 47 A1 00 |G......JSR PRG..|
00000520: 2B 0D 98 1C 4C 44 41 20 24 32 42 00 37 0D 9A 1C |+...LDA $2B.7...|
00000530: 4C 44 59 20 24 32 43 00 42 0D 9C 1C 53 54 41 20 |LDY $2C.B...STA |
00000540: 54 33 00 4D 0D 9E 1C 53 54 59 20 54 34 00 58 0D |T3.M...STY T4.X.|
00000550: A0 1C 4C 44 41 20 23 30 00 65 0D A2 1C 53 54 41 |..LDA #0.e...STA|
00000560: 20 55 5A 46 31 00 72 0D A4 1C 53 54 41 20 55 5A | UZF1.r...STA UZ|
00000570: 46 32 00 7F 0D A6 1C 53 54 41 20 55 5A 46 33 00 |F2.....STA UZF3.|
00000580: 8E 0D A8 1C 53 54 41 20 53 54 4D 43 54 52 00 9D |....STA STMCTR..|
00000590: 0D AA 1C 53 54 41 20 46 55 4E 43 54 52 00 B0 0D |...STA FUNCTR...|
000005A0: AC 1C 55 5A 36 20 4A 53 52 20 4D 41 4B 42 55 46 |..UZ6 JSR MAKBUF|
000005B0: 00 BC 0D AE 1C 55 5A 37 20 53 45 43 00 C8 0D B0 |.....UZ7 SEC....|
000005C0: 1C 4C 44 41 20 24 33 37 00 D3 0D B2 1C 53 42 43 |.LDA $37.....SBC|
000005D0: 20 54 35 00 DF 0D B4 1C 4C 44 41 20 24 33 38 00 | T5.....LDA $38.|
000005E0: EA 0D B6 1C 53 42 43 20 54 36 00 F5 0D B8 1C 53 |....SBC T6.....S|
000005F0: 42 43 20 23 32 00 02 0E BA 1C 42 43 53 20 55 5A |BC #2.....BCS UZ|
00000600: 31 32 00 11 0E BC 1C 4C 44 41 20 4C 49 4E 46 4C |12.....LDA LINFL|
00000610: 47 00 1D 0E BE 1C 42 45 51 20 55 5A 38 00 29 0E |G.....BEQ UZ8.).|
00000620: C0 1C 4A 53 52 20 44 4C 5A 00 35 0E C2 1C 4A 4D |..JSR DLZ.5...JM|
00000630: 50 20 55 5A 36 00 46 0E C4 1C 55 5A 38 20 4A 53 |P UZ6.F...UZ8 JS|
00000640: 52 20 55 5A 31 31 00 54 0E C6 1C 4A 4D 50 20 24 |R UZ11.T...JMP $|
00000650: 41 34 33 35 00 67 0E C8 1C 55 5A 39 20 4C 44 41 |A435.g...UZ9 LDA|
00000660: 20 4C 49 4E 46 4C 47 00 74 0E CA 1C 42 45 51 20 | LINFLG.t...BEQ |
00000670: 55 5A 31 30 00 80 0E CC 1C 4A 53 52 20 44 4C 5A |UZ10.....JSR DLZ|
00000680: 00 94 0E CE 1C 55 5A 31 30 20 4A 53 52 20 43 48 |.....UZ10 JSR CH|
00000690: 4B 4C 39 35 00 A1 0E D0 1C 4A 53 52 20 55 5A 31 |KL95.....JSR UZ1|
000006A0: 31 00 AF 0E D2 1C 4A 4D 50 20 24 41 34 37 34 00 |1.....JMP $A474.|
000006B0: C1 0E D4 1C 55 5A 31 31 20 4A 53 52 20 9C 43 48 |....UZ11 JSR .CH|
000006C0: 4E 00 CE 0E D6 1C 4C 44 41 20 23 24 36 32 00 D8 |N.....LDA #$62..|
000006D0: 0E D8 1C 4A 53 52 20 A0 00 E6 0E DA 1C 4A 53 52 |...JSR ......JSR|
000006E0: 20 24 46 46 45 37 00 F4 0E DC 1C 4A 53 52 20 24 | $FFE7.....JSR $|
000006F0: 41 35 33 33 00 02 0F DE 1C 4A 4D 50 20 24 41 36 |A533.....JMP $A6|
00000700: 35 39 00 14 0F E0 1C 55 5A 31 32 20 4A 53 52 20 |59.....UZ12 JSR |
00000710: A1 4C 49 4E 00 21 0F E2 1C 4C 44 41 20 55 5A 46 |.LIN.!...LDA UZF|
00000720: 31 00 2D 0F E4 1C 42 4E 45 20 55 5A 39 00 3B 0F |1.-...BNE UZ9.;.|
00000730: E6 1C 4A 53 52 20 43 48 4B 4C 32 00 4F 0F E8 1C |..JSR CHKL2.O...|
00000740: 55 5A 31 33 20 4A 53 52 20 43 4F 4D 50 41 52 00 |UZ13 JSR COMPAR.|
00000750: 5C 0F EA 1C 42 43 43 20 55 5A 31 35 00 64 0F EC |\...BCC UZ15.d..|
00000760: 1C 50 48 50 00 73 0F EE 1C 4A 53 52 20 55 50 44 |.PHP.s...JSR UPD|
00000770: 41 42 50 00 82 0F F0 1C 53 54 41 20 4C 49 4E 46 |ABP.....STA LINF|
00000780: 4C 47 00 8A 0F F2 1C 50 4C 50 00 96 0F F4 1C 42 |LG.....PLP.....B|
00000790: 4E 45 20 55 5A 37 00 A3 0F F6 1C 4C 44 41 20 55 |NE UZ7.....LDA U|
000007A0: 5A 46 32 00 B0 0F F8 1C 42 4E 45 20 55 5A 31 34 |ZF2.....BNE UZ14|
000007B0: 00 BB 0F FA 1C 4C 44 41 20 54 33 00 C6 0F FC 1C |.....LDA T3.....|
000007C0: 4C 44 59 20 54 34 00 D4 0F FE 1C 53 54 41 20 53 |LDY T4.....STA S|
000007D0: 44 50 54 52 00 E4 0F 00 1D 53 54 59 20 53 44 50 |DPTR.....STY SDP|
000007E0: 54 52 AA 31 00 F1 0F 02 1D 53 54 59 20 55 5A 46 |TR.1.....STY UZF|
000007F0: 32 00 05 10 04 1D 55 5A 31 34 20 4A 53 52 20 54 |2.....UZ14 JSR T|
00000800: 33 42 55 4D 50 00 11 10 06 1D 4A 4D 50 20 55 5A |3BUMP.....JMP UZ|
00000810: 37 00 25 10 08 1D 55 5A 31 35 20 4C 44 41 20 4C |7.%...UZ15 LDA L|
00000820: 49 4E 46 4C 47 00 32 10 0A 1D 42 45 51 20 55 5A |INFLG.2...BEQ UZ|
00000830: 31 36 00 3E 10 0C 1D 4A 53 52 20 44 4C 5A 00 52 |16.>...JSR DLZ.R|
00000840: 10 0E 1D 55 5A 31 36 20 4A 53 52 20 43 4F 4D 50 |...UZ16 JSR COMP|
00000850: 41 52 00 5F 10 10 1D 42 43 53 20 55 5A 31 37 00 |AR._...BCS UZ17.|
00000860: 6E 10 12 1D 4A 53 52 20 54 33 42 55 4D 50 00 76 |n...JSR T3BUMP.v|
00000870: 10 14 1D 43 4C 43 00 83 10 16 1D 42 43 43 20 55 |...CLC.....BCC U|
00000880: 5A 31 36 00 93 10 18 1D 55 5A 31 37 20 4C 44 41 |Z16.....UZ17 LDA|
00000890: 20 54 35 00 9E 10 1A 1D 4C 44 59 20 54 36 00 AA | T5.....LDY T6..|
000008A0: 10 1C 1D 53 54 41 20 24 32 32 00 B6 10 1E 1D 53 |...STA $22.....S|
000008B0: 54 59 20 24 32 33 00 C5 10 20 1D 4A 53 52 20 4D |TY $23... .JSR M|
000008C0: 41 4B 42 55 46 00 D2 10 22 1D 4C 44 59 20 23 24 |AKBUF...".LDY #$|
000008D0: 46 46 00 DF 10 24 1D 55 5A 31 38 20 49 4E 59 00 |FF...$.UZ18 INY.|
000008E0: EF 10 26 1D 4C 44 41 20 28 24 32 32 29 2C 59 00 |..&.LDA ($22),Y.|
000008F0: FE 10 28 1D 53 54 41 20 28 54 35 29 2C 59 00 0B |..(.STA (T5),Y..|
00000900: 11 2A 1D 43 50 59 20 4C 49 4E C3 00 18 11 2C 1D |.*.CPY LIN....,.|
00000910: 42 4E 45 20 55 5A 31 38 00 25 11 2E 1D 42 45 51 |BNE UZ18.%...BEQ|
00000920: 20 55 5A 31 33 00 2B 11 30 1D 3B 00 3F 11 32 1D | UZ13.+.0.;.?.2.|
00000930: 44 53 4B 43 48 4B 20 4C 44 58 20 23 24 36 32 00 |DSKCHK LDX #$62.|
00000940: 4D 11 34 1D 4A 53 52 20 43 48 4B 49 4E 00 5A 11 |M.4.JSR CHKIN.Z.|
00000950: 36 1D 4A 53 52 20 50 52 47 A1 00 67 11 38 1D 43 |6.JSR PRG..g.8.C|
00000960: 4D 50 20 23 22 32 22 00 74 11 3A 1D 42 43 43 20 |MP #"2".t.:.BCC |
00000970: 44 4B 43 32 00 81 11 3C 1D 43 4D 50 20 23 22 37 |DKC2...<.CMP #"7|
00000980: 22 00 8E 11 3E 1D 42 4E 45 20 44 4B 43 31 00 9B |"...>.BNE DKC1..|
00000990: 11 40 1D 4A 53 52 20 50 52 47 A1 00 A8 11 42 1D |.@.JSR PRG....B.|
000009A0: 43 4D 50 20 23 22 33 22 00 B5 11 44 1D 42 4E 45 |CMP #"3"...D.BNE|
000009B0: 20 44 4B 43 31 00 BD 11 46 1D 43 4C 43 00 CB 11 | DKC1...F.CLC...|
000009C0: 48 1D 2E 42 59 54 45 20 24 32 34 00 D8 11 4A 1D |H..BYTE $24...J.|
000009D0: 44 4B 43 31 20 53 45 43 00 E5 11 4C 1D 44 4B 43 |DKC1 SEC...L.DKC|
000009E0: 32 20 50 48 50 00 F7 11 4E 1D 44 4B 43 33 20 4A |2 PHP...N.DKC3 J|
000009F0: 53 52 20 50 52 47 A1 00 03 12 50 1D 4C 44 41 20 |SR PRG....P.LDA |
00000A00: 24 39 30 00 10 12 52 1D 42 45 51 20 44 4B 43 33 |$90...R.BEQ DKC3|
00000A10: 00 1B 12 54 1D 4C 44 41 20 23 30 00 27 12 56 1D |...T.LDA #0.'.V.|
00000A20: 53 54 41 20 24 39 30 00 2F 12 58 1D 50 4C 50 00 |STA $90./.X.PLP.|
00000A30: 3C 12 5A 1D 42 43 53 20 50 47 47 31 00 44 12 5C |<.Z.BCS PGG1.D.\|
00000A40: 1D 52 54 53 00 4A 12 5E 1D 3B 00 5B 12 60 1D 50 |.RTS.J.^.;.[.`.P|
00000A50: 52 47 A1 20 4A 53 52 20 A1 49 4E 00 63 12 62 1D |RG. JSR .IN.c.b.|
00000A60: 50 48 41 00 6F 12 64 1D 4C 44 41 20 24 39 30 00 |PHA.o.d.LDA $90.|
00000A70: 7A 12 66 1D AF 20 23 24 42 46 00 87 12 68 1D 42 |z.f.. #$BF...h.B|
00000A80: 4E 45 20 50 47 47 31 00 8F 12 6A 1D 50 4C 41 00 |NE PGG1...j.PLA.|
00000A90: 97 12 6C 1D 52 54 53 00 A9 12 6E 1D 50 47 47 31 |..l.RTS...n.PGG1|
00000AA0: 20 4A 53 52 20 55 5A 31 31 00 B9 12 70 1D 4C 44 | JSR UZ11...p.LD|
00000AB0: 41 20 23 B3 55 5A 45 52 52 00 C5 12 72 1D 53 54 |A #.UZERR...r.ST|
00000AC0: 41 20 24 32 32 00 D5 12 74 1D 4C 44 41 20 23 B1 |A $22...t.LDA #.|
00000AD0: 55 5A 45 52 52 00 E3 12 76 1D 4A 4D 50 20 24 41 |UZERR...v.JMP $A|
00000AE0: 34 34 35 00 E9 12 78 1D 3B 00 FE 12 7A 1D 55 5A |445...x.;...z.UZ|
00000AF0: 45 52 52 20 2E C6 20 22 4D 45 52 47 C5 22 00 04 |ERR .. "MERG."..|
00000B00: 13 7C 1D 3B 00 17 13 7E 1D 4C 49 4E 46 4C 47 20 |.|.;...~.LINFLG |
00000B10: 2E 42 59 54 45 20 30 00 28 13 80 1D 4C 49 4E C3 |.BYTE 0.(...LIN.|
00000B20: 20 2E 42 59 54 45 20 30 00 3B 13 82 1D 55 5A 46 | .BYTE 0.;...UZF|
00000B30: 31 20 20 20 2E 42 59 54 45 20 30 00 4E 13 84 1D |1 .BYTE 0.N...|
00000B40: 55 5A 46 32 20 20 20 2E 42 59 54 45 20 30 00 61 |UZF2 .BYTE 0.a|
00000B50: 13 86 1D 55 5A 46 33 20 20 20 2E 42 59 54 45 20 |...UZF3 .BYTE |
00000B60: 30 00 67 13 88 1D 3B 00 77 13 8A 1D A1 4C 49 4E |0.g...;.w....LIN|
00000B70: 20 4C 44 59 20 23 30 00 87 13 8C 1D 47 54 4C 31 | LDY #0.....GTL1|
00000B80: 20 53 54 59 20 54 32 00 94 13 8E 1D 4A 53 52 20 | STY T2.....JSR |
00000B90: 50 52 47 A1 00 9F 13 90 1D 4C 44 59 20 54 32 00 |PRG......LDY T2.|
00000BA0: AE 13 92 1D 53 54 41 20 28 54 35 29 2C 59 00 BA |....STA (T5),Y..|
00000BB0: 13 94 1D 4C 44 58 20 24 39 30 00 C7 13 96 1D 53 |...LDX $90.....S|
00000BC0: 54 58 20 55 5A 46 31 00 D4 13 98 1D 42 4E 45 20 |TX UZF1.....BNE |
00000BD0: 47 54 4C 34 00 DF 13 9A 1D 43 50 59 20 23 34 00 |GTL4.....CPY #4.|
00000BE0: EC 13 9C 1D 42 43 43 20 47 54 4C 33 00 F4 13 9E |....BCC GTL3....|
00000BF0: 1D 54 41 58 00 01 14 A0 1D 42 45 51 20 47 54 4C |.TAX.....BEQ GTL|
00000C00: 34 00 0E 14 A2 1D 47 54 4C 32 20 49 4E 59 00 1B |4.....GTL2 INY..|
00000C10: 14 A4 1D 42 4E 45 20 47 54 4C 31 00 28 14 A6 1D |...BNE GTL1.(...|
00000C20: 4A 53 52 20 55 5A 31 31 00 36 14 A8 1D 4A 4D 50 |JSR UZ11.6...JMP|
00000C30: 20 24 41 42 36 36 00 46 14 AA 1D 47 54 4C 33 20 | $AB66.F...GTL3 |
00000C40: 43 50 59 20 23 31 00 53 14 AC 1D 42 4E 45 20 47 |CPY #1.S...BNE G|
00000C50: 54 4C 32 00 5B 14 AE 1D 54 41 58 00 68 14 B0 1D |TL2.[...TAX.h...|
00000C60: 42 4E 45 20 47 54 4C 32 00 70 14 B2 1D 44 45 58 |BNE GTL2.p...DEX|
00000C70: 00 7D 14 B4 1D 53 54 58 20 55 5A 46 31 00 8F 14 |.}...STX UZF1...|
00000C80: B6 1D 47 54 4C 34 20 53 54 59 20 4C 49 4E C3 00 |..GTL4 STY LIN..|
00000C90: 97 14 B8 1D 52 54 53 00 9D 14 BA 1D 3B 00 AC 14 |....RTS.....;...|
00000CA0: BC 1D 4D 41 4B 42 55 46 20 43 4C 43 00 B8 14 BE |..MAKBUF CLC....|
00000CB0: 1D 4C 44 41 20 24 33 37 00 C4 14 C0 1D 41 44 43 |.LDA $37.....ADC|
00000CC0: 20 24 32 44 00 CC 14 C2 1D 50 48 41 00 D8 14 C4 | $2D.....PHA....|
00000CD0: 1D 4C 44 41 20 24 33 38 00 E4 14 C6 1D 41 44 43 |.LDA $38.....ADC|
00000CE0: 20 24 32 45 00 EC 14 C8 1D 4C 53 52 00 FC 14 CA | $2E.....LSR....|
00000CF0: 1D 53 54 41 20 53 49 50 54 52 AA 31 00 07 15 CC |.STA SIPTR.1....|
00000D00: 1D 53 54 41 20 54 36 00 0F 15 CE 1D 50 4C 41 00 |.STA T6.....PLA.|
00000D10: 16 15 D0 1D 52 B0 00 24 15 D2 1D 53 54 41 20 53 |....R..$...STA S|
00000D20: 49 50 54 52 00 2F 15 D4 1D 53 54 41 20 54 35 00 |IPTR./...STA T5.|
00000D30: 3A 15 D6 1D 4C 44 41 20 23 30 00 49 15 D8 1D 53 |:...LDA #0.I...S|
00000D40: 54 41 20 4C 49 4E 46 4C 47 00 51 15 DA 1D 52 54 |TA LINFLG.Q...RT|
00000D50: 53 00 57 15 DC 1D 3B 00 66 15 DE 1D 55 50 44 41 |S.W...;.f...UPDA|
00000D60: 42 50 20 53 45 43 00 73 15 E0 1D 4C 44 41 20 4C |BP SEC.s...LDA L|
00000D70: 49 4E C3 00 7E 15 E2 1D 41 44 43 20 54 35 00 89 |IN..~...ADC T5..|
00000D80: 15 E4 1D 53 54 41 20 54 35 00 94 15 E6 1D 4C 44 |...STA T5.....LD|
00000D90: 41 20 23 30 00 9F 15 E8 1D 41 44 43 20 54 36 00 |A #0.....ADC T6.|
00000DA0: AA 15 EA 1D 53 54 41 20 54 36 00 B2 15 EC 1D 52 |....STA T6.....R|
00000DB0: 54 53 00 B8 15 EE 1D 3B 00 CA 15 F0 1D 43 4F 4D |TS.....;.....COM|
00000DC0: 50 41 52 20 4C 44 59 20 23 31 00 D2 15 F2 1D 53 |PAR LDY #1.....S|
00000DD0: 45 43 00 E1 15 F4 1D 4C 44 41 20 28 54 33 29 2C |EC.....LDA (T3),|
00000DE0: 59 00 EE 15 F6 1D 42 45 51 20 43 4F 4D 32 00 F9 |Y.....BEQ COM2..|
00000DF0: 15 F8 1D 4C 44 59 20 23 33 00 08 16 FA 1D 4C 44 |...LDY #3.....LD|
00000E00: 41 20 28 54 33 29 2C 59 00 17 16 FC 1D 43 4D 50 |A (T3),Y.....CMP|
00000E10: 20 28 54 35 29 2C 59 00 24 16 FE 1D 42 43 43 20 | (T5),Y.$...BCC |
00000E20: 43 4F 4D 31 00 31 16 00 1E 42 4E 45 20 43 4F 4D |COM1.1...BNE COM|
00000E30: 31 00 39 16 02 1E 44 45 59 00 48 16 04 1E 4C 44 |1.9...DEY.H...LD|
00000E40: 41 20 28 54 33 29 2C 59 00 57 16 06 1E 43 4D 50 |A (T3),Y.W...CMP|
00000E50: 20 28 54 35 29 2C 59 00 64 16 08 1E 43 4F 4D 31 | (T5),Y.d...COM1|
00000E60: 20 52 54 53 00 74 16 0A 1E 43 4F 4D 32 20 4C 44 | RTS.t...COM2 LD|
00000E70: 41 20 23 31 00 7C 16 0C 1E 52 54 53 00 82 16 0E |A #1.|...RTS....|
00000E80: 1E 3B 00 94 16 10 1E 54 33 42 55 4D 50 20 4C 44 |.;.....T3BUMP LD|
00000E90: 59 20 23 34 00 A8 16 12 1E 4D 4B 55 31 20 4C 44 |Y #4.....MKU1 LD|
00000EA0: 41 20 28 54 33 29 2C 59 00 B5 16 14 1E 42 45 51 |A (T3),Y.....BEQ|
00000EB0: 20 4D 4B 55 32 00 BD 16 16 1E 49 4E 59 00 CA 16 | MKU2.....INY...|
00000EC0: 18 1E 42 4E 45 20 4D 4B 55 31 00 D7 16 1A 1E 4A |..BNE MKU1.....J|
00000ED0: 4D 50 20 50 47 47 31 00 E4 16 1C 1E 4D 4B 55 32 |MP PGG1.....MKU2|
00000EE0: 20 54 59 41 00 EC 16 1E 1E 53 45 43 00 F7 16 20 | TYA.....SEC... |
00000EF0: 1E 41 44 43 20 54 33 00 02 17 22 1E 53 54 41 20 |.ADC T3...".STA |
00000F00: 54 33 00 0D 17 24 1E 4C 44 41 20 54 34 00 18 17 |T3...$.LDA T4...|
00000F10: 26 1E 41 44 43 20 23 30 00 23 17 28 1E 53 54 41 |&.ADC #0.#.(.STA|
00000F20: 20 54 34 00 2B 17 2A 1E 52 54 53 00 31 17 2C 1E | T4.+.*.RTS.1.,.|
00000F30: 3B 00 42 17 2E 1E 43 48 4B 4C 32 20 4C 44 59 20 |;.B...CHKL2 LDY |
00000F40: 23 32 00 51 17 30 1E 4C 44 41 20 28 54 35 29 2C |#2.Q.0.LDA (T5),|
00000F50: 59 00 5C 17 32 1E 43 4D 50 20 23 32 00 69 17 34 |Y.\.2.CMP #2.i.4|
00000F60: 1E 42 4E 45 20 43 32 4C 34 00 71 17 36 1E 49 4E |.BNE C2L4.q.6.IN|
00000F70: 59 00 80 17 38 1E 4C 44 41 20 28 54 35 29 2C 59 |Y...8.LDA (T5),Y|
00000F80: 00 8D 17 3A 1E 42 4E 45 20 43 32 4C 34 00 98 17 |...:.BNE C2L4...|
00000F90: 3C 1E 4C 44 41 20 54 35 00 A3 17 3E 1E 4C 44 59 |<.LDA T5...>.LDY|
00000FA0: 20 54 36 00 AE 17 40 1E 41 44 43 20 23 32 00 BA | T6...@.ADC #2..|
00000FB0: 17 42 1E 53 54 41 20 24 37 41 00 C7 17 44 1E 42 |.B.STA $7A...D.B|
00000FC0: 43 43 20 43 32 4C 31 00 CF 17 46 1E 49 4E 59 00 |CC C2L1...F.INY.|
00000FD0: E0 17 48 1E 43 32 4C 31 20 53 54 59 20 24 37 42 |..H.C2L1 STY $7B|
00000FE0: 00 EC 17 4A 1E 4A 53 52 20 24 37 33 00 F9 17 4C |...J.JSR $73...L|
00000FF0: 1E 43 4D 50 20 23 24 38 46 00 06 18 4E 1E 42 4E |.CMP #$8F...N.BN|
00001000: 45 20 43 32 4C 34 00 19 18 50 1E 43 32 4C 32 20 |E C2L4...P.C2L2 |
00001010: 4A 53 52 20 52 44 4E 55 4D 00 26 18 52 1E 42 43 |JSR RDNUM.&.R.BC|
00001020: 53 20 43 32 4C 34 00 35 18 54 1E 53 54 59 20 53 |S C2L4.5.T.STY S|
00001030: 54 4D 43 54 52 00 47 18 56 1E 43 32 4C 33 20 43 |TMCTR.G.V.C2L3 C|
00001040: 4D 50 20 23 22 2C 22 00 54 18 58 1E 42 45 51 20 |MP #",".T.X.BEQ |
00001050: 43 32 4C 35 00 60 18 5A 1E 4A 53 52 20 24 37 33 |C2L5.`.Z.JSR $73|
00001060: 00 6D 18 5C 1E 42 4E 45 20 43 32 4C 33 00 7A 18 |.m.\.BNE C2L3.z.|
00001070: 5E 1E 43 32 4C 34 20 52 54 53 00 8D 18 60 1E 43 |^.C2L4 RTS...`.C|
00001080: 32 4C 35 20 4A 53 52 20 52 44 4E 55 4D 00 9A 18 |2L5 JSR RDNUM...|
00001090: 62 1E 42 43 53 20 43 32 4C 34 00 A9 18 64 1E 53 |b.BCS C2L4...d.S|
000010A0: 54 59 20 46 55 4E 43 54 52 00 B6 18 66 1E 49 4E |TY FUNCTR...f.IN|
000010B0: 43 20 55 5A 46 33 00 BE 18 68 1E 52 54 53 00 C4 |C UZF3...h.RTS..|
000010C0: 18 6A 1E 3B 00 D6 18 6C 1E 52 44 4E 55 4D 20 4A |.j.;...l.RDNUM J|
000010D0: 53 52 20 24 37 33 00 E3 18 6E 1E 42 43 53 20 52 |SR $73...n.BCS R|
000010E0: 44 4E 32 00 EE 18 70 1E AF 20 23 24 30 46 00 F6 |DN2...p.. #$0F..|
000010F0: 18 72 1E 54 41 59 00 02 19 74 1E 4A 53 52 20 24 |.r.TAY...t.JSR $|
00001100: 37 33 00 0F 19 76 1E 42 43 53 20 52 44 4E 31 00 |73...v.BCS RDN1.|
00001110: 1A 19 78 1E AF 20 23 24 30 46 00 26 19 7A 1E 53 |..x.. #$0F.&.z.S|
00001120: 54 41 20 24 32 32 00 2E 19 7C 1E 54 59 41 00 36 |TA $22...|.TYA.6|
00001130: 19 7E 1E 41 53 4C 00 3E 19 80 1E 41 53 4C 00 46 |.~.ASL.>...ASL.F|
00001140: 19 82 1E 41 53 4C 00 4E 19 84 1E 41 53 4C 00 59 |...ASL.N...ASL.Y|
00001150: 19 86 1E B0 41 20 24 32 32 00 61 19 88 1E 54 41 |....A $22.a...TA|
00001160: 59 00 6D 19 8A 1E 4A 53 52 20 24 37 33 00 7A 19 |Y.m...JSR $73.z.|
00001170: 8C 1E 52 44 4E 31 20 43 4C 43 00 87 19 8E 1E 52 |..RDN1 CLC.....R|
00001180: 44 4E 32 20 52 54 53 00 8D 19 90 1E 3B 00 A1 19 |DN2 RTS.....;...|
00001190: 92 1E 43 48 4B 4C 39 35 20 4C 44 41 20 55 5A 46 |..CHKL95 LDA UZF|
000011A0: 33 00 AE 19 94 1E 42 45 51 20 52 44 4E 32 00 BB |3.....BEQ RDN2..|
000011B0: 19 96 1E 4C 44 41 20 23 24 35 46 00 C6 19 98 1E |...LDA #$5F.....|
000011C0: 4C 44 59 20 23 30 00 D2 19 9A 1E 53 54 41 20 24 |LDY #0.....STA $|
000011D0: 31 34 00 DE 19 9C 1E 53 54 59 20 24 31 35 00 EB |14.....STY $15..|
000011E0: 19 9E 1E 53 54 59 20 55 5A 46 33 00 F9 19 A0 1E |...STY UZF3.....|
000011F0: 4A 53 52 20 24 41 35 33 33 00 07 1A A2 1E 4A 53 |JSR $A533.....JS|
00001200: 52 20 24 41 36 31 33 00 14 1A A4 1E 42 43 43 20 |R $A613.....BCC |
00001210: 52 44 4E 32 00 20 1A A6 1E 4C 44 41 20 24 35 46 |RDN2. ...LDA $5F|
00001220: 00 2C 1A A8 1E 4C 44 59 20 24 36 30 00 37 1A AA |.,...LDY $60.7..|
00001230: 1E 53 54 41 20 54 33 00 42 1A AC 1E 53 54 59 20 |.STA T3.B...STY |
00001240: 54 34 00 50 1A AE 1E 53 54 41 20 53 44 50 54 52 |T4.P...STA SDPTR|
00001250: 00 60 1A B0 1E 53 54 59 20 53 44 50 54 52 AA 31 |.`...STY SDPTR.1|
00001260: 00 6B 1A B2 1E 41 44 43 20 23 32 00 77 1A B4 1E |.k...ADC #2.w...|
00001270: 53 54 41 20 24 37 41 00 85 1A B6 1E 42 43 43 20 |STA $7A.....BCC |
00001280: 43 39 35 4C 31 00 8D 1A B8 1E 49 4E 59 00 9F 1A |C95L1.....INY...|
00001290: BA 1E 43 39 35 4C 31 20 53 54 59 20 24 37 42 00 |..C95L1 STY $7B.|
000012A0: AB 1A BC 1E 4A 53 52 20 24 37 33 00 B8 1A BE 1E |....JSR $73.....|
000012B0: 43 4D 50 20 23 22 58 22 00 C5 1A C0 1E 42 4E 45 |CMP #"X".....BNE|
000012C0: 20 52 44 4E 32 00 D7 1A C2 1E 43 39 35 4C 32 20 | RDN2.....C95L2 |
000012D0: 4A 53 52 20 24 37 33 00 E4 1A C4 1E 42 45 51 20 |JSR $73.....BEQ |
000012E0: 52 44 4E 32 00 F2 1A C6 1E 42 43 53 20 43 39 35 |RDN2.....BCS C95|
000012F0: 4C 32 00 FE 1A C8 1E 4C 44 41 20 24 37 41 00 0C |L2.....LDA $7A..|
00001300: 1B CA 1E 42 4E 45 20 43 39 35 4C 33 00 18 1B CC |...BNE C95L3....|
00001310: 1E 44 45 43 20 24 37 42 00 2A 1B CE 1E 43 39 35 |.DEC $7B.*...C95|
00001320: 4C 33 20 44 45 43 20 24 37 41 00 39 1B D0 1E 4C |L3 DEC $7A.9...L|
00001330: 44 41 20 53 54 4D 43 54 52 00 45 1B D2 1E 53 54 |DA STMCTR.E...ST|
00001340: 41 20 24 32 34 00 54 1B D4 1E 4C 44 41 20 46 55 |A $24.T...LDA FU|
00001350: 4E 43 54 52 00 60 1B D6 1E 53 54 41 20 24 32 35 |NCTR.`...STA $25|
00001360: 00 6D 1B D8 1E 4A 53 52 20 43 32 4C 32 00 7A 1B |.m...JSR C2L2.z.|
00001370: DA 1E 4C 44 41 20 55 5A 46 33 00 87 1B DC 1E 42 |..LDA UZF3.....B|
00001380: 45 51 20 52 44 4E 32 00 8F 1B DE 1E 53 45 49 00 |EQ RDN2.....SEI.|
00001390: 97 1B E0 1E 53 45 44 00 9F 1B E2 1E 43 4C 43 00 |....SED.....CLC.|
000013A0: AE 1B E4 1E 4C 44 41 20 53 54 4D 43 54 52 00 BA |....LDA STMCTR..|
000013B0: 1B E6 1E 41 44 43 20 24 32 34 00 C9 1B E8 1E 53 |...ADC $24.....S|
000013C0: 54 41 20 53 54 4D 43 54 52 00 D7 1B EA 1E 42 43 |TA STMCTR.....BC|
000013D0: 53 20 43 39 35 4C 34 00 E6 1B EC 1E 4C 44 41 20 |S C95L4.....LDA |
000013E0: 46 55 4E 43 54 52 00 F2 1B EE 1E 41 44 43 20 24 |FUNCTR.....ADC $|
000013F0: 32 35 00 01 1C F0 1E 53 54 41 20 46 55 4E 43 54 |25.....STA FUNCT|
00001400: 52 00 0F 1C F2 1E 43 39 35 4C 34 20 43 4C 44 00 |R.....C95L4 CLD.|
00001410: 17 1C F4 1E 43 4C 49 00 24 1C F6 1E 42 43 53 20 |....CLI.$...BCS |
00001420: 52 44 4E 32 00 33 1C F8 1E 4A 53 52 20 4D 41 4B |RDN2.3...JSR MAK|
00001430: 42 55 46 00 3E 1C FA 1E 4C 44 59 20 23 30 00 55 |BUF.>...LDY #0.U|
00001440: 1C FC 1E 43 39 35 4C 35 20 4C 44 41 20 4C 39 35 |...C95L5 LDA L95|
00001450: 54 58 54 2C 59 00 64 1C FE 1E 53 54 41 20 28 54 |TXT,Y.d...STA (T|
00001460: 35 29 2C 59 00 6C 1C 00 1F 49 4E 59 00 79 1C 02 |5),Y.l...INY.y..|
00001470: 1F 43 50 59 20 23 24 30 46 00 87 1C 04 1F 42 4E |.CPY #$0F.....BN|
00001480: 45 20 43 39 35 4C 35 00 96 1C 06 1F 4C 44 41 20 |E C95L5.....LDA |
00001490: 53 54 4D 43 54 52 00 A5 1C 08 1F 4A 53 52 20 4C |STMCTR.....JSR L|
000014A0: 39 35 50 55 54 00 B2 1C 0A 1F 4C 44 41 20 23 22 |95PUT.....LDA #"|
000014B0: 2C 22 00 C1 1C 0C 1F 53 54 41 20 28 54 35 29 2C |,".....STA (T5),|
000014C0: 59 00 C9 1C 0E 1F 49 4E 59 00 D8 1C 10 1F 4C 44 |Y.....INY.....LD|
000014D0: 41 20 46 55 4E 43 54 52 00 E7 1C 12 1F 4A 53 52 |A FUNCTR.....JSR|
000014E0: 20 4C 39 35 50 55 54 00 FE 1C 14 1F 43 39 35 4C | L95PUT.....C95L|
000014F0: 36 20 4C 44 41 20 4C 39 35 54 58 54 2C 59 00 0D |6 LDA L95TXT,Y..|
00001500: 1D 16 1F 53 54 41 20 28 54 35 29 2C 59 00 15 1D |...STA (T5),Y...|
00001510: 18 1F 49 4E 59 00 1D 1D 1A 1F 54 41 58 00 2B 1D |..INY.....TAX.+.|
00001520: 1C 1F 42 4E 45 20 43 39 35 4C 36 00 33 1D 1E 1F |..BNE C95L6.3...|
00001530: 44 45 59 00 40 1D 20 1F 53 54 59 20 4C 49 4E C3 |DEY.@. .STY LIN.|
00001540: 00 4D 1D 22 1F 53 54 59 20 55 5A 46 32 00 5C 1D |.M.".STY UZF2.\.|
00001550: 24 1F 4A 53 52 20 54 33 42 55 4D 50 00 6B 1D 26 |$.JSR T3BUMP.k.&|
00001560: 1F 4A 53 52 20 55 50 44 41 42 50 00 77 1D 28 1F |.JSR UPDABP.w.(.|
00001570: 4A 4D 50 20 44 4C 5A 00 7D 1D 2A 1F 3B 00 8C 1D |JMP DLZ.}.*.;...|
00001580: 2C 1F 4C 39 35 50 55 54 20 50 48 41 00 97 1D 2E |,.L95PUT PHA....|
00001590: 1F AF 20 23 24 46 30 00 A5 1D 30 1F 42 45 51 20 |.. #$F0...0.BEQ |
000015A0: 4C 39 35 50 31 00 AD 1D 32 1F 4C 53 52 00 B5 1D |L95P1...2.LSR...|
000015B0: 34 1F 4C 53 52 00 BD 1D 36 1F 4C 53 52 00 C5 1D |4.LSR...6.LSR...|
000015C0: 38 1F 4C 53 52 00 D1 1D 3A 1F B0 41 20 23 24 33 |8.LSR...:..A #$3|
000015D0: 30 00 E0 1D 3C 1F 53 54 41 20 28 54 35 29 2C 59 |0...<.STA (T5),Y|
000015E0: 00 E8 1D 3E 1F 49 4E 59 00 F6 1D 40 1F 4C 39 35 |...>.INY...@.L95|
000015F0: 50 31 20 50 4C 41 00 01 1E 42 1F AF 20 23 24 30 |P1 PLA...B.. #$0|
00001600: 46 00 0D 1E 44 1F B0 41 20 23 24 33 30 00 1C 1E |F...D..A #$30...|
00001610: 46 1F 53 54 41 20 28 54 35 29 2C 59 00 24 1E 48 |F.STA (T5),Y.$.H|
00001620: 1F 49 4E 59 00 2C 1E 4A 1F 52 54 53 00 32 1E 4C |.INY.,.J.RTS.2.L|
00001630: 1F 3B 00 45 1E 4E 1F 53 54 4D 43 54 52 20 2E 42 |.;.E.N.STMCTR .B|
00001640: 59 54 45 20 30 00 58 1E 50 1F 46 55 4E 43 54 52 |YTE 0.X.P.FUNCTR|
00001650: 20 2E 42 59 54 45 20 30 00 5E 1E 52 1F 3B 00 78 | .BYTE 0.^.R.;.x|
00001660: 1E 54 1F 4C 39 35 54 58 54 20 2E 42 59 54 45 20 |.T.L95TXT .BYTE |
00001670: 31 2C 31 2C 39 35 2C 30 00 86 1E 56 1F 2E C6 20 |1,1,95,0...V... |
00001680: 22 58 54 52 41 22 00 93 1E 58 1F 2E 42 59 54 45 |"XTRA"...X..BYTE|
00001690: 20 33 32 00 A2 1E 5A 1F 2E C6 20 22 2E 42 59 54 | 32...Z... ".BYT|
000016A0: 45 22 00 C7 1E 5C 1F 2E 42 59 54 45 20 33 32 2C |E"...\..BYTE 32,|
000016B0: 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 32 2C 33 |32,32,32,32,32,3|
000016C0: 32 2C 35 39 2C 33 32 00 DC 1E 5E 1F 2E C6 20 22 |2,59,32...^... "|
000016D0: 53 54 4D 54 53 2C 46 55 4E 43 53 22 00 E8 1E 60 |STMTS,FUNCS"...`|
000016E0: 1F 2E 42 59 54 45 20 30 00 EE 1E 62 1F 3B 00 FF |..BYTE 0...b.;..|
000016F0: 1E 64 1F 44 4C 5A 20 4C 44 41 20 55 5A 46 32 00 |.d.DLZ LDA UZF2.|
00001700: 0C 1F 66 1F 42 4E 45 20 44 4C 5A 31 00 17 1F 68 |..f.BNE DLZ1...h|
00001710: 1F 4C 44 41 20 54 33 00 22 1F 6A 1F 4C 44 59 20 |.LDA T3.".j.LDY |
00001720: 54 34 00 30 1F 6C 1F 53 54 41 20 53 44 50 54 52 |T4.0.l.STA SDPTR|
00001730: 00 40 1F 6E 1F 53 54 59 20 53 44 50 54 52 AA 31 |.@.n.STY SDPTR.1|
00001740: 00 50 1F 70 1F 44 4C 5A 31 20 4C 44 41 20 23 30 |.P.p.DLZ1 LDA #0|
00001750: 00 5D 1F 72 1F 53 54 41 20 55 5A 46 32 00 63 1F |.].r.STA UZF2.c.|
00001760: 74 1F 3B 00 75 1F 76 1F 44 45 4C 49 4E 53 20 4C |t.;.u.v.DELINS L|
00001770: 44 41 20 54 33 00 80 1F 78 1F 4C 44 59 20 54 34 |DA T3...x.LDY T4|
00001780: 00 8F 1F 7A 1F 53 54 41 20 4D 56 53 54 52 54 00 |...z.STA MVSTRT.|
00001790: A0 1F 7C 1F 53 54 59 20 4D 56 53 54 52 54 AA 31 |..|.STY MVSTRT.1|
000017A0: 00 A8 1F 7E 1F 53 45 43 00 B6 1F 80 1F 53 42 43 |...~.SEC.....SBC|
000017B0: 20 53 44 50 54 52 00 C2 1F 82 1F 53 54 41 20 24 | SDPTR.....STA $|
000017C0: 32 32 00 CA 1F 84 1F 54 59 41 00 DA 1F 86 1F 53 |22.....TYA.....S|
000017D0: 42 43 20 53 44 50 54 52 AA 31 00 E6 1F 88 1F 53 |BC SDPTR.1.....S|
000017E0: 54 41 20 24 32 33 00 EE 1F 8A 1F 53 45 43 00 F9 |TA $23.....SEC..|
000017F0: 1F 8C 1F 4C 44 41 20 54 35 00 07 20 8E 1F 53 42 |...LDA T5.. ..SB|
00001800: 43 20 53 49 50 54 52 00 0F 20 90 1F 50 48 41 00 |C SIPTR.. ..PHA.|
00001810: 1A 20 92 1F 4C 44 41 20 54 36 00 2A 20 94 1F 53 |. ..LDA T6.* ..S|
00001820: 42 43 20 53 49 50 54 52 AA 31 00 32 20 96 1F 54 |BC SIPTR.1.2 ..T|
00001830: 41 59 00 3A 20 98 1F 50 4C 41 00 42 20 9A 1F 53 |AY.: ..PLA.B ..S|
00001840: 45 43 00 4E 20 9C 1F 53 42 43 20 24 32 32 00 5A |EC.N ..SBC $22.Z|
00001850: 20 9E 1F 53 54 41 20 24 32 32 00 62 20 A0 1F 54 | ..STA $22.b ..T|
00001860: 59 41 00 6E 20 A2 1F 53 42 43 20 24 32 33 00 7A |YA.n ..SBC $23.z|
00001870: 20 A4 1F 53 54 41 20 24 32 33 00 82 20 A6 1F 43 | ..STA $23.. ..C|
00001880: 4C 43 00 8D 20 A8 1F 4C 44 41 20 54 33 00 99 20 |LC.. ..LDA T3.. |
00001890: AA 1F 41 44 43 20 24 32 32 00 A4 20 AC 1F 53 54 |..ADC $22.. ..ST|
000018A0: 41 20 54 33 00 B3 20 AE 1F 53 54 41 20 4D 56 44 |A T3.. ..STA MVD|
000018B0: 45 53 54 00 BE 20 B0 1F 4C 44 41 20 54 34 00 CA |EST.. ..LDA T4..|
000018C0: 20 B2 1F 41 44 43 20 24 32 33 00 D5 20 B4 1F 53 | ..ADC $23.. ..S|
000018D0: 54 41 20 54 34 00 E6 20 B6 1F 53 54 41 20 4D 56 |TA T4.. ..STA MV|
000018E0: 44 45 53 54 AA 31 00 EE 20 B8 1F 43 4C 43 00 FA |DEST.1.. ..CLC..|
000018F0: 20 BA 1F 4C 44 41 20 24 32 44 00 06 21 BC 1F 53 | ..LDA $2D..!..S|
00001900: 54 41 20 4D 56 80 00 12 21 BE 1F 41 44 43 20 24 |TA MV...!..ADC $|
00001910: 32 32 00 1E 21 C0 1F 53 54 41 20 24 32 44 00 2A |22..!..STA $2D.*|
00001920: 21 C2 1F 4C 44 41 20 24 32 45 00 38 21 C4 1F 53 |!..LDA $2E.8!..S|
00001930: 54 41 20 4D 56 80 AA 31 00 44 21 C6 1F 41 44 43 |TA MV..1.D!..ADC|
00001940: 20 24 32 33 00 50 21 C8 1F 53 54 41 20 24 32 45 | $23.P!..STA $2E|
00001950: 00 5E 21 CA 1F 4A 53 52 20 4D 56 4D 45 4D 00 6C |.^!..JSR MVMEM.l|
00001960: 21 CC 1F 4C 44 41 20 53 44 50 54 52 00 7B 21 CE |!..LDA SDPTR.{!.|
00001970: 1F 53 54 41 20 4D 56 44 45 53 54 00 8B 21 D0 1F |.STA MVDEST..!..|
00001980: 4C 44 41 20 53 44 50 54 52 AA 31 00 9C 21 D2 1F |LDA SDPTR.1..!..|
00001990: 53 54 41 20 4D 56 44 45 53 54 AA 31 00 AA 21 D4 |STA MVDEST.1..!.|
000019A0: 1F 4C 44 41 20 53 49 50 54 52 00 BA 21 D6 1F 4C |.LDA SIPTR..!..L|
000019B0: 44 59 20 53 49 50 54 52 AA 31 00 C9 21 D8 1F 53 |DY SIPTR.1..!..S|
000019C0: 54 41 20 4D 56 53 54 52 54 00 DA 21 DA 1F 53 54 |TA MVSTRT..!..ST|
000019D0: 59 20 4D 56 53 54 52 54 AA 31 00 E5 21 DC 1F 4C |Y MVSTRT.1..!..L|
000019E0: 44 41 20 54 35 00 F0 21 DE 1F 4C 44 59 20 54 36 |DA T5..!..LDY T6|
000019F0: 00 FC 21 E0 1F 53 54 41 20 4D 56 80 00 0A 22 E2 |..!..STA MV...".|
00001A00: 1F 53 54 59 20 4D 56 80 AA 31 00 18 22 E4 1F 4A |.STY MV..1.."..J|
00001A10: 4D 50 20 4D 56 4D 45 4D 00 1E 22 E6 1F 3B 00 2F |MP MVMEM.."..;./|
00001A20: 22 E8 1F 53 44 50 54 52 20 2E 57 B0 44 20 30 00 |"..SDPTR .W.D 0.|
00001A30: 40 22 EA 1F 53 49 50 54 52 20 2E 57 B0 44 20 30 |@"..SIPTR .W.D 0|
00001A40: 00 46 22 EC 1F 3B 00 58 22 3A 20 4D 56 4D 45 4D |.F"..;.X": MVMEM|
00001A50: 20 4C 44 41 20 4D 56 80 00 65 22 3C 20 42 4E 45 | LDA MV..e"< BNE|
00001A60: 20 4D 56 4D 31 00 73 22 3E 20 44 45 43 20 4D 56 | MVM1.s"> DEC MV|
00001A70: 80 AA 31 00 84 22 40 20 4D 56 4D 31 20 44 45 43 |..1.."@ MVM1 DEC|
00001A80: 20 4D 56 80 00 8A 22 42 20 3B 00 9E 22 44 20 4D | MV..."B ;.."D M|
00001A90: 56 4D 32 20 4C 44 41 20 4D 56 53 54 52 54 00 AA |VM2 LDA MVSTRT..|
00001AA0: 22 46 20 53 54 41 20 24 32 32 00 B9 22 48 20 4C |"F STA $22.."H L|
00001AB0: 44 41 20 4D 56 44 45 53 54 00 C5 22 4A 20 53 54 |DA MVDEST.."J ST|
00001AC0: 41 20 24 32 34 00 D3 22 4C 20 4C 44 41 20 4D 56 |A $24.."L LDA MV|
00001AD0: 80 AA 31 00 E4 22 4E 20 43 4D 50 20 4D 56 53 54 |..1.."N CMP MVST|
00001AE0: 52 54 AA 31 00 F1 22 50 20 42 43 43 20 4D 56 4D |RT.1.."P BCC MVM|
00001AF0: 35 00 FE 22 52 20 42 4E 45 20 4D 56 4D 33 00 0A |5.."R BNE MVM3..|
00001B00: 23 54 20 4C 44 41 20 4D 56 80 00 19 23 56 20 43 |#T LDA MV...#V C|
00001B10: 4D 50 20 4D 56 53 54 52 54 00 26 23 58 20 42 43 |MP MVSTRT.&#X BC|
00001B20: 43 20 4D 56 4D 35 00 3C 23 5A 20 4D 56 4D 33 20 |C MVM5.<#Z MVM3 |
00001B30: 4C 44 41 20 4D 56 44 45 53 54 AA 31 00 4D 23 5C |LDA MVDEST.1.M#\|
00001B40: 20 43 4D 50 20 4D 56 53 54 52 54 AA 31 00 5C 23 | CMP MVSTRT.1.\#|
00001B50: 5E 20 42 43 43 20 44 4D 56 4D 45 4D 00 6B 23 60 |^ BCC DMVMEM.k#`|
00001B60: 20 42 4E 45 20 55 4D 56 4D 45 4D 00 77 23 62 20 | BNE UMVMEM.w#b |
00001B70: 4C 44 41 20 24 32 34 00 83 23 64 20 43 4D 50 20 |LDA $24..#d CMP |
00001B80: 24 32 32 00 90 23 66 20 42 45 51 20 4D 56 4D 35 |$22..#f BEQ MVM5|
00001B90: 00 9F 23 68 20 42 43 43 20 44 4D 56 4D 45 4D 00 |..#h BCC DMVMEM.|
00001BA0: B2 23 6A 20 55 4D 56 4D 45 4D 20 4C 44 41 20 4D |.#j UMVMEM LDA M|
00001BB0: 56 80 00 BA 23 6C 20 53 45 43 00 C9 23 6E 20 53 |V...#l SEC..#n S|
00001BC0: 42 43 20 4D 56 53 54 52 54 00 D1 23 70 20 54 41 |BC MVSTRT..#p TA|
00001BD0: 59 00 DF 23 72 20 4C 44 41 20 4D 56 80 AA 31 00 |Y..#r LDA MV..1.|
00001BE0: F0 23 74 20 53 42 43 20 4D 56 53 54 52 54 AA 31 |.#t SBC MVSTRT.1|
00001BF0: 00 F8 23 76 20 50 48 41 00 00 24 78 20 43 4C 43 |..#v PHA..$x CLC|
00001C00: 00 11 24 7A 20 41 44 43 20 4D 56 53 54 52 54 AA |..$z ADC MVSTRT.|
00001C10: 31 00 1D 24 7C 20 53 54 41 20 24 32 33 00 25 24 |1..$| STA $23.%$|
00001C20: 7E 20 50 4C 41 00 2D 24 80 20 43 4C 43 00 3E 24 |~ PLA.-$. CLC.>$|
00001C30: 82 20 41 44 43 20 4D 56 44 45 53 54 AA 31 00 4A |. ADC MVDEST.1.J|
00001C40: 24 84 20 53 54 41 20 24 32 35 00 5F 24 86 20 4D |$. STA $25._$. M|
00001C50: 56 4D 34 20 4C 44 41 20 28 24 32 32 29 2C 59 00 |VM4 LDA ($22),Y.|
00001C60: 6F 24 88 20 53 54 41 20 28 24 32 34 29 2C 59 00 |o$. STA ($24),Y.|
00001C70: 77 24 8A 20 44 45 59 00 84 24 8C 20 43 50 59 20 |w$. DEY..$. CPY |
00001C80: 23 24 46 46 00 91 24 8E 20 42 4E 45 20 4D 56 4D |#$FF..$. BNE MVM|
00001C90: 34 00 9D 24 90 20 4C 44 41 20 24 32 33 00 AE 24 |4..$. LDA $23..$|
00001CA0: 92 20 43 4D 50 20 4D 56 53 54 52 54 AA 31 00 BB |. CMP MVSTRT.1..|
00001CB0: 24 94 20 42 45 51 20 4D 56 4D 35 00 C7 24 96 20 |$. BEQ MVM5..$. |
00001CC0: 44 45 43 20 24 32 33 00 D3 24 98 20 44 45 43 20 |DEC $23..$. DEC |
00001CD0: 24 32 35 00 E0 24 9A 20 4A 4D 50 20 4D 56 4D 34 |$25..$. JMP MVM4|
00001CE0: 00 ED 24 9C 20 4D 56 4D 35 20 52 54 53 00 05 25 |..$. MVM5 RTS..%|
00001CF0: 9E 20 44 4D 56 4D 45 4D 20 4C 44 41 20 4D 56 53 |. DMVMEM LDA MVS|
00001D00: 54 52 54 AA 31 00 11 25 A0 20 53 54 41 20 24 32 |TRT.1..%. STA $2|
00001D10: 33 00 22 25 A2 20 4C 44 41 20 4D 56 44 45 53 54 |3."%. LDA MVDEST|
00001D20: AA 31 00 2E 25 A4 20 53 54 41 20 24 32 35 00 3A |.1..%. STA $25.:|
00001D30: 25 A6 20 4C 44 41 20 4D 56 80 00 42 25 A8 20 53 |%. LDA MV..B%. S|
00001D40: 45 43 00 51 25 AA 20 53 42 43 20 4D 56 53 54 52 |EC.Q%. SBC MVSTR|
00001D50: 54 00 5C 25 AC 20 53 54 41 20 54 32 00 67 25 AE |T.\%. STA T2.g%.|
00001D60: 20 49 4E 43 20 54 32 00 75 25 B0 20 4C 44 41 20 | INC T2.u%. LDA |
00001D70: 4D 56 80 AA 31 00 86 25 B2 20 53 42 43 20 4D 56 |MV..1..%. SBC MV|
00001D80: 53 54 52 54 AA 31 00 91 25 B4 20 4C 44 59 20 23 |STRT.1..%. LDY #|
00001D90: 30 00 99 25 B6 20 54 41 58 00 A6 25 B8 20 42 45 |0..%. TAX..%. BE|
00001DA0: 51 20 4D 56 4D 37 00 BB 25 BA 20 4D 56 4D 36 20 |Q MVM7..%. MVM6 |
00001DB0: 4C 44 41 20 28 24 32 32 29 2C 59 00 CB 25 BC 20 |LDA ($22),Y..%. |
00001DC0: 53 54 41 20 28 24 32 34 29 2C 59 00 D3 25 BE 20 |STA ($24),Y..%. |
00001DD0: 49 4E 59 00 E0 25 C0 20 42 4E 45 20 4D 56 4D 36 |INY..%. BNE MVM6|
00001DE0: 00 EC 25 C2 20 49 4E 43 20 24 32 33 00 F8 25 C4 |..%. INC $23..%.|
00001DF0: 20 49 4E 43 20 24 32 35 00 00 26 C6 20 44 45 58 | INC $25..&. DEX|
00001E00: 00 0D 26 C8 20 42 4E 45 20 4D 56 4D 36 00 22 26 |..&. BNE MVM6."&|
00001E10: CA 20 4D 56 4D 37 20 4C 44 41 20 28 24 32 32 29 |. MVM7 LDA ($22)|
00001E20: 2C 59 00 32 26 CC 20 53 54 41 20 28 24 32 34 29 |,Y.2&. STA ($24)|
00001E30: 2C 59 00 3A 26 CE 20 49 4E 59 00 45 26 D0 20 43 |,Y.:&. INY.E&. C|
00001E40: 50 59 20 54 32 00 52 26 D2 20 42 4E 45 20 4D 56 |PY T2.R&. BNE MV|
00001E50: 4D 37 00 5A 26 D4 20 52 54 53 00 60 26 D6 20 3B |M7.Z&. RTS.`&. ;|
00001E60: 00 72 26 D8 20 4D 56 53 54 52 54 20 2E 57 B0 44 |.r&. MVSTRT .W.D|
00001E70: 20 30 00 84 26 DA 20 4D 56 44 45 53 54 20 2E 57 | 0..&. MVDEST .W|
00001E80: B0 44 20 30 00 93 26 DC 20 4D 56 80 20 2E 57 B0 |.D 0..&. MV. .W.|
00001E90: 44 20 30 00 99 26 DE 20 3B 00 AC 26 22 22 44 45 |D 0..&. ;..&""DE|
00001EA0: 56 49 43 45 20 2E 42 59 54 45 20 38 00 BF 26 BE |VICE .BYTE 8..&.|
00001EB0: 23 45 52 52 50 47 4D 20 4C 44 58 20 24 33 41 00 |#ERRPGM LDX $3A.|
00001EC0: C7 26 C0 23 49 4E 58 00 D4 26 C2 23 42 4E 45 20 |.&.#INX..&.#BNE |
00001ED0: 45 50 47 31 00 DC 26 C4 23 52 54 53 00 EF 26 C6 |EPG1..&.#RTS..&.|
00001EE0: 23 45 50 47 31 20 4A 4D 50 20 24 41 46 30 38 00 |#EPG1 JMP $AF08.|
00001EF0: F5 26 C8 23 3B 00 00 00 |.&.#;... |
..(.... USE (JUNE 18/85) :
.....:.N.... 1 STATEMENT, 0 FUNCTIONS.T
...:.P.... KEYWORD CHARACTERS: 3.V...:..
.... KEYWORD ROUTINE LINE SER #.E
.... USE UZE 7192 117.K.
..:...... U/MVMEM (8250/120)...... U/DEL
INS (8054/122)...... U/ERRPGM (9150/135)
.....:.E.... ===========================
=====.K...:.Q.&.;.F.'.SETLFS . $FFBA.{
.(.SETNAM . $FFBD...).. . $E1C1...
*.CHKIN . $E11E...+. . $E1CC.F.,.
.CHN . $FFCC.Y.-..IN . $E124.....;.
.....F "USE"...L..W.D UZE.1.....UZE JSR
ERRPGM.....LDA #2.'...JSR $B4F4.5...JSR
$AD9E.C. .JSR $B6A3.Q.".JSR $B4F4.Y.$.TA
Y.E.&.BNE UZ1.S.(.JMP $AF08...*.UZ1 LDA
#","...,.STA ($33),Y.....INY...0.LDA #"P
"...2.STA ($33),Y.A.4.INY.I.6.TYA.Q.8.PH
A...:.LDA $33...<.PHA...>.LDA $34...@.PH
A...B.JSR $79...D.BEQ UZ4...F.JSR $AEFD.
-.H.JSR $B79E.:.J.JMP UZ4A.M.L.UZ4 LDX D
EVICE.A.M.UZ4A STX DEVICE.L.N.STX T2.Y.P
.LDA #$62...R.JSR ...T.LDA #0...V.JSR S
ETNAM...X.LDA #$62...Z.LDX T2.B.\.LDY #$
0F.Q.^.JSR SETLFS...`.JSR ....B.LDA T2..
.D.JSR $FFB1...F.JSR $FFAE...H.LDA $90..
.J.BEQ UZ5.%.L.LDX #5.4.N.JMP ($300).G.P
.UZ5 JSR DSKCHK.T.R.LDA #$63.^.T.JSR .F
.V.PLA.N.X.TAY.V.Z.PLA.~.|.TAX...~.PLA..
...JSR SETNAM.....LDA #$63.....LDX T2...
..TAY.D...JSR SETLFS.N...JSR ......JSR D
SKCHK.....JSR .CHN.....LDX #$63.....JSR
CHKIN.....JSR PRG......JSR PRG..+...LDA
$2B.7...LDY $2C.B...STA T3.M...STY T4.X.
.LDA #0.E...STA UZF1.R...STA UZF2....S
TA UZF3.....STA STMCTR.....STA FUNCTR...
..UZ6 JSR MAKBUF.....UZ7 SEC.H...LDA $37
.S...SBC T5.....LDA $38.....SBC T6.....S
BC #2.....BCS UZ12.....LDA LINFLG.....BE
Q UZ8.)...JSR DLZ.5.B.JMP UZ6.F.D.UZ8 JS
R UZ11.T.F.JMP $A435.G.H.UZ9 LDA LINFLG.
T.J.BEQ UZ10...L.JSR DLZ...N.UZ10 JSR CH
KL95...P.JSR UZ11...R.JMP $A474.A.T.UZ11
JSR .CHN.N.V.LDA #$62.X.X.JSR ...Z.JSR
$FFE7.....JSR $A533.....JMP $A659.....U
Z12 JSR .LIN.!...LDA UZF1.-...BNE UZ9.;.
..JSR CHKL2.O...UZ13 JSR COMPAR.\...BCC
UZ15.D...PHP.S...JSR UPDABP.....STA LINF
LG.....PLP.....BNE UZ7.....LDA UZF2.....
BNE UZ14.....LDA T3.F...LDY T4.T...STA S
DPTR.....STY SDPTR.1.....STY UZF2.....UZ
14 JSR T3BUMP.....JMP UZ7.%...UZ15 LDA L
INFLG.2...BEQ UZ16.>...JSR DLZ.R...UZ16
JSR COMPAR._...BCS UZ17.N...JSR T3BUMP.V
...CLC.....BCC UZ16.....UZ17 LDA T5.....
LDY T6.....STA $22.....STY $23.E. .JSR M
AKBUF.R.".LDY #$FF...$.UZ18 INY...&.LDA
($22),Y...(.STA (T5),Y...*.CPY LINC...,.
BNE UZ18.%...BEQ UZ13.+.0.;.?.2.DSKCHK L
DX #$62.M.4.JSR CHKIN.Z.6.JSR PRG..G.8.C
MP #"2".T.:.BCC DKC2...<.CMP #"7"...>.BN
E DKC1...@.JSR PRG....B.CMP #"3"...D.BNE
DKC1...F.CLC.K.H..BYTE $24.X.J.DKC1 SEC
...L.DKC2 PHP...N.DKC3 JSR PRG....P.LDA
$90...R.BEQ DKC3...T.LDA #0.'.V.STA $90.
/.X.PLP.<.Z.BCS PGG1.D.\.RTS.J.^.;.[.`.P
RG. JSR .IN.C.B.PHA.O.D.LDA $90.Z.F.. #$
BF...H.BNE PGG1...J.PLA...L.RTS...N.PGG1
JSR UZ11...P.LDA #.UZERR.E.R.STA $22.U.
T.LDA #.UZERR...V.JMP $A445...X.;...Z.UZ
ERR .F "MERGE"...|.;...~.LINFLG .BYTE 0.
(...LINC .BYTE 0.;...UZF1 .BYTE 0.N...
UZF2 .BYTE 0.A...UZF3 .BYTE 0.G...;.
W....LIN LDY #0.....GTL1 STY T2.....JSR
PRG......LDY T2.....STA (T5),Y.....LDX $
90.G...STX UZF1.T...BNE GTL4.....CPY #4.
....BCC GTL3.....TAX... .BEQ GTL4.....GT
L2 INY.....BNE GTL1.(...JSR UZ11.6...JMP
$AB66.F...GTL3 CPY #1.S...BNE GTL2.[...
TAX.H...BNE GTL2.P...DEX.}...STX UZF1...
..GTL4 STY LINC.....RTS.....;.....MAKBUF
CLC.....LDA $37.D...ADC $2D.L.B.PHA.X.D
.LDA $38...F.ADC $2E...H.LSR...J.STA SIP
TR.1...L.STA T6...N.PLA...P.R..$.R.STA S
IPTR./.T.STA T5.:.V.LDA #0.I.X.STA LINFL
G.Q.Z.RTS.W...;.F...UPDABP SEC.S...LDA L
INC.~...ADC T5.....STA T5.....LDA #0....
.ADC T6.....STA T6.....RTS.....;.J...COM
PAR LDY #1.R...SEC.....LDA (T3),Y.....BE
Q COM2.....LDY #3.....LDA (T3),Y.....CMP
(T5),Y.$...BCC COM1.1...BNE COM1.9...DE
Y.H...LDA (T3),Y.W...CMP (T5),Y.D...COM1
RTS.T...COM2 LDA #1.|...RTS.....;.....T
3BUMP LDY #4.....MKU1 LDA (T3),Y.....BEQ
MKU2.....INY.J...BNE MKU1.W...JMP PGG1.
....MKU2 TYA.....SEC... .ADC T3...".STA
T3...$.LDA T4...&.ADC #0.#.(.STA T4.+.*.
RTS.1.,.;.B...CHKL2 LDY #2.Q.0.LDA (T5),
Y.\.2.CMP #2.I.4.BNE C2L4.Q.6.INY...8.LD
A (T5),Y...:.BNE C2L4...<.LDA T5...>.LDY
T6...@.ADC #2...B.STA $7A.G.D.BCC C2L1.
O.F.INY...H.C2L1 STY $7B...J.JSR $73...L
.CMP #$8F...N.BNE C2L4...P.C2L2 JSR RDNU
M.&.R.BCS C2L4.5.T.STY STMCTR.G.V.C2L3 C
MP #",".T.X.BEQ C2L5.`.Z.JSR $73.M.\.BNE
C2L3.Z.^.C2L4 RTS...`.C2L5 JSR RDNUM...
B.BCS C2L4...D.STY FUNCTR...F.INC UZF3..
.H.RTS.D.J.;.V.L.RDNUM JSR $73...N.BCS R
DN2...P.. #$0F...R.TAY...T.JSR $73...V.B
CS RDN1...X.. #$0F.&.Z.STA $22...|.TYA.6
.~.ASL.>...ASL.F...ASL.N...ASL.Y....A $2
2.A...TAY.M...JSR $73.Z...RDN1 CLC.....R
DN2 RTS.....;.....CHKL95 LDA UZF3.....BE
Q RDN2.....LDA #$5F.F...LDY #0.R...STA $
14.....STY $15.....STY UZF3... .JSR $A53
3.....JSR $A613.....BCC RDN2. ...LDA $5F
.,...LDY $60.7...STA T3.B...STY T4.P...S
TA SDPTR.`...STY SDPTR.1.K...ADC #2.W...
STA $7A.....BCC C95L1.....INY.....C95L1
STY $7B.....JSR $73.....CMP #"X".E...BNE
RDN2.W.B.C95L2 JSR $73...D.BEQ RDN2...F
.BCS C95L2...H.LDA $7A...J.BNE C95L3...L
.DEC $7B.*.N.C95L3 DEC $7A.9.P.LDA STMCT
R.E.R.STA $24.T.T.LDA FUNCTR.`.V.STA $25
.M.X.JSR C2L2.Z.Z.LDA UZF3.....BEQ RDN2.
....SEI.....SED.....CLC.....LDA STMCTR..
...ADC $24.I...STA STMCTR.W...BCS C95L4.
....LDA FUNCTR.....ADC $25.....STA FUNCT
R.....C95L4 CLD.....CLI.$...BCS RDN2.3..
.JSR MAKBUF.>...LDY #0.U...C95L5 LDA L95
TXT,Y.D...STA (T5),Y.L...INY.Y...CPY #$0
F.....BNE C95L5.....LDA STMCTR.....JSR L
95PUT.....LDA #",".A...STA (T5),Y.I...IN
Y.X...LDA FUNCTR.....JSR L95PUT.....C95L
6 LDA L95TXT,Y.....STA (T5),Y.....INY...
..TAX.+...BNE C95L6.3...DEY.@. .STY LINC
.M.".STY UZF2.\.$.JSR T3BUMP.K.&.JSR UPD
ABP.W.(.JMP DLZ.}.*.;...,.L95PUT PHA....
.. #$F0...0.BEQ L95P1...2.LSR...4.LSR...
6.LSR.E.8.LSR.Q.:..A #$30...<.STA (T5),Y
...>.INY...@.L95P1 PLA...B.. #$0F...D..A
#$30...F.STA (T5),Y.$.H.INY.,.J.RTS.2.L
.;.E.N.STMCTR .BYTE 0.X.P.FUNCTR .BYTE 0
.^.R.;.X.T.L95TXT .BYTE 1,1,95,0...V..F
"XTRA"...X..BYTE 32...Z..F ".BYTE".G.\..
BYTE 32,32,32,32,32,32,32,59,32...^..F "
STMTS,FUNCS"...`..BYTE 0...B.;...D.DLZ L
DA UZF2...F.BNE DLZ1...H.LDA T3.".J.LDY
T4.0.L.STA SDPTR.@.N.STY SDPTR.1.P.P.DLZ
1 LDA #0.].R.STA UZF2.C.T.;.U.V.DELINS L
DA T3...X.LDY T4...Z.STA MVSTRT. .|.STY
MVSTRT.1...~.SEC.....SBC SDPTR.B...STA $
22.J...TYA.Z...SBC SDPTR.1.....STA $23..
...SEC.....LDA T5.. ..SBC SIPTR.. ..PHA.
. ..LDA T6.* ..SBC SIPTR.1.2 ..TAY.: ..P
LA.B ..SEC.N ..SBC $22.Z ..STA $22.B .T
YA.N ..SBC $23.Z ..STA $23.. ..CLC.. ..L
DA T3.. ..ADC $22.. ..STA T3.. ..STA MVD
EST.. ..LDA T4.J ..ADC $23.U ..STA T4..
..STA MVDEST.1.. ..CLC.. ..LDA $2D..!..S
TA MV...!..ADC $22..!..STA $2D.*!B.LDA $
2E.8!D.STA MV..1.D!F.ADC $23.P!H.STA $2E
.^!J.JSR MVMEM.L!L.LDA SDPTR.{!N.STA MVD
EST..!P.LDA SDPTR.1..!R.STA MVDEST.1..!T
.LDA SIPTR..!V.LDY SIPTR.1.I!X.STA MVSTR
T.Z!Z.STY MVSTRT.1..!..LDA T5..!..LDY T6
..!..STA MV..."..STY MV..1.."..JMP MVMEM
.."..;./"..SDPTR .W.D 0.@"..SIPTR .W.D 0
.F"..;.X": MVMEM LDA MV..E"< BNE MVM1.S"
> DEC MV..1.."@ MVM1 DEC MV..."B ;.."D M
VM2 LDA MVSTRT.."F STA $22.."H LDA MVDES
T.E"J STA $24.S"L LDA MV..1.."N CMP MVST
RT.1.."P BCC MVM5.."R BNE MVM3..#T LDA M
V...#V CMP MVSTRT.&#X BCC MVM5.<#Z MVM3
LDA MVDEST.1.M#\ CMP MVSTRT.1.\#^ BCC DM
VMEM.K#` BNE UMVMEM.W#B LDA $24..#D CMP
$22..#F BEQ MVM5..#H BCC DMVMEM..#J UMVM
EM LDA MV...#L SEC.I#N SBC MVSTRT.Q#P TA
Y..#R LDA MV..1..#T SBC MVSTRT.1..#V PHA
..$X CLC..$Z ADC MVSTRT.1..$| STA $23.%$
~ PLA.-$. CLC.>$. ADC MVDEST.1.J$. STA $
25._$. MVM4 LDA ($22),Y.O$. STA ($24),Y.
W$. DEY..$. CPY #$FF..$. BNE MVM4..$. LD
A $23..$. CMP MVSTRT.1..$. BEQ MVM5.G$.
DEC $23.S$. DEC $25..$. JMP MVM4..$. MVM
5 RTS..%. DMVMEM LDA MVSTRT.1..% STA $2
3."%. LDA MVDEST.1..%. STA $25.:%. LDA M
V..B%. SEC.Q%. SBC MVSTRT.\%. STA T2.G%.
INC T2.U%. LDA MV..1..%. SBC MVSTRT.1..
%. LDY #0..%. TAX..%. BEQ MVM7..%. MVM6
LDA ($22),Y.K%. STA ($24),Y.S%. INY..%.
BNE MVM6..%B INC $23..%D INC $25..&F DEX
..&H BNE MVM6."&J MVM7 LDA ($22),Y.2&L S
TA ($24),Y.:&N INY.E&P CPY T2.R&R BNE MV
M7.Z&T RTS.`&V ;.R&X MVSTRT .W.D 0..&Z M
VDEST .W.D 0..&. MV. .W.D 0..&. ;..&""DE
VICE .BYTE 8..&.#ERRPGM LDX $3A.G&.#INX.
T&B#BNE EPG1..&D#RTS..&F#EPG1 JMP $AF08.
.&H#;...
> CLICK IMAGE PREVIEW FOR FULL MODAL