KERNAL.SRC
FILE INFORMATION
FILENAME(S): KERNAL.SRC
FILE TYPE(S): PRG
FILE SIZE: 24.2K
FIRST SEEN: 2025-11-02 17:01:55
APPEARS ON: 2 disk(s)
FILE HASH
071ed613cc2851c94b331ec84804b8f680d2ac4275981be87ca91d9f215d5938
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC04 | KERNAL.SRC | PRG | Treasure Chest - Spook | 15 | 2 | DOWNLOAD FILE |
| MAGIC DISK 64 | KERNAL.SRC | PRG | hedning, German ebay | 15 | 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: 37 44 30 30 00 20 08 78 00 2E 4F 50 54 20 4F 4F |7D00. .x..OPT OO|
00000020: 00 36 08 82 00 3B 20 4B 45 52 4E 41 4C AB 52 4F |.6...; KERNAL.RO|
00000030: 55 54 49 4E 45 4E 00 44 08 8C 00 99 20 B2 20 24 |UTINEN.D.... . $|
00000040: 46 46 44 32 00 52 08 96 00 E9 20 B2 20 24 46 46 |FFD2.R.... . $FF|
00000050: 46 30 00 65 08 A0 00 53 45 54 4E 41 4D 20 B2 20 |F0.e...SETNAM . |
00000060: 24 46 46 42 44 00 78 08 AA 00 53 45 54 46 4C 53 |$FFBD.x...SETFLS|
00000070: 20 B2 20 24 46 46 42 41 00 86 08 B4 00 9F 20 B2 | . $FFBA...... .|
00000080: 20 24 46 46 43 30 00 94 08 BE 00 A0 20 B2 20 24 | $FFC0...... . $|
00000090: 46 46 43 33 00 A6 08 C8 00 43 48 4B 49 4E 20 B2 |FFC3.....CHKIN .|
000000A0: 20 24 46 46 43 36 00 B9 08 D2 00 43 48 4B 4F 55 | $FFC6.....CHKOU|
000000B0: 54 20 B2 20 24 46 46 43 39 00 C9 08 DC 00 9C 43 |T . $FFC9......C|
000000C0: 48 20 B2 20 24 46 46 43 43 00 D7 08 E6 00 A1 20 |H . $FFCC...... |
000000D0: B2 20 24 46 46 45 34 00 E7 08 F0 00 42 41 BF 20 |. $FFE4.....BA. |
000000E0: B2 20 24 46 46 43 46 00 F8 08 FA 00 EB 50 52 54 |. $FFCF......PRT|
000000F0: 20 B2 20 24 42 44 43 44 00 10 09 04 01 3B 20 5A | . $BDCD.....; Z|
00000100: 45 52 4F 50 41 47 45 AB 41 44 52 45 53 53 45 4E |EROPAGE.ADRESSEN|
00000110: 00 1F 09 0E 01 46 49 52 45 20 B2 20 24 30 33 00 |.....FIRE . $03.|
00000120: 2B 09 18 01 EB 20 B2 20 24 46 37 00 39 09 22 01 |+.... . $F7.9.".|
00000130: 43 4F 4C 20 B2 20 24 46 38 00 48 09 2C 01 52 45 |COL . $F8.H.,.RE|
00000140: 47 31 20 B2 20 24 46 42 00 57 09 36 01 52 45 47 |G1 . $FB.W.6.REG|
00000150: 32 20 B2 20 24 46 43 00 66 09 40 01 52 45 47 33 |2 . $FC.f.@.REG3|
00000160: 20 B2 20 24 46 44 00 75 09 4A 01 52 45 47 34 20 | . $FD.u.J.REG4 |
00000170: B2 20 24 46 45 00 84 09 54 01 57 B0 44 31 20 B2 |. $FE...T.W.D1 .|
00000180: 20 24 31 34 00 93 09 5E 01 57 B0 44 32 20 B2 20 | $14...^.W.D2 . |
00000190: 24 30 35 00 A1 09 68 01 B8 45 31 20 B2 20 24 30 |$05...h..E1 . $0|
000001A0: 32 00 AF 09 72 01 B8 45 32 20 B2 20 24 39 36 00 |2...r..E2 . $96.|
000001B0: BD 09 7C 01 B8 45 33 20 B2 20 24 42 36 00 CB 09 |..|..E3 . $B6...|
000001C0: 86 01 B8 45 34 20 B2 20 24 42 44 00 DB 09 90 01 |...E4 . $BD.....|
000001D0: B8 45 35 20 B2 20 24 30 33 30 45 00 EC 09 9A 01 |.E5 . $030E.....|
000001E0: 4C 41 53 54 20 B2 20 24 30 32 35 37 00 FA 09 A4 |LAST . $0257....|
000001F0: 01 82 20 B2 20 24 30 32 35 38 00 0D 0A AE 01 42 |.. . $0258.....B|
00000200: 55 46 42 45 47 20 B2 20 24 30 33 38 30 00 1E 0A |UFBEG . $0380...|
00000210: B8 01 42 55 46 80 20 B2 20 24 30 33 46 32 00 2D |..BUF. . $03F2.-|
00000220: 0A C2 01 57 EB 20 B2 20 24 30 33 46 43 00 3E 0A |...W. . $03FC.>.|
00000230: CC 01 57 43 4F 4C 20 B2 20 24 30 33 46 44 00 50 |..WCOL . $03FD.P|
00000240: 0A D6 01 57 48 49 47 48 20 B2 20 24 30 33 46 45 |...WHIGH . $03FE|
00000250: 00 63 0A E0 01 57 57 49 44 54 48 20 B2 20 24 30 |.c...WWIDTH . $0|
00000260: 33 46 46 00 75 0A EA 01 4C 4F 43 4F 4C 20 B2 20 |3FF.u...LOCOL . |
00000270: 24 30 33 46 37 00 85 0A F4 01 4C 4F EB 20 B2 20 |$03F7.....LO. . |
00000280: 24 30 33 46 38 00 97 0A FE 01 52 55 43 4F 4C 20 |$03F8.....RUCOL |
00000290: B2 20 24 30 33 46 39 00 A7 0A 08 02 52 55 EB 20 |. $03F9.....RU. |
000002A0: B2 20 24 30 33 46 41 00 B7 0A 12 02 57 B0 53 20 |. $03FA.....W.S |
000002B0: B2 20 24 30 33 46 42 00 C6 0A 1C 02 57 59 20 B2 |. $03FB.....WY .|
000002C0: 20 24 30 33 46 33 00 D5 0A 26 02 57 58 20 B2 20 | $03F3...&.WX . |
000002D0: 24 30 33 46 34 00 E4 0A 30 02 57 48 20 B2 20 24 |$03F4...0.WH . $|
000002E0: 30 33 46 35 00 F3 0A 3A 02 57 57 20 B2 20 24 30 |03F5...:.WW . $0|
000002F0: 33 46 36 00 03 0B 44 02 4D 41 58 20 B2 20 24 30 |3F6...D.MAX . $0|
00000300: 33 30 43 00 12 0B 4E 02 94 44 20 B2 20 24 30 33 |30C...N..D . $03|
00000310: 30 44 00 27 0B 58 02 53 54 41 52 54 56 45 43 20 |0D.'.X.STARTVEC |
00000320: B2 20 24 30 33 31 31 00 3E 0B 62 02 3B 20 53 91 |. $0311.>.b.; S.|
00000330: 53 54 49 47 45 20 41 44 52 45 53 53 45 4E 00 4E |STIGE ADRESSEN.N|
00000340: 0B 6C 02 56 49 43 20 B2 20 24 44 30 30 30 00 5F |.l.VIC . $D000._|
00000350: 0B 76 02 43 49 41 31 20 B2 20 24 44 43 30 30 00 |.v.CIA1 . $DC00.|
00000360: 74 0B 80 02 3B 20 55 4E 54 45 52 50 52 4F 47 52 |t...; UNTERPROGR|
00000370: 41 4D 4D 45 00 8B 0B 8A 02 DC 4F 55 54 20 50 48 |AMME......OUT PH|
00000380: 41 20 3B 20 38 20 42 49 54 20 41 00 94 0B 94 02 |A ; 8 BIT A.....|
00000390: 4C 53 52 20 00 9D 0B 9E 02 4C 53 52 20 00 A6 0B |LSR .....LSR ...|
000003A0: A8 02 4C 53 52 20 00 AF 0B B2 02 4C 53 52 20 00 |..LSR .....LSR .|
000003B0: BA 0B BC 02 AF 20 23 24 30 46 00 C3 0B C6 02 54 |..... #$0F.....T|
000003C0: 41 59 20 00 D4 0B D0 02 4C 44 41 20 DC 42 59 54 |AY .....LDA .BYT|
000003D0: 45 53 2C 59 00 DE 0B DA 02 4A 53 52 20 99 00 E7 |ES,Y.....JSR ...|
000003E0: 0B E4 02 50 4C 41 20 00 F2 0B EE 02 AF 20 23 24 |...PLA ...... #$|
000003F0: 30 46 00 FB 0B F8 02 54 41 59 20 00 0C 0C 02 03 |0F.....TAY .....|
00000400: 4C 44 41 20 DC 42 59 54 45 53 2C 59 00 16 0C 0C |LDA .BYTES,Y....|
00000410: 03 4A 4D 50 20 99 00 37 0C 16 03 DC 42 59 54 45 |.JMP ..7....BYTE|
00000420: 53 20 2E C6 20 22 30 31 32 33 34 35 36 37 38 39 |S .. "0123456789|
00000430: 41 42 43 44 45 46 22 00 53 0C 20 03 57 B0 44 4F |ABCDEF".S. .W.DO|
00000440: 55 54 20 50 48 41 20 3B 20 31 36 20 42 49 54 20 |UT PHA ; 16 BIT |
00000450: 41 AD 58 00 5C 0C 2A 03 54 58 41 20 00 69 0C 34 |A.X.\.*.TXA .i.4|
00000460: 03 4A 53 52 20 DC 4F 55 54 00 72 0C 3E 03 50 4C |.JSR .OUT.r.>.PL|
00000470: 41 20 00 7F 0C 48 03 4A 4D 50 20 DC 4F 55 54 00 |A ...H.JMP .OUT.|
00000480: AF 0C 52 03 EC 4F 55 54 20 53 54 41 20 57 B0 44 |..R..OUT STA W.D|
00000490: 31 20 3B 20 EC 20 41 55 53 47 45 42 45 4E 2C 20 |1 ; . AUSGEBEN, |
000004A0: 80 45 B2 30 2C 20 50 4F B5 45 52 20 41 AD 59 00 |.E.0, PO.ER A.Y.|
000004B0: BE 0C 5C 03 53 54 59 20 57 B0 44 31 AA 31 00 CB |..\.STY W.D1.1..|
000004C0: 0C 66 03 4C 44 59 20 23 24 30 30 00 E4 0C 70 03 |.f.LDY #$00...p.|
000004D0: 54 45 58 A4 55 54 31 20 4C 44 41 20 28 57 B0 44 |TEX.UT1 LDA (W.D|
000004E0: 31 29 2C 59 00 F4 0C 7A 03 42 45 51 20 54 45 58 |1),Y...z.BEQ TEX|
000004F0: A4 55 54 32 00 01 0D 84 03 43 4D 50 20 23 24 30 |.UT2.....CMP #$0|
00000500: 31 00 0F 0D 8E 03 42 45 51 20 EC 4F 55 54 33 00 |1.....BEQ .OUT3.|
00000510: 1C 0D 98 03 43 4D 50 20 23 24 30 32 00 2A 0D A2 |....CMP #$02.*..|
00000520: 03 42 45 51 20 EC 4F 55 54 36 00 34 0D AC 03 4A |.BEQ .OUT6.4...J|
00000530: 53 52 20 99 00 49 0D B6 03 EC 4F 55 54 34 20 4A |SR ..I....OUT4 J|
00000540: 53 52 20 57 B0 44 49 4E 43 00 59 0D C0 03 4A 4D |SR W.DINC.Y...JM|
00000550: 50 20 54 45 58 A4 55 54 31 00 6A 0D CA 03 54 45 |P TEX.UT1.j...TE|
00000560: 58 A4 55 54 32 20 52 54 53 20 00 7F 0D D4 03 EC |X.UT2 RTS ......|
00000570: 4F 55 54 36 20 4A 53 52 20 57 B0 44 49 4E 43 00 |OUT6 JSR W.DINC.|
00000580: 90 0D DE 03 4C 44 41 20 28 57 B0 44 31 29 2C 59 |....LDA (W.D1),Y|
00000590: 00 98 0D E8 03 53 45 43 00 A5 0D F2 03 53 42 43 |.....SEC.....SBC|
000005A0: 20 23 22 1D 22 00 B2 0D FC 03 2E 42 59 54 20 24 | #"."......BYT $|
000005B0: 32 43 00 C5 0D 06 04 EC 4F 55 54 33 20 4C 44 41 |2C......OUT3 LDA|
000005C0: 20 23 24 30 30 00 D1 0D 10 04 53 54 41 20 B8 45 | #$00.....STA .E|
000005D0: 34 00 E0 0D 1A 04 4A 53 52 20 57 B0 44 49 4E 43 |4.....JSR W.DINC|
000005E0: 00 F1 0D 24 04 4C 44 41 20 28 57 B0 44 31 29 2C |...$.LDA (W.D1),|
000005F0: 59 00 F9 0D 2E 04 54 41 59 00 06 0E 38 04 4C 44 |Y.....TAY...8.LD|
00000600: 41 20 23 22 1D 22 00 0E 0E 42 04 43 4C 43 00 1A |A #"."...B.CLC..|
00000610: 0E 4C 04 41 44 43 20 B8 45 34 00 2A 0E 56 04 EC |.L.ADC .E4.*.V..|
00000620: 4F 55 54 35 20 4A 53 52 20 99 00 32 0E 60 04 44 |OUT5 JSR ..2.`.D|
00000630: 45 59 00 40 0E 6A 04 42 4E 45 20 EC 4F 55 54 35 |EY.@.j.BNE .OUT5|
00000640: 00 4E 0E 74 04 42 45 51 20 EC 4F 55 54 34 00 7C |.N.t.BEQ .OUT4.||
00000650: 0E 7E 04 41 44 44 49 54 49 91 20 43 4C 43 20 3B |.~.ADDITI. CLC ;|
00000660: 20 41 AD 59 20 AA 20 52 45 47 31 AD 52 45 47 32 | A.Y . REG1.REG2|
00000670: 20 B2 20 52 45 47 33 AD 52 45 47 34 00 89 0E 88 | . REG3.REG4....|
00000680: 04 41 44 43 20 52 45 47 31 00 96 0E 92 04 53 54 |.ADC REG1.....ST|
00000690: 41 20 52 45 47 33 00 9F 0E 9C 04 54 59 41 20 00 |A REG3.....TYA .|
000006A0: AC 0E A6 04 41 44 43 20 52 45 47 32 00 B9 0E B0 |....ADC REG2....|
000006B0: 04 53 54 41 20 52 45 47 34 00 C2 0E BA 04 52 54 |.STA REG4.....RT|
000006C0: 53 20 00 E2 0E C4 04 E7 20 50 48 41 20 3B 20 41 |S ...... PHA ; A|
000006D0: AD 59 20 AC 20 58 20 B2 20 52 45 47 33 AD 52 45 |.Y . X . REG3.RE|
000006E0: 47 34 00 EF 0E CE 04 4C 44 41 20 23 24 30 30 00 |G4.....LDA #$00.|
000006F0: FC 0E D8 04 53 54 41 20 52 45 47 31 00 09 0F E2 |....STA REG1....|
00000700: 04 53 54 41 20 52 45 47 32 00 16 0F EC 04 53 54 |.STA REG2.....ST|
00000710: 41 20 52 45 47 33 00 23 0F F6 04 53 54 41 20 52 |A REG3.#...STA R|
00000720: 45 47 34 00 2C 0F 00 05 50 4C 41 20 00 39 0F 0A |EG4.,...PLA .9..|
00000730: 05 43 50 58 20 23 24 30 30 00 44 0F 14 05 42 45 |.CPX #$00.D...BE|
00000740: 51 20 E7 32 00 50 0F 1E 05 53 54 41 20 B8 45 31 |Q .2.P...STA .E1|
00000750: 00 5C 0F 28 05 53 54 59 20 B8 45 32 00 6F 0F 32 |.\.(.STY .E2.o.2|
00000760: 05 E7 31 20 4A 53 52 20 41 44 44 49 54 49 91 00 |..1 JSR ADDITI..|
00000770: 7E 0F 3C 05 4A 53 52 20 52 33 49 4E 52 31 00 8D |~.<.JSR R3INR1..|
00000780: 0F 46 05 4A 53 52 20 52 34 49 4E 52 32 00 99 0F |.F.JSR R4INR2...|
00000790: 50 05 4C 44 41 20 B8 45 31 00 A5 0F 5A 05 4C 44 |P.LDA .E1...Z.LD|
000007A0: 59 20 B8 45 32 00 AE 0F 64 05 44 45 58 20 00 B9 |Y .E2...d.DEX ..|
000007B0: 0F 6E 05 42 4E 45 20 E7 31 00 C4 0F 78 05 E7 32 |.n.BNE .1...x..2|
000007C0: 20 52 54 53 00 E2 0F 82 05 52 33 49 4E 52 31 20 | RTS.....R3INR1 |
000007D0: 50 48 41 20 3B 20 52 45 47 33 20 49 4E 20 52 45 |PHA ; REG3 IN RE|
000007E0: 47 31 00 EF 0F 8C 05 4C 44 41 20 52 45 47 33 00 |G1.....LDA REG3.|
000007F0: FC 0F 96 05 53 54 41 20 52 45 47 31 00 05 10 A0 |....STA REG1....|
00000800: 05 50 4C 41 20 00 0E 10 AA 05 52 54 53 20 00 2C |.PLA .....RTS .,|
00000810: 10 B4 05 52 34 49 4E 52 32 20 50 48 41 20 3B 20 |...R4INR2 PHA ; |
00000820: 52 45 47 34 20 49 4E 20 52 45 47 32 00 39 10 BE |REG4 IN REG2.9..|
00000830: 05 4C 44 41 20 52 45 47 34 00 46 10 C8 05 53 54 |.LDA REG4.F...ST|
00000840: 41 20 52 45 47 32 00 4F 10 D2 05 50 4C 41 20 00 |A REG2.O...PLA .|
00000850: 58 10 DC 05 52 54 53 20 00 76 10 E6 05 52 31 49 |X...RTS .v...R1I|
00000860: 4E 52 33 20 50 48 41 20 3B 20 52 45 47 31 20 49 |NR3 PHA ; REG1 I|
00000870: 4E 20 52 45 47 33 00 83 10 F0 05 4C 44 41 20 52 |N REG3.....LDA R|
00000880: 45 47 31 00 90 10 FA 05 53 54 41 20 52 45 47 33 |EG1.....STA REG3|
00000890: 00 99 10 04 06 50 4C 41 20 00 A2 10 0E 06 52 54 |.....PLA .....RT|
000008A0: 53 20 00 C0 10 18 06 52 32 49 4E 52 34 20 50 48 |S .....R2INR4 PH|
000008B0: 41 20 3B 20 52 45 47 32 20 49 4E 20 52 45 47 34 |A ; REG2 IN REG4|
000008C0: 00 CD 10 22 06 4C 44 41 20 52 45 47 32 00 DA 10 |...".LDA REG2...|
000008D0: 2C 06 53 54 41 20 52 45 47 34 00 E3 10 36 06 50 |,.STA REG4...6.P|
000008E0: 4C 41 20 00 EC 10 40 06 52 54 53 20 00 2A 11 4A |LA ...@.RTS .*.J|
000008F0: 06 44 49 56 49 44 45 20 53 54 41 20 52 45 47 33 |.DIVIDE STA REG3|
00000900: 20 3B 20 41 AD 59 20 AD 20 52 45 47 31 AD 52 45 | ; A.Y . REG1.RE|
00000910: 47 32 20 B2 20 52 45 47 33 AD 52 45 47 34 2C 20 |G2 . REG3.REG4, |
00000920: 52 45 53 54 20 B8 45 31 AD 32 00 37 11 54 06 53 |REST .E1.2.7.T.S|
00000930: 54 59 20 52 45 47 34 00 44 11 5E 06 4C 44 58 20 |TY REG4.D.^.LDX |
00000940: 23 24 30 30 00 50 11 68 06 53 54 58 20 B8 45 31 |#$00.P.h.STX .E1|
00000950: 00 5C 11 72 06 53 54 58 20 B8 45 32 00 69 11 7C |.\.r.STX .E2.i.||
00000960: 06 4C 44 59 20 23 24 31 30 00 7E 11 86 06 44 49 |.LDY #$10.~...DI|
00000970: 56 49 44 45 31 20 41 53 4C 20 52 45 47 33 00 8B |VIDE1 ASL REG3..|
00000980: 11 90 06 52 4F 4C 20 52 45 47 34 00 97 11 9A 06 |...ROL REG4.....|
00000990: 52 4F 4C 20 B8 45 31 00 A3 11 A4 06 52 4F 4C 20 |ROL .E1.....ROL |
000009A0: B8 45 32 00 AC 11 AE 06 53 45 43 20 00 B8 11 B8 |.E2.....SEC ....|
000009B0: 06 4C 44 41 20 B8 45 31 00 C5 11 C2 06 53 42 43 |.LDA .E1.....SBC|
000009C0: 20 52 45 47 31 00 CE 11 CC 06 54 41 58 20 00 DA | REG1.....TAX ..|
000009D0: 11 D6 06 4C 44 41 20 B8 45 32 00 E7 11 E0 06 53 |...LDA .E2.....S|
000009E0: 42 43 20 52 45 47 32 00 F7 11 EA 06 42 43 43 20 |BC REG2.....BCC |
000009F0: 44 49 56 49 44 45 32 00 03 12 F4 06 53 54 58 20 |DIVIDE2.....STX |
00000A00: B8 45 31 00 0F 12 FE 06 53 54 41 20 B8 45 32 00 |.E1.....STA .E2.|
00000A10: 1C 12 08 07 49 4E 43 20 52 45 47 33 00 2D 12 12 |....INC REG3.-..|
00000A20: 07 44 49 56 49 44 45 32 20 44 45 59 20 00 3D 12 |.DIVIDE2 DEY .=.|
00000A30: 1C 07 42 4E 45 20 44 49 56 49 44 45 31 00 46 12 |..BNE DIVIDE1.F.|
00000A40: 26 07 52 54 53 20 00 68 12 30 07 42 49 4E 4F 55 |&.RTS .h.0.BINOU|
00000A50: 54 20 4C 44 59 20 23 24 30 38 20 3B 20 42 59 54 |T LDY #$08 ; BYT|
00000A60: 45 20 42 49 4E 41 45 52 00 79 12 3A 07 42 49 4E |E BINAER.y.:.BIN|
00000A70: 4F 55 54 31 20 41 53 4C 20 00 85 12 44 07 53 54 |OUT1 ASL ...D.ST|
00000A80: 41 20 B8 45 31 00 95 12 4E 07 42 43 43 20 42 49 |A .E1...N.BCC BI|
00000A90: 4E 4F 55 54 32 00 A2 12 58 07 4C 44 41 20 23 22 |NOUT2...X.LDA #"|
00000AA0: 31 22 00 B2 12 62 07 42 4E 45 20 42 49 4E 4F 55 |1"...b.BNE BINOU|
00000AB0: 54 33 00 C7 12 6C 07 42 49 4E 4F 55 54 32 20 4C |T3...l.BINOUT2 L|
00000AC0: 44 41 20 23 22 30 22 00 DD 12 76 07 42 49 4E 4F |DA #"0"...v.BINO|
00000AD0: 55 54 33 20 4A 53 52 20 24 46 46 44 32 00 E9 12 |UT3 JSR $FFD2...|
00000AE0: 80 07 4C 44 41 20 B8 45 31 00 F2 12 8A 07 44 45 |..LDA .E1.....DE|
00000AF0: 59 20 00 02 13 94 07 42 4E 45 20 42 49 4E 4F 55 |Y .....BNE BINOU|
00000B00: 54 31 00 0B 13 9E 07 52 54 53 20 00 3D 13 A8 07 |T1.....RTS .=...|
00000B10: 53 43 52 B9 20 53 54 59 20 B8 45 33 20 3B 20 58 |SCR. STY .E3 ; X|
00000B20: B2 5A 45 49 4C 45 2C 20 59 B2 53 50 41 4C 54 45 |.ZEILE, Y.SPALTE|
00000B30: 2C 20 45 52 47 20 49 4E 20 52 33 AD 34 00 46 13 |, ERG IN R3.4.F.|
00000B40: B2 07 54 58 41 20 00 53 13 BC 07 4C 44 59 20 23 |..TXA .S...LDY #|
00000B50: 24 30 30 00 60 13 C6 07 53 54 59 20 52 45 47 32 |$00.`...STY REG2|
00000B60: 00 6D 13 D0 07 4C 44 58 20 23 24 32 38 00 7A 13 |.m...LDX #$28.z.|
00000B70: DA 07 53 54 41 20 52 45 47 31 00 84 13 E4 07 4A |..STA REG1.....J|
00000B80: 53 52 20 E7 00 93 13 EE 07 4A 53 52 20 52 33 49 |SR ......JSR R3I|
00000B90: 4E 52 31 00 A2 13 F8 07 4A 53 52 20 52 34 49 4E |NR1.....JSR R4IN|
00000BA0: 52 32 00 AE 13 02 08 4C 44 41 20 B8 45 33 00 BB |R2.....LDA .E3..|
00000BB0: 13 0C 08 4C 44 59 20 23 24 30 30 00 CB 13 16 08 |...LDY #$00.....|
00000BC0: 4A 53 52 20 41 44 44 49 54 49 91 00 DA 13 20 08 |JSR ADDITI.... .|
00000BD0: 4A 53 52 20 52 33 49 4E 52 31 00 E9 13 2A 08 4A |JSR R3INR1...*.J|
00000BE0: 53 52 20 52 34 49 4E 52 32 00 FB 13 34 08 4C 44 |SR R4INR2...4.LD|
00000BF0: 41 20 23 B3 28 24 30 34 30 30 29 00 0D 14 3E 08 |A #.($0400)...>.|
00000C00: 4C 44 59 20 23 B1 28 24 30 34 30 30 29 00 1D 14 |LDY #.($0400)...|
00000C10: 48 08 4A 4D 50 20 41 44 44 49 54 49 91 00 51 14 |H.JMP ADDITI..Q.|
00000C20: 52 08 57 F6 20 43 4C 43 20 3B 58 AD 59 20 5A 45 |R.W. CLC ;X.Y ZE|
00000C30: 49 4C 45 AD 53 50 41 4C 54 45 2C 20 52 45 47 31 |ILE.SPALTE, REG1|
00000C40: AD 32 20 B2 20 42 52 45 49 54 45 AD 48 4F 45 48 |.2 . BREITE.HOEH|
00000C50: 45 00 5D 14 5C 08 53 54 58 20 B8 45 31 00 69 14 |E.].\.STX .E1.i.|
00000C60: 66 08 53 54 59 20 B8 45 32 00 73 14 70 08 4A 53 |f.STY .E2.s.p.JS|
00000C70: 52 20 E9 00 80 14 7A 08 4C 44 41 20 23 24 30 30 |R ....z.LDA #$00|
00000C80: 00 8C 14 84 08 53 54 41 20 57 B0 53 00 99 14 8E |.....STA W.S....|
00000C90: 08 49 4E 43 20 52 45 47 32 00 AC 14 98 08 57 F6 |.INC REG2.....W.|
00000CA0: 31 20 4A 53 52 20 52 31 49 4E 52 33 00 D3 14 A2 |1 JSR R1INR3....|
00000CB0: 08 44 45 43 20 52 45 47 33 20 3B 20 44 41 20 47 |.DEC REG3 ; DA G|
00000CC0: 41 44 A1 20 32 20 5A 45 49 43 48 45 4E 20 42 52 |AD. 2 ZEICHEN BR|
00000CD0: 45 49 54 00 E0 14 AC 08 4C 44 41 20 23 22 B0 22 |EIT.....LDA #"."|
00000CE0: 00 EA 14 B6 08 4A 53 52 20 99 00 F7 14 C0 08 4C |.....JSR ......L|
00000CF0: 44 41 20 23 22 B1 22 00 01 15 CA 08 4A 53 52 20 |DA #".".....JSR |
00000D00: 99 00 0E 15 D4 08 4C 44 41 20 23 22 B2 22 00 1C |......LDA #"."..|
00000D10: 15 DE 08 57 F6 32 20 4A 53 52 20 99 00 29 15 E8 |...W.2 JSR ..)..|
00000D20: 08 44 45 43 20 52 45 47 33 00 35 15 F2 08 42 4E |.DEC REG3.5...BN|
00000D30: 45 20 57 F6 32 00 42 15 FC 08 4C 44 41 20 23 22 |E W.2.B...LDA #"|
00000D40: AE 22 00 4C 15 06 09 4A 53 52 20 99 00 5C 15 10 |.".L...JSR ..\..|
00000D50: 09 57 F6 33 20 4C 44 58 20 B8 45 31 00 68 15 1A |.W.3 LDX .E1.h..|
00000D60: 09 4C 44 59 20 B8 45 32 00 71 15 24 09 49 4E 58 |.LDY .E2.q.$.INX|
00000D70: 20 00 7E 15 2E 09 44 45 43 20 52 45 47 32 00 8A | .~...DEC REG2..|
00000D80: 15 38 09 42 45 51 20 57 F6 35 00 96 15 42 09 53 |.8.BEQ W.5...B.S|
00000D90: 54 58 20 B8 45 31 00 9F 15 4C 09 43 4C 43 20 00 |TX .E1...L.CLC .|
00000DA0: A9 15 56 09 4A 53 52 20 E9 00 B6 15 60 09 4C 44 |..V.JSR ....`.LD|
00000DB0: 41 20 23 22 B4 22 00 C0 15 6A 09 4A 53 52 20 99 |A #"."...j.JSR .|
00000DC0: 00 CF 15 74 09 4A 53 52 20 52 31 49 4E 52 33 00 |...t.JSR R1INR3.|
00000DD0: DC 15 7E 09 4C 44 41 20 23 22 20 22 00 EA 15 88 |..~.LDA #" "....|
00000DE0: 09 57 F6 34 20 4A 53 52 20 99 00 F7 15 92 09 44 |.W.4 JSR ......D|
00000DF0: 45 43 20 52 45 47 33 00 03 16 9C 09 42 4E 45 20 |EC REG3.....BNE |
00000E00: 57 F6 34 00 10 16 A6 09 4C 44 41 20 23 22 B5 22 |W.4.....LDA #"."|
00000E10: 00 1A 16 B0 09 4A 53 52 20 99 00 26 16 BA 09 4A |.....JSR ..&...J|
00000E20: 4D 50 20 57 F6 33 00 36 16 C4 09 57 F6 35 20 4C |MP W.3.6...W.5 L|
00000E30: 44 58 20 B8 45 31 00 42 16 CE 09 4C 44 59 20 B8 |DX .E1.B...LDY .|
00000E40: 45 32 00 4B 16 D8 09 49 4E 58 20 00 54 16 E2 09 |E2.K...INX .T...|
00000E50: 43 4C 43 20 00 5E 16 EC 09 4A 53 52 20 E9 00 6B |CLC .^...JSR ..k|
00000E60: 16 F6 09 4C 44 41 20 23 22 AD 22 00 75 16 00 0A |...LDA #".".u...|
00000E70: 4A 53 52 20 99 00 84 16 0A 0A 4A 53 52 20 52 31 |JSR ......JSR R1|
00000E80: 49 4E 52 33 00 91 16 14 0A 4C 44 41 20 23 22 A4 |INR3.....LDA #".|
00000E90: 22 00 9F 16 1E 0A 57 F6 36 20 4A 53 52 20 99 00 |".....W.6 JSR ..|
00000EA0: AC 16 28 0A 44 45 43 20 52 45 47 33 00 B8 16 32 |..(.DEC REG3...2|
00000EB0: 0A 42 4E 45 20 57 F6 36 00 C5 16 3C 0A 4C 44 41 |.BNE W.6...<.LDA|
00000EC0: 20 23 22 B3 22 00 CF 16 46 0A 4A 4D 50 20 99 00 | #"."...F.JMP ..|
00000ED0: DC 16 50 0A 52 41 4D 20 50 48 41 20 00 E9 16 5A |..P.RAM PHA ...Z|
00000EE0: 0A 4C 44 41 20 23 24 33 34 00 F2 16 64 0A 53 45 |.LDA #$34...d.SE|
00000EF0: 49 20 00 FE 16 6E 0A 53 54 41 20 24 30 31 00 07 |I ...n.STA $01..|
00000F00: 17 78 0A 50 4C 41 20 00 10 17 82 0A 52 54 53 20 |.x.PLA .....RTS |
00000F10: 00 1D 17 8C 0A 52 4F 4D 20 50 48 41 20 00 2A 17 |.....ROM PHA .*.|
00000F20: 96 0A 4C 44 41 20 23 24 33 37 00 36 17 A0 0A 53 |..LDA #$37.6...S|
00000F30: 54 41 20 24 30 31 00 3F 17 AA 0A 43 4C 49 20 00 |TA $01.?...CLI .|
00000F40: 48 17 B4 0A 50 4C 41 20 00 51 17 BE 0A 52 54 53 |H...PLA .Q...RTS|
00000F50: 20 00 75 17 C8 0A 53 43 52 94 20 4A 53 52 20 52 | .u...SCR. JSR R|
00000F60: 41 4D 20 3B 20 53 43 52 45 45 4E 20 53 50 45 49 |AM ; SCREEN SPEI|
00000F70: 43 48 45 52 4E 00 80 17 D2 0A 4C 44 59 20 94 44 |CHERN.....LDY .D|
00000F80: 00 92 17 DC 0A 4C 44 41 20 48 49 42 59 54 45 53 |.....LDA HIBYTES|
00000F90: 2C 59 00 A1 17 E6 0A 53 54 41 20 57 B0 44 31 AA |,Y.....STA W.D1.|
00000FA0: 31 00 B1 17 F0 0A 4C 44 41 20 23 B1 24 30 33 46 |1.....LDA #.$03F|
00000FB0: 36 00 C0 17 FA 0A 53 54 41 20 57 B0 44 32 AA 31 |6.....STA W.D2.1|
00000FC0: 00 CD 17 04 0B 4C 44 41 20 23 24 30 30 00 DA 17 |.....LDA #$00...|
00000FD0: 0E 0B 53 54 41 20 57 B0 44 31 00 EA 17 18 0B 4C |..STA W.D1.....L|
00000FE0: 44 41 20 23 B3 24 30 33 46 36 00 F7 17 22 0B 53 |DA #.$03F6...".S|
00000FF0: 54 41 20 57 B0 44 32 00 0C 18 2C 0B 53 43 52 94 |TA W.D2...,.SCR.|
00001000: 30 20 4C 44 41 20 23 B3 31 30 31 31 00 19 18 36 |0 LDA #.1011...6|
00001010: 0B 53 54 41 20 52 45 47 31 00 28 18 40 0B 4C 44 |.STA REG1.(.@.LD|
00001020: 41 20 23 B1 31 30 31 31 00 35 18 4A 0B 53 54 41 |A #.1011.5.J.STA|
00001030: 20 52 45 47 32 00 42 18 54 0B 4C 44 59 20 23 24 | REG2.B.T.LDY #$|
00001040: 30 30 00 59 18 5E 0B 53 43 52 94 31 20 4C 44 41 |00.Y.^.SCR.1 LDA|
00001050: 20 28 57 B0 44 32 29 2C 59 00 6A 18 68 0B 53 54 | (W.D2),Y.j.h.ST|
00001060: 41 20 28 57 B0 44 31 29 2C 59 00 7A 18 72 0B 4A |A (W.D1),Y.z.r.J|
00001070: 53 52 20 57 B0 44 32 49 4E 43 00 89 18 7C 0B 4A |SR W.D2INC...|.J|
00001080: 53 52 20 57 B0 44 49 4E 43 00 96 18 86 0B 4C 44 |SR W.DINC.....LD|
00001090: 41 20 52 45 47 31 00 9F 18 90 0B 53 45 43 20 00 |A REG1.....SEC .|
000010A0: AC 18 9A 0B 53 42 43 20 23 24 30 31 00 B9 18 A4 |....SBC #$01....|
000010B0: 0B 53 54 41 20 52 45 47 31 00 C6 18 AE 0B 4C 44 |.STA REG1.....LD|
000010C0: 41 20 52 45 47 32 00 D3 18 B8 0B 53 42 43 20 23 |A REG2.....SBC #|
000010D0: 24 30 30 00 E0 18 C2 0B 53 54 41 20 52 45 47 32 |$00.....STA REG2|
000010E0: 00 ED 18 CC 0B 43 4D 50 20 23 24 30 30 00 FB 18 |.....CMP #$00...|
000010F0: D6 0B 42 4E 45 20 53 43 52 94 31 00 08 19 E0 0B |..BNE SCR.1.....|
00001100: 4C 44 41 20 52 45 47 31 00 16 19 EA 0B 42 4E 45 |LDA REG1.....BNE|
00001110: 20 53 43 52 94 31 00 27 19 F4 0B 53 43 52 94 34 | SCR.1.'...SCR.4|
00001120: 20 49 4E 43 20 94 44 00 33 19 FE 0B 4A 4D 50 20 | INC .D.3...JMP |
00001130: 52 4F 4D 00 64 19 08 0C 48 49 42 59 54 45 53 20 |ROM.d...HIBYTES |
00001140: 2E 42 59 54 20 24 46 43 2C 24 46 38 2C 24 46 34 |.BYT $FC,$F8,$F4|
00001150: 2C 24 46 30 2C 24 45 43 2C 24 45 38 2C 24 45 34 |,$F0,$EC,$E8,$E4|
00001160: 2C 24 45 30 00 7D 19 12 0C 2E 42 59 54 20 24 44 |,$E0.}....BYT $D|
00001170: 43 2C 24 44 38 2C 24 44 34 2C 24 44 30 00 96 19 |C,$D8,$D4,$D0...|
00001180: 1C 0C 2E 42 59 54 20 24 30 30 2C 24 30 30 2C 24 |...BYT $00,$00,$|
00001190: 30 30 2C 24 30 30 00 B4 19 26 0C 53 43 52 A1 20 |00,$00...&.SCR. |
000011A0: 4A 53 52 20 52 41 4D 20 3B 20 53 43 52 45 45 4E |JSR RAM ; SCREEN|
000011B0: 20 48 4F C3 00 BF 19 30 0C 4C 44 59 20 94 44 00 | HO....0.LDY .D.|
000011C0: C8 19 3A 0C 44 45 59 20 00 DA 19 44 0C 4C 44 41 |..:.DEY ...D.LDA|
000011D0: 20 48 49 42 59 54 45 53 2C 59 00 E9 19 4E 0C 53 | HIBYTES,Y...N.S|
000011E0: 54 41 20 57 B0 44 32 AA 31 00 F9 19 58 0C 4C 44 |TA W.D2.1...X.LD|
000011F0: 41 20 23 B1 24 30 33 46 36 00 08 1A 62 0C 53 54 |A #.$03F6...b.ST|
00001200: 41 20 57 B0 44 31 AA 31 00 15 1A 6C 0C 4C 44 41 |A W.D1.1...l.LDA|
00001210: 20 23 24 30 30 00 22 1A 76 0C 53 54 41 20 57 B0 | #$00.".v.STA W.|
00001220: 44 32 00 32 1A 80 0C 4C 44 41 20 23 B3 24 30 33 |D2.2...LDA #.$03|
00001230: 46 36 00 3F 1A 8A 0C 53 54 41 20 57 B0 44 31 00 |F6.?...STA W.D1.|
00001240: 4D 1A 94 0C 4C 44 41 20 53 43 52 94 34 00 56 1A |M...LDA SCR.4.V.|
00001250: 9E 0C 50 48 41 20 00 63 1A A8 0C 4C 44 41 20 23 |..PHA .c...LDA #|
00001260: 24 36 30 00 71 1A B2 0C 53 54 41 20 53 43 52 94 |$60.q...STA SCR.|
00001270: 34 00 98 1A BC 0C 4A 53 52 20 53 43 52 94 30 20 |4.....JSR SCR.0 |
00001280: 3B 20 42 49 4C 44 53 43 48 49 52 4D 20 56 45 52 |; BILDSCHIRM VER|
00001290: 53 43 48 49 45 42 45 4E 00 A1 1A C6 0C 50 4C 41 |SCHIEBEN.....PLA|
000012A0: 20 00 AF 1A D0 0C 53 54 41 20 53 43 52 94 34 00 | .....STA SCR.4.|
000012B0: BA 1A DA 0C 44 45 43 20 94 44 00 C6 1A E4 0C 4A |....DEC .D.....J|
000012C0: 4D 50 20 52 4F 4D 00 E9 1A EE 0C A2 4F 55 54 20 |MP ROM......OUT |
000012D0: 50 48 41 20 3B 20 4E 45 55 45 20 41 55 53 47 41 |PHA ; NEUE AUSGA|
000012E0: 42 45 52 4F 55 54 49 4E 45 00 F5 1A F8 0C 4A 4D |BEROUTINE.....JM|
000012F0: 50 20 4E 4F 31 00 01 1B 02 0D 4E 4F 32 20 54 59 |P NO1.....NO2 TY|
00001300: 41 00 0A 1B 0C 0D 50 48 41 20 00 13 1B 16 0D 54 |A.....PHA .....T|
00001310: 58 41 20 00 1C 1B 20 0D 50 48 41 20 00 3A 1B 2A |XA ... .PHA .:.*|
00001320: 0D 4C 44 41 20 57 B0 53 20 3B 20 57 49 4E 44 4F |.LDA W.S ; WINDO|
00001330: 57 20 B0 20 53 43 52 45 45 4E 00 60 1B 34 0D 42 |W . SCREEN.`.4.B|
00001340: 45 51 20 A2 4F 55 54 32 20 3B 20 30 B2 53 43 52 |EQ .OUT2 ; 0.SCR|
00001350: 45 45 4E 2C 20 53 91 53 54 20 57 49 4E 44 4F 57 |EEN, S.ST WINDOW|
00001360: 00 6C 1B 3E 0D 4C 44 41 20 B8 45 35 00 7D 1B 48 |.l.>.LDA .E5.}.H|
00001370: 0D AF 20 23 25 30 31 31 31 31 31 31 31 00 8A 1B |.. #%01111111...|
00001380: 52 0D 43 4D 50 20 23 24 30 44 00 98 1B 5C 0D 42 |R.CMP #$0D...\.B|
00001390: 4E 45 20 A2 4F 55 54 30 00 A0 1B 66 0D 53 45 43 |NE .OUT0...f.SEC|
000013A0: 00 AA 1B 70 0D 4A 53 52 20 E9 00 B2 1B 7A 0D 49 |...p.JSR ....z.I|
000013B0: 4E 58 00 C0 1B 84 0D 4C 44 59 20 4C 4F 43 4F 4C |NX.....LDY LOCOL|
000013C0: 00 C8 1B 8E 0D 43 4C 43 00 D2 1B 98 0D 4A 53 52 |.....CLC.....JSR|
000013D0: 20 E9 00 DA 1B A2 0D 50 4C 41 00 E2 1B AC 0D 54 | ......PLA.....T|
000013E0: 41 58 00 EA 1B B6 0D 50 4C 41 00 F2 1B C0 0D 54 |AX.....PLA.....T|
000013F0: 41 59 00 FA 1B CA 0D 50 4C 41 00 07 1C D4 0D 4C |AY.....PLA.....L|
00001400: 44 41 20 23 24 30 30 00 13 1C DE 0D 53 54 41 20 |DA #$00.....STA |
00001410: 24 43 37 00 21 1C E8 0D 4A 4D 50 20 24 46 31 43 |$C7.!...JMP $F1C|
00001420: 41 00 2F 1C F2 0D A2 4F 55 54 30 20 53 45 43 00 |A./....OUT0 SEC.|
00001430: 39 1C FC 0D 4A 53 52 20 E9 00 45 1C 06 0E 43 50 |9...JSR ..E...CP|
00001440: 58 20 4C 4F EB 00 53 1C 10 0E 42 43 53 20 A2 4F |X LO..S...BCS .O|
00001450: 55 54 48 00 5F 1C 1A 0E 4C 44 58 20 4C 4F EB 00 |UTH._...LDX LO..|
00001460: 6D 1C 24 0E 4C 44 59 20 4C 4F 43 4F 4C 00 75 1C |m.$.LDY LOCOL.u.|
00001470: 2E 0E 43 4C 43 00 7F 1C 38 0E 4A 53 52 20 E9 00 |..CLC...8.JSR ..|
00001480: 87 1C 42 0E 53 45 43 00 91 1C 4C 0E 4A 53 52 20 |..B.SEC...L.JSR |
00001490: E9 00 9F 1C 56 0E 4A 4D 50 20 A2 4F 55 54 32 00 |....V.JMP .OUT2.|
000014A0: B1 1C 60 0E A2 4F 55 54 48 20 43 50 58 20 52 55 |..`..OUTH CPX RU|
000014B0: EB 00 BF 1C 6A 0E 42 45 51 20 A2 4F 55 54 31 00 |....j.BEQ .OUT1.|
000014C0: CD 1C 74 0E 42 43 53 20 A2 4F 55 54 34 00 E1 1C |..t.BCS .OUT4...|
000014D0: 7E 0E A2 4F 55 54 31 20 43 50 59 20 4C 4F 43 4F |~..OUT1 CPY LOCO|
000014E0: 4C 00 EF 1C 88 0E 42 43 43 20 A2 4F 55 54 35 00 |L.....BCC .OUT5.|
000014F0: FD 1C 92 0E 43 50 59 20 52 55 43 4F 4C 00 0B 1D |....CPY RUCOL...|
00001500: 9C 0E 42 45 51 20 A2 4F 55 54 32 00 19 1D A6 0E |..BEQ .OUT2.....|
00001510: 42 43 53 20 A2 4F 55 54 35 00 28 1D B0 0E A2 4F |BCS .OUT5.(....O|
00001520: 55 54 32 20 50 4C 41 20 00 31 1D BA 0E 54 41 58 |UT2 PLA .1...TAX|
00001530: 20 00 3A 1D C4 0E 50 4C 41 20 00 43 1D CE 0E 54 | .:...PLA .C...T|
00001540: 41 59 20 00 4C 1D D8 0E 50 4C 41 20 00 5A 1D E2 |AY .L...PLA .Z..|
00001550: 0E 4A 4D 50 20 24 46 31 43 41 00 6C 1D EC 0E A2 |.JMP $F1CA.l....|
00001560: 4F 55 54 35 20 43 50 58 20 52 55 EB 00 7A 1D F6 |OUT5 CPX RU..z..|
00001570: 0E 42 43 43 20 A2 4F 55 54 33 00 88 1D 00 0F 4A |.BCC .OUT3.....J|
00001580: 53 52 20 A2 4F 55 54 36 00 91 1D 0A 0F 44 45 58 |SR .OUT6.....DEX|
00001590: 20 00 A5 1D 14 0F A2 4F 55 54 33 20 4C 44 59 20 | ......OUT3 LDY |
000015A0: 4C 4F 43 4F 4C 00 AE 1D 1E 0F 49 4E 58 20 00 B7 |LOCOL.....INX ..|
000015B0: 1D 28 0F 43 4C 43 20 00 C1 1D 32 0F 4A 53 52 20 |.(.CLC ...2.JSR |
000015C0: E9 00 CF 1D 3C 0F 4A 4D 50 20 A2 4F 55 54 32 00 |....<.JMP .OUT2.|
000015D0: D8 1D 46 0F 44 45 58 20 00 E6 1D 50 0F 4A 53 52 |..F.DEX ...P.JSR|
000015E0: 20 A2 4F 55 54 36 00 F4 1D 5A 0F 4A 4D 50 20 A2 | .OUT6...Z.JMP .|
000015F0: 4F 55 54 33 00 08 1E 64 0F A2 4F 55 54 34 20 4A |OUT3...d..OUT4 J|
00001600: 53 52 20 A2 4F 55 54 36 00 14 1E 6E 0F 4C 44 58 |SR .OUT6...n.LDX|
00001610: 20 52 55 EB 00 22 1E 78 0F 4C 44 59 20 4C 4F 43 | RU..".x.LDY LOC|
00001620: 4F 4C 00 2B 1E 82 0F 43 4C 43 20 00 35 1E 8C 0F |OL.+...CLC .5...|
00001630: 4A 53 52 20 E9 00 43 1E 96 0F 4A 4D 50 20 A2 4F |JSR ..C...JMP .O|
00001640: 55 54 31 00 57 1E A0 0F A2 4F 55 54 36 20 4C 44 |UT1.W....OUT6 LD|
00001650: 41 20 52 55 43 4F 4C 00 65 1E AA 0F 53 42 43 20 |A RUCOL.e...SBC |
00001660: 4C 4F 43 4F 4C 00 71 1E B4 0F 53 54 41 20 24 43 |LOCOL.q...STA $C|
00001670: 38 00 7D 1E BE 0F 44 45 43 20 24 43 38 00 8B 1E |8.}...DEC $C8...|
00001680: C8 0F 4C 44 59 20 4C 4F 43 4F 4C 00 97 1E D2 0F |..LDY LOCOL.....|
00001690: 4C 44 58 20 4C 4F EB 00 A3 1E DC 0F 53 54 58 20 |LDX LO......STX |
000016A0: 24 30 32 00 AF 1E E6 0F 44 45 43 20 24 30 32 00 |$02.....DEC $02.|
000016B0: B8 1E F0 0F 43 4C 43 20 00 C2 1E FA 0F 4A 53 52 |....CLC .....JSR|
000016C0: 20 E9 00 CE 1E 04 10 4C 44 41 20 24 44 31 00 DA | ......LDA $D1..|
000016D0: 1E 0E 10 41 44 43 20 24 44 33 00 E7 1E 18 10 53 |...ADC $D3.....S|
000016E0: 54 41 20 52 45 47 31 00 F3 1E 22 10 4C 44 41 20 |TA REG1...".LDA |
000016F0: 24 44 32 00 00 1F 2C 10 41 44 43 20 23 24 30 30 |$D2...,.ADC #$00|
00001700: 00 0D 1F 36 10 53 54 41 20 52 45 47 32 00 1A 1F |...6.STA REG2...|
00001710: 40 10 4C 44 41 20 52 45 47 31 00 27 1F 4A 10 41 |@.LDA REG1.'.J.A|
00001720: 44 43 20 23 24 32 38 00 34 1F 54 10 53 54 41 20 |DC #$28.4.T.STA |
00001730: 52 45 47 33 00 41 1F 5E 10 4C 44 41 20 52 45 47 |REG3.A.^.LDA REG|
00001740: 32 00 4E 1F 68 10 41 44 43 20 23 24 30 30 00 5B |2.N.h.ADC #$00.[|
00001750: 1F 72 10 53 54 41 20 52 45 47 34 00 68 1F 7C 10 |.r.STA REG4.h.|.|
00001760: 4C 44 59 20 23 24 30 30 00 7F 1F 86 10 A2 4F 55 |LDY #$00......OU|
00001770: 54 38 20 4C 44 41 20 28 52 45 47 33 29 2C 59 00 |T8 LDA (REG3),Y.|
00001780: 90 1F 90 10 53 54 41 20 28 52 45 47 31 29 2C 59 |....STA (REG1),Y|
00001790: 00 9C 1F 9A 10 43 50 59 20 24 43 38 00 AA 1F A4 |.....CPY $C8....|
000017A0: 10 42 45 51 20 A2 4F 55 54 42 00 B8 1F AE 10 42 |.BEQ .OUTB.....B|
000017B0: 43 53 20 A2 4F 55 54 43 00 C7 1F B8 10 A2 4F 55 |CS .OUTC......OU|
000017C0: 54 42 20 49 4E 59 20 00 D5 1F C2 10 42 4E 45 20 |TB INY .....BNE |
000017D0: A2 4F 55 54 38 00 E7 1F CC 10 A2 4F 55 54 43 20 |.OUT8......OUTC |
000017E0: 49 4E 43 20 24 30 32 00 F3 1F D6 10 4C 44 59 20 |INC $02.....LDY |
000017F0: 24 30 32 00 FC 1F E0 10 49 4E 59 20 00 08 20 EA |$02.....INY .. .|
00001800: 10 43 50 59 20 52 55 EB 00 16 20 F4 10 42 43 53 |.CPY RU... ..BCS|
00001810: 20 A2 4F 55 54 37 00 23 20 FE 10 4C 44 41 20 52 | .OUT7.# ..LDA R|
00001820: 45 47 33 00 30 20 08 11 53 54 41 20 52 45 47 31 |EG3.0 ..STA REG1|
00001830: 00 3D 20 12 11 4C 44 41 20 52 45 47 34 00 4A 20 |.= ..LDA REG4.J |
00001840: 1C 11 53 54 41 20 52 45 47 32 00 57 20 26 11 4C |..STA REG2.W &.L|
00001850: 44 41 20 52 45 47 33 00 64 20 30 11 41 44 43 20 |DA REG3.d 0.ADC |
00001860: 23 24 32 38 00 71 20 3A 11 53 54 41 20 52 45 47 |#$28.q :.STA REG|
00001870: 33 00 7E 20 44 11 4C 44 41 20 52 45 47 34 00 8B |3.~ D.LDA REG4..|
00001880: 20 4E 11 41 44 43 20 23 24 30 30 00 98 20 58 11 | N.ADC #$00.. X.|
00001890: 53 54 41 20 52 45 47 34 00 A5 20 62 11 4C 44 59 |STA REG4.. b.LDY|
000018A0: 20 23 24 30 30 00 B3 20 6C 11 4A 4D 50 20 A2 4F | #$00.. l.JMP .O|
000018B0: 55 54 38 00 C5 20 76 11 A2 4F 55 54 37 20 4C 44 |UT8.. v..OUT7 LD|
000018C0: 58 20 52 55 EB 00 D1 20 80 11 4A 4D 50 20 9C EB |X RU... ..JMP ..|
000018D0: 31 00 DC 20 8A 11 9C EB 20 43 4C 43 00 E8 20 94 |1.. .... CLC.. .|
000018E0: 11 41 44 43 20 4C 4F EB 00 F0 20 9E 11 54 41 58 |.ADC LO... ..TAX|
000018F0: 00 02 21 A8 11 9C EB 31 20 4C 44 59 20 4C 4F 43 |..!....1 LDY LOC|
00001900: 4F 4C 00 0A 21 B2 11 43 4C 43 00 14 21 BC 11 4A |OL..!..CLC..!..J|
00001910: 53 52 20 E9 00 21 21 C6 11 4C 44 41 20 23 22 20 |SR ..!!..LDA #" |
00001920: 22 00 2D 21 D0 11 4C 44 59 20 24 44 33 00 43 21 |".-!..LDY $D3.C!|
00001930: DA 11 A2 4F 55 54 39 20 53 54 41 20 28 24 44 31 |...OUT9 STA ($D1|
00001940: 29 2C 59 00 4C 21 E4 11 49 4E 59 20 00 5A 21 EE |),Y.L!..INY .Z!.|
00001950: 11 43 50 59 20 52 55 43 4F 4C 00 68 21 F8 11 42 |.CPY RUCOL.h!..B|
00001960: 45 51 20 A2 4F 55 54 39 00 76 21 02 12 42 43 43 |EQ .OUT9.v!..BCC|
00001970: 20 A2 4F 55 54 39 00 8A 21 0C 12 A2 4F 55 54 41 | .OUT9..!...OUTA|
00001980: 20 4C 44 41 20 24 30 32 38 44 00 97 21 16 12 43 | LDA $028D..!..C|
00001990: 4D 50 20 23 24 30 34 00 A5 21 20 12 42 45 51 20 |MP #$04..! .BEQ |
000019A0: A2 4F 55 54 41 00 AD 21 2A 12 52 54 53 00 C1 21 |.OUTA..!*.RTS..!|
000019B0: 34 12 57 B0 44 49 4E 43 20 49 4E 43 20 57 B0 44 |4.W.DINC INC W.D|
000019C0: 31 00 D1 21 3E 12 42 4E 45 20 57 B0 44 49 4E 43 |1..!>.BNE W.DINC|
000019D0: 31 00 E0 21 48 12 49 4E 43 20 57 B0 44 31 AA 31 |1..!H.INC W.D1.1|
000019E0: 00 F0 21 52 12 57 B0 44 49 4E 43 31 20 52 54 53 |..!R.W.DINC1 RTS|
000019F0: 00 05 22 5C 12 57 B0 44 32 49 4E 43 20 49 4E 43 |.."\.W.D2INC INC|
00001A00: 20 57 B0 44 32 00 16 22 66 12 42 4E 45 20 57 B0 | W.D2.."f.BNE W.|
00001A10: 44 32 49 4E 43 31 00 25 22 70 12 49 4E 43 20 57 |D2INC1.%"p.INC W|
00001A20: B0 44 32 AA 31 00 36 22 7A 12 57 B0 44 32 49 4E |.D2.1.6"z.W.D2IN|
00001A30: 43 31 20 52 54 53 00 48 22 84 12 3B 20 20 48 41 |C1 RTS.H"..; HA|
00001A40: 55 50 54 20 55 50 27 53 00 57 22 8E 12 57 49 4E |UPT UP'S.W"..WIN|
00001A50: 4F 55 54 20 50 48 41 00 5F 22 98 12 54 59 41 00 |OUT PHA._"..TYA.|
00001A60: 67 22 A2 12 50 48 41 00 72 22 AC 12 4C 44 58 20 |g"..PHA.r"..LDX |
00001A70: 57 EB 00 7F 22 B6 12 4C 44 59 20 57 43 4F 4C 00 |W..."..LDY WCOL.|
00001A80: 8D 22 C0 12 4C 44 41 20 57 48 49 47 48 00 9A 22 |."..LDA WHIGH.."|
00001A90: CA 12 53 54 41 20 52 45 47 32 00 A9 22 D4 12 4C |..STA REG2.."..L|
00001AA0: 44 41 20 57 57 49 44 54 48 00 B6 22 DE 12 53 54 |DA WWIDTH.."..ST|
00001AB0: 41 20 52 45 47 31 00 C3 22 E8 12 4C 44 41 20 23 |A REG1.."..LDA #|
00001AC0: 24 30 30 00 EC 22 F2 12 53 54 41 20 57 B0 53 20 |$00.."..STA W.S |
00001AD0: 3B 20 41 55 53 47 41 42 45 4E 20 41 55 53 20 47 |; AUSGABEN AUS G|
00001AE0: 41 4E 5A 45 4D 20 53 43 52 45 45 4E 00 09 23 FC |ANZEM SCREEN..#.|
00001AF0: 12 4A 53 52 20 57 F6 20 3B 20 52 41 48 4D 45 4E |.JSR W. ; RAHMEN|
00001B00: 20 5A 45 49 43 48 4E 45 4E 00 14 23 06 13 4C 44 | ZEICHNEN..#..LD|
00001B10: 58 20 57 EB 00 21 23 10 13 4C 44 59 20 57 43 4F |X W..!#..LDY WCO|
00001B20: 4C 00 29 23 1A 13 49 4E 59 00 31 23 24 13 49 4E |L.)#..INY.1#$.IN|
00001B30: 59 00 39 23 2E 13 49 4E 59 00 41 23 38 13 43 4C |Y.9#..INY.A#8.CL|
00001B40: 43 00 4B 23 42 13 4A 53 52 20 E9 00 53 23 4C 13 |C.K#B.JSR ..S#L.|
00001B50: 50 4C 41 00 5B 23 56 13 54 41 59 00 68 23 60 13 |PLA.[#V.TAY.h#`.|
00001B60: 4C 44 41 20 23 24 30 31 00 74 23 6A 13 53 54 41 |LDA #$01.t#j.STA|
00001B70: 20 24 43 37 00 7C 23 74 13 50 4C 41 00 89 23 7E | $C7.|#t.PLA..#~|
00001B80: 13 4A 53 52 20 EC 4F 55 54 00 96 23 88 13 4C 44 |.JSR .OUT..#..LD|
00001B90: 41 20 23 24 30 30 00 A2 23 92 13 53 54 41 20 24 |A #$00..#..STA $|
00001BA0: 43 37 00 AD 23 9C 13 4C 44 58 20 57 EB 00 BA 23 |C7..#..LDX W...#|
00001BB0: A6 13 4C 44 59 20 57 43 4F 4C 00 C2 23 B0 13 49 |..LDY WCOL..#..I|
00001BC0: 4E 58 00 E2 23 BA 13 49 4E 58 20 3B 20 4F 42 45 |NX..#..INX ; OBE|
00001BD0: 52 45 20 32 20 5A 45 49 C3 20 42 45 4C 41 53 53 |RE 2 ZEI. BELASS|
00001BE0: 45 4E 00 EE 23 C4 13 53 54 58 20 4C 4F EB 00 FB |EN..#..STX LO...|
00001BF0: 23 CE 13 4C 44 58 20 57 43 4F 4C 00 03 24 D8 13 |#..LDX WCOL..$..|
00001C00: 49 4E 58 00 29 24 E2 13 53 54 58 20 4C 4F 43 4F |INX.)$..STX LOCO|
00001C10: 4C 20 3B 20 4C 49 4E 4B 45 20 53 50 41 4C 54 45 |L ; LINKE SPALTE|
00001C20: 20 42 45 4C 41 53 53 45 4E 00 38 24 EC 13 4C 44 | BELASSEN.8$..LD|
00001C30: 41 20 57 57 49 44 54 48 00 41 24 F6 13 43 4C 43 |A WWIDTH.A$..CLC|
00001C40: 20 00 4F 24 00 14 41 44 43 20 4C 4F 43 4F 4C 00 | .O$..ADC LOCOL.|
00001C50: 5D 24 0A 14 53 54 41 20 52 55 43 4F 4C 00 6B 24 |]$..STA RUCOL.k$|
00001C60: 14 14 44 45 43 20 52 55 43 4F 4C 00 79 24 1E 14 |..DEC RUCOL.y$..|
00001C70: 4C 44 41 20 57 48 49 47 48 00 82 24 28 14 43 4C |LDA WHIGH..$(.CL|
00001C80: 43 20 00 8E 24 32 14 41 44 43 20 4C 4F EB 00 9A |C ..$2.ADC LO...|
00001C90: 24 3C 14 53 54 41 20 52 55 EB 00 A6 24 46 14 44 |$<.STA RU...$F.D|
00001CA0: 45 43 20 52 55 EB 00 B2 24 50 14 44 45 43 20 52 |EC RU...$P.DEC R|
00001CB0: 55 EB 00 BF 24 5A 14 4C 44 41 20 23 24 30 31 00 |U...$Z.LDA #$01.|
00001CC0: E0 24 64 14 53 54 41 20 57 B0 53 20 3B 20 41 55 |.$d.STA W.S ; AU|
00001CD0: 53 47 41 42 45 4E 20 49 4E 20 57 49 4E 44 4F 57 |SGABEN IN WINDOW|
00001CE0: 00 E9 24 6E 14 52 54 53 20 00 00 25 78 14 53 45 |..$n.RTS ..%x.SE|
00001CF0: 54 43 4F 4C 20 4C 44 58 20 23 B3 24 44 38 30 30 |TCOL LDX #.$D800|
00001D00: 00 0D 25 82 14 53 54 58 20 57 B0 44 31 00 1D 25 |..%..STX W.D1..%|
00001D10: 8C 14 4C 44 58 20 23 B1 24 44 38 30 30 00 2C 25 |..LDX #.$D800.,%|
00001D20: 96 14 53 54 58 20 57 B0 44 31 AA 31 00 42 25 A0 |..STX W.D1.1.B%.|
00001D30: 14 53 45 54 43 4F 4C 31 20 4C 44 41 20 24 30 32 |.SETCOL1 LDA $02|
00001D40: 38 36 00 4F 25 AA 14 4C 44 59 20 23 24 30 30 00 |86.O%..LDY #$00.|
00001D50: 60 25 B4 14 53 54 41 20 28 57 B0 44 31 29 2C 59 |`%..STA (W.D1),Y|
00001D60: 00 6F 25 BE 14 4A 53 52 20 57 B0 44 49 4E 43 00 |.o%..JSR W.DINC.|
00001D70: 7E 25 C8 14 4C 44 41 20 57 B0 44 31 AA 31 00 8B |~%..LDA W.D1.1..|
00001D80: 25 D2 14 43 4D 50 20 23 24 44 43 00 9B 25 DC 14 |%..CMP #$DC..%..|
00001D90: 42 4E 45 20 53 45 54 43 4F 4C 31 00 A3 25 E6 14 |BNE SETCOL1..%..|
00001DA0: 52 54 53 00 B7 25 F0 14 57 34 46 49 52 45 20 4C |RTS..%..W4FIRE L|
00001DB0: 44 41 20 46 49 52 45 00 C6 25 FA 14 42 45 51 20 |DA FIRE..%..BEQ |
00001DC0: 57 34 46 49 52 45 00 DB 25 04 15 57 34 46 49 52 |W4FIRE..%..W4FIR|
00001DD0: 45 31 20 4C 44 41 20 46 49 52 45 00 EB 25 0E 15 |E1 LDA FIRE..%..|
00001DE0: 42 4E 45 20 57 34 46 49 52 45 31 00 F3 25 18 15 |BNE W4FIRE1..%..|
00001DF0: 52 54 53 00 20 26 22 15 48 B5 20 4C 44 41 20 56 |RTS. &".H. LDA V|
00001E00: 49 43 20 3B 20 53 50 52 49 54 45 20 49 4E 20 EC |IC ; SPRITE IN .|
00001E10: 20 43 4F B0 2E 20 4E 41 43 48 20 EB AD 43 4F 4C | CO.. NACH ..COL|
00001E20: 00 2D 26 2C 15 53 54 41 20 52 45 47 31 00 3C 26 |.-&,.STA REG1.<&|
00001E30: 36 15 4C 44 41 20 56 49 43 AA 31 36 00 4D 26 40 |6.LDA VIC.16.M&@|
00001E40: 15 AF 20 23 25 30 30 30 30 30 30 30 31 00 5A 26 |.. #%00000001.Z&|
00001E50: 4A 15 53 54 41 20 52 45 47 32 00 62 26 54 15 53 |J.STA REG2.b&T.S|
00001E60: 45 43 00 6F 26 5E 15 4C 44 41 20 52 45 47 31 00 |EC.o&^.LDA REG1.|
00001E70: 7C 26 68 15 53 42 43 20 23 24 31 38 00 89 26 72 ||&h.SBC #$18..&r|
00001E80: 15 53 54 41 20 52 45 47 31 00 96 26 7C 15 4C 44 |.STA REG1..&|.LD|
00001E90: 41 20 52 45 47 32 00 A3 26 86 15 53 42 43 20 23 |A REG2..&..SBC #|
00001EA0: 24 30 30 00 AB 26 90 15 54 41 59 00 B8 26 9A 15 |$00..&..TAY..&..|
00001EB0: 4C 44 41 20 52 45 47 31 00 C5 26 A4 15 4C 44 58 |LDA REG1..&..LDX|
00001EC0: 20 23 24 30 38 00 D2 26 AE 15 53 54 58 20 52 45 | #$08..&..STX RE|
00001ED0: 47 31 00 DF 26 B8 15 4C 44 58 20 23 24 30 30 00 |G1..&..LDX #$00.|
00001EE0: EC 26 C2 15 53 54 58 20 52 45 47 32 00 FB 26 CC |.&..STX REG2..&.|
00001EF0: 15 4A 53 52 20 44 49 56 49 44 45 00 08 27 D6 15 |.JSR DIVIDE..'..|
00001F00: 4C 44 41 20 52 45 47 33 00 15 27 E0 15 43 4D 50 |LDA REG3..'..CMP|
00001F10: 20 23 24 46 46 00 21 27 EA 15 42 4E 45 20 48 B5 | #$FF.!'..BNE H.|
00001F20: 31 00 2E 27 F4 15 4C 44 41 20 23 24 30 30 00 3E |1..'..LDA #$00.>|
00001F30: 27 FE 15 48 B5 31 20 53 54 41 20 43 4F 4C 00 4C |'..H.1 STA COL.L|
00001F40: 27 08 16 4C 44 41 20 56 49 43 AA 31 00 54 27 12 |'..LDA VIC.1.T'.|
00001F50: 16 53 45 43 00 61 27 1C 16 53 42 43 20 23 24 33 |.SEC.a'..SBC #$3|
00001F60: 32 00 6E 27 26 16 4C 44 59 20 23 24 30 30 00 7B |2.n'&.LDY #$00.{|
00001F70: 27 30 16 53 54 59 20 52 45 47 32 00 88 27 3A 16 |'0.STY REG2..':.|
00001F80: 4C 44 58 20 23 24 30 38 00 95 27 44 16 53 54 58 |LDX #$08..'D.STX|
00001F90: 20 52 45 47 31 00 A4 27 4E 16 4A 53 52 20 44 49 | REG1..'N.JSR DI|
00001FA0: 56 49 44 45 00 B1 27 58 16 4C 44 41 20 52 45 47 |VIDE..'X.LDA REG|
00001FB0: 33 00 BB 27 62 16 53 54 41 20 EB 00 C3 27 6C 16 |3..'b.STA ...'l.|
00001FC0: 52 54 53 00 06 28 76 16 41 4E 41 4C 59 5A 45 20 |RTS..(v.ANALYZE |
00001FD0: 4A 53 52 20 48 B5 20 3B 20 4D 4F 55 53 45 20 41 |JSR H. ; MOUSE A|
00001FE0: 4E 41 4C 59 53 49 45 52 45 4E 2C 20 46 46 B2 A0 |NALYSIEREN, FF..|
00001FF0: 2C 20 46 45 B2 55 50 16 20 46 44 B2 44 4F 57 4E |, FE.UP. FD.DOWN|
00002000: 2C 30 B2 4E 49 58 00 12 28 80 16 4C 44 59 20 43 |,0.NIX..(..LDY C|
00002010: 4F 4C 00 1C 28 8A 16 4C 44 58 20 EB 00 29 28 94 |OL..(..LDX ..)(.|
00002020: 16 43 50 59 20 57 43 4F 4C 00 3A 28 9E 16 42 43 |.CPY WCOL.:(..BC|
00002030: 53 20 41 4E 41 4C 59 5A 45 31 00 50 28 A8 16 41 |S ANALYZE1.P(..A|
00002040: 4E 41 4C 59 5A 45 32 20 4C 44 41 20 23 24 30 30 |NALYZE2 LDA #$00|
00002050: 00 58 28 B2 16 52 54 53 00 69 28 BC 16 41 4E 41 |.X(..RTS.i(..ANA|
00002060: 4C 59 5A 45 31 20 54 59 41 00 71 28 C6 16 53 45 |LYZE1 TYA.q(..SE|
00002070: 43 00 7E 28 D0 16 53 42 43 20 57 43 4F 4C 00 8B |C.~(..SBC WCOL..|
00002080: 28 DA 16 53 42 43 20 23 24 30 31 00 9A 28 E4 16 |(..SBC #$01..(..|
00002090: 43 4D 50 20 57 57 49 44 54 48 00 AB 28 EE 16 42 |CMP WWIDTH..(..B|
000020A0: 45 51 20 41 4E 41 4C 59 5A 45 33 00 BC 28 F8 16 |EQ ANALYZE3..(..|
000020B0: 42 4D 49 20 41 4E 41 4C 59 5A 45 33 00 CD 28 02 |BMI ANALYZE3..(.|
000020C0: 17 4A 4D 50 20 41 4E 41 4C 59 5A 45 32 00 E1 28 |.JMP ANALYZE2..(|
000020D0: 0C 17 41 4E 41 4C 59 5A 45 33 20 43 50 58 20 57 |..ANALYZE3 CPX W|
000020E0: EB 00 F2 28 16 17 42 45 51 20 41 4E 41 4C 59 5A |...(..BEQ ANALYZ|
000020F0: 45 37 00 03 29 20 17 42 43 43 20 41 4E 41 4C 59 |E7..) .BCC ANALY|
00002100: 5A 45 32 00 0B 29 2A 17 54 58 41 00 13 29 34 17 |ZE2..)*.TXA..)4.|
00002110: 53 45 43 00 1E 29 3E 17 53 42 43 20 57 EB 00 2B |SEC..)>.SBC W..+|
00002120: 29 48 17 53 42 43 20 23 24 30 31 00 39 29 52 17 |)H.SBC #$01.9)R.|
00002130: 43 4D 50 20 57 48 49 47 48 00 4A 29 5C 17 42 43 |CMP WHIGH.J)\.BC|
00002140: 53 20 41 4E 41 4C 59 5A 45 32 00 52 29 66 17 52 |S ANALYZE2.R)f.R|
00002150: 54 53 00 65 29 70 17 41 4E 41 4C 59 5A 45 37 20 |TS.e)p.ANALYZE7 |
00002160: 4C 44 58 20 EB 00 71 29 7A 17 4C 44 59 20 43 4F |LDX ..q)z.LDY CO|
00002170: 4C 00 7E 29 84 17 4A 53 52 20 53 43 52 B9 00 8B |L.~)..JSR SCR...|
00002180: 29 8E 17 4C 44 59 20 23 24 30 30 00 9C 29 98 17 |)..LDY #$00..)..|
00002190: 4C 44 41 20 28 52 45 47 33 29 2C 59 00 A9 29 A2 |LDA (REG3),Y..).|
000021A0: 17 43 4D 50 20 23 24 37 30 00 BA 29 AC 17 42 45 |.CMP #$70..)..BE|
000021B0: 51 20 41 4E 41 4C 59 5A 45 34 00 C7 29 B6 17 43 |Q ANALYZE4..)..C|
000021C0: 4D 50 20 23 24 37 31 00 D8 29 C0 17 42 45 51 20 |MP #$71..)..BEQ |
000021D0: 41 4E 41 4C 59 5A 45 34 00 E5 29 CA 17 43 4D 50 |ANALYZE4..)..CMP|
000021E0: 20 23 24 37 36 00 F6 29 D4 17 42 45 51 20 41 4E | #$76..)..BEQ AN|
000021F0: 41 4C 59 5A 45 35 00 03 2A DE 17 43 4D 50 20 23 |ALYZE5..*..CMP #|
00002200: 24 37 37 00 14 2A E8 17 42 45 51 20 41 4E 41 4C |$77..*..BEQ ANAL|
00002210: 59 5A 45 36 00 25 2A F2 17 42 4E 45 20 41 4E 41 |YZE6.%*..BNE ANA|
00002220: 4C 59 5A 45 32 00 3B 2A FC 17 41 4E 41 4C 59 5A |LYZE2.;*..ANALYZ|
00002230: 45 34 20 4C 44 41 20 23 24 46 46 00 43 2A 06 18 |E4 LDA #$FF.C*..|
00002240: 52 54 53 00 59 2A 10 18 41 4E 41 4C 59 5A 45 35 |RTS.Y*..ANALYZE5|
00002250: 20 4C 44 41 20 23 24 46 45 00 61 2A 1A 18 52 54 | LDA #$FE.a*..RT|
00002260: 53 00 77 2A 24 18 41 4E 41 4C 59 5A 45 36 20 4C |S.w*$.ANALYZE6 L|
00002270: 44 41 20 23 24 46 44 00 7F 2A 2E 18 52 54 53 00 |DA #$FD..*..RTS.|
00002280: 8C 2A 38 18 3B 20 57 49 4E 44 4F 57 00 CF 2A 42 |.*8.; WINDOW..*B|
00002290: 18 3B 20 5A 45 49 4C 45 2C 20 53 50 41 4C 54 45 |.; ZEILE, SPALTE|
000022A0: 2C 20 42 52 45 49 54 45 2C 20 48 4F 45 48 45 20 |, BREITE, HOEHE |
000022B0: 49 4E 20 57 59 2C 20 57 58 2C 20 57 57 2C 20 57 |IN WY, WX, WW, W|
000022C0: 48 3B 20 41 AD 59 20 B2 20 EC 50 4F B5 45 52 00 |H; A.Y . .PO.ER.|
000022D0: DE 2A 4C 18 57 49 4E 44 4F 57 20 50 48 41 00 E6 |.*L.WINDOW PHA..|
000022E0: 2A 56 18 54 59 41 00 EE 2A 60 18 50 48 41 00 FB |*V.TYA..*`.PHA..|
000022F0: 2A 6A 18 4A 53 52 20 53 43 52 94 00 06 2B 74 18 |*j.JSR SCR...+t.|
00002300: 4C 44 41 20 57 58 00 13 2B 7E 18 53 54 41 20 57 |LDA WX..+~.STA W|
00002310: 43 4F 4C 00 1E 2B 88 18 4C 44 41 20 57 59 00 29 |COL..+..LDA WY.)|
00002320: 2B 92 18 53 54 41 20 57 EB 00 34 2B 9C 18 4C 44 |+..STA W..4+..LD|
00002330: 41 20 57 57 00 43 2B A6 18 53 54 41 20 57 57 49 |A WW.C+..STA WWI|
00002340: 44 54 48 00 4E 2B B0 18 4C 44 41 20 57 48 00 5C |DTH.N+..LDA WH.\|
00002350: 2B BA 18 53 54 41 20 57 48 49 47 48 00 64 2B C4 |+..STA WHIGH.d+.|
00002360: 18 50 4C 41 00 6C 2B CE 18 54 41 59 00 74 2B D8 |.PLA.l+..TAY.t+.|
00002370: 18 50 4C 41 00 83 2B E2 18 4A 4D 50 20 57 49 4E |.PLA..+..JMP WIN|
00002380: 4F 55 54 00 8E 2B EC 18 3B 20 4D 45 4E 55 00 B3 |OUT..+..; MENU..|
00002390: 2B F6 18 3B 20 53 54 41 52 54 20 49 4E 20 41 AD |+..; START IN A.|
000023A0: 59 2C 20 41 55 53 57 41 48 4C 20 49 4E 20 41 20 |Y, AUSWAHL IN A |
000023B0: 26 20 59 00 DA 2B 00 19 3B 20 41 42 47 52 45 4E |& Y..+..; ABGREN|
000023C0: 5A 55 4E 47 20 4D 55 53 53 20 22 B4 22 20 28 43 |ZUNG MUSS "." (C|
000023D0: B2 20 48 29 20 53 45 49 4E 21 00 EC 2B 0A 19 4D |. H) SEIN!..+..M|
000023E0: 45 4E 55 20 53 54 41 20 57 B0 44 31 00 FB 2B 14 |ENU STA W.D1..+.|
000023F0: 19 53 54 59 20 57 B0 44 31 AA 31 00 09 2C 1E 19 |.STY W.D1.1..,..|
00002400: 4A 53 52 20 24 45 35 36 36 00 16 2C 28 19 4C 44 |JSR $E566..,(.LD|
00002410: 59 20 23 24 30 30 00 22 2C 32 19 53 54 59 20 B8 |Y #$00.",2.STY .|
00002420: 45 31 00 39 2C 3C 19 4D 45 4E 55 31 20 4C 44 41 |E1.9,<.MENU1 LDA|
00002430: 20 28 57 B0 44 31 29 2C 59 00 46 2C 46 19 43 4D | (W.D1),Y.F,F.CM|
00002440: 50 20 23 22 B4 22 00 54 2C 50 19 42 45 51 20 4D |P #".".T,P.BEQ M|
00002450: 45 4E 55 33 00 64 2C 5A 19 4D 45 4E 55 32 20 4A |ENU3.d,Z.MENU2 J|
00002460: 53 52 20 99 00 6C 2C 64 19 49 4E 59 00 79 2C 6E |SR ..l,d.INY.y,n|
00002470: 19 43 50 59 20 23 24 32 38 00 87 2C 78 19 42 4E |.CPY #$28..,x.BN|
00002480: 45 20 4D 45 4E 55 31 00 95 2C 82 19 42 45 51 20 |E MENU1..,..BEQ |
00002490: 4D 45 4E 55 34 00 A3 2C 8C 19 4D 45 4E 55 33 20 |MENU4..,..MENU3 |
000024A0: 53 45 43 00 AF 2C 96 19 53 54 59 20 B8 45 32 00 |SEC..,..STY .E2.|
000024B0: B9 2C A0 19 4A 53 52 20 E9 00 C1 2C AA 19 54 59 |.,..JSR ...,..TY|
000024C0: 41 00 CD 2C B4 19 4C 44 59 20 B8 45 31 00 DE 2C |A..,..LDY .E1..,|
000024D0: BE 19 53 54 41 20 42 55 46 42 45 47 2C 59 00 EA |..STA BUFBEG,Y..|
000024E0: 2C C8 19 49 4E 43 20 B8 45 31 00 F6 2C D2 19 4C |,..INC .E1..,..L|
000024F0: 44 59 20 B8 45 32 00 03 2D DC 19 4C 44 41 20 23 |DY .E2..-..LDA #|
00002500: 22 B4 22 00 11 2D E6 19 42 4E 45 20 4D 45 4E 55 |"."..-..BNE MENU|
00002510: 32 00 24 2D F0 19 4D 45 4E 55 34 20 4C 44 41 20 |2.$-..MENU4 LDA |
00002520: 23 22 A3 22 00 31 2D FA 19 4C 44 59 20 23 24 30 |#".".1-..LDY #$0|
00002530: 30 00 41 2D 04 1A 4D 45 4E 55 35 20 4A 53 52 20 |0.A-..MENU5 JSR |
00002540: 99 00 49 2D 0E 1A 49 4E 59 00 56 2D 18 1A 43 50 |..I-..INY.V-..CP|
00002550: 59 20 23 24 32 38 00 64 2D 22 1A 42 4E 45 20 4D |Y #$28.d-".BNE M|
00002560: 45 4E 55 35 00 70 2D 2C 1A 4C 44 59 20 B8 45 31 |ENU5.p-,.LDY .E1|
00002570: 00 7D 2D 36 1A 4C 44 41 20 23 24 46 46 00 8E 2D |.}-6.LDA #$FF..-|
00002580: 40 1A 53 54 41 20 42 55 46 42 45 47 2C 59 00 A4 |@.STA BUFBEG,Y..|
00002590: 2D 4A 1A 4D 45 4E 55 35 41 20 4A 53 52 20 57 34 |-J.MENU5A JSR W4|
000025A0: 46 49 52 45 00 AF 2D 54 1A 4A 53 52 20 48 B5 00 |FIRE..-T.JSR H..|
000025B0: B9 2D 5E 1A 4C 44 41 20 EB 00 C8 2D 68 1A 42 4E |.-^.LDA ...-h.BN|
000025C0: 45 20 4D 45 4E 55 35 41 00 D4 2D 72 1A 4C 44 41 |E MENU5A..-r.LDA|
000025D0: 20 43 4F 4C 00 E1 2D 7C 1A 4C 44 59 20 23 24 30 | COL..-|.LDY #$0|
000025E0: 30 00 F8 2D 86 1A 4D 45 4E 55 36 20 43 4D 50 20 |0..-..MENU6 CMP |
000025F0: 42 55 46 42 45 47 2C 59 00 06 2E 90 1A 42 43 43 |BUFBEG,Y.....BCC|
00002600: 20 4D 45 4E 55 37 00 0E 2E 9A 1A 49 4E 59 00 1C | MENU7.....INY..|
00002610: 2E A4 1A 42 4E 45 20 4D 45 4E 55 36 00 2A 2E AE |...BNE MENU6.*..|
00002620: 1A 4D 45 4E 55 37 20 54 59 41 00 32 2E B8 1A 52 |.MENU7 TYA.2...R|
00002630: 54 53 00 47 2E C2 1A 3B 20 50 55 4C 4C 20 44 4F |TS.G...; PULL DO|
00002640: 57 4E 20 4D 45 4E 55 00 8C 2E CC 1A 3B 20 53 50 |WN MENU.....; SP|
00002650: 41 4C 54 45 2C 20 42 52 45 49 54 45 2C 20 48 4F |ALTE, BREITE, HO|
00002660: 45 48 45 2C 20 EC 50 4F B5 45 52 20 49 4E 20 57 |EHE, .PO.ER IN W|
00002670: 58 2C 20 57 57 2C 20 57 48 2C 20 41 AD 59 2C 20 |X, WW, WH, A.Y, |
00002680: 41 55 53 57 41 48 4C 20 49 4E 20 41 00 9B 2E D6 |AUSWAHL IN A....|
00002690: 1A 50 44 4D 45 4E 55 20 50 48 41 00 A3 2E E0 1A |.PDMENU PHA.....|
000026A0: 54 59 41 00 AB 2E EA 1A 50 48 41 00 B8 2E F4 1A |TYA.....PHA.....|
000026B0: 4C 44 41 20 23 24 30 31 00 C3 2E FE 1A 53 54 41 |LDA #$01.....STA|
000026C0: 20 57 59 00 D2 2E 08 1B 4C 44 41 20 23 B3 5A 45 | WY.....LDA #.ZE|
000026D0: 52 4F 00 E1 2E 12 1B 4C 44 59 20 23 B1 5A 45 52 |RO.....LDY #.ZER|
000026E0: 4F 00 F0 2E 1C 1B 4A 53 52 20 57 49 4E 44 4F 57 |O.....JSR WINDOW|
000026F0: 00 FD 2E 26 1B 4C 44 41 20 23 24 30 30 00 09 2F |...&.LDA #$00../|
00002700: 30 1B 53 54 41 20 57 B0 53 00 14 2F 3A 1B 4C 44 |0.STA W.S../:.LD|
00002710: 59 20 57 58 00 21 2F 44 1B 4C 44 58 20 23 24 30 |Y WX.!/D.LDX #$0|
00002720: 31 00 29 2F 4E 1B 43 4C 43 00 33 2F 58 1B 4A 53 |1.)/N.CLC.3/X.JS|
00002730: 52 20 E9 00 40 2F 62 1B 4C 44 41 20 23 22 B9 22 |R ..@/b.LDA #"."|
00002740: 00 4A 2F 6C 1B 4A 53 52 20 99 00 55 2F 76 1B 4C |.J/l.JSR ..U/v.L|
00002750: 44 59 20 57 57 00 62 2F 80 1B 4C 44 41 20 23 22 |DY WW.b/..LDA #"|
00002760: A3 22 00 74 2F 8A 1B 50 44 4D 45 4E 55 31 20 4A |.".t/..PDMENU1 J|
00002770: 53 52 20 99 00 7C 2F 94 1B 44 45 59 00 8C 2F 9E |SR ..|/..DEY../.|
00002780: 1B 42 4E 45 20 50 44 4D 45 4E 55 31 00 99 2F A8 |.BNE PDMENU1../.|
00002790: 1B 4C 44 41 20 23 22 B8 22 00 A3 2F B2 1B 4A 53 |.LDA #"."../..JS|
000027A0: 52 20 99 00 AF 2F BC 1B 44 45 43 20 4C 4F EB 00 |R .../..DEC LO..|
000027B0: BC 2F C6 1B 4C 44 41 20 23 24 30 31 00 C8 2F D0 |./..LDA #$01../.|
000027C0: 1B 53 54 41 20 57 B0 53 00 D0 2F DA 1B 50 4C 41 |.STA W.S../..PLA|
000027D0: 00 D8 2F E4 1B 54 41 59 00 E0 2F EE 1B 50 4C 41 |../..TAY../..PLA|
000027E0: 00 ED 2F F8 1B 4A 53 52 20 EC 4F 55 54 00 FC 2F |../..JSR .OUT../|
000027F0: 02 1C 4A 53 52 20 57 34 46 49 52 45 00 07 30 0C |..JSR W4FIRE..0.|
00002800: 1C 4A 53 52 20 48 B5 00 14 30 16 1C 4C 44 41 20 |.JSR H...0..LDA |
00002810: 57 43 4F 4C 00 1C 30 20 1C 43 4C 43 00 2B 30 2A |WCOL..0 .CLC.+0*|
00002820: 1C 41 44 43 20 57 57 49 44 54 48 00 38 30 34 1C |.ADC WWIDTH.804.|
00002830: 41 44 43 20 23 24 30 31 00 44 30 3E 1C 53 54 41 |ADC #$01.D0>.STA|
00002840: 20 B8 45 31 00 51 30 48 1C 4C 44 41 20 23 24 30 | .E1.Q0H.LDA #$0|
00002850: 32 00 59 30 52 1C 43 4C 43 00 67 30 5C 1C 41 44 |2.Y0R.CLC.g0\.AD|
00002860: 43 20 57 48 49 47 48 00 73 30 66 1C 53 54 41 20 |C WHIGH.s0f.STA |
00002870: B8 45 32 00 7F 30 70 1C 4C 44 41 20 43 4F 4C 00 |.E2..0p.LDA COL.|
00002880: 8C 30 7A 1C 43 4D 50 20 57 43 4F 4C 00 9C 30 84 |.0z.CMP WCOL..0.|
00002890: 1C 42 43 53 20 50 44 4D 45 4E 55 33 00 B1 30 8E |.BCS PDMENU3..0.|
000028A0: 1C 50 44 4D 45 4E 55 32 20 4C 44 41 20 23 24 30 |.PDMENU2 LDA #$0|
000028B0: 30 00 B9 30 98 1C 52 54 53 00 CD 30 A2 1C 50 44 |0..0..RTS..0..PD|
000028C0: 4D 45 4E 55 33 20 43 4D 50 20 B8 45 31 00 DD 30 |MENU3 CMP .E1..0|
000028D0: AC 1C 42 45 51 20 50 44 4D 45 4E 55 34 00 ED 30 |..BEQ PDMENU4..0|
000028E0: B6 1C 42 43 53 20 50 44 4D 45 4E 55 32 00 FF 30 |..BCS PDMENU2..0|
000028F0: C0 1C 50 44 4D 45 4E 55 34 20 4C 44 41 20 EB 00 |..PDMENU4 LDA ..|
00002900: 0C 31 CA 1C 43 4D 50 20 23 24 30 32 00 1C 31 D4 |.1..CMP #$02..1.|
00002910: 1C 42 43 43 20 50 44 4D 45 4E 55 32 00 28 31 DE |.BCC PDMENU2.(1.|
00002920: 1C 43 4D 50 20 B8 45 32 00 38 31 E8 1C 42 43 53 |.CMP .E2.81..BCS|
00002930: 20 50 44 4D 45 4E 55 32 00 48 31 F2 1C 50 44 4D | PDMENU2.H1..PDM|
00002940: 45 4E 55 35 20 53 45 43 00 55 31 FC 1C 53 42 43 |ENU5 SEC.U1..SBC|
00002950: 20 23 24 30 31 00 5D 31 06 1D 52 54 53 00 6A 31 | #$01.]1..RTS.j1|
00002960: 10 1D 3B 20 49 4E 56 45 52 53 00 7F 31 1A 1D 52 |..; INVERS..1..R|
00002970: 45 49 4E 56 45 52 53 20 4C 44 41 20 24 30 34 00 |EINVERS LDA $04.|
00002980: 8E 31 24 1D 49 4E 56 45 52 53 20 50 48 41 00 96 |.1$.INVERS PHA..|
00002990: 31 2E 1D 43 4C 43 00 A2 31 38 1D 41 44 43 20 4C |1..CLC..18.ADC L|
000029A0: 4F EB 00 AA 31 42 1D 54 41 58 00 B2 31 4C 1D 44 |O...1B.TAX..1L.D|
000029B0: 45 58 00 C0 31 56 1D 4C 44 59 20 4C 4F 43 4F 4C |EX..1V.LDY LOCOL|
000029C0: 00 CD 31 60 1D 4A 53 52 20 53 43 52 B9 00 E2 31 |..1`.JSR SCR...1|
000029D0: 6A 1D 49 4E 56 45 52 53 30 20 4C 44 59 20 23 24 |j.INVERS0 LDY #$|
000029E0: 30 30 00 FB 31 74 1D 49 4E 56 45 52 53 31 20 4C |00..1t.INVERS1 L|
000029F0: 44 41 20 28 52 45 47 33 29 2C 59 00 08 32 7E 1D |DA (REG3),Y..2~.|
00002A00: 43 4D 50 20 23 24 37 35 00 18 32 88 1D 42 45 51 |CMP #$75..2..BEQ|
00002A10: 20 49 4E 56 45 52 53 32 00 25 32 92 1D 43 4D 50 | INVERS2.%2..CMP|
00002A20: 20 23 24 46 35 00 35 32 9C 1D 42 45 51 20 49 4E | #$F5.52..BEQ IN|
00002A30: 56 45 52 53 32 00 47 32 A6 1D 45 B0 20 23 25 31 |VERS2.G2..E. #%1|
00002A40: 30 30 30 30 30 30 30 00 58 32 B0 1D 53 54 41 20 |0000000.X2..STA |
00002A50: 28 52 45 47 33 29 2C 59 00 60 32 BA 1D 49 4E 59 |(REG3),Y.`2..INY|
00002A60: 00 70 32 C4 1D 42 4E 45 20 49 4E 56 45 52 53 31 |.p2..BNE INVERS1|
00002A70: 00 80 32 CE 1D 49 4E 56 45 52 53 32 20 50 4C 41 |..2..INVERS2 PLA|
00002A80: 00 8C 32 D8 1D 53 54 41 20 24 30 34 00 94 32 E2 |..2..STA $04..2.|
00002A90: 1D 52 54 53 00 9F 32 EC 1D 3B 20 53 55 52 45 00 |.RTS..2..; SURE.|
00002AA0: D0 32 F6 1D 3B 20 41 52 45 20 59 4F 55 20 53 55 |.2..; ARE YOU SU|
00002AB0: 52 45 AB 41 42 46 52 41 47 45 2C 20 41 B2 46 46 |RE.ABFRAGE, A.FF|
00002AC0: 20 B2 20 4E 4F 2C 20 41 B2 30 20 B2 20 59 45 53 | . NO, A.0 . YES|
00002AD0: 00 E2 32 00 1E 53 55 52 45 20 4C 44 41 20 23 24 |..2..SURE LDA #$|
00002AE0: 30 44 00 ED 32 0A 1E 53 54 41 20 57 57 00 FA 32 |0D..2..STA WW..2|
00002AF0: 14 1E 4C 44 41 20 23 24 30 45 00 05 33 1E 1E 53 |..LDA #$0E..3..S|
00002B00: 54 41 20 57 58 00 12 33 28 1E 4C 44 41 20 23 24 |TA WX..3(.LDA #$|
00002B10: 30 39 00 1D 33 32 1E 53 54 41 20 57 59 00 2A 33 |09..32.STA WY.*3|
00002B20: 3C 1E 4C 44 41 20 23 24 30 36 00 35 33 46 1E 53 |<.LDA #$06.53F.S|
00002B30: 54 41 20 57 48 00 44 33 50 1E 4C 44 41 20 23 B3 |TA WH.D3P.LDA #.|
00002B40: 5A 45 52 4F 00 53 33 5A 1E 4C 44 59 20 23 B1 5A |ZERO.S3Z.LDY #.Z|
00002B50: 45 52 4F 00 62 33 64 1E 4A 53 52 20 57 49 4E 44 |ERO.b3d.JSR WIND|
00002B60: 4F 57 00 72 33 6E 1E 4C 44 41 20 23 B3 53 55 52 |OW.r3n.LDA #.SUR|
00002B70: 45 54 00 82 33 78 1E 4C 44 59 20 23 B1 53 55 52 |ET..3x.LDY #.SUR|
00002B80: 45 54 00 8F 33 82 1E 4A 53 52 20 EC 4F 55 54 00 |ET..3..JSR .OUT.|
00002B90: A4 33 8C 1E 53 55 52 45 31 20 4A 53 52 20 57 34 |.3..SURE1 JSR W4|
00002BA0: 46 49 52 45 00 B4 33 96 1E 4A 53 52 20 41 4E 41 |FIRE..3..JSR ANA|
00002BB0: 4C 59 5A 45 00 C1 33 A0 1E 43 4D 50 20 23 24 30 |LYZE..3..CMP #$0|
00002BC0: 30 00 CF 33 AA 1E 42 45 51 20 53 55 52 45 31 00 |0..3..BEQ SURE1.|
00002BD0: DC 33 B4 1E 43 4D 50 20 23 24 46 46 00 EA 33 BE |.3..CMP #$FF..3.|
00002BE0: 1E 42 45 51 20 53 55 52 45 32 00 F7 33 C8 1E 43 |.BEQ SURE2..3..C|
00002BF0: 4D 50 20 23 24 30 33 00 05 34 D2 1E 42 43 43 20 |MP #$03..4..BCC |
00002C00: 53 55 52 45 31 00 11 34 DC 1E 4C 44 41 20 43 4F |SURE1..4..LDA CO|
00002C10: 4C 00 1E 34 E6 1E 43 4D 50 20 23 24 31 33 00 2C |L..4..CMP #$13.,|
00002C20: 34 F0 1E 42 43 43 20 53 55 52 45 31 00 39 34 FA |4..BCC SURE1.94.|
00002C30: 1E 43 4D 50 20 23 24 31 38 00 47 34 04 1F 42 43 |.CMP #$18.G4..BC|
00002C40: 53 20 53 55 52 45 31 00 54 34 0E 1F 4C 44 41 20 |S SURE1.T4..LDA |
00002C50: 23 24 30 30 00 62 34 18 1F 53 55 52 45 32 20 50 |#$00.b4..SURE2 P|
00002C60: 48 41 00 6F 34 22 1F 4A 53 52 20 53 43 52 A1 00 |HA.o4".JSR SCR..|
00002C70: 77 34 2C 1F 50 4C 41 00 7F 34 36 1F 52 54 53 00 |w4,.PLA..46.RTS.|
00002C80: B1 34 40 1F 53 55 52 45 54 20 2E C6 20 22 C1 52 |.4@.SURET .. ".R|
00002C90: 45 20 59 4F 55 20 53 55 52 45 3F 22 3A 2E 42 59 |E YOU SURE?":.BY|
00002CA0: 54 20 24 30 44 2C 24 30 44 2C 24 30 31 2C 24 30 |T $0D,$0D,$01,$0|
00002CB0: 34 00 D1 34 4A 1F 2E C6 20 22 B9 A3 A3 A3 B8 22 |4..4J... "....."|
00002CC0: 3A 2E 42 59 54 20 24 30 44 2C 24 30 31 2C 24 30 |:.BYT $0D,$01,$0|
00002CD0: 34 00 F1 34 54 1F 2E C6 20 22 B4 D9 45 53 B5 22 |4..4T... "..ES."|
00002CE0: 3A 2E 42 59 54 20 24 30 44 2C 24 30 31 2C 24 30 |:.BYT $0D,$01,$0|
00002CF0: 34 00 09 35 5E 1F 2E C6 20 22 AD A4 A4 A4 B3 22 |4..5^... "....."|
00002D00: 3A 2E 42 59 54 20 24 30 30 00 2B 35 68 1F 53 50 |:.BYT $00.+5h.SP|
00002D10: 4F 55 54 20 53 54 59 20 82 20 3B 20 42 49 4E 41 |OUT STY . ; BINA|
00002D20: 45 52 20 41 55 53 47 45 42 45 4E 00 38 35 72 1F |ER AUSGEBEN.85r.|
00002D30: 4C 44 59 20 23 24 30 38 00 47 35 7C 1F 53 50 4F |LDY #$08.G5|.SPO|
00002D40: 55 54 31 20 41 53 4C 00 53 35 86 1F 53 54 41 20 |UT1 ASL.S5..STA |
00002D50: B8 45 31 00 62 35 90 1F 42 43 43 20 53 50 4F 55 |.E1.b5..BCC SPOU|
00002D60: 54 32 00 6F 35 9A 1F 4C 44 41 20 23 22 12 22 00 |T2.o5..LDA #".".|
00002D70: 79 35 A4 1F 4A 53 52 20 99 00 8D 35 AE 1F 53 50 |y5..JSR ...5..SP|
00002D80: 4F 55 54 32 20 4C 44 41 20 23 22 AD 22 00 97 35 |OUT2 LDA #"."..5|
00002D90: B8 1F 4A 53 52 20 99 00 A4 35 C2 1F 4C 44 41 20 |..JSR ...5..LDA |
00002DA0: 23 22 92 22 00 AE 35 CC 1F 4A 53 52 20 99 00 BA |#"."..5..JSR ...|
00002DB0: 35 D6 1F 4C 44 41 20 B8 45 31 00 C2 35 E0 1F 44 |5..LDA .E1..5..D|
00002DC0: 45 59 00 D1 35 EA 1F 42 4E 45 20 53 50 4F 55 54 |EY..5..BNE SPOUT|
00002DD0: 31 00 DB 35 F4 1F 4C 44 59 20 82 00 E3 35 FE 1F |1..5..LDY ...5..|
00002DE0: 52 54 53 00 0C 36 08 20 53 50 52 49 54 45 4F 55 |RTS..6. SPRITEOU|
00002DF0: 54 20 4C 44 58 20 23 24 30 33 20 3B 20 53 50 52 |T LDX #$03 ; SPR|
00002E00: 49 54 45 20 41 55 53 47 45 42 45 4E 00 19 36 12 |ITE AUSGEBEN..6.|
00002E10: 20 4C 44 59 20 23 24 30 33 00 21 36 1C 20 43 4C | LDY #$03.!6. CL|
00002E20: 43 00 2B 36 26 20 4A 53 52 20 E9 00 38 36 30 20 |C.+6& JSR ..860 |
00002E30: 4C 44 59 20 23 24 30 30 00 50 36 3A 20 53 50 52 |LDY #$00.P6: SPR|
00002E40: 49 54 45 31 20 4C 44 41 20 24 30 33 34 30 2C 59 |ITE1 LDA $0340,Y|
00002E50: 00 5E 36 44 20 4A 53 52 20 53 50 4F 55 54 00 66 |.^6D JSR SPOUT.f|
00002E60: 36 4E 20 49 4E 59 00 76 36 58 20 4C 44 41 20 24 |6N INY.v6X LDA $|
00002E70: 30 33 34 30 2C 59 00 84 36 62 20 4A 53 52 20 53 |0340,Y..6b JSR S|
00002E80: 50 4F 55 54 00 8C 36 6C 20 49 4E 59 00 9C 36 76 |POUT..6l INY..6v|
00002E90: 20 4C 44 41 20 24 30 33 34 30 2C 59 00 AA 36 80 | LDA $0340,Y..6.|
00002EA0: 20 4A 53 52 20 53 50 4F 55 54 00 B2 36 8A 20 49 | JSR SPOUT..6. I|
00002EB0: 4E 59 00 BF 36 94 20 43 50 59 20 23 24 33 45 00 |NY..6. CPY #$3E.|
00002EC0: CF 36 9E 20 42 43 53 20 53 50 52 49 54 45 32 00 |.6. BCS SPRITE2.|
00002ED0: DC 36 A8 20 4C 44 41 20 23 24 30 44 00 EA 36 B2 |.6. LDA #$0D..6.|
00002EE0: 20 4A 53 52 20 24 46 46 44 32 00 FA 36 BC 20 4A | JSR $FFD2..6. J|
00002EF0: 4D 50 20 53 50 52 49 54 45 31 00 0A 37 C6 20 53 |MP SPRITE1..7. S|
00002F00: 50 52 49 54 45 32 20 52 54 53 00 1A 37 D0 20 3B |PRITE2 RTS..7. ;|
00002F10: 20 85 AB 52 4F 55 54 49 4E 45 00 5F 37 DA 20 3B | ..ROUTINE._7. ;|
00002F20: 20 49 4D 20 41 4B 54 55 4C C3 20 57 49 4E 44 4F | IM AKTUL. WINDO|
00002F30: 57 20 4E 41 43 48 20 24 30 32 30 30 20 28 4D 41 |W NACH $0200 (MA|
00002F40: 58 2E 20 34 30 20 5A 45 49 43 48 45 4E 29 2C 20 |X. 40 ZEICHEN), |
00002F50: 80 45 20 B2 20 30 2C 20 C3 20 B2 20 B8 45 31 00 |.E . 0, . . .E1.|
00002F60: 88 37 E4 20 3B 20 57 49 52 44 20 4D 49 54 20 46 |.7. ; WIRD MIT F|
00002F70: 45 55 45 52 20 42 45 80 45 54 2C 20 44 41 4E 4E |EUER BE.ET, DANN|
00002F80: 20 41 20 B2 20 24 46 46 00 97 37 EE 20 85 20 4C | A . $FF..7. . L|
00002F90: 44 41 20 23 24 30 30 00 A3 37 F8 20 53 54 41 20 |DA #$00..7. STA |
00002FA0: B8 45 31 00 AD 37 02 21 4A 53 52 20 99 00 BD 37 |.E1..7.!JSR ...7|
00002FB0: 0C 21 85 31 20 4C 44 41 20 23 24 30 30 00 C9 37 |.!.1 LDA #$00..7|
00002FC0: 16 21 53 54 41 20 24 43 43 00 D5 37 20 21 53 54 |.!STA $CC..7 !ST|
00002FD0: 41 20 24 43 36 00 E4 37 2A 21 85 32 20 4C 44 41 |A $C6..7*!.2 LDA|
00002FE0: 20 24 43 36 00 F0 37 34 21 42 4E 45 20 85 32 41 | $C6..74!BNE .2A|
00002FF0: 00 FD 37 3E 21 4C 44 41 20 46 49 52 45 00 08 38 |..7>!LDA FIRE..8|
00003000: 48 21 42 45 51 20 85 32 00 14 38 52 21 4A 4D 50 |H!BEQ .2..8R!JMP|
00003010: 20 85 80 46 00 22 38 5C 21 85 32 41 20 4A 53 52 | ..F."8\!.2A JSR|
00003020: 20 A1 00 2F 38 66 21 4C 44 59 20 23 24 30 32 00 | ../8f!LDY #$02.|
00003030: 3B 38 70 21 53 54 59 20 24 43 44 00 4A 38 7A 21 |;8p!STY $CD.J8z!|
00003040: 85 33 20 4C 44 59 20 24 43 46 00 55 38 84 21 42 |.3 LDY $CF.U8.!B|
00003050: 4E 45 20 85 33 00 5D 38 8E 21 49 4E 59 00 69 38 |NE .3.]8.!INY.i8|
00003060: 98 21 53 54 59 20 24 43 43 00 71 38 A2 21 44 45 |.!STY $CC.q8.!DE|
00003070: 59 00 7D 38 AC 21 53 54 41 20 B8 45 32 00 92 38 |Y.}8.!STA .E2..8|
00003080: B6 21 85 34 20 4C 44 41 20 81 42 49 44 44 45 4E |.!.4 LDA .BIDDEN|
00003090: 2C 59 00 9D 38 C0 21 42 45 51 20 85 35 00 A9 38 |,Y..8.!BEQ .5..8|
000030A0: CA 21 43 4D 50 20 B8 45 32 00 B4 38 D4 21 42 45 |.!CMP .E2..8.!BE|
000030B0: 51 20 85 31 00 BC 38 DE 21 49 4E 59 00 C7 38 E8 |Q .1..8.!INY..8.|
000030C0: 21 42 4E 45 20 85 34 00 D6 38 F2 21 85 35 20 4C |!BNE .4..8.!.5 L|
000030D0: 44 41 20 B8 45 32 00 E3 38 FC 21 43 4D 50 20 23 |DA .E2..8.!CMP #|
000030E0: 24 31 34 00 F0 38 06 22 42 45 51 20 85 44 45 4C |$14..8."BEQ .DEL|
000030F0: 00 FD 38 10 22 43 4D 50 20 23 24 30 44 00 08 39 |..8."CMP #$0D..9|
00003100: 1A 22 42 45 51 20 85 80 00 13 39 24 22 4C 44 59 |."BEQ ....9$"LDY|
00003110: 20 57 57 00 1B 39 2E 22 44 45 59 00 27 39 38 22 | WW..9."DEY.'98"|
00003120: 43 50 59 20 B8 45 31 00 32 39 42 22 42 45 51 20 |CPY .E1.29B"BEQ |
00003130: 85 31 00 3E 39 4C 22 4C 44 41 20 B8 45 32 00 4A |.1.>9L"LDA .E2.J|
00003140: 39 56 22 4C 44 59 20 B8 45 31 00 5A 39 60 22 53 |9V"LDY .E1.Z9`"S|
00003150: 54 41 20 24 30 32 30 30 2C 59 00 64 39 6A 22 4A |TA $0200,Y.d9j"J|
00003160: 53 52 20 99 00 70 39 74 22 49 4E 43 20 B8 45 31 |SR ..p9t"INC .E1|
00003170: 00 7B 39 7E 22 4A 4D 50 20 85 31 00 8C 39 88 22 |.{9~"JMP .1..9."|
00003180: 85 44 45 4C 20 4C 44 41 20 B8 45 31 00 97 39 92 |.DEL LDA .E1..9.|
00003190: 22 42 45 51 20 85 31 00 A3 39 9C 22 44 45 43 20 |"BEQ .1..9."DEC |
000031A0: B8 45 31 00 B0 39 A6 22 4C 44 41 20 23 22 9D 22 |.E1..9."LDA #"."|
000031B0: 00 BA 39 B0 22 4A 53 52 20 99 00 C8 39 BA 22 4A |..9."JSR ...9."J|
000031C0: 53 52 20 53 50 41 43 45 00 D5 39 C4 22 4C 44 41 |SR SPACE..9."LDA|
000031D0: 20 23 22 9D 22 00 DF 39 CE 22 4A 53 52 20 99 00 | #"."..9."JSR ..|
000031E0: EA 39 D8 22 4A 4D 50 20 85 31 00 F9 39 E2 22 85 |.9."JMP .1..9.".|
000031F0: 80 20 4C 44 59 20 B8 45 31 00 06 3A EC 22 4C 44 |. LDY .E1..:."LD|
00003200: 41 20 23 24 30 30 00 16 3A F6 22 53 54 41 20 24 |A #$00..:."STA $|
00003210: 30 32 30 30 2C 59 00 23 3A 00 23 4C 44 41 20 23 |0200,Y.#:.#LDA #|
00003220: 24 30 31 00 2F 3A 0A 23 53 54 41 20 24 43 43 00 |$01./:.#STA $CC.|
00003230: 37 3A 14 23 52 54 53 00 48 3A 1E 23 85 80 46 20 |7:.#RTS.H:.#..F |
00003240: 4C 44 41 20 46 49 52 45 00 54 3A 28 23 42 4E 45 |LDA FIRE.T:(#BNE|
00003250: 20 85 80 46 00 60 3A 32 23 4C 44 59 20 B8 45 31 | ..F.`:2#LDY .E1|
00003260: 00 6D 3A 3C 23 4C 44 41 20 23 24 30 30 00 7D 3A |.m:<#LDA #$00.}:|
00003270: 46 23 53 54 41 20 24 30 32 30 30 2C 59 00 8A 3A |F#STA $0200,Y..:|
00003280: 50 23 4C 44 41 20 23 24 46 46 00 96 3A 5A 23 53 |P#LDA #$FF..:Z#S|
00003290: 54 41 20 24 43 43 00 9E 3A 64 23 52 54 53 00 E2 |TA $CC..:d#RTS..|
000032A0: 3A 6E 23 81 42 49 44 44 45 4E 20 2E C6 20 22 11 |:n#.BIDDEN .. ".|
000032B0: 91 1D 9D 94 13 93 85 86 87 88 8C 8B 8A 89 90 05 |................|
000032C0: 1C 9F 9C 1E 1F 9E 12 92 81 95 96 97 98 99 9A 9B |................|
000032D0: 22 3A 2E 42 59 54 20 24 38 44 2C 24 32 32 2C 24 |":.BYT $8D,$22,$|
000032E0: 30 30 00 13 3B 78 23 4E 41 4D 45 57 49 4E 44 4F |00..;x#NAMEWINDO|
000032F0: 57 20 4C 44 41 20 23 24 30 44 20 3B 20 57 49 4E |W LDA #$0D ; WIN|
00003300: 44 4F 57 20 46 55 45 52 20 46 49 C3 41 4D 45 20 |DOW FUER FI.AME |
00003310: 55 53 57 00 1E 3B 82 23 53 54 41 20 57 58 00 29 |USW..;.#STA WX.)|
00003320: 3B 8C 23 53 54 41 20 57 59 00 36 3B 96 23 4C 44 |;.#STA WY.6;.#LD|
00003330: 41 20 23 24 31 31 00 41 3B A0 23 53 54 41 20 57 |A #$11.A;.#STA W|
00003340: 57 00 4E 3B AA 23 4C 44 41 20 23 24 30 36 00 59 |W.N;.#LDA #$06.Y|
00003350: 3B B4 23 53 54 41 20 57 48 00 6E 3B BE 23 4C 44 |;.#STA WH.n;.#LD|
00003360: 41 20 23 B3 4E 41 4D 45 57 49 4E 44 54 49 00 83 |A #.NAMEWINDTI..|
00003370: 3B C8 23 4C 44 59 20 23 B1 4E 41 4D 45 57 49 4E |;.#LDY #.NAMEWIN|
00003380: 44 54 49 00 92 3B D2 23 4A 53 52 20 57 49 4E 44 |DTI..;.#JSR WIND|
00003390: 4F 57 00 A6 3B DC 23 4C 44 41 20 23 B3 4E 41 4D |OW..;.#LDA #.NAM|
000033A0: 45 57 49 4E 44 54 00 BA 3B E6 23 4C 44 59 20 23 |EWINDT..;.#LDY #|
000033B0: B1 4E 41 4D 45 57 49 4E 44 54 00 C7 3B F0 23 4A |.NAMEWINDT..;.#J|
000033C0: 53 52 20 EC 4F 55 54 00 D1 3B FA 23 4A 53 52 20 |SR .OUT..;.#JSR |
000033D0: 85 00 DE 3B 04 24 43 4D 50 20 23 24 46 46 00 F0 |...;.$CMP #$FF..|
000033E0: 3B 0E 24 42 4E 45 20 4E 41 4D 45 57 49 4E 44 31 |;.$BNE NAMEWIND1|
000033F0: 00 FC 3B 18 24 4C 44 41 20 B8 45 31 00 0E 3C 22 |..;.$LDA .E1..<"|
00003400: 24 42 45 51 20 4E 41 4D 45 57 49 4E 44 30 00 1A |$BEQ NAMEWIND0..|
00003410: 3C 2C 24 4C 44 41 20 B8 45 31 00 22 3C 36 24 50 |<,$LDA .E1."<6$P|
00003420: 48 41 00 32 3C 40 24 4A 53 52 20 41 4E 41 4C 59 |HA.2<@$JSR ANALY|
00003430: 5A 45 00 3A 3C 4A 24 50 4C 41 00 46 3C 54 24 53 |ZE.:<J$PLA.F<T$S|
00003440: 54 41 20 B8 45 31 00 53 3C 5E 24 43 4D 50 20 23 |TA .E1.S<^$CMP #|
00003450: 24 46 46 00 65 3C 68 24 42 4E 45 20 4E 41 4D 45 |$FF.e<h$BNE NAME|
00003460: 57 49 4E 44 31 00 7E 3C 72 24 4E 41 4D 45 57 49 |WIND1.~<r$NAMEWI|
00003470: 4E 44 4F 57 32 20 2E 42 59 54 20 24 32 43 00 95 |NDOW2 .BYT $2C..|
00003480: 3C 7C 24 4E 41 4D 45 57 49 4E 44 31 20 4C 44 41 |<|$NAMEWIND1 LDA|
00003490: 20 23 24 30 30 00 9D 3C 86 24 50 48 41 00 AA 3C | #$00..<.$PHA..<|
000034A0: 90 24 4A 53 52 20 53 43 52 A1 00 B2 3C 9A 24 50 |.$JSR SCR...<.$P|
000034B0: 4C 41 00 BA 3C A4 24 52 54 53 00 D1 3C AE 24 4E |LA..<.$RTS..<.$N|
000034C0: 41 4D 45 57 49 4E 44 30 20 4C 44 41 20 23 24 46 |AMEWIND0 LDA #$F|
000034D0: 46 00 E5 3C B8 24 42 4E 45 20 4E 41 4D 45 57 49 |F..<.$BNE NAMEWI|
000034E0: 4E 44 4F 57 32 00 0C 3D C2 24 4E 41 4D 45 57 49 |NDOW2..=.$NAMEWI|
000034F0: 4E 44 54 49 20 2E C6 20 22 D2 45 51 55 45 53 54 |NDTI .. ".EQUEST|
00003500: 45 52 22 3A 2E 42 59 54 20 24 30 30 00 3E 3D CC |ER":.BYT $00.>=.|
00003510: 24 4E 41 4D 45 57 49 4E 44 54 20 2E C6 20 22 D0 |$NAMEWINDT .. ".|
00003520: 4C 45 41 53 45 20 45 4E 54 45 52 20 CE 41 4D 45 |LEASE ENTER .AME|
00003530: 22 3A 2E 42 59 54 20 24 30 44 2C 24 30 44 00 6A |":.BYT $0D,$0D.j|
00003540: 3D D6 24 2E C6 20 22 46 4F 52 20 C4 49 53 43 4F |=.$.. "FOR .ISCO|
00003550: 50 45 52 41 54 49 4F 4E 22 3A 2E 42 59 54 20 24 |PERATION":.BYT $|
00003560: 30 44 2C 24 30 44 2C 24 30 30 00 73 3D E0 24 3B |0D,$0D,$00.s=.$;|
00003570: 20 D3 A1 00 AF 3D EA 24 3B 20 D3 45 43 A4 52 59 | ....=.$; .EC.RY|
00003580: 20 49 4D 20 42 41 53 49 43 50 52 47 AB 81 4D 41 | IM BASICPRG..MA|
00003590: 54 20 4E 41 43 48 20 24 41 30 30 30 20 28 50 55 |T NACH $A000 (PU|
000035A0: 46 46 45 52 20 42 49 53 20 24 41 43 30 30 29 00 |FFER BIS $AC00).|
000035B0: C3 3D F4 24 53 54 52 49 4E 47 20 2E 42 59 54 20 |.=.$STRING .BYT |
000035C0: 22 24 22 00 D3 3D FE 24 D3 A1 20 4C 44 41 20 23 |"$"..=.$.. LDA #|
000035D0: 24 30 31 00 E4 3D 08 25 4C 44 58 20 23 B3 53 54 |$01..=.%LDX #.ST|
000035E0: 52 49 4E 47 00 F5 3D 12 25 4C 44 59 20 23 B1 53 |RING..=.%LDY #.S|
000035F0: 54 52 49 4E 47 00 05 3E 1C 25 D3 A1 30 20 4A 53 |TRING..>.%..0 JS|
00003600: 52 20 44 47 31 00 12 3E 26 25 4C 44 58 20 23 24 |R DG1..>&%LDX #$|
00003610: 30 38 00 1A 3E 30 25 54 58 41 00 27 3E 3A 25 4C |08..>0%TXA.'>:%L|
00003620: 44 59 20 23 24 30 30 00 36 3E 44 25 4A 53 52 20 |DY #$00.6>D%JSR |
00003630: 53 45 54 46 4C 53 00 40 3E 4E 25 4A 53 52 20 9F |SETFLS.@>N%JSR .|
00003640: 00 4D 3E 58 25 4C 44 58 20 23 24 30 38 00 5B 3E |.M>X%LDX #$08.[>|
00003650: 62 25 4A 53 52 20 43 48 4B 49 4E 00 68 3E 6C 25 |b%JSR CHKIN.h>l%|
00003660: 4C 44 41 20 23 24 30 30 00 74 3E 76 25 53 54 41 |LDA #$00.t>v%STA|
00003670: 20 24 39 30 00 84 3E 80 25 4C 44 41 20 23 B3 24 | $90..>.%LDA #.$|
00003680: 41 30 30 30 00 91 3E 8A 25 53 54 41 20 57 B0 44 |A000..>.%STA W.D|
00003690: 31 00 A1 3E 94 25 4C 44 41 20 23 B1 24 41 30 30 |1..>.%LDA #.$A00|
000036A0: 30 00 B0 3E 9E 25 53 54 41 20 57 B0 44 31 AA 31 |0..>.%STA W.D1.1|
000036B0: 00 C0 3E A8 25 D3 A1 31 20 4A 53 52 20 52 4F 4D |..>.%..1 JSR ROM|
000036C0: 00 CC 3E B2 25 4A 53 52 20 42 41 BF 00 D8 3E BC |..>.%JSR BA...>.|
000036D0: 25 4C 44 58 20 24 39 30 00 E4 3E C6 25 42 4E 45 |%LDX $90..>.%BNE|
000036E0: 20 D3 A1 32 00 F0 3E D0 25 4A 53 52 20 52 41 4D | ..2..>.%JSR RAM|
000036F0: 00 FD 3E DA 25 4C 44 59 20 23 24 30 30 00 0E 3F |..>.%LDY #$00..?|
00003700: E4 25 53 54 41 20 28 57 B0 44 31 29 2C 59 00 1D |.%STA (W.D1),Y..|
00003710: 3F EE 25 4A 53 52 20 57 B0 44 49 4E 43 00 29 3F |?.%JSR W.DINC.)?|
00003720: F8 25 4A 4D 50 20 D3 A1 31 00 39 3F 02 26 D3 A1 |.%JMP ..1.9?.&..|
00003730: 32 20 4A 53 52 20 9C 43 48 00 46 3F 0C 26 4C 44 |2 JSR .CH.F?.&LD|
00003740: 41 20 23 24 30 38 00 52 3F 16 26 4A 53 52 20 44 |A #$08.R?.&JSR D|
00003750: 47 32 00 5F 3F 20 26 4C 44 41 20 57 B0 44 31 00 |G2._? &LDA W.D1.|
00003760: 6B 3F 2A 26 4A 53 52 20 52 41 4D 00 79 3F 34 26 |k?*&JSR RAM.y?4&|
00003770: 53 54 41 20 24 41 30 30 30 00 88 3F 3E 26 4C 44 |STA $A000..?>&LD|
00003780: 41 20 57 B0 44 31 AA 31 00 96 3F 48 26 53 54 41 |A W.D1.1..?H&STA|
00003790: 20 24 41 30 30 31 00 A2 3F 52 26 4A 4D 50 20 52 | $A001..?R&JMP R|
000037A0: 4F 4D 00 B7 3F 5C 26 53 50 52 49 54 45 94 20 4C |OM..?\&SPRITE. L|
000037B0: 44 59 20 23 24 34 30 00 D0 3F 66 26 53 50 52 49 |DY #$40..?f&SPRI|
000037C0: 54 45 94 31 20 4C 44 41 20 24 30 33 34 30 2C 59 |TE.1 LDA $0340,Y|
000037D0: 00 E4 3F 70 26 53 54 41 20 42 55 46 42 45 47 AA |..?p&STA BUFBEG.|
000037E0: 31 30 2C 59 00 EC 3F 7A 26 44 45 59 00 FD 3F 84 |10,Y..?z&DEY..?.|
000037F0: 26 42 50 4C 20 53 50 52 49 54 45 94 31 00 05 40 |&BPL SPRITE.1..@|
00003800: 8E 26 52 54 53 00 1A 40 98 26 53 50 52 49 54 45 |.&RTS..@.&SPRITE|
00003810: A1 20 4C 44 59 20 23 24 34 30 00 37 40 A2 26 53 |. LDY #$40.7@.&S|
00003820: 50 52 49 54 45 A1 31 20 4C 44 41 20 42 55 46 42 |PRITE.1 LDA BUFB|
00003830: 45 47 AA 31 30 2C 59 00 47 40 AC 26 53 54 41 20 |EG.10,Y.G@.&STA |
00003840: 24 30 33 34 30 2C 59 00 4F 40 B6 26 44 45 59 00 |$0340,Y.O@.&DEY.|
00003850: 60 40 C0 26 42 50 4C 20 53 50 52 49 54 45 A1 31 |`@.&BPL SPRITE.1|
00003860: 00 68 40 CA 26 52 54 53 00 76 40 D4 26 3B 20 46 |.h@.&RTS.v@.&; F|
00003870: 49 4C 45 4F 55 54 00 8C 40 DE 26 3B 20 47 49 42 |ILEOUT..@.&; GIB|
00003880: 54 20 46 49 4C 45 20 58 20 41 55 53 00 A1 40 E8 |T FILE X AUS..@.|
00003890: 26 46 49 4C 45 4F 55 54 20 4C 44 59 20 23 24 30 |&FILEOUT LDY #$0|
000038A0: 30 00 AE 40 F2 26 4C 44 41 20 23 24 32 30 00 B8 |0..@.&LDA #$20..|
000038B0: 40 FC 26 4A 53 52 20 E7 00 C8 40 06 27 4C 44 41 |@.&JSR ...@.'LDA|
000038C0: 20 23 B3 24 41 30 30 32 00 D0 40 10 27 43 4C 43 | #.$A002..@.'CLC|
000038D0: 00 DD 40 1A 27 41 44 43 20 52 45 47 33 00 EA 40 |..@.'ADC REG3..@|
000038E0: 24 27 53 54 41 20 52 45 47 33 00 FA 40 2E 27 4C |$'STA REG3..@.'L|
000038F0: 44 41 20 23 B1 24 41 30 30 32 00 07 41 38 27 41 |DA #.$A002..A8'A|
00003900: 44 43 20 52 45 47 34 00 14 41 42 27 53 54 41 20 |DC REG4..AB'STA |
00003910: 52 45 47 34 00 21 41 4C 27 4C 44 59 20 23 24 30 |REG4.!AL'LDY #$0|
00003920: 32 00 2D 41 56 27 4A 53 52 20 52 41 4D 00 47 41 |2.-AV'JSR RAM.GA|
00003930: 60 27 46 49 4C 45 4F 55 54 30 20 4C 44 41 20 28 |`'FILEOUT0 LDA (|
00003940: 52 45 47 33 29 2C 59 00 54 41 6A 27 43 4D 50 20 |REG3),Y.TAj'CMP |
00003950: 23 22 20 22 00 65 41 74 27 42 4E 45 20 46 49 4C |#" ".eAt'BNE FIL|
00003960: 45 4F 55 54 31 00 6D 41 7E 27 49 4E 59 00 7E 41 |EOUT1.mA~'INY.~A|
00003970: 88 27 42 4E 45 20 46 49 4C 45 4F 55 54 30 00 93 |.'BNE FILEOUT0..|
00003980: 41 92 27 46 49 4C 45 4F 55 54 31 20 4A 53 52 20 |A.'FILEOUT1 JSR |
00003990: 52 41 4D 00 A4 41 9C 27 4C 44 41 20 28 52 45 47 |RAM..A.'LDA (REG|
000039A0: 33 29 2C 59 00 AC 41 A6 27 49 4E 59 00 B8 41 B0 |3),Y..A.'INY..A.|
000039B0: 27 53 54 41 20 B8 45 31 00 C5 41 BA 27 4C 44 58 |'STA .E1..A.'LDX|
000039C0: 20 23 24 30 30 00 E0 41 C4 27 46 49 4C 45 4F 55 | #$00..A.'FILEOU|
000039D0: 54 32 20 4C 44 41 20 81 42 49 44 44 45 4E 2C 58 |T2 LDA .BIDDEN,X|
000039E0: 00 F1 41 CE 27 42 45 51 20 46 49 4C 45 4F 55 54 |..A.'BEQ FILEOUT|
000039F0: 33 00 FD 41 D8 27 43 4D 50 20 B8 45 31 00 0E 42 |3..A.'CMP .E1..B|
00003A00: E2 27 42 45 51 20 46 49 4C 45 4F 55 54 31 00 16 |.'BEQ FILEOUT1..|
00003A10: 42 EC 27 49 4E 58 00 27 42 F6 27 42 4E 45 20 46 |B.'INX.'B.'BNE F|
00003A20: 49 4C 45 4F 55 54 32 00 3C 42 00 28 46 49 4C 45 |ILEOUT2.<B.(FILE|
00003A30: 4F 55 54 33 20 4C 44 41 20 B8 45 31 00 48 42 0A |OUT3 LDA .E1.HB.|
00003A40: 28 4A 53 52 20 52 4F 4D 00 52 42 14 28 4A 53 52 |(JSR ROM.RB.(JSR|
00003A50: 20 99 00 5F 42 1E 28 43 50 59 20 23 24 31 45 00 | .._B.(CPY #$1E.|
00003A60: 70 42 28 28 42 4E 45 20 46 49 4C 45 4F 55 54 31 |pB((BNE FILEOUT1|
00003A70: 00 7C 42 32 28 4C 44 58 20 24 44 36 00 89 42 3C |.|B2(LDX $D6..B<|
00003A80: 28 4C 44 59 20 23 24 31 41 00 91 42 46 28 43 4C |(LDY #$1A..BF(CL|
00003A90: 43 00 9B 42 50 28 4A 53 52 20 E9 00 A8 42 5A 28 |C..BP(JSR ...BZ(|
00003AA0: 4C 44 59 20 23 24 30 30 00 B4 42 64 28 4A 53 52 |LDY #$00..Bd(JSR|
00003AB0: 20 52 41 4D 00 C5 42 6E 28 4C 44 41 20 28 52 45 | RAM..Bn(LDA (RE|
00003AC0: 47 33 29 2C 59 00 CD 42 78 28 54 41 58 00 D5 42 |G3),Y..Bx(TAX..B|
00003AD0: 82 28 49 4E 59 00 E6 42 8C 28 4C 44 41 20 28 52 |.(INY..B.(LDA (R|
00003AE0: 45 47 33 29 2C 59 00 F1 42 96 28 AF 20 23 24 30 |EG3),Y..B.(. #$0|
00003AF0: 32 00 FD 42 A0 28 4A 53 52 20 52 4F 4D 00 0A 43 |2..B.(JSR ROM..C|
00003B00: AA 28 4A 53 52 20 EB 50 52 54 00 17 43 B4 28 4C |.(JSR .PRT..C.(L|
00003B10: 44 41 20 23 24 30 44 00 21 43 BE 28 4A 4D 50 20 |DA #$0D.!C.(JMP |
00003B20: 99 00 36 43 C8 28 3B 20 46 49 C3 52 20 20 4E 41 |..6C.(; FI.R NA|
00003B30: 43 48 20 4D 41 58 00 48 43 D2 28 46 49 C3 52 20 |CH MAX.HC.(FI.R |
00003B40: 4C 44 41 20 57 B0 44 31 00 50 43 DC 28 53 45 43 |LDA W.D1.PC.(SEC|
00003B50: 00 60 43 E6 28 53 42 43 20 23 B3 24 41 30 30 30 |.`C.(SBC #.$A000|
00003B60: 00 6D 43 F0 28 53 54 41 20 57 B0 44 31 00 7C 43 |.mC.(STA W.D1.|C|
00003B70: FA 28 4C 44 41 20 57 B0 44 31 AA 31 00 8C 43 04 |.(LDA W.D1.1..C.|
00003B80: 29 53 42 43 20 23 B1 24 41 30 30 30 00 9B 43 0E |)SBC #.$A000..C.|
00003B90: 29 53 54 41 20 57 B0 44 31 AA 31 00 A8 43 18 29 |)STA W.D1.1..C.)|
00003BA0: 43 4D 50 20 23 24 30 30 00 B6 43 22 29 42 4E 45 |CMP #$00..C")BNE|
00003BB0: 20 46 49 C3 52 31 00 C3 43 2C 29 4C 44 41 20 57 | FI.R1..C,)LDA W|
00003BC0: B0 44 31 00 D0 43 36 29 43 4D 50 20 23 24 34 30 |.D1..C6)CMP #$40|
00003BD0: 00 DE 43 40 29 42 43 53 20 46 49 C3 52 31 00 EB |..C@)BCS FI.R1..|
00003BE0: 43 4A 29 4C 44 58 20 23 24 30 30 00 F9 43 54 29 |CJ)LDX #$00..CT)|
00003BF0: 42 45 51 20 46 49 C3 52 32 00 0C 44 5E 29 46 49 |BEQ FI.R2..D^)FI|
00003C00: C3 52 31 20 4C 44 41 20 23 24 30 30 00 19 44 68 |.R1 LDA #$00..Dh|
00003C10: 29 53 54 41 20 52 45 47 32 00 26 44 72 29 4C 44 |)STA REG2.&Dr)LD|
00003C20: 41 20 23 24 32 30 00 33 44 7C 29 53 54 41 20 52 |A #$20.3D|)STA R|
00003C30: 45 47 31 00 40 44 86 29 4C 44 41 20 57 B0 44 31 |EG1.@D.)LDA W.D1|
00003C40: 00 4F 44 90 29 4C 44 59 20 57 B0 44 31 AA 31 00 |.OD.)LDY W.D1.1.|
00003C50: 5E 44 9A 29 4A 53 52 20 44 49 56 49 44 45 00 6B |^D.)JSR DIVIDE.k|
00003C60: 44 A4 29 4C 44 58 20 52 45 47 33 00 73 44 AE 29 |D.)LDX REG3.sD.)|
00003C70: 44 45 58 00 85 44 B8 29 46 49 C3 52 32 20 53 54 |DEX..D.)FI.R2 ST|
00003C80: 58 20 4D 41 58 00 8D 44 C2 29 52 54 53 00 BC 44 |X MAX..D.)RTS..D|
00003C90: CC 29 3B 20 D3 45 43 A4 52 59 20 41 55 53 47 45 |.); .EC.RY AUSGE|
00003CA0: 42 45 4E 20 55 4E 44 20 41 55 46 20 41 4E 4B 4C |BEN UND AUF ANKL|
00003CB0: 49 43 4B 45 4E 20 57 41 52 54 45 4E 00 D0 44 D6 |ICKEN WARTEN..D.|
00003CC0: 29 D3 45 43 A4 52 59 20 4A 53 52 20 46 49 C3 52 |).EC.RY JSR FI.R|
00003CD0: 00 DD 44 E0 29 4C 44 41 20 23 24 31 39 00 E8 44 |..D.)LDA #$19..D|
00003CE0: EA 29 53 54 41 20 57 57 00 F5 44 F4 29 4C 44 41 |.)STA WW..D.)LDA|
00003CF0: 20 23 24 30 33 00 00 45 FE 29 53 54 41 20 57 59 | #$03..E.)STA WY|
00003D00: 00 0B 45 08 2A 53 54 41 20 57 58 00 18 45 12 2A |..E.*STA WX..E.*|
00003D10: 4C 44 41 20 23 24 31 33 00 23 45 1C 2A 53 54 41 |LDA #$13.#E.*STA|
00003D20: 20 57 48 00 30 45 26 2A 4C 44 59 20 23 24 30 30 | WH.0E&*LDY #$00|
00003D30: 00 3C 45 30 2A 4A 53 52 20 52 41 4D 00 54 45 3A |.<E0*JSR RAM.TE:|
00003D40: 2A D3 45 43 A4 52 59 31 20 4C 44 41 20 24 41 30 |*.EC.RY1 LDA $A0|
00003D50: 30 38 2C 59 00 64 45 44 2A 53 54 41 20 24 30 32 |08,Y.dED*STA $02|
00003D60: 30 30 2C 59 00 6C 45 4E 2A 49 4E 59 00 79 45 58 |00,Y.lEN*INY.yEX|
00003D70: 2A 43 50 59 20 23 24 31 30 00 89 45 62 2A 42 4E |*CPY #$10..Eb*BN|
00003D80: 45 20 D3 45 43 A4 52 59 31 00 96 45 6C 2A 4C 44 |E .EC.RY1..El*LD|
00003D90: 41 20 23 24 30 30 00 A6 45 76 2A 53 54 41 20 24 |A #$00..Ev*STA $|
00003DA0: 30 32 30 30 2C 59 00 B6 45 80 2A 4C 44 41 20 23 |0200,Y..E.*LDA #|
00003DB0: B3 24 30 32 30 30 00 C6 45 8A 2A 4C 44 59 20 23 |.$0200..E.*LDY #|
00003DC0: B1 24 30 32 30 30 00 D5 45 94 2A 4A 53 52 20 57 |.$0200..E.*JSR W|
00003DD0: 49 4E 44 4F 57 00 E2 45 9E 2A 4C 44 41 20 23 24 |INDOW..E.*LDA #$|
00003DE0: 37 36 00 F0 45 A8 2A 53 54 41 20 24 30 34 39 32 |76..E.*STA $0492|
00003DF0: 00 FD 45 B2 2A 4C 44 41 20 23 24 37 37 00 0B 46 |..E.*LDA #$77..F|
00003E00: BC 2A 53 54 41 20 24 30 34 39 34 00 19 46 C6 2A |.*STA $0494..F.*|
00003E10: 4C 44 41 20 23 B3 42 B8 45 00 27 46 D0 2A 4C 44 |LDA #.B.E.'F.*LD|
00003E20: 59 20 23 B1 42 B8 45 00 34 46 DA 2A 4A 53 52 20 |Y #.B.E.4F.*JSR |
00003E30: EC 4F 55 54 00 40 46 E4 2A 4A 53 52 20 52 41 4D |.OUT.@F.*JSR RAM|
00003E40: 00 4E 46 EE 2A 4C 44 41 20 24 41 30 30 30 00 56 |.NF.*LDA $A000.V|
00003E50: 46 F8 2A 53 45 43 00 63 46 02 2B 53 42 43 20 23 |F.*SEC.cF.+SBC #|
00003E60: 24 31 46 00 70 46 0C 2B 53 54 41 20 57 B0 44 31 |$1F.pF.+STA W.D1|
00003E70: 00 7E 46 16 2B 4C 44 41 20 24 41 30 30 31 00 8B |.~F.+LDA $A001..|
00003E80: 46 20 2B 53 42 43 20 23 24 30 30 00 9A 46 2A 2B |F +SBC #$00..F*+|
00003E90: 53 54 41 20 57 B0 44 31 AA 31 00 A7 46 34 2B 4C |STA W.D1.1..F4+L|
00003EA0: 44 59 20 23 24 30 32 00 B8 46 3E 2B 4C 44 41 20 |DY #$02..F>+LDA |
00003EB0: 28 57 B0 44 31 29 2C 59 00 C0 46 48 2B 54 41 58 |(W.D1),Y..FH+TAX|
00003EC0: 00 C8 46 52 2B 49 4E 59 00 D9 46 5C 2B 4C 44 41 |..FR+INY..F\+LDA|
00003ED0: 20 28 57 B0 44 31 29 2C 59 00 E4 46 66 2B AF 20 | (W.D1),Y..Ff+. |
00003EE0: 23 24 30 33 00 F0 46 70 2B 53 54 58 20 B8 45 31 |#$03..Fp+STX .E1|
00003EF0: 00 FC 46 7A 2B 53 54 41 20 B8 45 32 00 08 47 84 |..Fz+STA .E2..G.|
00003F00: 2B 4A 53 52 20 52 4F 4D 00 15 47 8E 2B 4A 53 52 |+JSR ROM..G.+JSR|
00003F10: 20 EB 50 52 54 00 25 47 98 2B 4C 44 41 20 23 B3 | .PRT.%G.+LDA #.|
00003F20: 42 55 53 45 44 00 35 47 A2 2B 4C 44 59 20 23 B1 |BUSED.5G.+LDY #.|
00003F30: 42 55 53 45 44 00 42 47 AC 2B 4A 53 52 20 EC 4F |BUSED.BG.+JSR .O|
00003F40: 55 54 00 50 47 B6 2B 4C 44 41 20 23 B3 36 36 34 |UT.PG.+LDA #.664|
00003F50: 00 58 47 C0 2B 53 45 43 00 64 47 CA 2B 53 42 43 |.XG.+SEC.dG.+SBC|
00003F60: 20 B8 45 31 00 6C 47 D4 2B 54 41 58 00 7A 47 DE | .E1.lG.+TAX.zG.|
00003F70: 2B 4C 44 41 20 23 B1 36 36 34 00 86 47 E8 2B 53 |+LDA #.664..G.+S|
00003F80: 42 43 20 B8 45 32 00 93 47 F2 2B 4A 53 52 20 EB |BC .E2..G.+JSR .|
00003F90: 50 52 54 00 9F 47 FC 2B 49 4E 43 20 4C 4F EB 00 |PRT..G.+INC LO..|
00003FA0: AB 47 06 2C 49 4E 43 20 4C 4F EB 00 B7 47 10 2C |.G.,INC LO...G.,|
00003FB0: 4C 44 41 20 4D 41 58 00 DA 47 1A 2C 42 45 51 20 |LDA MAX..G.,BEQ |
00003FC0: D3 45 43 A4 52 59 80 20 3B 20 4E 55 4C 4C 20 46 |.EC.RY. ; NULL F|
00003FD0: 49 4C 45 53 20 B2 B1 20 80 45 00 E7 47 24 2C 43 |ILES .. .E..G$,C|
00003FE0: 4D 50 20 23 24 31 31 00 F7 47 2E 2C 42 43 53 20 |MP #$11..G.,BCS |
00003FF0: D3 45 43 A4 52 59 33 00 06 48 38 2C 53 54 41 20 |.EC.RY3..H8,STA |
00004000: 42 55 46 42 45 47 00 13 48 42 2C 4C 44 58 20 23 |BUFBEG..HB,LDX #|
00004010: 24 30 31 00 2C 48 4C 2C D3 45 43 A4 52 59 34 20 |$01.,HL,.EC.RY4 |
00004020: 53 54 58 20 42 55 46 42 45 47 AA 31 00 3C 48 56 |STX BUFBEG.1.<HV|
00004030: 2C 4A 53 52 20 46 49 4C 45 4F 55 54 00 4B 48 60 |,JSR FILEOUT.KH`|
00004040: 2C 44 45 43 20 42 55 46 42 45 47 00 5B 48 6A 2C |,DEC BUFBEG.[Hj,|
00004050: 42 45 51 20 D3 45 43 A4 52 59 35 00 6C 48 74 2C |BEQ .EC.RY5.lHt,|
00004060: 4C 44 58 20 42 55 46 42 45 47 AA 31 00 74 48 7E |LDX BUFBEG.1.tH~|
00004070: 2C 49 4E 58 00 84 48 88 2C 42 4E 45 20 D3 45 43 |,INX..H.,BNE .EC|
00004080: A4 52 59 34 00 9B 48 92 2C D3 45 43 A4 52 59 35 |.RY4..H.,.EC.RY5|
00004090: 20 4A 53 52 20 57 34 46 49 52 45 00 AB 48 9C 2C | JSR W4FIRE..H.,|
000040A0: 4A 53 52 20 41 4E 41 4C 59 5A 45 00 B8 48 A6 2C |JSR ANALYZE..H.,|
000040B0: 43 4D 50 20 23 24 30 30 00 C8 48 B0 2C 42 45 51 |CMP #$00..H.,BEQ|
000040C0: 20 D3 45 43 A4 52 59 35 00 D5 48 BA 2C 43 4D 50 | .EC.RY5..H.,CMP|
000040D0: 20 23 24 46 46 00 E5 48 C4 2C 42 4E 45 20 D3 45 | #$FF..H.,BNE .E|
000040E0: 43 A4 52 59 36 00 FA 48 CE 2C D3 45 43 A4 52 59 |C.RY6..H.,.EC.RY|
000040F0: 80 20 4C 44 41 20 23 24 30 30 00 08 49 D8 2C 53 |. LDA #$00..I.,S|
00004100: 54 41 20 24 30 32 30 30 00 15 49 E2 2C 4A 4D 50 |TA $0200..I.,JMP|
00004110: 20 53 43 52 A1 00 2A 49 EC 2C D3 45 43 A4 52 59 | SCR..*I.,.EC.RY|
00004120: 36 20 43 4D 50 20 23 24 30 31 00 3A 49 F6 2C 42 |6 CMP #$01.:I.,B|
00004130: 45 51 20 D3 45 43 A4 52 59 35 00 47 49 00 2D 43 |EQ .EC.RY5.GI.-C|
00004140: 4D 50 20 23 24 30 32 00 57 49 0A 2D 42 45 51 20 |MP #$02.WI.-BEQ |
00004150: D3 45 43 A4 52 59 35 00 5F 49 14 2D 53 45 43 00 |.EC.RY5._I.-SEC.|
00004160: 6C 49 1E 2D 53 42 43 20 23 24 30 32 00 78 49 28 |lI.-SBC #$02.xI(|
00004170: 2D 53 54 41 20 B8 45 31 00 84 49 32 2D 4C 44 41 |-STA .E1..I2-LDA|
00004180: 20 4D 41 58 00 90 49 3C 2D 43 4D 50 20 B8 45 31 | MAX..I<-CMP .E1|
00004190: 00 A0 49 46 2D 42 43 43 20 D3 45 43 A4 52 59 35 |..IF-BCC .EC.RY5|
000041A0: 00 AC 49 50 2D 4C 44 41 20 24 30 34 00 B4 49 5A |..IP-LDA $04..IZ|
000041B0: 2D 50 48 41 00 C0 49 64 2D 4C 44 41 20 B8 45 31 |-PHA..Id-LDA .E1|
000041C0: 00 C8 49 6E 2D 50 48 41 00 D7 49 78 2D 4A 53 52 |..In-PHA..Ix-JSR|
000041D0: 20 49 4E 56 45 52 53 00 DF 49 82 2D 50 4C 41 00 | INVERS..I.-PLA.|
000041E0: EB 49 8C 2D 53 54 41 20 B8 45 31 00 F3 49 96 2D |.I.-STA .E1..I.-|
000041F0: 50 4C 41 00 FF 49 A0 2D 53 54 41 20 24 30 34 00 |PLA..I.-STA $04.|
00004200: 0B 4A AA 2D 4C 44 41 20 B8 45 31 00 1C 4A B4 2D |.J.-LDA .E1..J.-|
00004210: 4A 4D 50 20 4E 41 4D 45 A4 42 55 46 00 31 4A BE |JMP NAME.BUF.1J.|
00004220: 2D D3 45 43 A4 52 59 33 20 4C 44 58 20 23 24 30 |-.EC.RY3 LDX #$0|
00004230: 30 00 3E 4A C8 2D 53 54 58 20 4C 41 53 54 00 46 |0.>J.-STX LAST.F|
00004240: 4A D2 2D 49 4E 58 00 5F 4A DC 2D D3 45 43 A4 52 |J.-INX._J.-.EC.R|
00004250: 59 37 20 53 54 58 20 42 55 46 42 45 47 AA 31 00 |Y7 STX BUFBEG.1.|
00004260: 6F 4A E6 2D 4A 53 52 20 46 49 4C 45 4F 55 54 00 |oJ.-JSR FILEOUT.|
00004270: 80 4A F0 2D 4C 44 58 20 42 55 46 42 45 47 AA 31 |.J.-LDX BUFBEG.1|
00004280: 00 88 4A FA 2D 49 4E 58 00 95 4A 04 2E 43 50 58 |..J.-INX..J..CPX|
00004290: 20 23 24 31 31 00 A5 4A 0E 2E 42 4E 45 20 D3 45 | #$11..J..BNE .E|
000042A0: 43 A4 52 59 37 00 AF 4A 18 2E 53 54 58 20 82 00 |C.RY7..J..STX ..|
000042B0: C4 4A 22 2E D3 45 43 A4 52 59 38 20 4C 44 41 20 |.J"..EC.RY8 LDA |
000042C0: 46 49 52 45 00 D4 4A 2C 2E 42 45 51 20 D3 45 43 |FIRE..J,.BEQ .EC|
000042D0: A4 52 59 38 00 E4 4A 36 2E 4A 53 52 20 41 4E 41 |.RY8..J6.JSR ANA|
000042E0: 4C 59 5A 45 00 F0 4A 40 2E 53 54 41 20 B8 45 31 |LYZE..J@.STA .E1|
000042F0: 00 FD 4A 4A 2E 43 4D 50 20 23 24 46 45 00 09 4B |..JJ.CMP #$FE..K|
00004300: 54 2E 42 45 51 20 D3 55 50 00 16 4B 5E 2E 43 4D |T.BEQ .UP..K^.CM|
00004310: 50 20 23 24 46 44 00 24 4B 68 2E 42 45 51 20 D3 |P #$FD.$Kh.BEQ .|
00004320: 44 4F 57 4E 00 39 4B 72 2E D3 45 43 A4 52 59 39 |DOWN.9Kr..EC.RY9|
00004330: 20 4C 44 41 20 46 49 52 45 00 49 4B 7C 2E 42 4E | LDA FIRE.IK|.BN|
00004340: 45 20 D3 45 43 A4 52 59 39 00 55 4B 86 2E 4C 44 |E .EC.RY9.UK..LD|
00004350: 41 20 B8 45 31 00 65 4B 90 2E 42 45 51 20 D3 45 |A .E1.eK..BEQ .E|
00004360: 43 A4 52 59 38 00 72 4B 9A 2E 43 4D 50 20 23 24 |C.RY8.rK..CMP #$|
00004370: 46 46 00 82 4B A4 2E 42 45 51 20 D3 45 43 A4 52 |FF..K..BEQ .EC.R|
00004380: 59 80 00 8F 4B AE 2E 43 4D 50 20 23 24 30 31 00 |Y...K..CMP #$01.|
00004390: 9F 4B B8 2E 42 45 51 20 D3 45 43 A4 52 59 38 00 |.K..BEQ .EC.RY8.|
000043A0: AC 4B C2 2E 43 4D 50 20 23 24 30 32 00 BC 4B CC |.K..CMP #$02..K.|
000043B0: 2E 42 45 51 20 D3 45 43 A4 52 59 38 00 C4 4B D6 |.BEQ .EC.RY8..K.|
000043C0: 2E 53 45 43 00 D1 4B E0 2E 53 42 43 20 23 24 30 |.SEC..K..SBC #$0|
000043D0: 32 00 DD 4B EA 2E 53 54 41 20 B8 45 31 00 E9 4B |2..K..STA .E1..K|
000043E0: F4 2E 4C 44 41 20 24 30 34 00 F1 4B FE 2E 50 48 |..LDA $04..K..PH|
000043F0: 41 00 FD 4B 08 2F 4C 44 41 20 B8 45 31 00 05 4C |A..K./LDA .E1..L|
00004400: 12 2F 50 48 41 00 14 4C 1C 2F 4A 53 52 20 49 4E |./PHA..L./JSR IN|
00004410: 56 45 52 53 00 1C 4C 26 2F 50 4C 41 00 28 4C 30 |VERS..L&/PLA.(L0|
00004420: 2F 53 54 41 20 B8 45 31 00 30 4C 3A 2F 50 4C 41 |/STA .E1.0L:/PLA|
00004430: 00 3C 4C 44 2F 53 54 41 20 24 30 34 00 48 4C 4E |.<LD/STA $04.HLN|
00004440: 2F 4C 44 41 20 B8 45 31 00 50 4C 58 2F 43 4C 43 |/LDA .E1.PLX/CLC|
00004450: 00 5D 4C 62 2F 41 44 43 20 4C 41 53 54 00 6E 4C |.]Lb/ADC LAST.nL|
00004460: 6C 2F 4A 4D 50 20 4E 41 4D 45 A4 42 55 46 00 7E |l/JMP NAME.BUF.~|
00004470: 4C 76 2F D3 44 4F 57 4E 20 4C 44 41 20 82 00 8A |Lv/.DOWN LDA ...|
00004480: 4C 80 2F 43 4D 50 20 4D 41 58 00 99 4C 8A 2F 42 |L./CMP MAX..L./B|
00004490: 45 51 20 D3 44 4F 57 4E 31 00 A8 4C 94 2F 42 43 |EQ .DOWN1..L./BC|
000044A0: 43 20 D3 44 4F 57 4E 31 00 B8 4C 9E 2F 4A 4D 50 |C .DOWN1..L./JMP|
000044B0: 20 D3 45 43 A4 52 59 38 00 CB 4C A8 2F D3 44 4F | .EC.RY8..L./.DO|
000044C0: 57 4E 31 20 4C 44 58 20 52 55 EB 00 D3 4C B2 2F |WN1 LDX RU...L./|
000044D0: 49 4E 58 00 E1 4C BC 2F 4C 44 59 20 4C 4F 43 4F |INX..L./LDY LOCO|
000044E0: 4C 00 E9 4C C6 2F 43 4C 43 00 F3 4C D0 2F 4A 53 |L..L./CLC..L./JS|
000044F0: 52 20 E9 00 00 4D DA 2F 4C 44 41 20 23 24 30 36 |R ...M./LDA #$06|
00004500: 00 0A 4D E4 2F 4A 53 52 20 99 00 14 4D EE 2F 4C |..M./JSR ...M./L|
00004510: 44 58 20 82 00 24 4D F8 2F 4A 53 52 20 46 49 4C |DX ..$M./JSR FIL|
00004520: 45 4F 55 54 00 2E 4D 02 30 49 4E 43 20 82 00 3B |EOUT..M.0INC ..;|
00004530: 4D 0C 30 49 4E 43 20 4C 41 53 54 00 4B 4D 16 30 |M.0INC LAST.KM.0|
00004540: 4A 4D 50 20 D3 45 43 A4 52 59 38 00 5C 4D 20 30 |JMP .EC.RY8.\M 0|
00004550: D3 55 50 20 4C 44 41 20 4C 41 53 54 00 69 4D 2A |.UP LDA LAST.iM*|
00004560: 30 43 4D 50 20 23 24 30 30 00 76 4D 34 30 42 4E |0CMP #$00.vM40BN|
00004570: 45 20 D3 55 50 31 00 86 4D 3E 30 4A 4D 50 20 D3 |E .UP1..M>0JMP .|
00004580: 45 43 A4 52 59 38 00 9A 4D 48 30 D3 55 50 31 20 |EC.RY8..MH0.UP1 |
00004590: 4A 53 52 20 53 43 52 4F 4C 4C 00 A7 4D 52 30 4C |JSR SCROLL..MR0L|
000045A0: 44 41 20 23 22 13 22 00 B1 4D 5C 30 4A 53 52 20 |DA #"."..M\0JSR |
000045B0: 99 00 BE 4D 66 30 4C 44 58 20 4C 41 53 54 00 CE |...Mf0LDX LAST..|
000045C0: 4D 70 30 4A 53 52 20 46 49 4C 45 4F 55 54 00 DB |Mp0JSR FILEOUT..|
000045D0: 4D 7A 30 44 45 43 20 4C 41 53 54 00 E5 4D 84 30 |Mz0DEC LAST..M.0|
000045E0: 44 45 43 20 82 00 F5 4D 8E 30 4A 4D 50 20 D3 45 |DEC ...M.0JMP .E|
000045F0: 43 A4 52 59 38 00 0B 4E 98 30 4E 41 4D 45 A4 42 |C.RY8..N.0NAME.B|
00004600: 55 46 20 4C 44 59 20 23 24 30 30 00 13 4E A2 30 |UF LDY #$00..N.0|
00004610: 54 41 58 00 21 4E AC 30 53 54 58 20 24 30 33 38 |TAX.!N.0STX $038|
00004620: 30 00 2E 4E B6 30 4C 44 41 20 23 24 32 30 00 38 |0..N.0LDA #$20.8|
00004630: 4E C0 30 4A 53 52 20 E7 00 48 4E CA 30 4C 44 41 |N.0JSR ..HN.0LDA|
00004640: 20 23 B3 24 41 30 30 32 00 50 4E D4 30 43 4C 43 | #.$A002.PN.0CLC|
00004650: 00 5D 4E DE 30 41 44 43 20 52 45 47 33 00 6A 4E |.]N.0ADC REG3.jN|
00004660: E8 30 53 54 41 20 57 B0 44 31 00 7A 4E F2 30 4C |.0STA W.D1.zN.0L|
00004670: 44 41 20 23 B1 24 41 30 30 32 00 87 4E FC 30 41 |DA #.$A002..N.0A|
00004680: 44 43 20 52 45 47 34 00 96 4E 06 31 53 54 41 20 |DC REG4..N.1STA |
00004690: 57 B0 44 31 AA 31 00 A2 4E 10 31 4A 53 52 20 52 |W.D1.1..N.1JSR R|
000046A0: 41 4D 00 AF 4E 1A 31 4C 44 59 20 23 24 30 30 00 |AM..N.1LDY #$00.|
000046B0: BE 4E 24 31 4A 53 52 20 57 B0 44 49 4E 43 00 CD |.N$1JSR W.DINC..|
000046C0: 4E 2E 31 4A 53 52 20 57 B0 44 49 4E 43 00 E8 4E |N.1JSR W.DINC..N|
000046D0: 38 31 4E 41 4D 45 A4 42 55 46 31 20 4C 44 41 20 |81NAME.BUF1 LDA |
000046E0: 28 57 B0 44 31 29 2C 59 00 F7 4E 42 31 4A 53 52 |(W.D1),Y..NB1JSR|
000046F0: 20 57 B0 44 49 4E 43 00 04 4F 4C 31 43 4D 50 20 | W.DINC..OL1CMP |
00004700: 23 22 20 22 00 16 4F 56 31 42 45 51 20 4E 41 4D |#" "..OV1BEQ NAM|
00004710: 45 A4 42 55 46 31 00 31 4F 60 31 4E 41 4D 45 A4 |E.BUF1.1O`1NAME.|
00004720: 42 55 46 32 20 4C 44 41 20 28 57 B0 44 31 29 2C |BUF2 LDA (W.D1),|
00004730: 59 00 3E 4F 6A 31 43 4D 50 20 23 24 32 32 00 50 |Y.>Oj1CMP #$22.P|
00004740: 4F 74 31 42 45 51 20 4E 41 4D 45 A4 42 55 46 33 |Ot1BEQ NAME.BUF3|
00004750: 00 60 4F 7E 31 53 54 41 20 24 30 32 30 30 2C 59 |.`O~1STA $0200,Y|
00004760: 00 68 4F 88 31 49 4E 59 00 7A 4F 92 31 42 4E 45 |.hO.1INY.zO.1BNE|
00004770: 20 4E 41 4D 45 A4 42 55 46 32 00 91 4F 9C 31 4E | NAME.BUF2..O.1N|
00004780: 41 4D 45 A4 42 55 46 33 20 4C 44 41 20 23 24 30 |AME.BUF3 LDA #$0|
00004790: 30 00 A1 4F A6 31 53 54 41 20 24 30 32 30 30 2C |0..O.1STA $0200,|
000047A0: 59 00 AD 4F B0 31 4A 4D 50 20 52 4F 4D 00 DB 4F |Y..O.1JMP ROM..O|
000047B0: BA 31 53 43 52 4F 4C 4C 20 4C 44 58 20 52 55 EB |.1SCROLL LDX RU.|
000047C0: 20 3B 20 57 49 4E 44 4F 57 20 4E 41 43 48 20 55 | ; WINDOW NACH U|
000047D0: 4E 54 45 4E 20 53 43 52 4F 4C C3 00 E9 4F C4 31 |NTEN SCROL...O.1|
000047E0: 4C 44 59 20 4C 4F 43 4F 4C 00 F1 4F CE 31 44 45 |LDY LOCOL..O.1DE|
000047F0: 58 00 FE 4F D8 31 4A 53 52 20 53 43 52 B9 00 0C |X..O.1JSR SCR...|
00004800: 50 E2 31 4C 44 41 20 52 55 43 4F 4C 00 14 50 EC |P.1LDA RUCOL..P.|
00004810: 31 53 45 43 00 22 50 F6 31 53 42 43 20 4C 4F 43 |1SEC."P.1SBC LOC|
00004820: 4F 4C 00 37 50 00 32 53 54 41 20 B8 45 31 20 3B |OL.7P.2STA .E1 ;|
00004830: 20 42 52 45 49 54 45 00 43 50 0A 32 4C 44 41 20 | BREITE.CP.2LDA |
00004840: 52 55 EB 00 4B 50 14 32 53 45 43 00 57 50 1E 32 |RU..KP.2SEC.WP.2|
00004850: 53 42 43 20 4C 4F EB 00 6B 50 28 32 53 54 41 20 |SBC LO..kP(2STA |
00004860: B8 45 32 20 3B 20 48 4F 45 48 45 00 7A 50 32 32 |.E2 ; HOEHE.zP22|
00004870: 4A 53 52 20 52 33 49 4E 52 31 00 89 50 3C 32 4A |JSR R3INR1..P<2J|
00004880: 53 52 20 52 34 49 4E 52 32 00 96 50 46 32 4C 44 |SR R4INR2..PF2LD|
00004890: 41 20 52 45 47 31 00 9E 50 50 32 43 4C 43 00 AB |A REG1..PP2CLC..|
000048A0: 50 5A 32 41 44 43 20 23 24 32 38 00 B8 50 64 32 |PZ2ADC #$28..Pd2|
000048B0: 53 54 41 20 52 45 47 33 00 C5 50 6E 32 4C 44 41 |STA REG3..Pn2LDA|
000048C0: 20 52 45 47 32 00 D2 50 78 32 41 44 43 20 23 24 | REG2..Px2ADC #$|
000048D0: 30 30 00 DF 50 82 32 53 54 41 20 52 45 47 34 00 |00..P.2STA REG4.|
000048E0: F4 50 8C 32 53 43 52 4F 4C 4C 30 20 4C 44 59 20 |.P.2SCROLL0 LDY |
000048F0: 23 24 30 30 00 0D 51 96 32 53 43 52 4F 4C 4C 31 |#$00..Q.2SCROLL1|
00004900: 20 4C 44 41 20 28 52 45 47 31 29 2C 59 00 1E 51 | LDA (REG1),Y..Q|
00004910: A0 32 53 54 41 20 28 52 45 47 33 29 2C 59 00 2A |.2STA (REG3),Y.*|
00004920: 51 AA 32 43 50 59 20 B8 45 31 00 3A 51 B4 32 42 |Q.2CPY .E1.:Q.2B|
00004930: 45 51 20 53 43 52 4F 4C 4C 32 00 4A 51 BE 32 42 |EQ SCROLL2.JQ.2B|
00004940: 43 53 20 53 43 52 4F 4C 4C 33 00 5A 51 C8 32 53 |CS SCROLL3.ZQ.2S|
00004950: 43 52 4F 4C 4C 32 20 49 4E 59 00 6A 51 D2 32 42 |CROLL2 INY.jQ.2B|
00004960: 4E 45 20 53 43 52 4F 4C 4C 31 00 7F 51 DC 32 53 |NE SCROLL1..Q.2S|
00004970: 43 52 4F 4C 4C 33 20 4C 44 41 20 52 45 47 31 00 |CROLL3 LDA REG1.|
00004980: 87 51 E6 32 53 45 43 00 94 51 F0 32 53 42 43 20 |.Q.2SEC..Q.2SBC |
00004990: 23 24 32 38 00 A1 51 FA 32 53 54 41 20 52 45 47 |#$28..Q.2STA REG|
000049A0: 31 00 AE 51 04 33 4C 44 41 20 52 45 47 32 00 BB |1..Q.3LDA REG2..|
000049B0: 51 0E 33 53 42 43 20 23 24 30 30 00 C8 51 18 33 |Q.3SBC #$00..Q.3|
000049C0: 53 54 41 20 52 45 47 32 00 D5 51 22 33 4C 44 41 |STA REG2..Q"3LDA|
000049D0: 20 52 45 47 33 00 DD 51 2C 33 53 45 43 00 EA 51 | REG3..Q,3SEC..Q|
000049E0: 36 33 53 42 43 20 23 24 32 38 00 F7 51 40 33 53 |63SBC #$28..Q@3S|
000049F0: 54 41 20 52 45 47 33 00 04 52 4A 33 4C 44 41 20 |TA REG3..RJ3LDA |
00004A00: 52 45 47 34 00 11 52 54 33 53 42 43 20 23 24 30 |REG4..RT3SBC #$0|
00004A10: 30 00 1E 52 5E 33 53 54 41 20 52 45 47 34 00 2A |0..R^3STA REG4.*|
00004A20: 52 68 33 44 45 43 20 B8 45 32 00 3A 52 72 33 42 |Rh3DEC .E2.:Rr3B|
00004A30: 4E 45 20 53 43 52 4F 4C 4C 30 00 47 52 7C 33 4C |NE SCROLL0.GR|3L|
00004A40: 44 41 20 23 24 30 30 00 52 52 86 33 4A 4D 50 20 |DA #$00.RR.3JMP |
00004A50: 9C EB 00 6F 52 90 33 42 B8 45 20 2E C6 20 22 C6 |...oR.3B.E .. ".|
00004A60: 52 45 45 3A 20 22 3A 2E 42 59 54 20 24 30 30 00 |REE: ":.BYT $00.|
00004A70: 92 52 9A 33 42 55 53 45 44 20 2E 42 59 54 20 24 |.R.3BUSED .BYT $|
00004A80: 30 31 2C 24 30 36 3A 2E C6 20 22 D5 53 45 44 3A |01,$06:.. ".SED:|
00004A90: 20 22 00 A4 52 A4 33 5A 45 52 4F 20 2E 42 59 54 | "..R.3ZERO .BYT|
00004AA0: 20 24 30 30 00 B7 52 AE 33 44 47 31 20 4A 53 52 | $00..R.3DG1 JSR|
00004AB0: 20 53 45 54 4E 41 4D 00 C4 52 B8 33 4C 44 41 20 | SETNAM..R.3LDA |
00004AC0: 23 24 30 42 00 CF 52 C2 33 53 54 41 20 57 57 00 |#$0B..R.3STA WW.|
00004AD0: DA 52 CC 33 53 54 41 20 57 58 00 E5 52 D6 33 53 |.R.3STA WX..R.3S|
00004AE0: 54 41 20 57 59 00 F2 52 E0 33 4C 44 41 20 23 24 |TA WY..R.3LDA #$|
00004AF0: 30 34 00 FD 52 EA 33 53 54 41 20 57 48 00 0C 53 |04..R.3STA WH..S|
00004B00: F4 33 4C 44 41 20 23 B3 5A 45 52 4F 00 1B 53 FE |.3LDA #.ZERO..S.|
00004B10: 33 4C 44 59 20 23 B1 5A 45 52 4F 00 2A 53 08 34 |3LDY #.ZERO.*S.4|
00004B20: 4A 53 52 20 57 49 4E 44 4F 57 00 38 53 12 34 4C |JSR WINDOW.8S.4L|
00004B30: 44 41 20 23 B3 D3 A1 54 00 46 53 1C 34 4C 44 59 |DA #...T.FS.4LDY|
00004B40: 20 23 B1 D3 A1 54 00 53 53 26 34 4A 4D 50 20 EC | #...T.SS&4JMP .|
00004B50: 4F 55 54 00 61 53 30 34 44 47 32 20 4A 53 52 20 |OUT.aS04DG2 JSR |
00004B60: A0 00 6E 53 3A 34 4C 44 41 20 57 B0 44 31 00 76 |..nS:4LDA W.D1.v|
00004B70: 53 44 34 50 48 41 00 85 53 4E 34 4C 44 41 20 57 |SD4PHA..SN4LDA W|
00004B80: B0 44 31 AA 31 00 8D 53 58 34 50 48 41 00 9A 53 |.D1.1..SX4PHA..S|
00004B90: 62 34 4A 53 52 20 53 43 52 A1 00 A2 53 6C 34 50 |b4JSR SCR...Sl4P|
00004BA0: 4C 41 00 B1 53 76 34 53 54 41 20 57 B0 44 31 AA |LA..Sv4STA W.D1.|
00004BB0: 31 00 B9 53 80 34 50 4C 41 00 C6 53 8A 34 53 54 |1..S.4PLA..S.4ST|
00004BC0: 41 20 57 B0 44 31 00 CE 53 94 34 52 54 53 00 F4 |A W.D1..S.4RTS..|
00004BD0: 53 9E 34 D3 A1 54 20 2E C6 20 22 C4 49 53 4B 20 |S.4..T .. ".ISK |
00004BE0: C1 43 43 45 53 53 22 3A 2E 42 59 54 20 24 30 44 |.CCESS":.BYT $0D|
00004BF0: 2C 24 30 44 00 12 54 A8 34 2E C6 20 22 D0 4C 45 |,$0D..T.4.. ".LE|
00004C00: 41 53 45 20 D7 41 49 54 22 3A 2E 42 59 54 20 24 |ASE .AIT":.BYT $|
00004C10: 30 30 00 22 54 B2 34 4E 4F 31 20 53 54 41 20 B8 |00."T.4NO1 STA .|
00004C20: 45 35 00 2E 54 BC 34 4C 44 41 20 24 39 41 00 3B |E5..T.4LDA $9A.;|
00004C30: 54 C6 34 43 4D 50 20 23 24 30 33 00 47 54 D0 34 |T.4CMP #$03.GT.4|
00004C40: 42 4E 45 20 4E 4F 33 00 53 54 DA 34 4A 4D 50 20 |BNE NO3.ST.4JMP |
00004C50: 4E 4F 32 00 5F 54 E4 34 4E 4F 33 20 50 4C 41 00 |NO2._T.4NO3 PLA.|
00004C60: 6D 54 EE 34 4A 4D 50 20 24 46 31 43 41 00 80 54 |mT.4JMP $F1CA..T|
00004C70: F8 34 4E 41 4D 45 94 20 4C 44 59 20 23 24 30 30 |.4NAME. LDY #$00|
00004C80: 00 97 54 02 35 4E 41 4D 45 94 31 20 4C 44 41 20 |..T.5NAME.1 LDA |
00004C90: 24 30 32 30 30 2C 59 00 A7 54 0C 35 53 54 41 20 |$0200,Y..T.5STA |
00004CA0: 24 30 32 32 30 2C 59 00 B6 54 16 35 42 45 51 20 |$0220,Y..T.5BEQ |
00004CB0: 4E 41 4D 45 94 32 00 BE 54 20 35 49 4E 59 00 CD |NAME.2..T 5INY..|
00004CC0: 54 2A 35 42 4E 45 20 4E 41 4D 45 94 31 00 DC 54 |T*5BNE NAME.1..T|
00004CD0: 34 35 4E 41 4D 45 94 32 20 52 54 53 00 F1 54 3E |45NAME.2 RTS..T>|
00004CE0: 35 4E 41 4D 45 32 30 30 20 4A 53 52 20 4E 41 4D |5NAME200 JSR NAM|
00004CF0: C3 00 F9 54 48 35 54 59 41 00 09 55 52 35 4C 44 |...TH5TYA..UR5LD|
00004D00: 58 20 23 B3 24 30 32 30 30 00 19 55 5C 35 4C 44 |X #.$0200..U\5LD|
00004D10: 59 20 23 B1 24 30 32 30 30 00 28 55 66 35 4A 4D |Y #.$0200.(Uf5JM|
00004D20: 50 20 53 45 54 4E 41 4D 00 2E 55 70 35 3B 00 5C |P SETNAM..Up5;.\|
00004D30: 55 7A 35 A1 53 54 41 52 54 20 4C 44 58 20 24 30 |Uz5.START LDX $0|
00004D40: 33 38 30 20 3B 20 53 54 41 52 54 41 44 52 45 53 |380 ; STARTADRES|
00004D50: 53 45 20 4E 41 43 48 20 57 B0 44 31 00 68 55 84 |SE NACH W.D1.hU.|
00004D60: 35 53 54 58 20 24 37 41 00 75 55 8E 35 4C 44 41 |5STX $7A.uU.5LDA|
00004D70: 20 23 24 32 30 00 82 55 98 35 4C 44 59 20 23 24 | #$20..U.5LDY #$|
00004D80: 30 30 00 8C 55 A2 35 4A 53 52 20 E7 00 9C 55 AC |00..U.5JSR ...U.|
00004D90: 35 4C 44 41 20 23 B3 24 41 30 31 38 00 A4 55 B6 |5LDA #.$A018..U.|
00004DA0: 35 43 4C 43 00 B1 55 C0 35 41 44 43 20 52 45 47 |5CLC..U.5ADC REG|
00004DB0: 33 00 BE 55 CA 35 53 54 41 20 52 45 47 33 00 CE |3..U.5STA REG3..|
00004DC0: 55 D4 35 4C 44 41 20 23 B1 24 41 30 31 38 00 DB |U.5LDA #.$A018..|
00004DD0: 55 DE 35 41 44 43 20 52 45 47 34 00 E8 55 E8 35 |U.5ADC REG4..U.5|
00004DE0: 53 54 41 20 52 45 47 34 00 F4 55 F2 35 4A 53 52 |STA REG4..U.5JSR|
00004DF0: 20 52 41 4D 00 01 56 FC 35 4C 44 59 20 23 24 30 | RAM..V.5LDY #$0|
00004E00: 30 00 0D 56 06 36 4A 4D 50 20 47 53 31 00 1E 56 |0..V.6JMP GS1..V|
00004E10: 10 36 47 53 32 20 4A 53 52 20 4E 41 4D C3 00 26 |.6GS2 JSR NAM..&|
00004E20: 56 1A 36 50 4C 41 00 36 56 24 36 53 54 41 20 24 |V.6PLA.6V$6STA $|
00004E30: 30 32 30 31 2C 59 00 43 56 2E 36 4C 44 41 20 23 |0201,Y.CV.6LDA #|
00004E40: 22 2C 22 00 53 56 38 36 53 54 41 20 24 30 32 30 |",".SV86STA $020|
00004E50: 30 2C 59 00 63 56 42 36 53 54 41 20 24 30 32 30 |0,Y.cVB6STA $020|
00004E60: 32 2C 59 00 70 56 4C 36 4C 44 41 20 23 22 52 22 |2,Y.pVL6LDA #"R"|
00004E70: 00 80 56 56 36 53 54 41 20 24 30 32 30 33 2C 59 |..VV6STA $0203,Y|
00004E80: 00 8D 56 60 36 4C 44 41 20 23 24 30 30 00 9D 56 |..V`6LDA #$00..V|
00004E90: 6A 36 53 54 41 20 24 30 32 30 34 2C 59 00 A9 56 |j6STA $0204,Y..V|
00004EA0: 74 36 4A 53 52 20 52 4F 4D 00 B9 56 7E 36 4A 53 |t6JSR ROM..V~6JS|
00004EB0: 52 20 4E 41 4D 45 32 30 30 00 C5 56 88 36 4A 53 |R NAME200..V.6JS|
00004EC0: 52 20 9F 4E B0 00 D3 56 92 36 4A 53 52 20 4E B0 |R .N...V.6JSR N.|
00004ED0: 49 4E 32 00 DF 56 9C 36 4A 53 52 20 42 41 BF 00 |IN2..V.6JSR BA..|
00004EE0: EC 56 A6 36 53 54 41 20 57 B0 44 31 00 F8 56 B0 |.V.6STA W.D1..V.|
00004EF0: 36 4A 53 52 20 42 41 BF 00 07 57 BA 36 53 54 41 |6JSR BA...W.6STA|
00004F00: 20 57 B0 44 31 AA 31 00 13 57 C4 36 4A 53 52 20 | W.D1.1..W.6JSR |
00004F10: 9C 43 48 00 20 57 CE 36 4C 44 41 20 23 24 30 38 |.CH. W.6LDA #$08|
00004F20: 00 2A 57 D8 36 4A 4D 50 20 A0 00 30 57 E2 36 3B |.*W.6JMP ..0W.6;|
00004F30: 00 55 57 EC 36 A1 C3 47 54 48 20 4C 44 58 20 24 |.UW.6..GTH LDX $|
00004F40: 37 41 20 3B 20 4C 41 45 4E 47 45 20 4E 41 43 48 |7A ; LAENGE NACH|
00004F50: 20 57 B0 44 31 00 62 57 F6 36 4C 44 41 20 23 24 | W.D1.bW.6LDA #$|
00004F60: 32 30 00 6F 57 00 37 4C 44 59 20 23 24 30 30 00 |20.oW.7LDY #$00.|
00004F70: 79 57 0A 37 4A 53 52 20 E7 00 89 57 14 37 4C 44 |yW.7JSR ...W.7LD|
00004F80: 41 20 23 B3 24 41 30 30 32 00 91 57 1E 37 43 4C |A #.$A002..W.7CL|
00004F90: 43 00 9E 57 28 37 41 44 43 20 52 45 47 33 00 AB |C..W(7ADC REG3..|
00004FA0: 57 32 37 53 54 41 20 52 45 47 33 00 BB 57 3C 37 |W27STA REG3..W<7|
00004FB0: 4C 44 41 20 23 B1 24 41 30 30 32 00 C8 57 46 37 |LDA #.$A002..WF7|
00004FC0: 41 44 43 20 52 45 47 34 00 D5 57 50 37 53 54 41 |ADC REG4..WP7STA|
00004FD0: 20 52 45 47 34 00 E1 57 5A 37 4A 53 52 20 52 41 | REG4..WZ7JSR RA|
00004FE0: 4D 00 EE 57 64 37 4C 44 59 20 23 24 30 30 00 FF |M..Wd7LDY #$00..|
00004FF0: 57 6E 37 4C 44 41 20 28 52 45 47 33 29 2C 59 00 |Wn7LDA (REG3),Y.|
00005000: 0C 58 78 37 53 54 41 20 57 B0 44 31 00 14 58 82 |.Xx7STA W.D1..X.|
00005010: 37 49 4E 59 00 25 58 8C 37 4C 44 41 20 28 52 45 |7INY.%X.7LDA (RE|
00005020: 47 33 29 2C 59 00 34 58 96 37 53 54 41 20 57 B0 |G3),Y.4X.7STA W.|
00005030: 44 31 AA 31 00 40 58 A0 37 4A 4D 50 20 52 4F 4D |D1.1.@X.7JMP ROM|
00005040: 00 46 58 AA 37 3B 00 64 58 B4 37 92 20 4C 44 58 |.FX.7;.dX.7. LDX|
00005050: 20 23 24 38 30 20 3B 20 57 41 52 54 45 53 43 48 | #$80 ; WARTESCH|
00005060: 4C 45 8B 45 00 74 58 BE 37 92 31 20 4C 44 59 20 |LE.E.tX.7.1 LDY |
00005070: 23 24 30 30 00 7F 58 C8 37 92 32 20 44 45 59 00 |#$00..X.7.2 DEY.|
00005080: 8A 58 D2 37 42 4E 45 20 92 32 00 92 58 DC 37 44 |.X.7BNE .2..X.7D|
00005090: 45 58 00 9D 58 E6 37 42 4E 45 20 92 31 00 A5 58 |EX..X.7BNE .1..X|
000050A0: F0 37 52 54 53 00 AB 58 FA 37 3B 00 D5 58 04 38 |.7RTS..X.7;..X.8|
000050B0: 42 4C 49 4E 4B 20 54 41 58 20 3B 20 4D 45 4E 55 |BLINK TAX ; MENU|
000050C0: 45 50 55 4E 4B 54 20 42 4C 49 4E 4B 45 4E 20 4C |EPUNKT BLINKEN L|
000050D0: 41 53 53 45 4E 00 E1 58 0E 38 4C 44 41 20 24 30 |ASSEN..X.8LDA $0|
000050E0: 34 00 E9 58 18 38 50 48 41 00 F1 58 22 38 54 58 |4..X.8PHA..X"8TX|
000050F0: 41 00 F9 58 2C 38 50 48 41 00 08 59 36 38 4A 53 |A..X,8PHA..Y68JS|
00005100: 52 20 49 4E 56 45 52 53 00 12 59 40 38 4A 53 52 |R INVERS..Y@8JSR|
00005110: 20 92 00 23 59 4A 38 4A 53 52 20 52 45 49 4E 56 | ..#YJ8JSR REINV|
00005120: 45 52 53 00 2D 59 54 38 4A 53 52 20 92 00 3C 59 |ERS.-YT8JSR ..<Y|
00005130: 5E 38 4A 53 52 20 49 4E 56 45 52 53 00 46 59 68 |^8JSR INVERS.FYh|
00005140: 38 4A 53 52 20 92 00 4E 59 72 38 50 4C 41 00 56 |8JSR ..NYr8PLA.V|
00005150: 59 7C 38 54 41 58 00 5E 59 86 38 50 4C 41 00 6A |Y|8TAX.^Y.8PLA.j|
00005160: 59 90 38 53 54 41 20 24 30 34 00 72 59 9A 38 54 |Y.8STA $04.rY.8T|
00005170: 58 41 00 7A 59 A4 38 52 54 53 00 9D 59 AE 38 4E |XA.zY.8RTS..Y.8N|
00005180: 41 4D C3 20 4C 44 59 20 23 24 30 30 20 3B 20 24 |AM. LDY #$00 ; $|
00005190: 30 32 30 30 20 42 49 53 20 30 B2 B1 59 00 B3 59 |0200 BIS 0..Y..Y|
000051A0: B8 38 4E 41 4D C3 31 20 4C 44 41 20 24 30 32 30 |.8NAM.1 LDA $020|
000051B0: 30 2C 59 00 C1 59 C2 38 42 45 51 20 4E 41 4D C3 |0,Y..Y.8BEQ NAM.|
000051C0: 32 00 C9 59 CC 38 49 4E 59 00 D7 59 D6 38 42 4E |2..Y.8INY..Y.8BN|
000051D0: 45 20 4E 41 4D C3 31 00 E5 59 E0 38 4E 41 4D C3 |E NAM.1..Y.8NAM.|
000051E0: 32 20 52 54 53 00 EB 59 EA 38 3B 00 FD 59 F4 38 |2 RTS..Y.8;..Y.8|
000051F0: 9F 45 52 52 20 4C 44 41 20 23 24 30 46 00 05 5A |.ERR LDA #$0F..Z|
00005200: FE 38 54 41 59 00 12 5A 08 39 4C 44 58 20 23 24 |.8TAY..Z.9LDX #$|
00005210: 30 38 00 21 5A 12 39 4A 53 52 20 53 45 54 46 4C |08.!Z.9JSR SETFL|
00005220: 53 00 2B 5A 1C 39 4A 4D 50 20 9F 00 31 5A 26 39 |S.+Z.9JMP ..1Z&9|
00005230: 3B 00 43 5A 30 39 A0 45 52 52 20 4C 44 41 20 23 |;.CZ09.ERR LDA #|
00005240: 24 30 46 00 4D 5A 3A 39 4A 4D 50 20 A0 00 53 5A |$0F.MZ:9JMP ..SZ|
00005250: 44 39 3B 00 68 5A 4E 39 44 4F 55 42 4C 45 A1 20 |D9;.hZN9DOUBLE. |
00005260: 4A 53 52 20 53 43 52 A1 00 75 5A 58 39 4A 4D 50 |JSR SCR..uZX9JMP|
00005270: 20 53 43 52 A1 00 7B 5A 62 39 3B 00 8E 5A 6C 39 | SCR..{Zb9;..Zl9|
00005280: 53 45 54 4E B0 20 4C 44 41 20 23 24 30 38 00 96 |SETN. LDA #$08..|
00005290: 5A 76 39 54 41 58 00 9E 5A 80 39 54 41 59 00 AD |Zv9TAX..Z.9TAY..|
000052A0: 5A 8A 39 4A 4D 50 20 53 45 54 46 4C 53 00 B3 5A |Z.9JMP SETFLS..Z|
000052B0: 94 39 3B 00 C5 5A 9E 39 9F 4E B0 20 4A 53 52 20 |.9;..Z.9.N. JSR |
000052C0: 53 45 54 4E B0 00 CF 5A A8 39 4A 4D 50 20 9F 00 |SETN...Z.9JMP ..|
000052D0: D5 5A B2 39 3B 00 E9 5A BC 39 45 52 52 4F 55 54 |.Z.9;..Z.9ERROUT|
000052E0: 20 4C 44 58 20 23 24 30 46 00 F6 5A C6 39 2E 42 | LDX #$0F..Z.9.B|
000052F0: 59 54 20 24 32 43 00 09 5B D0 39 4E B0 4F 55 54 |YT $2C..[.9N.OUT|
00005300: 20 4C 44 58 20 23 24 30 32 00 18 5B DA 39 4A 4D | LDX #$02..[.9JM|
00005310: 50 20 43 48 4B 4F 55 54 00 1E 5B E4 39 3B 00 30 |P CHKOUT..[.9;.0|
00005320: 5B EE 39 4E B0 49 4E 20 4C 44 58 20 23 24 30 32 |[.9N.IN LDX #$02|
00005330: 00 3D 5B F8 39 2E 42 59 54 20 24 32 43 00 50 5B |.=[.9.BYT $2C.P[|
00005340: 02 3A 4E B0 49 4E 32 20 4C 44 58 20 23 24 30 38 |.:N.IN2 LDX #$08|
00005350: 00 5E 5B 0C 3A 4A 4D 50 20 43 48 4B 49 4E 00 64 |.^[.:JMP CHKIN.d|
00005360: 5B 16 3A 3B 00 86 5B 20 3A E5 20 4C 44 41 20 23 |[.:;..[ :. LDA #|
00005370: 24 30 30 20 3B 20 44 49 53 4B E5 20 4E 41 43 48 |$00 ; DISK. NACH|
00005380: 20 24 30 32 30 30 00 95 5B 2A 3A 4A 53 52 20 53 | $0200..[*:JSR S|
00005390: 45 54 4E 41 4D 00 A2 5B 34 3A 4C 44 59 20 23 24 |ETNAM..[4:LDY #$|
000053A0: 30 46 00 AF 5B 3E 3A 4C 44 58 20 23 24 30 38 00 |0F..[>:LDX #$08.|
000053B0: BC 5B 48 3A 4C 44 41 20 23 24 30 34 00 CB 5B 52 |.[H:LDA #$04..[R|
000053C0: 3A 4A 53 52 20 53 45 54 46 4C 53 00 D5 5B 5C 3A |:JSR SETFLS..[\:|
000053D0: 4A 53 52 20 9F 00 E2 5B 66 3A 4C 44 58 20 23 24 |JSR ...[f:LDX #$|
000053E0: 30 34 00 F0 5B 70 3A 4A 53 52 20 43 48 4B 49 4E |04..[p:JSR CHKIN|
000053F0: 00 FD 5B 7A 3A 4C 44 59 20 23 24 30 30 00 0C 5C |..[z:LDY #$00..\|
00005400: 84 3A E5 31 20 4A 53 52 20 42 41 BF 00 1C 5C 8E |.:.1 JSR BA...\.|
00005410: 3A 53 54 41 20 24 30 32 30 30 2C 59 00 24 5C 98 |:STA $0200,Y.$\.|
00005420: 3A 49 4E 59 00 31 5C A2 3A 43 4D 50 20 23 24 30 |:INY.1\.:CMP #$0|
00005430: 44 00 3C 5C AC 3A 42 4E 45 20 E5 31 00 49 5C B6 |D.<\.:BNE .1.I\.|
00005440: 3A 4C 44 41 20 23 24 30 30 00 59 5C C0 3A 53 54 |:LDA #$00.Y\.:ST|
00005450: 41 20 24 30 32 30 30 2C 59 00 65 5C CA 3A 4A 53 |A $0200,Y.e\.:JS|
00005460: 52 20 9C 43 48 00 72 5C D4 3A 4C 44 41 20 23 24 |R .CH.r\.:LDA #$|
00005470: 30 34 00 7C 5C DE 3A 4A 4D 50 20 A0 00 A1 5C E8 |04.|\.:JMP ...\.|
00005480: 3A 53 43 52 E0 20 4C 44 41 20 56 49 43 AA 31 37 |:SCR. LDA VIC.17|
00005490: 20 3B 20 42 49 4C 44 53 43 48 49 52 4D 20 41 55 | ; BILDSCHIRM AU|
000054A0: 53 00 B2 5C F2 3A AF 20 23 25 31 31 31 30 31 31 |S..\.:. #%111011|
000054B0: 31 31 00 C1 5C FC 3A 53 54 41 20 56 49 43 AA 31 |11..\.:STA VIC.1|
000054C0: 37 00 C9 5C 06 3B 52 54 53 00 E9 5C 10 3B A2 42 |7..\.;RTS..\.;.B|
000054D0: 52 4B 20 43 4C 44 20 3B 20 4E 45 55 45 20 42 52 |RK CLD ; NEUE BR|
000054E0: 4B AB 52 4F 55 54 49 4E 45 00 F6 5C 1A 3B 4C 44 |K.ROUTINE..\.;LD|
000054F0: 41 20 23 24 31 43 00 01 5D 24 3B 53 54 41 20 57 |A #$1C..]$;STA W|
00005500: 57 00 0E 5D 2E 3B 4C 44 41 20 23 24 30 33 00 19 |W..].;LDA #$03..|
00005510: 5D 38 3B 53 54 41 20 57 48 00 26 5D 42 3B 4C 44 |]8;STA WH.&]B;LD|
00005520: 41 20 23 24 30 35 00 31 5D 4C 3B 53 54 41 20 57 |A #$05.1]L;STA W|
00005530: 58 00 3E 5D 56 3B 4C 44 41 20 23 24 31 30 00 49 |X.>]V;LDA #$10.I|
00005540: 5D 60 3B 53 54 41 20 57 59 00 5B 5D 6A 3B 4C 44 |]`;STA WY.[]j;LD|
00005550: 41 20 23 B3 42 52 4B 54 58 54 31 00 6D 5D 74 3B |A #.BRKTXT1.m]t;|
00005560: 4C 44 59 20 23 B1 42 52 4B 54 58 54 31 00 7C 5D |LDY #.BRKTXT1.|]|
00005570: 7E 3B 4A 53 52 20 57 49 4E 44 4F 57 00 8B 5D 88 |~;JSR WINDOW..].|
00005580: 3B 4C 44 41 20 23 B3 42 52 4B EC 00 9A 5D 92 3B |;LDA #.BRK...].;|
00005590: 4C 44 59 20 23 B1 42 52 4B EC 00 A7 5D 9C 3B 4A |LDY #.BRK...].;J|
000055A0: 53 52 20 EC 4F 55 54 00 B0 5D A6 3B 50 4C 41 20 |SR .OUT..].;PLA |
000055B0: 00 BC 5D B0 3B 4A 53 52 20 DC 53 50 00 C5 5D BA |..].;JSR .SP..].|
000055C0: 3B 50 4C 41 20 00 D1 5D C4 3B 4A 53 52 20 DC 53 |;PLA ..].;JSR .S|
000055D0: 50 00 DA 5D CE 3B 50 4C 41 20 00 E6 5D D8 3B 4A |P..].;PLA ..].;J|
000055E0: 53 52 20 DC 53 50 00 EF 5D E2 3B 50 4C 41 20 00 |SR .SP..].;PLA .|
000055F0: FB 5D EC 3B 53 54 41 20 B8 45 33 00 07 5E F6 3B |.].;STA .E3..^.;|
00005600: 4A 53 52 20 DC 53 50 00 10 5E 00 3C 50 4C 41 20 |JSR .SP..^.<PLA |
00005610: 00 1C 5E 0A 3C 53 54 41 20 B8 45 31 00 25 5E 14 |..^.<STA .E1.%^.|
00005620: 3C 50 4C 41 20 00 31 5E 1E 3C 53 54 41 20 B8 45 |<PLA .1^.<STA .E|
00005630: 32 00 3A 5E 28 3C 54 53 58 20 00 46 5E 32 3C 4A |2.:^(<TSX .F^2<J|
00005640: 53 52 20 DC 53 50 00 52 5E 3C 3C 4C 44 41 20 B8 |SR .SP.R^<<LDA .|
00005650: 45 31 00 5B 5E 46 3C 53 45 43 20 00 68 5E 50 3C |E1.[^F<SEC .h^P<|
00005660: 53 42 43 20 23 24 30 32 00 74 5E 5A 3C 53 54 41 |SBC #$02.t^Z<STA|
00005670: 20 B8 45 31 00 80 5E 64 3C 4C 44 41 20 B8 45 32 | .E1..^d<LDA .E2|
00005680: 00 8D 5E 6E 3C 53 42 43 20 23 24 30 30 00 96 5E |..^n<SBC #$00..^|
00005690: 78 3C 54 41 58 20 00 A2 5E 82 3C 4C 44 41 20 B8 |x<TAX ..^.<LDA .|
000056A0: 45 31 00 B1 5E 8C 3C 4A 53 52 20 57 B0 44 4F 55 |E1..^.<JSR W.DOU|
000056B0: 54 00 BF 5E 96 3C 4A 53 52 20 53 50 41 43 45 00 |T..^.<JSR SPACE.|
000056C0: CB 5E A0 3C 4C 44 41 20 B8 45 33 00 DA 5E AA 3C |.^.<LDA .E3..^.<|
000056D0: 4A 53 52 20 42 49 4E 4F 55 54 00 F0 5E B4 3C A2 |JSR BINOUT..^.<.|
000056E0: 42 52 4B 31 20 4A 53 52 20 92 57 49 4E 44 4F 57 |BRK1 JSR .WINDOW|
000056F0: 00 FD 5E BE 3C 43 4D 50 20 23 24 46 46 00 0B 5F |..^.<CMP #$FF.._|
00005700: C8 3C 42 4E 45 20 A2 42 52 4B 31 00 18 5F D2 3C |.<BNE .BRK1.._.<|
00005710: 4C 44 41 20 23 24 30 31 00 23 5F DC 3C 53 54 41 |LDA #$01.#_.<STA|
00005720: 20 94 44 00 30 5F E6 3C 4A 53 52 20 53 43 52 A1 | .D.0_.<JSR SCR.|
00005730: 00 43 5F F0 3C 4A 4D 50 20 28 53 54 41 52 54 56 |.C_.<JMP (STARTV|
00005740: 45 43 29 00 6E 5F FA 3C 42 52 4B EC 20 2E C6 20 |EC).n_.<BRK. .. |
00005750: 22 59 52 20 58 52 20 41 43 20 53 54 20 53 50 20 |"YR XR AC ST SP |
00005760: 20 50 43 20 20 4E 56 2D 42 44 49 5A 43 22 00 7B | PC NV-BDIZC".{|
00005770: 5F 04 3D 2E 42 59 54 20 24 30 30 00 94 5F 0E 3D |_.=.BYT $00.._.=|
00005780: 42 52 4B 54 58 54 31 20 2E C6 20 22 D3 59 53 54 |BRKTXT1 .. ".YST|
00005790: 45 4D 2D 22 00 B1 5F 18 3D 45 52 52 B0 20 2E C6 |EM-".._.=ERR. ..|
000057A0: 20 22 C5 52 52 4F 52 22 3A 2E 42 59 54 20 24 30 | ".RROR":.BYT $0|
000057B0: 30 00 D7 5F 22 3D A2 49 52 51 20 4C 44 41 20 43 |0.._"=.IRQ LDA C|
000057C0: 49 41 31 20 3B 20 4E 45 55 45 20 49 52 51 AB 52 |IA1 ; NEUE IRQ.R|
000057D0: 4F 55 54 49 4E 45 4E 00 E8 5F 2C 3D AF 20 23 25 |OUTINEN.._,=. #%|
000057E0: 30 30 30 30 30 30 30 31 00 F6 5F 36 3D 42 4E 45 |00000001.._6=BNE|
000057F0: 20 A2 49 52 51 31 00 04 60 40 3D 44 45 43 20 56 | .IRQ1..`@=DEC V|
00005800: 49 43 AA 31 00 12 60 4A 3D 4C 44 41 20 56 49 43 |IC.1..`J=LDA VIC|
00005810: AA 31 00 1F 60 54 3D 43 4D 50 20 23 24 33 31 00 |.1..`T=CMP #$31.|
00005820: 2D 60 5E 3D 42 4E 45 20 A2 49 52 51 31 00 3B 60 |-`^=BNE .IRQ1.;`|
00005830: 68 3D 49 4E 43 20 56 49 43 AA 31 00 4E 60 72 3D |h=INC VIC.1.N`r=|
00005840: A2 49 52 51 31 20 4C 44 41 20 43 49 41 31 00 5F |.IRQ1 LDA CIA1._|
00005850: 60 7C 3D AF 20 23 25 30 30 30 30 30 30 31 30 00 |`|=. #%00000010.|
00005860: 6D 60 86 3D 42 4E 45 20 A2 49 52 51 32 00 7B 60 |m`.=BNE .IRQ2.{`|
00005870: 90 3D 49 4E 43 20 56 49 43 AA 31 00 89 60 9A 3D |.=INC VIC.1..`.=|
00005880: 4C 44 41 20 56 49 43 AA 31 00 96 60 A4 3D 43 4D |LDA VIC.1..`.=CM|
00005890: 50 20 23 24 46 35 00 A4 60 AE 3D 42 4E 45 20 A2 |P #$F5..`.=BNE .|
000058A0: 49 52 51 32 00 B2 60 B8 3D 44 45 43 20 56 49 43 |IRQ2..`.=DEC VIC|
000058B0: AA 31 00 C5 60 C2 3D A2 49 52 51 32 20 4C 44 41 |.1..`.=.IRQ2 LDA|
000058C0: 20 43 49 41 31 00 D6 60 CC 3D AF 20 23 25 30 30 | CIA1..`.=. #%00|
000058D0: 30 30 30 31 30 30 00 E4 60 D6 3D 42 4E 45 20 A2 |000100..`.=BNE .|
000058E0: 49 52 51 34 00 F3 60 E0 3D 4C 44 41 20 56 49 43 |IRQ4..`.=LDA VIC|
000058F0: AA 31 36 00 04 61 EA 3D AF 20 23 25 30 30 30 30 |.16..a.=. #%0000|
00005900: 30 30 30 31 00 12 61 F4 3D 42 4E 45 20 A2 49 52 |0001..a.=BNE .IR|
00005910: 51 33 00 1E 61 FE 3D 44 45 43 20 56 49 43 00 2A |Q3..a.=DEC VIC.*|
00005920: 61 08 3E 4C 44 41 20 56 49 43 00 37 61 12 3E 43 |a.>LDA VIC.7a.>C|
00005930: 4D 50 20 23 24 31 37 00 45 61 1C 3E 42 4E 45 20 |MP #$17.Ea.>BNE |
00005940: A2 49 52 51 34 00 51 61 26 3E 49 4E 43 20 56 49 |.IRQ4.Qa&>INC VI|
00005950: 43 00 5F 61 30 3E 4A 4D 50 20 A2 49 52 51 34 00 |C._a0>JMP .IRQ4.|
00005960: 71 61 3A 3E A2 49 52 51 33 20 44 45 43 20 56 49 |qa:>.IRQ3 DEC VI|
00005970: 43 00 7D 61 44 3E 4C 44 41 20 56 49 43 00 8A 61 |C.}aD>LDA VIC..a|
00005980: 4E 3E 43 4D 50 20 23 24 46 46 00 98 61 58 3E 42 |N>CMP #$FF..aX>B|
00005990: 4E 45 20 A2 49 52 51 34 00 A7 61 62 3E 4C 44 41 |NE .IRQ4..ab>LDA|
000059A0: 20 56 49 43 AA 31 36 00 B8 61 6C 3E AF 20 23 25 | VIC.16..al>. #%|
000059B0: 31 31 31 31 31 31 31 30 00 C7 61 76 3E 53 54 41 |11111110..av>STA|
000059C0: 20 56 49 43 AA 31 36 00 DA 61 80 3E A2 49 52 51 | VIC.16..a.>.IRQ|
000059D0: 34 20 4C 44 41 20 43 49 41 31 00 EB 61 8A 3E AF |4 LDA CIA1..a.>.|
000059E0: 20 23 25 30 30 30 30 31 30 30 30 00 F9 61 94 3E | #%00001000..a.>|
000059F0: 42 4E 45 20 A2 49 52 51 36 00 08 62 9E 3E 4C 44 |BNE .IRQ6..b.>LD|
00005A00: 41 20 56 49 43 AA 31 36 00 19 62 A8 3E AF 20 23 |A VIC.16..b.>. #|
00005A10: 25 30 30 30 30 30 30 30 31 00 27 62 B2 3E 42 4E |%00000001.'b.>BN|
00005A20: 45 20 A2 49 52 51 35 00 33 62 BC 3E 49 4E 43 20 |E .IRQ5.3b.>INC |
00005A30: 56 49 43 00 3F 62 C6 3E 4C 44 41 20 56 49 43 00 |VIC.?b.>LDA VIC.|
00005A40: 4D 62 D0 3E 42 4E 45 20 A2 49 52 51 36 00 5C 62 |Mb.>BNE .IRQ6.\b|
00005A50: DA 3E 4C 44 41 20 56 49 43 AA 31 36 00 6E 62 E4 |.>LDA VIC.16.nb.|
00005A60: 3E B0 41 20 23 25 30 30 30 30 30 30 30 31 00 7D |>.A #%00000001.}|
00005A70: 62 EE 3E 53 54 41 20 56 49 43 AA 31 36 00 8B 62 |b.>STA VIC.16..b|
00005A80: F8 3E 4A 4D 50 20 A2 49 52 51 36 00 9D 62 02 3F |.>JMP .IRQ6..b.?|
00005A90: A2 49 52 51 35 20 49 4E 43 20 56 49 43 00 A9 62 |.IRQ5 INC VIC..b|
00005AA0: 0C 3F 4C 44 41 20 56 49 43 00 B6 62 16 3F 43 4D |.?LDA VIC..b.?CM|
00005AB0: 50 20 23 24 35 33 00 C4 62 20 3F 42 4E 45 20 A2 |P #$53..b ?BNE .|
00005AC0: 49 52 51 36 00 D0 62 2A 3F 44 45 43 20 56 49 43 |IRQ6..b*?DEC VIC|
00005AD0: 00 E3 62 34 3F A2 49 52 51 36 20 4C 44 41 20 43 |..b4?.IRQ6 LDA C|
00005AE0: 49 41 31 00 F4 62 3E 3F AF 20 23 25 30 30 30 31 |IA1..b>?. #%0001|
00005AF0: 30 30 30 30 00 02 63 48 3F 42 4E 45 20 A2 49 52 |0000..cH?BNE .IR|
00005B00: 51 37 00 0F 63 52 3F 4C 44 41 20 23 24 30 31 00 |Q7..cR?LDA #$01.|
00005B10: 1C 63 5C 3F 2E 42 59 54 20 24 32 43 00 2F 63 66 |.c\?.BYT $2C./cf|
00005B20: 3F A2 49 52 51 37 20 4C 44 41 20 23 24 30 30 00 |?.IRQ7 LDA #$00.|
00005B30: 3C 63 70 3F 53 54 41 20 46 49 52 45 00 50 63 7A |<cp?STA FIRE.Pcz|
00005B40: 3F A2 49 52 51 38 20 4A 4D 50 20 24 45 41 33 31 |?.IRQ8 JMP $EA31|
00005B50: 00 61 63 84 3F DC 53 50 20 4A 53 52 20 DC 4F 55 |.ac.?.SP JSR .OU|
00005B60: 54 00 74 63 8E 3F 53 50 41 43 45 20 4C 44 41 20 |T.tc.?SPACE LDA |
00005B70: 23 22 20 22 00 7E 63 98 3F 4A 4D 50 20 99 00 95 |#" ".~c.?JMP ...|
00005B80: 63 A2 3F 92 57 49 4E 44 4F 57 20 4A 53 52 20 57 |c.?.WINDOW JSR W|
00005B90: 34 46 49 52 45 00 A5 63 AC 3F 4A 4D 50 20 41 4E |4FIRE..c.?JMP AN|
00005BA0: 41 4C 59 5A 45 00 B2 63 B6 3F A2 4E 4D 49 20 52 |ALYZE..c.?.NMI R|
00005BB0: 54 49 00 B8 63 C0 3F 3B 00 CD 63 CA 3F 47 53 31 |TI..c.?;..c.?GS1|
00005BC0: 20 4C 44 41 20 28 52 45 47 33 29 2C 59 00 DA 63 | LDA (REG3),Y..c|
00005BD0: D4 3F 43 4D 50 20 23 22 20 22 00 E6 63 DE 3F 42 |.?CMP #" "..c.?B|
00005BE0: 4E 45 20 47 53 33 00 EE 63 E8 3F 49 4E 59 00 FA |NE GS3..c.?INY..|
00005BF0: 63 F2 3F 42 4E 45 20 47 53 31 00 06 64 FC 3F 47 |c.?BNE GS1..d.?G|
00005C00: 53 33 20 50 48 41 00 12 64 06 40 4A 4D 50 20 47 |S3 PHA..d.@JMP G|
00005C10: 53 32 00 24 64 10 40 4B 41 4E 41 4C 20 2E C6 20 |S2.$d.@KANAL .. |
00005C20: 22 23 31 22 00 44 64 1A 40 87 20 2E C6 20 22 55 |"#1".Dd.@. .. "U|
00005C30: 31 20 32 20 30 20 31 38 20 30 22 3A 2E 42 59 54 |1 2 0 18 0":.BYT|
00005C40: 20 24 30 30 00 67 64 24 40 E5 54 58 54 20 2E C6 | $00.gd$@.TXT ..|
00005C50: 20 22 C4 49 53 4B 2D D3 54 41 54 55 53 22 3A 2E | ".ISK-.TATUS":.|
00005C60: 42 59 54 20 24 30 30 00 95 64 2E 40 46 49 52 53 |BYT $00..d.@FIRS|
00005C70: 54 F9 20 4C 44 41 20 23 24 30 31 20 3B 20 45 52 |T. LDA #$01 ; ER|
00005C80: 53 54 45 4E 20 D3 45 43 A4 52 59 F9 20 45 49 4E |STEN .EC.RY. EIN|
00005C90: 4C 45 53 45 4E 00 A6 64 38 40 4C 44 58 20 23 B3 |LESEN..d8@LDX #.|
00005CA0: E5 54 58 54 AA 31 00 B7 64 42 40 4C 44 59 20 23 |.TXT.1..dB@LDY #|
00005CB0: B1 E5 54 58 54 AA 31 00 C6 64 4C 40 4A 53 52 20 |..TXT.1..dL@JSR |
00005CC0: 53 45 54 4E 41 4D 00 D3 64 56 40 4A 53 52 20 9F |SETNAM..dV@JSR .|
00005CD0: 45 52 52 00 E0 64 60 40 4C 44 58 20 23 24 30 38 |ERR..d`@LDX #$08|
00005CE0: 00 ED 64 6A 40 4C 44 59 20 23 24 30 32 00 F5 64 |..dj@LDY #$02..d|
00005CF0: 74 40 54 59 41 00 04 65 7E 40 4A 53 52 20 53 45 |t@TYA..e~@JSR SE|
00005D00: 54 46 4C 53 00 11 65 88 40 4C 44 41 20 23 24 30 |TFLS..e.@LDA #$0|
00005D10: 32 00 21 65 92 40 4C 44 58 20 23 B3 4B 41 4E 41 |2.!e.@LDX #.KANA|
00005D20: 4C 00 31 65 9C 40 4C 44 59 20 23 B1 4B 41 4E 41 |L.1e.@LDY #.KANA|
00005D30: 4C 00 40 65 A6 40 4A 53 52 20 53 45 54 4E 41 4D |L.@e.@JSR SETNAM|
00005D40: 00 4A 65 B0 40 4A 53 52 20 9F 00 59 65 BA 40 4A |.Je.@JSR ..Ye.@J|
00005D50: 53 52 20 45 52 52 4F 55 54 00 65 65 C4 40 4C 44 |SR ERROUT.ee.@LD|
00005D60: 41 20 23 B3 87 00 71 65 CE 40 4C 44 59 20 23 B1 |A #...qe.@LDY #.|
00005D70: 87 00 7F 65 D8 40 4A 53 52 20 24 41 42 31 45 00 |...e.@JSR $AB1E.|
00005D80: 8B 65 E2 40 4A 4D 50 20 9C 43 48 00 9B 65 EC 40 |.e.@JMP .CH..e.@|
00005D90: 43 52 20 4C 44 41 20 23 24 30 44 00 A5 65 F6 40 |CR LDA #$0D..e.@|
00005DA0: 4A 4D 50 20 99 00 C1 65 00 41 53 A4 55 54 20 4A |JMP ...e.AS.UT J|
00005DB0: 53 52 20 E5 20 3B 20 E5 20 41 55 53 47 45 42 45 |SR . ; . AUSGEBE|
00005DC0: 4E 00 CE 65 0A 41 4C 44 41 20 23 24 32 30 00 D9 |N..e.ALDA #$20..|
00005DD0: 65 14 41 53 54 41 20 57 57 00 E6 65 1E 41 4C 44 |e.ASTA WW..e.ALD|
00005DE0: 58 20 23 24 30 35 00 F3 65 28 41 4C 44 59 20 23 |X #$05..e(ALDY #|
00005DF0: 24 30 43 00 00 66 32 41 4C 44 41 20 23 24 30 32 |$0C..f2ALDA #$02|
00005E00: 00 0D 66 3C 41 4A 53 52 20 57 53 45 54 00 1C 66 |..f<AJSR WSET..f|
00005E10: 46 41 4C 44 41 20 23 B3 E5 54 58 54 00 2B 66 50 |FALDA #..TXT.+fP|
00005E20: 41 4C 44 59 20 23 B1 E5 54 58 54 00 3A 66 5A 41 |ALDY #..TXT.:fZA|
00005E30: 4A 53 52 20 57 49 4E 44 4F 57 00 4A 66 64 41 4C |JSR WINDOW.JfdAL|
00005E40: 44 41 20 23 B3 24 30 32 30 30 00 5A 66 6E 41 4C |DA #.$0200.ZfnAL|
00005E50: 44 59 20 23 B1 24 30 32 30 30 00 67 66 78 41 4A |DY #.$0200.gfxAJ|
00005E60: 53 52 20 EC 4F 55 54 00 7D 66 82 41 53 A4 55 54 |SR .OUT.}f.AS.UT|
00005E70: 31 20 4A 53 52 20 92 57 49 4E 44 4F 57 00 8A 66 |1 JSR .WINDOW..f|
00005E80: 8C 41 43 4D 50 20 23 24 46 46 00 98 66 96 41 42 |.ACMP #$FF..f.AB|
00005E90: 4E 45 20 53 A4 55 54 31 00 A5 66 A0 41 4A 4D 50 |NE S.UT1..f.AJMP|
00005EA0: 20 53 43 52 A1 00 CE 66 AA 41 57 53 45 54 20 53 | SCR...f.AWSET S|
00005EB0: 54 58 20 57 58 20 3B 20 57 49 4E 44 4F 57 50 41 |TX WX ; WINDOWPA|
00005EC0: 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 D9 |RAMETER SETZEN..|
00005ED0: 66 B4 41 53 54 59 20 57 59 00 E4 66 BE 41 53 54 |f.ASTY WY..f.AST|
00005EE0: 41 20 57 48 00 EC 66 C8 41 52 54 53 00 13 67 D2 |A WH..f.ARTS..g.|
00005EF0: 41 54 45 53 A4 4B 20 4A 53 52 20 E5 20 3B E5 54 |ATES.K JSR . ;.T|
00005F00: 45 53 54 3B 20 46 46 B2 87 45 52 52 B0 2C 20 30 |EST; FF..ERR., 0|
00005F10: B2 4F 4B 00 21 67 DC 41 4C 44 41 20 24 30 32 30 |.OK.!g.ALDA $020|
00005F20: 30 00 2E 67 E6 41 43 4D 50 20 23 22 30 22 00 3D |0..g.ACMP #"0".=|
00005F30: 67 F0 41 42 45 51 20 54 45 53 A4 4B 31 00 4C 67 |g.ABEQ TES.K1.Lg|
00005F40: FA 41 4A 53 52 20 53 A4 55 54 AA 33 00 59 67 04 |.AJSR S.UT.3.Yg.|
00005F50: 42 4C 44 41 20 23 24 46 46 00 61 67 0E 42 52 54 |BLDA #$FF.ag.BRT|
00005F60: 53 00 75 67 18 42 54 45 53 A4 4B 31 20 4C 44 41 |S.ug.BTES.K1 LDA|
00005F70: 20 23 24 30 30 00 7D 67 22 42 52 54 53 00 8E 67 | #$00.}g"BRTS..g|
00005F80: 2C 42 43 52 E0 20 4C 44 58 20 23 24 30 32 00 9A |,BCR. LDX #$02..|
00005F90: 67 36 42 53 54 58 20 24 43 44 00 AB 67 40 42 43 |g6BSTX $CD..g@BC|
00005FA0: 52 E0 31 20 4C 44 58 20 24 43 46 00 B8 67 4A 42 |R.1 LDX $CF..gJB|
00005FB0: 42 4E 45 20 43 52 E0 31 00 C4 67 54 42 49 4E 43 |BNE CR.1..gTBINC|
00005FC0: 20 24 43 43 00 CC 67 5E 42 52 54 53 00 11 68 68 | $CC..g^BRTS..hh|
00005FD0: 42 54 45 53 54 43 48 52 20 50 48 41 20 3B 5A 45 |BTESTCHR PHA ;ZE|
00005FE0: 49 43 48 45 4E 20 41 55 46 20 53 54 45 55 45 52 |ICHEN AUF STEUER|
00005FF0: 5A 45 49 43 48 45 4E 20 54 45 53 54 45 4E 3B 20 |ZEICHEN TESTEN; |
00006000: 43 B2 30 20 4F 4B 2C 20 43 B2 31 20 43 55 52 53 |C.0 OK, C.1 CURS|
00006010: B0 00 1D 68 72 42 53 54 41 20 B8 45 33 00 29 68 |...hrBSTA .E3.)h|
00006020: 7C 42 53 54 59 20 B8 45 32 00 36 68 86 42 4C 44 ||BSTY .E2.6h.BLD|
00006030: 59 20 23 24 30 30 00 51 68 90 42 54 45 53 54 43 |Y #$00.Qh.BTESTC|
00006040: 48 52 31 20 4C 44 41 20 81 42 49 44 44 45 4E 2C |HR1 LDA .BIDDEN,|
00006050: 59 00 62 68 9A 42 42 45 51 20 54 45 53 54 43 48 |Y.bh.BBEQ TESTCH|
00006060: 52 32 00 6E 68 A4 42 43 4D 50 20 B8 45 33 00 7F |R2.nh.BCMP .E3..|
00006070: 68 AE 42 42 45 51 20 54 45 53 54 43 48 52 33 00 |h.BBEQ TESTCHR3.|
00006080: 87 68 B8 42 49 4E 59 00 98 68 C2 42 42 4E 45 20 |.h.BINY..h.BBNE |
00006090: 54 45 53 54 43 48 52 31 00 A9 68 CC 42 54 45 53 |TESTCHR1..h.BTES|
000060A0: 54 43 48 52 32 20 50 4C 41 00 B5 68 D6 42 4C 44 |TCHR2 PLA..h.BLD|
000060B0: 59 20 B8 45 32 00 BD 68 E0 42 43 4C 43 00 C5 68 |Y .E2..h.BCLC..h|
000060C0: EA 42 52 54 53 00 D6 68 F4 42 54 45 53 54 43 48 |.BRTS..h.BTESTCH|
000060D0: 52 33 20 50 4C 41 00 E2 68 FE 42 4C 44 59 20 B8 |R3 PLA..h.BLDY .|
000060E0: 45 32 00 EA 68 08 43 53 45 43 00 F2 68 12 43 52 |E2..h.CSEC..h.CR|
000060F0: 54 53 00 00 00 |TS... |
....D.L...N... $7D00. .X..OPT OO.6...; K
ERNAL.ROUTINEN.D.... . $FFD2.R.... . $FF
F0.E. .SETNAM . $FFBD.X...SETFLS . $FFBA
...... . $FFC0..... . $FFC3...H.CHKIN .
$FFC6...R.CHKOUT . $FFC9.I....CH . $FFC
C.W.... . $FFE4.....BA. . $FFCF......PRT
. $BDCD.....; ZEROPAGE.ADRESSEN.....FIR
E . $03.+.... . $F7.9.".COL . $F8.H.,.RE
G1 . $FB.W.6.REG2 . $FC.F.@.REG3 . $FD.U
.J.REG4 . $FE...T.W.D1 . $14...^.W.D2 .
$05...H..E1 . $02...R..E2 . $96...|..E3
. $B6.K....E4 . $BD......E5 . $030E.....
LAST . $0257...... . $0258.....BUFBEG .
$0380.....BUF. . $03F2.-.B.W. . $03FC.>.
L.WCOL . $03FD.P.V.WHIGH . $03FE.C...WWI
DTH . $03FF.U...LOCOL . $03F7.....LO. .
$03F8.....RUCOL . $03F9.....RU. . $03FA.
....W.S . $03FB.F...WY . $03F3.U.&.WX .
$03F4...0.WH . $03F5...:.WW . $03F6...D.
MAX . $030C...N..D . $030D.'.X.STARTVEC
. $0311.>.B.; S.STIGE ADRESSEN.N.L.VIC .
$D000._.V.CIA1 . $DC00.T...; UNTERPROGR
AMME......OUT PHA ; 8 BIT A.....LSR ....
.LSR .....LSR .....LSR ...... #$0F.C.F.T
AY .T.P.LDA .BYTES,Y...Z.JSR ......PLA .
..... #$0F.....TAY .....LDA .BYTES,Y....
.JMP ..7....BYTES .F "0123456789ABCDEF".
S. .W.DOUT PHA ; 16 BIT A.X.\.*.TXA .I.4
.JSR .OUT.R.>.PLA ..H.JMP .OUT...R..OUT
STA W.D1 ; . AUSGEBEN, .E.0, PO.ER A.Y.
..\.STY W.D1.1.K.F.LDY #$00...P.TEX.UT1
LDA (W.D1),Y...Z.BEQ TEX.UT2.....CMP #$0
1.....BEQ .OUT3.....CMP #$02.*...BEQ .OU
T6.4...JSR ..I....OUT4 JSR W.DINC.Y...JM
P TEX.UT1.J.J.TEX.UT2 RTS ..T..OUT6 JSR
W.DINC.....LDA (W.D1),Y.....SEC.....SBC
#"."......BYT $2C.E....OUT3 LDA #$00.Q.
..STA .E4.....JSR W.DINC...$.LDA (W.D1),
Y.....TAY...8.LDA #"."...B.CLC...L.ADC .
E4.*.V..OUT5 JSR ..2.`.DEY.@.J.BNE .OUT5
.N.T.BEQ .OUT4.|.~.ADDITI. CLC ; A.Y . R
EG1.REG2 . REG3.REG4.....ADC REG1.....ST
A REG3.....TYA .....ADC REG2.....STA REG
4.B...RTS ...D.. PHA ; A.Y . X . REG3.RE
G4...N.LDA #$00...X.STA REG1.....STA REG
2.....STA REG3.#...STA REG4.,...PLA .9..
.CPX #$00.D...BEQ .2.P...STA .E1.\.(.STY
.E2.O.2..1 JSR ADDITI..~.<.JSR R3INR1..
.F.JSR R4INR2...P.LDA .E1...Z.LDY .E2...
D.DEX ...N.BNE .1.D.X..2 RTS.....R3INR1
PHA ; REG3 IN REG1.....LDA REG3.....STA
REG1... .PLA .....RTS .,...R4INR2 PHA ;
REG4 IN REG2.9...LDA REG4.F.H.STA REG2.O
.R.PLA .X...RTS .V...R1INR3 PHA ; REG1 I
N REG3.....LDA REG1.....STA REG3.....PLA
.....RTS .....R2INR4 PHA ; REG2 IN REG4
.M.".LDA REG2.Z.,.STA REG4...6.PLA ...@.
RTS .*.J.DIVIDE STA REG3 ; A.Y . REG1.RE
G2 . REG3.REG4, REST .E1.2.7.T.STY REG4.
D.^.LDX #$00.P.H.STX .E1.\.R.STX .E2.I.|
.LDY #$10.~...DIVIDE1 ASL REG3.....ROL R
EG4.....ROL .E1.....ROL .E2.....SEC ....
.LDA .E1.E.B.SBC REG1.N.L.TAX .Z.V.LDA .
E2.....SBC REG2.....BCC DIVIDE2.....STX
.E1.....STA .E2.....INC REG3.-...DIVIDE2
DEY .=...BNE DIVIDE1.F.&.RTS .H.0.BINOU
T LDY #$08 ; BYTE BINAER.Y.:.BINOUT1 ASL
...D.STA .E1...N.BCC BINOUT2...X.LDA #"
1"...B.BNE BINOUT3.G.L.BINOUT2 LDA #"0".
..V.BINOUT3 JSR $FFD2.....LDA .E1.....DE
Y .....BNE BINOUT1.....RTS .=...SCR. STY
.E3 ; X.ZEILE, Y.SPALTE, ERG IN R3.4.F.
..TXA .S...LDY #$00.`.F.STY REG2.M.P.LDX
#$28.Z.Z.STA REG1.....JSR ......JSR R3I
NR1.....JSR R4INR2.....LDA .E3.....LDY #
$00.K...JSR ADDITI..Z. .JSR R3INR1...*.J
SR R4INR2...4.LDA #.($0400)...>.LDY #.($
0400)...H.JMP ADDITI..Q.R.W. CLC ;X.Y ZE
ILE.SPALTE, REG1.2 . BREITE.HOEHE.].\.ST
X .E1.I.F.STY .E2.S.P.JSR ....Z.LDA #$00
.....STA W.S.....INC REG2.....W.1 JSR R1
INR3.S...DEC REG3 ; DA GAD. 2 ZEICHEN BR
EIT.....LDA #".".....JSR ......LDA #".".
..J.JSR ....T.LDA #".".....W.2 JSR ..)..
.DEC REG3.5...BNE W.2.B...LDA #".".L...J
SR ..\...W.3 LDX .E1.H...LDY .E2.Q.$.INX
.~...DEC REG2...8.BEQ W.5...B.STX .E1..
.L.CLC ...V.JSR ....`.LDA #"."...J.JSR .
.O.T.JSR R1INR3...~.LDA #" ".....W.4 JSR
......DEC REG3.....BNE W.4.....LDA #"."
.....JSR ..&...JMP W.3.6.D.W.5 LDX .E1.B
.N.LDY .E2.K.X.INX .T...CLC .^...JSR ..K
...LDA #".".U...JSR ......JSR R1INR3....
.LDA #".".....W.6 JSR ....(.DEC REG3...2
.BNE W.6.E.<.LDA #".".O.F.JMP ....P.RAM
PHA ...Z.LDA #$34...D.SEI ...N.STA $01..
.X.PLA .....RTS .....ROM PHA .*...LDA #$
37.6. .STA $01.?...CLI .H...PLA .Q...RTS
.U.H.SCR. JSR RAM ; SCREEN SPEICHERN...
R.LDY .D.....LDA HIBYTES,Y.....STA W.D1.
1.....LDA #.$03F6.....STA W.D2.1.M...LDA
#$00.Z...STA W.D1.....LDA #.$03F6...".S
TA W.D2...,.SCR.0 LDA #.1011...6.STA REG
1.(.@.LDA #.1011.5.J.STA REG2.B.T.LDY #$
00.Y.^.SCR.1 LDA (W.D2),Y.J.H.STA (W.D1)
,Y.Z.R.JSR W.D2INC...|.JSR W.DINC.....LD
A REG1.....SEC .....SBC #$01.....STA REG
1.F...LDA REG2.S...SBC #$00...B.STA REG2
...L.CMP #$00...V.BNE SCR.1.....LDA REG1
.....BNE SCR.1.'...SCR.4 INC .D.3...JMP
ROM.D...HIBYTES .BYT $FC,$F8,$F4,$F0,$EC
,$E8,$E4,$E0.}....BYT $DC,$D8,$D4,$D0...
...BYT $00,$00,$00,$00...&.SCR. JSR RAM
; SCREEN HOC...0.LDY .D.H.:.DEY .Z.D.LDA
HIBYTES,Y...N.STA W.D2.1...X.LDA #.$03F
6...B.STA W.D1.1...L.LDA #$00.".V.STA W.
D2.2...LDA #.$03F6.?...STA W.D1.M...LDA
SCR.4.V...PHA .C...LDA #$60.Q...STA SCR.
4.....JSR SCR.0 ; BILDSCHIRM VERSCHIEBEN
...F.PLA ...P.STA SCR.4...Z.DEC .D.F...J
MP ROM......OUT PHA ; NEUE AUSGABEROUTIN
E.....JMP NO1.....NO2 TYA.....PHA .....T
XA ... .PHA .:.*.LDA W.S ; WINDOW . SCRE
EN.`.4.BEQ .OUT2 ; 0.SCREEN, S.ST WINDOW
.L.>.LDA .E5.}.H.. #%01111111...R.CMP #$
0D...\.BNE .OUT0. .F.SEC...P.JSR ....Z.I
NX.....LDY LOCOL.H...CLC.R...JSR ..Z...P
LA.....TAX.....PLA.....TAY...J.PLA...T.L
DA #$00.....STA $C7.!...JMP $F1CA./....O
UT0 SEC.9...JSR ..E...CPX LO..S...BCS .O
UTH._...LDX LO..M.$.LDY LOCOL.U...CLC..
8.JSR ....B.SEC...L.JSR ....V.JMP .OUT2.
..`..OUTH CPX RU....J.BEQ .OUT1.M.T.BCS
.OUT4...~..OUT1 CPY LOCOL.....BCC .OUT5.
....CPY RUCOL.....BEQ .OUT2.....BCS .OUT
5.(....OUT2 PLA .1...TAX .:.D.PLA .C.N.T
AY .L.X.PLA .Z...JMP $F1CA.L....OUT5 CPX
RU..Z...BCC .OUT3.....JSR .OUT6.....DEX
......OUT3 LDY LOCOL.....INX ...(.CLC .
A.2.JSR ..O.<.JMP .OUT2.X.F.DEX ...P.JSR
.OUT6...Z.JMP .OUT3...D..OUT4 JSR .OUT6
...N.LDX RU..".X.LDY LOCOL.+...CLC .5...
JSR ..C...JMP .OUT1.W. ..OUT6 LDA RUCOL.
E...SBC LOCOL.Q...STA $C8.}...DEC $C8...
H.LDY LOCOL...R.LDX LO......STX $02.....
DEC $02.....CLC .B...JSR ..N...LDA $D1.Z
...ADC $D3.....STA REG1...".LDA $D2...,.
ADC #$00...6.STA REG2...@.LDA REG1.'.J.A
DC #$28.4.T.STA REG3.A.^.LDA REG2.N.H.AD
C #$00.[.R.STA REG4.H.|.LDY #$00.....OU
T8 LDA (REG3),Y.....STA (REG1),Y.....CPY
$C8.....BEQ .OUTB.....BCS .OUTC.G....OU
TB INY .U.B.BNE .OUT8...L..OUTC INC $02.
..V.LDY $02.....INY .. ..CPY RU... ..BCS
.OUT7.# ..LDA REG3.0 ..STA REG1.= ..LDA
REG4.J ..STA REG2.W &.LDA REG3.D 0.ADC
#$28.Q :.STA REG3.~ D.LDA REG4.. N.ADC #
$00.. X.STA REG4.. B.LDY #$00.. L.JMP .O
UT8.E V..OUT7 LDX RU..Q ..JMP ..1.. ....
CLC.. ..ADC LO... ..TAX..!....1 LDY LOC
OL..!..CLC..!..JSR ..!!F.LDA #" ".-!P.LD
Y $D3.C!Z..OUT9 STA ($D1),Y.L!..INY .Z!.
.CPY RUCOL.H!..BEQ .OUT9.V!..BCC .OUT9..
!...OUTA LDA $028D..!..CMP #$04..! .BEQ
.OUTA..!*.RTS.A!4.W.DINC INC W.D1.Q!>.BN
E W.DINC1..!H.INC W.D1.1..!R.W.DINC1 RTS
.."\.W.D2INC INC W.D2.."F.BNE W.D2INC1.%
"P.INC W.D2.1.6"Z.W.D2INC1 RTS.H"..; HA
UPT UP'S.W"..WINOUT PHA._"..TYA.G"..PHA.
R"..LDX W.."..LDY WCOL.."..LDA WHIGH.."
J.STA REG2.."T.LDA WWIDTH.."..STA REG1.C
"..LDA #$00.."..STA W.S ; AUSGABEN AUS G
ANZEM SCREEN..#..JSR W. ; RAHMEN ZEICHNE
N..#..LDX W..!#..LDY WCOL.)#..INY.1#$.IN
Y.9#..INY.A#8.CLC.K#B.JSR ..S#L.PLA.[#V.
TAY.H#`.LDA #$01.T#J.STA $C7.|#T.PLA..#~
.JSR .OUT..#..LDA #$00..#..STA $C7..#..L
DX W...#..LDY WCOL.B#..INX..#..INX ; OBE
RE 2 ZEIC BELASSEN..#D.STX LO...#N.LDX W
COL..$X.INX.)$..STX LOCOL ; LINKE SPALTE
BELASSEN.8$..LDA WWIDTH.A$..CLC .O$..AD
C LOCOL.]$..STA RUCOL.K$..DEC RUCOL.Y$..
LDA WHIGH..$(.CLC ..$2.ADC LO...$<.STA R
U...$F.DEC RU...$P.DEC RU...$Z.LDA #$01.
.$D.STA W.S ; AUSGABEN IN WINDOW..$N.RTS
..%X.SETCOL LDX #.$D800..%..STX W.D1..%
..LDX #.$D800.,%..STX W.D1.1.B% .SETCOL1
LDA $0286.O%..LDY #$00.`%..STA (W.D1),Y
.O%..JSR W.DINC.~%H.LDA W.D1.1..%R.CMP #
$DC..%..BNE SETCOL1..%..RTS..%..W4FIRE L
DA FIRE.F%..BEQ W4FIRE..%..W4FIRE1 LDA F
IRE..%..BNE W4FIRE1..%..RTS. &".H. LDA V
IC ; SPRITE IN . CO.. NACH ..COL.-&,.STA
REG1.<&6.LDA VIC.16.M&@.. #%00000001.Z&
J.STA REG2.B&T.SEC.O&^.LDA REG1.|&H.SBC
#$18..&R.STA REG1..&|.LDA REG2..&..SBC #
$00..&..TAY..&..LDA REG1.E&..LDX #$08.R&
..STX REG1..&..LDX #$00..&B.STX REG2..&L
.JSR DIVIDE..'V.LDA REG3..'..CMP #$FF.!'
..BNE H.1..'..LDA #$00.>'..H.1 STA COL.L
'..LDA VIC.1.T'..SEC.A'..SBC #$32.N'&.LD
Y #$00.{'0.STY REG2..':.LDX #$08..'D.STX
REG1..'N.JSR DIVIDE..'X.LDA REG3..'B.ST
A ..C'L.RTS..(V.ANALYZE JSR H. ; MOUSE A
NALYSIEREN, FF. , FE.UP. FD.DOWN,0.NIX..
(..LDY COL..(..LDX ..)(..CPY WCOL.:(..BC
S ANALYZE1.P(..ANALYZE2 LDA #$00.X(..RTS
.I(..ANALYZE1 TYA.Q(F.SEC.~(P.SBC WCOL..
(Z.SBC #$01..(..CMP WWIDTH..(..BEQ ANALY
ZE3..(..BMI ANALYZE3.M(..JMP ANALYZE2..(
..ANALYZE3 CPX W...(..BEQ ANALYZE7..) .B
CC ANALYZE2..)*.TXA..)4.SEC..)>.SBC W..+
)H.SBC #$01.9)R.CMP WHIGH.J)\.BCS ANALYZ
E2.R)F.RTS.E)P.ANALYZE7 LDX ..Q)Z.LDY CO
L.~)..JSR SCR...)..LDY #$00..)..LDA (REG
3),Y..)..CMP #$70..)..BEQ ANALYZE4.G)..C
MP #$71.X)..BEQ ANALYZE4..)J.CMP #$76..)
T.BEQ ANALYZE5..*..CMP #$77..*..BEQ ANAL
YZE6.%*..BNE ANALYZE2.;*..ANALYZE4 LDA #
$FF.C*..RTS.Y*..ANALYZE5 LDA #$FE.A*..RT
S.W*$.ANALYZE6 LDA #$FD.*..RTS..*8.; WI
NDOW.O*B.; ZEILE, SPALTE, BREITE, HOEHE
IN WY, WX, WW, WH; A.Y . .PO.ER..*L.WIND
OW PHA..*V.TYA..*`.PHA..*J.JSR SCR...+T.
LDA WX..+~.STA WCOL..+..LDA WY.)+..STA W
..4+..LDA WW.C+..STA WWIDTH.N+..LDA WH.\
+..STA WHIGH.D+D.PLA.L+N.TAY.T+X.PLA..+.
.JMP WINOUT..+..; MENU..+..; START IN A.
Y, AUSWAHL IN A & Y.Z+..; ABGRENZUNG MUS
S "." (C. H) SEIN!..+..MENU STA W.D1..+.
.STY W.D1.1..,..JSR $E566..,(.LDY #$00."
,2.STY .E1.9,<.MENU1 LDA (W.D1),Y.F,F.CM
P #".".T,P.BEQ MENU3.D,Z.MENU2 JSR ..L,D
.INY.Y,N.CPY #$28..,X.BNE MENU1..,..BEQ
MENU4..,..MENU3 SEC..,..STY .E2.., .JSR
..A,..TYA.M,..LDY .E1..,..STA BUFBEG,Y..
,H.INC .E1..,R.LDY .E2..-..LDA #"."..-..
BNE MENU2.$-..MENU4 LDA #".".1-..LDY #$0
0.A-..MENU5 JSR ..I-..INY.V-..CPY #$28.D
-".BNE MENU5.P-,.LDY .E1.}-6.LDA #$FF..-
@.STA BUFBEG,Y..-J.MENU5A JSR W4FIRE..-T
.JSR H...-^.LDA ..H-H.BNE MENU5A.T-R.LDA
COL..-|.LDY #$00..-..MENU6 CMP BUFBEG,Y
.....BCC MENU7.....INY.....BNE MENU6.*..
.MENU7 TYA.2...RTS.G.B.; PULL DOWN MENU.
..L.; SPALTE, BREITE, HOEHE, .PO.ER IN W
X, WW, WH, A.Y, AUSWAHL IN A...V.PDMENU
PHA.....TYA.....PHA.....LDA #$01.C...STA
WY.R...LDA #.ZERO.....LDY #.ZERO.....JS
R WINDOW...&.LDA #$00../0.STA W.S../:.LD
Y WX.!/D.LDX #$01.)/N.CLC.3/X.JSR ..@/B.
LDA #".".J/L.JSR ..U/V.LDY WW.B/..LDA #"
.".T/..PDMENU1 JSR ..|/..DEY../..BNE PDM
ENU1../..LDA #"."../..JSR .../..DEC LO..
./F.LDA #$01.H/P.STA W.S.P/Z.PLA.X/..TAY
../..PLA../..JSR .OUT../..JSR W4FIRE..0.
.JSR H...0..LDA WCOL..0 .CLC.+0*.ADC WWI
DTH.804.ADC #$01.D0>.STA .E1.Q0H.LDA #$0
2.Y0R.CLC.G0\.ADC WHIGH.S0F.STA .E2.0P.
LDA COL..0Z.CMP WCOL..0..BCS PDMENU3..0.
.PDMENU2 LDA #$00..0..RTS.M0..PDMENU3 CM
P .E1..0..BEQ PDMENU4..0..BCS PDMENU2..0
..PDMENU4 LDA ...1J.CMP #$02..1T.BCC PDM
ENU2.(1..CMP .E2.81..BCS PDMENU2.H1..PDM
ENU5 SEC.U1..SBC #$01.]1..RTS.J1..; INVE
RS.1..REINVERS LDA $04..1$.INVERS PHA..
1..CLC..18.ADC LO...1B.TAX..1L.DEX..1V.L
DY LOCOL.M1`.JSR SCR...1J.INVERS0 LDY #$
00..1T.INVERS1 LDA (REG3),Y..2~.CMP #$75
..2..BEQ INVERS2.%2..CMP #$F5.52..BEQ IN
VERS2.G2..E. #%10000000.X2..STA (REG3),Y
.`2..INY.P2D.BNE INVERS1..2N.INVERS2 PLA
..2X.STA $04..2..RTS..2..; SURE.P2..; AR
E YOU SURE.ABFRAGE, A.FF . NO, A.0 . YES
..2..SURE LDA #$0D..2..STA WW..2..LDA #$
0E..3..STA WX..3(.LDA #$09..32.STA WY.*3
<.LDA #$06.53F.STA WH.D3P.LDA #.ZERO.S3Z
.LDY #.ZERO.B3D.JSR WINDOW.R3N.LDA #.SUR
ET..3X.LDY #.SURET..3..JSR .OUT..3..SURE
1 JSR W4FIRE..3..JSR ANALYZE.A3 .CMP #$0
0.O3..BEQ SURE1..3..CMP #$FF..3..BEQ SUR
E2..3H.CMP #$03..4R.BCC SURE1..4..LDA CO
L..4..CMP #$13.,4..BCC SURE1.94..CMP #$1
8.G4..BCS SURE1.T4..LDA #$00.B4..SURE2 P
HA.O4".JSR SCR..W4,.PLA.46.RTS..4@.SURE
T .F "ARE YOU SURE?":.BYT $0D,$0D,$01,$0
4.Q4J..F ".....":.BYT $0D,$01,$04..4T..F
".YES.":.BYT $0D,$01,$04..5^..F "....."
:.BYT $00.+5H.SPOUT STY . ; BINAER AUSGE
BEN.85R.LDY #$08.G5|.SPOUT1 ASL.S5..STA
.E1.B5..BCC SPOUT2.O5..LDA #".".Y5..JSR
...5..SPOUT2 LDA #"."..5..JSR ...5B.LDA
#"."..5L.JSR ...5V.LDA .E1.B5..DEY.Q5..B
NE SPOUT1..5..LDY ...5..RTS..6. SPRITEOU
T LDX #$03 ; SPRITE AUSGEBEN..6. LDY #$0
3.!6. CLC.+6& JSR ..860 LDY #$00.P6: SPR
ITE1 LDA $0340,Y.^6D JSR SPOUT.F6N INY.V
6X LDA $0340,Y..6B JSR SPOUT..6L INY..6V
LDA $0340,Y..6. JSR SPOUT..6. INY..6. C
PY #$3E.O6. BCS SPRITE2..6. LDA #$0D..6.
JSR $FFD2..6. JMP SPRITE1..7F SPRITE2 R
TS..7P ; ..ROUTINE._7Z ; IM AKTULC WINDO
W NACH $0200 (MAX. 40 ZEICHEN), .E . 0,
C . .E1..7. ; WIRD MIT FEUER BE.ET, DANN
A . $FF..7. . LDA #$00..7. STA .E1..7.!
JSR ...7.!.1 LDA #$00.I7.!STA $CC.U7 !ST
A $C6..7*!.2 LDA $C6..74!BNE .2A..7>!LDA
FIRE..8H!BEQ .2..8R!JMP ..F."8\!.2A JSR
../8F!LDY #$02.;8P!STY $CD.J8Z!.3 LDY $
CF.U8.!BNE .3.]8.!INY.I8.!STY $CC.Q8.!DE
Y.}8.!STA .E2..8.!.4 LDA .BIDDEN,Y..8.!B
EQ .5..8J!CMP .E2..8T!BEQ .1..8.!INY.G8.
!BNE .4.V8.!.5 LDA .E2..8.!CMP #$14..8."
BEQ .DEL..8."CMP #$0D..9."BEQ ....9$"LDY
WW..9."DEY.'98"CPY .E1.29B"BEQ .1.>9L"L
DA .E2.J9V"LDY .E1.Z9`"STA $0200,Y.D9J"J
SR ..P9T"INC .E1.{9~"JMP .1..9.".DEL LDA
.E1..9."BEQ .1..9."DEC .E1..9."LDA #"."
..9."JSR ..H9."JSR SPACE.U9D"LDA #"."..9
N"JSR ...9X"JMP .1..9.".. LDY .E1..:."LD
A #$00..:."STA $0200,Y.#:.#LDA #$01./:.#
STA $CC.7:.#RTS.H:.#..F LDA FIRE.T:(#BNE
..F.`:2#LDY .E1.M:<#LDA #$00.}:F#STA $0
200,Y..:P#LDA #$FF..:Z#STA $CC..:D#RTS..
:N#.BIDDEN .F ".........................
........":.BYT $8D,$22,$00..;X#NAMEWINDO
W LDA #$0D ; WINDOW FUER FICAME USW..;.#
STA WX.);.#STA WY.6;.#LDA #$11.A; #STA W
W.N;.#LDA #$06.Y;.#STA WH.N;.#LDA #.NAME
WINDTI..;H#LDY #.NAMEWINDTI..;R#JSR WIND
OW..;.#LDA #.NAMEWINDT..;.#LDY #.NAMEWIN
DT.G;.#JSR .OUT.Q;.#JSR ...;.$CMP #$FF..
;.$BNE NAMEWIND1..;.$LDA .E1..<"$BEQ NAM
EWIND0..<,$LDA .E1."<6$PHA.2<@$JSR ANALY
ZE.:<J$PLA.F<T$STA .E1.S<^$CMP #$FF.E<H$
BNE NAMEWIND1.~<R$NAMEWINDOW2 .BYT $2C..
<|$NAMEWIND1 LDA #$00..<.$PHA..<.$JSR SC
R...<.$PLA..<.$RTS.Q<.$NAMEWIND0 LDA #$F
F..<.$BNE NAMEWINDOW2..=B$NAMEWINDTI .F
"REQUESTER":.BYT $00.>=L$NAMEWINDT .F "P
LEASE ENTER NAME":.BYT $0D,$0D.J=V$.F "F
OR DISCOPERATION":.BYT $0D,$0D,$00.S=.$;
S...=.$; SEC.RY IM BASICPRG..MAT NACH $
A000 (PUFFER BIS $AC00).C=.$STRING .BYT
"$".S=.$S. LDA #$01..=.%LDX #.STRING..=.
%LDY #.STRING..>.%S.0 JSR DG1..>&%LDX #$
08..>0%TXA.'>:%LDY #$00.6>D%JSR SETFLS.@
>N%JSR ..M>X%LDX #$08.[>B%JSR CHKIN.H>L%
LDA #$00.T>V%STA $90..>.%LDA #.$A000..>.
%STA W.D1..>.%LDA #.$A000..>.%STA W.D1.1
..>.%S.1 JSR ROM.L>.%JSR BA..X>.%LDX $90
..>F%BNE S.2..>P%JSR RAM..>Z%LDY #$00..?
.%STA (W.D1),Y..?.%JSR W.DINC.)?.%JMP S.
1.9?.&S.2 JSR .CH.F?.&LDA #$08.R?.&JSR D
G2._? &LDA W.D1.K?*&JSR RAM.Y?4&STA $A00
0..?>&LDA W.D1.1..?H&STA $A001..?R&JMP R
OM..?\&SPRITE. LDY #$40.P?F&SPRITE.1 LDA
$0340,Y..?P&STA BUFBEG.10,Y..?Z&DEY..?.
&BPL SPRITE.1..@.&RTS..@.&SPRITE. LDY #$
40.7@.&SPRITE.1 LDA BUFBEG.10,Y.G@.&STA
$0340,Y.O@.&DEY.`@.&BPL SPRITE.1.H@J&RTS
.V@T&; FILEOUT..@.&; GIBT FILE X AUS..@.
&FILEOUT LDY #$00..@.&LDA #$20..@.&JSR .
.H@.'LDA #.$A002.P@.'CLC..@.'ADC REG3..@
$'STA REG3..@.'LDA #.$A002..A8'ADC REG4.
.AB'STA REG4.!AL'LDY #$02.-AV'JSR RAM.GA
`'FILEOUT0 LDA (REG3),Y.TAJ'CMP #" ".EAT
'BNE FILEOUT1.MA~'INY.~A.'BNE FILEOUT0..
A.'FILEOUT1 JSR RAM..A.'LDA (REG3),Y..A.
'INY..A.'STA .E1.EA.'LDX #$00..AD'FILEOU
T2 LDA .BIDDEN,X..AN'BEQ FILEOUT3..AX'CM
P .E1..B.'BEQ FILEOUT1..B.'INX.'B.'BNE F
ILEOUT2.<B.(FILEOUT3 LDA .E1.HB.(JSR ROM
.RB.(JSR .._B.(CPY #$1E.PB((BNE FILEOUT1
.|B2(LDX $D6..B<(LDY #$1A..BF(CLC..BP(JS
R ...BZ(LDY #$00..BD(JSR RAM.EBN(LDA (RE
G3),Y.MBX(TAX.UB.(INY..B.(LDA (REG3),Y..
B.(. #$02..B (JSR ROM..C.(JSR .PRT..C.(L
DA #$0D.!C.(JMP ..6CH(; FICR NACH MAX.H
CR(FICR LDA W.D1.PC.(SEC.`C.(SBC #.$A000
.MC.(STA W.D1.|C.(LDA W.D1.1..C.)SBC #.$
A000..C.)STA W.D1.1..C.)CMP #$00..C")BNE
FICR1.CC,)LDA W.D1.PC6)CMP #$40..C@)BCS
FICR1..CJ)LDX #$00..CT)BEQ FICR2..D^)FI
CR1 LDA #$00..DH)STA REG2.&DR)LDA #$20.3
D|)STA REG1.@D.)LDA W.D1.OD.)LDY W.D1.1.
^D.)JSR DIVIDE.KD.)LDX REG3.SD.)DEX..D.)
FICR2 STX MAX..DB)RTS..DL); SEC.RY AUSGE
BEN UND AUF ANKLICKEN WARTEN.PDV)SEC.RY
JSR FICR..D.)LDA #$19..D.)STA WW..D.)LDA
#$03..E.)STA WY..E.*STA WX..E.*LDA #$13
.#E.*STA WH.0E&*LDY #$00.<E0*JSR RAM.TE:
*SEC.RY1 LDA $A008,Y.DED*STA $0200,Y.LEN
*INY.YEX*CPY #$10..EB*BNE SEC.RY1..EL*LD
A #$00..EV*STA $0200,Y..E.*LDA #.$0200.F
E.*LDY #.$0200.UE.*JSR WINDOW..E.*LDA #$
76..E.*STA $0492..E.*LDA #$77..F.*STA $0
494..FF*LDA #.B.E.'FP*LDY #.B.E.4FZ*JSR
.OUT.@F.*JSR RAM.NF.*LDA $A000.VF.*SEC.C
F.+SBC #$1F.PF.+STA W.D1.~F.+LDA $A001..
F +SBC #$00..F*+STA W.D1.1..F4+LDY #$02.
.F>+LDA (W.D1),Y..FH+TAX.HFR+INY.YF\+LDA
(W.D1),Y..FF+. #$03..FP+STX .E1..FZ+STA
.E2..G.+JSR ROM..G.+JSR .PRT.%G.+LDA #.
BUSED.5G.+LDY #.BUSED.BG.+JSR .OUT.PG.+L
DA #.664.XG.+SEC.DGJ+SBC .E1.LGT+TAX.ZG.
+LDA #.664..G.+SBC .E2..G.+JSR .PRT..G.+
INC LO...G.,INC LO...G.,LDA MAX.ZG.,BEQ
SEC.RY. ; NULL FILES .. .E..G$,CMP #$11.
.G.,BCS SEC.RY3..H8,STA BUFBEG..HB,LDX #
$01.,HL,SEC.RY4 STX BUFBEG.1.<HV,JSR FIL
EOUT.KH`,DEC BUFBEG.[HJ,BEQ SEC.RY5.LHT,
LDX BUFBEG.1.TH~,INX..H.,BNE SEC.RY4..H.
,SEC.RY5 JSR W4FIRE..H.,JSR ANALYZE..H.,
CMP #$00.HH.,BEQ SEC.RY5.UH.,CMP #$FF..H
D,BNE SEC.RY6..HN,SEC.RY. LDA #$00..IX,S
TA $0200..I.,JMP SCR..*I.,SEC.RY6 CMP #$
01.:I.,BEQ SEC.RY5.GI.-CMP #$02.WI.-BEQ
SEC.RY5._I.-SEC.LI.-SBC #$02.XI(-STA .E1
..I2-LDA MAX..I<-CMP .E1. IF-BCC SEC.RY5
..IP-LDA $04..IZ-PHA..ID-LDA .E1.HIN-PHA
.WIX-JSR INVERS..I.-PLA..I.-STA .E1..I.-
PLA..I -STA $04..J.-LDA .E1..J.-JMP NAME
.BUF.1J.-SEC.RY3 LDX #$00.>JH-STX LAST.F
JR-INX._J.-SEC.RY7 STX BUFBEG.1.OJ.-JSR
FILEOUT..J.-LDX BUFBEG.1..J.-INX..J..CPX
#$11..J..BNE SEC.RY7..J..STX ..DJ".SEC.
RY8 LDA FIRE.TJ,.BEQ SEC.RY8..J6.JSR ANA
LYZE..J@.STA .E1..JJ.CMP #$FE..KT.BEQ SU
P..K^.CMP #$FD.$KH.BEQ SDOWN.9KR.SEC.RY9
LDA FIRE.IK|.BNE SEC.RY9.UK..LDA .E1.EK
..BEQ SEC.RY8.RK..CMP #$FF..K..BEQ SEC.R
Y...K..CMP #$01..K..BEQ SEC.RY8..KB.CMP
#$02..KL.BEQ SEC.RY8.DKV.SEC.QK..SBC #$0
2..K..STA .E1..K..LDA $04..K..PHA..K./LD
A .E1..L./PHA..L./JSR INVERS..L&/PLA.(L0
/STA .E1.0L:/PLA.<LD/STA $04.HLN/LDA .E1
.PLX/CLC.]LB/ADC LAST.NLL/JMP NAME.BUF.~
LV/SDOWN LDA ...L./CMP MAX..L./BEQ SDOWN
1..L./BCC SDOWN1..L./JMP SEC.RY8.KL./SDO
WN1 LDX RU..SL./INX..L./LDY LOCOL..LF/CL
C..LP/JSR ...MZ/LDA #$06..M./JSR ...M./L
DX ..$M./JSR FILEOUT..M.0INC ..;M.0INC L
AST.KM.0JMP SEC.RY8.\M 0SUP LDA LAST.IM*
0CMP #$00.VM40BNE SUP1..M>0JMP SEC.RY8..
MH0SUP1 JSR SCROLL..MR0LDA #"."..M\0JSR
...MF0LDX LAST.NMP0JSR FILEOUT..MZ0DEC L
AST..M.0DEC ...M.0JMP SEC.RY8..N.0NAME.B
UF LDY #$00..N.0TAX.!N.0STX $0380..N.0LD
A #$20.8N.0JSR ..HNJ0LDA #.$A002.PNT0CLC
.]N.0ADC REG3.JN.0STA W.D1.ZN.0LDA #.$A0
02..N.0ADC REG4..N.1STA W.D1.1..N.1JSR R
AM..N.1LDY #$00..N$1JSR W.DINC.MN.1JSR W
.DINC..N81NAME.BUF1 LDA (W.D1),Y..NB1JSR
W.DINC..OL1CMP #" "..OV1BEQ NAME.BUF1.1
O`1NAME.BUF2 LDA (W.D1),Y.>OJ1CMP #$22.P
OT1BEQ NAME.BUF3.`O~1STA $0200,Y.HO.1INY
.ZO.1BNE NAME.BUF2..O.1NAME.BUF3 LDA #$0
0..O.1STA $0200,Y..O.1JMP ROM..O.1SCROLL
LDX RU. ; WINDOW NACH UNTEN SCROLC..OD1
LDY LOCOL..ON1DEX..OX1JSR SCR...P.1LDA R
UCOL..P.1SEC."P.1SBC LOCOL.7P.2STA .E1 ;
BREITE.CP.2LDA RU..KP.2SEC.WP.2SBC LO..
KP(2STA .E2 ; HOEHE.ZP22JSR R3INR1..P<2J
SR R4INR2..PF2LDA REG1..PP2CLC..PZ2ADC #
$28..PD2STA REG3.EPN2LDA REG2.RPX2ADC #$
00..P.2STA REG4..P.2SCROLL0 LDY #$00..Q.
2SCROLL1 LDA (REG1),Y..Q 2STA (REG3),Y.*
Q.2CPY .E1.:Q.2BEQ SCROLL2.JQ.2BCS SCROL
L3.ZQH2SCROLL2 INY.JQR2BNE SCROLL1.Q.2S
CROLL3 LDA REG1..Q.2SEC..Q.2SBC #$28..Q.
2STA REG1..Q.3LDA REG2..Q.3SBC #$00.HQ.3
STA REG2.UQ"3LDA REG3..Q,3SEC..Q63SBC #$
28..Q@3STA REG3..RJ3LDA REG4..RT3SBC #$0
0..R^3STA REG4.*RH3DEC .E2.:RR3BNE SCROL
L0.GR|3LDA #$00.RR.3JMP ...OR.3B.E .F "F
REE: ":.BYT $00..R.3BUSED .BYT $01,$06:.
F "USED: "..R.3ZERO .BYT $00..R.3DG1 JSR
SETNAM.DR.3LDA #$0B.ORB3STA WW.ZRL3STA
WX..RV3STA WY..R.3LDA #$04..R.3STA WH..S
.3LDA #.ZERO..S.3LDY #.ZERO.*S.4JSR WIND
OW.8S.4LDA #.S.T.FS.4LDY #.S.T.SS&4JMP .
OUT.AS04DG2 JSR .NS:4LDA W.D1.VSD4PHA..
SN4LDA W.D1.1..SX4PHA..SB4JSR SCR...SL4P
LA..SV4STA W.D1.1..S.4PLA.FS.4STA W.D1.N
S.4RTS..S.4S.T .F "DISK ACCESS":.BYT $0D
,$0D..T.4.F "PLEASE WAIT":.BYT $00."T.4N
O1 STA .E5..T.4LDA $9A.;TF4CMP #$03.GTP4
BNE NO3.STZ4JMP NO2._T.4NO3 PLA.MT.4JMP
$F1CA..T.4NAME. LDY #$00..T.5NAME.1 LDA
$0200,Y..T.5STA $0220,Y..T.5BEQ NAME.2..
T 5INY.MT*5BNE NAME.1..T45NAME.2 RTS..T>
5NAME200 JSR NAMC..TH5TYA..UR5LDX #.$020
0..U\5LDY #.$0200.(UF5JMP SETNAM..UP5;.\
UZ5.START LDX $0380 ; STARTADRESSE NACH
W.D1.HU.5STX $7A.UU.5LDA #$20..U.5LDY #$
00..U.5JSR ...U.5LDA #.$A018..U.5CLC..U.
5ADC REG3..UJ5STA REG3.NUT5LDA #.$A018..
U.5ADC REG4..U.5STA REG4..U.5JSR RAM..V.
5LDY #$00..V.6JMP GS1..V.6GS2 JSR NAMC.&
V.6PLA.6V$6STA $0201,Y.CV.6LDA #",".SV86
STA $0200,Y.CVB6STA $0202,Y.PVL6LDA #"R"
..VV6STA $0203,Y..V`6LDA #$00..VJ6STA $0
204,Y..VT6JSR ROM..V~6JSR NAME200.EV.6JS
R .N..SV.6JSR N.IN2..V.6JSR BA...V.6STA
W.D1..V.6JSR BA...W.6STA W.D1.1..WD6JSR
.CH. WN6LDA #$08.*WX6JMP .0W.6;.UW.6.CG
TH LDX $7A ; LAENGE NACH W.D1.BW.6LDA #$
20.OW.7LDY #$00.YW.7JSR ...W.7LDA #.$A00
2..W.7CLC..W(7ADC REG3..W27STA REG3..W<7
LDA #.$A002.HWF7ADC REG4.UWP7STA REG4..W
Z7JSR RAM..WD7LDY #$00..WN7LDA (REG3),Y.
.XX7STA W.D1..X.7INY.%X.7LDA (REG3),Y.4X
.7STA W.D1.1.@X 7JMP ROM.FX.7;.DX.7. LDX
#$80 ; WARTESCHLE.E.TX.7.1 LDY #$00.XH
7.2 DEY..XR7BNE .2..X.7DEX..X.7BNE .1..X
.7RTS..X.7;.UX.8BLINK TAX ; MENUEPUNKT B
LINKEN LASSEN..X.8LDA $04..X.8PHA..X"8TX
A..X,8PHA..Y68JSR INVERS..Y@8JSR ..#YJ8J
SR REINVERS.-YT8JSR ..<Y^8JSR INVERS.FYH
8JSR ..NYR8PLA.VY|8TAX.^Y.8PLA.JY.8STA $
04.RY.8TXA.ZY.8RTS..Y.8NAMC LDY #$00 ; $
0200 BIS 0..Y..Y.8NAMC1 LDA $0200,Y.AYB8
BEQ NAMC2.IYL8INY.WYV8BNE NAMC1..Y.8NAMC
2 RTS..Y.8;..Y.8.ERR LDA #$0F..Z.8TAY..Z
.9LDX #$08.!Z.9JSR SETFLS.+Z.9JMP ..1Z&9
;.CZ09 ERR LDA #$0F.MZ:9JMP .SZD9;.HZN9
DOUBLE. JSR SCR..UZX9JMP SCR..{ZB9;..ZL9
SETN. LDA #$08..ZV9TAX..Z.9TAY..Z.9JMP S
ETFLS..Z.9;.EZ.9.N. JSR SETN..OZ.9JMP ..
UZ.9;..Z.9ERROUT LDX #$0F..ZF9.BYT $2C..
[P9N.OUT LDX #$02..[Z9JMP CHKOUT..[.9;.0
[.9N.IN LDX #$02.=[.9.BYT $2C.P[.:N.IN2
LDX #$08.^[.:JMP CHKIN.D[.:;..[ :. LDA #
$00 ; DISK. NACH $0200..[*:JSR SETNAM..[
4:LDY #$0F..[>:LDX #$08..[H:LDA #$04.K[R
:JSR SETFLS.U[\:JSR ...[F:LDX #$04..[P:J
SR CHKIN..[Z:LDY #$00..\.:.1 JSR BA...\.
:STA $0200,Y.$\.:INY.1\.:CMP #$0D.<\.:BN
E .1.I\.:LDA #$00.Y\.:STA $0200,Y.E\J:JS
R .CH.R\T:LDA #$04.|\.:JMP ..\.:SCR. LD
A VIC.17 ; BILDSCHIRM AUS..\.:. #%111011
11.A\.:STA VIC.17.I\.;RTS..\.;.BRK CLD ;
NEUE BRK.ROUTINE..\.;LDA #$1C..]$;STA W
W..].;LDA #$03..]8;STA WH.&]B;LDA #$05.1
]L;STA WX.>]V;LDA #$10.I]`;STA WY.[]J;LD
A #.BRKTXT1.M]T;LDY #.BRKTXT1.|]~;JSR WI
NDOW..].;LDA #.BRK...].;LDY #.BRK...].;J
SR .OUT..].;PLA ..].;JSR .SP.E].;PLA .Q]
D;JSR .SP.Z]N;PLA ..]X;JSR .SP..].;PLA .
.].;STA .E3..^.;JSR .SP..^.<PLA ..^.<STA
.E1.%^.<PLA .1^.<STA .E2.:^(<TSX .F^2<J
SR .SP.R^<<LDA .E1.[^F<SEC .H^P<SBC #$02
.T^Z<STA .E1..^D<LDA .E2..^N<SBC #$00..^
X<TAX ..^.<LDA .E1..^.<JSR W.DOUT..^.<JS
R SPACE.K^ <LDA .E3.Z^.<JSR BINOUT..^.<.
BRK1 JSR .WINDOW..^.<CMP #$FF.._H<BNE .B
RK1.._R<LDA #$01.#_.<STA .D.0_.<JSR SCR.
.C_.<JMP (STARTVEC).N_.<BRK. .F "YR XR A
C ST SP PC NV-BDIZC".{_.=.BYT $00.._.=
BRKTXT1 .F "SYSTEM-".._.=ERR. .F "ERROR"
:.BYT $00.W_"=.IRQ LDA CIA1 ; NEUE IRQ.R
OUTINEN.._,=. #%00000001.._6=BNE .IRQ1..
`@=DEC VIC.1..`J=LDA VIC.1..`T=CMP #$31.
-`^=BNE .IRQ1.;`H=INC VIC.1.N`R=.IRQ1 LD
A CIA1._`|=. #%00000010.M`.=BNE .IRQ2.{`
.=INC VIC.1..`.=LDA VIC.1..`.=CMP #$F5..
`.=BNE .IRQ2..`.=DEC VIC.1.E`B=.IRQ2 LDA
CIA1.V`L=. #%00000100..`V=BNE .IRQ4..`.
=LDA VIC.16..A.=. #%00000001..A.=BNE .IR
Q3..A.=DEC VIC.*A.>LDA VIC.7A.>CMP #$17.
EA.>BNE .IRQ4.QA&>INC VIC._A0>JMP .IRQ4.
QA:>.IRQ3 DEC VIC.}AD>LDA VIC..AN>CMP #$
FF..AX>BNE .IRQ4..AB>LDA VIC.16..AL>. #%
11111110.GAV>STA VIC.16.ZA.>.IRQ4 LDA CI
A1..A.>. #%00001000..A.>BNE .IRQ6..B.>LD
A VIC.16..B.>. #%00000001.'B.>BNE .IRQ5.
3B.>INC VIC.?BF>LDA VIC.MBP>BNE .IRQ6.\B
Z>LDA VIC.16.NB.>.A #%00000001.}B.>STA V
IC.16..B.>JMP .IRQ6..B.?.IRQ5 INC VIC..B
.?LDA VIC..B.?CMP #$53.DB ?BNE .IRQ6.PB*
?DEC VIC..B4?.IRQ6 LDA CIA1..B>?. #%0001
0000..CH?BNE .IRQ7..CR?LDA #$01..C\?.BYT
$2C./CF?.IRQ7 LDA #$00.<CP?STA FIRE.PCZ
?.IRQ8 JMP $EA31.AC.?.SP JSR .OUT.TC.?SP
ACE LDA #" ".~C.?JMP ...C.?.WINDOW JSR W
4FIRE..C.?JMP ANALYZE..C.?.NMI RTI..C.?;
.MCJ?GS1 LDA (REG3),Y.ZCT?CMP #" "..C.?B
NE GS3..C.?INY..C.?BNE GS1..D.?GS3 PHA..
D.@JMP GS2.$D.@KANAL .F "#1".DD.@. .F "U
1 2 0 18 0":.BYT $00.GD$@.TXT .F "DISK-S
TATUS":.BYT $00..D.@FIRST. LDA #$01 ; ER
STEN SEC.RY. EINLESEN..D8@LDX #..TXT.1..
DB@LDY #..TXT.1.FDL@JSR SETNAM.SDV@JSR .
ERR..D`@LDX #$08..DJ@LDY #$02..DT@TYA..E
~@JSR SETFLS..E.@LDA #$02.!E.@LDX #.KANA
L.1E.@LDY #.KANAL.@E.@JSR SETNAM.JE.@JSR
..YE.@JSR ERROUT.EED@LDA #...QEN@LDY #.
..EX@JSR $AB1E..E.@JMP .CH..E.@CR LDA #
$0D..E.@JMP ..AE.AS.UT JSR . ; . AUSGEBE
N.NE.ALDA #$20.YE.ASTA WW..E.ALDX #$05..
E(ALDY #$0C..F2ALDA #$02..F<AJSR WSET..F
FALDA #..TXT.+FPALDY #..TXT.:FZAJSR WIND
OW.JFDALDA #.$0200.ZFNALDY #.$0200.GFXAJ
SR .OUT.}F.AS.UT1 JSR .WINDOW..F.ACMP #$
FF..F.ABNE S.UT1..F AJMP SCR..NF.AWSET S
TX WX ; WINDOWPARAMETER SETZEN.YF.ASTY W
Y..F.ASTA WH..FHARTS..GRATES.K JSR . ;.T
EST; FF..ERR., 0.OK.!G.ALDA $0200..G.ACM
P #"0".=G.ABEQ TES.K1.LG.AJSR S.UT.3.YG.
BLDA #$FF.AG.BRTS.UG.BTES.K1 LDA #$00.}G
"BRTS..G,BCR. LDX #$02..G6BSTX $CD..G@BC
R.1 LDX $CF..GJBBNE CR.1.DGTBINC $CC.LG^
BRTS..HHBTESTCHR PHA ;ZEICHEN AUF STEUER
ZEICHEN TESTEN; C.0 OK, C.1 CURS...HRBST
A .E3.)H|BSTY .E2.6H.BLDY #$00.QH.BTESTC
HR1 LDA .BIDDEN,Y.BH.BBEQ TESTCHR2.NH.BC
MP .E3.H.BBEQ TESTCHR3..H.BINY..HBBBNE
TESTCHR1..HLBTESTCHR2 PLA..HVBLDY .E2..H
.BCLC.EH.BRTS.VH.BTESTCHR3 PLA..H.BLDY .
E2..H.CSEC..H.CRTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL