FANTASY.SRC
FILE INFORMATION
FILENAME(S): FANTASY.SRC
FILE TYPE(S): PRG
FILE SIZE: 30.5K
FIRST SEEN: 2025-11-02 17:01:55
APPEARS ON: 2 disk(s)
FILE HASH
c4c29b2f227002791027c5dea44214977cabb59830478aed9b3cdb8a61c4c8bc
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC04 | FANTASY.SRC | PRG | Treasure Chest - Spook | 20 | 2 | DOWNLOAD FILE |
| MAGIC DISK 64 | FANTASY.SRC | PRG | hedning, German ebay | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 CC 00 14 08 6E 00 AC B2 20 24 |....d.....n... $|
00000010: 38 42 34 32 00 20 08 78 00 2E 4F 50 54 20 4F 4F |8B42. .x..OPT OO|
00000020: 00 2C 08 82 00 3B 4B 45 52 4E 41 4C 00 3A 08 8C |.,...;KERNAL.:..|
00000030: 00 99 20 B2 20 24 46 46 44 32 00 4D 08 96 00 53 |.. . $FFD2.M...S|
00000040: 45 54 4E 41 4D 20 B2 20 24 46 46 42 44 00 60 08 |ETNAM . $FFBD.`.|
00000050: A0 00 53 45 54 46 4C 53 20 B2 20 24 46 46 42 41 |..SETFLS . $FFBA|
00000060: 00 6E 08 AA 00 9F 20 B2 20 24 46 46 43 30 00 7C |.n.... . $FFC0.||
00000070: 08 B4 00 A0 20 B2 20 24 46 46 43 33 00 8F 08 BE |.... . $FFC3....|
00000080: 00 43 48 4B 4F 55 54 20 B2 20 24 46 46 43 39 00 |.CHKOUT . $FFC9.|
00000090: A1 08 C8 00 43 48 4B 49 4E 20 B2 20 24 46 46 43 |....CHKIN . $FFC|
000000A0: 36 00 B1 08 D2 00 9C 43 48 20 B2 20 24 46 46 43 |6......CH . $FFC|
000000B0: 43 00 BF 08 DC 00 93 20 B2 20 24 46 46 44 35 00 |C...... . $FFD5.|
000000C0: CD 08 E6 00 94 20 B2 20 24 46 46 44 38 00 DB 08 |..... . $FFD8...|
000000D0: F0 00 A1 20 B2 20 24 46 46 45 34 00 EB 08 FA 00 |... . $FFE4.....|
000000E0: 42 41 BF 20 B2 20 24 46 46 43 46 00 FC 08 04 01 |BA. . $FFCF.....|
000000F0: EB 50 52 54 20 B2 20 24 42 44 43 44 00 07 09 0E |.PRT . $BDCD....|
00000100: 01 3B 5A 45 52 4F EE 00 16 09 18 01 46 49 52 45 |.;ZERO......FIRE|
00000110: 20 B2 20 24 30 33 00 22 09 22 01 EB 20 B2 20 24 | . $03.".".. . $|
00000120: 46 37 00 30 09 2C 01 43 4F 4C 20 B2 20 24 46 38 |F7.0.,.COL . $F8|
00000130: 00 3E 09 36 01 EC 53 54 20 B2 20 24 46 39 00 4D |.>.6..ST . $F9.M|
00000140: 09 40 01 52 45 47 31 20 B2 20 24 46 42 00 5C 09 |.@.REG1 . $FB.\.|
00000150: 4A 01 52 45 47 32 20 B2 20 24 46 43 00 6B 09 54 |J.REG2 . $FC.k.T|
00000160: 01 52 45 47 33 20 B2 20 24 46 44 00 7A 09 5E 01 |.REG3 . $FD.z.^.|
00000170: 52 45 47 34 20 B2 20 24 46 45 00 89 09 68 01 57 |REG4 . $FE...h.W|
00000180: B0 44 31 20 B2 20 24 31 34 00 98 09 72 01 57 B0 |.D1 . $14...r.W.|
00000190: 44 32 20 B2 20 24 30 35 00 A6 09 7C 01 B8 45 31 |D2 . $05...|..E1|
000001A0: 20 B2 20 24 30 32 00 B4 09 86 01 B8 45 32 20 B2 | . $02......E2 .|
000001B0: 20 24 39 36 00 C2 09 90 01 B8 45 33 20 B2 20 24 | $96......E3 . $|
000001C0: 42 36 00 D0 09 9A 01 B8 45 34 20 B2 20 24 42 44 |B6......E4 . $BD|
000001D0: 00 E0 09 A4 01 B8 45 35 20 B2 20 24 30 33 30 45 |......E5 . $030E|
000001E0: 00 F1 09 AE 01 4C 41 53 54 20 B2 20 24 30 32 35 |.....LAST . $025|
000001F0: 37 00 FF 09 B8 01 82 20 B2 20 24 30 32 35 38 00 |7...... . $0258.|
00000200: 11 0A C2 01 56 45 43 A4 52 20 B2 20 24 30 32 39 |....VEC.R . $029|
00000210: 46 00 24 0A CC 01 42 55 46 42 45 47 20 B2 20 24 |F.$...BUFBEG . $|
00000220: 30 33 38 36 00 35 0A D6 01 42 55 46 80 20 B2 20 |0386.5...BUF. . |
00000230: 24 30 33 46 32 00 47 0A E0 01 4C 4F 43 4F 4C 20 |$03F2.G...LOCOL |
00000240: B2 20 24 30 33 46 37 00 57 0A EA 01 4C 4F EB 20 |. $03F7.W...LO. |
00000250: B2 20 24 30 33 46 38 00 69 0A F4 01 52 55 43 4F |. $03F8.i...RUCO|
00000260: 4C 20 B2 20 24 30 33 46 39 00 79 0A FE 01 52 55 |L . $03F9.y...RU|
00000270: EB 20 B2 20 24 30 33 46 41 00 89 0A 08 02 57 B0 |. . $03FA.....W.|
00000280: 53 20 B2 20 24 30 33 46 42 00 98 0A 12 02 94 44 |S . $03FB......D|
00000290: 20 B2 20 24 30 33 30 44 00 A7 0A 1C 02 57 59 20 | . $030D.....WY |
000002A0: B2 20 24 30 33 46 33 00 B6 0A 26 02 57 58 20 B2 |. $03F3...&.WX .|
000002B0: 20 24 30 33 46 34 00 C5 0A 30 02 57 48 20 B2 20 | $03F4...0.WH . |
000002C0: 24 30 33 46 35 00 D4 0A 3A 02 57 57 20 B2 20 24 |$03F5...:.WW . $|
000002D0: 30 33 46 36 00 E4 0A 44 02 4D 41 58 20 B2 20 24 |03F6...D.MAX . $|
000002E0: 30 33 30 43 00 F9 0A 4E 02 53 54 41 52 54 56 45 |030C...N.STARTVE|
000002F0: 43 20 B2 20 24 30 33 31 31 00 06 0B 58 02 3B 53 |C . $0311...X.;S|
00000300: 91 53 54 49 47 45 00 16 0B 62 02 56 49 43 20 B2 |.STIGE...b.VIC .|
00000310: 20 24 44 30 30 30 00 27 0B 6C 02 43 49 41 31 20 | $D000.'.l.CIA1 |
00000320: B2 20 24 44 43 30 30 00 3A 0B 76 02 4F 55 54 56 |. $DC00.:.v.OUTV|
00000330: 45 43 20 B2 20 24 30 33 32 36 00 47 0B 80 02 42 |EC . $0326.G...B|
00000340: 41 53 45 20 B2 20 AC 00 54 0B 8A 02 3B 46 41 4E |ASE . ..T...;FAN|
00000350: 54 41 53 59 00 65 0B 94 02 DC 4F 55 54 20 B2 20 |TASY.e....OUT . |
00000360: 24 37 44 30 30 00 78 0B 9E 02 57 B0 44 4F 55 54 |$7D00.x...W.DOUT|
00000370: 20 B2 20 24 37 44 32 38 00 89 0B A8 02 EC 4F 55 | . $7D28......OU|
00000380: 54 20 B2 20 24 37 44 33 31 00 97 0B B2 02 E7 20 |T . $7D31...... |
00000390: B2 20 24 37 44 37 38 00 AA 0B BC 02 44 49 56 49 |. $7D78.....DIVI|
000003A0: 44 45 20 B2 20 24 37 44 42 39 00 BB 0B C6 02 53 |DE . $7DB9.....S|
000003B0: 43 52 B9 20 B2 20 24 37 44 46 39 00 CF 0B D0 02 |CR. . $7DF9.....|
000003C0: 41 4E 41 4C 59 5A 45 20 B2 20 24 38 31 32 30 00 |ANALYZE . $8120.|
000003D0: E2 0B DA 02 57 49 4E 44 4F 57 20 B2 20 24 38 31 |....WINDOW . $81|
000003E0: 37 41 00 F5 0B E4 02 42 49 4E 4F 55 54 20 B2 20 |7A.....BINOUT . |
000003F0: 24 37 44 45 33 00 07 0C EE 02 53 50 41 43 45 20 |$7DE3.....SPACE |
00000400: B2 20 24 38 41 36 45 00 17 0C F8 02 52 41 4D 20 |. $8A6E.....RAM |
00000410: B2 20 24 37 45 39 34 00 27 0C 02 03 52 4F 4D 20 |. $7E94.'...ROM |
00000420: B2 20 24 37 45 39 43 00 38 0C 0C 03 53 43 52 94 |. $7E9C.8...SCR.|
00000430: 20 B2 20 24 37 45 41 34 00 49 0C 16 03 53 43 52 | . $7EA4.I...SCR|
00000440: A1 20 B2 20 24 37 45 46 41 00 5B 0C 20 03 A2 4F |. . $7EFA.[. ..O|
00000450: 55 54 36 20 B2 20 24 37 46 42 36 00 6A 0C 2A 03 |UT6 . $7FB6.j.*.|
00000460: 9C EB 20 B2 20 24 38 30 31 45 00 7D 0C 34 03 57 |.. . $801E.}.4.W|
00000470: B0 44 49 4E 43 20 B2 20 24 38 30 34 30 00 91 0C |.DINC . $8040...|
00000480: 3E 03 57 B0 44 32 49 4E 43 20 B2 20 24 38 30 34 |>.W.D2INC . $804|
00000490: 37 00 A4 0C 48 03 53 45 54 43 4F 4C 20 B2 20 24 |7...H.SETCOL . $|
000004A0: 38 30 42 39 00 B7 0C 52 03 57 34 46 49 52 45 20 |80B9...R.W4FIRE |
000004B0: B2 20 24 38 30 44 32 00 C8 0C 5C 03 4D 45 4E 55 |. $80D2...\.MENU|
000004C0: 20 B2 20 24 38 31 39 45 00 DB 0C 66 03 50 44 4D | . $819E...f.PDM|
000004D0: 45 4E 55 20 B2 20 24 38 31 46 38 00 F0 0C 70 03 |ENU . $81F8...p.|
000004E0: 52 45 49 4E 56 45 52 53 20 B2 20 24 38 32 36 46 |REINVERS . $826F|
000004F0: 00 03 0D 7A 03 49 4E 56 45 52 53 20 B2 20 24 38 |...z.INVERS . $8|
00000500: 32 37 31 00 14 0D 84 03 53 55 52 45 20 B2 20 24 |271.....SURE . $|
00000510: 38 32 39 35 00 22 0D 8E 03 85 20 B2 20 24 38 33 |8295.".... . $83|
00000520: 35 30 00 36 0D 98 03 81 42 49 44 44 45 4E 20 B2 |50.6....BIDDEN .|
00000530: 20 24 38 33 44 38 00 4D 0D A2 03 4E 41 4D 45 57 | $83D8.M...NAMEW|
00000540: 49 4E 44 4F 57 20 B2 20 24 38 33 46 43 00 5C 0D |INDOW . $83FC.\.|
00000550: AC 03 D3 A1 20 B2 20 24 38 34 37 33 00 79 0D B6 |.... . $8473.y..|
00000560: 03 D3 A1 30 20 B2 20 24 38 34 37 39 20 3B 53 45 |...0 . $8479 ;SE|
00000570: 54 4E 41 4D 20 50 41 52 41 00 8D 0D C0 03 53 50 |TNAM PARA.....SP|
00000580: 52 49 54 45 94 20 B2 20 24 38 34 43 37 00 A1 0D |RITE. . $84C7...|
00000590: CA 03 53 50 52 49 54 45 A1 20 B2 20 24 38 34 44 |..SPRITE. . $84D|
000005A0: 33 00 B5 0D D4 03 46 49 4C 45 4F 55 54 20 B2 20 |3.....FILEOUT . |
000005B0: 24 38 34 44 46 00 C6 0D DE 03 46 49 C3 52 20 B2 |$84DF.....FI.R .|
000005C0: 20 24 38 35 34 33 00 D9 0D E8 03 D3 45 43 A4 52 | $8543......EC.R|
000005D0: 59 20 B2 20 24 38 35 37 34 00 EC 0D F2 03 53 43 |Y . $8574.....SC|
000005E0: 52 4F 4C 4C 20 B2 20 24 38 37 33 39 00 FD 0D FC |ROLL . $8739....|
000005F0: 03 A2 4F 55 54 20 B2 20 24 37 46 32 38 00 0C 0E |..OUT . $7F28...|
00000600: 06 04 92 91 20 B2 20 24 38 37 41 41 00 1B 0E 10 |.... . $87AA....|
00000610: 04 92 E0 20 B2 20 24 38 37 43 42 00 2E 0E 1A 04 |... . $87CB.....|
00000620: 53 54 52 49 4E 47 20 B2 20 24 38 34 37 32 00 40 |STRING . $8472.@|
00000630: 0E 24 04 4E 41 4D 45 94 20 B2 20 24 38 38 30 37 |.$.NAME. . $8807|
00000640: 00 54 0E 2E 04 4E 41 4D 45 32 30 30 20 B2 20 24 |.T...NAME200 . $|
00000650: 38 38 31 35 00 67 0E 38 04 A1 53 54 41 52 54 20 |8815.g.8..START |
00000660: B2 20 24 38 38 32 30 00 79 0E 42 04 A1 C3 47 54 |. $8820.y.B...GT|
00000670: 48 20 B2 20 24 38 38 37 38 00 87 0E 4C 04 92 20 |H . $8878...L.. |
00000680: B2 20 24 38 38 39 46 00 99 0E 56 04 42 4C 49 4E |. $889F...V.BLIN|
00000690: 4B 20 B2 20 24 38 38 41 41 00 AA 0E 60 04 4E 41 |K . $88AA...`.NA|
000006A0: 4D C3 20 B2 20 24 38 38 43 39 00 BB 0E 6A 04 9F |M. . $88C9...j..|
000006B0: 45 52 52 20 B2 20 24 38 38 44 34 00 CC 0E 74 04 |ERR . $88D4...t.|
000006C0: A0 45 52 52 20 B2 20 24 38 38 44 46 00 E0 0E 7E |.ERR . $88DF...~|
000006D0: 04 44 4F 55 42 4C 45 A1 20 B2 20 24 38 38 45 34 |.DOUBLE. . $88E4|
000006E0: 00 F2 0E 88 04 53 45 54 4E B0 20 B2 20 24 38 38 |.....SETN. . $88|
000006F0: 45 41 00 02 0F 92 04 9F 4E B0 20 B2 20 24 38 38 |EA......N. . $88|
00000700: 46 31 00 15 0F 9C 04 45 52 52 4F 55 54 20 B2 20 |F1.....ERROUT . |
00000710: 24 38 38 46 37 00 27 0F A6 04 4E B0 4F 55 54 20 |$88F7.'...N.OUT |
00000720: B2 20 24 38 38 46 41 00 45 0F B0 04 4E B0 49 4E |. $88FA.E...N.IN|
00000730: 20 B2 20 24 38 38 46 46 20 3B 45 49 4E 47 41 42 | . $88FF ;EINGAB|
00000740: 45 4E 20 23 32 00 64 0F BA 04 4E B0 49 4E 32 20 |EN #2.d...N.IN2 |
00000750: B2 20 24 38 39 30 32 20 3B 45 49 4E 47 41 42 45 |. $8902 ;EINGABE|
00000760: 4E 20 23 38 00 72 0F C4 04 E5 20 B2 20 24 38 39 |N #8.r.... . $89|
00000770: 30 37 00 83 0F CE 04 45 52 52 B0 20 B2 20 24 38 |07.....ERR. . $8|
00000780: 39 43 45 00 94 0F D8 04 A2 49 52 51 20 B2 20 24 |9CE......IRQ . $|
00000790: 38 39 44 34 00 A5 0F E2 04 A2 42 52 4B 20 B2 20 |89D4......BRK . |
000007A0: 24 38 39 34 30 00 B6 0F EC 04 A2 4E 4D 49 20 B2 |$8940......NMI .|
000007B0: 20 24 38 41 37 39 00 C5 0F F6 04 92 57 20 B2 20 | $8A79......W . |
000007C0: 24 38 41 37 33 00 D5 0F 00 05 DC 53 50 20 B2 20 |$8A73......SP . |
000007D0: 24 38 41 36 42 00 E6 0F 0A 05 5A 45 52 4F 20 B2 |$8A6B.....ZERO .|
000007E0: 20 24 38 37 41 39 00 F4 0F 14 05 87 20 B2 20 24 | $87A9...... . $|
000007F0: 38 41 38 39 00 05 10 1E 05 46 49 42 4C 20 B2 20 |8A89.....FIBL . |
00000800: 24 38 41 41 31 00 14 10 28 05 43 52 20 B2 20 24 |$8AA1...(.CR . $|
00000810: 38 41 43 45 00 25 10 32 05 53 A4 55 54 20 B2 20 |8ACE.%.2.S.UT . |
00000820: 24 38 41 44 33 00 36 10 3C 05 57 53 45 54 20 B2 |$8AD3.6.<.WSET .|
00000830: 20 24 38 41 46 43 00 47 10 46 05 53 43 52 E0 20 | $8AFC.G.F.SCR. |
00000840: B2 20 24 38 39 33 37 00 57 10 50 05 43 52 E0 20 |. $8937.W.P.CR. |
00000850: B2 20 24 38 42 31 39 00 69 10 5A 05 54 45 53 A4 |. $8B19.i.Z.TES.|
00000860: 4B 20 B2 20 24 38 42 30 36 00 7D 10 64 05 54 45 |K . $8B06.}.d.TE|
00000870: 53 54 43 48 52 20 B2 20 24 38 42 32 34 00 83 10 |STCHR . $8B24...|
00000880: 6E 05 3B 00 93 10 78 05 4C 44 41 20 23 B3 24 44 |n.;...x.LDA #.$D|
00000890: 30 30 30 00 9F 10 82 05 53 54 41 20 24 35 46 00 |000.....STA $5F.|
000008A0: AB 10 8C 05 53 54 41 20 24 35 41 00 B7 10 96 05 |....STA $5A.....|
000008B0: 53 54 41 20 24 35 38 00 C3 10 A0 05 53 54 41 20 |STA $58.....STA |
000008C0: 24 39 44 00 D3 10 AA 05 4C 44 41 20 23 B1 24 44 |$9D.....LDA #.$D|
000008D0: 30 30 30 00 DF 10 B4 05 53 54 41 20 24 36 30 00 |000.....STA $60.|
000008E0: EF 10 BE 05 4C 44 41 20 23 B1 24 44 38 30 30 00 |....LDA #.$D800.|
000008F0: FB 10 C8 05 53 54 41 20 24 35 42 00 0B 11 D2 05 |....STA $5B.....|
00000900: 4C 44 41 20 23 B1 24 31 30 30 30 00 17 11 DC 05 |LDA #.$1000.....|
00000910: 53 54 41 20 24 35 39 00 1F 11 E6 05 53 45 49 00 |STA $59.....SEI.|
00000920: 2C 11 F0 05 4C 44 41 20 23 24 33 33 00 38 11 FA |,...LDA #$33.8..|
00000930: 05 53 54 41 20 24 30 31 00 46 11 04 06 4A 53 52 |.STA $01.F...JSR|
00000940: 20 24 41 33 42 46 00 53 11 0E 06 4C 44 41 20 23 | $A3BF.S...LDA #|
00000950: 24 33 37 00 5F 11 18 06 53 54 41 20 24 30 31 00 |$37._...STA $01.|
00000960: 67 11 22 06 43 4C 49 00 77 11 2C 06 4C 44 58 20 |g.".CLI.w.,.LDX |
00000970: 23 B3 43 48 41 52 31 00 87 11 36 06 4C 44 59 20 |#.CHAR1...6.LDY |
00000980: 23 B1 43 48 41 52 31 00 94 11 40 06 4C 44 41 20 |#.CHAR1...@.LDA |
00000990: 23 24 30 36 00 A3 11 4A 06 4A 53 52 20 53 45 54 |#$06...J.JSR SET|
000009A0: 4E 41 4D 00 B0 11 54 06 4C 44 58 20 23 24 30 38 |NAM...T.LDX #$08|
000009B0: 00 B8 11 5E 06 54 58 41 00 C0 11 68 06 54 41 59 |...^.TXA...h.TAY|
000009C0: 00 CF 11 72 06 4A 53 52 20 53 45 54 46 4C 53 00 |...r.JSR SETFLS.|
000009D0: DC 11 7C 06 4C 44 41 20 23 24 30 30 00 E6 11 86 |..|.LDA #$00....|
000009E0: 06 4A 53 52 20 93 00 F3 11 90 06 4C 44 59 20 23 |.JSR ......LDY #|
000009F0: 24 30 30 00 11 12 9A 06 4D 41 4B 45 43 48 41 52 |$00.....MAKECHAR|
00000A00: 20 4C 44 41 20 43 48 41 52 41 43 54 45 52 53 2C | LDA CHARACTERS,|
00000A10: 59 00 21 12 A4 06 53 54 41 20 24 30 42 36 38 2C |Y.!...STA $0B68,|
00000A20: 59 00 29 12 AE 06 49 4E 59 00 36 12 B8 06 43 50 |Y.)...INY.6...CP|
00000A30: 59 20 23 24 36 38 00 47 12 C2 06 42 4E 45 20 4D |Y #$68.G...BNE M|
00000A40: 41 4B 45 43 48 41 52 00 58 12 CC 06 4C 44 58 20 |AKECHAR.X...LDX |
00000A50: 23 B3 4B 45 52 4E 41 4C 00 69 12 D6 06 4C 44 59 |#.KERNAL.i...LDY|
00000A60: 20 23 B1 4B 45 52 4E 41 4C 00 76 12 E0 06 4C 44 | #.KERNAL.v...LD|
00000A70: 41 20 23 24 30 39 00 85 12 EA 06 4A 53 52 20 53 |A #$09.....JSR S|
00000A80: 45 54 4E 41 4D 00 92 12 F4 06 4C 44 41 20 23 24 |ETNAM.....LDA #$|
00000A90: 30 38 00 9A 12 FE 06 54 41 58 00 A2 12 08 07 54 |08.....TAX.....T|
00000AA0: 41 59 00 B1 12 12 07 4A 53 52 20 53 45 54 46 4C |AY.....JSR SETFL|
00000AB0: 53 00 BE 12 1C 07 4C 44 41 20 23 24 30 30 00 C8 |S.....LDA #$00..|
00000AC0: 12 26 07 4A 53 52 20 93 00 D8 12 30 07 4C 44 41 |.&.JSR ....0.LDA|
00000AD0: 20 23 B3 24 30 38 30 30 00 E5 12 3A 07 53 54 41 | #.$0800...:.STA|
00000AE0: 20 57 B0 44 31 00 F2 12 44 07 53 54 41 20 57 B0 | W.D1...D.STA W.|
00000AF0: 44 32 00 02 13 4E 07 4C 44 41 20 23 B1 24 30 38 |D2...N.LDA #.$08|
00000B00: 30 30 00 11 13 58 07 53 54 41 20 57 B0 44 31 AA |00...X.STA W.D1.|
00000B10: 31 00 21 13 62 07 4C 44 41 20 23 B1 24 30 43 30 |1.!.b.LDA #.$0C0|
00000B20: 30 00 30 13 6C 07 53 54 41 20 57 B0 44 32 AA 31 |0.0.l.STA W.D2.1|
00000B30: 00 3D 13 76 07 4C 44 41 20 23 24 31 30 00 4B 13 |.=.v.LDA #$10.K.|
00000B40: 80 07 53 54 41 20 24 30 42 30 33 00 60 13 8A 07 |..STA $0B03.`...|
00000B50: 52 45 56 43 48 41 52 20 4C 44 59 20 23 24 30 30 |REVCHAR LDY #$00|
00000B60: 00 71 13 94 07 4C 44 41 20 28 57 B0 44 31 29 2C |.q...LDA (W.D1),|
00000B70: 59 00 83 13 9E 07 45 B0 20 23 25 31 31 31 31 31 |Y.....E. #%11111|
00000B80: 31 31 31 00 94 13 A8 07 53 54 41 20 28 57 B0 44 |111.....STA (W.D|
00000B90: 32 29 2C 59 00 A3 13 B2 07 4A 53 52 20 57 B0 44 |2),Y.....JSR W.D|
00000BA0: 49 4E 43 00 B3 13 BC 07 4A 53 52 20 57 B0 44 32 |INC.....JSR W.D2|
00000BB0: 49 4E 43 00 C2 13 C6 07 4C 44 41 20 57 B0 44 31 |INC.....LDA W.D1|
00000BC0: AA 31 00 D2 13 D0 07 43 4D 50 20 23 B1 24 30 43 |.1.....CMP #.$0C|
00000BD0: 30 30 00 E2 13 DA 07 42 4E 45 20 52 45 56 43 48 |00.....BNE REVCH|
00000BE0: 41 52 00 F6 13 E4 07 4C 44 58 20 23 B3 44 45 4C |AR.....LDX #.DEL|
00000BF0: 50 52 45 46 AA 32 00 0A 14 EE 07 4C 44 59 20 23 |PREF.2.....LDY #|
00000C00: B1 44 45 4C 50 52 45 46 AA 32 00 17 14 F8 07 4C |.DELPREF.2.....L|
00000C10: 44 41 20 23 24 30 37 00 26 14 02 08 4A 53 52 20 |DA #$07.&...JSR |
00000C20: 53 45 54 4E 41 4D 00 34 14 0C 08 4A 53 52 20 53 |SETNAM.4...JSR S|
00000C30: 45 54 4E B0 00 41 14 16 08 4C 44 41 20 23 24 30 |ETN..A...LDA #$0|
00000C40: 30 00 4B 14 20 08 4A 53 52 20 93 00 59 14 2A 08 |0.K. .JSR ..Y.*.|
00000C50: 4C 44 41 20 24 30 33 38 35 00 68 14 34 08 53 54 |LDA $0385.h.4.ST|
00000C60: 41 20 43 49 41 31 AA 35 00 76 14 3E 08 3B 48 41 |A CIA1.5.v.>.;HA|
00000C70: 55 50 54 50 52 47 00 89 14 48 08 4D 41 49 4E 20 |UPTPRG...H.MAIN |
00000C80: 4A 53 52 20 24 45 35 31 38 00 96 14 52 08 4C 44 |JSR $E518...R.LD|
00000C90: 41 20 23 24 30 38 00 A0 14 5C 08 4A 53 52 20 99 |A #$08...\.JSR .|
00000CA0: 00 AD 14 66 08 4C 44 41 20 23 24 34 30 00 B9 14 |...f.LDA #$40...|
00000CB0: 70 08 53 54 41 20 56 49 43 00 C7 14 7A 08 53 54 |p.STA VIC...z.ST|
00000CC0: 41 20 56 49 43 AA 31 00 D4 14 84 08 4C 44 41 20 |A VIC.1.....LDA |
00000CD0: 23 24 30 31 00 E3 14 8E 08 53 54 41 20 56 49 43 |#$01.....STA VIC|
00000CE0: AA 32 31 00 F0 14 98 08 4C 44 41 20 23 24 30 44 |.21.....LDA #$0D|
00000CF0: 00 FE 14 A2 08 53 54 41 20 24 30 37 46 38 00 0C |.....STA $07F8..|
00000D00: 15 AC 08 4C 44 41 20 24 30 33 38 33 00 1B 15 B6 |...LDA $0383....|
00000D10: 08 53 54 41 20 56 49 43 AA 33 39 00 29 15 C0 08 |.STA VIC.39.)...|
00000D20: 4C 44 41 20 24 30 33 38 31 00 39 15 CA 08 53 54 |LDA $0381.9...ST|
00000D30: 41 20 56 49 43 AA 24 32 30 00 47 15 D4 08 4C 44 |A VIC.$20.G...LD|
00000D40: 41 20 24 30 33 38 32 00 57 15 DE 08 53 54 41 20 |A $0382.W...STA |
00000D50: 56 49 43 AA 24 32 31 00 65 15 E8 08 4C 44 41 20 |VIC.$21.e...LDA |
00000D60: 24 30 33 38 34 00 73 15 F2 08 53 54 41 20 24 30 |$0384.s...STA $0|
00000D70: 32 38 36 00 82 15 FC 08 4A 53 52 20 53 45 54 43 |286.....JSR SETC|
00000D80: 4F 4C 00 8F 15 06 09 4C 44 41 20 23 24 31 33 00 |OL.....LDA #$13.|
00000D90: 9E 15 10 09 53 54 41 20 56 49 43 AA 32 34 00 AF |....STA VIC.24..|
00000DA0: 15 1A 09 4C 44 41 20 23 B3 28 A2 4F 55 54 29 00 |...LDA #.(.OUT).|
00000DB0: BE 15 24 09 53 54 41 20 4F 55 54 56 45 43 00 CF |..$.STA OUTVEC..|
00000DC0: 15 2E 09 4C 44 41 20 23 B1 28 A2 4F 55 54 29 00 |...LDA #.(.OUT).|
00000DD0: E0 15 38 09 53 54 41 20 4F 55 54 56 45 43 AA 31 |..8.STA OUTVEC.1|
00000DE0: 00 E8 15 42 09 53 45 49 00 F5 15 4C 09 4C 44 59 |...B.SEI...L.LDY|
00000DF0: 20 23 24 30 30 00 0A 16 56 09 56 45 43 54 31 20 | #$00...V.VECT1 |
00000E00: 4C 44 41 20 56 45 43 53 2C 59 00 1A 16 60 09 53 |LDA VECS,Y...`.S|
00000E10: 54 41 20 24 30 33 31 34 2C 59 00 22 16 6A 09 49 |TA $0314,Y.".j.I|
00000E20: 4E 59 00 2F 16 74 09 43 50 59 20 23 24 30 36 00 |NY./.t.CPY #$06.|
00000E30: 3D 16 7E 09 42 4E 45 20 56 45 43 54 31 00 4D 16 |=.~.BNE VECT1.M.|
00000E40: 88 09 4C 44 41 20 23 B3 4D 41 49 4E 31 00 5E 16 |..LDA #.MAIN1.^.|
00000E50: 92 09 53 54 41 20 53 54 41 52 54 56 45 43 00 6E |..STA STARTVEC.n|
00000E60: 16 9C 09 4C 44 41 20 23 B1 4D 41 49 4E 31 00 81 |...LDA #.MAIN1..|
00000E70: 16 A6 09 53 54 41 20 53 54 41 52 54 56 45 43 AA |...STA STARTVEC.|
00000E80: 31 00 89 16 B0 09 43 4C 49 00 9C 16 BA 09 4D 41 |1.....CLI.....MA|
00000E90: 49 4E 31 20 4C 44 41 20 23 24 30 30 00 A8 16 C4 |IN1 LDA #$00....|
00000EA0: 09 53 54 41 20 57 B0 53 00 B5 16 CE 09 53 54 41 |.STA W.S.....STA|
00000EB0: 20 46 49 52 45 00 C0 16 D8 09 53 54 41 20 94 44 | FIRE.....STA .D|
00000EC0: 00 D1 16 E2 09 4C 44 41 20 23 B3 43 48 4F 49 43 |.....LDA #.CHOIC|
00000ED0: 45 00 E2 16 EC 09 4C 44 59 20 23 B1 43 48 4F 49 |E.....LDY #.CHOI|
00000EE0: 43 45 00 EF 16 F6 09 4A 53 52 20 4D 45 4E 55 00 |CE.....JSR MENU.|
00000EF0: F7 16 00 0A 41 53 4C 00 FF 16 0A 0A 54 41 59 00 |....ASL.....TAY.|
00000F00: 0E 17 14 0A 4C 44 41 20 53 55 42 53 2C 59 00 1A |....LDA SUBS,Y..|
00000F10: 17 1E 0A 53 54 41 20 DD AA 31 00 2B 17 28 0A 4C |...STA ..1.+.(.L|
00000F20: 44 41 20 53 55 42 53 AA 31 2C 59 00 37 17 32 0A |DA SUBS.1,Y.7.2.|
00000F30: 53 54 41 20 DD AA 32 00 47 17 3C 0A DD 20 4A 53 |STA ..2.G.<.. JS|
00000F40: 52 20 24 46 46 46 46 00 55 17 46 0A 4A 53 52 20 |R $FFFF.U.F.JSR |
00000F50: 24 45 35 36 36 00 63 17 50 0A 4A 4D 50 20 4D 41 |$E566.c.P.JMP MA|
00000F60: 49 4E 31 00 8A 17 5A 0A 53 55 42 53 20 2E 57 B0 |IN1...Z.SUBS .W.|
00000F70: 20 9E 54 45 4D 2C 46 49 4C 45 53 2C 44 49 53 4B | .TEM,FILES,DISK|
00000F80: 2C A4 4F 4C 53 2C 45 58 49 54 00 A6 17 64 0A 56 |,.OLS,EXIT...d.V|
00000F90: 45 43 53 20 2E 57 B0 20 A2 49 52 51 2C A2 42 52 |ECS .W. .IRQ,.BR|
00000FA0: 4B 2C A2 4E 4D 49 00 B8 17 6E 0A 9E 54 45 4D 20 |K,.NMI...n..TEM |
00000FB0: 4C 44 41 20 23 24 30 30 00 C3 17 78 0A 53 54 41 |LDA #$00...x.STA|
00000FC0: 20 57 58 00 D0 17 82 0A 4C 44 41 20 23 24 30 43 | WX.....LDA #$0C|
00000FD0: 00 DB 17 8C 0A 53 54 41 20 57 57 00 E8 17 96 0A |.....STA WW.....|
00000FE0: 4C 44 41 20 23 24 30 35 00 F3 17 A0 0A 53 54 41 |LDA #$05.....STA|
00000FF0: 20 57 48 00 03 18 AA 0A 4C 44 41 20 23 B3 9E 54 | WH.....LDA #..T|
00001000: 45 4D 54 00 13 18 B4 0A 4C 44 59 20 23 B1 9E 54 |EMT.....LDY #..T|
00001010: 45 4D 54 00 22 18 BE 0A 4A 53 52 20 50 44 4D 45 |EMT."...JSR PDME|
00001020: 4E 55 00 2F 18 C8 0A 43 4D 50 20 23 24 30 30 00 |NU./...CMP #$00.|
00001030: 3D 18 D2 0A 42 4E 45 20 9E 54 45 4D 31 00 4D 18 |=...BNE .TEM1.M.|
00001040: DC 0A 9E 80 20 4A 4D 50 20 53 43 52 A1 00 62 18 |.... JMP SCR..b.|
00001050: E6 0A 9E 54 45 4D 31 20 4A 53 52 20 49 4E 56 45 |...TEM1 JSR INVE|
00001060: 52 53 00 6F 18 F0 0A 43 4D 50 20 23 24 30 31 00 |RS.o...CMP #$01.|
00001070: 7D 18 FA 0A 42 4E 45 20 9E 54 45 4D 32 00 8B 18 |}...BNE .TEM2...|
00001080: 04 0B 4A 53 52 20 9E 49 4E 46 4F 00 9C 18 0E 0B |..JSR .INFO.....|
00001090: 4A 53 52 20 52 45 49 4E 56 45 52 53 00 A7 18 18 |JSR REINVERS....|
000010A0: 0B 4A 4D 50 20 9E 80 00 BA 18 22 0B 9E 54 45 4D |.JMP ....."..TEM|
000010B0: 32 20 43 4D 50 20 23 24 30 32 00 C8 18 2C 0B 42 |2 CMP #$02...,.B|
000010C0: 4E 45 20 9E 54 45 4D 33 00 D5 18 36 0B 4A 53 52 |NE .TEM3...6.JSR|
000010D0: 20 9E 43 4F 4C 00 E6 18 40 0B 4A 53 52 20 52 45 | .COL...@.JSR RE|
000010E0: 49 4E 56 45 52 53 00 F1 18 4A 0B 4A 4D 50 20 9E |INVERS...J.JMP .|
000010F0: 80 00 04 19 54 0B 9E 54 45 4D 33 20 43 4D 50 20 |....T..TEM3 CMP |
00001100: 23 24 30 33 00 12 19 5E 0B 42 4E 45 20 9E 54 45 |#$03...^.BNE .TE|
00001110: 4D 34 00 21 19 68 0B 4A 53 52 20 9E 4D 4F 55 53 |M4.!.h.JSR .MOUS|
00001120: 45 00 32 19 72 0B 4A 53 52 20 52 45 49 4E 56 45 |E.2.r.JSR REINVE|
00001130: 52 53 00 3D 19 7C 0B 4A 4D 50 20 9E 80 00 50 19 |RS.=.|.JMP ...P.|
00001140: 86 0B 9E 54 45 4D 34 20 43 4D 50 20 23 24 30 34 |...TEM4 CMP #$04|
00001150: 00 5E 19 90 0B 42 4E 45 20 9E 54 45 4D 35 00 6D |.^...BNE .TEM5.m|
00001160: 19 9A 0B 4A 53 52 20 9E 53 50 45 45 44 00 7E 19 |...JSR .SPEED.~.|
00001170: A4 0B 4A 53 52 20 52 45 49 4E 56 45 52 53 00 89 |..JSR REINVERS..|
00001180: 19 AE 0B 4A 4D 50 20 9E 80 00 9A 19 B8 0B 9E 54 |...JMP ........T|
00001190: 45 4D 35 20 4A 53 52 20 9E 94 00 AB 19 C2 0B 4A |EM5 JSR .......J|
000011A0: 53 52 20 52 45 49 4E 56 45 52 53 00 B6 19 CC 0B |SR REINVERS.....|
000011B0: 4A 4D 50 20 9E 80 00 C9 19 D6 0B 9E 49 4E 46 4F |JMP ........INFO|
000011C0: 20 4C 44 59 20 23 24 30 39 00 D6 19 E0 0B 4C 44 | LDY #$09.....LD|
000011D0: 58 20 23 24 30 39 00 E3 19 EA 0B 4C 44 41 20 23 |X #$09.....LDA #|
000011E0: 24 31 37 00 EE 19 F4 0B 53 54 41 20 57 57 00 FB |$17.....STA WW..|
000011F0: 19 FE 0B 4C 44 41 20 23 24 30 41 00 08 1A 08 0C |...LDA #$0A.....|
00001200: 4A 53 52 20 57 53 45 54 00 1A 1A 12 0C 4C 44 41 |JSR WSET.....LDA|
00001210: 20 23 B3 9E 49 4E 46 4F 54 49 00 2C 1A 1C 0C 4C | #..INFOTI.,...L|
00001220: 44 59 20 23 B1 9E 49 4E 46 4F 54 49 00 3B 1A 26 |DY #..INFOTI.;.&|
00001230: 0C 4A 53 52 20 57 49 4E 44 4F 57 00 4C 1A 30 0C |.JSR WINDOW.L.0.|
00001240: 4C 44 41 20 23 B3 9E 49 4E 46 4F 54 00 5D 1A 3A |LDA #..INFOT.].:|
00001250: 0C 4C 44 59 20 23 B1 9E 49 4E 46 4F 54 00 6A 1A |.LDY #..INFOT.j.|
00001260: 44 0C 4A 53 52 20 EC 4F 55 54 00 7C 1A 4E 0C 9E |D.JSR .OUT.|.N..|
00001270: 49 4E 46 4F 31 20 4A 53 52 20 92 57 00 89 1A 58 |INFO1 JSR .W...X|
00001280: 0C 43 4D 50 20 23 24 46 46 00 98 1A 62 0C 42 4E |.CMP #$FF...b.BN|
00001290: 45 20 9E 49 4E 46 4F 31 00 A5 1A 6C 0C 4A 4D 50 |E .INFO1...l.JMP|
000012A0: 20 53 43 52 A1 00 B9 1A 76 0C 9E 53 50 45 45 44 | SCR....v..SPEED|
000012B0: 20 4C 44 41 20 23 24 30 36 00 C6 1A 80 0C 4C 44 | LDA #$06.....LD|
000012C0: 58 20 23 24 30 37 00 D1 1A 8A 0C 53 54 58 20 57 |X #$07.....STX W|
000012D0: 57 00 DE 1A 94 0C 4C 44 59 20 23 24 30 39 00 EB |W.....LDY #$09..|
000012E0: 1A 9E 0C 4A 53 52 20 57 53 45 54 00 FD 1A A8 0C |...JSR WSET.....|
000012F0: 4C 44 41 20 23 B3 53 50 45 45 44 54 49 00 0F 1B |LDA #.SPEEDTI...|
00001300: B2 0C 4C 44 59 20 23 B1 53 50 45 45 44 54 49 00 |..LDY #.SPEEDTI.|
00001310: 1E 1B BC 0C 4A 53 52 20 57 49 4E 44 4F 57 00 2F |....JSR WINDOW./|
00001320: 1B C6 0C 4C 44 41 20 23 B3 53 50 45 45 44 54 00 |...LDA #.SPEEDT.|
00001330: 40 1B D0 0C 4C 44 59 20 23 B1 53 50 45 45 44 54 |@...LDY #.SPEEDT|
00001340: 00 4D 1B DA 0C 4A 53 52 20 EC 4F 55 54 00 60 1B |.M...JSR .OUT.`.|
00001350: E4 0C 9E 53 50 45 45 44 31 20 4A 53 52 20 92 57 |...SPEED1 JSR .W|
00001360: 00 6D 1B EE 0C 43 4D 50 20 23 24 30 30 00 7D 1B |.m...CMP #$00.}.|
00001370: F8 0C 42 45 51 20 9E 53 50 45 45 44 31 00 8A 1B |..BEQ .SPEED1...|
00001380: 02 0D 43 4D 50 20 23 24 46 46 00 9A 1B 0C 0D 42 |..CMP #$FF.....B|
00001390: 4E 45 20 9E 53 50 45 45 44 32 00 A7 1B 16 0D 4A |NE .SPEED2.....J|
000013A0: 4D 50 20 53 43 52 A1 00 BD 1B 20 0D 9E 53 50 45 |MP SCR.... ..SPE|
000013B0: 45 44 32 20 4A 53 52 20 42 4C 49 4E 4B 00 C5 1B |ED2 JSR BLINK...|
000013C0: 2A 0D 54 41 58 00 D2 1B 34 0D 4C 44 59 20 23 24 |*.TAX...4.LDY #$|
000013D0: 30 30 00 DF 1B 3E 0D 4C 44 41 20 23 24 31 34 00 |00...>.LDA #$14.|
000013E0: E9 1B 48 0D 4A 53 52 20 E7 00 F6 1B 52 0D 4C 44 |..H.JSR ....R.LD|
000013F0: 41 20 52 45 47 33 00 05 1C 5C 0D 53 54 41 20 43 |A REG3...\.STA C|
00001400: 49 41 31 AA 35 00 13 1C 66 0D 53 54 41 20 24 30 |IA1.5...f.STA $0|
00001410: 33 38 35 00 20 1C 70 0D 4A 4D 50 20 53 43 52 A1 |385. .p.JMP SCR.|
00001420: 00 33 1C 7A 0D 9E 94 20 4C 44 41 20 56 49 43 AA |.3.z... LDA VIC.|
00001430: 24 32 30 00 41 1C 84 0D 53 54 41 20 24 30 33 38 |$20.A...STA $038|
00001440: 31 00 51 1C 8E 0D 4C 44 41 20 56 49 43 AA 24 32 |1.Q...LDA VIC.$2|
00001450: 31 00 5F 1C 98 0D 53 54 41 20 24 30 33 38 32 00 |1._...STA $0382.|
00001460: 6E 1C A2 0D 4C 44 41 20 56 49 43 AA 33 39 00 7C |n...LDA VIC.39.||
00001470: 1C AC 0D 53 54 41 20 24 30 33 38 33 00 8A 1C B6 |...STA $0383....|
00001480: 0D 4C 44 41 20 24 30 32 38 36 00 98 1C C0 0D 53 |.LDA $0286.....S|
00001490: 54 41 20 24 30 33 38 34 00 A5 1C CA 0D 4C 44 41 |TA $0384.....LDA|
000014A0: 20 23 24 30 39 00 B7 1C D4 0D 4C 44 58 20 23 B3 | #$09.....LDX #.|
000014B0: 44 45 4C 50 52 45 46 00 C9 1C DE 0D 4C 44 59 20 |DELPREF.....LDY |
000014C0: 23 B1 44 45 4C 50 52 45 46 00 D8 1C E8 0D 4A 53 |#.DELPREF.....JS|
000014D0: 52 20 53 45 54 4E 41 4D 00 E5 1C F2 0D 4A 53 52 |R SETNAM.....JSR|
000014E0: 20 9F 45 52 52 00 F2 1C FC 0D 4A 53 52 20 A0 45 | .ERR.....JSR .E|
000014F0: 52 52 00 FF 1C 06 0E 4C 44 41 20 23 24 30 37 00 |RR.....LDA #$07.|
00001500: 13 1D 10 0E 4C 44 58 20 23 B3 44 45 4C 50 52 45 |....LDX #.DELPRE|
00001510: 46 AA 32 00 27 1D 1A 0E 4C 44 59 20 23 B1 44 45 |F.2.'...LDY #.DE|
00001520: 4C 50 52 45 46 AA 32 00 36 1D 24 0E 4A 53 52 20 |LPREF.2.6.$.JSR |
00001530: 53 45 54 4E 41 4D 00 44 1D 2E 0E 4A 53 52 20 53 |SETNAM.D...JSR S|
00001540: 45 54 4E B0 00 54 1D 38 0E 4C 44 41 20 23 B3 24 |ETN..T.8.LDA #.$|
00001550: 30 33 34 30 00 60 1D 42 0E 53 54 41 20 24 46 42 |0340.`.B.STA $FB|
00001560: 00 70 1D 4C 0E 4C 44 41 20 23 B1 24 30 33 34 30 |.p.L.LDA #.$0340|
00001570: 00 7C 1D 56 0E 53 54 41 20 24 46 43 00 89 1D 60 |.|.V.STA $FC...`|
00001580: 0E 4C 44 41 20 23 24 46 42 00 99 1D 6A 0E 4C 44 |.LDA #$FB...j.LD|
00001590: 58 20 23 B3 24 30 33 38 36 00 A9 1D 74 0E 4C 44 |X #.$0386...t.LD|
000015A0: 59 20 23 B1 24 30 33 38 36 00 B3 1D 7E 0E 4A 53 |Y #.$0386...~.JS|
000015B0: 52 20 94 00 BB 1D 88 0E 52 54 53 00 CD 1D 92 0E |R ......RTS.....|
000015C0: 9E 43 4F 4C 20 4C 44 41 20 23 24 30 41 00 D8 1D |.COL LDA #$0A...|
000015D0: 9C 0E 53 54 41 20 57 57 00 E5 1D A6 0E 4C 44 59 |..STA WW.....LDY|
000015E0: 20 23 24 30 39 00 F2 1D B0 0E 4C 44 58 20 23 24 | #$09.....LDX #$|
000015F0: 30 43 00 FF 1D BA 0E 4C 44 41 20 23 24 30 35 00 |0C.....LDA #$05.|
00001600: 0C 1E C4 0E 4A 53 52 20 57 53 45 54 00 1D 1E CE |....JSR WSET....|
00001610: 0E 4C 44 41 20 23 B3 9E 43 4F 4C 54 49 00 2E 1E |.LDA #..COLTI...|
00001620: D8 0E 4C 44 59 20 23 B1 9E 43 4F 4C 54 49 00 3D |..LDY #..COLTI.=|
00001630: 1E E2 0E 4A 53 52 20 57 49 4E 44 4F 57 00 50 1E |...JSR WINDOW.P.|
00001640: EC 0E 4C 44 41 20 23 B3 43 4F 4C 4F 55 52 53 54 |..LDA #.COLOURST|
00001650: 00 63 1E F6 0E 4C 44 59 20 23 B1 43 4F 4C 4F 55 |.c...LDY #.COLOU|
00001660: 52 53 54 00 70 1E 00 0F 4A 53 52 20 EC 4F 55 54 |RST.p...JSR .OUT|
00001670: 00 81 1E 0A 0F 9E 43 4F 4C 31 20 4A 53 52 20 92 |......COL1 JSR .|
00001680: 57 00 8E 1E 14 0F 43 4D 50 20 23 24 30 30 00 9C |W.....CMP #$00..|
00001690: 1E 1E 0F 42 45 51 20 9E 43 4F 4C 31 00 A9 1E 28 |...BEQ .COL1...(|
000016A0: 0F 43 4D 50 20 23 24 46 46 00 B7 1E 32 0F 42 4E |.CMP #$FF...2.BN|
000016B0: 45 20 9E 43 4F 4C 32 00 C4 1E 3C 0F 4A 4D 50 20 |E .COL2...<.JMP |
000016C0: 53 43 52 A1 00 D9 1E 46 0F 9E 43 4F 4C 32 20 4A |SCR....F..COL2 J|
000016D0: 53 52 20 49 4E 56 45 52 53 00 E1 1E 50 0F 50 48 |SR INVERS...P.PH|
000016E0: 41 00 EE 1E 5A 0F 4C 44 41 20 23 24 30 42 00 F9 |A...Z.LDA #$0B..|
000016F0: 1E 64 0F 53 54 41 20 57 57 00 06 1F 6E 0F 4C 44 |.d.STA WW...n.LD|
00001700: 41 20 23 24 31 31 00 13 1F 78 0F 4C 44 59 20 23 |A #$11...x.LDY #|
00001710: 24 30 32 00 20 1F 82 0F 4C 44 58 20 23 24 31 36 |$02. ...LDX #$16|
00001720: 00 2D 1F 8C 0F 4A 53 52 20 57 53 45 54 00 3C 1F |.-...JSR WSET.<.|
00001730: 96 0F 4C 44 41 20 23 B3 5A 45 52 4F 00 4B 1F A0 |..LDA #.ZERO.K..|
00001740: 0F 4C 44 59 20 23 B1 5A 45 52 4F 00 5A 1F AA 0F |.LDY #.ZERO.Z...|
00001750: 4A 53 52 20 57 49 4E 44 4F 57 00 69 1F B4 0F 4C |JSR WINDOW.i...L|
00001760: 44 41 20 23 B3 43 4F 4C EC 00 78 1F BE 0F 4C 44 |DA #.COL..x...LD|
00001770: 59 20 23 B1 43 4F 4C EC 00 85 1F C8 0F 4A 53 52 |Y #.COL......JSR|
00001780: 20 EC 4F 55 54 00 96 1F D2 0F 9E 43 4F 4C 33 20 | .OUT......COL3 |
00001790: 4A 53 52 20 92 57 00 A3 1F DC 0F 43 4D 50 20 23 |JSR .W.....CMP #|
000017A0: 24 30 30 00 B1 1F E6 0F 42 45 51 20 9E 43 4F 4C |$00.....BEQ .COL|
000017B0: 33 00 BE 1F F0 0F 43 4D 50 20 23 24 46 46 00 CC |3.....CMP #$FF..|
000017C0: 1F FA 0F 42 4E 45 20 9E 43 4F 4C 34 00 DA 1F 04 |...BNE .COL4....|
000017D0: 10 9E 43 4F C3 44 20 50 4C 41 00 E7 1F 0E 10 4A |..CO.D PLA.....J|
000017E0: 53 52 20 53 43 52 A1 00 F8 1F 18 10 4A 53 52 20 |SR SCR......JSR |
000017F0: 52 45 49 4E 56 45 52 53 00 06 20 22 10 4A 4D 50 |REINVERS.. ".JMP|
00001800: 20 9E 43 4F 4C 31 00 1A 20 2C 10 9E 43 4F 4C 34 | .COL1.. ,..COL4|
00001810: 20 4A 53 52 20 42 4C 49 4E 4B 00 22 20 36 10 54 | JSR BLINK." 6.T|
00001820: 41 59 00 2A 20 40 10 44 45 59 00 32 20 4A 10 50 |AY.* @.DEY.2 J.P|
00001830: 4C 41 00 3F 20 54 10 43 4D 50 20 23 24 30 31 00 |LA.? T.CMP #$01.|
00001840: 4D 20 5E 10 42 45 51 20 9E 43 4F 4C 42 00 5A 20 |M ^.BEQ .COLB.Z |
00001850: 68 10 43 4D 50 20 23 24 30 32 00 68 20 72 10 42 |h.CMP #$02.h r.B|
00001860: 45 51 20 9E 43 4F 4C 46 00 75 20 7C 10 43 4D 50 |EQ .COLF.u |.CMP|
00001870: 20 23 24 30 33 00 83 20 86 10 42 45 51 20 9E 43 | #$03.. ..BEQ .C|
00001880: 4F 4C 43 00 92 20 90 10 53 54 59 20 56 49 43 AA |OLC.. ..STY VIC.|
00001890: 33 39 00 A2 20 9A 10 4A 4D 50 20 9E 43 4F C3 44 |39.. ..JMP .CO.D|
000018A0: AA 31 00 B7 20 A4 10 9E 43 4F 4C 42 20 53 54 59 |.1.. ...COLB STY|
000018B0: 20 56 49 43 AA 33 32 00 C7 20 AE 10 4A 4D 50 20 | VIC.32.. ..JMP |
000018C0: 9E 43 4F C3 44 AA 31 00 DC 20 B8 10 9E 43 4F 4C |.CO.D.1.. ...COL|
000018D0: 46 20 53 54 59 20 56 49 43 AA 33 33 00 EC 20 C2 |F STY VIC.33.. .|
000018E0: 10 4A 4D 50 20 9E 43 4F C3 44 AA 31 00 00 21 CC |.JMP .CO.D.1..!.|
000018F0: 10 9E 43 4F 4C 43 20 53 54 59 20 24 30 32 38 36 |..COLC STY $0286|
00001900: 00 0F 21 D6 10 4A 53 52 20 53 45 54 43 4F 4C 00 |..!..JSR SETCOL.|
00001910: 1F 21 E0 10 4A 4D 50 20 9E 43 4F C3 44 AA 31 00 |.!..JMP .CO.D.1.|
00001920: 36 21 EA 10 9E 4D 4F 55 53 45 20 4C 44 58 20 23 |6!...MOUSE LDX #|
00001930: B3 45 44 49 A4 52 00 46 21 F4 10 4C 44 59 20 23 |.EDI.R.F!..LDY #|
00001940: B1 45 44 49 A4 52 00 53 21 FE 10 4C 44 41 20 23 |.EDI.R.S!..LDA #|
00001950: 24 30 46 00 5E 21 08 11 4A 53 52 20 92 91 00 6C |$0F.^!..JSR ...l|
00001960: 21 12 11 4A 53 52 20 53 45 54 4E B0 00 79 21 1C |!..JSR SETN..y!.|
00001970: 11 4C 44 41 20 23 24 30 30 00 83 21 26 11 4A 53 |.LDA #$00..!&.JS|
00001980: 52 20 93 00 8E 21 30 11 4A 53 52 20 92 E0 00 9C |R ...!0.JSR ....|
00001990: 21 3A 11 4A 53 52 20 54 45 53 A4 4B 00 A9 21 44 |!:.JSR TES.K..!D|
000019A0: 11 43 4D 50 20 23 24 30 30 00 B9 21 4E 11 42 4E |.CMP #$00..!N.BN|
000019B0: 45 20 9E 4D 4F 55 53 45 31 00 C7 21 58 11 4A 4D |E .MOUSE1..!X.JM|
000019C0: 50 20 24 43 44 30 30 00 E6 21 62 11 45 44 49 A4 |P $CD00..!b.EDI.|
000019D0: 52 20 2E C6 20 22 46 41 2E 4D 4F 55 53 45 2D 45 |R .. "FA.MOUSE-E|
000019E0: 44 49 54 4F 52 22 00 F6 21 6C 11 9E 4D 4F 55 53 |DITOR"..!l..MOUS|
000019F0: 45 31 20 52 54 53 00 07 22 76 11 46 49 4C 45 53 |E1 RTS.."v.FILES|
00001A00: 20 4A 53 52 20 D3 A1 00 16 22 80 11 4A 53 52 20 | JSR ...."..JSR |
00001A10: D3 45 43 A4 52 59 00 2A 22 8A 11 46 49 4C 45 53 |.EC.RY.*"..FILES|
00001A20: 31 20 4A 53 52 20 4E 41 4D C3 00 37 22 94 11 43 |1 JSR NAM..7"..C|
00001A30: 50 59 20 23 24 30 30 00 46 22 9E 11 42 4E 45 20 |PY #$00.F"..BNE |
00001A40: 46 49 4C 45 53 34 00 4E 22 A8 11 52 54 53 00 62 |FILES4.N"..RTS.b|
00001A50: 22 B2 11 46 49 4C 45 53 34 20 4C 44 41 20 23 24 |"..FILES4 LDA #$|
00001A60: 30 37 00 6D 22 BC 11 53 54 41 20 57 57 00 7A 22 |07.m"..STA WW.z"|
00001A70: C6 11 4C 44 41 20 23 24 30 37 00 85 22 D0 11 53 |..LDA #$07.."..S|
00001A80: 54 41 20 57 48 00 92 22 DA 11 4C 44 41 20 23 24 |TA WH.."..LDA #$|
00001A90: 30 38 00 9D 22 E4 11 53 54 41 20 57 58 00 AE 22 |08.."..STA WX.."|
00001AA0: EE 11 4C 44 41 20 23 B3 46 49 4C 45 53 54 00 BF |..LDA #.FILEST..|
00001AB0: 22 F8 11 4C 44 59 20 23 B1 46 49 4C 45 53 54 00 |"..LDY #.FILEST.|
00001AC0: CE 22 02 12 4A 53 52 20 50 44 4D 45 4E 55 00 DB |."..JSR PDMENU..|
00001AD0: 22 0C 12 43 4D 50 20 23 24 30 30 00 EA 22 16 12 |"..CMP #$00.."..|
00001AE0: 42 4E 45 20 46 49 4C 45 53 35 00 01 23 20 12 46 |BNE FILES5..# .F|
00001AF0: 49 4C 45 E4 42 20 4A 53 52 20 44 4F 55 42 4C 45 |ILE.B JSR DOUBLE|
00001B00: A1 00 12 23 2A 12 4A 53 52 20 D3 45 43 A4 52 59 |...#*.JSR .EC.RY|
00001B10: AA 33 00 21 23 34 12 4A 4D 50 20 46 49 4C 45 53 |.3.!#4.JMP FILES|
00001B20: 31 00 37 23 3E 12 46 49 4C 45 53 35 20 4A 53 52 |1.7#>.FILES5 JSR|
00001B30: 20 49 4E 56 45 52 53 00 3F 23 48 12 41 53 4C 00 | INVERS.?#H.ASL.|
00001B40: 47 23 52 12 54 41 59 00 59 23 5C 12 4C 44 41 20 |G#R.TAY.Y#\.LDA |
00001B50: 46 49 88 41 42 AB 32 2C 59 00 66 23 66 12 53 54 |FI.AB.2,Y.f#f.ST|
00001B60: 41 20 52 45 47 31 00 78 23 70 12 4C 44 41 20 46 |A REG1.x#p.LDA F|
00001B70: 49 88 41 42 AB 31 2C 59 00 85 23 7A 12 53 54 41 |I.AB.1,Y..#z.STA|
00001B80: 20 52 45 47 32 00 94 23 84 12 4A 4D 50 20 28 52 | REG2..#..JMP (R|
00001B90: 45 47 31 29 00 A5 23 8E 12 46 49 D1 20 4A 53 52 |EG1)..#..FI. JSR|
00001BA0: 20 53 55 52 45 00 B2 23 98 12 43 4D 50 20 23 24 | SURE..#..CMP #$|
00001BB0: 46 46 00 BF 23 A2 12 42 4E 45 20 46 49 D1 31 00 |FF..#..BNE FI.1.|
00001BC0: CC 23 AC 12 2E 42 59 54 20 24 41 39 00 DA 23 B6 |.#...BYT $A9..#.|
00001BD0: 12 46 49 D1 80 31 20 50 4C 41 00 F0 23 C0 12 46 |.FI..1 PLA..#..F|
00001BE0: 49 D1 80 20 4A 53 52 20 52 45 49 4E 56 45 52 53 |I.. JSR REINVERS|
00001BF0: 00 FF 23 CA 12 4A 4D 50 20 46 49 4C 45 E4 42 00 |..#..JMP FILE.B.|
00001C00: 11 24 D4 12 46 49 D1 31 20 4C 44 59 20 23 24 31 |.$..FI.1 LDY #$1|
00001C10: 31 00 26 24 DE 12 46 49 D1 32 20 4C 44 41 20 24 |1.&$..FI.2 LDA $|
00001C20: 30 31 46 46 2C 59 00 36 24 E8 12 53 54 41 20 24 |01FF,Y.6$..STA $|
00001C30: 30 32 30 31 2C 59 00 3E 24 F2 12 44 45 59 00 4B |0201,Y.>$..DEY.K|
00001C40: 24 FC 12 42 4E 45 20 46 49 D1 32 00 58 24 06 13 |$..BNE FI.2.X$..|
00001C50: 4C 44 41 20 23 22 53 22 00 6D 24 10 13 43 4F 4D |LDA #"S".m$..COM|
00001C60: 4D AF 80 20 53 54 41 20 24 30 32 30 30 00 7A 24 |M.. STA $0200.z$|
00001C70: 1A 13 4C 44 41 20 23 22 3A 22 00 88 24 24 13 53 |..LDA #":"..$$.S|
00001C80: 54 41 20 24 30 32 30 31 00 98 24 2E 13 4A 53 52 |TA $0201..$..JSR|
00001C90: 20 4E 41 4D 45 32 30 30 00 A5 24 38 13 4A 53 52 | NAME200..$8.JSR|
00001CA0: 20 9F 45 52 52 00 B2 24 42 13 4A 53 52 20 A0 45 | .ERR..$B.JSR .E|
00001CB0: 52 52 00 C2 24 4C 13 4A 53 52 20 44 4F 55 42 4C |RR..$L.JSR DOUBL|
00001CC0: 45 A1 00 D0 24 56 13 4A 4D 50 20 46 49 4C 45 53 |E...$V.JMP FILES|
00001CD0: 00 E6 24 60 13 46 49 52 45 4E 41 4D 45 20 4C 44 |..$`.FIRENAME LD|
00001CE0: 41 20 23 22 52 22 00 F3 24 6A 13 42 4E 45 20 46 |A #"R"..$j.BNE F|
00001CF0: 49 F2 31 00 04 25 74 13 46 49 F2 20 4C 44 41 20 |I.1..%t.FI. LDA |
00001D00: 23 22 43 22 00 11 25 7E 13 46 49 F2 31 20 50 48 |#"C"..%~.FI.1 PH|
00001D10: 41 00 1F 25 88 13 4A 53 52 20 4E 41 4D 45 94 00 |A..%..JSR NAME..|
00001D20: 32 25 92 13 4A 53 52 20 4E 41 4D 45 57 49 4E 44 |2%..JSR NAMEWIND|
00001D30: 4F 57 00 3F 25 9C 13 43 4D 50 20 23 24 46 46 00 |OW.?%..CMP #$FF.|
00001D40: 4D 25 A6 13 42 45 51 20 46 49 D1 80 31 00 5B 25 |M%..BEQ FI..1.[%|
00001D50: B0 13 4C 44 41 20 24 30 32 30 30 00 69 25 BA 13 |..LDA $0200.i%..|
00001D60: 42 45 51 20 46 49 D1 80 31 00 76 25 C4 13 4C 44 |BEQ FI..1.v%..LD|
00001D70: 58 20 23 24 30 30 00 83 25 CE 13 4A 53 52 20 4E |X #$00..%..JSR N|
00001D80: 41 4D C3 00 90 25 D8 13 4C 44 41 20 23 22 3D 22 |AM...%..LDA #"="|
00001D90: 00 A0 25 E2 13 53 54 41 20 24 30 32 30 30 2C 59 |..%..STA $0200,Y|
00001DA0: 00 A8 25 EC 13 49 4E 59 00 C3 25 F6 13 46 49 52 |..%..INY..%..FIR|
00001DB0: 45 4E 41 4D 45 32 42 20 4C 44 41 20 24 30 32 32 |ENAME2B LDA $022|
00001DC0: 30 2C 58 00 D3 25 00 14 53 54 41 20 24 30 32 30 |0,X..%..STA $020|
00001DD0: 30 2C 59 00 E5 25 0A 14 42 45 51 20 46 49 52 45 |0,Y..%..BEQ FIRE|
00001DE0: 4E 41 4D 45 33 00 ED 25 14 14 49 4E 58 00 F5 25 |NAME3..%..INX..%|
00001DF0: 1E 14 49 4E 59 00 08 26 28 14 42 4E 45 20 46 49 |..INY..&(.BNE FI|
00001E00: 52 45 4E 41 4D 45 32 42 00 1A 26 32 14 46 49 52 |RENAME2B..&2.FIR|
00001E10: 45 4E 41 4D 45 33 20 49 4E 59 00 34 26 3C 14 46 |ENAME3 INY.4&<.F|
00001E20: 49 52 45 4E 41 4D 45 34 20 4C 44 41 20 24 30 31 |IRENAME4 LDA $01|
00001E30: 46 46 2C 59 00 44 26 46 14 53 54 41 20 24 30 32 |FF,Y.D&F.STA $02|
00001E40: 30 31 2C 59 00 4C 26 50 14 44 45 59 00 5E 26 5A |01,Y.L&P.DEY.^&Z|
00001E50: 14 42 4E 45 20 46 49 52 45 4E 41 4D 45 34 00 66 |.BNE FIRENAME4.f|
00001E60: 26 64 14 50 4C 41 00 75 26 6E 14 4A 4D 50 20 43 |&d.PLA.u&n.JMP C|
00001E70: 4F 4D 4D AF 80 00 89 26 78 14 46 49 93 20 4A 53 |OMM....&x.FI. JS|
00001E80: 52 20 4E 41 4D 45 32 30 30 00 97 26 82 14 4A 53 |R NAME200..&..JS|
00001E90: 52 20 53 45 54 4E B0 00 A4 26 8C 14 4C 44 41 20 |R SETN...&..LDA |
00001EA0: 23 24 30 30 00 AE 26 96 14 4A 53 52 20 93 00 BF |#$00..&..JSR ...|
00001EB0: 26 A0 14 4A 53 52 20 52 45 49 4E 56 45 52 53 00 |&..JSR REINVERS.|
00001EC0: CF 26 AA 14 4A 4D 50 20 44 4F 55 42 4C 45 A1 00 |.&..JMP DOUBLE..|
00001ED0: E4 26 B4 14 46 49 4C 42 4F 4F 54 20 4A 53 52 20 |.&..FILBOOT JSR |
00001EE0: 53 55 52 45 00 F1 26 BE 14 43 4D 50 20 23 24 46 |SURE..&..CMP #$F|
00001EF0: 46 00 02 27 C8 14 42 4E 45 20 46 49 4C 42 4F 4F |F..'..BNE FILBOO|
00001F00: 54 30 00 11 27 D2 14 4A 4D 50 20 46 49 4C 45 E4 |T0..'..JMP FILE.|
00001F10: 42 00 29 27 DC 14 46 49 4C 42 4F 4F 54 30 20 4A |B.)'..FILBOOT0 J|
00001F20: 53 52 20 58 42 41 53 49 43 00 38 27 E6 14 4A 53 |SR XBASIC.8'..JS|
00001F30: 52 20 A1 53 54 41 52 54 00 45 27 F0 14 4A 53 52 |R .START.E'..JSR|
00001F40: 20 53 43 52 E0 00 52 27 FA 14 4C 44 41 20 57 B0 | SCR..R'..LDA W.|
00001F50: 44 31 00 5F 27 04 15 43 4D 50 20 23 24 30 31 00 |D1._'..CMP #$01.|
00001F60: 6F 27 0E 15 42 4E 45 20 46 49 42 4F 4F 54 31 00 |o'..BNE FIBOOT1.|
00001F70: 7E 27 18 15 4C 44 41 20 57 B0 44 31 AA 31 00 8B |~'..LDA W.D1.1..|
00001F80: 27 22 15 43 4D 50 20 23 24 30 38 00 9C 27 2C 15 |'".CMP #$08..',.|
00001F90: 42 45 51 20 46 49 4C 42 4F 4F 54 32 00 B1 27 36 |BEQ FILBOOT2..'6|
00001FA0: 15 46 49 42 4F 4F 54 31 20 4C 44 59 20 23 24 30 |.FIBOOT1 LDY #$0|
00001FB0: 30 00 CA 27 40 15 46 49 4C 42 4F 4F 54 33 20 4C |0..'@.FILBOOT3 L|
00001FC0: 44 41 20 53 54 41 52 54 2C 59 00 DB 27 4A 15 53 |DA START,Y..'J.S|
00001FD0: 54 41 20 42 55 46 42 45 47 2C 59 00 E3 27 54 15 |TA BUFBEG,Y..'T.|
00001FE0: 49 4E 59 00 F0 27 5E 15 43 50 59 20 23 24 32 30 |INY..'^.CPY #$20|
00001FF0: 00 01 28 68 15 42 4E 45 20 46 49 4C 42 4F 4F 54 |..(h.BNE FILBOOT|
00002000: 33 00 11 28 72 15 4A 53 52 20 4E 41 4D 45 32 30 |3..(r.JSR NAME20|
00002010: 30 00 1F 28 7C 15 4A 53 52 20 53 45 54 4E B0 00 |0..(|.JSR SETN..|
00002020: 2C 28 86 15 4C 44 41 20 23 24 30 30 00 39 28 90 |,(..LDA #$00.9(.|
00002030: 15 4C 44 58 20 57 B0 44 31 00 4B 28 9A 15 53 54 |.LDX W.D1.K(..ST|
00002040: 58 20 42 55 46 42 45 47 AA 32 35 00 5A 28 A4 15 |X BUFBEG.25.Z(..|
00002050: 4C 44 58 20 57 B0 44 31 AA 31 00 6C 28 AE 15 53 |LDX W.D1.1.l(..S|
00002060: 54 58 20 42 55 46 42 45 47 AA 32 36 00 7B 28 B8 |TX BUFBEG.26.{(.|
00002070: 15 4A 4D 50 20 42 55 46 42 45 47 00 8B 28 C2 15 |.JMP BUFBEG..(..|
00002080: 53 54 41 52 54 20 4A 53 52 20 93 00 93 28 CC 15 |START JSR ...(..|
00002090: 53 45 49 00 A0 28 D6 15 4C 44 59 20 23 24 32 30 |SEI..(..LDY #$20|
000020A0: 00 B7 28 E0 15 53 54 41 52 54 31 20 4C 44 41 20 |..(..START1 LDA |
000020B0: 24 46 44 33 30 2C 59 00 C7 28 EA 15 53 54 41 20 |$FD30,Y..(..STA |
000020C0: 24 30 33 31 34 2C 59 00 CF 28 F4 15 44 45 59 00 |$0314,Y..(..DEY.|
000020D0: DE 28 FE 15 42 50 4C 20 53 54 41 52 54 31 00 E6 |.(..BPL START1..|
000020E0: 28 08 16 43 4C 49 00 F3 28 12 16 4C 44 41 20 23 |(..CLI..(..LDA #|
000020F0: 24 33 43 00 02 29 1C 16 53 54 41 20 43 49 41 31 |$3C..)..STA CIA1|
00002100: AA 35 00 10 29 26 16 4A 53 52 20 24 45 35 31 38 |.5..)&.JSR $E518|
00002110: 00 1E 29 30 16 4A 4D 50 20 24 46 46 46 46 00 34 |..)0.JMP $FFFF.4|
00002120: 29 3A 16 46 49 4C 42 4F 4F 54 32 20 4C 44 59 20 |):.FILBOOT2 LDY |
00002130: 23 24 30 30 00 4E 29 44 16 46 49 4C 42 4F 4F 54 |#$00.N)D.FILBOOT|
00002140: 34 20 4C 44 41 20 53 54 41 52 54 42 2C 59 00 5F |4 LDA STARTB,Y._|
00002150: 29 4E 16 53 54 41 20 42 55 46 42 45 47 2C 59 00 |)N.STA BUFBEG,Y.|
00002160: 67 29 58 16 49 4E 59 00 74 29 62 16 43 50 59 20 |g)X.INY.t)b.CPY |
00002170: 23 24 33 30 00 85 29 6C 16 42 4E 45 20 46 49 4C |#$30..)l.BNE FIL|
00002180: 42 4F 4F 54 34 00 95 29 76 16 4A 53 52 20 4E 41 |BOOT4..)v.JSR NA|
00002190: 4D 45 32 30 30 00 A2 29 80 16 4C 44 41 20 23 24 |ME200..)..LDA #$|
000021A0: 30 38 00 AA 29 8A 16 54 41 58 00 B7 29 94 16 4C |08..)..TAX..)..L|
000021B0: 44 59 20 23 24 30 30 00 C6 29 9E 16 4A 53 52 20 |DY #$00..)..JSR |
000021C0: 53 45 54 46 4C 53 00 D3 29 A8 16 4C 44 41 20 23 |SETFLS..)..LDA #|
000021D0: 24 30 30 00 E3 29 B2 16 4C 44 58 20 23 B3 24 30 |$00..)..LDX #.$0|
000021E0: 38 30 31 00 EF 29 BC 16 53 54 58 20 24 32 42 00 |801..)..STX $2B.|
000021F0: FF 29 C6 16 4C 44 59 20 23 B1 24 30 38 30 31 00 |.)..LDY #.$0801.|
00002200: 0B 2A D0 16 53 54 59 20 24 32 43 00 1A 2A DA 16 |.*..STY $2C..*..|
00002210: 4A 4D 50 20 42 55 46 42 45 47 00 2B 2A E4 16 53 |JMP BUFBEG.+*..S|
00002220: 54 41 52 54 42 20 4A 53 52 20 93 00 37 2A EE 16 |TARTB JSR ..7*..|
00002230: 53 54 58 20 24 32 44 00 43 2A F8 16 53 54 58 20 |STX $2D.C*..STX |
00002240: 24 41 45 00 4F 2A 02 17 53 54 59 20 24 32 45 00 |$AE.O*..STY $2E.|
00002250: 5B 2A 0C 17 53 54 59 20 24 41 46 00 63 2A 16 17 |[*..STY $AF.c*..|
00002260: 53 45 49 00 70 2A 20 17 4C 44 59 20 23 24 32 30 |SEI.p* .LDY #$20|
00002270: 00 88 2A 2A 17 53 54 41 52 54 42 31 20 4C 44 41 |..**.STARTB1 LDA|
00002280: 20 24 46 44 33 30 2C 59 00 98 2A 34 17 53 54 41 | $FD30,Y..*4.STA|
00002290: 20 24 30 33 31 34 2C 59 00 A0 2A 3E 17 44 45 59 | $0314,Y..*>.DEY|
000022A0: 00 B0 2A 48 17 42 50 4C 20 53 54 41 52 54 42 31 |..*H.BPL STARTB1|
000022B0: 00 B8 2A 52 17 43 4C 49 00 C5 2A 5C 17 4C 44 41 |..*R.CLI..*\.LDA|
000022C0: 20 23 24 33 43 00 D4 2A 66 17 53 54 41 20 43 49 | #$3C..*f.STA CI|
000022D0: 41 31 AA 35 00 E2 2A 70 17 4A 53 52 20 24 45 35 |A1.5..*p.JSR $E5|
000022E0: 31 38 00 EF 2A 7A 17 4C 44 41 20 23 24 30 30 00 |18..*z.LDA #$00.|
000022F0: FD 2A 84 17 53 54 41 20 24 30 38 30 30 00 0B 2B |.*..STA $0800..+|
00002300: 8E 17 4A 53 52 20 24 41 36 35 39 00 19 2B 98 17 |..JSR $A659..+..|
00002310: 4A 4D 50 20 24 41 37 41 45 00 2E 2B A2 17 46 49 |JMP $A7AE..+..FI|
00002320: 4C 49 4E 46 4F 20 4C 44 41 20 23 24 31 35 00 39 |LINFO LDA #$15.9|
00002330: 2B AC 17 53 54 41 20 57 57 00 46 2B B6 17 4C 44 |+..STA WW.F+..LD|
00002340: 59 20 23 24 30 42 00 53 2B C0 17 4C 44 58 20 23 |Y #$0B.S+..LDX #|
00002350: 24 30 41 00 5B 2B CA 17 54 58 41 00 68 2B D4 17 |$0A.[+..TXA.h+..|
00002360: 4A 53 52 20 57 53 45 54 00 77 2B DE 17 4A 53 52 |JSR WSET.w+..JSR|
00002370: 20 A1 53 54 41 52 54 00 84 2B E8 17 4C 44 41 20 | .START..+..LDA |
00002380: 57 B0 44 31 00 8C 2B F2 17 50 48 41 00 9B 2B FC |W.D1..+..PHA..+.|
00002390: 17 4C 44 41 20 57 B0 44 31 AA 31 00 A3 2B 06 18 |.LDA W.D1.1..+..|
000023A0: 50 48 41 00 B0 2B 10 18 4C 44 59 20 23 24 30 30 |PHA..+..LDY #$00|
000023B0: 00 C9 2B 1A 18 46 49 4C 49 4E 46 4F 31 20 4C 44 |..+..FILINFO1 LD|
000023C0: 41 20 24 30 32 30 30 2C 59 00 D6 2B 24 18 43 4D |A $0200,Y..+$.CM|
000023D0: 50 20 23 22 2C 22 00 E7 2B 2E 18 42 45 51 20 46 |P #","..+..BEQ F|
000023E0: 49 4C 49 4E 46 4F 32 00 EF 2B 38 18 49 4E 59 00 |ILINFO2..+8.INY.|
000023F0: 00 2C 42 18 42 4E 45 20 46 49 4C 49 4E 46 4F 31 |.,B.BNE FILINFO1|
00002400: 00 16 2C 4C 18 46 49 4C 49 4E 46 4F 32 20 4C 44 |..,L.FILINFO2 LD|
00002410: 41 20 23 24 30 30 00 26 2C 56 18 53 54 41 20 24 |A #$00.&,V.STA $|
00002420: 30 32 30 30 2C 59 00 36 2C 60 18 4C 44 41 20 23 |0200,Y.6,`.LDA #|
00002430: B3 24 30 32 30 30 00 46 2C 6A 18 4C 44 59 20 23 |.$0200.F,j.LDY #|
00002440: B1 24 30 32 30 30 00 55 2C 74 18 4A 53 52 20 57 |.$0200.U,t.JSR W|
00002450: 49 4E 44 4F 57 00 67 2C 7E 18 4C 44 41 20 23 B3 |INDOW.g,~.LDA #.|
00002460: 46 49 4E 46 4F 53 54 00 79 2C 88 18 4C 44 59 20 |FINFOST.y,..LDY |
00002470: 23 B1 46 49 4E 46 4F 53 54 00 86 2C 92 18 4A 53 |#.FINFOST..,..JS|
00002480: 52 20 EC 4F 55 54 00 8E 2C 9C 18 50 4C 41 00 96 |R .OUT..,..PLA..|
00002490: 2C A6 18 54 41 59 00 9E 2C B0 18 50 4C 41 00 A6 |,..TAY..,..PLA..|
000024A0: 2C BA 18 54 41 58 00 AE 2C C4 18 54 59 41 00 BD |,..TAX..,..TYA..|
000024B0: 2C CE 18 53 54 41 20 42 55 46 42 45 47 00 CE 2C |,..STA BUFBEG..,|
000024C0: D8 18 53 54 58 20 42 55 46 42 45 47 AA 31 00 DB |..STX BUFBEG.1..|
000024D0: 2C E2 18 4A 53 52 20 EB 50 52 54 00 E8 2C EC 18 |,..JSR .PRT..,..|
000024E0: 4C 44 59 20 23 24 31 38 00 F4 2C F6 18 4C 44 58 |LDY #$18..,..LDX|
000024F0: 20 24 44 36 00 FE 2C 00 19 4A 53 52 20 E9 00 0C | $D6..,..JSR ...|
00002500: 2D 0A 19 4A 53 52 20 53 50 41 43 45 00 19 2D 14 |-..JSR SPACE..-.|
00002510: 19 4C 44 41 20 23 22 28 22 00 23 2D 1E 19 4A 53 |.LDA #"(".#-..JS|
00002520: 52 20 99 00 30 2D 28 19 4C 44 41 20 23 22 24 22 |R ..0-(.LDA #"$"|
00002530: 00 3A 2D 32 19 4A 53 52 20 99 00 49 2D 3C 19 4C |.:-2.JSR ..I-<.L|
00002540: 44 58 20 42 55 46 42 45 47 00 5A 2D 46 19 4C 44 |DX BUFBEG.Z-F.LD|
00002550: 41 20 42 55 46 42 45 47 AA 31 00 69 2D 50 19 4A |A BUFBEG.1.i-P.J|
00002560: 53 52 20 57 B0 44 4F 55 54 00 7B 2D 5A 19 4C 44 |SR W.DOUT.{-Z.LD|
00002570: 41 20 23 B3 46 49 4E 46 4F 45 4E 00 8D 2D 64 19 |A #.FINFOEN..-d.|
00002580: 4C 44 59 20 23 B1 46 49 4E 46 4F 45 4E 00 9A 2D |LDY #.FINFOEN..-|
00002590: 6E 19 4A 53 52 20 EC 4F 55 54 00 A8 2D 78 19 4A |n.JSR .OUT..-x.J|
000025A0: 53 52 20 A1 C3 47 54 48 00 B5 2D 82 19 4C 44 58 |SR ..GTH..-..LDX|
000025B0: 20 23 24 46 45 00 C2 2D 8C 19 4C 44 41 20 57 B0 | #$FE..-..LDA W.|
000025C0: 44 31 00 D1 2D 96 19 4C 44 59 20 57 B0 44 31 AA |D1..-..LDY W.D1.|
000025D0: 31 00 DB 2D A0 19 4A 53 52 20 E7 00 EC 2D AA 19 |1..-..JSR ...-..|
000025E0: 4C 44 41 20 42 55 46 42 45 47 AA 31 00 F4 2D B4 |LDA BUFBEG.1..-.|
000025F0: 19 43 4C 43 00 01 2E BE 19 41 44 43 20 52 45 47 |.CLC.....ADC REG|
00002600: 33 00 0E 2E C8 19 53 54 41 20 52 45 47 33 00 1D |3.....STA REG3..|
00002610: 2E D2 19 4C 44 41 20 42 55 46 42 45 47 00 2A 2E |...LDA BUFBEG.*.|
00002620: DC 19 41 44 43 20 52 45 47 34 00 37 2E E6 19 53 |..ADC REG4.7...S|
00002630: 54 41 20 52 45 47 34 00 44 2E F0 19 4C 44 58 20 |TA REG4.D...LDX |
00002640: 52 45 47 33 00 51 2E FA 19 4A 53 52 20 EB 50 52 |REG3.Q...JSR .PR|
00002650: 54 00 5E 2E 04 1A 4C 44 59 20 23 24 31 38 00 6A |T.^...LDY #$18.j|
00002660: 2E 0E 1A 4C 44 58 20 24 44 36 00 74 2E 18 1A 4A |...LDX $D6.t...J|
00002670: 53 52 20 E9 00 82 2E 22 1A 4A 53 52 20 53 50 41 |SR ....".JSR SPA|
00002680: 43 45 00 8F 2E 2C 1A 4C 44 41 20 23 22 28 22 00 |CE...,.LDA #"(".|
00002690: 99 2E 36 1A 4A 53 52 20 99 00 A6 2E 40 1A 4C 44 |..6.JSR ....@.LD|
000026A0: 41 20 23 22 24 22 00 B0 2E 4A 1A 4A 53 52 20 99 |A #"$"...J.JSR .|
000026B0: 00 BD 2E 54 1A 4C 44 41 20 52 45 47 33 00 CA 2E |...T.LDA REG3...|
000026C0: 5E 1A 4C 44 58 20 52 45 47 34 00 D9 2E 68 1A 4A |^.LDX REG4...h.J|
000026D0: 53 52 20 57 B0 44 4F 55 54 00 EB 2E 72 1A 4C 44 |SR W.DOUT...r.LD|
000026E0: 41 20 23 B3 46 49 4E 46 4F 4C 45 00 FD 2E 7C 1A |A #.FINFOLE...|.|
000026F0: 4C 44 59 20 23 B1 46 49 4E 46 4F 4C 45 00 0A 2F |LDY #.FINFOLE../|
00002700: 86 1A 4A 53 52 20 EC 4F 55 54 00 18 2F 90 1A 4A |..JSR .OUT../..J|
00002710: 53 52 20 A1 C3 47 54 48 00 25 2F 9A 1A 4C 44 58 |SR ..GTH.%/..LDX|
00002720: 20 57 B0 44 31 00 34 2F A4 1A 4C 44 41 20 57 B0 | W.D1.4/..LDA W.|
00002730: 44 31 AA 31 00 41 2F AE 1A 4A 53 52 20 EB 50 52 |D1.1.A/..JSR .PR|
00002740: 54 00 4E 2F B8 1A 4C 44 41 20 57 B0 44 31 00 5D |T.N/..LDA W.D1.]|
00002750: 2F C2 1A 4C 44 59 20 57 B0 44 31 AA 31 00 6A 2F |/..LDY W.D1.1.j/|
00002760: CC 1A 4C 44 58 20 23 24 46 45 00 74 2F D6 1A 4A |..LDX #$FE.t/..J|
00002770: 53 52 20 E7 00 81 2F E0 1A 4C 44 41 20 52 45 47 |SR .../..LDA REG|
00002780: 33 00 89 2F EA 1A 50 48 41 00 96 2F F4 1A 4C 44 |3../..PHA../..LD|
00002790: 41 20 52 45 47 34 00 9E 2F FE 1A 50 48 41 00 B0 |A REG4../..PHA..|
000027A0: 2F 08 1B 4C 44 41 20 23 B3 46 49 4E 46 4F 57 45 |/..LDA #.FINFOWE|
000027B0: 00 C2 2F 12 1B 4C 44 59 20 23 B1 46 49 4E 46 4F |../..LDY #.FINFO|
000027C0: 57 45 00 CF 2F 1C 1B 4A 53 52 20 EC 4F 55 54 00 |WE../..JSR .OUT.|
000027D0: D7 2F 26 1B 50 4C 41 00 DF 2F 30 1B 54 41 59 00 |./&.PLA../0.TAY.|
000027E0: E7 2F 3A 1B 50 4C 41 00 EF 2F 44 1B 54 41 58 00 |./:.PLA../D.TAX.|
000027F0: F7 2F 4E 1B 54 59 41 00 04 30 58 1B 4A 53 52 20 |./N.TYA..0X.JSR |
00002800: EB 50 52 54 00 16 30 62 1B 4C 44 41 20 23 B3 46 |.PRT..0b.LDA #.F|
00002810: 49 4E 46 4F 54 59 00 28 30 6C 1B 4C 44 59 20 23 |INFOTY.(0l.LDY #|
00002820: B1 46 49 4E 46 4F 54 59 00 35 30 76 1B 4A 53 52 |.FINFOTY.50v.JSR|
00002830: 20 EC 4F 55 54 00 42 30 80 1B 4A 53 52 20 4E 41 | .OUT.B0..JSR NA|
00002840: 4D C3 00 52 30 8A 1B 4C 44 41 20 24 30 32 30 31 |M..R0..LDA $0201|
00002850: 2C 59 00 5F 30 94 1B 43 4D 50 20 23 22 53 22 00 |,Y._0..CMP #"S".|
00002860: 6F 30 9E 1B 42 45 51 20 49 4E 46 4F 53 45 51 00 |o0..BEQ INFOSEQ.|
00002870: 7C 30 A8 1B 43 4D 50 20 23 22 55 22 00 8A 30 B2 ||0..CMP #"U"..0.|
00002880: 1B 42 45 51 20 49 4E 46 4F B7 00 97 30 BC 1B 43 |.BEQ INFO...0..C|
00002890: 4D 50 20 23 22 50 22 00 A7 30 C6 1B 42 4E 45 20 |MP #"P"..0..BNE |
000028A0: 49 4E 46 4F 55 4E 4B 00 B6 30 D0 1B 4C 44 41 20 |INFOUNK..0..LDA |
000028B0: 42 55 46 42 45 47 00 C3 30 DA 1B 43 4D 50 20 23 |BUFBEG..0..CMP #|
000028C0: 24 30 38 00 D2 30 E4 1B 42 4E 45 20 49 4E 46 4F |$08..0..BNE INFO|
000028D0: 4D 43 00 E3 30 EE 1B 4C 44 41 20 42 55 46 42 45 |MC..0..LDA BUFBE|
000028E0: 47 AA 31 00 F0 30 F8 1B 43 4D 50 20 23 24 30 31 |G.1..0..CMP #$01|
000028F0: 00 FF 30 02 1C 42 4E 45 20 49 4E 46 4F 4D 43 00 |..0..BNE INFOMC.|
00002900: 11 31 0C 1C 4C 44 41 20 23 B3 49 4E 46 4F 42 41 |.1..LDA #.INFOBA|
00002910: 54 00 23 31 16 1C 4C 44 59 20 23 B1 49 4E 46 4F |T.#1..LDY #.INFO|
00002920: 42 41 54 00 30 31 20 1C 4A 53 52 20 EC 4F 55 54 |BAT.01 .JSR .OUT|
00002930: 00 3E 31 2A 1C 4A 4D 50 20 49 4E 46 4F 80 00 53 |.>1*.JMP INFO..S|
00002940: 31 34 1C 49 4E 46 4F 55 4E 4B 20 4C 44 41 20 23 |14.INFOUNK LDA #|
00002950: 22 3F 22 00 5D 31 3E 1C 4A 53 52 20 99 00 6B 31 |"?".]1>.JSR ..k1|
00002960: 48 1C 4A 4D 50 20 49 4E 46 4F 80 00 84 31 52 1C |H.JMP INFO...1R.|
00002970: 49 4E 46 4F 4D 43 20 4C 44 41 20 23 B3 49 4E 46 |INFOMC LDA #.INF|
00002980: 4F 4D 43 54 00 96 31 5C 1C 4C 44 59 20 23 B1 49 |OMCT..1\.LDY #.I|
00002990: 4E 46 4F 4D 43 54 00 A3 31 66 1C 4A 53 52 20 EC |NFOMCT..1f.JSR .|
000029A0: 4F 55 54 00 B1 31 70 1C 4A 4D 50 20 49 4E 46 4F |OUT..1p.JMP INFO|
000029B0: 80 00 CB 31 7A 1C 49 4E 46 4F 53 45 51 20 4C 44 |...1z.INFOSEQ LD|
000029C0: 41 20 23 B3 49 4E 46 4F 53 45 54 00 DD 31 84 1C |A #.INFOSET..1..|
000029D0: 4C 44 59 20 23 B1 49 4E 46 4F 53 45 54 00 EA 31 |LDY #.INFOSET..1|
000029E0: 8E 1C 4A 53 52 20 EC 4F 55 54 00 F8 31 98 1C 4A |..JSR .OUT..1..J|
000029F0: 4D 50 20 49 4E 46 4F 80 00 10 32 A2 1C 49 4E 46 |MP INFO...2..INF|
00002A00: 4F B7 20 4C 44 41 20 23 B3 49 4E 46 4F 55 53 54 |O. LDA #.INFOUST|
00002A10: 00 22 32 AC 1C 4C 44 59 20 23 B1 49 4E 46 4F 55 |."2..LDY #.INFOU|
00002A20: 53 54 00 2F 32 B6 1C 4A 53 52 20 EC 4F 55 54 00 |ST./2..JSR .OUT.|
00002A30: 40 32 C0 1C 49 4E 46 4F 80 20 4A 53 52 20 92 57 |@2..INFO. JSR .W|
00002A40: 00 4D 32 CA 1C 43 4D 50 20 23 24 46 46 00 5B 32 |.M2..CMP #$FF.[2|
00002A50: D4 1C 42 4E 45 20 49 4E 46 4F 80 00 68 32 DE 1C |..BNE INFO..h2..|
00002A60: 4A 53 52 20 53 43 52 A1 00 77 32 E8 1C 4A 4D 50 |JSR SCR..w2..JMP|
00002A70: 20 46 49 4C 45 E4 42 00 7D 32 F2 1C 3B 00 8E 32 | FILE.B.}2..;..2|
00002A80: FC 1C 46 49 DF 20 4C 44 59 20 23 24 30 38 00 96 |..FI. LDY #$08..|
00002A90: 32 06 1D 54 59 41 00 A3 32 10 1D 4C 44 58 20 23 |2..TYA..2..LDX #|
00002AA0: 24 30 39 00 AE 32 1A 1D 53 54 58 20 57 57 00 BB |$09..2..STX WW..|
00002AB0: 32 24 1D 4C 44 58 20 23 24 31 32 00 C8 32 2E 1D |2$.LDX #$12..2..|
00002AC0: 4A 53 52 20 57 53 45 54 00 D5 32 38 1D 4C 44 41 |JSR WSET..28.LDA|
00002AD0: 20 23 B3 99 49 00 E2 32 42 1D 4C 44 59 20 23 B1 | #..I..2B.LDY #.|
00002AE0: 99 49 00 F1 32 4C 1D 4A 53 52 20 57 49 4E 44 4F |.I..2L.JSR WINDO|
00002AF0: 57 00 FE 32 56 1D 4C 44 41 20 23 B3 99 58 00 0B |W..2V.LDA #..X..|
00002B00: 33 60 1D 4C 44 59 20 23 B1 99 58 00 18 33 6A 1D |3`.LDY #..X..3j.|
00002B10: 4A 53 52 20 EC 4F 55 54 00 28 33 74 1D 46 49 DF |JSR .OUT.(3t.FI.|
00002B20: 30 20 4A 53 52 20 92 57 00 35 33 7E 1D 43 4D 50 |0 JSR .W.53~.CMP|
00002B30: 20 23 24 30 30 00 42 33 88 1D 42 45 51 20 46 49 | #$00.B3..BEQ FI|
00002B40: DF 30 00 4F 33 92 1D 43 4D 50 20 23 24 46 46 00 |.0.O3..CMP #$FF.|
00002B50: 5C 33 9C 1D 42 4E 45 20 46 49 DF 31 00 69 33 A6 |\3..BNE FI.1.i3.|
00002B60: 1D 4A 53 52 20 53 43 52 A1 00 78 33 B0 1D 4A 4D |.JSR SCR..x3..JM|
00002B70: 50 20 46 49 4C 45 E4 42 00 8A 33 BA 1D 46 49 DF |P FILE.B..3..FI.|
00002B80: 31 20 43 4D 50 20 23 24 30 34 00 97 33 C4 1D 42 |1 CMP #$04..3..B|
00002B90: 45 51 20 46 49 DF 30 00 A4 33 CE 1D 42 43 53 20 |EQ FI.0..3..BCS |
00002BA0: 46 49 DF 32 00 B1 33 D8 1D 4C 44 41 20 23 24 30 |FI.2..3..LDA #$0|
00002BB0: 33 00 BE 33 E2 1D 2E 42 59 54 20 24 32 43 00 D0 |3..3...BYT $2C..|
00002BC0: 33 EC 1D 46 49 DF 32 20 4C 44 41 20 23 24 30 34 |3..FI.2 LDA #$04|
00002BD0: 00 DE 33 F6 1D 53 54 41 20 EC 53 54 AA 31 00 EB |..3..STA .ST.1..|
00002BE0: 33 00 1E 4C 44 58 20 23 24 30 39 00 F6 33 0A 1E |3..LDX #$09..3..|
00002BF0: 53 54 58 20 57 57 00 03 34 14 1E 4C 44 59 20 23 |STX WW..4..LDY #|
00002C00: 24 30 42 00 10 34 1E 1E 4C 44 41 20 23 24 30 38 |$0B..4..LDA #$08|
00002C10: 00 1D 34 28 1E 4A 53 52 20 57 53 45 54 00 2C 34 |..4(.JSR WSET.,4|
00002C20: 32 1E 4C 44 41 20 23 B3 5A 45 52 4F 00 3B 34 3C |2.LDA #.ZERO.;4<|
00002C30: 1E 4C 44 59 20 23 B1 5A 45 52 4F 00 4A 34 46 1E |.LDY #.ZERO.J4F.|
00002C40: 4A 53 52 20 57 49 4E 44 4F 57 00 58 34 50 1E 4C |JSR WINDOW.X4P.L|
00002C50: 44 41 20 23 B3 99 54 58 00 66 34 5A 1E 4C 44 59 |DA #..TX.f4Z.LDY|
00002C60: 20 23 B1 99 54 58 00 73 34 64 1E 4A 53 52 20 EC | #..TX.s4d.JSR .|
00002C70: 4F 55 54 00 83 34 6E 1E 46 49 DF 33 20 4A 53 52 |OUT..4n.FI.3 JSR|
00002C80: 20 92 57 00 90 34 78 1E 43 4D 50 20 23 24 30 30 | .W..4x.CMP #$00|
00002C90: 00 9D 34 82 1E 42 45 51 20 46 49 DF 33 00 AA 34 |..4..BEQ FI.3..4|
00002CA0: 8C 1E 43 4D 50 20 23 24 46 46 00 B7 34 96 1E 42 |..CMP #$FF..4..B|
00002CB0: 4E 45 20 46 49 DF 34 00 C7 34 A0 1E 4A 53 52 20 |NE FI.4..4..JSR |
00002CC0: 44 4F 55 42 4C 45 A1 00 D6 34 AA 1E 4A 4D 50 20 |DOUBLE...4..JMP |
00002CD0: 46 49 4C 45 E4 42 00 E8 34 B4 1E 46 49 DF 34 20 |FILE.B..4..FI.4 |
00002CE0: 43 4D 50 20 23 24 30 34 00 F5 34 BE 1E 42 45 51 |CMP #$04..4..BEQ|
00002CF0: 20 46 49 DF 33 00 00 35 C8 1E 42 43 53 20 99 C6 | FI.3..5..BCS ..|
00002D00: 00 0B 35 D2 1E 4A 4D 50 20 99 DC 00 1B 35 DC 1E |..5..JMP ....5..|
00002D10: 99 C6 20 4C 44 41 20 23 24 30 31 00 27 35 E6 1E |.. LDA #$01.'5..|
00002D20: 53 54 41 20 EC 53 54 00 35 35 F0 1E 4C 44 41 20 |STA .ST.55..LDA |
00002D30: EC 53 54 AA 31 00 42 35 FA 1E 43 4D 50 20 23 24 |.ST.1.B5..CMP #$|
00002D40: 30 34 00 4F 35 04 1F 42 45 51 20 46 49 DF 35 00 |04.O5..BEQ FI.5.|
00002D50: 5D 35 0E 1F 4A 53 52 20 53 45 54 50 57 00 71 35 |]5..JSR SETPW.q5|
00002D60: 18 1F 46 49 DF 35 20 4A 53 52 20 A1 53 54 41 52 |..FI.5 JSR .STAR|
00002D70: 54 00 7F 35 22 1F 4C 44 58 20 EC 53 54 AA 31 00 |T..5".LDX .ST.1.|
00002D80: 8C 35 2C 1F 4C 44 41 20 23 24 30 37 00 94 35 36 |.5,.LDA #$07..56|
00002D90: 1F 54 41 59 00 A3 35 40 1F 4A 53 52 20 53 45 54 |.TAY..5@.JSR SET|
00002DA0: 46 4C 53 00 B0 35 4A 1F 4C 44 41 20 23 24 30 30 |FLS..5J.LDA #$00|
00002DB0: 00 BF 35 54 1F 4A 53 52 20 53 45 54 4E 41 4D 00 |..5T.JSR SETNAM.|
00002DC0: C9 35 5E 1F 4A 53 52 20 9F 00 D9 35 68 1F 4A 53 |.5^.JSR ...5h.JS|
00002DD0: 52 20 4E 41 4D 45 32 30 30 00 E5 35 72 1F 4A 53 |R NAME200..5r.JS|
00002DE0: 52 20 9F 4E B0 00 F1 35 7C 1F 4A 53 52 20 9C 49 |R .N...5|.JSR .I|
00002DF0: 4E 00 FD 35 86 1F 4A 53 52 20 42 41 BF 00 09 36 |N..5..JSR BA...6|
00002E00: 90 1F 4A 53 52 20 42 41 BF 00 16 36 9A 1F 4C 44 |..JSR BA...6..LD|
00002E10: 41 20 23 24 30 30 00 24 36 A4 1F 53 54 41 20 56 |A #$00.$6..STA V|
00002E20: 45 43 A4 52 00 37 36 AE 1F 46 49 DF 36 20 4C 44 |EC.R.76..FI.6 LD|
00002E30: 41 20 56 45 43 A4 52 00 44 36 B8 1F 42 4E 45 20 |A VEC.R.D6..BNE |
00002E40: 46 49 DF 42 00 51 36 C2 1F 4C 44 41 20 46 49 52 |FI.B.Q6..LDA FIR|
00002E50: 45 00 5C 36 CC 1F 45 B0 20 EC 53 54 00 69 36 D6 |E.\6..E. .ST.i6.|
00002E60: 1F 42 45 51 20 46 49 DF 36 00 79 36 E0 1F 4A 53 |.BEQ FI.6.y6..JS|
00002E70: 52 20 41 4E 41 4C 59 5A 45 00 86 36 EA 1F 43 4D |R ANALYZE..6..CM|
00002E80: 50 20 23 24 46 46 00 92 36 F4 1F 42 4E 45 20 46 |P #$FF..6..BNE F|
00002E90: 49 99 00 9F 36 FE 1F 4A 53 52 20 9C 4F 55 54 00 |I...6..JSR .OUT.|
00002EA0: AA 36 08 20 4A 53 52 20 43 52 00 B6 36 12 20 4A |.6. JSR CR..6. J|
00002EB0: 53 52 20 9C 43 48 00 C4 36 1C 20 4A 4D 50 20 46 |SR .CH..6. JMP F|
00002EC0: 49 DF 42 31 00 D4 36 26 20 46 49 99 20 4A 53 52 |I.B1..6& FI. JSR|
00002ED0: 20 9C 49 4E 00 E0 36 30 20 4A 53 52 20 42 41 BF | .IN..60 JSR BA.|
00002EE0: 00 E8 36 3A 20 54 41 58 00 F4 36 44 20 4C 44 59 |..6: TAX..6D LDY|
00002EF0: 20 24 39 30 00 02 37 4E 20 53 54 59 20 56 45 43 | $90..7N STY VEC|
00002F00: A4 52 00 13 37 58 20 AF 20 23 25 30 31 31 31 31 |.R..7X . #%01111|
00002F10: 31 31 31 00 20 37 62 20 43 4D 50 20 23 24 30 44 |111. 7b CMP #$0D|
00002F20: 00 2D 37 6C 20 42 45 51 20 46 49 DF 37 00 35 37 |.-7l BEQ FI.7.57|
00002F30: 76 20 54 58 41 00 42 37 80 20 43 4D 50 20 23 22 |v TXA.B7. CMP #"|
00002F40: 20 22 00 4F 37 8A 20 42 43 43 20 46 49 DF 36 00 | ".O7. BCC FI.6.|
00002F50: 5C 37 94 20 43 4D 50 20 23 24 38 30 00 69 37 9E |\7. CMP #$80.i7.|
00002F60: 20 42 43 43 20 46 49 DF 37 00 76 37 A8 20 43 4D | BCC FI.7.v7. CM|
00002F70: 50 20 23 24 41 30 00 83 37 B2 20 42 43 43 20 46 |P #$A0..7. BCC F|
00002F80: 49 DF 36 00 95 37 BC 20 46 49 DF 37 20 4A 53 52 |I.6..7. FI.7 JSR|
00002F90: 20 9C 4F 55 54 00 9F 37 C6 20 4A 53 52 20 99 00 | .OUT..7. JSR ..|
00002FA0: AC 37 D0 20 4C 44 41 20 23 24 30 30 00 B8 37 DA |.7. LDA #$00..7.|
00002FB0: 20 53 54 41 20 24 44 34 00 C6 37 E4 20 4C 44 41 | STA $D4..7. LDA|
00002FC0: 20 56 45 43 A4 52 00 D3 37 EE 20 42 45 51 20 46 | VEC.R..7. BEQ F|
00002FD0: 49 DF 36 00 E5 37 F8 20 46 49 DF 42 20 4A 53 52 |I.6..7. FI.B JSR|
00002FE0: 20 9C 4F 55 54 00 F0 37 02 21 4A 53 52 20 43 52 | .OUT..7.!JSR CR|
00002FF0: 00 FC 37 0C 21 4A 53 52 20 9C 43 48 00 0B 38 16 |..7.!JSR .CH..8.|
00003000: 21 4A 53 52 20 57 34 46 49 52 45 00 19 38 20 21 |!JSR W4FIRE..8 !|
00003010: 4C 44 41 20 EC 53 54 AA 31 00 26 38 2A 21 43 4D |LDA .ST.1.&8*!CM|
00003020: 50 20 23 24 30 33 00 34 38 34 21 42 4E 45 20 46 |P #$03.484!BNE F|
00003030: 49 DF 42 31 00 43 38 3E 21 4A 53 52 20 57 34 46 |I.B1.C8>!JSR W4F|
00003040: 49 52 45 00 56 38 48 21 46 49 DF 42 31 20 4C 44 |IRE.V8H!FI.B1 LD|
00003050: 41 20 23 24 30 37 00 60 38 52 21 4A 53 52 20 A0 |A #$07.`8R!JSR .|
00003060: 00 6D 38 5C 21 4C 44 41 20 23 24 30 38 00 77 38 |.m8\!LDA #$08.w8|
00003070: 66 21 4A 53 52 20 A0 00 87 38 70 21 4A 53 52 20 |f!JSR ...8p!JSR |
00003080: 44 4F 55 42 4C 45 A1 00 95 38 7A 21 4C 44 41 20 |DOUBLE...8z!LDA |
00003090: EC 53 54 AA 31 00 A2 38 84 21 43 4D 50 20 23 24 |.ST.1..8.!CMP #$|
000030A0: 30 34 00 AF 38 8E 21 42 45 51 20 46 49 DF 41 00 |04..8.!BEQ FI.A.|
000030B0: BC 38 98 21 4A 53 52 20 53 43 52 A1 00 D0 38 A2 |.8.!JSR SCR...8.|
000030C0: 21 46 49 DF 41 20 4A 4D 50 20 46 49 4C 45 E4 42 |!FI.A JMP FILE.B|
000030D0: 00 E0 38 AC 21 99 DC 20 4C 44 41 20 23 24 31 30 |..8.!.. LDA #$10|
000030E0: 00 ED 38 B6 21 53 54 41 20 4C 41 53 54 00 FA 38 |..8.!STA LAST..8|
000030F0: C0 21 4C 44 41 20 23 24 30 31 00 06 39 CA 21 53 |.!LDA #$01..9.!S|
00003100: 54 41 20 EC 53 54 00 14 39 D4 21 4C 44 41 20 EC |TA .ST..9.!LDA .|
00003110: 53 54 AA 31 00 21 39 DE 21 43 4D 50 20 23 24 30 |ST.1.!9.!CMP #$0|
00003120: 34 00 2C 39 E8 21 42 45 51 20 DC 31 00 3A 39 F2 |4.,9.!BEQ .1.:9.|
00003130: 21 4A 53 52 20 53 45 54 50 57 00 47 39 FC 21 4C |!JSR SETPW.G9.!L|
00003140: 44 41 20 23 24 30 38 00 54 39 06 22 53 54 41 20 |DA #$08.T9."STA |
00003150: 4C 41 53 54 00 66 39 10 22 DC 31 20 4A 53 52 20 |LAST.f9.".1 JSR |
00003160: A1 53 54 41 52 54 00 74 39 1A 22 4C 44 58 20 EC |.START.t9."LDX .|
00003170: 53 54 AA 31 00 81 39 24 22 4C 44 41 20 23 24 30 |ST.1..9$"LDA #$0|
00003180: 37 00 89 39 2E 22 54 41 59 00 98 39 38 22 4A 53 |7..9."TAY..98"JS|
00003190: 52 20 53 45 54 46 4C 53 00 A5 39 42 22 4C 44 41 |R SETFLS..9B"LDA|
000031A0: 20 23 24 30 30 00 B4 39 4C 22 4A 53 52 20 53 45 | #$00..9L"JSR SE|
000031B0: 54 4E 41 4D 00 BE 39 56 22 4A 53 52 20 9F 00 CE |TNAM..9V"JSR ...|
000031C0: 39 60 22 4A 53 52 20 4E 41 4D 45 32 30 30 00 DA |9`"JSR NAME200..|
000031D0: 39 6A 22 4A 53 52 20 9F 4E B0 00 E6 39 74 22 4A |9j"JSR .N...9t"J|
000031E0: 53 52 20 9C 49 4E 00 F2 39 7E 22 4A 53 52 20 42 |SR .IN..9~"JSR B|
000031F0: 41 BF 00 FE 39 88 22 4A 53 52 20 42 41 BF 00 0E |A...9."JSR BA...|
00003200: 3A 92 22 DC 32 20 4A 53 52 20 9C 4F 55 54 00 1B |:.".2 JSR .OUT..|
00003210: 3A 9C 22 4C 44 41 20 57 B0 44 31 00 2A 3A A6 22 |:."LDA W.D1.*:."|
00003220: 4C 44 58 20 57 B0 44 31 AA 31 00 39 3A B0 22 4A |LDX W.D1.1.9:."J|
00003230: 53 52 20 57 B0 44 4F 55 54 00 46 3A BA 22 4C 44 |SR W.DOUT.F:."LD|
00003240: 59 20 4C 41 53 54 00 53 3A C4 22 4C 44 41 20 23 |Y LAST.S:."LDA #|
00003250: 24 30 30 00 67 3A CE 22 DC 33 20 53 54 41 20 42 |$00.g:.".3 STA B|
00003260: 55 46 42 45 47 2C 59 00 6F 3A D8 22 44 45 59 00 |UFBEG,Y.o:."DEY.|
00003270: 7A 3A E2 22 42 50 4C 20 DC 33 00 86 3A EC 22 4A |z:."BPL .3..:."J|
00003280: 53 52 20 9C 49 4E 00 93 3A F6 22 4C 44 59 20 23 |SR .IN..:."LDY #|
00003290: 24 30 30 00 A2 3A 00 23 DC 34 20 4A 53 52 20 42 |$00..:.#.4 JSR B|
000032A0: 41 BF 00 B3 3A 0A 23 53 54 41 20 42 55 46 42 45 |A...:.#STA BUFBE|
000032B0: 47 2C 59 00 BF 3A 14 23 4C 44 41 20 24 39 30 00 |G,Y..:.#LDA $90.|
000032C0: CA 3A 1E 23 42 4E 45 20 DC 35 00 D2 3A 28 23 49 |.:.#BNE .5..:(#I|
000032D0: 4E 59 00 DF 3A 32 23 43 50 59 20 4C 41 53 54 00 |NY..:2#CPY LAST.|
000032E0: EA 3A 3C 23 42 4E 45 20 DC 34 00 F9 3A 46 23 DC |.:<#BNE .4..:F#.|
000032F0: 35 20 4C 44 41 20 24 39 30 00 01 3B 50 23 50 48 |5 LDA $90..;P#PH|
00003300: 41 00 0E 3B 5A 23 4A 53 52 20 9C 4F 55 54 00 1C |A..;Z#JSR .OUT..|
00003310: 3B 64 23 4A 53 52 20 53 50 41 43 45 00 29 3B 6E |;d#JSR SPACE.);n|
00003320: 23 4C 44 41 20 23 24 30 30 00 33 3B 78 23 53 54 |#LDA #$00.3;x#ST|
00003330: 41 20 82 00 3E 3B 82 23 DC 36 20 54 41 59 00 4F |A ..>;.#.6 TAY.O|
00003340: 3B 8C 23 4C 44 41 20 42 55 46 42 45 47 2C 59 00 |;.#LDA BUFBEG,Y.|
00003350: 5B 3B 96 23 4A 53 52 20 DC 53 50 00 65 3B A0 23 |[;.#JSR .SP.e;.#|
00003360: 49 4E 43 20 82 00 6F 3B AA 23 4C 44 41 20 82 00 |INC ..o;.#LDA ..|
00003370: 7C 3B B4 23 43 4D 50 20 4C 41 53 54 00 87 3B BE ||;.#CMP LAST..;.|
00003380: 23 42 4E 45 20 DC 36 00 94 3B C8 23 4C 44 59 20 |#BNE .6..;.#LDY |
00003390: 23 24 30 30 00 A8 3B D2 23 DC 37 20 4C 44 41 20 |#$00..;.#.7 LDA |
000033A0: 42 55 46 42 45 47 2C 59 00 B0 3B DC 23 49 4E 59 |BUFBEG,Y..;.#INY|
000033B0: 00 BD 3B E6 23 43 50 59 20 4C 41 53 54 00 C8 3B |..;.#CPY LAST..;|
000033C0: F0 23 42 45 51 20 DC 41 00 D3 3B FA 23 42 43 53 |.#BEQ .A..;.#BCS|
000033D0: 20 DC 39 00 E3 3B 04 24 DC 41 20 43 4D 50 20 23 | .9..;.$.A CMP #|
000033E0: 22 20 22 00 EE 3B 0E 24 42 43 43 20 DC 50 00 FB |" "..;.$BCC .P..|
000033F0: 3B 18 24 43 4D 50 20 23 24 38 30 00 06 3C 22 24 |;.$CMP #$80..<"$|
00003400: 42 43 43 20 DC 38 00 13 3C 2C 24 43 4D 50 20 23 |BCC .8..<,$CMP #|
00003410: 24 41 30 00 1E 3C 36 24 42 43 43 20 DC 50 00 2B |$A0..<6$BCC .P.+|
00003420: 3C 40 24 DC 38 20 4A 53 52 20 99 00 36 3C 4A 24 |<@$.8 JSR ..6<J$|
00003430: 4A 4D 50 20 DC 37 00 46 3C 54 24 DC 50 20 4C 44 |JMP .7.F<T$.P LD|
00003440: 41 20 23 22 2E 22 00 51 3C 5E 24 42 4E 45 20 DC |A #".".Q<^$BNE .|
00003450: 38 00 5C 3C 68 24 DC 39 20 50 4C 41 00 67 3C 72 |8.\<h$.9 PLA.g<r|
00003460: 24 42 4E 45 20 DC 45 00 74 3C 7C 24 4C 44 41 20 |$BNE .E.t<|$LDA |
00003470: 4C 41 53 54 00 7C 3C 86 24 43 4C 43 00 89 3C 90 |LAST.|<.$CLC..<.|
00003480: 24 41 44 43 20 57 B0 44 31 00 96 3C 9A 24 53 54 |$ADC W.D1..<.$ST|
00003490: 41 20 57 B0 44 31 00 A3 3C A4 24 4C 44 41 20 23 |A W.D1..<.$LDA #|
000034A0: 24 30 30 00 B2 3C AE 24 41 44 43 20 57 B0 44 31 |$00..<.$ADC W.D1|
000034B0: AA 31 00 C1 3C B8 24 53 54 41 20 57 B0 44 31 AA |.1..<.$STA W.D1.|
000034C0: 31 00 CE 3C C2 24 4C 44 41 20 23 24 30 30 00 DA |1..<.$LDA #$00..|
000034D0: 3C CC 24 53 54 41 20 24 44 34 00 E5 3C D6 24 4A |<.$STA $D4..<.$J|
000034E0: 53 52 20 43 52 00 F5 3C E0 24 DC 42 20 4C 44 41 |SR CR..<.$.B LDA|
000034F0: 20 46 49 52 45 00 00 3D EA 24 45 B0 20 EC 53 54 | FIRE..=.$E. .ST|
00003500: 00 0B 3D F4 24 42 45 51 20 DC 42 00 1B 3D FE 24 |..=.$BEQ .B..=.$|
00003510: 4A 53 52 20 41 4E 41 4C 59 5A 45 00 28 3D 08 25 |JSR ANALYZE.(=.%|
00003520: 43 4D 50 20 23 24 46 46 00 34 3D 12 25 42 4E 45 |CMP #$FF.4=.%BNE|
00003530: 20 46 49 DC 00 3F 3D 1C 25 4A 53 52 20 43 52 00 | FI..?=.%JSR CR.|
00003540: 4B 3D 26 25 4A 53 52 20 9C 43 48 00 59 3D 30 25 |K=&%JSR .CH.Y=0%|
00003550: 4A 4D 50 20 46 49 DF 42 31 00 68 3D 3A 25 46 49 |JMP FI.B1.h=:%FI|
00003560: DC 20 4A 4D 50 20 DC 32 00 7A 3D 44 25 DC 43 20 |. JMP .2.z=D%.C |
00003570: 4A 53 52 20 57 34 46 49 52 45 00 8A 3D 4E 25 DC |JSR W4FIRE..=N%.|
00003580: 45 20 4A 4D 50 20 46 49 DF 42 00 9C 3D 58 25 44 |E JMP FI.B..=X%D|
00003590: 49 53 4B 20 4C 44 41 20 23 24 31 30 00 A7 3D 62 |ISK LDA #$10..=b|
000035A0: 25 53 54 41 20 57 58 00 B4 3D 6C 25 4C 44 41 20 |%STA WX..=l%LDA |
000035B0: 23 24 30 37 00 BF 3D 76 25 53 54 41 20 57 48 00 |#$07..=v%STA WH.|
000035C0: CC 3D 80 25 4C 44 41 20 23 24 30 38 00 D7 3D 8A |.=.%LDA #$08..=.|
000035D0: 25 53 54 41 20 57 57 00 EA 3D 94 25 4C 44 41 20 |%STA WW..=.%LDA |
000035E0: 23 B3 44 49 53 4B 4D 45 4E 55 00 FD 3D 9E 25 4C |#.DISKMENU..=.%L|
000035F0: 44 59 20 23 B1 44 49 53 4B 4D 45 4E 55 00 0C 3E |DY #.DISKMENU..>|
00003600: A8 25 4A 53 52 20 50 44 4D 45 4E 55 00 19 3E B2 |.%JSR PDMENU..>.|
00003610: 25 43 4D 50 20 23 24 30 30 00 27 3E BC 25 42 4E |%CMP #$00.'>.%BN|
00003620: 45 20 44 49 53 4B 31 00 34 3E C6 25 4A 4D 50 20 |E DISK1.4>.%JMP |
00003630: 53 43 52 A1 00 49 3E D0 25 44 49 53 4B 31 20 4A |SCR..I>.%DISK1 J|
00003640: 53 52 20 49 4E 56 45 52 53 00 51 3E DA 25 41 53 |SR INVERS.Q>.%AS|
00003650: 4C 00 59 3E E4 25 54 41 59 00 6D 3E EE 25 4C 44 |L.Y>.%TAY.m>.%LD|
00003660: 41 20 44 49 53 4B 54 41 42 AB 32 2C 59 00 7A 3E |A DISKTAB.2,Y.z>|
00003670: F8 25 53 54 41 20 52 45 47 31 00 8E 3E 02 26 4C |.%STA REG1..>.&L|
00003680: 44 41 20 44 49 53 4B 54 41 42 AB 31 2C 59 00 9B |DA DISKTAB.1,Y..|
00003690: 3E 0C 26 53 54 41 20 52 45 47 32 00 AA 3E 16 26 |>.&STA REG2..>.&|
000036A0: 4A 4D 50 20 28 52 45 47 31 29 00 BD 3E 20 26 44 |JMP (REG1)..> &D|
000036B0: 49 53 4B E5 20 4A 53 52 20 53 A4 55 54 00 CE 3E |ISK. JSR S.UT..>|
000036C0: 2A 26 4A 53 52 20 52 45 49 4E 56 45 52 53 00 DB |*&JSR REINVERS..|
000036D0: 3E 34 26 4A 4D 50 20 53 43 52 A1 00 ED 3E 3E 26 |>4&JMP SCR...>>&|
000036E0: 44 49 53 4B 56 41 20 4A 53 52 20 92 91 00 FA 3E |DISKVA JSR ....>|
000036F0: 48 26 4C 44 41 20 23 24 30 31 00 07 3F 52 26 4C |H&LDA #$01..?R&L|
00003700: 44 58 20 23 B3 C5 49 00 14 3F 5C 26 4C 44 59 20 |DX #..I..?\&LDY |
00003710: 23 B1 C5 49 00 23 3F 66 26 4A 53 52 20 53 45 54 |#..I.#?f&JSR SET|
00003720: 4E 41 4D 00 30 3F 70 26 4A 53 52 20 9F 45 52 52 |NAM.0?p&JSR .ERR|
00003730: 00 3D 3F 7A 26 4A 53 52 20 A0 45 52 52 00 48 3F |.=?z&JSR .ERR.H?|
00003740: 84 26 4A 53 52 20 92 E0 00 59 3F 8E 26 4A 53 52 |.&JSR ...Y?.&JSR|
00003750: 20 52 45 49 4E 56 45 52 53 00 66 3F 98 26 4A 4D | REINVERS.f?.&JM|
00003760: 50 20 53 43 52 A1 00 7A 3F A2 26 44 49 53 4B 52 |P SCR..z?.&DISKR|
00003770: 45 20 4A 53 52 20 46 49 42 4C 00 89 3F AC 26 4A |E JSR FIBL..?.&J|
00003780: 53 52 20 45 52 52 4F 55 54 00 9A 3F B6 26 4C 44 |SR ERROUT..?.&LD|
00003790: 41 20 23 B3 42 55 46 50 4F B5 00 AB 3F C0 26 4C |A #.BUFPO...?.&L|
000037A0: 44 59 20 23 B1 42 55 46 50 4F B5 00 B9 3F CA 26 |DY #.BUFPO...?.&|
000037B0: 4A 53 52 20 24 41 42 31 45 00 C5 3F D4 26 4A 53 |JSR $AB1E..?.&JS|
000037C0: 52 20 9C 43 48 00 D2 3F DE 26 4A 53 52 20 4E B0 |R .CH..?.&JSR N.|
000037D0: 49 4E 00 DF 3F E8 26 4C 44 59 20 23 24 30 30 00 |IN..?.&LDY #$00.|
000037E0: F1 3F F2 26 44 49 53 4B 52 45 31 20 4A 53 52 20 |.?.&DISKRE1 JSR |
000037F0: A1 00 01 40 FC 26 53 54 41 20 24 30 32 30 30 2C |...@.&STA $0200,|
00003800: 59 00 09 40 06 27 49 4E 59 00 16 40 10 27 43 50 |Y..@.'INY..@.'CP|
00003810: 59 20 23 24 31 37 00 26 40 1A 27 42 4E 45 20 44 |Y #$17.&@.'BNE D|
00003820: 49 53 4B 52 45 31 00 32 40 24 27 4A 53 52 20 9C |ISKRE1.2@$'JSR .|
00003830: 43 48 00 3F 40 2E 27 4C 44 41 20 23 24 31 31 00 |CH.?@.'LDA #$11.|
00003840: 4A 40 38 27 53 54 41 20 57 57 00 57 40 42 27 4C |J@8'STA WW.W@B'L|
00003850: 44 41 20 23 24 30 41 00 64 40 4C 27 4C 44 58 20 |DA #$0A.d@L'LDX |
00003860: 23 24 30 35 00 71 40 56 27 4C 44 59 20 23 24 30 |#$05.q@V'LDY #$0|
00003870: 35 00 7E 40 60 27 4A 53 52 20 57 53 45 54 00 90 |5.~@`'JSR WSET..|
00003880: 40 6A 27 4C 44 41 20 23 B3 44 49 53 4B 54 49 54 |@j'LDA #.DISKTIT|
00003890: 00 A2 40 74 27 4C 44 59 20 23 B1 44 49 53 4B 54 |..@t'LDY #.DISKT|
000038A0: 49 54 00 B1 40 7E 27 4A 53 52 20 57 49 4E 44 4F |IT..@~'JSR WINDO|
000038B0: 57 00 C3 40 88 27 4C 44 41 20 23 B3 44 49 53 4B |W..@.'LDA #.DISK|
000038C0: 54 58 54 00 D5 40 92 27 4C 44 59 20 23 B1 44 49 |TXT..@.'LDY #.DI|
000038D0: 53 4B 54 58 54 00 E2 40 9C 27 4A 53 52 20 EC 4F |SKTXT..@.'JSR .O|
000038E0: 55 54 00 EF 40 A6 27 4C 44 59 20 23 24 30 30 00 |UT..@.'LDY #$00.|
000038F0: 07 41 B0 27 44 49 53 4B 52 45 32 20 4C 44 41 20 |.A.'DISKRE2 LDA |
00003900: 24 30 32 30 30 2C 59 00 11 41 BA 27 4A 53 52 20 |$0200,Y..A.'JSR |
00003910: 99 00 19 41 C4 27 49 4E 59 00 26 41 CE 27 43 50 |...A.'INY.&A.'CP|
00003920: 59 20 23 24 31 30 00 36 41 D8 27 42 4E 45 20 44 |Y #$10.6A.'BNE D|
00003930: 49 53 4B 52 45 32 00 41 41 E2 27 4A 53 52 20 43 |ISKRE2.AA.'JSR C|
00003940: 52 00 4C 41 EC 27 4A 53 52 20 43 52 00 59 41 F6 |R.LA.'JSR CR.YA.|
00003950: 27 4C 44 59 20 23 24 30 30 00 71 41 00 28 44 49 |'LDY #$00.qA.(DI|
00003960: 53 4B 52 45 33 20 4C 44 41 20 24 30 32 31 32 2C |SKRE3 LDA $0212,|
00003970: 59 00 7B 41 0A 28 4A 53 52 20 99 00 83 41 14 28 |Y.{A.(JSR ...A.(|
00003980: 49 4E 59 00 90 41 1E 28 43 50 59 20 23 24 30 35 |INY..A.(CPY #$05|
00003990: 00 A0 41 28 28 42 4E 45 20 44 49 53 4B 52 45 33 |..A((BNE DISKRE3|
000039A0: 00 B3 41 32 28 4C 44 41 20 23 B3 44 49 53 4B 54 |..A2(LDA #.DISKT|
000039B0: 58 54 32 00 C6 41 3C 28 4C 44 59 20 23 B1 44 49 |XT2..A<(LDY #.DI|
000039C0: 53 4B 54 58 54 32 00 D3 41 46 28 4A 53 52 20 EC |SKTXT2..AF(JSR .|
000039D0: 4F 55 54 00 E0 41 50 28 4C 44 59 20 23 24 30 30 |OUT..AP(LDY #$00|
000039E0: 00 F8 41 5A 28 44 49 53 4B 52 45 34 20 4C 44 41 |..AZ(DISKRE4 LDA|
000039F0: 20 24 30 32 30 30 2C 59 00 09 42 64 28 53 54 41 | $0200,Y..Bd(STA|
00003A00: 20 42 55 46 42 45 47 2C 59 00 11 42 6E 28 49 4E | BUFBEG,Y..Bn(IN|
00003A10: 59 00 1E 42 78 28 43 50 59 20 23 24 31 37 00 2E |Y..Bx(CPY #$17..|
00003A20: 42 82 28 42 4E 45 20 44 49 53 4B 52 45 34 00 38 |B.(BNE DISKRE4.8|
00003A30: 42 8C 28 4A 53 52 20 85 00 46 42 96 28 4C 44 41 |B.(JSR ..FB.(LDA|
00003A40: 20 24 30 32 30 30 00 56 42 A0 28 42 45 51 20 44 | $0200.VB.(BEQ D|
00003A50: 49 53 4B 52 45 37 00 63 42 AA 28 4C 44 59 20 23 |ISKRE7.cB.(LDY #|
00003A60: 24 30 30 00 78 42 B4 28 44 49 53 4B 52 45 35 20 |$00.xB.(DISKRE5 |
00003A70: 4C 44 41 20 23 22 20 22 00 89 42 BE 28 53 54 41 |LDA #" "..B.(STA|
00003A80: 20 42 55 46 42 45 47 2C 59 00 91 42 C8 28 49 4E | BUFBEG,Y..B.(IN|
00003A90: 59 00 9E 42 D2 28 43 50 59 20 23 24 31 30 00 AE |Y..B.(CPY #$10..|
00003AA0: 42 DC 28 42 4E 45 20 44 49 53 4B 52 45 35 00 BB |B.(BNE DISKRE5..|
00003AB0: 42 E6 28 4C 44 59 20 23 24 30 30 00 D3 42 F0 28 |B.(LDY #$00..B.(|
00003AC0: 44 49 53 4B 52 45 36 20 4C 44 41 20 24 30 32 30 |DISKRE6 LDA $020|
00003AD0: 30 2C 59 00 E3 42 FA 28 42 45 51 20 44 49 53 4B |0,Y..B.(BEQ DISK|
00003AE0: 52 45 37 00 F4 42 04 29 53 54 41 20 42 55 46 42 |RE7..B.)STA BUFB|
00003AF0: 45 47 2C 59 00 FC 42 0E 29 49 4E 59 00 0C 43 18 |EG,Y..B.)INY..C.|
00003B00: 29 42 4E 45 20 44 49 53 4B 52 45 36 00 21 43 22 |)BNE DISKRE6.!C"|
00003B10: 29 44 49 53 4B 52 45 37 20 4C 44 41 20 23 24 30 |)DISKRE7 LDA #$0|
00003B20: 36 00 2C 43 2C 29 4A 53 52 20 9C EB 00 39 43 36 |6.,C,)JSR ...9C6|
00003B30: 29 4C 44 41 20 23 24 30 38 00 44 43 40 29 4A 53 |)LDA #$08.DC@)JS|
00003B40: 52 20 9C EB 00 51 43 4A 29 4C 44 58 20 23 24 30 |R ...QCJ)LDX #$0|
00003B50: 43 00 5E 43 54 29 4C 44 59 20 23 24 30 35 00 68 |C.^CT)LDY #$05.h|
00003B60: 43 5E 29 4A 53 52 20 E9 00 7B 43 68 29 4C 44 41 |C^)JSR ..{Ch)LDA|
00003B70: 20 23 B3 44 49 53 4B 54 58 54 33 00 8E 43 72 29 | #.DISKTXT3..Cr)|
00003B80: 4C 44 59 20 23 B1 44 49 53 4B 54 58 54 33 00 9B |LDY #.DISKTXT3..|
00003B90: 43 7C 29 4A 53 52 20 EC 4F 55 54 00 A5 43 86 29 |C|)JSR .OUT..C.)|
00003BA0: 4A 53 52 20 85 00 B3 43 90 29 4C 44 41 20 24 30 |JSR ...C.)LDA $0|
00003BB0: 32 30 30 00 C3 43 9A 29 42 45 51 20 44 49 53 4B |200..C.)BEQ DISK|
00003BC0: 52 45 41 00 D0 43 A4 29 4C 44 59 20 23 24 30 30 |REA..C.)LDY #$00|
00003BD0: 00 DD 43 AE 29 4C 44 41 20 23 22 20 22 00 FA 43 |..C.)LDA #" "..C|
00003BE0: B8 29 44 49 53 4B 52 45 38 20 53 54 41 20 42 55 |.)DISKRE8 STA BU|
00003BF0: 46 42 45 47 AA 24 31 32 2C 59 00 02 44 C2 29 49 |FBEG.$12,Y..D.)I|
00003C00: 4E 59 00 0F 44 CC 29 43 50 59 20 23 24 30 35 00 |NY..D.)CPY #$05.|
00003C10: 1F 44 D6 29 42 4E 45 20 44 49 53 4B 52 45 38 00 |.D.)BNE DISKRE8.|
00003C20: 2C 44 E0 29 4C 44 59 20 23 24 30 30 00 44 44 EA |,D.)LDY #$00.DD.|
00003C30: 29 44 49 53 4B 52 45 39 20 4C 44 41 20 24 30 32 |)DISKRE9 LDA $02|
00003C40: 30 30 2C 59 00 54 44 F4 29 42 45 51 20 44 49 53 |00,Y.TD.)BEQ DIS|
00003C50: 4B 52 45 41 00 69 44 FE 29 53 54 41 20 42 55 46 |KREA.iD.)STA BUF|
00003C60: 42 45 47 AA 24 31 32 2C 59 00 71 44 08 2A 49 4E |BEG.$12,Y.qD.*IN|
00003C70: 59 00 7E 44 12 2A 43 50 59 20 23 24 30 35 00 8E |Y.~D.*CPY #$05..|
00003C80: 44 1C 2A 42 4E 45 20 44 49 53 4B 52 45 39 00 A5 |D.*BNE DISKRE9..|
00003C90: 44 26 2A 44 49 53 4B 52 45 41 20 4A 53 52 20 45 |D&*DISKREA JSR E|
00003CA0: 52 52 4F 55 54 00 B6 44 30 2A 4C 44 41 20 23 B3 |RROUT..D0*LDA #.|
00003CB0: 42 55 46 50 4F B5 00 C7 44 3A 2A 4C 44 59 20 23 |BUFPO...D:*LDY #|
00003CC0: B1 42 55 46 50 4F B5 00 D5 44 44 2A 4A 53 52 20 |.BUFPO...DD*JSR |
00003CD0: 24 41 42 31 45 00 E1 44 4E 2A 4A 53 52 20 9C 43 |$AB1E..DN*JSR .C|
00003CE0: 48 00 EF 44 58 2A 4A 53 52 20 4E B0 4F 55 54 00 |H..DX*JSR N.OUT.|
00003CF0: FC 44 62 2A 4C 44 59 20 23 24 30 30 00 15 45 6C |.Db*LDY #$00..El|
00003D00: 2A 44 49 53 4B 52 45 42 20 4C 44 41 20 42 55 46 |*DISKREB LDA BUF|
00003D10: 42 45 47 2C 59 00 1F 45 76 2A 4A 53 52 20 99 00 |BEG,Y..Ev*JSR ..|
00003D20: 27 45 80 2A 49 4E 59 00 34 45 8A 2A 43 50 59 20 |'E.*INY.4E.*CPY |
00003D30: 23 24 31 37 00 44 45 94 2A 42 4E 45 20 44 49 53 |#$17.DE.*BNE DIS|
00003D40: 4B 52 45 42 00 50 45 9E 2A 4A 53 52 20 9C 43 48 |KREB.PE.*JSR .CH|
00003D50: 00 5D 45 A8 2A 4C 44 41 20 23 22 32 22 00 69 45 |.]E.*LDA #"2".iE|
00003D60: B2 2A 53 54 41 20 87 AA 31 00 78 45 BC 2A 4A 53 |.*STA ..1.xE.*JS|
00003D70: 52 20 45 52 52 4F 55 54 00 84 45 C6 2A 4C 44 41 |R ERROUT..E.*LDA|
00003D80: 20 23 B3 87 00 90 45 D0 2A 4C 44 59 20 23 B1 87 | #....E.*LDY #..|
00003D90: 00 9E 45 DA 2A 4A 53 52 20 24 41 42 31 45 00 AA |..E.*JSR $AB1E..|
00003DA0: 45 E4 2A 4A 53 52 20 9C 43 48 00 B7 45 EE 2A 4C |E.*JSR .CH..E.*L|
00003DB0: 44 41 20 23 22 31 22 00 C3 45 F8 2A 53 54 41 20 |DA #"1"..E.*STA |
00003DC0: 87 AA 31 00 D2 45 02 2B 4A 53 52 20 45 52 52 4F |..1..E.+JSR ERRO|
00003DD0: 55 54 00 DF 45 0C 2B 4C 44 41 20 23 22 49 22 00 |UT..E.+LDA #"I".|
00003DE0: E9 45 16 2B 4A 53 52 20 99 00 F5 45 20 2B 4A 53 |.E.+JSR ...E +JS|
00003DF0: 52 20 9C 43 48 00 02 46 2A 2B 4A 53 52 20 A0 45 |R .CH..F*+JSR .E|
00003E00: 52 52 00 0F 46 34 2B 4C 44 41 20 23 24 30 32 00 |RR..F4+LDA #$02.|
00003E10: 19 46 3E 2B 4A 53 52 20 A0 00 2A 46 48 2B 4A 53 |.F>+JSR ..*FH+JS|
00003E20: 52 20 52 45 49 4E 56 45 52 53 00 3A 46 52 2B 4A |R REINVERS.:FR+J|
00003E30: 4D 50 20 44 4F 55 42 4C 45 A1 00 50 46 5C 2B 44 |MP DOUBLE..PF\+D|
00003E40: 49 53 4B 4C 4F 43 4B 20 4A 53 52 20 46 49 42 4C |ISKLOCK JSR FIBL|
00003E50: 00 5D 46 66 2B 4C 44 58 20 23 24 30 37 00 6A 46 |.]Ff+LDX #$07.jF|
00003E60: 70 2B 4C 44 59 20 23 24 30 37 00 77 46 7A 2B 4C |p+LDY #$07.wFz+L|
00003E70: 44 41 20 23 24 30 42 00 82 46 84 2B 53 54 41 20 |DA #$0B..F.+STA |
00003E80: 57 57 00 8F 46 8E 2B 4C 44 41 20 23 24 30 43 00 |WW..F.+LDA #$0C.|
00003E90: 9C 46 98 2B 4A 53 52 20 57 53 45 54 00 AD 46 A2 |.F.+JSR WSET..F.|
00003EA0: 2B 4C 44 41 20 23 B3 4C 4F 43 4B 54 49 00 BE 46 |+LDA #.LOCKTI..F|
00003EB0: AC 2B 4C 44 59 20 23 B1 4C 4F 43 4B 54 49 00 CD |.+LDY #.LOCKTI..|
00003EC0: 46 B6 2B 4A 53 52 20 57 49 4E 44 4F 57 00 DC 46 |F.+JSR WINDOW..F|
00003ED0: C0 2B 4A 53 52 20 45 52 52 4F 55 54 00 EE 46 CA |.+JSR ERROUT..F.|
00003EE0: 2B 4C 44 41 20 23 B3 42 55 46 50 4F B5 31 00 00 |+LDA #.BUFPO.1..|
00003EF0: 47 D4 2B 4C 44 59 20 23 B1 42 55 46 50 4F B5 31 |G.+LDY #.BUFPO.1|
00003F00: 00 0E 47 DE 2B 4A 53 52 20 24 41 42 31 45 00 1A |..G.+JSR $AB1E..|
00003F10: 47 E8 2B 4A 53 52 20 9C 43 48 00 27 47 F2 2B 4A |G.+JSR .CH.'G.+J|
00003F20: 53 52 20 4E B0 49 4E 00 33 47 FC 2B 4A 53 52 20 |SR N.IN.3G.+JSR |
00003F30: 42 41 BF 00 3B 47 06 2C 50 48 41 00 47 47 10 2C |BA..;G.,PHA.GG.,|
00003F40: 4A 53 52 20 9C 43 48 00 58 47 1A 2C 4C 44 41 20 |JSR .CH.XG.,LDA |
00003F50: 23 B3 4C 4F 43 4B 54 31 00 69 47 24 2C 4C 44 59 |#.LOCKT1.iG$,LDY|
00003F60: 20 23 B1 4C 4F 43 4B 54 31 00 76 47 2E 2C 4A 53 | #.LOCKT1.vG.,JS|
00003F70: 52 20 EC 4F 55 54 00 7E 47 38 2C 50 4C 41 00 8B |R .OUT.~G8,PLA..|
00003F80: 47 42 2C 43 4D 50 20 23 22 41 22 00 9B 47 4C 2C |GB,CMP #"A"..GL,|
00003F90: 42 4E 45 20 44 49 53 4B 4C 4F 31 00 AC 47 56 2C |BNE DISKLO1..GV,|
00003FA0: 4C 44 41 20 23 B3 4C 4F 43 4B 54 32 00 BD 47 60 |LDA #.LOCKT2..G`|
00003FB0: 2C 4C 44 59 20 23 B1 4C 4F 43 4B 54 32 00 CA 47 |,LDY #.LOCKT2..G|
00003FC0: 6A 2C 4A 53 52 20 EC 4F 55 54 00 E3 47 74 2C 44 |j,JSR .OUT..Gt,D|
00003FD0: 49 53 4B 4C 4F 31 20 4C 44 41 20 23 B3 4C 4F 43 |ISKLO1 LDA #.LOC|
00003FE0: 4B 54 33 00 F4 47 7E 2C 4C 44 59 20 23 B1 4C 4F |KT3..G~,LDY #.LO|
00003FF0: 43 4B 54 33 00 01 48 88 2C 4A 53 52 20 EC 4F 55 |CKT3..H.,JSR .OU|
00004000: 54 00 14 48 92 2C 44 49 53 4B 4C 4F 32 20 4A 53 |T..H.,DISKLO2 JS|
00004010: 52 20 92 57 00 21 48 9C 2C 43 4D 50 20 23 24 46 |R .W.!H.,CMP #$F|
00004020: 46 00 31 48 A6 2C 42 45 51 20 44 49 53 4B 4C 4F |F.1H.,BEQ DISKLO|
00004030: 80 00 3E 48 B0 2C 43 4D 50 20 23 24 30 35 00 4E |..>H.,CMP #$05.N|
00004040: 48 BA 2C 42 43 43 20 44 49 53 4B 4C 4F 32 00 5B |H.,BCC DISKLO2.[|
00004050: 48 C4 2C 43 4D 50 20 23 24 30 38 00 6B 48 CE 2C |H.,CMP #$08.kH.,|
00004060: 42 45 51 20 44 49 53 4B 4C 4F 32 00 7B 48 D8 2C |BEQ DISKLO2.{H.,|
00004070: 42 43 53 20 44 49 53 4B 4C 4F 33 00 88 48 E2 2C |BCS DISKLO3..H.,|
00004080: 4C 44 41 20 23 22 58 22 00 95 48 EC 2C 2E 42 59 |LDA #"X"..H.,.BY|
00004090: 54 20 24 32 43 00 AA 48 F6 2C 44 49 53 4B 4C 4F |T $2C..H.,DISKLO|
000040A0: 33 20 4C 44 41 20 23 22 41 22 00 B2 48 00 2D 50 |3 LDA #"A"..H.-P|
000040B0: 48 41 00 C1 48 0A 2D 4A 53 52 20 45 52 52 4F 55 |HA..H.-JSR ERROU|
000040C0: 54 00 D3 48 14 2D 4C 44 41 20 23 B3 42 55 46 50 |T..H.-LDA #.BUFP|
000040D0: 4F B5 31 00 E5 48 1E 2D 4C 44 59 20 23 B1 42 55 |O.1..H.-LDY #.BU|
000040E0: 46 50 4F B5 31 00 F3 48 28 2D 4A 53 52 20 24 41 |FPO.1..H(-JSR $A|
000040F0: 42 31 45 00 FF 48 32 2D 4A 53 52 20 9C 43 48 00 |B1E..H2-JSR .CH.|
00004100: 0D 49 3C 2D 4A 53 52 20 4E B0 4F 55 54 00 15 49 |.I<-JSR N.OUT..I|
00004110: 46 2D 50 4C 41 00 1F 49 50 2D 4A 53 52 20 99 00 |F-PLA..IP-JSR ..|
00004120: 2B 49 5A 2D 4A 53 52 20 9C 43 48 00 38 49 64 2D |+IZ-JSR .CH.8Id-|
00004130: 4C 44 41 20 23 22 32 22 00 44 49 6E 2D 53 54 41 |LDA #"2".DIn-STA|
00004140: 20 87 AA 31 00 53 49 78 2D 4A 53 52 20 45 52 52 | ..1.SIx-JSR ERR|
00004150: 4F 55 54 00 65 49 82 2D 4C 44 41 20 23 B3 53 45 |OUT.eI.-LDA #.SE|
00004160: 54 81 4D 41 54 00 77 49 8C 2D 4C 44 59 20 23 B1 |T.MAT.wI.-LDY #.|
00004170: 53 45 54 81 4D 41 54 00 85 49 96 2D 4A 53 52 20 |SET.MAT..I.-JSR |
00004180: 24 41 42 31 45 00 9B 49 A0 2D 44 49 53 4B 4D 45 |$AB1E..I.-DISKME|
00004190: 53 53 58 20 4A 53 52 20 9C 43 48 00 AA 49 AA 2D |SSX JSR .CH..I.-|
000041A0: 4A 53 52 20 45 52 52 4F 55 54 00 B6 49 B4 2D 4C |JSR ERROUT..I.-L|
000041B0: 44 41 20 23 B3 87 00 C2 49 BE 2D 4C 44 59 20 23 |DA #....I.-LDY #|
000041C0: B1 87 00 D0 49 C8 2D 4A 53 52 20 24 41 42 31 45 |....I.-JSR $AB1E|
000041D0: 00 DC 49 D2 2D 4A 53 52 20 9C 43 48 00 E9 49 DC |..I.-JSR .CH..I.|
000041E0: 2D 4C 44 41 20 23 22 31 22 00 F5 49 E6 2D 53 54 |-LDA #"1"..I.-ST|
000041F0: 41 20 87 AA 31 00 0A 4A F0 2D 44 49 53 4B 4C 4F |A ..1..J.-DISKLO|
00004200: 80 20 4C 44 41 20 23 24 30 32 00 14 4A FA 2D 4A |. LDA #$02..J.-J|
00004210: 53 52 20 A0 00 21 4A 04 2E 4A 53 52 20 A0 45 52 |SR ..!J..JSR .ER|
00004220: 52 00 32 4A 0E 2E 4A 53 52 20 52 45 49 4E 56 45 |R.2J..JSR REINVE|
00004230: 52 53 00 42 4A 18 2E 4A 4D 50 20 44 4F 55 42 4C |RS.BJ..JMP DOUBL|
00004240: 45 A1 00 55 4A 22 2E 44 49 53 4B 81 20 4C 44 41 |E..UJ".DISK. LDA|
00004250: 20 23 24 31 35 00 60 4A 2C 2E 53 54 41 20 57 57 | #$15.`J,.STA WW|
00004260: 00 6D 4A 36 2E 4C 44 41 20 23 24 30 34 00 78 4A |.mJ6.LDA #$04.xJ|
00004270: 40 2E 53 54 41 20 57 48 00 80 4A 4A 2E 54 41 58 |@.STA WH..JJ.TAX|
00004280: 00 8D 4A 54 2E 4C 44 59 20 23 24 30 42 00 9A 4A |..JT.LDY #$0B..J|
00004290: 5E 2E 4A 53 52 20 57 53 45 54 00 AB 4A 68 2E 4C |^.JSR WSET..Jh.L|
000042A0: 44 41 20 23 B3 81 4D 41 54 54 49 00 BC 4A 72 2E |DA #..MATTI..Jr.|
000042B0: 4C 44 59 20 23 B1 81 4D 41 54 54 49 00 CB 4A 7C |LDY #..MATTI..J||
000042C0: 2E 4A 53 52 20 57 49 4E 44 4F 57 00 DB 4A 86 2E |.JSR WINDOW..J..|
000042D0: 4C 44 41 20 23 B3 81 4D 41 54 54 00 EB 4A 90 2E |LDA #..MATT..J..|
000042E0: 4C 44 59 20 23 B1 81 4D 41 54 54 00 F8 4A 9A 2E |LDY #..MATT..J..|
000042F0: 4A 53 52 20 EC 4F 55 54 00 02 4B A4 2E 4A 53 52 |JSR .OUT..K..JSR|
00004300: 20 85 00 10 4B AE 2E 4C 44 41 20 24 30 32 30 30 | ...K..LDA $0200|
00004310: 00 20 4B B8 2E 42 4E 45 20 44 49 53 4B 46 4F 31 |. K..BNE DISKFO1|
00004320: 00 36 4B C2 2E 81 4D 41 54 80 20 4A 4D 50 20 44 |.6K...MAT. JMP D|
00004330: 4F 55 42 4C 45 A1 00 4B 4B CC 2E 44 49 53 4B 46 |OUBLE..KK..DISKF|
00004340: 4F 31 20 4A 53 52 20 53 55 52 45 00 58 4B D6 2E |O1 JSR SURE.XK..|
00004350: 43 4D 50 20 23 24 46 46 00 66 4B E0 2E 42 45 51 |CMP #$FF.fK..BEQ|
00004360: 20 81 4D 41 54 80 00 73 4B EA 2E 4C 44 59 20 23 | .MAT..sK..LDY #|
00004370: 24 31 36 00 8B 4B F4 2E 44 49 53 4B 46 4F 32 20 |$16..K..DISKFO2 |
00004380: 4C 44 41 20 24 30 31 46 46 2C 59 00 9B 4B FE 2E |LDA $01FF,Y..K..|
00004390: 53 54 41 20 24 30 32 30 31 2C 59 00 A3 4B 08 2F |STA $0201,Y..K./|
000043A0: 44 45 59 00 B3 4B 12 2F 42 4E 45 20 44 49 53 4B |DEY..K./BNE DISK|
000043B0: 46 4F 32 00 C0 4B 1C 2F 4C 44 41 20 23 22 4E 22 |FO2..K./LDA #"N"|
000043C0: 00 CE 4B 26 2F 53 54 41 20 24 30 32 30 30 00 DB |..K&/STA $0200..|
000043D0: 4B 30 2F 4C 44 41 20 23 22 3A 22 00 E9 4B 3A 2F |K0/LDA #":"..K:/|
000043E0: 53 54 41 20 24 30 32 30 31 00 F9 4B 44 2F 4A 53 |STA $0201..KD/JS|
000043F0: 52 20 4E 41 4D 45 32 30 30 00 06 4C 4E 2F 4A 53 |R NAME200..LN/JS|
00004400: 52 20 9F 45 52 52 00 13 4C 58 2F 4A 53 52 20 A0 |R .ERR..LX/JSR .|
00004410: 45 52 52 00 21 4C 62 2F 4A 4D 50 20 81 4D 41 54 |ERR.!Lb/JMP .MAT|
00004420: 80 00 34 4C 6C 2F 44 49 53 4B CF 20 4C 44 41 20 |..4Ll/DISK. LDA |
00004430: 23 24 31 45 00 3F 4C 76 2F 53 54 41 20 57 57 00 |#$1E.?Lv/STA WW.|
00004440: 4C 4C 80 2F 4C 44 41 20 23 24 31 30 00 59 4C 8A |LL./LDA #$10.YL.|
00004450: 2F 4C 44 58 20 23 24 30 34 00 66 4C 94 2F 4C 44 |/LDX #$04.fL./LD|
00004460: 59 20 23 24 30 34 00 73 4C 9E 2F 4A 53 52 20 57 |Y #$04.sL./JSR W|
00004470: 53 45 54 00 84 4C A8 2F 4C 44 41 20 23 B3 44 49 |SET..L./LDA #.DI|
00004480: 53 4B CF 49 00 95 4C B2 2F 4C 44 59 20 23 B1 44 |SK.I..L./LDY #.D|
00004490: 49 53 4B CF 49 00 A4 4C BC 2F 4A 53 52 20 57 49 |ISK.I..L./JSR WI|
000044A0: 4E 44 4F 57 00 B1 4C C6 2F 4C 44 41 20 23 24 30 |NDOW..L./LDA #$0|
000044B0: 31 00 C2 4C D0 2F 4C 44 58 20 23 B3 53 54 52 49 |1..L./LDX #.STRI|
000044C0: 4E 47 00 D3 4C DA 2F 4C 44 59 20 23 B1 53 54 52 |NG..L./LDY #.STR|
000044D0: 49 4E 47 00 E2 4C E4 2F 4A 53 52 20 53 45 54 4E |ING..L./JSR SETN|
000044E0: 41 4D 00 EF 4C EE 2F 4C 44 59 20 23 24 30 30 00 |AM..L./LDY #$00.|
000044F0: FC 4C F8 2F 4C 44 58 20 23 24 30 38 00 04 4D 02 |.L./LDX #$08..M.|
00004500: 30 54 58 41 00 13 4D 0C 30 4A 53 52 20 53 45 54 |0TXA..M.0JSR SET|
00004510: 46 4C 53 00 1D 4D 16 30 4A 53 52 20 9F 00 2B 4D |FLS..M.0JSR ..+M|
00004520: 20 30 4A 53 52 20 4E B0 49 4E 32 00 38 4D 2A 30 | 0JSR N.IN2.8M*0|
00004530: 4C 44 59 20 23 24 30 34 00 4C 4D 34 30 44 49 53 |LDY #$04.LM40DIS|
00004540: 4B 43 41 31 20 4A 53 52 20 42 41 BF 00 58 4D 3E |KCA1 JSR BA..XM>|
00004550: 30 4C 44 41 20 24 39 30 00 68 4D 48 30 42 4E 45 |0LDA $90.hMH0BNE|
00004560: 20 44 49 53 4B 43 41 34 00 70 4D 52 30 44 45 59 | DISKCA4.pMR0DEY|
00004570: 00 80 4D 5C 30 42 4E 45 20 44 49 53 4B 43 41 31 |..M\0BNE DISKCA1|
00004580: 00 8C 4D 66 30 4A 53 52 20 42 41 BF 00 94 4D 70 |..Mf0JSR BA...Mp|
00004590: 30 54 41 58 00 A0 4D 7A 30 4A 53 52 20 42 41 BF |0TAX..Mz0JSR BA.|
000045A0: 00 AD 4D 84 30 4A 53 52 20 EB 50 52 54 00 BB 4D |..M.0JSR .PRT..M|
000045B0: 8E 30 4A 53 52 20 53 50 41 43 45 00 C8 4D 98 30 |.0JSR SPACE..M.0|
000045C0: 4C 44 41 20 23 24 30 30 00 D4 4D A2 30 53 54 41 |LDA #$00..M.0STA|
000045D0: 20 4D 41 58 00 E8 4D AC 30 44 49 53 4B 43 41 32 | MAX..M.0DISKCA2|
000045E0: 20 4A 53 52 20 42 41 BF 00 F5 4D B6 30 43 4D 50 | JSR BA...M.0CMP|
000045F0: 20 23 24 30 30 00 05 4E C0 30 42 45 51 20 44 49 | #$00..N.0BEQ DI|
00004600: 53 4B 43 41 33 00 12 4E CA 30 43 4D 50 20 23 24 |SKCA3..N.0CMP #$|
00004610: 32 32 00 23 4E D4 30 42 45 51 20 44 49 53 4B 43 |22.#N.0BEQ DISKC|
00004620: 41 37 42 00 2F 4E DE 30 4C 44 58 20 4D 41 58 00 |A7B./N.0LDX MAX.|
00004630: 3C 4E E8 30 43 50 58 20 23 24 31 41 00 4D 4E F2 |<N.0CPX #$1A.MN.|
00004640: 30 42 43 43 20 44 49 53 4B 43 41 37 42 00 61 4E |0BCC DISKCA7B.aN|
00004650: FC 30 44 49 53 4B 43 41 58 20 4A 53 52 20 42 41 |.0DISKCAX JSR BA|
00004660: BF 00 6E 4E 06 31 43 4D 50 20 23 24 30 30 00 7E |..nN.1CMP #$00.~|
00004670: 4E 10 31 42 4E 45 20 44 49 53 4B 43 41 58 00 8E |N.1BNE DISKCAX..|
00004680: 4E 1A 31 42 45 51 20 44 49 53 4B 43 41 33 00 9E |N.1BEQ DISKCA3..|
00004690: 4E 24 31 4A 53 52 20 54 45 53 54 43 48 52 00 AE |N$1JSR TESTCHR..|
000046A0: 4E 2E 31 42 43 53 20 44 49 53 4B 43 41 32 00 C1 |N.1BCS DISKCA2..|
000046B0: 4E 38 31 44 49 53 4B 43 41 37 42 20 4A 53 52 20 |N81DISKCA7B JSR |
000046C0: 99 00 CD 4E 42 31 49 4E 43 20 4D 41 58 00 DD 4E |...NB1INC MAX..N|
000046D0: 4C 31 4A 4D 50 20 44 49 53 4B 43 41 32 00 F0 4E |L1JMP DISKCA2..N|
000046E0: 56 31 44 49 53 4B 43 41 33 20 4A 53 52 20 43 52 |V1DISKCA3 JSR CR|
000046F0: 00 05 4F 60 31 44 49 53 4B 43 41 57 20 4C 44 41 |..O`1DISKCAW LDA|
00004700: 20 46 49 52 45 00 15 4F 6A 31 42 4E 45 20 44 49 | FIRE..Oj1BNE DI|
00004710: 53 4B 43 41 57 00 22 4F 74 31 4C 44 59 20 23 24 |SKCAW."Ot1LDY #$|
00004720: 30 32 00 32 4F 7E 31 4A 4D 50 20 44 49 53 4B 43 |02.2O~1JMP DISKC|
00004730: 41 31 00 46 4F 88 31 44 49 53 4B 43 41 34 20 4A |A1.FO.1DISKCA4 J|
00004740: 53 52 20 9C 43 48 00 53 4F 92 31 4C 44 41 20 23 |SR .CH.SO.1LDA #|
00004750: 24 30 38 00 5D 4F 9C 31 4A 53 52 20 A0 00 70 4F |$08.]O.1JSR ..pO|
00004760: A6 31 44 49 53 4B 43 41 38 20 4A 53 52 20 92 57 |.1DISKCA8 JSR .W|
00004770: 00 7D 4F B0 31 43 4D 50 20 23 24 46 46 00 8D 4F |.}O.1CMP #$FF..O|
00004780: BA 31 42 4E 45 20 44 49 53 4B 43 41 38 00 9D 4F |.1BNE DISKCA8..O|
00004790: C4 31 4A 4D 50 20 44 4F 55 42 4C 45 A1 00 B3 4F |.1JMP DOUBLE...O|
000047A0: CE 31 44 49 53 4B 4D 45 53 53 20 4C 44 41 20 23 |.1DISKMESS LDA #|
000047B0: 24 31 34 00 BE 4F D8 31 53 54 41 20 57 57 00 CB |$14..O.1STA WW..|
000047C0: 4F E2 31 4C 44 58 20 23 24 30 43 00 D8 4F EC 31 |O.1LDX #$0C..O.1|
000047D0: 4C 44 59 20 23 24 30 43 00 E5 4F F6 31 4C 44 41 |LDY #$0C..O.1LDA|
000047E0: 20 23 24 30 36 00 F2 4F 00 32 4A 53 52 20 57 53 | #$06..O.2JSR WS|
000047F0: 45 54 00 03 50 0A 32 4C 44 41 20 23 B3 4D 45 53 |ET..P.2LDA #.MES|
00004800: 53 54 49 00 14 50 14 32 4C 44 59 20 23 B1 4D 45 |STI..P.2LDY #.ME|
00004810: 53 53 54 49 00 23 50 1E 32 4A 53 52 20 57 49 4E |SSTI.#P.2JSR WIN|
00004820: 44 4F 57 00 30 50 28 32 4A 53 52 20 46 49 42 4C |DOW.0P(2JSR FIBL|
00004830: 00 3F 50 32 32 4A 53 52 20 45 52 52 4F 55 54 00 |.?P22JSR ERROUT.|
00004840: 4F 50 3C 32 4C 44 41 20 23 B3 4D 45 53 53 EC 00 |OP<2LDA #.MESS..|
00004850: 5F 50 46 32 4C 44 59 20 23 B1 4D 45 53 53 EC 00 |_PF2LDY #.MESS..|
00004860: 6D 50 50 32 4A 53 52 20 24 41 42 31 45 00 79 50 |mPP2JSR $AB1E.yP|
00004870: 5A 32 4A 53 52 20 9C 43 48 00 86 50 64 32 4C 44 |Z2JSR .CH..Pd2LD|
00004880: 59 20 23 24 30 30 00 93 50 6E 32 4C 44 41 20 23 |Y #$00..Pn2LDA #|
00004890: 22 20 22 00 AF 50 78 32 44 49 53 4B 4D 45 53 53 |" "..Px2DISKMESS|
000048A0: 41 47 45 20 53 54 41 20 24 41 30 35 31 2C 59 00 |AGE STA $A051,Y.|
000048B0: B7 50 82 32 49 4E 59 00 C4 50 8C 32 43 50 59 20 |.P.2INY..P.2CPY |
000048C0: 23 24 31 35 00 D8 50 96 32 42 4E 45 20 44 49 53 |#$15..P.2BNE DIS|
000048D0: 4B 4D 45 53 53 41 47 45 00 E5 50 A0 32 4A 53 52 |KMESSAGE..P.2JSR|
000048E0: 20 4E B0 49 4E 00 F2 50 AA 32 4C 44 59 20 23 24 | N.IN..P.2LDY #$|
000048F0: 30 30 00 08 51 B4 32 44 49 53 4B 4D 45 53 53 32 |00..Q.2DISKMESS2|
00004900: 20 4A 53 52 20 42 41 BF 00 18 51 BE 32 53 54 41 | JSR BA...Q.2STA|
00004910: 20 24 41 30 30 30 2C 59 00 20 51 C8 32 49 4E 59 | $A000,Y. Q.2INY|
00004920: 00 2D 51 D2 32 43 50 59 20 23 24 35 31 00 3F 51 |.-Q.2CPY #$51.?Q|
00004930: DC 32 42 4E 45 20 44 49 53 4B 4D 45 53 53 32 00 |.2BNE DISKMESS2.|
00004940: 4B 51 E6 32 4A 53 52 20 9C 43 48 00 5B 51 F0 32 |KQ.2JSR .CH.[Q.2|
00004950: 4C 44 41 20 23 B3 24 41 30 30 30 00 67 51 FA 32 |LDA #.$A000.gQ.2|
00004960: 53 54 41 20 EC 53 54 00 77 51 04 33 4C 44 41 20 |STA .ST.wQ.3LDA |
00004970: 23 B1 24 41 30 30 30 00 85 51 0E 33 53 54 41 20 |#.$A000..Q.3STA |
00004980: EC 53 54 AA 31 00 94 51 18 33 53 54 41 20 57 B0 |.ST.1..Q.3STA W.|
00004990: 44 32 AA 31 00 A4 51 22 33 4C 44 41 20 23 B3 24 |D2.1..Q"3LDA #.$|
000049A0: 41 30 35 30 00 B1 51 2C 33 53 54 41 20 57 B0 44 |A050..Q,3STA W.D|
000049B0: 32 00 BD 51 36 33 4A 53 52 20 EC 49 4E 00 CC 51 |2..Q63JSR .IN..Q|
000049C0: 40 33 4A 53 52 20 45 52 52 4F 55 54 00 DC 51 4A |@3JSR ERROUT..QJ|
000049D0: 33 4C 44 41 20 23 B3 4D 45 53 53 EC 00 EC 51 54 |3LDA #.MESS...QT|
000049E0: 33 4C 44 59 20 23 B1 4D 45 53 53 EC 00 FA 51 5E |3LDY #.MESS...Q^|
000049F0: 33 4A 53 52 20 24 41 42 31 45 00 06 52 68 33 4A |3JSR $AB1E..Rh3J|
00004A00: 53 52 20 9C 43 48 00 14 52 72 33 4A 53 52 20 4E |SR .CH..Rr3JSR N|
00004A10: B0 4F 55 54 00 21 52 7C 33 4C 44 59 20 23 24 30 |.OUT.!R|3LDY #$0|
00004A20: 30 00 37 52 86 33 44 49 53 4B 4D 45 53 53 33 20 |0.7R.3DISKMESS3 |
00004A30: 4A 53 52 20 52 41 4D 00 47 52 90 33 4C 44 41 20 |JSR RAM.GR.3LDA |
00004A40: 24 41 30 30 30 2C 59 00 53 52 9A 33 4A 53 52 20 |$A000,Y.SR.3JSR |
00004A50: 52 4F 4D 00 5D 52 A4 33 4A 53 52 20 99 00 65 52 |ROM.]R.3JSR ..eR|
00004A60: AE 33 49 4E 59 00 72 52 B8 33 43 50 59 20 23 24 |.3INY.rR.3CPY #$|
00004A70: 35 31 00 84 52 C2 33 42 4E 45 20 44 49 53 4B 4D |51..R.3BNE DISKM|
00004A80: 45 53 53 33 00 91 52 CC 33 4C 44 41 20 23 22 32 |ESS3..R.3LDA #"2|
00004A90: 22 00 9D 52 D6 33 53 54 41 20 87 AA 31 00 AA 52 |"..R.3STA ..1..R|
00004AA0: E0 33 4A 53 52 20 53 43 52 94 00 BC 52 EA 33 4A |.3JSR SCR...R.3J|
00004AB0: 4D 50 20 44 49 53 4B 4D 45 53 53 58 00 CA 52 F4 |MP DISKMESSX..R.|
00004AC0: 33 A8 4F 4F 4C 53 20 52 54 53 00 E1 52 FE 33 A4 |3.OOLS RTS..R.3.|
00004AD0: 4F 4C 53 20 4C 44 58 20 23 B3 A4 4F 4C 4E 41 4D |OLS LDX #..OLNAM|
00004AE0: 45 00 F3 52 08 34 4C 44 59 20 23 B1 A4 4F 4C 4E |E..R.4LDY #..OLN|
00004AF0: 41 4D 45 00 00 53 12 34 4C 44 41 20 23 24 30 36 |AME..S.4LDA #$06|
00004B00: 00 0C 53 1C 34 4A 53 52 20 D3 A1 30 00 19 53 26 |..S.4JSR ..0..S&|
00004B10: 34 4A 53 52 20 46 49 C3 52 00 25 53 30 34 4C 44 |4JSR FI.R.%S04LD|
00004B20: 41 20 4D 41 58 00 33 53 3A 34 42 45 51 20 A8 4F |A MAX.3S:4BEQ .O|
00004B30: 4F 4C 53 00 40 53 44 34 43 4D 50 20 23 24 31 35 |OLS.@SD4CMP #$15|
00004B40: 00 4E 53 4E 34 42 43 43 20 A4 4F 4C 53 31 00 5B |.NSN4BCC .OLS1.[|
00004B50: 53 58 34 4C 44 41 20 23 24 31 35 00 6C 53 62 34 |SX4LDA #$15.lSb4|
00004B60: A4 4F 4C 53 31 20 53 54 41 20 57 48 00 79 53 6C |.OLS1 STA WH.ySl|
00004B70: 34 4C 44 41 20 23 24 31 37 00 84 53 76 34 53 54 |4LDA #$17..Sv4ST|
00004B80: 41 20 57 58 00 91 53 80 34 4C 44 41 20 23 24 30 |A WX..S.4LDA #$0|
00004B90: 44 00 9C 53 8A 34 53 54 41 20 57 57 00 A8 53 94 |D..S.4STA WW..S.|
00004BA0: 34 4A 53 52 20 52 41 4D 00 B8 53 9E 34 4C 44 41 |4JSR RAM..S.4LDA|
00004BB0: 20 23 B3 24 41 30 32 30 00 C5 53 A8 34 53 54 41 | #.$A020..S.4STA|
00004BC0: 20 57 B0 44 31 00 D5 53 B2 34 4C 44 41 20 23 B1 | W.D1..S.4LDA #.|
00004BD0: 24 41 30 32 30 00 E4 53 BC 34 53 54 41 20 57 B0 |$A020..S.4STA W.|
00004BE0: 44 31 AA 31 00 F4 53 C6 34 4C 44 41 20 23 B3 24 |D1.1..S.4LDA #.$|
00004BF0: 41 33 30 30 00 01 54 D0 34 53 54 41 20 57 B0 44 |A300..T.4STA W.D|
00004C00: 32 00 11 54 DA 34 4C 44 41 20 23 B1 24 41 33 30 |2..T.4LDA #.$A30|
00004C10: 30 00 20 54 E4 34 53 54 41 20 57 B0 44 32 AA 31 |0. T.4STA W.D2.1|
00004C20: 00 33 54 EE 34 A4 4F 4C 53 32 20 4C 44 59 20 23 |.3T.4.OLS2 LDY #|
00004C30: 24 30 34 00 4A 54 F8 34 A4 4F 4C 53 33 20 4C 44 |$04.JT.4.OLS3 LD|
00004C40: 41 20 28 57 B0 44 31 29 2C 59 00 52 54 02 35 49 |A (W.D1),Y.RT.5I|
00004C50: 4E 59 00 5F 54 0C 35 43 4D 50 20 23 24 32 32 00 |NY._T.5CMP #$22.|
00004C60: 6D 54 16 35 42 4E 45 20 A4 4F 4C 53 33 00 75 54 |mT.5BNE .OLS3.uT|
00004C70: 20 35 49 4E 59 00 8C 54 2A 35 49 4E 59 20 3B A4 | 5INY..T*5INY ;.|
00004C80: 2E 20 55 45 42 45 52 4C 45 53 45 4E 00 94 54 34 |. UEBERLESEN..T4|
00004C90: 35 49 4E 59 00 AB 54 3E 35 A4 4F 4C 53 34 20 4C |5INY..T>5.OLS4 L|
00004CA0: 44 41 20 28 57 B0 44 31 29 2C 59 00 B7 54 48 35 |DA (W.D1),Y..TH5|
00004CB0: 53 54 59 20 B8 45 31 00 C4 54 52 35 4C 44 59 20 |STY .E1..TR5LDY |
00004CC0: 23 24 30 30 00 D1 54 5C 35 43 4D 50 20 23 24 32 |#$00..T\5CMP #$2|
00004CD0: 32 00 DF 54 66 35 42 45 51 20 A4 4F 4C 53 35 00 |2..Tf5BEQ .OLS5.|
00004CE0: F0 54 70 35 53 54 41 20 28 57 B0 44 32 29 2C 59 |.Tp5STA (W.D2),Y|
00004CF0: 00 00 55 7A 35 4A 53 52 20 57 B0 44 32 49 4E 43 |..Uz5JSR W.D2INC|
00004D00: 00 0C 55 84 35 4C 44 59 20 B8 45 31 00 14 55 8E |..U.5LDY .E1..U.|
00004D10: 35 49 4E 59 00 22 55 98 35 42 4E 45 20 A4 4F 4C |5INY."U.5BNE .OL|
00004D20: 53 34 00 35 55 A2 35 A4 4F 4C 53 35 20 4C 44 41 |S4.5U.5.OLS5 LDA|
00004D30: 20 23 24 30 44 00 46 55 AC 35 53 54 41 20 28 57 | #$0D.FU.5STA (W|
00004D40: B0 44 32 29 2C 59 00 56 55 B6 35 4A 53 52 20 57 |.D2),Y.VU.5JSR W|
00004D50: B0 44 32 49 4E 43 00 63 55 C0 35 4C 44 41 20 57 |.D2INC.cU.5LDA W|
00004D60: B0 44 31 00 6B 55 CA 35 43 4C 43 00 78 55 D4 35 |.D1.kU.5CLC.xU.5|
00004D70: 41 44 43 20 23 24 32 30 00 85 55 DE 35 53 54 41 |ADC #$20..U.5STA|
00004D80: 20 57 B0 44 31 00 94 55 E8 35 4C 44 41 20 57 B0 | W.D1..U.5LDA W.|
00004D90: 44 31 AA 31 00 A1 55 F2 35 41 44 43 20 23 24 30 |D1.1..U.5ADC #$0|
00004DA0: 30 00 B0 55 FC 35 53 54 41 20 57 B0 44 31 AA 31 |0..U.5STA W.D1.1|
00004DB0: 00 BC 55 06 36 44 45 43 20 4D 41 58 00 CA 55 10 |..U.6DEC MAX..U.|
00004DC0: 36 42 4E 45 20 A4 4F 4C 53 32 00 D7 55 1A 36 4C |6BNE .OLS2..U.6L|
00004DD0: 44 41 20 23 24 30 30 00 E8 55 24 36 53 54 41 20 |DA #$00..U$6STA |
00004DE0: 28 57 B0 44 32 29 2C 59 00 F4 55 2E 36 4A 53 52 |(W.D2),Y..U.6JSR|
00004DF0: 20 52 4F 4D 00 06 56 38 36 4C 44 41 20 23 B1 A4 | ROM..V86LDA #..|
00004E00: 4F 4C 53 36 AB 31 00 0E 56 42 36 50 48 41 00 20 |OLS6.1..VB6PHA. |
00004E10: 56 4C 36 4C 44 41 20 23 B3 A4 4F 4C 53 36 AB 31 |VL6LDA #..OLS6.1|
00004E20: 00 28 56 56 36 50 48 41 00 38 56 60 36 4C 44 41 |.(VV6PHA.8V`6LDA|
00004E30: 20 23 B3 24 41 33 30 30 00 40 56 6A 36 50 48 41 | #.$A300.@Vj6PHA|
00004E40: 00 50 56 74 36 4C 44 41 20 23 B1 24 41 33 30 30 |.PVt6LDA #.$A300|
00004E50: 00 58 56 7E 36 50 48 41 00 65 56 88 36 4C 44 41 |.XV~6PHA.eV.6LDA|
00004E60: 20 23 24 30 31 00 70 56 92 36 53 54 41 20 57 59 | #$01.pV.6STA WY|
00004E70: 00 7F 56 9C 36 4C 44 41 20 23 B3 5A 45 52 4F 00 |..V.6LDA #.ZERO.|
00004E80: 8E 56 A6 36 4C 44 59 20 23 B1 5A 45 52 4F 00 9D |.V.6LDY #.ZERO..|
00004E90: 56 B0 36 4A 53 52 20 57 49 4E 44 4F 57 00 A9 56 |V.6JSR WINDOW..V|
00004EA0: BA 36 44 45 43 20 24 30 31 00 BB 56 C4 36 4A 4D |.6DEC $01..V.6JM|
00004EB0: 50 20 50 44 4D 45 4E 55 AA 31 35 00 CD 56 CE 36 |P PDMENU.15..V.6|
00004EC0: A4 4F 4C 53 36 20 49 4E 43 20 24 30 31 00 DA 56 |.OLS6 INC $01..V|
00004ED0: D8 36 43 4D 50 20 23 24 30 30 00 E8 56 E2 36 42 |.6CMP #$00..V.6B|
00004EE0: 4E 45 20 A4 4F 4C 53 37 00 F5 56 EC 36 4A 4D 50 |NE .OLS7..V.6JMP|
00004EF0: 20 53 43 52 A1 00 0A 57 F6 36 A4 4F 4C 53 37 20 | SCR...W.6.OLS7 |
00004F00: 4A 53 52 20 49 4E 56 45 52 53 00 16 57 00 37 44 |JSR INVERS..W.7D|
00004F10: 45 43 20 24 30 31 00 22 57 0A 37 53 54 41 20 B8 |EC $01."W.7STA .|
00004F20: 45 31 00 2A 57 14 37 50 48 41 00 3A 57 1E 37 4C |E1.*W.7PHA.:W.7L|
00004F30: 44 41 20 23 B3 24 41 33 30 30 00 42 57 28 37 54 |DA #.$A300.BW(7T|
00004F40: 41 59 00 4F 57 32 37 53 54 41 20 57 B0 44 31 00 |AY.OW27STA W.D1.|
00004F50: 5F 57 3C 37 4C 44 41 20 23 B1 24 41 33 30 30 00 |_W<7LDA #.$A300.|
00004F60: 6E 57 46 37 53 54 41 20 57 B0 44 31 AA 31 00 7A |nWF7STA W.D1.1.z|
00004F70: 57 50 37 44 45 43 20 B8 45 31 00 88 57 5A 37 42 |WP7DEC .E1..WZ7B|
00004F80: 45 51 20 A4 4F 4C 53 41 00 9F 57 64 37 A4 4F 4C |EQ .OLSA..Wd7.OL|
00004F90: 53 38 20 4C 44 41 20 28 57 B0 44 31 29 2C 59 00 |S8 LDA (W.D1),Y.|
00004FA0: AC 57 6E 37 43 4D 50 20 23 24 30 44 00 BA 57 78 |.Wn7CMP #$0D..Wx|
00004FB0: 37 42 45 51 20 A4 4F 4C 53 39 00 C9 57 82 37 4A |7BEQ .OLS9..W.7J|
00004FC0: 53 52 20 57 B0 44 49 4E 43 00 D7 57 8C 37 4A 4D |SR W.DINC..W.7JM|
00004FD0: 50 20 A4 4F 4C 53 38 00 EC 57 96 37 A4 4F 4C 53 |P .OLS8..W.7.OLS|
00004FE0: 39 20 4A 53 52 20 57 B0 44 49 4E 43 00 F8 57 A0 |9 JSR W.DINC..W.|
00004FF0: 37 44 45 43 20 B8 45 31 00 06 58 AA 37 42 4E 45 |7DEC .E1..X.7BNE|
00005000: 20 A4 4F 4C 53 38 00 1D 58 B4 37 A4 4F 4C 53 41 | .OLS8..X.7.OLSA|
00005010: 20 4C 44 41 20 28 57 B0 44 31 29 2C 59 00 2A 58 | LDA (W.D1),Y.*X|
00005020: BE 37 43 4D 50 20 23 24 30 44 00 38 58 C8 37 42 |.7CMP #$0D.8X.7B|
00005030: 45 51 20 A4 4F 4C 53 42 00 48 58 D2 37 53 54 41 |EQ .OLSB.HX.7STA|
00005040: 20 24 30 32 30 33 2C 59 00 50 58 DC 37 49 4E 59 | $0203,Y.PX.7INY|
00005050: 00 5E 58 E6 37 42 4E 45 20 A4 4F 4C 53 41 00 71 |.^X.7BNE .OLSA.q|
00005060: 58 F0 37 A4 4F 4C 53 42 20 4C 44 41 20 23 24 30 |X.7.OLSB LDA #$0|
00005070: 30 00 81 58 FA 37 53 54 41 20 24 30 32 30 33 2C |0..X.7STA $0203,|
00005080: 59 00 8D 58 04 38 49 4E 43 20 24 30 31 00 95 58 |Y..X.8INC $01..X|
00005090: 0E 38 50 4C 41 00 9D 58 18 38 54 41 58 00 AA 58 |.8PLA..X.8TAX..X|
000050A0: 22 38 4C 44 41 20 23 22 54 22 00 B8 58 2C 38 53 |"8LDA #"T"..X,8S|
000050B0: 54 41 20 24 30 32 30 30 00 C5 58 36 38 4C 44 41 |TA $0200..X68LDA|
000050C0: 20 23 22 4F 22 00 D3 58 40 38 53 54 41 20 24 30 | #"O"..X@8STA $0|
000050D0: 32 30 31 00 E0 58 4A 38 4C 44 41 20 23 22 2E 22 |201..XJ8LDA #"."|
000050E0: 00 EE 58 54 38 53 54 41 20 24 30 32 30 32 00 FD |..XT8STA $0202..|
000050F0: 58 5E 38 4A 53 52 20 A1 53 54 41 52 54 00 09 59 |X^8JSR .START..Y|
00005100: 68 38 4C 44 41 20 24 42 37 00 19 59 72 38 4C 44 |h8LDA $B7..Yr8LD|
00005110: 58 20 23 B3 24 30 32 30 30 00 29 59 7C 38 4C 44 |X #.$0200.)Y|8LD|
00005120: 59 20 23 B1 24 30 32 30 30 00 38 59 86 38 4A 53 |Y #.$0200.8Y.8JS|
00005130: 52 20 53 45 54 4E 41 4D 00 46 59 90 38 4A 53 52 |R SETNAM.FY.8JSR|
00005140: 20 53 45 54 4E B0 00 53 59 9A 38 4C 44 41 20 23 | SETN..SY.8LDA #|
00005150: 24 30 30 00 5D 59 A4 38 4A 53 52 20 93 00 69 59 |$00.]Y.8JSR ..iY|
00005160: AE 38 53 54 58 20 24 41 45 00 75 59 B8 38 53 54 |.8STX $AE.uY.8ST|
00005170: 59 20 24 41 46 00 84 59 C2 38 4A 4D 50 20 28 57 |Y $AF..Y.8JMP (W|
00005180: B0 44 31 29 00 98 59 CC 38 58 42 41 53 49 43 20 |.D1)..Y.8XBASIC |
00005190: 4C 44 59 20 23 24 30 30 00 AF 59 D6 38 58 42 41 |LDY #$00..Y.8XBA|
000051A0: 53 49 43 31 20 4C 44 41 20 58 42 41 53 2C 59 00 |SIC1 LDA XBAS,Y.|
000051B0: BF 59 E0 38 53 54 41 20 24 30 32 43 30 2C 59 00 |.Y.8STA $02C0,Y.|
000051C0: C7 59 EA 38 49 4E 59 00 D4 59 F4 38 43 50 59 20 |.Y.8INY..Y.8CPY |
000051D0: 23 24 32 41 00 E4 59 FE 38 42 4E 45 20 58 42 41 |#$2A..Y.8BNE XBA|
000051E0: 53 49 43 31 00 F2 59 08 39 4C 44 41 20 24 30 33 |SIC1..Y.9LDA $03|
000051F0: 30 38 00 02 5A 12 39 43 4D 50 20 23 B3 24 30 32 |08..Z.9CMP #.$02|
00005200: 43 30 00 12 5A 1C 39 42 45 51 20 58 42 41 53 49 |C0..Z.9BEQ XBASI|
00005210: 43 32 00 20 5A 26 39 53 54 41 20 24 30 32 46 45 |C2. Z&9STA $02FE|
00005220: 00 36 5A 30 39 58 42 41 53 49 43 32 20 4C 44 41 |.6Z09XBASIC2 LDA|
00005230: 20 24 30 33 30 39 00 46 5A 3A 39 43 4D 50 20 23 | $0309.FZ:9CMP #|
00005240: B1 24 30 32 43 30 00 56 5A 44 39 42 45 51 20 58 |.$02C0.VZD9BEQ X|
00005250: 42 41 53 49 43 33 00 64 5A 4E 39 53 54 41 20 24 |BASIC3.dZN9STA $|
00005260: 30 32 46 46 00 79 5A 58 39 58 42 41 53 49 43 33 |02FF.yZX9XBASIC3|
00005270: 20 4C 44 41 20 23 24 43 30 00 87 5A 62 39 53 54 | LDA #$C0..Zb9ST|
00005280: 41 20 24 30 33 30 38 00 94 5A 6C 39 4C 44 41 20 |A $0308..Zl9LDA |
00005290: 23 24 30 32 00 A2 5A 76 39 53 54 41 20 24 30 33 |#$02..Zv9STA $03|
000052A0: 30 39 00 AA 5A 80 39 52 54 53 00 BC 5A 8A 39 58 |09..Z.9RTS..Z.9X|
000052B0: 42 41 53 20 4C 44 59 20 23 24 30 31 00 CC 5A 94 |BAS LDY #$01..Z.|
000052C0: 39 4C 44 41 20 28 24 37 41 29 2C 59 00 D9 5A 9E |9LDA ($7A),Y..Z.|
000052D0: 39 43 4D 50 20 23 22 40 22 00 E7 5A A8 39 42 45 |9CMP #"@"..Z.9BE|
000052E0: 51 20 58 42 41 53 31 00 F7 5A B2 39 4A 4D 50 20 |Q XBAS1..Z.9JMP |
000052F0: 28 24 30 32 46 45 29 00 0A 5B BC 39 58 42 41 53 |($02FE)..[.9XBAS|
00005300: 31 20 4C 44 58 20 23 24 30 38 00 12 5B C6 39 54 |1 LDX #$08..[.9T|
00005310: 58 41 00 1A 5B D0 39 54 41 59 00 29 5B DA 39 4A |XA..[.9TAY.)[.9J|
00005320: 53 52 20 53 45 54 46 4C 53 00 36 5B E4 39 4C 44 |SR SETFLS.6[.9LD|
00005330: 41 20 23 24 30 37 00 43 5B EE 39 4C 44 58 20 23 |A #$07.C[.9LDX #|
00005340: 24 45 30 00 50 5B F8 39 4C 44 59 20 23 24 30 32 |$E0.P[.9LDY #$02|
00005350: 00 5F 5B 02 3A 4A 53 52 20 53 45 54 4E 41 4D 00 |._[.:JSR SETNAM.|
00005360: 6C 5B 0C 3A 4C 44 41 20 23 24 30 30 00 76 5B 16 |l[.:LDA #$00.v[.|
00005370: 3A 4A 4D 50 20 93 00 87 5B 20 3A 2E C6 20 22 46 |:JMP ...[ :.. "F|
00005380: 41 4E 54 41 53 59 22 00 99 5B 2A 3A 45 58 49 54 |ANTASY"..[*:EXIT|
00005390: 20 4C 44 41 20 23 24 30 37 00 A4 5B 34 3A 53 54 | LDA #$07..[4:ST|
000053A0: 41 20 57 57 00 B1 5B 3E 3A 4C 44 41 20 23 24 30 |A WW..[>:LDA #$0|
000053B0: 33 00 BC 5B 48 3A 53 54 41 20 57 48 00 C9 5B 52 |3..[H:STA WH..[R|
000053C0: 3A 4C 44 41 20 23 24 31 45 00 D4 5B 5C 3A 53 54 |:LDA #$1E..[\:ST|
000053D0: 41 20 57 58 00 E4 5B 66 3A 4C 44 41 20 23 B3 45 |A WX..[f:LDA #.E|
000053E0: 58 49 54 54 00 F4 5B 70 3A 4C 44 59 20 23 B1 45 |XITT..[p:LDY #.E|
000053F0: 58 49 54 54 00 03 5C 7A 3A 4A 53 52 20 50 44 4D |XITT..\z:JSR PDM|
00005400: 45 4E 55 00 12 5C 84 3A 4A 53 52 20 49 4E 56 45 |ENU..\.:JSR INVE|
00005410: 52 53 00 1F 5C 8E 3A 43 4D 50 20 23 24 30 31 00 |RS..\.:CMP #$01.|
00005420: 2D 5C 98 3A 42 45 51 20 45 58 49 54 31 00 3A 5C |-\.:BEQ EXIT1.:\|
00005430: A2 3A 43 4D 50 20 23 24 30 32 00 48 5C AC 3A 42 |.:CMP #$02.H\.:B|
00005440: 45 51 20 45 58 49 54 32 00 55 5C B6 3A 43 4D 50 |EQ EXIT2.U\.:CMP|
00005450: 20 23 24 30 33 00 63 5C C0 3A 42 45 51 20 45 58 | #$03.c\.:BEQ EX|
00005460: 49 54 33 00 7A 5C CA 3A 45 58 49 54 30 20 4A 53 |IT3.z\.:EXIT0 JS|
00005470: 52 20 52 45 49 4E 56 45 52 53 00 87 5C D4 3A 4A |R REINVERS..\.:J|
00005480: 4D 50 20 53 43 52 A1 00 9A 5C DE 3A 45 58 49 54 |MP SCR...\.:EXIT|
00005490: 32 20 4A 53 52 20 53 55 52 45 00 A7 5C E8 3A 43 |2 JSR SURE..\.:C|
000054A0: 4D 50 20 23 24 46 46 00 B5 5C F2 3A 42 45 51 20 |MP #$FF..\.:BEQ |
000054B0: 45 58 49 54 30 00 C2 5C FC 3A 4C 44 41 20 23 24 |EXIT0..\.:LDA #$|
000054C0: 30 30 00 CE 5C 06 3B 53 54 41 20 57 B0 53 00 D9 |00..\.;STA W.S..|
000054D0: 5C 10 3B 53 54 41 20 94 44 00 E6 5C 1A 3B 4A 53 |\.;STA .D..\.;JS|
000054E0: 52 20 53 43 52 E0 00 F3 5C 24 3B 4A 4D 50 20 42 |R SCR...\$;JMP B|
000054F0: 41 53 45 00 06 5D 2E 3B 45 58 49 54 31 20 4A 53 |ASE..].;EXIT1 JS|
00005500: 52 20 53 55 52 45 00 13 5D 38 3B 43 4D 50 20 23 |R SURE..]8;CMP #|
00005510: 24 46 46 00 21 5D 42 3B 42 45 51 20 45 58 49 54 |$FF.!]B;BEQ EXIT|
00005520: 30 00 2F 5D 4C 3B 4A 4D 50 20 24 46 43 45 32 00 |0./]L;JMP $FCE2.|
00005530: 42 5D 56 3B 45 58 49 54 33 20 4A 53 52 20 53 55 |B]V;EXIT3 JSR SU|
00005540: 52 45 00 4F 5D 60 3B 43 4D 50 20 23 24 46 46 00 |RE.O]`;CMP #$FF.|
00005550: 5D 5D 6A 3B 42 45 51 20 45 58 49 54 30 00 6C 5D |]]j;BEQ EXIT0.l]|
00005560: 74 3B 4A 53 52 20 58 42 41 53 49 43 00 7A 5D 7E |t;JSR XBASIC.z]~|
00005570: 3B 4A 4D 50 20 24 46 45 36 36 00 80 5D 88 3B 3B |;JMP $FE66..].;;|
00005580: 00 B9 5D 92 3B 43 48 4F 49 43 45 20 2E C6 20 22 |..].;CHOICE .. "|
00005590: D3 59 53 54 45 4D 20 20 B4 20 C6 49 4C 45 53 20 |.YSTEM . .ILES |
000055A0: 20 B4 20 C4 49 53 4B 20 20 B4 20 D4 4F 4F 4C 53 | . .ISK . .OOLS|
000055B0: 20 20 B4 20 C5 58 49 54 22 00 DC 5D 9C 3B 9E 54 | . .XIT"..].;.T|
000055C0: 45 4D 54 20 2E C6 20 22 C6 41 4E 54 41 53 59 2D |EMT .. ".ANTASY-|
000055D0: C9 4E 46 4F C3 4F 4C 4F 55 52 53 22 00 14 5E A6 |.NFO.OLOURS"..^.|
000055E0: 3B 2E 42 59 54 20 24 30 44 3A 2E C6 20 22 CD 4F |;.BYT $0D:.. ".O|
000055F0: 55 53 45 2D C5 44 49 54 4F 52 CD 4F 55 53 45 2D |USE-.DITOR.OUSE-|
00005600: D3 50 45 45 44 20 D3 41 56 45 22 3A 2E 42 59 54 |.PEED .AVE":.BYT|
00005610: 20 24 30 30 00 3B 5E B0 3B 9E 49 4E 46 4F 54 20 | $00.;^.;.INFOT |
00005620: 2E 42 59 54 20 24 30 31 2C 24 30 35 3A 2E C6 20 |.BYT $01,$05:.. |
00005630: 22 C6 41 4E 54 41 53 59 20 20 22 00 4C 5E BA 3B |".ANTASY ".L^.;|
00005640: C5 49 20 2E C6 20 22 56 31 2E 31 22 00 6D 5E C4 |.I .. "V1.1".m^.|
00005650: 3B 2E 42 59 54 20 24 30 44 2C 24 30 31 2C 24 30 |;.BYT $0D,$01,$0|
00005660: 35 2C 24 30 32 2C 22 A3 22 2C 24 30 44 00 7E 5E |5,$02,".",$0D.~^|
00005670: CE 3B 2E 42 59 54 20 24 30 44 2C 24 30 44 00 9F |.;.BYT $0D,$0D..|
00005680: 5E D8 3B 2E C6 20 22 C4 45 53 49 47 4E 45 44 20 |^.;.. ".ESIGNED |
00005690: 41 4E 44 20 50 52 4F 47 52 41 4D 4D 45 44 22 00 |AND PROGRAMMED".|
000056A0: B8 5E E2 3B 2E 42 59 54 20 24 30 44 2C 24 30 44 |.^.;.BYT $0D,$0D|
000056B0: 2C 24 30 31 2C 24 30 36 00 CD 5E EC 3B 2E C6 20 |,$01,$06..^.;.. |
000056C0: 22 49 4E 20 31 39 38 37 20 20 42 59 22 00 E6 5E |"IN 1987 BY"..^|
000056D0: F6 3B 2E 42 59 54 20 24 30 44 2C 24 30 44 2C 24 |.;.BYT $0D,$0D,$|
000056E0: 30 31 2C 24 30 36 00 FB 5E 00 3C 2E C6 20 22 C1 |01,$06..^.<.. ".|
000056F0: 4C 46 52 45 44 20 C6 45 4E 54 22 00 08 5F 0A 3C |LFRED .ENT".._.<|
00005700: 2E 42 59 54 20 24 30 30 00 2F 5F 14 3C 9E 49 4E |.BYT $00./_.<.IN|
00005710: 46 4F 54 49 20 2E C6 20 22 C6 41 4E 54 41 53 59 |FOTI .. ".ANTASY|
00005720: 2D C9 4E 46 4F 22 3A 2E 42 59 54 20 24 30 30 00 |-.NFO":.BYT $00.|
00005730: 50 5F 1E 3C 9E 43 4F 4C 54 49 20 2E C6 20 22 C3 |P_.<.COLTI .. ".|
00005740: 4F 4C 4F 55 52 53 22 3A 2E 42 59 54 20 24 30 30 |OLOURS":.BYT $00|
00005750: 00 93 5F 28 3C 43 4F 4C EC 20 2E C6 20 22 C2 4C |.._(<COL. .. ".L|
00005760: 41 43 4B 22 3A 2E 42 59 54 20 24 30 44 3A 2E C6 |ACK":.BYT $0D:..|
00005770: 20 22 D7 48 49 54 45 22 2E 3A 42 59 54 20 24 30 | ".HITE".:BYT $0|
00005780: 44 3A 2E C6 20 22 D2 45 44 22 3A 2E 42 59 54 20 |D:.. ".ED":.BYT |
00005790: 24 30 44 00 D3 5F 32 3C 2E C6 20 22 C3 59 41 4E |$0D.._2<.. ".YAN|
000057A0: 22 3A 2E 42 59 54 20 24 30 44 3A 2E C6 20 22 D0 |":.BYT $0D:.. ".|
000057B0: 55 52 50 4C 45 22 2E 3A 42 59 54 20 24 30 44 3A |URPLE".:BYT $0D:|
000057C0: 2E C6 20 22 C7 52 45 45 4E 22 3A 2E 42 59 54 20 |.. ".REEN":.BYT |
000057D0: 24 30 44 00 14 60 3C 3C 2E C6 20 22 C2 4C 55 45 |$0D..`<<.. ".LUE|
000057E0: 22 3A 2E 42 59 54 20 24 30 44 3A 2E C6 20 22 D9 |":.BYT $0D:.. ".|
000057F0: 45 4C 4C 4F 57 22 2E 3A 42 59 54 20 24 30 44 3A |ELLOW".:BYT $0D:|
00005800: 2E C6 20 22 CF 52 41 4E 47 45 22 3A 2E 42 59 54 |.. ".RANGE":.BYT|
00005810: 20 24 30 44 00 5C 60 46 3C 2E C6 20 22 C2 52 4F | $0D.\`F<.. ".RO|
00005820: 57 4E 22 3A 2E 42 59 54 20 24 30 44 3A 2E C6 20 |WN":.BYT $0D:.. |
00005830: 22 CC 49 47 48 54 20 D2 45 44 22 2E 3A 42 59 54 |".IGHT .ED".:BYT|
00005840: 20 24 30 44 3A 2E C6 20 22 C4 41 52 4B 20 C7 52 | $0D:.. ".ARK .R|
00005850: 45 59 22 3A 2E 42 59 54 20 24 30 44 00 8E 60 50 |EY":.BYT $0D..`P|
00005860: 3C 2E C6 20 22 C7 52 45 59 22 3A 2E 42 59 54 20 |<.. ".REY":.BYT |
00005870: 24 30 44 3A 2E C6 20 22 CC 49 47 48 54 20 C7 52 |$0D:.. ".IGHT .R|
00005880: 45 45 4E CC 49 47 48 54 20 C2 4C 55 45 22 00 B4 |EEN.IGHT .LUE"..|
00005890: 60 5A 3C 2E 42 59 54 20 24 30 44 3A 2E C6 20 22 |`Z<.BYT $0D:.. "|
000058A0: CC 49 47 48 54 20 C7 52 45 59 22 3A 2E 42 59 54 |.IGHT .REY":.BYT|
000058B0: 20 24 30 30 00 EA 60 64 3C 43 4F 4C 4F 55 52 53 | $00..`d<COLOURS|
000058C0: 54 20 2E C6 20 22 C6 52 41 4D 45 22 3A 2E 42 59 |T .. ".RAME":.BY|
000058D0: 54 20 24 30 44 3A 2E C6 20 22 D3 43 52 45 45 4E |T $0D:.. ".CREEN|
000058E0: 22 3A 2E 42 59 54 20 24 30 44 00 0C 61 6E 3C 2E |":.BYT $0D..an<.|
000058F0: C6 20 22 C3 48 41 52 41 43 54 45 52 53 CD 4F 55 |. ".HARACTERS.OU|
00005900: 53 45 22 3A 2E 42 59 54 20 24 30 30 00 45 61 78 |SE":.BYT $00.Eax|
00005910: 3C 45 58 49 54 54 20 2E C6 20 22 D2 45 53 45 54 |<EXITT .. ".ESET|
00005920: 22 3A 2E 42 59 54 20 24 30 44 3A 2E C6 20 22 D2 |":.BYT $0D:.. ".|
00005930: 45 53 54 41 52 54 C2 41 53 49 43 22 3A 2E 42 59 |ESTART.ASIC":.BY|
00005940: 54 20 24 30 30 00 5B 61 82 3C 43 48 41 52 31 20 |T $00.[a.<CHAR1 |
00005950: 2E C6 20 22 46 41 2E 43 48 52 22 00 75 61 8C 3C |.. "FA.CHR".ua.<|
00005960: 4B 45 52 4E 41 4C 20 2E C6 20 22 46 41 2E 4B 45 |KERNAL .. "FA.KE|
00005970: 52 4E 41 4C 22 00 A6 61 96 3C 46 49 4C 45 53 54 |RNAL"..a.<FILEST|
00005980: 20 2E C6 20 22 CC 4F 41 44 22 3A 2E 42 59 54 20 | .. ".OAD":.BYT |
00005990: 24 30 44 3A 2E C6 20 22 C2 4F 4F 54 22 3A 2E 42 |$0D:.. ".OOT":.B|
000059A0: 59 54 20 24 30 44 00 DE 61 A0 3C 2E C6 20 22 D2 |YT $0D..a.<.. ".|
000059B0: 45 4E 41 4D 45 20 C4 45 4C 45 54 45 20 C3 4F 50 |ENAME .ELETE .OP|
000059C0: 59 22 3A 2E 42 59 54 20 24 30 44 3A 2E C6 20 22 |Y":.BYT $0D:.. "|
000059D0: C9 4E 46 4F 22 3A 2E 42 59 54 20 24 30 44 00 F6 |.NFO":.BYT $0D..|
000059E0: 61 AA 3C 2E C6 20 22 D0 52 49 4E 54 22 3A 2E 42 |a.<.. ".RINT":.B|
000059F0: 59 54 20 24 30 30 00 16 62 B4 3C 53 50 45 45 44 |YT $00..b.<SPEED|
00005A00: 54 49 20 2E C6 20 22 D3 50 45 45 44 22 3A 2E 42 |TI .. ".PEED":.B|
00005A10: 59 54 20 24 30 30 00 37 62 BE 3C 53 50 45 45 44 |YT $00.7b.<SPEED|
00005A20: 54 20 2E C6 20 22 D3 55 49 43 49 44 45 22 3A 2E |T .. ".UICIDE":.|
00005A30: 42 59 54 20 24 30 44 00 4E 62 C8 3C 2E C6 20 22 |BYT $0D.Nb.<.. "|
00005A40: C6 41 53 54 22 3A 2E 42 59 54 20 24 30 44 00 67 |.AST":.BYT $0D.g|
00005A50: 62 D2 3C 2E C6 20 22 CD 45 44 49 55 4D 22 3A 2E |b.<.. ".EDIUM":.|
00005A60: 42 59 54 20 24 30 44 00 7E 62 DC 3C 2E C6 20 22 |BYT $0D.~b.<.. "|
00005A70: D3 4C 4F 57 22 3A 2E 42 59 54 20 24 30 44 00 97 |.LOW":.BYT $0D..|
00005A80: 62 E6 3C 2E C6 20 22 D3 4C 45 45 50 59 22 3A 2E |b.<.. ".LEEPY":.|
00005A90: 42 59 54 20 24 30 30 00 B2 62 F0 3C 44 45 4C 50 |BYT $00..b.<DELP|
00005AA0: 52 45 46 20 2E C6 20 22 53 3A 46 41 2E 50 52 45 |REF .. "S:FA.PRE|
00005AB0: 46 22 00 D5 62 FA 3C 46 49 4E 46 4F 53 54 20 2E |F"..b.<FINFOST .|
00005AC0: C6 20 22 D3 54 41 52 54 20 3A 20 22 3A 2E 42 59 |. ".TART : ":.BY|
00005AD0: 54 20 24 30 30 00 09 63 04 3D 46 49 4E 46 4F 45 |T $00..c.=FINFOE|
00005AE0: 4E 20 2E 42 59 54 20 22 29 22 2C 24 30 44 2C 24 |N .BYT ")",$0D,$|
00005AF0: 30 44 3A 2E C6 20 22 C5 4E 44 20 20 20 3A 20 22 |0D:.. ".ND : "|
00005B00: 3A 2E 42 59 54 20 24 30 30 00 3D 63 0E 3D 46 49 |:.BYT $00.=c.=FI|
00005B10: 4E 46 4F 4C 45 20 2E 42 59 54 20 22 29 22 2C 24 |NFOLE .BYT ")",$|
00005B20: 30 44 2C 24 30 44 3A 2E C6 20 22 CC 45 4E 47 54 |0D,$0D:.. ".ENGT|
00005B30: 48 3A 20 22 3A 2E 42 59 54 20 24 30 30 00 6F 63 |H: ":.BYT $00.oc|
00005B40: 18 3D 46 49 4E 46 4F 57 45 20 2E C6 20 22 20 C2 |.=FINFOWE .. " .|
00005B50: 4C 4F 43 4B 53 22 3A 2E 42 59 54 20 24 30 44 2C |LOCKS":.BYT $0D,|
00005B60: 24 30 44 2C 24 30 31 2C 24 30 38 2C 24 30 30 00 |$0D,$01,$08,$00.|
00005B70: AB 63 22 3D 46 49 4E 46 4F 54 59 20 2E C6 20 22 |.c"=FINFOTY .. "|
00005B80: 20 C2 59 54 45 53 22 3A 2E 42 59 54 20 24 30 44 | .YTES":.BYT $0D|
00005B90: 2C 24 30 44 3A 2E C6 20 22 D4 59 50 45 20 20 3A |,$0D:.. ".YPE :|
00005BA0: 20 22 3A 2E 42 59 54 20 24 30 30 00 CB 63 2C 3D | ":.BYT $00..c,=|
00005BB0: 49 4E 46 4F 42 41 54 20 2E C6 20 22 C2 41 53 49 |INFOBAT .. ".ASI|
00005BC0: 43 22 3A 2E 42 59 54 20 24 30 30 00 ED 63 36 3D |C":.BYT $00..c6=|
00005BD0: 49 4E 46 4F 4D 43 54 20 2E C6 20 22 CD C3 2D C3 |INFOMCT .. "..-.|
00005BE0: 4F 44 45 22 3A 2E 42 59 54 20 24 30 30 00 13 64 |ODE":.BYT $00..d|
00005BF0: 40 3D 49 4E 46 4F 53 45 54 20 2E C6 20 22 D3 45 |@=INFOSET .. ".E|
00005C00: 51 55 45 4E 54 49 45 4C 4C 22 3A 2E 42 59 54 20 |QUENTIELL":.BYT |
00005C10: 24 30 30 00 37 64 4A 3D 49 4E 46 4F 55 53 54 20 |$00.7dJ=INFOUST |
00005C20: 2E C6 20 22 D5 53 45 52 2D C6 49 4C 45 22 3A 2E |.. ".SER-.ILE":.|
00005C30: 42 59 54 20 24 30 30 00 59 64 54 3D 44 49 53 4B |BYT $00.YdT=DISK|
00005C40: 4D 45 4E 55 20 2E C6 20 22 C6 4F 52 4D 41 54 22 |MENU .. ".ORMAT"|
00005C50: 3A 2E 42 59 54 20 24 30 44 00 72 64 5E 3D 2E C6 |:.BYT $0D.rd^=..|
00005C60: 20 22 D2 45 4E 41 4D 45 22 3A 2E 42 59 54 20 24 | ".ENAME":.BYT $|
00005C70: 30 44 00 A3 64 68 3D 2E C6 20 22 D6 41 4C 49 44 |0D..dh=.. ".ALID|
00005C80: 41 54 45 D0 52 4F 54 45 43 54 20 CD 45 53 53 41 |ATE.ROTECT .ESSA|
00005C90: 47 45 20 D3 54 41 54 55 53 22 3A 2E 42 59 54 20 |GE .TATUS":.BYT |
00005CA0: 24 30 44 00 C4 64 72 3D 44 49 53 4B CF 49 20 2E |$0D..dr=DISK.I .|
00005CB0: C6 20 22 C3 41 54 41 4C 4F 47 22 3A 2E 42 59 54 |. ".ATALOG":.BYT|
00005CC0: 20 24 30 30 00 E7 64 7C 3D 42 55 46 50 4F B5 20 | $00..d|=BUFPO. |
00005CD0: 2E C6 20 22 42 2D 50 20 32 20 31 34 34 22 3A 2E |.. "B-P 2 144":.|
00005CE0: 42 59 54 20 24 30 30 00 09 65 86 3D 42 55 46 50 |BYT $00..e.=BUFP|
00005CF0: 4F B5 31 20 2E C6 20 22 42 2D 50 20 32 20 32 22 |O.1 .. "B-P 2 2"|
00005D00: 3A 2E 42 59 54 20 24 30 30 00 2E 65 90 3D 44 49 |:.BYT $00..e.=DI|
00005D10: 53 4B 54 49 54 20 2E C6 20 22 C4 49 53 4B 48 45 |SKTIT .. ".ISKHE|
00005D20: 41 44 45 52 22 3A 2E 42 59 54 20 24 30 30 00 61 |ADER":.BYT $00.a|
00005D30: 65 9A 3D 44 49 53 4B 54 58 54 20 2E C6 20 22 C3 |e.=DISKTXT .. ".|
00005D40: 55 52 52 45 4E 54 20 C8 45 41 44 45 52 3A 20 22 |URRENT .EADER: "|
00005D50: 3A 2E 42 59 54 20 24 30 44 2C 24 30 44 2C 24 30 |:.BYT $0D,$0D,$0|
00005D60: 30 00 A2 65 A4 3D 44 49 53 4B 54 58 54 32 20 2E |0..e.=DISKTXT2 .|
00005D70: 42 59 54 20 24 30 44 2C 24 30 44 3A 2E C6 20 22 |BYT $0D,$0D:.. "|
00005D80: C5 4E 54 45 52 20 4E 45 57 20 CE 41 4D 45 3A 20 |.NTER NEW .AME: |
00005D90: 22 3A 2E 42 59 54 20 24 30 44 2C 24 30 44 2C 24 |":.BYT $0D,$0D,$|
00005DA0: 30 30 00 D4 65 AE 3D 44 49 53 4B 54 58 54 33 20 |00..e.=DISKTXT3 |
00005DB0: 2E C6 20 22 C5 4E 54 45 52 20 4E 45 57 20 C9 C4 |.. ".NTER NEW ..|
00005DC0: 3A 20 22 3A 2E 42 59 54 20 24 30 44 2C 24 30 44 |: ":.BYT $0D,$0D|
00005DD0: 2C 24 30 30 00 F5 65 B8 3D 4C 4F 43 4B 54 49 20 |,$00..e.=LOCKTI |
00005DE0: 2E C6 20 22 D0 52 4F 54 45 43 54 22 3A 2E 42 59 |.. ".ROTECT":.BY|
00005DF0: 54 20 24 30 30 00 1E 66 C2 3D 4C 4F 43 4B 54 31 |T $00..f.=LOCKT1|
00005E00: 20 2E C6 20 22 D3 54 41 54 55 53 20 4E 4F 57 3A | .. ".TATUS NOW:|
00005E10: 22 3A 2E 42 59 54 20 24 30 44 2C 24 30 44 00 35 |":.BYT $0D,$0D.5|
00005E20: 66 CC 3D 2E C6 20 22 D2 45 41 44 22 3A 2E 42 59 |f.=.. ".EAD":.BY|
00005E30: 54 20 24 30 30 00 55 66 D6 3D 4C 4F 43 4B 54 32 |T $00.Uf.=LOCKT2|
00005E40: 20 2E C6 20 22 2F D7 52 49 54 45 22 3A 2E 42 59 | .. "/.RITE":.BY|
00005E50: 54 20 24 30 30 00 81 66 E0 3D 4C 4F 43 4B 54 33 |T $00..f.=LOCKT3|
00005E60: 20 2E 42 59 54 20 24 30 44 2C 24 30 44 2C 22 B9 | .BYT $0D,$0D,".|
00005E70: 22 2C 24 30 32 2C 22 A3 22 2C 24 30 39 2C 22 B8 |",$02,".",$09,".|
00005E80: 22 00 96 66 EA 3D 2E C6 20 22 B4 20 D0 52 4F 54 |"..f.=.. ". .ROT|
00005E90: 45 43 54 20 B5 22 00 BB 66 F4 3D 2E 42 59 54 20 |ECT ."..f.=.BYT |
00005EA0: 22 AD 22 2C 24 30 32 2C 22 A4 22 2C 24 30 39 2C |".",$02,".",$09,|
00005EB0: 22 B3 22 2C 24 30 44 2C 24 30 44 00 D8 66 FE 3D |".",$0D,$0D..f.=|
00005EC0: 2E 42 59 54 20 22 B9 22 2C 24 30 32 2C 22 A3 22 |.BYT ".",$02,"."|
00005ED0: 2C 24 30 39 2C 22 B8 22 00 ED 66 08 3E 2E C6 20 |,$09,"."..f.>.. |
00005EE0: 22 B4 C4 45 50 52 4F 54 45 43 54 B5 22 00 0E 67 |"..EPROTECT."..g|
00005EF0: 12 3E 2E 42 59 54 20 22 AD 22 2C 24 30 32 2C 22 |.>.BYT ".",$02,"|
00005F00: A4 22 2C 24 30 39 2C 22 B3 22 2C 24 30 30 00 3C |.",$09,".",$00.<|
00005F10: 67 1C 3E 53 45 54 81 4D 41 54 20 2E C6 20 22 4D |g.>SET.MAT .. "M|
00005F20: 2D 57 22 3A 2E 42 59 54 20 24 30 31 2C 24 30 31 |-W":.BYT $01,$01|
00005F30: 2C 24 30 31 2C 22 41 22 2C 24 30 30 00 5E 67 26 |,$01,"A",$00.^g&|
00005F40: 3E 4D 45 53 53 EC 20 2E C6 20 22 42 2D 50 20 32 |>MESS. .. "B-P 2|
00005F50: 20 31 37 35 22 3A 2E 42 59 54 20 24 30 30 00 84 | 175":.BYT $00..|
00005F60: 67 30 3E 4D 45 53 53 54 49 20 2E C6 20 22 C4 49 |g0>MESSTI .. ".I|
00005F70: 53 4B 2D CD 45 53 53 41 47 45 22 3A 2E 42 59 54 |SK-.ESSAGE":.BYT|
00005F80: 20 24 30 30 00 A9 67 3A 3E 81 4D 41 54 54 49 20 | $00..g:>.MATTI |
00005F90: 2E C6 20 22 C6 4F 52 4D 41 54 20 C4 49 53 4B 22 |.. ".ORMAT .ISK"|
00005FA0: 3A 2E 42 59 54 20 24 30 30 00 DF 67 44 3E 81 4D |:.BYT $00..gD>.M|
00005FB0: 41 54 54 20 2E C6 20 22 D0 4C 45 41 53 45 20 45 |ATT .. ".LEASE E|
00005FC0: 4E 54 45 52 20 CE 41 4D 45 2C 20 C9 C4 22 3A 2E |NTER .AME, ..":.|
00005FD0: 42 59 54 20 24 30 44 2C 24 30 44 2C 24 30 30 00 |BYT $0D,$0D,$00.|
00005FE0: F7 67 4E 3E A4 4F 4C 4E 41 4D 45 20 2E C6 20 22 |.gN>.OLNAME .. "|
00005FF0: 24 3A 54 4F 2E 2A 22 00 2E 68 58 3E 46 49 88 41 |$:TO.*"..hX>FI.A|
00006000: 42 20 2E 57 B0 20 46 49 93 2C 46 49 4C 42 4F 4F |B .W. FI.,FILBOO|
00006010: 54 2C 46 49 52 45 4E 41 4D 45 2C 46 49 D1 2C 46 |T,FIRENAME,FI.,F|
00006020: 49 F2 2C 46 49 4C 49 4E 46 4F 2C 46 49 DF 00 70 |I.,FILINFO,FI..p|
00006030: 68 62 3E 44 49 53 4B 54 41 42 20 2E 57 B0 20 44 |hb>DISKTAB .W. D|
00006040: 49 53 4B 81 2C 44 49 53 4B 52 45 2C 44 49 53 4B |ISK.,DISKRE,DISK|
00006050: 56 41 2C 44 49 53 4B 4C 4F 43 4B 2C 44 49 53 4B |VA,DISKLOCK,DISK|
00006060: 4D 45 53 53 2C 44 49 53 4B E5 2C 44 49 53 4B CF |MESS,DISK.,DISK.|
00006070: 00 8C 68 6C 3E 99 49 20 2E C6 20 22 C4 45 56 49 |..hl>.I .. ".EVI|
00006080: 43 45 22 3A 2E 42 59 54 20 24 30 30 00 AC 68 76 |CE":.BYT $00..hv|
00006090: 3E 99 58 20 2E 42 59 54 20 22 B9 22 2C 24 30 32 |>.X .BYT ".",$02|
000060A0: 2C 22 A3 22 2C 24 30 37 2C 22 B8 22 00 BF 68 80 |,".",$07,"."..h.|
000060B0: 3E 2E C6 20 22 B4 D3 43 52 45 45 4E 20 B5 22 00 |>.. "..CREEN .".|
000060C0: E4 68 8A 3E 2E 42 59 54 20 22 AD 22 2C 24 30 32 |.h.>.BYT ".",$02|
000060D0: 2C 22 A4 22 2C 24 30 37 2C 22 B3 22 2C 24 30 44 |,".",$07,".",$0D|
000060E0: 2C 24 30 44 00 01 69 94 3E 2E 42 59 54 20 22 B9 |,$0D..i.>.BYT ".|
000060F0: 22 2C 24 30 32 2C 22 A3 22 2C 24 30 37 2C 22 B8 |",$02,".",$07,".|
00006100: 22 00 14 69 9E 3E 2E C6 20 22 B4 D0 52 49 4E 54 |"..i.>.. "..RINT|
00006110: 45 52 B5 22 00 35 69 A8 3E 2E 42 59 54 20 22 AD |ER.".5i.>.BYT ".|
00006120: 22 2C 24 30 32 2C 22 A4 22 2C 24 30 37 2C 22 B3 |",$02,".",$07,".|
00006130: 22 2C 24 30 30 00 56 69 B2 3E 99 54 58 20 2E 42 |",$00.Vi.>.TX .B|
00006140: 59 54 20 22 B9 22 2C 24 30 32 2C 22 A3 22 2C 24 |YT ".",$02,".",$|
00006150: 30 37 2C 22 B8 22 00 69 69 BC 3E 2E C6 20 22 B4 |07,".".ii.>.. ".|
00006160: C8 45 58 44 55 4D 50 B5 22 00 8E 69 C6 3E 2E 42 |.EXDUMP."..i.>.B|
00006170: 59 54 20 22 AD 22 2C 24 30 32 2C 22 A4 22 2C 24 |YT ".",$02,".",$|
00006180: 30 37 2C 22 B3 22 2C 24 30 44 2C 24 30 44 00 AB |07,".",$0D,$0D..|
00006190: 69 D0 3E 2E 42 59 54 20 22 B9 22 2C 24 30 32 2C |i.>.BYT ".",$02,|
000061A0: 22 A3 22 2C 24 30 37 2C 22 B8 22 00 BE 69 DA 3E |".",$07,"."..i.>|
000061B0: 2E C6 20 22 B4 20 C1 D3 C3 C9 C9 20 B5 22 00 DF |.. ". ..... ."..|
000061C0: 69 E4 3E 2E 42 59 54 20 22 AD 22 2C 24 30 32 2C |i.>.BYT ".",$02,|
000061D0: 22 A4 22 2C 24 30 37 2C 22 B3 22 2C 24 30 30 00 |".",$07,".",$00.|
000061E0: EF 69 EE 3E 9C 49 4E 20 4A 53 52 20 9C 43 48 00 |.i.>.IN JSR .CH.|
000061F0: FD 69 F8 3E 4A 4D 50 20 4E B0 49 4E 32 00 0A 6A |.i.>JMP N.IN2..j|
00006200: 02 3F 9C 4F 55 54 20 50 48 41 00 16 6A 0C 3F 4A |.?.OUT PHA..j.?J|
00006210: 53 52 20 9C 43 48 00 23 6A 16 3F 4C 44 58 20 23 |SR .CH.#j.?LDX #|
00006220: 24 30 37 00 32 6A 20 3F 4A 53 52 20 43 48 4B 4F |$07.2j ?JSR CHKO|
00006230: 55 54 00 3A 6A 2A 3F 50 4C 41 00 42 6A 34 3F 52 |UT.:j*?PLA.Bj4?R|
00006240: 54 53 00 64 6A 3E 3F 3B EC 45 49 4E 47 41 42 45 |TS.dj>?;.EINGABE|
00006250: 20 49 4D 20 57 49 4E 44 4F 57 3B 20 EC 53 54 AB | IM WINDOW; .ST.|
00006260: 57 B0 44 32 00 77 6A 48 3F EC 49 4E 20 4C 44 41 |W.D2.wjH?.IN LDA|
00006270: 20 23 B3 EC 49 4E 31 00 85 6A 52 3F 53 54 41 20 | #..IN1..jR?STA |
00006280: 56 45 43 A4 52 00 94 6A 5C 3F 4C 44 41 20 23 B1 |VEC.R..j\?LDA #.|
00006290: EC 49 4E 31 00 A4 6A 66 3F 53 54 41 20 56 45 43 |.IN1..jf?STA VEC|
000062A0: A4 52 AA 31 00 B8 6A 70 3F EC 45 44 49 54 20 4A |.R.1..jp?.EDIT J|
000062B0: 53 52 20 53 45 54 53 54 00 C4 6A 7A 3F 4C 44 41 |SR SETST..jz?LDA|
000062C0: 20 52 55 EB 00 CC 6A 84 3F 53 45 43 00 D8 6A 8E | RU...j.?SEC..j.|
000062D0: 3F 53 42 43 20 4C 4F EB 00 E2 6A 98 3F 53 54 41 |?SBC LO...j.?STA|
000062E0: 20 82 00 EC 6A A2 3F 49 4E 43 20 82 00 FA 6A AC | ...j.?INC ...j.|
000062F0: 3F 4A 53 52 20 53 45 54 52 55 00 08 6B B6 3F 4C |?JSR SETRU..k.?L|
00006300: 44 41 20 52 55 43 4F 4C 00 10 6B C0 3F 53 45 43 |DA RUCOL..k.?SEC|
00006310: 00 1E 6B CA 3F 53 42 43 20 4C 4F 43 4F 4C 00 2B |..k.?SBC LOCOL.+|
00006320: 6B D4 3F 53 54 41 20 4C 41 53 54 00 38 6B DE 3F |k.?STA LAST.8k.?|
00006330: 49 4E 43 20 4C 41 53 54 00 49 6B E8 3F EC 49 4E |INC LAST.Ik.?.IN|
00006340: 42 20 4A 53 52 20 82 49 4E 00 56 6B F2 3F 4C 44 |B JSR .IN.Vk.?LD|
00006350: 41 20 57 B0 44 31 00 5E 6B FC 3F 43 4C 43 00 6B |A W.D1.^k.?CLC.k|
00006360: 6B 06 40 41 44 43 20 4C 41 53 54 00 78 6B 10 40 |k.@ADC LAST.xk.@|
00006370: 53 54 41 20 57 B0 44 31 00 87 6B 1A 40 4C 44 41 |STA W.D1..k.@LDA|
00006380: 20 57 B0 44 31 AA 31 00 94 6B 24 40 41 44 43 20 | W.D1.1..k$@ADC |
00006390: 23 24 30 30 00 A3 6B 2E 40 53 54 41 20 57 B0 44 |#$00..k.@STA W.D|
000063A0: 31 AA 31 00 B1 6B 38 40 4A 53 52 20 53 45 54 52 |1.1..k8@JSR SETR|
000063B0: 55 00 BB 6B 42 40 44 45 43 20 82 00 C8 6B 4C 40 |U..kB@DEC ...kL@|
000063C0: 42 4E 45 20 EC 49 4E 42 00 D4 6B 56 40 4C 44 58 |BNE .INB..kV@LDX|
000063D0: 20 4C 4F EB 00 E2 6B 60 40 4C 44 59 20 4C 4F 43 | LO...k`@LDY LOC|
000063E0: 4F 4C 00 EC 6B 6A 40 4A 53 52 20 E9 00 FA 6B 74 |OL..kj@JSR ...kt|
000063F0: 40 4A 53 52 20 53 45 54 53 54 00 07 6C 7E 40 4C |@JSR SETST..l~@L|
00006400: 44 41 20 23 24 30 30 00 11 6C 88 40 53 54 41 20 |DA #$00..l.@STA |
00006410: 82 00 20 6C 92 40 EC 49 4E 33 20 4A 53 52 20 99 |.. l.@.IN3 JSR .|
00006420: 00 2D 6C 9C 40 4C 44 41 20 23 24 30 30 00 37 6C |.-l.@LDA #$00.7l|
00006430: A6 40 4A 53 52 20 99 00 49 6C B0 40 EC 49 4E 30 |.@JSR ..Il.@.IN0|
00006440: 20 4C 44 41 20 23 24 30 30 00 55 6C BA 40 53 54 | LDA #$00.Ul.@ST|
00006450: 41 20 24 43 43 00 64 6C C4 40 EC 49 4E 31 20 4A |A $CC.dl.@.IN1 J|
00006460: 53 52 20 A1 00 71 6C CE 40 43 4D 50 20 23 24 30 |SR ..ql.@CMP #$0|
00006470: 30 00 7E 6C D8 40 42 4E 45 20 EC 49 4E 59 00 8C |0.~l.@BNE .INY..|
00006480: 6C E2 40 4C 44 41 20 24 30 32 38 44 00 99 6C EC |l.@LDA $028D..l.|
00006490: 40 43 4D 50 20 23 24 30 34 00 A6 6C F6 40 42 4E |@CMP #$04..l.@BN|
000064A0: 45 20 EC 49 4E 4A 00 B6 6C 00 41 4A 4D 50 20 28 |E .INJ..l.AJMP (|
000064B0: 56 45 43 A4 52 29 00 C8 6C 0A 41 EC 49 4E 4A 20 |VEC.R)..l.A.INJ |
000064C0: 4C 44 41 20 46 49 52 45 00 D5 6C 14 41 42 45 51 |LDA FIRE..l.ABEQ|
000064D0: 20 EC 49 4E 31 00 E3 6C 1E 41 4A 4D 50 20 EC 46 | .IN1..l.AJMP .F|
000064E0: 49 52 45 00 F4 6C 28 41 EC 49 4E 59 20 4A 53 52 |IRE..l(A.INY JSR|
000064F0: 20 43 52 E0 00 01 6D 32 41 43 4D 50 20 23 22 1D | CR...m2ACMP #".|
00006500: 22 00 0E 6D 3C 41 42 45 51 20 43 52 53 52 00 1B |"..m<ABEQ CRSR..|
00006510: 6D 46 41 43 4D 50 20 23 22 9D 22 00 2A 6D 50 41 |mFACMP #".".*mPA|
00006520: 42 45 51 20 43 52 4C 45 46 54 00 37 6D 5A 41 43 |BEQ CRLEFT.7mZAC|
00006530: 4D 50 20 23 22 91 22 00 45 6D 64 41 42 45 51 20 |MP #".".EmdABEQ |
00006540: 43 52 53 55 50 00 52 6D 6E 41 43 4D 50 20 23 22 |CRSUP.RmnACMP #"|
00006550: 11 22 00 62 6D 78 41 42 45 51 20 43 52 53 44 4F |.".bmxABEQ CRSDO|
00006560: 57 4E 00 6F 6D 82 41 43 4D 50 20 23 24 31 34 00 |WN.om.ACMP #$14.|
00006570: 7E 6D 8C 41 42 45 51 20 43 52 53 44 45 4C 00 8B |~m.ABEQ CRSDEL..|
00006580: 6D 96 41 43 4D 50 20 23 24 30 44 00 99 6D A0 41 |m.ACMP #$0D..m.A|
00006590: 42 45 51 20 54 58 54 43 52 00 AB 6D AA 41 43 4D |BEQ TXTCR..m.ACM|
000065A0: 50 20 23 24 30 33 20 3B 8A AD 90 00 B9 6D B4 41 |P #$03 ;.....m.A|
000065B0: 42 45 51 20 54 58 54 52 53 00 C1 6D BE 41 4E 4F |BEQ TXTRS..m.ANO|
000065C0: 50 00 FC 6D C8 41 4E 4F 50 20 3B 20 50 4C 41 54 |P..m.ANOP ; PLAT|
000065D0: 5A 20 46 55 45 52 20 4A 53 52 AD 4A 4D 50 20 5A |Z FUER JSR.JMP Z|
000065E0: 55 4D 20 55 45 42 45 52 50 52 55 45 46 45 4E 20 |UM UEBERPRUEFEN |
000065F0: AF 45 52 45 52 20 54 41 53 54 45 4E 00 04 6E D2 |.ERER TASTEN..n.|
00006600: 41 4E 4F 50 00 14 6E DC 41 4A 53 52 20 54 45 53 |ANOP..n.AJSR TES|
00006610: 54 43 48 52 00 21 6E E6 41 42 43 43 20 EC 49 4E |TCHR.!n.ABCC .IN|
00006620: 34 00 2E 6E F0 41 4A 4D 50 20 EC 49 4E 30 00 40 |4..n.AJMP .IN0.@|
00006630: 6E FA 41 EC 49 4E 34 20 4C 44 59 20 23 24 30 30 |n.A.IN4 LDY #$00|
00006640: 00 51 6E 04 42 53 54 41 20 28 57 B0 44 31 29 2C |.Qn.BSTA (W.D1),|
00006650: 59 00 59 6E 0E 42 50 48 41 00 63 6E 18 42 4C 44 |Y.Yn.BPHA.cn.BLD|
00006660: 41 20 82 00 70 6E 22 42 42 4E 45 20 EC 49 4E 36 |A ..pn"BBNE .IN6|
00006670: 00 80 6E 2C 42 43 52 49 4E 20 4A 53 52 20 E9 32 |..n,BCRIN JSR .2|
00006680: 00 8C 6E 36 42 43 50 58 20 52 55 EB 00 99 6E 40 |..n6BCPX RU...n@|
00006690: 42 42 4E 45 20 EC 49 4E 36 00 A7 6E 4A 42 43 50 |BBNE .IN6..nJBCP|
000066A0: 59 20 52 55 43 4F 4C 00 B4 6E 54 42 42 4E 45 20 |Y RUCOL..nTBBNE |
000066B0: EC 49 4E 36 00 C1 6E 5E 42 4A 53 52 20 41 44 43 |.IN6..n^BJSR ADC|
000066C0: EB 00 CD 6E 68 42 4A 53 52 20 82 49 4E 00 DB 6E |...nhBJSR .IN..n|
000066D0: 72 42 4C 44 59 20 52 55 43 4F 4C 00 E7 6E 7C 42 |rBLDY RUCOL..n|B|
000066E0: 4C 44 58 20 52 55 EB 00 EF 6E 86 42 44 45 58 00 |LDX RU...n.BDEX.|
000066F0: F9 6E 90 42 4A 53 52 20 E9 00 06 6F 9A 42 4A 53 |.n.BJSR ...o.BJS|
00006700: 52 20 53 42 43 EB 00 18 6F A4 42 EC 49 4E 36 20 |R SBC...o.B.IN6 |
00006710: 4C 44 41 20 23 24 30 30 00 22 6F AE 42 53 54 41 |LDA #$00."o.BSTA|
00006720: 20 82 00 2A 6F B8 42 50 4C 41 00 39 6F C2 42 4A | ..*o.BPLA.9o.BJ|
00006730: 53 52 20 57 B0 44 49 4E 43 00 4A 6F CC 42 4A 53 |SR W.DINC.Jo.BJS|
00006740: 52 20 57 B0 44 43 48 45 43 4B 00 57 6F D6 42 42 |R W.DCHECK.Wo.BB|
00006750: 43 53 20 EC 49 4E 58 00 64 6F E0 42 4A 4D 50 20 |CS .INX.do.BJMP |
00006760: EC 49 4E 33 00 78 6F EA 42 EC 49 4E 58 20 4A 53 |.IN3.xo.B.INX JS|
00006770: 52 20 57 B0 44 44 45 43 00 85 6F F4 42 4A 4D 50 |R W.DDEC..o.BJMP|
00006780: 20 EC 49 4E 30 00 92 6F FE 42 4A 4D 50 20 EC 49 | .IN0..o.BJMP .I|
00006790: 4E 33 00 A4 6F 08 43 54 58 54 52 53 20 4A 4D 50 |N3..o.CTXTRS JMP|
000067A0: 20 EC 52 53 00 B6 6F 12 43 54 58 54 43 52 20 4A | .RS..o.CTXTCR J|
000067B0: 4D 50 20 EC 43 52 00 C9 6F 1C 43 43 52 53 55 50 |MP .CR..o.CCRSUP|
000067C0: 20 4A 4D 50 20 43 52 55 50 00 E0 6F 26 43 43 52 | JMP CRUP..o&CCR|
000067D0: 53 44 4F 57 4E 20 4A 4D 50 20 43 52 44 4F 57 4E |SDOWN JMP CRDOWN|
000067E0: 00 F5 6F 30 43 43 52 53 44 45 4C 20 4A 4D 50 20 |..o0CCRSDEL JMP |
000067F0: 43 52 44 45 4C 00 0A 70 3A 43 43 52 53 52 20 4A |CRDEL..p:CCRSR J|
00006800: 4D 50 20 43 52 52 49 47 48 54 00 1D 70 44 43 43 |MP CRRIGHT..pDCC|
00006810: 52 4C 45 46 54 20 4A 53 52 20 43 52 E0 00 2C 70 |RLEFT JSR CR..,p|
00006820: 4E 43 4A 53 52 20 57 B0 44 44 45 43 00 3D 70 58 |NCJSR W.DDEC.=pX|
00006830: 43 4A 53 52 20 57 B0 44 43 48 45 43 4B 00 4D 70 |CJSR W.DCHECK.Mp|
00006840: 62 43 42 43 43 20 43 52 4C 45 46 54 30 00 5C 70 |bCBCC CRLEFT0.\p|
00006850: 6C 43 4A 53 52 20 57 B0 44 49 4E 43 00 69 70 76 |lCJSR W.DINC.ipv|
00006860: 43 4A 4D 50 20 EC 49 4E 30 00 7C 70 80 43 43 52 |CJMP .IN0.|p.CCR|
00006870: 4C 45 46 54 30 20 4A 53 52 20 E9 32 00 8A 70 8A |LEFT0 JSR .2..p.|
00006880: 43 43 50 59 20 4C 4F 43 4F 4C 00 9A 70 94 43 42 |CCPY LOCOL..p.CB|
00006890: 45 51 20 43 52 4C 45 46 54 32 00 A2 70 9E 43 44 |EQ CRLEFT2..p.CD|
000068A0: 45 59 00 B0 70 A8 43 43 52 80 20 4A 53 52 20 E9 |EY..p.CCR. JSR .|
000068B0: 00 BD 70 B2 43 4A 4D 50 20 EC 49 4E 30 00 D1 70 |..p.CJMP .IN0..p|
000068C0: BC 43 43 52 4C 45 46 54 32 20 43 50 58 20 4C 4F |.CCRLEFT2 CPX LO|
000068D0: EB 00 E1 70 C6 43 42 45 51 20 43 52 4C 45 46 54 |...p.CBEQ CRLEFT|
000068E0: 33 00 EF 70 D0 43 4C 44 59 20 52 55 43 4F 4C 00 |3..p.CLDY RUCOL.|
000068F0: F7 70 DA 43 44 45 58 00 03 71 E4 43 42 4E 45 20 |.p.CDEX..q.CBNE |
00006900: 43 52 80 00 19 71 EE 43 43 52 4C 45 46 54 33 20 |CR...q.CCRLEFT3 |
00006910: 4C 44 41 20 52 55 43 4F 4C 00 21 71 F8 43 53 45 |LDA RUCOL.!q.CSE|
00006920: 43 00 2F 71 02 44 53 42 43 20 4C 4F 43 4F 4C 00 |C./q.DSBC LOCOL.|
00006930: 3B 71 0C 44 53 54 41 20 B8 45 31 00 48 71 16 44 |;q.DSTA .E1.Hq.D|
00006940: 4C 44 41 20 57 B0 44 31 00 50 71 20 44 50 48 41 |LDA W.D1.Pq DPHA|
00006950: 00 5F 71 2A 44 4C 44 41 20 57 B0 44 31 AA 31 00 |._q*DLDA W.D1.1.|
00006960: 67 71 34 44 50 48 41 00 74 71 3E 44 4C 44 41 20 |gq4DPHA.tq>DLDA |
00006970: 57 B0 44 31 00 7C 71 48 44 53 45 43 00 88 71 52 |W.D1.|qHDSEC..qR|
00006980: 44 53 42 43 20 B8 45 31 00 95 71 5C 44 53 54 41 |DSBC .E1..q\DSTA|
00006990: 20 57 B0 44 31 00 A4 71 66 44 4C 44 41 20 57 B0 | W.D1..qfDLDA W.|
000069A0: 44 31 AA 31 00 B1 71 70 44 53 42 43 20 23 24 30 |D1.1..qpDSBC #$0|
000069B0: 30 00 C0 71 7A 44 53 54 41 20 57 B0 44 31 AA 31 |0..qzDSTA W.D1.1|
000069C0: 00 CF 71 84 44 4A 53 52 20 4C 41 53 54 49 4E 00 |..q.DJSR LASTIN.|
000069D0: D7 71 8E 44 50 4C 41 00 E6 71 98 44 53 54 41 20 |.q.DPLA..q.DSTA |
000069E0: 57 B0 44 31 AA 31 00 EE 71 A2 44 50 4C 41 00 FB |W.D1.1..q.DPLA..|
000069F0: 71 AC 44 53 54 41 20 57 B0 44 31 00 09 72 B6 44 |q.DSTA W.D1..r.D|
00006A00: 4C 44 59 20 52 55 43 4F 4C 00 15 72 C0 44 4C 44 |LDY RUCOL..r.DLD|
00006A10: 58 20 4C 4F EB 00 21 72 CA 44 4A 4D 50 20 43 52 |X LO..!r.DJMP CR|
00006A20: 80 00 35 72 D4 44 43 52 52 49 47 48 54 20 4A 53 |..5r.DCRRIGHT JS|
00006A30: 52 20 43 52 E0 00 44 72 DE 44 4A 53 52 20 57 B0 |R CR..Dr.DJSR W.|
00006A40: 44 49 4E 43 00 55 72 E8 44 4A 53 52 20 57 B0 44 |DINC.Ur.DJSR W.D|
00006A50: 43 48 45 43 4B 00 66 72 F2 44 42 43 43 20 43 52 |CHECK.fr.DBCC CR|
00006A60: 52 49 47 48 54 30 00 75 72 FC 44 4A 53 52 20 57 |RIGHT0.ur.DJSR W|
00006A70: B0 44 44 45 43 00 82 72 06 45 4A 4D 50 20 EC 49 |.DDEC..r.EJMP .I|
00006A80: 4E 30 00 96 72 10 45 43 52 52 49 47 48 54 30 20 |N0..r.ECRRIGHT0 |
00006A90: 4A 53 52 20 E9 32 00 A4 72 1A 45 43 50 59 20 52 |JSR .2..r.ECPY R|
00006AA0: 55 43 4F 4C 00 B5 72 24 45 42 43 53 20 43 52 52 |UCOL..r$EBCS CRR|
00006AB0: 49 47 48 54 32 00 C6 72 2E 45 43 52 52 49 47 48 |IGHT2..r.ECRRIGH|
00006AC0: 54 31 20 49 4E 59 00 D2 72 38 45 4A 4D 50 20 43 |T1 INY..r8EJMP C|
00006AD0: 52 80 00 E7 72 42 45 43 52 52 49 47 48 54 32 20 |R...rBECRRIGHT2 |
00006AE0: 43 50 58 20 52 55 EB 00 F8 72 4C 45 42 43 53 20 |CPX RU...rLEBCS |
00006AF0: 43 52 52 49 47 48 54 33 00 00 73 56 45 49 4E 58 |CRRIGHT3..sVEINX|
00006B00: 00 0E 73 60 45 4C 44 59 20 4C 4F 43 4F 4C 00 1A |..s`ELDY LOCOL..|
00006B10: 73 6A 45 4A 4D 50 20 43 52 80 00 30 73 74 45 43 |sjEJMP CR..0stEC|
00006B20: 52 52 49 47 48 54 33 20 4C 44 41 20 57 B0 44 31 |RRIGHT3 LDA W.D1|
00006B30: 00 38 73 7E 45 50 48 41 00 47 73 88 45 4C 44 41 |.8s~EPHA.Gs.ELDA|
00006B40: 20 57 B0 44 31 AA 31 00 4F 73 92 45 50 48 41 00 | W.D1.1.Os.EPHA.|
00006B50: 5D 73 9C 45 4C 44 41 20 52 55 43 4F 4C 00 65 73 |]s.ELDA RUCOL.es|
00006B60: A6 45 53 45 43 00 73 73 B0 45 53 42 43 20 4C 4F |.ESEC.ss.ESBC LO|
00006B70: 43 4F 4C 00 7B 73 BA 45 43 4C 43 00 88 73 C4 45 |COL.{s.ECLC..s.E|
00006B80: 41 44 43 20 57 B0 44 31 00 95 73 CE 45 53 54 41 |ADC W.D1..s.ESTA|
00006B90: 20 57 B0 44 31 00 A2 73 D8 45 4C 44 41 20 23 24 | W.D1..s.ELDA #$|
00006BA0: 30 30 00 B1 73 E2 45 41 44 43 20 57 B0 44 31 AA |00..s.EADC W.D1.|
00006BB0: 31 00 C0 73 EC 45 53 54 41 20 57 B0 44 31 AA 31 |1..s.ESTA W.D1.1|
00006BC0: 00 CC 73 F6 45 4A 53 52 20 82 49 4E 00 D4 73 00 |..s.EJSR .IN..s.|
00006BD0: 46 50 4C 41 00 E3 73 0A 46 53 54 41 20 57 B0 44 |FPLA..s.FSTA W.D|
00006BE0: 31 AA 31 00 EB 73 14 46 50 4C 41 00 F8 73 1E 46 |1.1..s.FPLA..s.F|
00006BF0: 53 54 41 20 57 B0 44 31 00 06 74 28 46 4C 44 59 |STA W.D1..t(FLDY|
00006C00: 20 4C 4F 43 4F 4C 00 12 74 32 46 4C 44 58 20 52 | LOCOL..t2FLDX R|
00006C10: 55 EB 00 1E 74 3C 46 4A 4D 50 20 43 52 80 00 2F |U...t<FJMP CR../|
00006C20: 74 46 46 43 52 55 50 20 4A 53 52 20 43 52 E0 00 |tFFCRUP JSR CR..|
00006C30: 3C 74 50 46 4A 53 52 20 53 42 43 EB 00 4D 74 5A |<tPFJSR SBC..MtZ|
00006C40: 46 4A 53 52 20 57 B0 44 43 48 45 43 4B 00 5B 74 |FJSR W.DCHECK.[t|
00006C50: 64 46 42 43 43 20 43 52 55 50 30 00 68 74 6E 46 |dFBCC CRUP0.htnF|
00006C60: 4A 53 52 20 41 44 43 EB 00 75 74 78 46 4A 4D 50 |JSR ADC..utxFJMP|
00006C70: 20 EC 49 4E 30 00 86 74 82 46 43 52 55 50 30 20 | .IN0..t.FCRUP0 |
00006C80: 4A 53 52 20 E9 32 00 92 74 8C 46 43 50 58 20 4C |JSR .2..t.FCPX L|
00006C90: 4F EB 00 A0 74 96 46 42 45 51 20 43 52 55 50 32 |O...t.FBEQ CRUP2|
00006CA0: 00 AE 74 A0 46 42 43 43 20 43 52 55 50 32 00 B6 |..t.FBCC CRUP2..|
00006CB0: 74 AA 46 44 45 58 00 C2 74 B4 46 4A 4D 50 20 43 |t.FDEX..t.FJMP C|
00006CC0: 52 80 00 D0 74 BE 46 43 52 55 50 32 20 54 59 41 |R...t.FCRUP2 TYA|
00006CD0: 00 D8 74 C8 46 50 48 41 00 E7 74 D2 46 4A 53 52 |..t.FPHA..t.FJSR|
00006CE0: 20 4C 41 53 54 49 4E 00 EF 74 DC 46 50 4C 41 00 | LASTIN..t.FPLA.|
00006CF0: F7 74 E6 46 54 41 59 00 03 75 F0 46 4C 44 58 20 |.t.FTAY..u.FLDX |
00006D00: 4C 4F EB 00 0F 75 FA 46 4A 4D 50 20 43 52 80 00 |LO...u.FJMP CR..|
00006D10: 22 75 04 47 43 52 44 4F 57 4E 20 4A 53 52 20 43 |"u.GCRDOWN JSR C|
00006D20: 52 E0 00 2F 75 0E 47 4A 53 52 20 41 44 43 EB 00 |R../u.GJSR ADC..|
00006D30: 40 75 18 47 4A 53 52 20 57 B0 44 43 48 45 43 4B |@u.GJSR W.DCHECK|
00006D40: 00 50 75 22 47 42 43 43 20 43 52 44 4F 57 4E 30 |.Pu"GBCC CRDOWN0|
00006D50: 00 5D 75 2C 47 4A 53 52 20 53 42 43 EB 00 6A 75 |.]u,GJSR SBC..ju|
00006D60: 36 47 4A 4D 50 20 EC 49 4E 30 00 7D 75 40 47 43 |6GJMP .IN0.}u@GC|
00006D70: 52 44 4F 57 4E 30 20 4A 53 52 20 E9 32 00 89 75 |RDOWN0 JSR .2..u|
00006D80: 4A 47 43 50 58 20 52 55 EB 00 99 75 54 47 42 45 |JGCPX RU...uTGBE|
00006D90: 51 20 43 52 44 4F 57 4E 31 00 A1 75 5E 47 49 4E |Q CRDOWN1..u^GIN|
00006DA0: 58 00 AD 75 68 47 4A 4D 50 20 43 52 80 00 BD 75 |X..uhGJMP CR...u|
00006DB0: 72 47 43 52 44 4F 57 4E 31 20 54 59 41 00 C5 75 |rGCRDOWN1 TYA..u|
00006DC0: 7C 47 50 48 41 00 D1 75 86 47 4A 53 52 20 82 49 ||GPHA..u.GJSR .I|
00006DD0: 4E 00 D9 75 90 47 50 4C 41 00 E1 75 9A 47 54 41 |N..u.GPLA..u.GTA|
00006DE0: 59 00 ED 75 A4 47 4C 44 58 20 52 55 EB 00 F9 75 |Y..u.GLDX RU...u|
00006DF0: AE 47 4A 4D 50 20 43 52 80 00 0D 76 B8 47 57 B0 |.GJMP CR...v.GW.|
00006E00: 44 44 45 43 20 4C 44 41 20 57 B0 44 31 00 15 76 |DDEC LDA W.D1..v|
00006E10: C2 47 53 45 43 00 22 76 CC 47 53 42 43 20 23 24 |.GSEC."v.GSBC #$|
00006E20: 30 31 00 2F 76 D6 47 53 54 41 20 57 B0 44 31 00 |01./v.GSTA W.D1.|
00006E30: 3E 76 E0 47 4C 44 41 20 57 B0 44 31 AA 31 00 4B |>v.GLDA W.D1.1.K|
00006E40: 76 EA 47 53 42 43 20 23 24 30 30 00 5A 76 F4 47 |v.GSBC #$00.Zv.G|
00006E50: 53 54 41 20 57 B0 44 31 AA 31 00 62 76 FE 47 52 |STA W.D1.1.bv.GR|
00006E60: 54 53 00 75 76 08 48 43 52 44 45 4C 20 4C 44 41 |TS.uv.HCRDEL LDA|
00006E70: 20 23 22 9D 22 00 83 76 12 48 53 54 41 20 24 30 | #"."..v.HSTA $0|
00006E80: 32 37 37 00 91 76 1C 48 53 54 41 20 24 30 32 37 |277..v.HSTA $027|
00006E90: 39 00 9E 76 26 48 4C 44 41 20 23 22 20 22 00 AC |9..v&HLDA #" "..|
00006EA0: 76 30 48 53 54 41 20 24 30 32 37 38 00 B9 76 3A |v0HSTA $0278..v:|
00006EB0: 48 4C 44 41 20 23 24 30 33 00 C5 76 44 48 53 54 |HLDA #$03..vDHST|
00006EC0: 41 20 24 43 36 00 CF 76 4E 48 53 54 41 20 82 00 |A $C6..vNHSTA ..|
00006ED0: DC 76 58 48 4A 4D 50 20 EC 49 4E 30 00 00 77 62 |.vXHJMP .IN0..wb|
00006EE0: 48 57 B0 44 43 48 45 43 4B 20 50 48 41 20 3B 43 |HW.DCHECK PHA ;C|
00006EF0: B2 31 20 B2 B1 20 41 55 53 53 45 52 48 41 4C 42 |.1 .. AUSSERHALB|
00006F00: 00 0F 77 6C 48 4C 44 41 20 57 B0 44 31 AA 31 00 |..wlHLDA W.D1.1.|
00006F10: 1E 77 76 48 43 4D 50 20 57 B0 44 32 AA 31 00 30 |.wvHCMP W.D2.1.0|
00006F20: 77 80 48 42 43 43 20 57 B0 44 43 48 45 43 4B 32 |w.HBCC W.DCHECK2|
00006F30: 00 42 77 8A 48 42 45 51 20 57 B0 44 43 48 45 43 |.Bw.HBEQ W.DCHEC|
00006F40: 4B 31 00 51 77 94 48 42 43 53 20 57 B0 44 43 B0 |K1.Qw.HBCS W.DC.|
00006F50: 52 00 68 77 9E 48 57 B0 44 43 48 45 43 4B 31 20 |R.hw.HW.DCHECK1 |
00006F60: 4C 44 41 20 57 B0 44 31 00 75 77 A8 48 43 4D 50 |LDA W.D1.uw.HCMP|
00006F70: 20 57 B0 44 32 00 84 77 B2 48 42 43 53 20 57 B0 | W.D2..w.HBCS W.|
00006F80: 44 43 B0 52 00 9D 77 BC 48 57 B0 44 43 48 45 43 |DC.R..w.HW.DCHEC|
00006F90: 4B 32 20 4C 44 41 20 57 B0 44 31 AA 31 00 AB 77 |K2 LDA W.D1.1..w|
00006FA0: C6 48 43 4D 50 20 EC 53 54 AA 31 00 BA 77 D0 48 |.HCMP .ST.1..w.H|
00006FB0: 42 43 43 20 57 B0 44 43 B0 52 00 CC 77 DA 48 42 |BCC W.DC.R..w.HB|
00006FC0: 45 51 20 57 B0 44 43 48 45 43 4B 33 00 DE 77 E4 |EQ W.DCHECK3..w.|
00006FD0: 48 42 43 53 20 57 B0 44 43 48 45 43 4B 34 00 F5 |HBCS W.DCHECK4..|
00006FE0: 77 EE 48 57 B0 44 43 48 45 43 4B 33 20 4C 44 41 |w.HW.DCHECK3 LDA|
00006FF0: 20 57 B0 44 31 00 01 78 F8 48 43 4D 50 20 EC 53 | W.D1..x.HCMP .S|
00007000: 54 00 10 78 02 49 42 43 43 20 57 B0 44 43 B0 52 |T..x.IBCC W.DC.R|
00007010: 00 22 78 0C 49 57 B0 44 43 48 45 43 4B 34 20 50 |."x.IW.DCHECK4 P|
00007020: 4C 41 00 2A 78 16 49 43 4C 43 00 32 78 20 49 52 |LA.*x.ICLC.2x IR|
00007030: 54 53 00 41 78 2A 49 57 B0 44 43 B0 52 20 50 4C |TS.Ax*IW.DC.R PL|
00007040: 41 00 49 78 34 49 53 45 43 00 51 78 3E 49 52 54 |A.Ix4ISEC.Qx>IRT|
00007050: 53 00 64 78 48 49 4C 41 53 54 49 4E 20 4C 44 41 |S.dxHILASTIN LDA|
00007060: 20 24 44 33 00 6C 78 52 49 53 45 43 00 7A 78 5C | $D3.lxRISEC.zx\|
00007070: 49 53 42 43 20 4C 4F 43 4F 4C 00 86 78 66 49 53 |ISBC LOCOL..xfIS|
00007080: 54 41 20 B8 45 31 00 93 78 70 49 4C 44 41 20 57 |TA .E1..xpILDA W|
00007090: B0 44 31 00 9B 78 7A 49 53 45 43 00 A7 78 84 49 |.D1..xzISEC..x.I|
000070A0: 53 42 43 20 B8 45 31 00 AF 78 8E 49 50 48 41 00 |SBC .E1..x.IPHA.|
000070B0: BE 78 98 49 4C 44 41 20 57 B0 44 31 AA 31 00 CB |.x.ILDA W.D1.1..|
000070C0: 78 A2 49 53 42 43 20 23 24 30 30 00 D3 78 AC 49 |x.ISBC #$00..x.I|
000070D0: 50 48 41 00 E2 78 B6 49 4A 53 52 20 53 43 52 4F |PHA..x.IJSR SCRO|
000070E0: 4C 4C 00 EA 78 C0 49 50 4C 41 00 F7 78 CA 49 53 |LL..x.IPLA..x.IS|
000070F0: 54 41 20 52 45 47 32 00 FF 78 D4 49 50 4C 41 00 |TA REG2..x.IPLA.|
00007100: 0C 79 DE 49 53 54 41 20 52 45 47 31 00 1A 79 E8 |.y.ISTA REG1..y.|
00007110: 49 4C 44 41 20 52 55 43 4F 4C 00 22 79 F2 49 53 |ILDA RUCOL."y.IS|
00007120: 45 43 00 30 79 FC 49 53 42 43 20 4C 4F 43 4F 4C |EC.0y.ISBC LOCOL|
00007130: 00 3C 79 06 4A 53 54 41 20 B8 45 31 00 48 79 10 |.<y.JSTA .E1.Hy.|
00007140: 4A 49 4E 43 20 B8 45 31 00 55 79 1A 4A 4C 44 59 |JINC .E1.Uy.JLDY|
00007150: 20 23 24 30 30 00 69 79 24 4A 4C 41 53 54 49 4E | #$00.iy$JLASTIN|
00007160: 31 20 4A 53 52 20 52 41 4D 00 7A 79 2E 4A 4C 44 |1 JSR RAM.zy.JLD|
00007170: 41 20 28 52 45 47 31 29 2C 59 00 86 79 38 4A 4A |A (REG1),Y..y8JJ|
00007180: 53 52 20 52 4F 4D 00 96 79 42 4A 4A 53 52 20 54 |SR ROM..yBJJSR T|
00007190: 45 53 54 43 48 52 00 A6 79 4C 4A 42 43 43 20 4C |ESTCHR..yLJBCC L|
000071A0: 41 53 54 49 4E 32 00 B3 79 56 4A 4C 44 41 20 23 |ASTIN2..yVJLDA #|
000071B0: 24 41 30 00 C8 79 60 4A 4C 41 53 54 49 4E 32 20 |$A0..y`JLASTIN2 |
000071C0: 43 4D 50 20 23 24 30 44 00 D8 79 6A 4A 42 4E 45 |CMP #$0D..yjJBNE|
000071D0: 20 4C 41 53 54 49 4E 33 00 E5 79 74 4A 4C 44 41 | LASTIN3..ytJLDA|
000071E0: 20 23 22 B7 22 00 FA 79 7E 4A 4C 41 53 54 49 4E | #"."..y~JLASTIN|
000071F0: 33 20 43 4D 50 20 23 24 30 33 00 0A 7A 88 4A 42 |3 CMP #$03..z.JB|
00007200: 4E 45 20 4C 41 53 54 49 4E 34 00 16 7A 92 4A 49 |NE LASTIN4..z.JI|
00007210: 4E 43 20 24 43 37 00 23 7A 9C 4A 4C 44 41 20 23 |NC $C7.#z.JLDA #|
00007220: 22 C3 22 00 2D 7A A6 4A 4A 53 52 20 99 00 39 7A |".".-z.JJSR ..9z|
00007230: B0 4A 44 45 43 20 24 43 37 00 46 7A BA 4A 4C 44 |.JDEC $C7.Fz.JLD|
00007240: 41 20 23 24 30 30 00 58 7A C4 4A 4C 41 53 54 49 |A #$00.Xz.JLASTI|
00007250: 4E 34 20 4A 53 52 20 99 00 60 7A CE 4A 49 4E 59 |N4 JSR ..`z.JINY|
00007260: 00 6C 7A D8 4A 43 50 59 20 B8 45 31 00 7C 7A E2 |.lz.JCPY .E1.|z.|
00007270: 4A 42 4E 45 20 4C 41 53 54 49 4E 31 00 84 7A EC |JBNE LASTIN1..z.|
00007280: 4A 52 54 53 00 94 7A F6 4A 82 49 4E 20 4C 44 41 |JRTS..z.J.IN LDA|
00007290: 20 24 44 33 00 9C 7A 00 4B 53 45 43 00 AA 7A 0A | $D3..z.KSEC..z.|
000072A0: 4B 53 42 43 20 4C 4F 43 4F 4C 00 B6 7A 14 4B 53 |KSBC LOCOL..z.KS|
000072B0: 54 41 20 B8 45 31 00 C3 7A 1E 4B 4C 44 41 20 57 |TA .E1..z.KLDA W|
000072C0: B0 44 31 00 CB 7A 28 4B 53 45 43 00 D7 7A 32 4B |.D1..z(KSEC..z2K|
000072D0: 53 42 43 20 B8 45 31 00 DF 7A 3C 4B 50 48 41 00 |SBC .E1..z<KPHA.|
000072E0: EE 7A 46 4B 4C 44 41 20 57 B0 44 31 AA 31 00 FB |.zFKLDA W.D1.1..|
000072F0: 7A 50 4B 53 42 43 20 23 24 30 30 00 03 7B 5A 4B |zPKSBC #$00..{ZK|
00007300: 50 48 41 00 11 7B 64 4B 4A 53 52 20 A2 4F 55 54 |PHA..{dKJSR .OUT|
00007310: 36 00 19 7B 6E 4B 50 4C 41 00 26 7B 78 4B 53 54 |6..{nKPLA.&{xKST|
00007320: 41 20 52 45 47 32 00 2E 7B 82 4B 50 4C 41 00 3B |A REG2..{.KPLA.;|
00007330: 7B 8C 4B 53 54 41 20 52 45 47 31 00 49 7B 96 4B |{.KSTA REG1.I{.K|
00007340: 4C 44 41 20 52 55 43 4F 4C 00 51 7B A0 4B 53 45 |LDA RUCOL.Q{.KSE|
00007350: 43 00 5F 7B AA 4B 53 42 43 20 4C 4F 43 4F 4C 00 |C._{.KSBC LOCOL.|
00007360: 6B 7B B4 4B 53 54 41 20 B8 45 31 00 77 7B BE 4B |k{.KSTA .E1.w{.K|
00007370: 49 4E 43 20 B8 45 31 00 84 7B C8 4B 4C 44 59 20 |INC .E1..{.KLDY |
00007380: 23 24 30 30 00 95 7B D2 4B 82 49 4E 31 20 4A 53 |#$00..{.K.IN1 JS|
00007390: 52 20 52 41 4D 00 A6 7B DC 4B 4C 44 41 20 28 52 |R RAM..{.KLDA (R|
000073A0: 45 47 31 29 2C 59 00 B2 7B E6 4B 4A 53 52 20 52 |EG1),Y..{.KJSR R|
000073B0: 4F 4D 00 C2 7B F0 4B 4A 53 52 20 54 45 53 54 43 |OM..{.KJSR TESTC|
000073C0: 48 52 00 CF 7B FA 4B 42 43 43 20 82 49 4E 32 00 |HR..{.KBCC .IN2.|
000073D0: DC 7B 04 4C 4C 44 41 20 23 24 41 30 00 EE 7B 0E |.{.LLDA #$A0..{.|
000073E0: 4C 82 49 4E 32 20 43 4D 50 20 23 24 30 44 00 FB |L.IN2 CMP #$0D..|
000073F0: 7B 18 4C 42 4E 45 20 82 49 4E 33 00 08 7C 22 4C |{.LBNE .IN3..|"L|
00007400: 4C 44 41 20 23 22 B7 22 00 1A 7C 2C 4C 82 49 4E |LDA #"."..|,L.IN|
00007410: 33 20 43 4D 50 20 23 24 30 33 00 27 7C 36 4C 42 |3 CMP #$03.'|6LB|
00007420: 4E 45 20 82 49 4E 34 00 33 7C 40 4C 49 4E 43 20 |NE .IN4.3|@LINC |
00007430: 24 43 37 00 40 7C 4A 4C 4C 44 41 20 23 22 C3 22 |$C7.@|JLLDA #"."|
00007440: 00 4A 7C 54 4C 4A 53 52 20 99 00 56 7C 5E 4C 44 |.J|TLJSR ..V|^LD|
00007450: 45 43 20 24 43 37 00 63 7C 68 4C 4C 44 41 20 23 |EC $C7.c|hLLDA #|
00007460: 24 30 30 00 72 7C 72 4C 82 49 4E 34 20 4A 53 52 |$00.r|rL.IN4 JSR|
00007470: 20 99 00 7A 7C 7C 4C 49 4E 59 00 86 7C 86 4C 43 | ..z||LINY..|.LC|
00007480: 50 59 20 B8 45 31 00 93 7C 90 4C 42 4E 45 20 82 |PY .E1..|.LBNE .|
00007490: 49 4E 31 00 9B 7C 9A 4C 52 54 53 00 AC 7C A4 4C |IN1..|.LRTS..|.L|
000074A0: EC 43 52 20 4C 44 59 20 23 24 30 30 00 B9 7C AE |.CR LDY #$00..|.|
000074B0: 4C 4C 44 41 20 23 24 30 44 00 CA 7C B8 4C 53 54 |LLDA #$0D..|.LST|
000074C0: 41 20 28 57 B0 44 31 29 2C 59 00 D7 7C C2 4C 4C |A (W.D1),Y..|.LL|
000074D0: 44 41 20 23 22 B7 22 00 DF 7C CC 4C 50 48 41 00 |DA #"."..|.LPHA.|
000074E0: EC 7C D6 4C 4A 4D 50 20 43 52 49 4E 00 00 7D E0 |.|.LJMP CRIN..}.|
000074F0: 4C EC 52 53 31 20 4A 53 52 20 57 B0 44 44 45 43 |L.RS1 JSR W.DDEC|
00007500: 00 0D 7D EA 4C 4A 4D 50 20 EC 49 4E 30 00 1E 7D |..}.LJMP .IN0..}|
00007510: F4 4C EC 52 53 20 4C 44 59 20 23 24 30 30 00 2F |.L.RS LDY #$00./|
00007520: 7D FE 4C 53 54 41 20 28 57 B0 44 31 29 2C 59 00 |}.LSTA (W.D1),Y.|
00007530: 3E 7D 08 4D 4A 53 52 20 57 B0 44 49 4E 43 00 4F |>}.MJSR W.DINC.O|
00007540: 7D 12 4D 4A 53 52 20 57 B0 44 43 48 45 43 4B 00 |}.MJSR W.DCHECK.|
00007550: 5C 7D 1C 4D 42 43 53 20 EC 52 53 31 00 68 7D 26 |\}.MBCS .RS1.h}&|
00007560: 4D 49 4E 43 20 24 43 37 00 75 7D 30 4D 4C 44 41 |MINC $C7.u}0MLDA|
00007570: 20 23 22 C3 22 00 7F 7D 3A 4D 4A 53 52 20 99 00 | #"."..}:MJSR ..|
00007580: 8B 7D 44 4D 44 45 43 20 24 43 37 00 9A 7D 4E 4D |.}DMDEC $C7..}NM|
00007590: 4A 4D 50 20 EC 52 53 31 AA 33 00 B0 7D 58 4D EC |JMP .RS1.3..}XM.|
000075A0: 46 49 52 45 20 4A 53 52 20 41 4E 41 4C 59 5A 45 |FIRE JSR ANALYZE|
000075B0: 00 BD 7D 62 4D 43 4D 50 20 23 24 46 46 00 C8 7D |..}bMCMP #$FF..}|
000075C0: 6C 4D 42 45 51 20 EC 80 00 DC 7D 76 4D EC 46 49 |lMBEQ ....}vM.FI|
000075D0: 52 45 31 20 4A 4D 50 20 EC 49 4E 31 00 EB 7D 80 |RE1 JMP .IN1..}.|
000075E0: 4D EC 80 20 4A 53 52 20 43 52 E0 00 F8 7D 8A 4D |M.. JSR CR...}.M|
000075F0: 4A 4D 50 20 53 43 52 A1 00 02 7E 94 4D E9 20 43 |JMP SCR...~.M. C|
00007600: 4C 43 00 10 7E 9E 4D 4A 4D 50 20 24 46 46 46 30 |LC..~.MJMP $FFF0|
00007610: 00 22 7E A8 4D 53 45 54 53 54 20 4C 44 41 20 EC |."~.MSETST LDA .|
00007620: 53 54 00 2F 7E B2 4D 53 54 41 20 57 B0 44 31 00 |ST./~.MSTA W.D1.|
00007630: 3D 7E BC 4D 4C 44 41 20 EC 53 54 AA 31 00 4C 7E |=~.MLDA .ST.1.L~|
00007640: C6 4D 53 54 41 20 57 B0 44 31 AA 31 00 54 7E D0 |.MSTA W.D1.1.T~.|
00007650: 4D 52 54 53 00 5F 7E DA 4D E9 32 20 53 45 43 00 |MRTS._~.M.2 SEC.|
00007660: 6D 7E E4 4D 4A 4D 50 20 24 46 46 46 30 00 73 7E |m~.MJMP $FFF0.s~|
00007670: EE 4D 3B 00 86 7E F8 4D 53 45 54 50 57 20 4C 44 |.M;..~.MSETPW LD|
00007680: 41 20 23 24 30 30 00 92 7E 02 4E 53 54 41 20 EC |A #$00..~.NSTA .|
00007690: 53 54 00 9D 7E 0C 4E 53 54 41 20 57 58 00 AA 7E |ST..~.NSTA WX..~|
000076A0: 16 4E 4C 44 41 20 23 24 30 33 00 B5 7E 20 4E 53 |.NLDA #$03..~ NS|
000076B0: 54 41 20 57 59 00 C2 7E 2A 4E 4C 44 41 20 23 24 |TA WY..~*NLDA #$|
000076C0: 31 33 00 CD 7E 34 4E 53 54 41 20 57 48 00 DA 7E |13..~4NSTA WH..~|
000076D0: 3E 4E 4C 44 41 20 23 24 32 35 00 E5 7E 48 4E 53 |>NLDA #$25..~HNS|
000076E0: 54 41 20 57 57 00 F5 7E 52 4E 4C 44 41 20 23 B3 |TA WW..~RNLDA #.|
000076F0: 24 30 32 30 30 00 05 7F 5C 4E 4C 44 59 20 23 B1 |$0200...\NLDY #.|
00007700: 24 30 32 30 30 00 14 7F 66 4E 4A 4D 50 20 57 49 |$0200...fNJMP WI|
00007710: 4E 44 4F 57 00 44 7F 70 4E 43 48 41 52 41 43 54 |NDOW.D.pNCHARACT|
00007720: 45 52 53 20 2E 42 59 54 20 31 32 38 2C 31 32 38 |ERS .BYT 128,128|
00007730: 2C 31 32 38 2C 31 32 38 2C 31 32 38 2C 31 32 38 |,128,128,128,128|
00007740: 2C 31 32 38 00 71 7F 7A 4E 2E 42 59 54 20 32 35 |,128.q.zN.BYT 25|
00007750: 35 2C 32 35 33 2C 32 35 33 2C 31 2C 32 35 33 2C |5,253,253,1,253,|
00007760: 31 2C 32 35 33 2C 31 2C 32 35 33 2C 30 2C 30 2C |1,253,1,253,0,0,|
00007770: 30 00 9C 7F 84 4E 2E 42 59 54 20 30 2C 30 2C 30 |0....N.BYT 0,0,0|
00007780: 2C 32 35 35 2C 32 35 35 2C 31 39 31 2C 31 36 30 |,255,255,191,160|
00007790: 2C 31 37 35 2C 31 36 38 2C 31 36 38 00 C8 7F 8E |,175,168,168....|
000077A0: 4E 2E 42 59 54 20 31 37 35 2C 31 36 30 2C 31 39 |N.BYT 175,160,19|
000077B0: 31 2C 32 35 31 2C 31 31 2C 32 33 32 2C 34 33 2C |1,251,11,232,43,|
000077C0: 34 30 2C 32 33 35 2C 38 00 EF 7F 98 4E 2E 42 59 |40,235,8....N.BY|
000077D0: 54 20 32 35 31 2C 32 35 35 2C 32 35 35 2C 30 2C |T 251,255,255,0,|
000077E0: 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 00 |255,0,255,0,255.|
000077F0: 1E 80 A2 4E 2E 42 59 54 20 31 2C 31 2C 31 2C 31 |...N.BYT 1,1,1,1|
00007800: 2C 31 2C 31 2C 31 2C 32 35 35 2C 31 32 38 2C 31 |,1,1,1,255,128,1|
00007810: 32 38 2C 31 32 38 2C 31 32 38 2C 31 32 38 00 4B |28,128,128,128.K|
00007820: 80 AC 4E 2E 42 59 54 20 31 32 38 2C 31 32 38 2C |..N.BYT 128,128,|
00007830: 31 32 38 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C |128,1,1,1,1,1,1,|
00007840: 31 2C 31 2C 32 35 35 2C 32 35 35 00 75 80 B6 4E |1,1,255,255.u..N|
00007850: 2E 42 59 54 20 32 34 2C 36 30 2C 31 32 36 2C 32 |.BYT 24,60,126,2|
00007860: 34 2C 32 34 2C 32 34 2C 32 35 35 2C 32 35 35 2C |4,24,24,255,255,|
00007870: 32 34 2C 32 34 00 A1 80 C0 4E 2E 42 59 54 20 32 |24,24....N.BYT 2|
00007880: 34 2C 31 32 36 2C 36 30 2C 32 34 2C 32 35 35 2C |4,126,60,24,255,|
00007890: 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 32 35 |1,1,1,1,1,1,1,25|
000078A0: 35 00 C6 80 CA 4E 2E 42 59 54 20 31 32 38 2C 31 |5....N.BYT 128,1|
000078B0: 32 38 2C 31 32 38 2C 31 32 38 2C 31 32 38 2C 31 |28,128,128,128,1|
000078C0: 32 38 2C 31 32 38 00 D8 80 D4 4E 53 45 54 52 55 |28,128....NSETRU|
000078D0: 20 4C 44 58 20 52 55 EB 00 E6 80 DE 4E 4C 44 59 | LDX RU.....NLDY|
000078E0: 20 4C 4F 43 4F 4C 00 F0 80 E8 4E 4A 4D 50 20 E9 | LOCOL....NJMP .|
000078F0: 00 03 81 F2 4E A1 57 49 44 20 4C 44 41 20 52 55 |....N.WID LDA RU|
00007900: 43 4F 4C 00 0B 81 FC 4E 53 45 43 00 19 81 06 4F |COL....NSEC....O|
00007910: 53 42 43 20 4C 4F 43 4F 4C 00 25 81 10 4F 53 54 |SBC LOCOL.%..OST|
00007920: 41 20 B8 45 31 00 31 81 1A 4F 49 4E 43 20 B8 45 |A .E1.1..OINC .E|
00007930: 31 00 39 81 24 4F 52 54 53 00 4B 81 2E 4F 41 44 |1.9.$ORTS.K..OAD|
00007940: 43 EB 20 4A 53 52 20 A1 57 49 44 00 58 81 38 4F |C. JSR .WID.X.8O|
00007950: 4C 44 41 20 57 B0 44 31 00 60 81 42 4F 43 4C 43 |LDA W.D1.`.BOCLC|
00007960: 00 6C 81 4C 4F 41 44 43 20 B8 45 31 00 79 81 56 |.l.LOADC .E1.y.V|
00007970: 4F 53 54 41 20 57 B0 44 31 00 88 81 60 4F 4C 44 |OSTA W.D1...`OLD|
00007980: 41 20 57 B0 44 31 AA 31 00 95 81 6A 4F 41 44 43 |A W.D1.1...jOADC|
00007990: 20 23 24 30 30 00 A4 81 74 4F 53 54 41 20 57 B0 | #$00...tOSTA W.|
000079A0: 44 31 AA 31 00 AC 81 7E 4F 52 54 53 00 BE 81 88 |D1.1...~ORTS....|
000079B0: 4F 53 42 43 EB 20 4A 53 52 20 A1 57 49 44 00 CB |OSBC. JSR .WID..|
000079C0: 81 92 4F 4C 44 41 20 57 B0 44 31 00 D3 81 9C 4F |..OLDA W.D1....O|
000079D0: 53 45 43 00 DF 81 A6 4F 53 42 43 20 B8 45 31 00 |SEC....OSBC .E1.|
000079E0: EC 81 B0 4F 53 54 41 20 57 B0 44 31 00 FB 81 BA |...OSTA W.D1....|
000079F0: 4F 4C 44 41 20 57 B0 44 31 AA 31 00 08 82 C4 4F |OLDA W.D1.1....O|
00007A00: 53 42 43 20 23 24 30 30 00 17 82 CE 4F 53 54 41 |SBC #$00....OSTA|
00007A10: 20 57 B0 44 31 AA 31 00 1F 82 D8 4F 52 54 53 00 | W.D1.1....ORTS.|
00007A20: 00 00 |.. |
....D.L...N... $8B42. .X..OPT OO.,...;KE
RNAL.:.... . $FFD2.M...SETNAM . $FFBD.`.
.SETFLS . $FFBA.N.... . $FFC0.|... . $
FFC3.....CHKOUT . $FFC9...H.CHKIN . $FFC
6...R..CH . $FFCC...... . $FFD5.M.... .
$FFD8...... . $FFE4.....BA. . $FFCF.....
.PRT . $BDCD.....;ZERO......FIRE . $03."
.".. . $F7.0.,.COL . $F8.>.6..ST . $F9.M
.@.REG1 . $FB.\.J.REG2 . $FC.K.T.REG3 .
$FD.Z.^.REG4 . $FE...H.W.D1 . $14...R.W.
D2 . $05...|..E1 . $02......E2 . $96.B..
..E3 . $B6.P....E4 . $BD......E5 . $030E
.....LAST . $0257...... . $0258...B.VEC.
R . $029F.$.L.BUFBEG . $0386.5.V.BUF. .
$03F2.G...LOCOL . $03F7.W...LO. . $03F8.
I...RUCOL . $03F9.Y...RU. . $03FA.....W.
S . $03FB......D . $030D.....WY . $03F3.
..&.WX . $03F4.E.0.WH . $03F5.T.:.WW . $
03F6...D.MAX . $030C...N.STARTVEC . $031
1...X.;S.STIGE...B.VIC . $D000.'.L.CIA1
. $DC00.:.V.OUTVEC . $0326.G...BASE . ..
T...;FANTASY.E....OUT . $7D00.X...W.DOUT
. $7D28......OUT . $7D31...... . $7D78.
....DIVIDE . $7DB9...F.SCR. . $7DF9.O.P.
ANALYZE . $8120...Z.WINDOW . $817A.....B
INOUT . $7DE3.....SPACE . $8A6E.....RAM
. $7E94.'...ROM . $7E9C.8...SCR. . $7EA4
.I...SCR. . $7EFA.[. ..OUT6 . $7FB6.J.*.
.. . $801E.}.4.W.DINC . $8040...>.W.D2IN
C . $8047...H.SETCOL . $80B9...R.W4FIRE
. $80D2.H.\.MENU . $819E...F.PDMENU . $8
1F8...P.REINVERS . $826F...Z.INVERS . $8
271.....SURE . $8295.".... . $8350.6....
BIDDEN . $83D8.M...NAMEWINDOW . $83FC.\.
..S. . $8473.Y...S.0 . $8479 ;SETNAM PAR
A.....SPRITE. . $84C7...J.SPRITE. . $84D
3...T.FILEOUT . $84DF.F...FICR . $8543.Y
...SEC.RY . $8574.....SCROLL . $8739....
..OUT . $7F28....... . $87AA....... . $8
7CB.....STRING . $8472.@.$.NAME. . $8807
.T...NAME200 . $8815.G.8..START . $8820.
Y.B..CGTH . $8878...L.. . $889F...V.BLIN
K . $88AA...`.NAMC . $88C9...J..ERR . $8
8D4.L.T. ERR . $88DF...~.DOUBLE. . $88E4
.....SETN. . $88EA......N. . $88F1.....E
RROUT . $88F7.'...N.OUT . $88FA.E...N.IN
. $88FF ;EINGABEN #2.D...N.IN2 . $8902
;EINGABEN #8.R.D.. . $8907...N.ERR. . $8
9CE...X..IRQ . $89D4......BRK . $8940...
...NMI . $8A79.E....W . $8A73.U....SP .
$8A6B.....ZERO . $87A9...... . $8A89....
.FIBL . $8AA1...(.CR . $8ACE.%.2.S.UT .
$8AD3.6.<.WSET . $8AFC.G.F.SCR. . $8937.
W.P.CR. . $8B19.I.Z.TES.K . $8B06.}.D.TE
STCHR . $8B24...N.;...X.LDA #.$D000.....
STA $5F.....STA $5A.....STA $58.C. .STA
$9D.S...LDA #.$D000.....STA $60.....LDA
#.$D800...H.STA $5B...R.LDA #.$1000.....
STA $59.....SEI.,...LDA #$33.8...STA $01
.F...JSR $A3BF.S...LDA #$37._...STA $01.
G.".CLI.W.,.LDX #.CHAR1...6.LDY #.CHAR1.
..@.LDA #$06...J.JSR SETNAM...T.LDX #$08
...^.TXA...H.TAY.O.R.JSR SETFLS...|.LDA
#$00.....JSR ......LDY #$00.....MAKECHAR
LDA CHARACTERS,Y.!...STA $0B68,Y.)...IN
Y.6...CPY #$68.G.B.BNE MAKECHAR.X.L.LDX
#.KERNAL.I.V.LDY #.KERNAL.V...LDA #$09..
...JSR SETNAM.....LDA #$08.....TAX.....T
AY.....JSR SETFLS.....LDA #$00.H.&.JSR .
.X.0.LDA #.$0800...:.STA W.D1...D.STA W.
D2...N.LDA #.$0800...X.STA W.D1.1.!.B.LD
A #.$0C00.0.L.STA W.D2.1.=.V.LDA #$10.K.
..STA $0B03.`...REVCHAR LDY #$00.Q...LDA
(W.D1),Y.....E. #%11111111.....STA (W.D
2),Y.....JSR W.DINC.....JSR W.D2INC.B.F.
LDA W.D1.1.R.P.CMP #.$0C00...Z.BNE REVCH
AR.....LDX #.DELPREF.2.....LDY #.DELPREF
.2.....LDA #$07.&...JSR SETNAM.4...JSR S
ETN..A...LDA #$00.K. .JSR ..Y.*.LDA $038
5.H.4.STA CIA1.5.V.>.;HAUPTPRG...H.MAIN
JSR $E518...R.LDA #$08. .\.JSR ....F.LDA
#$40...P.STA VIC.G.Z.STA VIC.1.T...LDA
#$01.....STA VIC.21.....LDA #$0D.....STA
$07F8.....LDA $0383.....STA VIC.39.)...
LDA $0381.9.J.STA VIC.$20.G.T.LDA $0382.
W...STA VIC.$21.E...LDA $0384.S...STA $0
286.....JSR SETCOL.....LDA #$13.....STA
VIC.24.....LDA #.(.OUT)...$.STA OUTVEC.O
...LDA #.(.OUT)...8.STA OUTVEC.1...B.SEI
...L.LDY #$00...V.VECT1 LDA VECS,Y...`.S
TA $0314,Y.".J.INY./.T.CPY #$06.=.~.BNE
VECT1.M...LDA #.MAIN1.^...STA STARTVEC.N
...LDA #.MAIN1.....STA STARTVEC.1.....CL
I.....MAIN1 LDA #$00...D.STA W.S...N.STA
FIRE...X.STA .D.Q...LDA #.CHOICE.....LD
Y #.CHOICE.....JSR MENU.....ASL.....TAY.
....LDA SUBS,Y.....STA ..1.+.(.LDA SUBS.
1,Y.7.2.STA ..2.G.<.. JSR $FFFF.U.F.JSR
$E566.C.P.JMP MAIN1...Z.SUBS .W. .TEM,FI
LES,DISK,.OLS,EXIT...D.VECS .W. .IRQ,.BR
K,.NMI...N..TEM LDA #$00.C.X.STA WX.P...
LDA #$0C.....STA WW.....LDA #$05... .STA
WH.....LDA #..TEMT.....LDY #..TEMT."...
JSR PDMENU./.H.CMP #$00.=.R.BNE .TEM1.M.
.... JMP SCR..B....TEM1 JSR INVERS.O...C
MP #$01.}...BNE .TEM2.....JSR .INFO.....
JSR REINVERS.....JMP ....."..TEM2 CMP #$
02.H.,.BNE .TEM3.U.6.JSR .COL...@.JSR RE
INVERS...J.JMP .....T..TEM3 CMP #$03...^
.BNE .TEM4.!.H.JSR .MOUSE.2.R.JSR REINVE
RS.=.|.JMP ...P....TEM4 CMP #$04.^...BNE
.TEM5.M...JSR .SPEED.~...JSR REINVERS..
...JMP ........TEM5 JSR .....B.JSR REINV
ERS...L.JMP ...I.V..INFO LDY #$09.V...LD
X #$09.....LDA #$17.....STA WW.....LDA #
$0A.....JSR WSET.....LDA #..INFOTI.,...L
DY #..INFOTI.;.&.JSR WINDOW.L.0.LDA #..I
NFOT.].:.LDY #..INFOT.J.D.JSR .OUT.|.N..
INFO1 JSR .W...X.CMP #$FF...B.BNE .INFO1
...L.JMP SCR....V..SPEED LDA #$06.F...LD
X #$07.Q...STX WW.....LDY #$09.....JSR W
SET.....LDA #.SPEEDTI.....LDY #.SPEEDTI.
....JSR WINDOW./.F.LDA #.SPEEDT.@.P.LDY
#.SPEEDT.M.Z.JSR .OUT.`....SPEED1 JSR .W
.M...CMP #$00.}...BEQ .SPEED1.....CMP #$
FF.....BNE .SPEED2.....JMP SCR.... ..SPE
ED2 JSR BLINK.E.*.TAX.R.4.LDY #$00...>.L
DA #$14...H.JSR ....R.LDA REG3...\.STA C
IA1.5...F.STA $0385. .P.JMP SCR..3.Z...
LDA VIC.$20.A...STA $0381.Q...LDA VIC.$2
1._...STA $0382.N...LDA VIC.39.|...STA $
0383.....LDA $0286.....STA $0384...J.LDA
#$09...T.LDX #.DELPREF.I...LDY #.DELPRE
F.X...JSR SETNAM.....JSR .ERR.....JSR E
RR.....LDA #$07.....LDX #.DELPREF.2.'...
LDY #.DELPREF.2.6.$.JSR SETNAM.D...JSR S
ETN..T.8.LDA #.$0340.`.B.STA $FB.P.L.LDA
#.$0340.|.V.STA $FC...`.LDA #$FB...J.LD
X #.$0386...T.LDY #.$0386...~.JSR ......
RTS.M....COL LDA #$0A.X...STA WW.....LDY
#$09.....LDX #$0C.....LDA #$05...D.JSR
WSET...N.LDA #..COLTI...X.LDY #..COLTI.=
...JSR WINDOW.P...LDA #.COLOURST.C...LDY
#.COLOURST.P...JSR .OUT......COL1 JSR .
W.....CMP #$00.....BEQ .COL1...(.CMP #$F
F...2.BNE .COL2.D.<.JMP SCR..Y.F..COL2 J
SR INVERS...P.PHA...Z.LDA #$0B...D.STA W
W...N.LDA #$11...X.LDY #$02. ...LDX #$16
.-...JSR WSET.<...LDA #.ZERO.K. .LDY #.Z
ERO.Z...JSR WINDOW.I...LDA #.COL..X...LD
Y #.COL....H.JSR .OUT...R..COL3 JSR .W..
...CMP #$00.....BEQ .COL3.....CMP #$FF.L
...BNE .COL4.Z....COCD PLA.....JSR SCR..
....JSR REINVERS.. ".JMP .COL1.. ,..COL4
JSR BLINK." 6.TAY.* @.DEY.2 J.PLA.? T.C
MP #$01.M ^.BEQ .COLB.Z H.CMP #$02.H R.B
EQ .COLF.U |.CMP #$03.. ..BEQ .COLC.. ..
STY VIC.39.. ..JMP .COCD.1.. ...COLB STY
VIC.32.G ..JMP .COCD.1.. ...COLF STY VI
C.33.. B.JMP .COCD.1..!L..COLC STY $0286
..!V.JSR SETCOL..!..JMP .COCD.1.6!...MOU
SE LDX #.EDI.R.F!..LDY #.EDI.R.S!..LDA #
$0F.^!..JSR ...L!..JSR SETN..Y!..LDA #$0
0..!&.JSR ...!0.JSR ....!:.JSR TES.K..!D
.CMP #$00..!N.BNE .MOUSE1.G!X.JMP $CD00.
.!B.EDI.R .F "FA.MOUSE-EDITOR"..!L..MOUS
E1 RTS.."V.FILES JSR S..."..JSR SEC.RY.*
"..FILES1 JSR NAMC.7"..CPY #$00.F"..BNE
FILES4.N"..RTS.B"..FILES4 LDA #$07.M"..S
TA WW.Z"F.LDA #$07.."P.STA WH.."Z.LDA #$
08.."..STA WX.."..LDA #.FILEST.."..LDY #
.FILEST.N"..JSR PDMENU.."..CMP #$00.."..
BNE FILES5..# .FILE.B JSR DOUBLE...#*.JS
R SEC.RY.3.!#4.JMP FILES1.7#>.FILES5 JSR
INVERS.?#H.ASL.G#R.TAY.Y#\.LDA FI.AB.2,
Y.F#F.STA REG1.X#P.LDA FI.AB.1,Y..#Z.STA
REG2..#..JMP (REG1)..#..FIQ JSR SURE..#
..CMP #$FF..#..BNE FIQ1.L#...BYT $A9.Z#.
.FIQ.1 PLA..#..FIQ. JSR REINVERS..#J.JMP
FILE.B..$T.FIQ1 LDY #$11.&$..FIQ2 LDA $
01FF,Y.6$..STA $0201,Y.>$..DEY.K$..BNE F
IQ2.X$..LDA #"S".M$..COMM.. STA $0200.Z$
..LDA #":"..$$.STA $0201..$..JSR NAME200
..$8.JSR .ERR..$B.JSR ERR.B$L.JSR DOUBL
E..P$V.JMP FILES..$`.FIRENAME LDA #"R"..
$J.BNE FI.1..%T.FI. LDA #"C"..%~.FI.1 PH
A..%..JSR NAME..2%..JSR NAMEWINDOW.?%..C
MP #$FF.M%..BEQ FIQ.1.[%..LDA $0200.I%..
BEQ FIQ.1.V%D.LDX #$00..%N.JSR NAMC..%X.
LDA #"=". %..STA $0200,Y..%..INY.C%..FIR
ENAME2B LDA $0220,X.S%..STA $0200,Y..%..
BEQ FIRENAME3..%..INX..%..INY..&(.BNE FI
RENAME2B..&2.FIRENAME3 INY.4&<.FIRENAME4
LDA $01FF,Y.D&F.STA $0201,Y.L&P.DEY.^&Z
.BNE FIRENAME4.F&D.PLA.U&N.JMP COMM....&
X.FI. JSR NAME200..&..JSR SETN...&..LDA
#$00..&..JSR ...& .JSR REINVERS.O&..JMP
DOUBLE...&..FILBOOT JSR SURE..&..CMP #$F
F..'H.BNE FILBOOT0..'R.JMP FILE.B.)'..FI
LBOOT0 JSR XBASIC.8'..JSR .START.E'..JSR
SCR..R'..LDA W.D1._'..CMP #$01.O'..BNE
FIBOOT1.~'..LDA W.D1.1..'".CMP #$08..',.
BEQ FILBOOT2..'6.FIBOOT1 LDY #$00.J'@.FI
LBOOT3 LDA START,Y..'J.STA BUFBEG,Y..'T.
INY..'^.CPY #$20..(H.BNE FILBOOT3..(R.JS
R NAME200..(|.JSR SETN..,(..LDA #$00.9(.
.LDX W.D1.K(..STX BUFBEG.25.Z(..LDX W.D1
.1.L(..STX BUFBEG.26.{(..JMP BUFBEG..(B.
START JSR ...(L.SEI. (V.LDY #$20..(..STA
RT1 LDA $FD30,Y.G(..STA $0314,Y.O(..DEY.
.(..BPL START1..(..CLI..(..LDA #$3C..)..
STA CIA1.5..)&.JSR $E518..)0.JMP $FFFF.4
):.FILBOOT2 LDY #$00.N)D.FILBOOT4 LDA ST
ARTB,Y._)N.STA BUFBEG,Y.G)X.INY.T)B.CPY
#$30..)L.BNE FILBOOT4..)V.JSR NAME200..)
..LDA #$08..)..TAX..)..LDY #$00.F)..JSR
SETFLS.S)..LDA #$00..)..LDX #.$0801..)..
STX $2B..)F.LDY #.$0801..*P.STY $2C..*Z.
JMP BUFBEG.+*..STARTB JSR ..7*..STX $2D.
C*..STX $AE.O*..STY $2E.[*..STY $AF.C*..
SEI.P* .LDY #$20..**.STARTB1 LDA $FD30,Y
..*4.STA $0314,Y. *>.DEY..*H.BPL STARTB1
..*R.CLI.E*\.LDA #$3C.T*F.STA CIA1.5..*P
.JSR $E518..*Z.LDA #$00..*..STA $0800..+
..JSR $A659..+..JMP $A7AE..+..FILINFO LD
A #$15.9+..STA WW.F+..LDY #$0B.S+..LDX #
$0A.[+J.TXA.H+T.JSR WSET.W+..JSR .START.
.+..LDA W.D1..+..PHA..+..LDA W.D1.1..+..
PHA..+..LDY #$00.I+..FILINFO1 LDA $0200,
Y.V+$.CMP #","..+..BEQ FILINFO2..+8.INY.
.,B.BNE FILINFO1..,L.FILINFO2 LDA #$00.&
,V.STA $0200,Y.6,`.LDA #.$0200.F,J.LDY #
.$0200.U,T.JSR WINDOW.G,~.LDA #.FINFOST.
Y,..LDY #.FINFOST..,..JSR .OUT..,..PLA..
,..TAY..,..PLA..,..TAX..,D.TYA..,N.STA B
UFBEG.N,X.STX BUFBEG.1..,..JSR .PRT..,..
LDY #$18..,..LDX $D6..,..JSR ...-..JSR S
PACE..-..LDA #"(".#-..JSR ..0-(.LDA #"$"
.:-2.JSR ..I-<.LDX BUFBEG.Z-F.LDA BUFBEG
.1.I-P.JSR W.DOUT.{-Z.LDA #.FINFOEN..-D.
LDY #.FINFOEN..-N.JSR .OUT..-X.JSR .CGTH
..-..LDX #$FE.B-..LDA W.D1.Q-..LDY W.D1.
1..- .JSR ...-..LDA BUFBEG.1..-..CLC....
.ADC REG3...H.STA REG3...R.LDA BUFBEG.*.
..ADC REG4.7...STA REG4.D...LDX REG3.Q..
.JSR .PRT.^...LDY #$18.J...LDX $D6.T...J
SR ....".JSR SPACE...,.LDA #"("...6.JSR
....@.LDA #"$"...J.JSR ....T.LDA REG3.J.
^.LDX REG4.Y.H.JSR W.DOUT...R.LDA #.FINF
OLE...|.LDY #.FINFOLE../..JSR .OUT../..J
SR .CGTH.%/..LDX W.D1.4/..LDA W.D1.1.A/.
.JSR .PRT.N/..LDA W.D1.]/B.LDY W.D1.1.J/
L.LDX #$FE.T/V.JSR .../..LDA REG3../..PH
A../..LDA REG4../..PHA../..LDA #.FINFOWE
.B/..LDY #.FINFOWE.O/..JSR .OUT.W/&.PLA.
./0.TAY../:.PLA../D.TAX../N.TYA..0X.JSR
.PRT..0B.LDA #.FINFOTY.(0L.LDY #.FINFOTY
.50V.JSR .OUT.B0..JSR NAMC.R0..LDA $0201
,Y._0..CMP #"S".O0..BEQ INFOSEQ.|0..CMP
#"U"..0..BEQ INFO...0..CMP #"P"..0F.BNE
INFOUNK..0P.LDA BUFBEG.C0Z.CMP #$08.R0..
BNE INFOMC..0..LDA BUFBEG.1..0..CMP #$01
..0..BNE INFOMC..1..LDA #.INFOBAT.#1..LD
Y #.INFOBAT.01 .JSR .OUT.>1*.JMP INFO..S
14.INFOUNK LDA #"?".]1>.JSR ..K1H.JMP IN
FO...1R.INFOMC LDA #.INFOMCT..1\.LDY #.I
NFOMCT..1F.JSR .OUT..1P.JMP INFO..K1Z.IN
FOSEQ LDA #.INFOSET..1..LDY #.INFOSET..1
..JSR .OUT..1..JMP INFO...2..INFO. LDA #
.INFOUST."2..LDY #.INFOUST./2..JSR .OUT.
@2..INFO. JSR .W.M2J.CMP #$FF.[2T.BNE IN
FO..H2..JSR SCR..W2..JMP FILE.B.}2..;..2
..FI. LDY #$08..2..TYA..2..LDX #$09..2..
STX WW..2$.LDX #$12.H2..JSR WSET.U28.LDA
#..I..2B.LDY #..I..2L.JSR WINDOW..2V.LD
A #..X..3`.LDY #..X..3J.JSR .OUT.(3T.FI.
0 JSR .W.53~.CMP #$00.B3..BEQ FI.0.O3..C
MP #$FF.\3..BNE FI.1.I3..JSR SCR..X3..JM
P FILE.B..3..FI.1 CMP #$04..3D.BEQ FI.0.
.3N.BCS FI.2..3X.LDA #$03..3...BYT $2C.P
3..FI.2 LDA #$04..3..STA .ST.1..3..LDX #
$09..3..STX WW..4..LDY #$0B..4..LDA #$08
..4(.JSR WSET.,42.LDA #.ZERO.;4<.LDY #.Z
ERO.J4F.JSR WINDOW.X4P.LDA #..TX.F4Z.LDY
#..TX.S4D.JSR .OUT..4N.FI.3 JSR .W..4X.
CMP #$00..4..BEQ FI.3..4..CMP #$FF..4..B
NE FI.4.G4 .JSR DOUBLE..V4..JMP FILE.B..
4..FI.4 CMP #$04..4..BEQ FI.3..5H.BCS .F
..5R.JMP ....5...F LDA #$01.'5..STA .ST.
55..LDA .ST.1.B5..CMP #$04.O5..BEQ FI.5.
]5..JSR SETPW.Q5..FI.5 JSR .START.5".LD
X .ST.1..5,.LDA #$07..56.TAY..5@.JSR SET
FLS..5J.LDA #$00..5T.JSR SETNAM.I5^.JSR
..Y5H.JSR NAME200..5R.JSR .N...5|.JSR .I
N..5..JSR BA...6..JSR BA...6..LDA #$00.$
6..STA VEC.R.76..FI.6 LDA VEC.R.D6..BNE
FI.B.Q6B.LDA FIRE.\6L.E. .ST.I6V.BEQ FI.
6.Y6..JSR ANALYZE..6..CMP #$FF..6..BNE F
I...6..JSR .OUT..6. JSR CR..6. JSR .CH.D
6. JMP FI.B1.T6& FI. JSR .IN..60 JSR BA.
..6: TAX..6D LDY $90..7N STY VEC.R..7X .
#%01111111. 7B CMP #$0D.-7L BEQ FI.7.57
V TXA.B7. CMP #" ".O7. BCC FI.6.\7. CMP
#$80.I7. BCC FI.7.V7. CMP #$A0..7. BCC F
I.6..7. FI.7 JSR .OUT..7F JSR ...7P LDA
#$00..7Z STA $D4.F7. LDA VEC.R.S7. BEQ F
I.6..7. FI.B JSR .OUT..7.!JSR CR..7.!JSR
.CH..8.!JSR W4FIRE..8 !LDA .ST.1.&8*!CM
P #$03.484!BNE FI.B1.C8>!JSR W4FIRE.V8H!
FI.B1 LDA #$07.`8R!JSR .M8\!LDA #$08.W8
F!JSR ..8P!JSR DOUBLE...8Z!LDA .ST.1..8
.!CMP #$04..8.!BEQ FI.A..8.!JSR SCR..P8.
!FI.A JMP FILE.B..8.!.. LDA #$10..8.!STA
LAST..8.!LDA #$01..9J!STA .ST..9T!LDA .
ST.1.!9.!CMP #$04.,9.!BEQ .1.:9.!JSR SET
PW.G9.!LDA #$08.T9."STA LAST.F9.".1 JSR
.START.T9."LDX .ST.1..9$"LDA #$07..9."TA
Y..98"JSR SETFLS..9B"LDA #$00..9L"JSR SE
TNAM..9V"JSR ..N9`"JSR NAME200.Z9J"JSR .
N...9T"JSR .IN..9~"JSR BA...9."JSR BA...
:.".2 JSR .OUT..:."LDA W.D1.*:."LDX W.D1
.1.9:."JSR W.DOUT.F:."LDY LAST.S:D"LDA #
$00.G:N".3 STA BUFBEG,Y.O:X"DEY.Z:."BPL
.3..:."JSR .IN..:."LDY #$00..:.#.4 JSR B
A...:.#STA BUFBEG,Y..:.#LDA $90.J:.#BNE
.5.R:(#INY..:2#CPY LAST..:<#BNE .4..:F#.
5 LDA $90..;P#PHA..;Z#JSR .OUT..;D#JSR S
PACE.);N#LDA #$00.3;X#STA ..>;.#.6 TAY.O
;.#LDA BUFBEG,Y.[;.#JSR .SP.E; #INC ..O;
.#LDA ..|;.#CMP LAST..;.#BNE .6..;H#LDY
#$00..;R#.7 LDA BUFBEG,Y..;.#INY..;.#CPY
LAST.H;.#BEQ .A.S;.#BCS .9..;.$.A CMP #
" "..;.$BCC .P..;.$CMP #$80..<"$BCC .8..
<,$CMP #$A0..<6$BCC .P.+<@$.8 JSR ..6<J$
JMP .7.F<T$.P LDA #".".Q<^$BNE .8.\<H$.9
PLA.G<R$BNE .E.T<|$LDA LAST.|<.$CLC..<.
$ADC W.D1..<.$STA W.D1..<.$LDA #$00..<.$
ADC W.D1.1.A<.$STA W.D1.1.N<B$LDA #$00.Z
<L$STA $D4..<V$JSR CR..<.$.B LDA FIRE..=
.$E. .ST..=.$BEQ .B..=.$JSR ANALYZE.(=.%
CMP #$FF.4=.%BNE FI..?=.%JSR CR.K=&%JSR
.CH.Y=0%JMP FI.B1.H=:%FI. JMP .2.Z=D%.C
JSR W4FIRE..=N%.E JMP FI.B..=X%DISK LDA
#$10..=B%STA WX..=L%LDA #$07..=V%STA WH.
L=.%LDA #$08.W=.%STA WW..=.%LDA #.DISKME
NU..=.%LDY #.DISKMENU..>.%JSR PDMENU..>.
%CMP #$00.'>.%BNE DISK1.4>F%JMP SCR..I>P
%DISK1 JSR INVERS.Q>Z%ASL.Y>.%TAY.M>.%LD
A DISKTAB.2,Y.Z>.%STA REG1..>.&LDA DISKT
AB.1,Y..>.&STA REG2..>.&JMP (REG1)..> &D
ISK. JSR S.UT.N>*&JSR REINVERS..>4&JMP S
CR...>>&DISKVA JSR ....>H&LDA #$01..?R&L
DX #.EI..?\&LDY #.EI.#?F&JSR SETNAM.0?P&
JSR .ERR.=?Z&JSR ERR.H?.&JSR ...Y?.&JSR
REINVERS.F?.&JMP SCR..Z?.&DISKRE JSR FI
BL..?.&JSR ERROUT..?.&LDA #.BUFPO...?.&L
DY #.BUFPO...?J&JSR $AB1E.E?T&JSR .CH.R?
.&JSR N.IN..?.&LDY #$00..?.&DISKRE1 JSR
...@.&STA $0200,Y..@.'INY..@.'CPY #$17.&
@.'BNE DISKRE1.2@$'JSR .CH.?@.'LDA #$11.
J@8'STA WW.W@B'LDA #$0A.D@L'LDX #$05.Q@V
'LDY #$05.~@`'JSR WSET..@J'LDA #.DISKTIT
..@T'LDY #.DISKTIT..@~'JSR WINDOW.C@.'LD
A #.DISKTXT.U@.'LDY #.DISKTXT..@.'JSR .O
UT..@.'LDY #$00..A.'DISKRE2 LDA $0200,Y.
.A.'JSR ...AD'INY.&AN'CPY #$10.6AX'BNE D
ISKRE2.AA.'JSR CR.LA.'JSR CR.YA.'LDY #$0
0.QA.(DISKRE3 LDA $0212,Y.{A.(JSR ...A.(
INY..A.(CPY #$05. A((BNE DISKRE3..A2(LDA
#.DISKTXT2.FA<(LDY #.DISKTXT2.SAF(JSR .
OUT..AP(LDY #$00..AZ(DISKRE4 LDA $0200,Y
..BD(STA BUFBEG,Y..BN(INY..BX(CPY #$17..
B.(BNE DISKRE4.8B.(JSR ..FB.(LDA $0200.V
B (BEQ DISKRE7.CB.(LDY #$00.XB.(DISKRE5
LDA #" "..B.(STA BUFBEG,Y..BH(INY..BR(CP
Y #$10..B.(BNE DISKRE5..B.(LDY #$00.SB.(
DISKRE6 LDA $0200,Y..B.(BEQ DISKRE7..B.)
STA BUFBEG,Y..B.)INY..C.)BNE DISKRE6.!C"
)DISKRE7 LDA #$06.,C,)JSR ...9C6)LDA #$0
8.DC@)JSR ...QCJ)LDX #$0C.^CT)LDY #$05.H
C^)JSR ..{CH)LDA #.DISKTXT3..CR)LDY #.DI
SKTXT3..C|)JSR .OUT..C.)JSR ...C.)LDA $0
200.CC.)BEQ DISKREA.PC.)LDY #$00..C.)LDA
#" "..C.)DISKRE8 STA BUFBEG.$12,Y..DB)I
NY..DL)CPY #$05..DV)BNE DISKRE8.,D.)LDY
#$00.DD.)DISKRE9 LDA $0200,Y.TD.)BEQ DIS
KREA.ID.)STA BUFBEG.$12,Y.QD.*INY.~D.*CP
Y #$05..D.*BNE DISKRE9..D&*DISKREA JSR E
RROUT..D0*LDA #.BUFPO..GD:*LDY #.BUFPO..
UDD*JSR $AB1E..DN*JSR .CH..DX*JSR N.OUT.
.DB*LDY #$00..EL*DISKREB LDA BUFBEG,Y..E
V*JSR ..'E.*INY.4E.*CPY #$17.DE.*BNE DIS
KREB.PE.*JSR .CH.]E.*LDA #"2".IE.*STA ..
1.XE.*JSR ERROUT..EF*LDA #....EP*LDY #..
..EZ*JSR $AB1E..E.*JSR .CH..E.*LDA #"1".
CE.*STA ..1.RE.+JSR ERROUT..E.+LDA #"I".
.E.+JSR ...E +JSR .CH..F*+JSR ERR..F4+L
DA #$02..F>+JSR .*FH+JSR REINVERS.:FR+J
MP DOUBLE..PF\+DISKLOCK JSR FIBL.]FF+LDX
#$07.JFP+LDY #$07.WFZ+LDA #$0B..F.+STA
WW..F.+LDA #$0C..F.+JSR WSET..F.+LDA #.L
OCKTI..F.+LDY #.LOCKTI.MF.+JSR WINDOW..F
.+JSR ERROUT..FJ+LDA #.BUFPO.1..GT+LDY #
.BUFPO.1..G.+JSR $AB1E..G.+JSR .CH.'G.+J
SR N.IN.3G.+JSR BA..;G.,PHA.GG.,JSR .CH.
XG.,LDA #.LOCKT1.IG$,LDY #.LOCKT1.VG.,JS
R .OUT.~G8,PLA..GB,CMP #"A"..GL,BNE DISK
LO1..GV,LDA #.LOCKT2..G`,LDY #.LOCKT2.JG
J,JSR .OUT..GT,DISKLO1 LDA #.LOCKT3..G~,
LDY #.LOCKT3..H.,JSR .OUT..H.,DISKLO2 JS
R .W.!H.,CMP #$FF.1H.,BEQ DISKLO..>H.,CM
P #$05.NH.,BCC DISKLO2.[HD,CMP #$08.KHN,
BEQ DISKLO2.{HX,BCS DISKLO3..H.,LDA #"X"
..H.,.BYT $2C..H.,DISKLO3 LDA #"A"..H.-P
HA.AH.-JSR ERROUT.SH.-LDA #.BUFPO.1..H.-
LDY #.BUFPO.1..H(-JSR $AB1E..H2-JSR .CH.
.I<-JSR N.OUT..IF-PLA..IP-JSR ..+IZ-JSR
.CH.8ID-LDA #"2".DIN-STA ..1.SIX-JSR ERR
OUT.EI.-LDA #.SET.MAT.WI.-LDY #.SET.MAT.
.I.-JSR $AB1E..I -DISKMESSX JSR .CH..I.-
JSR ERROUT..I.-LDA #...BI.-LDY #...PIH-J
SR $AB1E..IR-JSR .CH..I.-LDA #"1"..I.-ST
A ..1..J.-DISKLO. LDA #$02..J.-JSR .!J.
.JSR ERR.2J..JSR REINVERS.BJ..JMP DOUBL
E..UJ".DISK. LDA #$15.`J,.STA WW.MJ6.LDA
#$04.XJ@.STA WH..JJ.TAX..JT.LDY #$0B..J
^.JSR WSET..JH.LDA #..MATTI..JR.LDY #..M
ATTI.KJ|.JSR WINDOW..J..LDA #..MATT..J..
LDY #..MATT..J..JSR .OUT..K..JSR ...K..L
DA $0200. K..BNE DISKFO1.6KB..MAT. JMP D
OUBLE..KKL.DISKFO1 JSR SURE.XKV.CMP #$FF
.FK..BEQ .MAT..SK..LDY #$16..K..DISKFO2
LDA $01FF,Y..K..STA $0201,Y..K./DEY..K./
BNE DISKFO2..K./LDA #"N".NK&/STA $0200..
K0/LDA #":"..K:/STA $0201..KD/JSR NAME20
0..LN/JSR .ERR..LX/JSR ERR.!LB/JMP .MAT
..4LL/DISKO LDA #$1E.?LV/STA WW.LL./LDA
#$10.YL./LDX #$04.FL./LDY #$04.SL./JSR W
SET..L./LDA #.DISKOI..L./LDY #.DISKOI..L
./JSR WINDOW..LF/LDA #$01.BLP/LDX #.STRI
NG.SLZ/LDY #.STRING..L./JSR SETNAM..L./L
DY #$00..L./LDX #$08..M.0TXA..M.0JSR SET
FLS..M.0JSR ..+M 0JSR N.IN2.8M*0LDY #$04
.LM40DISKCA1 JSR BA..XM>0LDA $90.HMH0BNE
DISKCA4.PMR0DEY..M\0BNE DISKCA1..MF0JSR
BA...MP0TAX. MZ0JSR BA...M.0JSR .PRT..M
.0JSR SPACE.HM.0LDA #$00.TM.0STA MAX..M.
0DISKCA2 JSR BA...M.0CMP #$00..N.0BEQ DI
SKCA3..NJ0CMP #$22.#NT0BEQ DISKCA7B./N.0
LDX MAX.<N.0CPX #$1A.MN.0BCC DISKCA7B.AN
.0DISKCAX JSR BA..NN.1CMP #$00.~N.1BNE D
ISKCAX..N.1BEQ DISKCA3..N$1JSR TESTCHR..
N.1BCS DISKCA2.AN81DISKCA7B JSR ..MNB1IN
C MAX..NL1JMP DISKCA2..NV1DISKCA3 JSR CR
..O`1DISKCAW LDA FIRE..OJ1BNE DISKCAW."O
T1LDY #$02.2O~1JMP DISKCA1.FO.1DISKCA4 J
SR .CH.SO.1LDA #$08.]O.1JSR .PO.1DISKCA
8 JSR .W.}O.1CMP #$FF..O.1BNE DISKCA8..O
D1JMP DOUBLE...ON1DISKMESS LDA #$14..OX1
STA WW.KO.1LDX #$0C.XO.1LDY #$0C..O.1LDA
#$06..O.2JSR WSET..P.2LDA #.MESSTI..P.2
LDY #.MESSTI.#P.2JSR WINDOW.0P(2JSR FIBL
.?P22JSR ERROUT.OP<2LDA #.MESS.._PF2LDY
#.MESS..MPP2JSR $AB1E.YPZ2JSR .CH..PD2LD
Y #$00..PN2LDA #" "..PX2DISKMESSAGE STA
$A051,Y..P.2INY.DP.2CPY #$15.XP.2BNE DIS
KMESSAGE..P 2JSR N.IN..P.2LDY #$00..Q.2D
ISKMESS2 JSR BA...Q.2STA $A000,Y. QH2INY
.-QR2CPY #$51.?Q.2BNE DISKMESS2.KQ.2JSR
.CH.[Q.2LDA #.$A000.GQ.2STA .ST.WQ.3LDA
#.$A000..Q.3STA .ST.1..Q.3STA W.D2.1..Q"
3LDA #.$A050..Q,3STA W.D2..Q63JSR .IN.LQ
@3JSR ERROUT..QJ3LDA #.MESS...QT3LDY #.M
ESS...Q^3JSR $AB1E..RH3JSR .CH..RR3JSR N
.OUT.!R|3LDY #$00.7R.3DISKMESS3 JSR RAM.
GR.3LDA $A000,Y.SR.3JSR ROM.]R.3JSR ..ER
.3INY.RR.3CPY #$51..RB3BNE DISKMESS3..RL
3LDA #"2"..RV3STA ..1..R.3JSR SCR...R.3J
MP DISKMESSX.JR.3.OOLS RTS..R.3.OLS LDX
#..OLNAME..R.4LDY #..OLNAME..S.4LDA #$06
..S.4JSR S.0..S&4JSR FICR.%S04LDA MAX.3S
:4BEQ .OOLS.@SD4CMP #$15.NSN4BCC .OLS1.[
SX4LDA #$15.LSB4.OLS1 STA WH.YSL4LDA #$1
7..SV4STA WX..S.4LDA #$0D..S.4STA WW..S.
4JSR RAM..S.4LDA #.$A020.ES.4STA W.D1.US
.4LDA #.$A020..S.4STA W.D1.1..SF4LDA #.$
A300..TP4STA W.D2..TZ4LDA #.$A300. T.4ST
A W.D2.1.3T.4.OLS2 LDY #$04.JT.4.OLS3 LD
A (W.D1),Y.RT.5INY._T.5CMP #$22.MT.5BNE
.OLS3.UT 5INY..T*5INY ;.. UEBERLESEN..T4
5INY..T>5.OLS4 LDA (W.D1),Y..TH5STY .E1.
DTR5LDY #$00.QT\5CMP #$22..TF5BEQ .OLS5.
.TP5STA (W.D2),Y..UZ5JSR W.D2INC..U.5LDY
.E1..U.5INY."U.5BNE .OLS4.5U.5.OLS5 LDA
#$0D.FU.5STA (W.D2),Y.VU.5JSR W.D2INC.C
U.5LDA W.D1.KUJ5CLC.XUT5ADC #$20..U.5STA
W.D1..U.5LDA W.D1.1..U.5ADC #$00..U.5ST
A W.D1.1..U.6DEC MAX.JU.6BNE .OLS2.WU.6L
DA #$00..U$6STA (W.D2),Y..U.6JSR ROM..V8
6LDA #..OLS6.1..VB6PHA. VL6LDA #..OLS6.1
.(VV6PHA.8V`6LDA #.$A300.@VJ6PHA.PVT6LDA
#.$A300.XV~6PHA.EV.6LDA #$01.PV.6STA WY
.V.6LDA #.ZERO..V.6LDY #.ZERO..V.6JSR W
INDOW..V.6DEC $01..VD6JMP PDMENU.15.MVN6
.OLS6 INC $01.ZVX6CMP #$00..V.6BNE .OLS7
..V.6JMP SCR...W.6.OLS7 JSR INVERS..W.7D
EC $01."W.7STA .E1.*W.7PHA.:W.7LDA #.$A3
00.BW(7TAY.OW27STA W.D1._W<7LDA #.$A300.
NWF7STA W.D1.1.ZWP7DEC .E1..WZ7BEQ .OLSA
..WD7.OLS8 LDA (W.D1),Y..WN7CMP #$0D..WX
7BEQ .OLS9.IW.7JSR W.DINC.WW.7JMP .OLS8.
.W.7.OLS9 JSR W.DINC..W 7DEC .E1..X.7BNE
.OLS8..X.7.OLSA LDA (W.D1),Y.*X.7CMP #$
0D.8XH7BEQ .OLSB.HXR7STA $0203,Y.PX.7INY
.^X.7BNE .OLSA.QX.7.OLSB LDA #$00..X.7ST
A $0203,Y..X.8INC $01..X.8PLA..X.8TAX..X
"8LDA #"T"..X,8STA $0200.EX68LDA #"O".SX
@8STA $0201..XJ8LDA #"."..XT8STA $0202..
X^8JSR .START..YH8LDA $B7..YR8LDX #.$020
0.)Y|8LDY #.$0200.8Y.8JSR SETNAM.FY.8JSR
SETN..SY.8LDA #$00.]Y.8JSR ..IY.8STX $A
E.UY.8STY $AF..YB8JMP (W.D1)..YL8XBASIC
LDY #$00..YV8XBASIC1 LDA XBAS,Y..Y.8STA
$02C0,Y.GY.8INY.TY.8CPY #$2A..Y.8BNE XBA
SIC1..Y.9LDA $0308..Z.9CMP #.$02C0..Z.9B
EQ XBASIC2. Z&9STA $02FE.6Z09XBASIC2 LDA
$0309.FZ:9CMP #.$02C0.VZD9BEQ XBASIC3.D
ZN9STA $02FF.YZX9XBASIC3 LDA #$C0..ZB9ST
A $0308..ZL9LDA #$02..ZV9STA $0309..Z.9R
TS..Z.9XBAS LDY #$01.LZ.9LDA ($7A),Y.YZ.
9CMP #"@"..Z.9BEQ XBAS1..Z.9JMP ($02FE).
.[.9XBAS1 LDX #$08..[F9TXA..[P9TAY.)[Z9J
SR SETFLS.6[.9LDA #$07.C[.9LDX #$E0.P[.9
LDY #$02._[.:JSR SETNAM.L[.:LDA #$00.V[.
:JMP ...[ :.F "FANTASY"..[*:EXIT LDA #$0
7..[4:STA WW..[>:LDA #$03..[H:STA WH.I[R
:LDA #$1E.T[\:STA WX..[F:LDA #.EXITT..[P
:LDY #.EXITT..\Z:JSR PDMENU..\.:JSR INVE
RS..\.:CMP #$01.-\.:BEQ EXIT1.:\.:CMP #$
02.H\.:BEQ EXIT2.U\.:CMP #$03.C\.:BEQ EX
IT3.Z\J:EXIT0 JSR REINVERS..\T:JMP SCR..
.\.:EXIT2 JSR SURE..\.:CMP #$FF..\.:BEQ
EXIT0.B\.:LDA #$00.N\.;STA W.S.Y\.;STA .
D..\.;JSR SCR...\$;JMP BASE..].;EXIT1 JS
R SURE..]8;CMP #$FF.!]B;BEQ EXIT0./]L;JM
P $FCE2.B]V;EXIT3 JSR SURE.O]`;CMP #$FF.
]]J;BEQ EXIT0.L]T;JSR XBASIC.Z]~;JMP $FE
66..].;;..].;CHOICE .F "SYSTEM . FILES
. DISK . TOOLS . EXIT"..].;.TEMT .F "
FANTASY-INFOCOLOURS"..^.;.BYT $0D:.F "MO
USE-EDITORMOUSE-SPEED SAVE":.BYT $00.;^.
;.INFOT .BYT $01,$05:.F "FANTASY ".L^.;
EI .F "V1.1".M^D;.BYT $0D,$01,$05,$02,".
",$0D.~^N;.BYT $0D,$0D..^X;.F "DESIGNED
AND PROGRAMMED"..^.;.BYT $0D,$0D,$01,$06
.M^.;.F "IN 1987 BY"..^.;.BYT $0D,$0D,$
01,$06..^.<.F "ALFRED FENT".._.<.BYT $00
./_.<.INFOTI .F "FANTASY-INFO":.BYT $00.
P_.<.COLTI .F "COLOURS":.BYT $00.._(<COL
. .F "BLACK":.BYT $0D:.F "WHITE".:BYT $0
D:.F "RED":.BYT $0D.S_2<.F "CYAN":.BYT $
0D:.F "PURPLE".:BYT $0D:.F "GREEN":.BYT
$0D..`<<.F "BLUE":.BYT $0D:.F "YELLOW".:
BYT $0D:.F "ORANGE":.BYT $0D.\`F<.F "BRO
WN":.BYT $0D:.F "LIGHT RED".:BYT $0D:.F
"DARK GREY":.BYT $0D..`P<.F "GREY":.BYT
$0D:.F "LIGHT GREENLIGHT BLUE"..`Z<.BYT
$0D:.F "LIGHT GREY":.BYT $00..`D<COLOURS
T .F "FRAME":.BYT $0D:.F "SCREEN":.BYT $
0D..AN<.F "CHARACTERSMOUSE":.BYT $00.EAX
<EXITT .F "RESET":.BYT $0D:.F "RESTARTBA
SIC":.BYT $00.[A.<CHAR1 .F "FA.CHR".UA.<
KERNAL .F "FA.KERNAL"..A.<FILEST .F "LOA
D":.BYT $0D:.F "BOOT":.BYT $0D..A <.F "R
ENAME DELETE COPY":.BYT $0D:.F "INFO":.B
YT $0D..A.<.F "PRINT":.BYT $00..B.<SPEED
TI .F "SPEED":.BYT $00.7B.<SPEEDT .F "SU
ICIDE":.BYT $0D.NBH<.F "FAST":.BYT $0D.G
BR<.F "MEDIUM":.BYT $0D.~B.<.F "SLOW":.B
YT $0D..B.<.F "SLEEPY":.BYT $00..B.<DELP
REF .F "S:FA.PREF".UB.<FINFOST .F "START
: ":.BYT $00..C.=FINFOEN .BYT ")",$0D,$
0D:.F "END : ":.BYT $00.=C.=FINFOLE .B
YT ")",$0D,$0D:.F "LENGTH: ":.BYT $00.OC
.=FINFOWE .F " BLOCKS":.BYT $0D,$0D,$01,
$08,$00..C"=FINFOTY .F " BYTES":.BYT $0D
,$0D:.F "TYPE : ":.BYT $00.KC,=INFOBAT
.F "BASIC":.BYT $00..C6=INFOMCT .F "MC-C
ODE":.BYT $00..D@=INFOSET .F "SEQUENTIEL
L":.BYT $00.7DJ=INFOUST .F "USER-FILE":.
BYT $00.YDT=DISKMENU .F "FORMAT":.BYT $0
D.RD^=.F "RENAME":.BYT $0D..DH=.F "VALID
ATEPROTECT MESSAGE STATUS":.BYT $0D.DDR=
DISKOI .F "CATALOG":.BYT $00..D|=BUFPO.
.F "B-P 2 144":.BYT $00..E.=BUFPO.1 .F "
B-P 2 2":.BYT $00..E.=DISKTIT .F "DISKHE
ADER":.BYT $00.AE.=DISKTXT .F "CURRENT H
EADER: ":.BYT $0D,$0D,$00..E.=DISKTXT2 .
BYT $0D,$0D:.F "ENTER NEW NAME: ":.BYT $
0D,$0D,$00.TE.=DISKTXT3 .F "ENTER NEW ID
: ":.BYT $0D,$0D,$00..E.=LOCKTI .F "PROT
ECT":.BYT $00..FB=LOCKT1 .F "STATUS NOW:
":.BYT $0D,$0D.5FL=.F "READ":.BYT $00.UF
V=LOCKT2 .F "/WRITE":.BYT $00..F.=LOCKT3
.BYT $0D,$0D,".",$02,".",$09,"."..F.=.F
". PROTECT ."..F.=.BYT ".",$02,".",$09,
".",$0D,$0D.XF.=.BYT ".",$02,".",$09,"."
..F.>.F ".DEPROTECT."..G.>.BYT ".",$02,"
.",$09,".",$00.<G.>SET.MAT .F "M-W":.BYT
$01,$01,$01,"A",$00.^G&>MESS. .F "B-P 2
175":.BYT $00..G0>MESSTI .F "DISK-MESSA
GE":.BYT $00..G:>.MATTI .F "FORMAT DISK"
:.BYT $00..GD>.MATT .F "PLEASE ENTER NAM
E, ID":.BYT $0D,$0D,$00..GN>.OLNAME .F "
$:TO.*"..HX>FI.AB .W. FI.,FILBOOT,FIRENA
ME,FIQ,FI.,FILINFO,FI..PHB>DISKTAB .W. D
ISK.,DISKRE,DISKVA,DISKLOCK,DISKMESS,DIS
K.,DISKO..HL>.I .F "DEVICE":.BYT $00..HV
>.X .BYT ".",$02,".",$07,"."..H.>.F ".SC
REEN ."..H.>.BYT ".",$02,".",$07,".",$0D
,$0D..I.>.BYT ".",$02,".",$07,"."..I.>.F
".PRINTER.".5I.>.BYT ".",$02,".",$07,".
",$00.VI.>.TX .BYT ".",$02,".",$07,".".I
I.>.F ".HEXDUMP."..IF>.BYT ".",$02,".",$
07,".",$0D,$0D..IP>.BYT ".",$02,".",$07,
"."..IZ>.F ". ASCII ."..I.>.BYT ".",$02,
".",$07,".",$00..I.>.IN JSR .CH..I.>JMP
N.IN2..J.?.OUT PHA..J.?JSR .CH.#J.?LDX #
$07.2J ?JSR CHKOUT.:J*?PLA.BJ4?RTS.DJ>?;
.EINGABE IM WINDOW; .ST.W.D2.WJH?.IN LDA
#..IN1..JR?STA VEC.R..J\?LDA #..IN1..JF
?STA VEC.R.1..JP?.EDIT JSR SETST.DJZ?LDA
RU..LJ.?SEC.XJ.?SBC LO...J.?STA ...J.?I
NC ...J.?JSR SETRU..K.?LDA RUCOL..K.?SEC
..KJ?SBC LOCOL.+KT?STA LAST.8K.?INC LAST
.IK.?.INB JSR .IN.VK.?LDA W.D1.^K.?CLC.K
K.@ADC LAST.XK.@STA W.D1..K.@LDA W.D1.1.
.K$@ADC #$00..K.@STA W.D1.1..K8@JSR SETR
U..KB@DEC ..HKL@BNE .INB.TKV@LDX LO...K`
@LDY LOCOL..KJ@JSR ...KT@JSR SETST..L~@L
DA #$00..L.@STA .. L.@.IN3 JSR ..-L.@LDA
#$00.7L.@JSR ..IL.@.IN0 LDA #$00.UL.@ST
A $CC.DLD@.IN1 JSR ..QLN@CMP #$00.~LX@BN
E .INY..L.@LDA $028D..L.@CMP #$04..L.@BN
E .INJ..L.AJMP (VEC.R).HL.A.INJ LDA FIRE
.UL.ABEQ .IN1..L.AJMP .FIRE..L(A.INY JSR
CR...M2ACMP #"."..M<ABEQ CRSR..MFACMP #
".".*MPABEQ CRLEFT.7MZACMP #".".EMDABEQ
CRSUP.RMNACMP #".".BMXABEQ CRSDOWN.OM.AC
MP #$14.~M.ABEQ CRSDEL..M.ACMP #$0D..M A
BEQ TXTCR..M.ACMP #$03 ;.....M.ABEQ TXTR
S.AM.ANOP..MHANOP ; PLATZ FUER JSR.JMP Z
UM UEBERPRUEFEN .ERER TASTEN..NRANOP..N.
AJSR TESTCHR.!N.ABCC .IN4..N.AJMP .IN0.@
N.A.IN4 LDY #$00.QN.BSTA (W.D1),Y.YN.BPH
A.CN.BLDA ..PN"BBNE .IN6..N,BCRIN JSR .2
..N6BCPX RU...N@BBNE .IN6..NJBCPY RUCOL.
.NTBBNE .IN6.AN^BJSR ADC..MNHBJSR .IN..N
RBLDY RUCOL..N|BLDX RU...N.BDEX..N.BJSR
...O.BJSR SBC...O.B.IN6 LDA #$00."O.BSTA
..*O.BPLA.9OBBJSR W.DINC.JOLBJSR W.DCHE
CK.WOVBBCS .INX.DO.BJMP .IN3.XO.B.INX JS
R W.DDEC..O.BJMP .IN0..O.BJMP .IN3..O.CT
XTRS JMP .RS..O.CTXTCR JMP .CR.IO.CCRSUP
JMP CRUP..O&CCRSDOWN JMP CRDOWN..O0CCRS
DEL JMP CRDEL..P:CCRSR JMP CRRIGHT..PDCC
RLEFT JSR CR..,PNCJSR W.DDEC.=PXCJSR W.D
CHECK.MPBCBCC CRLEFT0.\PLCJSR W.DINC.IPV
CJMP .IN0.|P.CCRLEFT0 JSR .2..P.CCPY LOC
OL..P.CBEQ CRLEFT2..P.CDEY..P.CCR. JSR .
..P.CJMP .IN0.QP.CCRLEFT2 CPX LO...PFCBE
Q CRLEFT3..PPCLDY RUCOL..PZCDEX..Q.CBNE
CR...Q.CCRLEFT3 LDA RUCOL.!Q.CSEC./Q.DSB
C LOCOL.;Q.DSTA .E1.HQ.DLDA W.D1.PQ DPHA
._Q*DLDA W.D1.1.GQ4DPHA.TQ>DLDA W.D1.|QH
DSEC..QRDSBC .E1..Q\DSTA W.D1..QFDLDA W.
D1.1..QPDSBC #$00..QZDSTA W.D1.1.OQ.DJSR
LASTIN.WQ.DPLA..Q.DSTA W.D1.1..Q.DPLA..
Q.DSTA W.D1..R.DLDY RUCOL..R.DLDX LO..!R
JDJMP CR..5RTDCRRIGHT JSR CR..DR.DJSR W.
DINC.UR.DJSR W.DCHECK.FR.DBCC CRRIGHT0.U
R.DJSR W.DDEC..R.EJMP .IN0..R.ECRRIGHT0
JSR .2..R.ECPY RUCOL..R$EBCS CRRIGHT2.FR
.ECRRIGHT1 INY.RR8EJMP CR...RBECRRIGHT2
CPX RU...RLEBCS CRRIGHT3..SVEINX..S`ELDY
LOCOL..SJEJMP CR..0STECRRIGHT3 LDA W.D1
.8S~EPHA.GS.ELDA W.D1.1.OS.EPHA.]S.ELDA
RUCOL.ES.ESEC.SS.ESBC LOCOL.{S.ECLC..SDE
ADC W.D1..SNESTA W.D1..SXELDA #$00..S.EA
DC W.D1.1..S.ESTA W.D1.1.LS.EJSR .IN.TS.
FPLA..S.FSTA W.D1.1..S.FPLA..S.FSTA W.D1
..T(FLDY LOCOL..T2FLDX RU...T<FJMP CR../
TFFCRUP JSR CR..<TPFJSR SBC..MTZFJSR W.D
CHECK.[TDFBCC CRUP0.HTNFJSR ADC..UTXFJMP
.IN0..T.FCRUP0 JSR .2..T.FCPX LO.. T.FB
EQ CRUP2..T FBCC CRUP2..T.FDEX.BT.FJMP C
R..PT.FCRUP2 TYA.XTHFPHA..TRFJSR LASTIN.
.T.FPLA..T.FTAY..U.FLDX LO...U.FJMP CR..
"U.GCRDOWN JSR CR../U.GJSR ADC..@U.GJSR
W.DCHECK.PU"GBCC CRDOWN0.]U,GJSR SBC..JU
6GJMP .IN0.}U@GCRDOWN0 JSR .2..UJGCPX RU
...UTGBEQ CRDOWN1..U^GINX..UHGJMP CR...U
RGCRDOWN1 TYA.EU|GPHA.QU.GJSR .IN.YU.GPL
A..U.GTAY..U.GLDX RU...U.GJMP CR...V.GW.
DDEC LDA W.D1..VBGSEC."VLGSBC #$01./VVGS
TA W.D1.>V.GLDA W.D1.1.KV.GSBC #$00.ZV.G
STA W.D1.1.BV.GRTS.UV.HCRDEL LDA #"."..V
.HSTA $0277..V.HSTA $0279..V&HLDA #" "..
V0HSTA $0278..V:HLDA #$03.EVDHSTA $C6.OV
NHSTA ...VXHJMP .IN0..WBHW.DCHECK PHA ;C
.1 .. AUSSERHALB..WLHLDA W.D1.1..WVHCMP
W.D2.1.0W.HBCC W.DCHECK2.BW.HBEQ W.DCHEC
K1.QW.HBCS W.DC.R.HW.HW.DCHECK1 LDA W.D1
.UW.HCMP W.D2..W.HBCS W.DC.R..W.HW.DCHEC
K2 LDA W.D1.1..WFHCMP .ST.1..WPHBCC W.DC
.R.LWZHBEQ W.DCHECK3..W.HBCS W.DCHECK4..
W.HW.DCHECK3 LDA W.D1..X.HCMP .ST..X.IBC
C W.DC.R."X.IW.DCHECK4 PLA.*X.ICLC.2X IR
TS.AX*IW.DC.R PLA.IX4ISEC.QX>IRTS.DXHILA
STIN LDA $D3.LXRISEC.ZX\ISBC LOCOL..XFIS
TA .E1..XPILDA W.D1..XZISEC..X.ISBC .E1.
.X.IPHA..X.ILDA W.D1.1.KX.ISBC #$00.SX.I
PHA..X.IJSR SCROLL..X.IPLA..XJISTA REG2.
.XTIPLA..Y.ISTA REG1..Y.ILDA RUCOL."Y.IS
EC.0Y.ISBC LOCOL.<Y.JSTA .E1.HY.JINC .E1
.UY.JLDY #$00.IY$JLASTIN1 JSR RAM.ZY.JLD
A (REG1),Y..Y8JJSR ROM..YBJJSR TESTCHR..
YLJBCC LASTIN2..YVJLDA #$A0.HY`JLASTIN2
CMP #$0D.XYJJBNE LASTIN3..YTJLDA #"."..Y
~JLASTIN3 CMP #$03..Z.JBNE LASTIN4..Z.JI
NC $C7.#Z.JLDA #"C".-Z.JJSR ..9Z.JDEC $C
7.FZ.JLDA #$00.XZDJLASTIN4 JSR ..`ZNJINY
.LZXJCPY .E1.|Z.JBNE LASTIN1..Z.JRTS..Z.
J.IN LDA $D3..Z.KSEC..Z.KSBC LOCOL..Z.KS
TA .E1.CZ.KLDA W.D1.KZ(KSEC.WZ2KSBC .E1.
.Z<KPHA..ZFKLDA W.D1.1..ZPKSBC #$00..{ZK
PHA..{DKJSR .OUT6..{NKPLA.&{XKSTA REG2..
{.KPLA.;{.KSTA REG1.I{.KLDA RUCOL.Q{ KSE
C._{.KSBC LOCOL.K{.KSTA .E1.W{.KINC .E1.
.{HKLDY #$00..{RK.IN1 JSR RAM..{.KLDA (R
EG1),Y..{.KJSR ROM.B{.KJSR TESTCHR.O{.KB
CC .IN2..{.LLDA #$A0..{.L.IN2 CMP #$0D..
{.LBNE .IN3..|"LLDA #"."..|,L.IN3 CMP #$
03.'|6LBNE .IN4.3|@LINC $C7.@|JLLDA #"C"
.J|TLJSR ..V|^LDEC $C7.C|HLLDA #$00.R|RL
.IN4 JSR ..Z||LINY..|.LCPY .E1..|.LBNE .
IN1..|.LRTS..|.L.CR LDY #$00..|.LLDA #$0
D.J|.LSTA (W.D1),Y.W|BLLDA #"."..|LLPHA.
.|VLJMP CRIN..}.L.RS1 JSR W.DDEC..}.LJMP
.IN0..}.L.RS LDY #$00./}.LSTA (W.D1),Y.
>}.MJSR W.DINC.O}.MJSR W.DCHECK.\}.MBCS
.RS1.H}&MINC $C7.U}0MLDA #"C".}:MJSR ..
.}DMDEC $C7..}NMJMP .RS1.3..}XM.FIRE JSR
ANALYZE..}BMCMP #$FF.H}LMBEQ ....}VM.FI
RE1 JMP .IN1..}.M.. JSR CR...}.MJMP SCR.
..~.M. CLC..~.MJMP $FFF0."~.MSETST LDA .
ST./~.MSTA W.D1.=~.MLDA .ST.1.L~FMSTA W.
D1.1.T~PMRTS._~ZM.2 SEC.M~.MJMP $FFF0.S~
.M;..~.MSETPW LDA #$00..~.NSTA .ST..~.NS
TA WX..~.NLDA #$03..~ NSTA WY.B~*NLDA #$
13.M~4NSTA WH.Z~>NLDA #$25..~HNSTA WW..~
RNLDA #.$0200..\NLDY #.$0200..FNJMP WI
NDOW.DPNCHARACTERS .BYT 128,128,128,128
,128,128,128.QZN.BYT 255,253,253,1,253,
1,253,1,253,0,0,0...N.BYT 0,0,0,255,255
,191,160,175,168,168.H.N.BYT 175,160,19
1,251,11,232,43,40,235,8...N.BYT 251,25
5,255,0,255,0,255,0,255....N.BYT 1,1,1,1
,1,1,1,255,128,128,128,128,128.K..N.BYT
128,128,128,1,1,1,1,1,1,1,1,255,255.U..N
.BYT 24,60,126,24,24,24,255,255,24,24...
.N.BYT 24,126,60,24,255,1,1,1,1,1,1,1,25
5.F.JN.BYT 128,128,128,128,128,128,128.X
.TNSETRU LDX RU.....NLDY LOCOL....NJMP .
....N.WID LDA RUCOL....NSEC....OSBC LOCO
L.%..OSTA .E1.1..OINC .E1.9.$ORTS.K..OAD
C. JSR .WID.X.8OLDA W.D1.`.BOCLC.L.LOADC
.E1.Y.VOSTA W.D1...`OLDA W.D1.1...JOADC
#$00...TOSTA W.D1.1...~ORTS....OSBC. JS
R .WID.K..OLDA W.D1.S..OSEC....OSBC .E1.
...OSTA W.D1....OLDA W.D1.1...DOSBC #$00
...NOSTA W.D1.1...XORTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL