ADD
FILE INFORMATION
FILENAME(S): ADD
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
e800fd4e0a2a604d45fd9b1ab0e0dc51b9d146c2c02a41a27148f4004c15a857
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | ADD | PRG | DuncanTwain | 22 | 7 | DOWNLOAD FILE |
| RANS ISK2 | ADD | PRG | DuncanTwain | 22 | 8 | 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 61 09 19 00 |=====.K...:.a...|
00000150: 8B 20 C2 28 37 37 33 29 B3 31 39 32 20 89 20 32 |. .(773).192 . 2|
00000160: 39 00 76 09 27 00 53 45 54 4C 46 53 20 20 20 B2 |9.v.'.SETLFS .|
00000170: 20 24 46 46 42 41 00 8B 09 28 00 53 45 54 4E 41 | $FFBA...(.SETNA|
00000180: 4D 20 20 20 B2 20 24 46 46 42 44 00 9D 09 29 00 |M . $FFBD...).|
00000190: 9F 20 20 20 20 20 B2 20 24 45 31 43 31 00 B2 09 |. . $E1C1...|
000001A0: 2A 00 43 48 4B 49 4E 20 20 20 20 B2 20 24 45 31 |*.CHKIN . $E1|
000001B0: 31 45 00 C3 09 2B 00 A0 20 20 20 20 B2 20 24 45 |1E...+.. . $E|
000001C0: 31 43 43 00 D6 09 2C 00 9C 43 48 4E 20 20 20 B2 |1CC...,..CHN .|
000001D0: 20 24 46 46 43 43 00 E9 09 2D 00 A1 49 4E 20 20 | $FFCC...-..IN |
000001E0: 20 20 B2 20 24 45 31 32 34 00 EF 09 2E 00 3B 00 | . $E124.....;.|
000001F0: FC 09 84 00 2E C6 20 22 41 44 C4 22 00 0B 0A 6C |...... "AD."...l|
00000200: 04 2E 57 B0 44 20 55 5A 45 AB 31 00 1E 0A 18 1C |..W.D UZE.1.....|
00000210: 55 5A 45 20 4A 53 52 20 45 52 52 50 47 4D 00 29 |UZE JSR ERRPGM.)|
00000220: 0A 1A 1C 4C 44 41 20 23 32 00 37 0A 1C 1C 4A 53 |...LDA #2.7...JS|
00000230: 52 20 24 42 34 46 34 00 45 0A 1E 1C 4A 53 52 20 |R $B4F4.E...JSR |
00000240: 24 41 44 39 45 00 53 0A 20 1C 4A 53 52 20 24 42 |$AD9E.S. .JSR $B|
00000250: 36 41 33 00 61 0A 22 1C 4A 53 52 20 24 42 34 46 |6A3.a.".JSR $B4F|
00000260: 34 00 69 0A 24 1C 54 41 59 00 75 0A 26 1C 42 4E |4.i.$.TAY.u.&.BN|
00000270: 45 20 55 5A 31 00 83 0A 28 1C 4A 4D 50 20 24 41 |E UZ1...(.JMP $A|
00000280: 46 30 38 00 94 0A 2A 1C 55 5A 31 20 4C 44 41 20 |F08...*.UZ1 LDA |
00000290: 23 22 2C 22 00 A4 0A 2C 1C 53 54 41 20 28 24 33 |#","...,.STA ($3|
000002A0: 33 29 2C 59 00 AC 0A 2E 1C 49 4E 59 00 B9 0A 30 |3),Y.....INY...0|
000002B0: 1C 4C 44 41 20 23 22 50 22 00 C9 0A 32 1C 53 54 |.LDA #"P"...2.ST|
000002C0: 41 20 28 24 33 33 29 2C 59 00 D1 0A 34 1C 49 4E |A ($33),Y...4.IN|
000002D0: 59 00 D9 0A 36 1C 54 59 41 00 E1 0A 38 1C 50 48 |Y...6.TYA...8.PH|
000002E0: 41 00 ED 0A 3A 1C 4C 44 41 20 24 33 33 00 F5 0A |A...:.LDA $33...|
000002F0: 3C 1C 50 48 41 00 01 0B 3E 1C 4C 44 41 20 24 33 |<.PHA...>.LDA $3|
00000300: 34 00 09 0B 40 1C 50 48 41 00 15 0B 42 1C 4A 53 |4...@.PHA...B.JS|
00000310: 52 20 24 37 39 00 21 0B 44 1C 42 45 51 20 55 5A |R $79.!.D.BEQ UZ|
00000320: 34 00 2F 0B 46 1C 4A 53 52 20 24 41 45 46 44 00 |4./.F.JSR $AEFD.|
00000330: 3D 0B 48 1C 4A 53 52 20 24 42 37 39 45 00 4A 0B |=.H.JSR $B79E.J.|
00000340: 4A 1C 4A 4D 50 20 55 5A 34 41 00 5D 0B 4C 1C 55 |J.JMP UZ4A.].L.U|
00000350: 5A 34 20 4C 44 58 20 44 45 56 49 43 45 00 71 0B |Z4 LDX DEVICE.q.|
00000360: 4D 1C 55 5A 34 41 20 53 54 58 20 44 45 56 49 43 |M.UZ4A STX DEVIC|
00000370: 45 00 7C 0B 4E 1C 53 54 58 20 54 32 00 89 0B 50 |E.|.N.STX T2...P|
00000380: 1C 4C 44 41 20 23 24 36 32 00 93 0B 52 1C 4A 53 |.LDA #$62...R.JS|
00000390: 52 20 A0 00 9E 0B 54 1C 4C 44 41 20 23 30 00 AD |R ....T.LDA #0..|
000003A0: 0B 56 1C 4A 53 52 20 53 45 54 4E 41 4D 00 BA 0B |.V.JSR SETNAM...|
000003B0: 58 1C 4C 44 41 20 23 24 36 32 00 C5 0B 5A 1C 4C |X.LDA #$62...Z.L|
000003C0: 44 58 20 54 32 00 D2 0B 5C 1C 4C 44 59 20 23 24 |DX T2...\.LDY #$|
000003D0: 30 46 00 E1 0B 5E 1C 4A 53 52 20 53 45 54 4C 46 |0F...^.JSR SETLF|
000003E0: 53 00 EB 0B 60 1C 4A 53 52 20 9F 00 F6 0B 62 1C |S...`.JSR ....b.|
000003F0: 4C 44 41 20 54 32 00 04 0C 64 1C 4A 53 52 20 24 |LDA T2...d.JSR $|
00000400: 46 46 42 31 00 12 0C 66 1C 4A 53 52 20 24 46 46 |FFB1...f.JSR $FF|
00000410: 41 45 00 1E 0C 68 1C 4C 44 41 20 24 39 30 00 2A |AE...h.LDA $90.*|
00000420: 0C 6A 1C 42 45 51 20 55 5A 35 00 35 0C 6C 1C 4C |.j.BEQ UZ5.5.l.L|
00000430: 44 58 20 23 35 00 44 0C 6E 1C 4A 4D 50 20 28 24 |DX #5.D.n.JMP ($|
00000440: 33 30 30 29 00 57 0C 70 1C 55 5A 35 20 4A 53 52 |300).W.p.UZ5 JSR|
00000450: 20 44 53 4B 43 48 4B 00 64 0C 72 1C 4C 44 41 20 | DSKCHK.d.r.LDA |
00000460: 23 24 36 33 00 6E 0C 74 1C 4A 53 52 20 A0 00 76 |#$63.n.t.JSR ..v|
00000470: 0C 76 1C 50 4C 41 00 7E 0C 78 1C 54 41 59 00 86 |.v.PLA.~.x.TAY..|
00000480: 0C 7A 1C 50 4C 41 00 8E 0C 7C 1C 54 41 58 00 96 |.z.PLA...|.TAX..|
00000490: 0C 7E 1C 50 4C 41 00 A5 0C 80 1C 4A 53 52 20 53 |.~.PLA.....JSR S|
000004A0: 45 54 4E 41 4D 00 B2 0C 82 1C 4C 44 41 20 23 24 |ETNAM.....LDA #$|
000004B0: 36 33 00 BD 0C 84 1C 4C 44 58 20 54 32 00 C5 0C |63.....LDX T2...|
000004C0: 86 1C 54 41 59 00 D4 0C 88 1C 4A 53 52 20 53 45 |..TAY.....JSR SE|
000004D0: 54 4C 46 53 00 DE 0C 8A 1C 4A 53 52 20 9F 00 ED |TLFS.....JSR ...|
000004E0: 0C 8C 1C 4A 53 52 20 44 53 4B 43 48 4B 00 FA 0C |...JSR DSKCHK...|
000004F0: 8E 1C 4A 53 52 20 9C 43 48 4E 00 07 0D 90 1C 4C |..JSR .CHN.....L|
00000500: 44 58 20 23 24 36 33 00 15 0D 92 1C 4A 53 52 20 |DX #$63.....JSR |
00000510: 43 48 4B 49 4E 00 22 0D 94 1C 4A 53 52 20 50 52 |CHKIN."...JSR PR|
00000520: 47 A1 00 2F 0D 96 1C 4A 53 52 20 50 52 47 A1 00 |G../...JSR PRG..|
00000530: 3B 0D 98 1C 4C 44 41 20 24 32 42 00 47 0D 9A 1C |;...LDA $2B.G...|
00000540: 4C 44 59 20 24 32 43 00 52 0D 9C 1C 53 54 41 20 |LDY $2C.R...STA |
00000550: 54 33 00 5D 0D 9E 1C 53 54 59 20 54 34 00 68 0D |T3.]...STY T4.h.|
00000560: A0 1C 4C 44 41 20 23 30 00 75 0D A2 1C 53 54 41 |..LDA #0.u...STA|
00000570: 20 55 5A 46 31 00 82 0D A4 1C 53 54 41 20 55 5A | UZF1.....STA UZ|
00000580: 46 32 00 95 0D AC 1C 55 5A 36 20 4A 53 52 20 4D |F2.....UZ6 JSR M|
00000590: 41 4B 42 55 46 00 A1 0D AE 1C 55 5A 37 20 53 45 |AKBUF.....UZ7 SE|
000005A0: 43 00 AD 0D B0 1C 4C 44 41 20 24 33 37 00 B8 0D |C.....LDA $37...|
000005B0: B2 1C 53 42 43 20 54 35 00 C4 0D B4 1C 4C 44 41 |..SBC T5.....LDA|
000005C0: 20 24 33 38 00 CF 0D B6 1C 53 42 43 20 54 36 00 | $38.....SBC T6.|
000005D0: DA 0D B8 1C 53 42 43 20 23 32 00 E7 0D BA 1C 42 |....SBC #2.....B|
000005E0: 43 53 20 55 5A 31 32 00 F6 0D BC 1C 4C 44 41 20 |CS UZ12.....LDA |
000005F0: 4C 49 4E 46 4C 47 00 02 0E BE 1C 42 45 51 20 55 |LINFLG.....BEQ U|
00000600: 5A 38 00 0E 0E C0 1C 4A 53 52 20 44 4C 5A 00 1A |Z8.....JSR DLZ..|
00000610: 0E C2 1C 4A 4D 50 20 55 5A 36 00 2B 0E C4 1C 55 |...JMP UZ6.+...U|
00000620: 5A 38 20 4A 53 52 20 55 5A 31 31 00 39 0E C6 1C |Z8 JSR UZ11.9...|
00000630: 4A 4D 50 20 24 41 34 33 35 00 4C 0E C8 1C 55 5A |JMP $A435.L...UZ|
00000640: 39 20 4C 44 41 20 4C 49 4E 46 4C 47 00 59 0E CA |9 LDA LINFLG.Y..|
00000650: 1C 42 45 51 20 55 5A 31 30 00 65 0E CC 1C 4A 53 |.BEQ UZ10.e...JS|
00000660: 52 20 44 4C 5A 00 77 0E CE 1C 55 5A 31 30 20 4A |R DLZ.w...UZ10 J|
00000670: 53 52 20 55 5A 31 31 00 85 0E D2 1C 4A 4D 50 20 |SR UZ11.....JMP |
00000680: 24 41 34 37 34 00 97 0E D4 1C 55 5A 31 31 20 4A |$A474.....UZ11 J|
00000690: 53 52 20 9C 43 48 4E 00 A4 0E D6 1C 4C 44 41 20 |SR .CHN.....LDA |
000006A0: 23 24 36 32 00 AE 0E D8 1C 4A 53 52 20 A0 00 BC |#$62.....JSR ...|
000006B0: 0E DA 1C 4A 53 52 20 24 46 46 45 37 00 CA 0E DC |...JSR $FFE7....|
000006C0: 1C 4A 53 52 20 24 41 35 33 33 00 D8 0E DE 1C 4A |.JSR $A533.....J|
000006D0: 4D 50 20 24 41 36 35 39 00 EA 0E E0 1C 55 5A 31 |MP $A659.....UZ1|
000006E0: 32 20 4A 53 52 20 A1 4C 49 4E 00 F7 0E E2 1C 4C |2 JSR .LIN.....L|
000006F0: 44 41 20 55 5A 46 31 00 03 0F E4 1C 42 4E 45 20 |DA UZF1.....BNE |
00000700: 55 5A 39 00 17 0F E8 1C 55 5A 31 33 20 4A 53 52 |UZ9.....UZ13 JSR|
00000710: 20 43 4F 4D 50 41 52 00 24 0F EA 1C 42 43 43 20 | COMPAR.$...BCC |
00000720: 55 5A 31 35 00 2C 0F EC 1C 50 48 50 00 3B 0F EE |UZ15.,...PHP.;..|
00000730: 1C 4A 53 52 20 55 50 44 41 42 50 00 4A 0F F0 1C |.JSR UPDABP.J...|
00000740: 53 54 41 20 4C 49 4E 46 4C 47 00 52 0F F2 1C 50 |STA LINFLG.R...P|
00000750: 4C 50 00 5E 0F F4 1C 42 4E 45 20 55 5A 37 00 6B |LP.^...BNE UZ7.k|
00000760: 0F F6 1C 4C 44 41 20 55 5A 46 32 00 78 0F F8 1C |...LDA UZF2.x...|
00000770: 42 4E 45 20 55 5A 31 34 00 83 0F FA 1C 4C 44 41 |BNE UZ14.....LDA|
00000780: 20 54 33 00 8E 0F FC 1C 4C 44 59 20 54 34 00 9C | T3.....LDY T4..|
00000790: 0F FE 1C 53 54 41 20 53 44 50 54 52 00 AC 0F 00 |...STA SDPTR....|
000007A0: 1D 53 54 59 20 53 44 50 54 52 AA 31 00 B9 0F 02 |.STY SDPTR.1....|
000007B0: 1D 53 54 59 20 55 5A 46 32 00 CD 0F 04 1D 55 5A |.STY UZF2.....UZ|
000007C0: 31 34 20 4A 53 52 20 54 33 42 55 4D 50 00 D9 0F |14 JSR T3BUMP...|
000007D0: 06 1D 4A 4D 50 20 55 5A 37 00 ED 0F 08 1D 55 5A |..JMP UZ7.....UZ|
000007E0: 31 35 20 4C 44 41 20 4C 49 4E 46 4C 47 00 FA 0F |15 LDA LINFLG...|
000007F0: 0A 1D 42 45 51 20 55 5A 31 36 00 06 10 0C 1D 4A |..BEQ UZ16.....J|
00000800: 53 52 20 44 4C 5A 00 1A 10 0E 1D 55 5A 31 36 20 |SR DLZ.....UZ16 |
00000810: 4A 53 52 20 43 4F 4D 50 41 52 00 27 10 10 1D 42 |JSR COMPAR.'...B|
00000820: 43 53 20 55 5A 31 37 00 36 10 12 1D 4A 53 52 20 |CS UZ17.6...JSR |
00000830: 54 33 42 55 4D 50 00 3E 10 14 1D 43 4C 43 00 4B |T3BUMP.>...CLC.K|
00000840: 10 16 1D 42 43 43 20 55 5A 31 36 00 5B 10 18 1D |...BCC UZ16.[...|
00000850: 55 5A 31 37 20 4C 44 41 20 54 35 00 66 10 1A 1D |UZ17 LDA T5.f...|
00000860: 4C 44 59 20 54 36 00 72 10 1C 1D 53 54 41 20 24 |LDY T6.r...STA $|
00000870: 32 32 00 7E 10 1E 1D 53 54 59 20 24 32 33 00 8D |22.~...STY $23..|
00000880: 10 20 1D 4A 53 52 20 4D 41 4B 42 55 46 00 9A 10 |. .JSR MAKBUF...|
00000890: 22 1D 4C 44 59 20 23 24 46 46 00 A7 10 24 1D 55 |".LDY #$FF...$.U|
000008A0: 5A 31 38 20 49 4E 59 00 B7 10 26 1D 4C 44 41 20 |Z18 INY...&.LDA |
000008B0: 28 24 32 32 29 2C 59 00 C6 10 28 1D 53 54 41 20 |($22),Y...(.STA |
000008C0: 28 54 35 29 2C 59 00 D3 10 2A 1D 43 50 59 20 4C |(T5),Y...*.CPY L|
000008D0: 49 4E C3 00 E0 10 2C 1D 42 4E 45 20 55 5A 31 38 |IN....,.BNE UZ18|
000008E0: 00 ED 10 2E 1D 42 45 51 20 55 5A 31 33 00 F3 10 |.....BEQ UZ13...|
000008F0: 30 1D 3B 00 07 11 32 1D 44 53 4B 43 48 4B 20 4C |0.;...2.DSKCHK L|
00000900: 44 58 20 23 24 36 32 00 15 11 34 1D 4A 53 52 20 |DX #$62...4.JSR |
00000910: 43 48 4B 49 4E 00 22 11 36 1D 4A 53 52 20 50 52 |CHKIN.".6.JSR PR|
00000920: 47 A1 00 2F 11 38 1D 43 4D 50 20 23 22 32 22 00 |G../.8.CMP #"2".|
00000930: 3C 11 3A 1D 42 43 43 20 44 4B 43 32 00 49 11 3C |<.:.BCC DKC2.I.<|
00000940: 1D 43 4D 50 20 23 22 37 22 00 56 11 3E 1D 42 4E |.CMP #"7".V.>.BN|
00000950: 45 20 44 4B 43 31 00 63 11 40 1D 4A 53 52 20 50 |E DKC1.c.@.JSR P|
00000960: 52 47 A1 00 70 11 42 1D 43 4D 50 20 23 22 33 22 |RG..p.B.CMP #"3"|
00000970: 00 7D 11 44 1D 42 4E 45 20 44 4B 43 31 00 85 11 |.}.D.BNE DKC1...|
00000980: 46 1D 43 4C 43 00 93 11 48 1D 2E 42 59 54 45 20 |F.CLC...H..BYTE |
00000990: 24 32 34 00 A0 11 4A 1D 44 4B 43 31 20 53 45 43 |$24...J.DKC1 SEC|
000009A0: 00 AD 11 4C 1D 44 4B 43 32 20 50 48 50 00 BF 11 |...L.DKC2 PHP...|
000009B0: 4E 1D 44 4B 43 33 20 4A 53 52 20 50 52 47 A1 00 |N.DKC3 JSR PRG..|
000009C0: CB 11 50 1D 4C 44 41 20 24 39 30 00 D8 11 52 1D |..P.LDA $90...R.|
000009D0: 42 45 51 20 44 4B 43 33 00 E3 11 54 1D 4C 44 41 |BEQ DKC3...T.LDA|
000009E0: 20 23 30 00 EF 11 56 1D 53 54 41 20 24 39 30 00 | #0...V.STA $90.|
000009F0: F7 11 58 1D 50 4C 50 00 04 12 5A 1D 42 43 53 20 |..X.PLP...Z.BCS |
00000A00: 50 47 47 31 00 0C 12 5C 1D 52 54 53 00 12 12 5E |PGG1...\.RTS...^|
00000A10: 1D 3B 00 23 12 60 1D 50 52 47 A1 20 4A 53 52 20 |.;.#.`.PRG. JSR |
00000A20: A1 49 4E 00 2B 12 62 1D 50 48 41 00 37 12 64 1D |.IN.+.b.PHA.7.d.|
00000A30: 4C 44 41 20 24 39 30 00 42 12 66 1D AF 20 23 24 |LDA $90.B.f.. #$|
00000A40: 42 46 00 4F 12 68 1D 42 4E 45 20 50 47 47 31 00 |BF.O.h.BNE PGG1.|
00000A50: 57 12 6A 1D 50 4C 41 00 5F 12 6C 1D 52 54 53 00 |W.j.PLA._.l.RTS.|
00000A60: 71 12 6E 1D 50 47 47 31 20 4A 53 52 20 55 5A 31 |q.n.PGG1 JSR UZ1|
00000A70: 31 00 81 12 70 1D 4C 44 41 20 23 B3 55 5A 45 52 |1...p.LDA #.UZER|
00000A80: 52 00 8D 12 72 1D 53 54 41 20 24 32 32 00 9D 12 |R...r.STA $22...|
00000A90: 74 1D 4C 44 41 20 23 B1 55 5A 45 52 52 00 AB 12 |t.LDA #.UZERR...|
00000AA0: 76 1D 4A 4D 50 20 24 41 34 34 35 00 B1 12 78 1D |v.JMP $A445...x.|
00000AB0: 3B 00 C6 12 7A 1D 55 5A 45 52 52 20 2E C6 20 22 |;...z.UZERR .. "|
00000AC0: 4D 45 52 47 C5 22 00 CC 12 7C 1D 3B 00 DF 12 7E |MERG."...|.;...~|
00000AD0: 1D 4C 49 4E 46 4C 47 20 2E 42 59 54 45 20 30 00 |.LINFLG .BYTE 0.|
00000AE0: F0 12 80 1D 4C 49 4E C3 20 2E 42 59 54 45 20 30 |....LIN. .BYTE 0|
00000AF0: 00 03 13 82 1D 55 5A 46 31 20 20 20 2E 42 59 54 |.....UZF1 .BYT|
00000B00: 45 20 30 00 16 13 84 1D 55 5A 46 32 20 20 20 2E |E 0.....UZF2 .|
00000B10: 42 59 54 45 20 30 00 1C 13 88 1D 3B 00 2C 13 8A |BYTE 0.....;.,..|
00000B20: 1D A1 4C 49 4E 20 4C 44 59 20 23 30 00 3C 13 8C |..LIN LDY #0.<..|
00000B30: 1D 47 54 4C 31 20 53 54 59 20 54 32 00 49 13 8E |.GTL1 STY T2.I..|
00000B40: 1D 4A 53 52 20 50 52 47 A1 00 54 13 90 1D 4C 44 |.JSR PRG..T...LD|
00000B50: 59 20 54 32 00 63 13 92 1D 53 54 41 20 28 54 35 |Y T2.c...STA (T5|
00000B60: 29 2C 59 00 6F 13 94 1D 4C 44 58 20 24 39 30 00 |),Y.o...LDX $90.|
00000B70: 7C 13 96 1D 53 54 58 20 55 5A 46 31 00 89 13 98 ||...STX UZF1....|
00000B80: 1D 42 4E 45 20 47 54 4C 34 00 94 13 9A 1D 43 50 |.BNE GTL4.....CP|
00000B90: 59 20 23 34 00 A1 13 9C 1D 42 43 43 20 47 54 4C |Y #4.....BCC GTL|
00000BA0: 33 00 A9 13 9E 1D 54 41 58 00 B6 13 A0 1D 42 45 |3.....TAX.....BE|
00000BB0: 51 20 47 54 4C 34 00 C3 13 A2 1D 47 54 4C 32 20 |Q GTL4.....GTL2 |
00000BC0: 49 4E 59 00 D0 13 A4 1D 42 4E 45 20 47 54 4C 31 |INY.....BNE GTL1|
00000BD0: 00 DD 13 A6 1D 4A 53 52 20 55 5A 31 31 00 EB 13 |.....JSR UZ11...|
00000BE0: A8 1D 4A 4D 50 20 24 41 42 36 36 00 FB 13 AA 1D |..JMP $AB66.....|
00000BF0: 47 54 4C 33 20 43 50 59 20 23 31 00 08 14 AC 1D |GTL3 CPY #1.....|
00000C00: 42 4E 45 20 47 54 4C 32 00 10 14 AE 1D 54 41 58 |BNE GTL2.....TAX|
00000C10: 00 1D 14 B0 1D 42 4E 45 20 47 54 4C 32 00 25 14 |.....BNE GTL2.%.|
00000C20: B2 1D 44 45 58 00 32 14 B4 1D 53 54 58 20 55 5A |..DEX.2...STX UZ|
00000C30: 46 31 00 44 14 B6 1D 47 54 4C 34 20 53 54 59 20 |F1.D...GTL4 STY |
00000C40: 4C 49 4E C3 00 4C 14 B8 1D 52 54 53 00 52 14 BA |LIN..L...RTS.R..|
00000C50: 1D 3B 00 61 14 BC 1D 4D 41 4B 42 55 46 20 43 4C |.;.a...MAKBUF CL|
00000C60: 43 00 6D 14 BE 1D 4C 44 41 20 24 33 37 00 79 14 |C.m...LDA $37.y.|
00000C70: C0 1D 41 44 43 20 24 32 44 00 81 14 C2 1D 50 48 |..ADC $2D.....PH|
00000C80: 41 00 8D 14 C4 1D 4C 44 41 20 24 33 38 00 99 14 |A.....LDA $38...|
00000C90: C6 1D 41 44 43 20 24 32 45 00 A1 14 C8 1D 4C 53 |..ADC $2E.....LS|
00000CA0: 52 00 B1 14 CA 1D 53 54 41 20 53 49 50 54 52 AA |R.....STA SIPTR.|
00000CB0: 31 00 BC 14 CC 1D 53 54 41 20 54 36 00 C4 14 CE |1.....STA T6....|
00000CC0: 1D 50 4C 41 00 CB 14 D0 1D 52 B0 00 D9 14 D2 1D |.PLA.....R......|
00000CD0: 53 54 41 20 53 49 50 54 52 00 E4 14 D4 1D 53 54 |STA SIPTR.....ST|
00000CE0: 41 20 54 35 00 EF 14 D6 1D 4C 44 41 20 23 30 00 |A T5.....LDA #0.|
00000CF0: FE 14 D8 1D 53 54 41 20 4C 49 4E 46 4C 47 00 06 |....STA LINFLG..|
00000D00: 15 DA 1D 52 54 53 00 0C 15 DC 1D 3B 00 1B 15 DE |...RTS.....;....|
00000D10: 1D 55 50 44 41 42 50 20 53 45 43 00 28 15 E0 1D |.UPDABP SEC.(...|
00000D20: 4C 44 41 20 4C 49 4E C3 00 33 15 E2 1D 41 44 43 |LDA LIN..3...ADC|
00000D30: 20 54 35 00 3E 15 E4 1D 53 54 41 20 54 35 00 49 | T5.>...STA T5.I|
00000D40: 15 E6 1D 4C 44 41 20 23 30 00 54 15 E8 1D 41 44 |...LDA #0.T...AD|
00000D50: 43 20 54 36 00 5F 15 EA 1D 53 54 41 20 54 36 00 |C T6._...STA T6.|
00000D60: 67 15 EC 1D 52 54 53 00 6D 15 EE 1D 3B 00 7F 15 |g...RTS.m...;...|
00000D70: F0 1D 43 4F 4D 50 41 52 20 4C 44 59 20 23 31 00 |..COMPAR LDY #1.|
00000D80: 87 15 F2 1D 53 45 43 00 96 15 F4 1D 4C 44 41 20 |....SEC.....LDA |
00000D90: 28 54 33 29 2C 59 00 A3 15 F6 1D 42 45 51 20 43 |(T3),Y.....BEQ C|
00000DA0: 4F 4D 32 00 AE 15 F8 1D 4C 44 59 20 23 33 00 BD |OM2.....LDY #3..|
00000DB0: 15 FA 1D 4C 44 41 20 28 54 33 29 2C 59 00 CC 15 |...LDA (T3),Y...|
00000DC0: FC 1D 43 4D 50 20 28 54 35 29 2C 59 00 D9 15 FE |..CMP (T5),Y....|
00000DD0: 1D 42 43 43 20 43 4F 4D 31 00 E6 15 00 1E 42 4E |.BCC COM1.....BN|
00000DE0: 45 20 43 4F 4D 31 00 EE 15 02 1E 44 45 59 00 FD |E COM1.....DEY..|
00000DF0: 15 04 1E 4C 44 41 20 28 54 33 29 2C 59 00 0C 16 |...LDA (T3),Y...|
00000E00: 06 1E 43 4D 50 20 28 54 35 29 2C 59 00 19 16 08 |..CMP (T5),Y....|
00000E10: 1E 43 4F 4D 31 20 52 54 53 00 29 16 0A 1E 43 4F |.COM1 RTS.)...CO|
00000E20: 4D 32 20 4C 44 41 20 23 31 00 31 16 0C 1E 52 54 |M2 LDA #1.1...RT|
00000E30: 53 00 37 16 0E 1E 3B 00 49 16 10 1E 54 33 42 55 |S.7...;.I...T3BU|
00000E40: 4D 50 20 4C 44 59 20 23 34 00 5D 16 12 1E 4D 4B |MP LDY #4.]...MK|
00000E50: 55 31 20 4C 44 41 20 28 54 33 29 2C 59 00 6A 16 |U1 LDA (T3),Y.j.|
00000E60: 14 1E 42 45 51 20 4D 4B 55 32 00 72 16 16 1E 49 |..BEQ MKU2.r...I|
00000E70: 4E 59 00 7F 16 18 1E 42 4E 45 20 4D 4B 55 31 00 |NY.....BNE MKU1.|
00000E80: 8C 16 1A 1E 4A 4D 50 20 50 47 47 31 00 99 16 1C |....JMP PGG1....|
00000E90: 1E 4D 4B 55 32 20 54 59 41 00 A1 16 1E 1E 53 45 |.MKU2 TYA.....SE|
00000EA0: 43 00 AC 16 20 1E 41 44 43 20 54 33 00 B7 16 22 |C... .ADC T3..."|
00000EB0: 1E 53 54 41 20 54 33 00 C2 16 24 1E 4C 44 41 20 |.STA T3...$.LDA |
00000EC0: 54 34 00 CD 16 26 1E 41 44 43 20 23 30 00 D8 16 |T4...&.ADC #0...|
00000ED0: 28 1E 53 54 41 20 54 34 00 E0 16 2A 1E 52 54 53 |(.STA T4...*.RTS|
00000EE0: 00 E6 16 2C 1E 3B 00 F7 16 64 1F 44 4C 5A 20 4C |...,.;...d.DLZ L|
00000EF0: 44 41 20 55 5A 46 32 00 04 17 66 1F 42 4E 45 20 |DA UZF2...f.BNE |
00000F00: 44 4C 5A 31 00 0F 17 68 1F 4C 44 41 20 54 33 00 |DLZ1...h.LDA T3.|
00000F10: 1A 17 6A 1F 4C 44 59 20 54 34 00 28 17 6C 1F 53 |..j.LDY T4.(.l.S|
00000F20: 54 41 20 53 44 50 54 52 00 38 17 6E 1F 53 54 59 |TA SDPTR.8.n.STY|
00000F30: 20 53 44 50 54 52 AA 31 00 48 17 70 1F 44 4C 5A | SDPTR.1.H.p.DLZ|
00000F40: 31 20 4C 44 41 20 23 30 00 55 17 72 1F 53 54 41 |1 LDA #0.U.r.STA|
00000F50: 20 55 5A 46 32 00 5B 17 74 1F 3B 00 6D 17 76 1F | UZF2.[.t.;.m.v.|
00000F60: 44 45 4C 49 4E 53 20 4C 44 41 20 54 33 00 78 17 |DELINS LDA T3.x.|
00000F70: 78 1F 4C 44 59 20 54 34 00 87 17 7A 1F 53 54 41 |x.LDY T4...z.STA|
00000F80: 20 4D 56 53 54 52 54 00 98 17 7C 1F 53 54 59 20 | MVSTRT...|.STY |
00000F90: 4D 56 53 54 52 54 AA 31 00 A0 17 7E 1F 53 45 43 |MVSTRT.1...~.SEC|
00000FA0: 00 AE 17 80 1F 53 42 43 20 53 44 50 54 52 00 BA |.....SBC SDPTR..|
00000FB0: 17 82 1F 53 54 41 20 24 32 32 00 C2 17 84 1F 54 |...STA $22.....T|
00000FC0: 59 41 00 D2 17 86 1F 53 42 43 20 53 44 50 54 52 |YA.....SBC SDPTR|
00000FD0: AA 31 00 DE 17 88 1F 53 54 41 20 24 32 33 00 E6 |.1.....STA $23..|
00000FE0: 17 8A 1F 53 45 43 00 F1 17 8C 1F 4C 44 41 20 54 |...SEC.....LDA T|
00000FF0: 35 00 FF 17 8E 1F 53 42 43 20 53 49 50 54 52 00 |5.....SBC SIPTR.|
00001000: 07 18 90 1F 50 48 41 00 12 18 92 1F 4C 44 41 20 |....PHA.....LDA |
00001010: 54 36 00 22 18 94 1F 53 42 43 20 53 49 50 54 52 |T6."...SBC SIPTR|
00001020: AA 31 00 2A 18 96 1F 54 41 59 00 32 18 98 1F 50 |.1.*...TAY.2...P|
00001030: 4C 41 00 3A 18 9A 1F 53 45 43 00 46 18 9C 1F 53 |LA.:...SEC.F...S|
00001040: 42 43 20 24 32 32 00 52 18 9E 1F 53 54 41 20 24 |BC $22.R...STA $|
00001050: 32 32 00 5A 18 A0 1F 54 59 41 00 66 18 A2 1F 53 |22.Z...TYA.f...S|
00001060: 42 43 20 24 32 33 00 72 18 A4 1F 53 54 41 20 24 |BC $23.r...STA $|
00001070: 32 33 00 7A 18 A6 1F 43 4C 43 00 85 18 A8 1F 4C |23.z...CLC.....L|
00001080: 44 41 20 54 33 00 91 18 AA 1F 41 44 43 20 24 32 |DA T3.....ADC $2|
00001090: 32 00 9C 18 AC 1F 53 54 41 20 54 33 00 AB 18 AE |2.....STA T3....|
000010A0: 1F 53 54 41 20 4D 56 44 45 53 54 00 B6 18 B0 1F |.STA MVDEST.....|
000010B0: 4C 44 41 20 54 34 00 C2 18 B2 1F 41 44 43 20 24 |LDA T4.....ADC $|
000010C0: 32 33 00 CD 18 B4 1F 53 54 41 20 54 34 00 DE 18 |23.....STA T4...|
000010D0: B6 1F 53 54 41 20 4D 56 44 45 53 54 AA 31 00 E6 |..STA MVDEST.1..|
000010E0: 18 B8 1F 43 4C 43 00 F2 18 BA 1F 4C 44 41 20 24 |...CLC.....LDA $|
000010F0: 32 44 00 FE 18 BC 1F 53 54 41 20 4D 56 80 00 0A |2D.....STA MV...|
00001100: 19 BE 1F 41 44 43 20 24 32 32 00 16 19 C0 1F 53 |...ADC $22.....S|
00001110: 54 41 20 24 32 44 00 22 19 C2 1F 4C 44 41 20 24 |TA $2D."...LDA $|
00001120: 32 45 00 30 19 C4 1F 53 54 41 20 4D 56 80 AA 31 |2E.0...STA MV..1|
00001130: 00 3C 19 C6 1F 41 44 43 20 24 32 33 00 48 19 C8 |.<...ADC $23.H..|
00001140: 1F 53 54 41 20 24 32 45 00 56 19 CA 1F 4A 53 52 |.STA $2E.V...JSR|
00001150: 20 4D 56 4D 45 4D 00 64 19 CC 1F 4C 44 41 20 53 | MVMEM.d...LDA S|
00001160: 44 50 54 52 00 73 19 CE 1F 53 54 41 20 4D 56 44 |DPTR.s...STA MVD|
00001170: 45 53 54 00 83 19 D0 1F 4C 44 41 20 53 44 50 54 |EST.....LDA SDPT|
00001180: 52 AA 31 00 94 19 D2 1F 53 54 41 20 4D 56 44 45 |R.1.....STA MVDE|
00001190: 53 54 AA 31 00 A2 19 D4 1F 4C 44 41 20 53 49 50 |ST.1.....LDA SIP|
000011A0: 54 52 00 B2 19 D6 1F 4C 44 59 20 53 49 50 54 52 |TR.....LDY SIPTR|
000011B0: AA 31 00 C1 19 D8 1F 53 54 41 20 4D 56 53 54 52 |.1.....STA MVSTR|
000011C0: 54 00 D2 19 DA 1F 53 54 59 20 4D 56 53 54 52 54 |T.....STY MVSTRT|
000011D0: AA 31 00 DD 19 DC 1F 4C 44 41 20 54 35 00 E8 19 |.1.....LDA T5...|
000011E0: DE 1F 4C 44 59 20 54 36 00 F4 19 E0 1F 53 54 41 |..LDY T6.....STA|
000011F0: 20 4D 56 80 00 02 1A E2 1F 53 54 59 20 4D 56 80 | MV......STY MV.|
00001200: AA 31 00 10 1A E4 1F 4A 4D 50 20 4D 56 4D 45 4D |.1.....JMP MVMEM|
00001210: 00 16 1A E6 1F 3B 00 27 1A E8 1F 53 44 50 54 52 |.....;.'...SDPTR|
00001220: 20 2E 57 B0 44 20 30 00 38 1A EA 1F 53 49 50 54 | .W.D 0.8...SIPT|
00001230: 52 20 2E 57 B0 44 20 30 00 3E 1A EC 1F 3B 00 50 |R .W.D 0.>...;.P|
00001240: 1A 3A 20 4D 56 4D 45 4D 20 4C 44 41 20 4D 56 80 |.: MVMEM LDA MV.|
00001250: 00 5D 1A 3C 20 42 4E 45 20 4D 56 4D 31 00 6B 1A |.].< BNE MVM1.k.|
00001260: 3E 20 44 45 43 20 4D 56 80 AA 31 00 7C 1A 40 20 |> DEC MV..1.|.@ |
00001270: 4D 56 4D 31 20 44 45 43 20 4D 56 80 00 82 1A 42 |MVM1 DEC MV....B|
00001280: 20 3B 00 96 1A 44 20 4D 56 4D 32 20 4C 44 41 20 | ;...D MVM2 LDA |
00001290: 4D 56 53 54 52 54 00 A2 1A 46 20 53 54 41 20 24 |MVSTRT...F STA $|
000012A0: 32 32 00 B1 1A 48 20 4C 44 41 20 4D 56 44 45 53 |22...H LDA MVDES|
000012B0: 54 00 BD 1A 4A 20 53 54 41 20 24 32 34 00 CB 1A |T...J STA $24...|
000012C0: 4C 20 4C 44 41 20 4D 56 80 AA 31 00 DC 1A 4E 20 |L LDA MV..1...N |
000012D0: 43 4D 50 20 4D 56 53 54 52 54 AA 31 00 E9 1A 50 |CMP MVSTRT.1...P|
000012E0: 20 42 43 43 20 4D 56 4D 35 00 F6 1A 52 20 42 4E | BCC MVM5...R BN|
000012F0: 45 20 4D 56 4D 33 00 02 1B 54 20 4C 44 41 20 4D |E MVM3...T LDA M|
00001300: 56 80 00 11 1B 56 20 43 4D 50 20 4D 56 53 54 52 |V....V CMP MVSTR|
00001310: 54 00 1E 1B 58 20 42 43 43 20 4D 56 4D 35 00 34 |T...X BCC MVM5.4|
00001320: 1B 5A 20 4D 56 4D 33 20 4C 44 41 20 4D 56 44 45 |.Z MVM3 LDA MVDE|
00001330: 53 54 AA 31 00 45 1B 5C 20 43 4D 50 20 4D 56 53 |ST.1.E.\ CMP MVS|
00001340: 54 52 54 AA 31 00 54 1B 5E 20 42 43 43 20 44 4D |TRT.1.T.^ BCC DM|
00001350: 56 4D 45 4D 00 63 1B 60 20 42 4E 45 20 55 4D 56 |VMEM.c.` BNE UMV|
00001360: 4D 45 4D 00 6F 1B 62 20 4C 44 41 20 24 32 34 00 |MEM.o.b LDA $24.|
00001370: 7B 1B 64 20 43 4D 50 20 24 32 32 00 88 1B 66 20 |{.d CMP $22...f |
00001380: 42 45 51 20 4D 56 4D 35 00 97 1B 68 20 42 43 43 |BEQ MVM5...h BCC|
00001390: 20 44 4D 56 4D 45 4D 00 AA 1B 6A 20 55 4D 56 4D | DMVMEM...j UMVM|
000013A0: 45 4D 20 4C 44 41 20 4D 56 80 00 B2 1B 6C 20 53 |EM LDA MV....l S|
000013B0: 45 43 00 C1 1B 6E 20 53 42 43 20 4D 56 53 54 52 |EC...n SBC MVSTR|
000013C0: 54 00 C9 1B 70 20 54 41 59 00 D7 1B 72 20 4C 44 |T...p TAY...r LD|
000013D0: 41 20 4D 56 80 AA 31 00 E8 1B 74 20 53 42 43 20 |A MV..1...t SBC |
000013E0: 4D 56 53 54 52 54 AA 31 00 F0 1B 76 20 50 48 41 |MVSTRT.1...v PHA|
000013F0: 00 F8 1B 78 20 43 4C 43 00 09 1C 7A 20 41 44 43 |...x CLC...z ADC|
00001400: 20 4D 56 53 54 52 54 AA 31 00 15 1C 7C 20 53 54 | MVSTRT.1...| ST|
00001410: 41 20 24 32 33 00 1D 1C 7E 20 50 4C 41 00 25 1C |A $23...~ PLA.%.|
00001420: 80 20 43 4C 43 00 36 1C 82 20 41 44 43 20 4D 56 |. CLC.6.. ADC MV|
00001430: 44 45 53 54 AA 31 00 42 1C 84 20 53 54 41 20 24 |DEST.1.B.. STA $|
00001440: 32 35 00 57 1C 86 20 4D 56 4D 34 20 4C 44 41 20 |25.W.. MVM4 LDA |
00001450: 28 24 32 32 29 2C 59 00 67 1C 88 20 53 54 41 20 |($22),Y.g.. STA |
00001460: 28 24 32 34 29 2C 59 00 6F 1C 8A 20 44 45 59 00 |($24),Y.o.. DEY.|
00001470: 7C 1C 8C 20 43 50 59 20 23 24 46 46 00 89 1C 8E ||.. CPY #$FF....|
00001480: 20 42 4E 45 20 4D 56 4D 34 00 95 1C 90 20 4C 44 | BNE MVM4.... LD|
00001490: 41 20 24 32 33 00 A6 1C 92 20 43 4D 50 20 4D 56 |A $23.... CMP MV|
000014A0: 53 54 52 54 AA 31 00 B3 1C 94 20 42 45 51 20 4D |STRT.1.... BEQ M|
000014B0: 56 4D 35 00 BF 1C 96 20 44 45 43 20 24 32 33 00 |VM5.... DEC $23.|
000014C0: CB 1C 98 20 44 45 43 20 24 32 35 00 D8 1C 9A 20 |... DEC $25.... |
000014D0: 4A 4D 50 20 4D 56 4D 34 00 E5 1C 9C 20 4D 56 4D |JMP MVM4.... MVM|
000014E0: 35 20 52 54 53 00 FD 1C 9E 20 44 4D 56 4D 45 4D |5 RTS.... DMVMEM|
000014F0: 20 4C 44 41 20 4D 56 53 54 52 54 AA 31 00 09 1D | LDA MVSTRT.1...|
00001500: A0 20 53 54 41 20 24 32 33 00 1A 1D A2 20 4C 44 |. STA $23.... LD|
00001510: 41 20 4D 56 44 45 53 54 AA 31 00 26 1D A4 20 53 |A MVDEST.1.&.. S|
00001520: 54 41 20 24 32 35 00 32 1D A6 20 4C 44 41 20 4D |TA $25.2.. LDA M|
00001530: 56 80 00 3A 1D A8 20 53 45 43 00 49 1D AA 20 53 |V..:.. SEC.I.. S|
00001540: 42 43 20 4D 56 53 54 52 54 00 54 1D AC 20 53 54 |BC MVSTRT.T.. ST|
00001550: 41 20 54 32 00 5F 1D AE 20 49 4E 43 20 54 32 00 |A T2._.. INC T2.|
00001560: 6D 1D B0 20 4C 44 41 20 4D 56 80 AA 31 00 7E 1D |m.. LDA MV..1.~.|
00001570: B2 20 53 42 43 20 4D 56 53 54 52 54 AA 31 00 89 |. SBC MVSTRT.1..|
00001580: 1D B4 20 4C 44 59 20 23 30 00 91 1D B6 20 54 41 |.. LDY #0.... TA|
00001590: 58 00 9E 1D B8 20 42 45 51 20 4D 56 4D 37 00 B3 |X.... BEQ MVM7..|
000015A0: 1D BA 20 4D 56 4D 36 20 4C 44 41 20 28 24 32 32 |.. MVM6 LDA ($22|
000015B0: 29 2C 59 00 C3 1D BC 20 53 54 41 20 28 24 32 34 |),Y.... STA ($24|
000015C0: 29 2C 59 00 CB 1D BE 20 49 4E 59 00 D8 1D C0 20 |),Y.... INY.... |
000015D0: 42 4E 45 20 4D 56 4D 36 00 E4 1D C2 20 49 4E 43 |BNE MVM6.... INC|
000015E0: 20 24 32 33 00 F0 1D C4 20 49 4E 43 20 24 32 35 | $23.... INC $25|
000015F0: 00 F8 1D C6 20 44 45 58 00 05 1E C8 20 42 4E 45 |.... DEX.... BNE|
00001600: 20 4D 56 4D 36 00 1A 1E CA 20 4D 56 4D 37 20 4C | MVM6.... MVM7 L|
00001610: 44 41 20 28 24 32 32 29 2C 59 00 2A 1E CC 20 53 |DA ($22),Y.*.. S|
00001620: 54 41 20 28 24 32 34 29 2C 59 00 32 1E CE 20 49 |TA ($24),Y.2.. I|
00001630: 4E 59 00 3D 1E D0 20 43 50 59 20 54 32 00 4A 1E |NY.=.. CPY T2.J.|
00001640: D2 20 42 4E 45 20 4D 56 4D 37 00 52 1E D4 20 52 |. BNE MVM7.R.. R|
00001650: 54 53 00 58 1E D6 20 3B 00 6A 1E D8 20 4D 56 53 |TS.X.. ;.j.. MVS|
00001660: 54 52 54 20 2E 57 B0 44 20 30 00 7C 1E DA 20 4D |TRT .W.D 0.|.. M|
00001670: 56 44 45 53 54 20 2E 57 B0 44 20 30 00 8B 1E DC |VDEST .W.D 0....|
00001680: 20 4D 56 80 20 2E 57 B0 44 20 30 00 91 1E DE 20 | MV. .W.D 0.... |
00001690: 3B 00 A4 1E 22 22 44 45 56 49 43 45 20 2E 42 59 |;...""DEVICE .BY|
000016A0: 54 45 20 38 00 B7 1E BE 23 45 52 52 50 47 4D 20 |TE 8....#ERRPGM |
000016B0: 4C 44 58 20 24 33 41 00 BF 1E C0 23 49 4E 58 00 |LDX $3A....#INX.|
000016C0: CC 1E C2 23 42 4E 45 20 45 50 47 31 00 D4 1E C4 |...#BNE EPG1....|
000016D0: 23 52 54 53 00 E7 1E C6 23 45 50 47 31 20 4A 4D |#RTS....#EPG1 JM|
000016E0: 50 20 24 41 46 30 38 00 ED 1E C8 23 3B 00 00 00 |P $AF08....#;...|
..(.... 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...:.A.... B(773).192 . 29.V.'.SE
TLFS . $FFBA...(.SETNAM . $FFBD...).
. . $E1C1...*.CHKIN . $E11E.C.+.
. $E1CC.V.,..CHN . $FFCC...-..IN
. $E124.....;......F "ADD"...L..W.D UZ
E.1.....UZE JSR ERRPGM.)...LDA #2.7...JS
R $B4F4.E...JSR $AD9E.S. .JSR $B6A3.A.".
JSR $B4F4.I.$.TAY.U.&.BNE UZ1...(.JMP $A
F08...*.UZ1 LDA #","...,.STA ($33),Y....
.INY...0.LDA #"P".I.2.STA ($33),Y.Q.4.IN
Y.Y.6.TYA...8.PHA...:.LDA $33...<.PHA...
>.LDA $34...@.PHA...B.JSR $79.!.D.BEQ UZ
4./.F.JSR $AEFD.=.H.JSR $B79E.J.J.JMP UZ
4A.].L.UZ4 LDX DEVICE.Q.M.UZ4A STX DEVIC
E.|.N.STX T2...P.LDA #$62...R.JSR ...T.
LDA #0...V.JSR SETNAM...X.LDA #$62.E.Z.L
DX T2.R.\.LDY #$0F...^.JSR SETLFS...`.JS
R ....B.LDA T2...D.JSR $FFB1...F.JSR $FF
AE...H.LDA $90.*.J.BEQ UZ5.5.L.LDX #5.D.
N.JMP ($300).W.P.UZ5 JSR DSKCHK.D.R.LDA
#$63.N.T.JSR .V.V.PLA.~.X.TAY...Z.PLA..
.|.TAX...~.PLA.....JSR SETNAM.....LDA #$
63.....LDX T2.E...TAY.T...JSR SETLFS....
.JSR ......JSR DSKCHK.....JSR .CHN.....L
DX #$63.....JSR CHKIN."...JSR PRG../...J
SR PRG..;...LDA $2B.G...LDY $2C.R...STA
T3.]...STY T4.H. .LDA #0.U...STA UZF1...
..STA UZF2.....UZ6 JSR MAKBUF.....UZ7 SE
C.....LDA $37.....SBC T5.D...LDA $38.O..
.SBC T6.Z...SBC #2.....BCS UZ12.....LDA
LINFLG.....BEQ UZ8.....JSR DLZ...B.JMP U
Z6.+.D.UZ8 JSR UZ11.9.F.JMP $A435.L.H.UZ
9 LDA LINFLG.Y.J.BEQ UZ10.E.L.JSR DLZ.W.
N.UZ10 JSR UZ11...R.JMP $A474...T.UZ11 J
SR .CHN...V.LDA #$62...X.JSR ...Z.JSR $
FFE7.J...JSR $A533.X...JMP $A659.....UZ1
2 JSR .LIN.....LDA UZF1.....BNE UZ9.....
UZ13 JSR COMPAR.$...BCC UZ15.,...PHP.;..
.JSR UPDABP.J...STA LINFLG.R...PLP.^...B
NE UZ7.K...LDA UZF2.X...BNE UZ14.....LDA
T3.....LDY T4.....STA SDPTR.....STY SDP
TR.1.....STY UZF2.M...UZ14 JSR T3BUMP.Y.
..JMP UZ7.....UZ15 LDA LINFLG.....BEQ UZ
16.....JSR DLZ.....UZ16 JSR COMPAR.'...B
CS UZ17.6...JSR T3BUMP.>...CLC.K...BCC U
Z16.[...UZ17 LDA T5.F...LDY T6.R...STA $
22.~...STY $23... .JSR MAKBUF...".LDY #$
FF...$.UZ18 INY...&.LDA ($22),Y.F.(.STA
(T5),Y.S.*.CPY LINC...,.BNE UZ18.....BEQ
UZ13...0.;...2.DSKCHK LDX #$62...4.JSR
CHKIN.".6.JSR PRG../.8.CMP #"2".<.:.BCC
DKC2.I.<.CMP #"7".V.>.BNE DKC1.C.@.JSR P
RG..P.B.CMP #"3".}.D.BNE DKC1...F.CLC...
H..BYTE $24. .J.DKC1 SEC...L.DKC2 PHP...
N.DKC3 JSR PRG..K.P.LDA $90.X.R.BEQ DKC3
...T.LDA #0...V.STA $90...X.PLP...Z.BCS
PGG1...\.RTS...^.;.#.`.PRG. JSR .IN.+.B.
PHA.7.D.LDA $90.B.F.. #$BF.O.H.BNE PGG1.
W.J.PLA._.L.RTS.Q.N.PGG1 JSR UZ11...P.LD
A #.UZERR...R.STA $22...T.LDA #.UZERR...
V.JMP $A445...X.;.F.Z.UZERR .F "MERGE".L
.|.;...~.LINFLG .BYTE 0.....LINC .BYTE 0
.....UZF1 .BYTE 0.....UZF2 .BYTE 0..
...;.,....LIN LDY #0.<...GTL1 STY T2.I..
.JSR PRG..T...LDY T2.C...STA (T5),Y.O...
LDX $90.|...STX UZF1.....BNE GTL4.....CP
Y #4.....BCC GTL3.....TAX... .BEQ GTL4.C
...GTL2 INY.P...BNE GTL1.....JSR UZ11...
..JMP $AB66.....GTL3 CPY #1.....BNE GTL2
.....TAX.....BNE GTL2.%...DEX.2...STX UZ
F1.D...GTL4 STY LINC.L...RTS.R...;.A...M
AKBUF CLC.M...LDA $37.Y...ADC $2D...B.PH
A...D.LDA $38...F.ADC $2E...H.LSR...J.ST
A SIPTR.1...L.STA T6.D.N.PLA.K.P.R..Y.R.
STA SIPTR...T.STA T5...V.LDA #0...X.STA
LINFLG...Z.RTS.....;.....UPDABP SEC.(...
LDA LINC.3...ADC T5.>...STA T5.I...LDA #
0.T...ADC T6._...STA T6.G...RTS.M...;..
..COMPAR LDY #1.....SEC.....LDA (T3),Y..
...BEQ COM2.....LDY #3.....LDA (T3),Y.L.
..CMP (T5),Y.Y...BCC COM1.....BNE COM1..
...DEY.....LDA (T3),Y.....CMP (T5),Y....
.COM1 RTS.)...COM2 LDA #1.1...RTS.7...;.
I...T3BUMP LDY #4.]...MKU1 LDA (T3),Y.J.
..BEQ MKU2.R...INY....BNE MKU1.....JMP
PGG1.....MKU2 TYA.....SEC... .ADC T3..."
.STA T3.B.$.LDA T4.M.&.ADC #0.X.(.STA T4
...*.RTS...,.;...D.DLZ LDA UZF2...F.BNE
DLZ1...H.LDA T3...J.LDY T4.(.L.STA SDPTR
.8.N.STY SDPTR.1.H.P.DLZ1 LDA #0.U.R.STA
UZF2.[.T.;.M.V.DELINS LDA T3.X.X.LDY T4
...Z.STA MVSTRT...|.STY MVSTRT.1. .~.SEC
.....SBC SDPTR.....STA $22.B...TYA.R...S
BC SDPTR.1.....STA $23.....SEC.....LDA T
5.....SBC SIPTR.....PHA.....LDA T6."...S
BC SIPTR.1.*...TAY.2...PLA.:...SEC.F...S
BC $22.R...STA $22.Z. .TYA.F...SBC $23.R
...STA $23.Z...CLC.....LDA T3.....ADC $2
2.....STA T3.....STA MVDEST.....LDA T4.B
...ADC $23.M...STA T4.....STA MVDEST.1..
...CLC.....LDA $2D.....STA MV......ADC $
22.....STA $2D.".B.LDA $2E.0.D.STA MV..1
.<.F.ADC $23.H.H.STA $2E.V.J.JSR MVMEM.D
.L.LDA SDPTR.S.N.STA MVDEST...P.LDA SDPT
R.1...R.STA MVDEST.1...T.LDA SIPTR...V.L
DY SIPTR.1.A.X.STA MVSTRT.R.Z.STY MVSTRT
.1.....LDA T5.....LDY T6.....STA MV.....
.STY MV..1.....JMP MVMEM.....;.'...SDPTR
.W.D 0.8...SIPTR .W.D 0.>...;.P.: MVMEM
LDA MV..].< BNE MVM1.K.> DEC MV..1.|.@
MVM1 DEC MV....B ;...D MVM2 LDA MVSTRT..
.F STA $22...H LDA MVDEST...J STA $24.K.
L LDA MV..1...N CMP MVSTRT.1...P BCC MVM
5...R BNE MVM3...T LDA MV....V CMP MVSTR
T...X BCC MVM5.4.Z MVM3 LDA MVDEST.1.E.\
CMP MVSTRT.1.T.^ BCC DMVMEM.C.` BNE UMV
MEM.O.B LDA $24.{.D CMP $22...F BEQ MVM5
...H BCC DMVMEM...J UMVMEM LDA MV....L S
EC.A.N SBC MVSTRT.I.P TAY.W.R LDA MV..1.
..T SBC MVSTRT.1...V PHA...X CLC...Z ADC
MVSTRT.1...| STA $23...~ PLA.%.. CLC.6.
. ADC MVDEST.1.B.. STA $25.W.. MVM4 LDA
($22),Y.G.. STA ($24),Y.O.. DEY.|.. CPY
#$FF.... BNE MVM4.... LDA $23.... CMP MV
STRT.1.... BEQ MVM5.... DEC $23.K.. DEC
$25.X.. JMP MVM4.... MVM5 RTS.... DMVMEM
LDA MVSTRT.1... STA $23.... LDA MVDEST
.1.&.. STA $25.2.. LDA MV..:.. SEC.I.. S
BC MVSTRT.T.. STA T2._.. INC T2.M.. LDA
MV..1.~.. SBC MVSTRT.1.... LDY #0.... TA
X.... BEQ MVM7.... MVM6 LDA ($22),Y.C..
STA ($24),Y.K.. INY.X.. BNE MVM6...B INC
$23...D INC $25...F DEX...H BNE MVM6...
J MVM7 LDA ($22),Y.*.L STA ($24),Y.2.N I
NY.=.P CPY T2.J.R BNE MVM7.R.T RTS.X.V ;
.J.X MVSTRT .W.D 0.|.Z MVDEST .W.D 0....
MV. .W.D 0.... ;...""DEVICE .BYTE 8....
#ERRPGM LDX $3A....#INX.L.B#BNE EPG1.T.D
#RTS...F#EPG1 JMP $AF08...H#;...
> CLICK IMAGE PREVIEW FOR FULL MODAL