BLITZCOPY.ASM
FILE INFORMATION
FILENAME(S): BLITZCOPY.ASM
FILE TYPE(S): PRG
FILE SIZE: 37.2K
FIRST SEEN: 2025-10-20 00:37:11
APPEARS ON: 3 disk(s)
FILE HASH
2f29ea7ed919fd376dfb3e1067ad4bb16f0a745d7f66766135a3ce0331f6b5ae
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 2 B | BLITZCOPY.ASM | PRG | Curtcool, Klaus & Jan, Treasure Chest - Holger | 17 | 0 | DOWNLOAD FILE |
| M O C IN 1986 | BLITZCOPY.ASM | PRG | hedning, shine | 12 | 1 | DOWNLOAD FILE |
| JARVIS 18 A | BLITZCOPY.ASM | PRG | hedning, shine | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 41 43 48 54 55 4E 47 3A 20 57 |..(...ACHTUNG: W|
00000010: 45 49 43 48 54 20 49 4E 20 45 49 4E 49 47 45 4E |EICHT IN EINIGEN|
00000020: 20 44 45 54 41 49 4C 53 00 41 08 0B 00 56 4F 4D | DETAILS.A...VOM|
00000030: 20 4F 42 4A 45 4B 54 AB 46 49 4C 45 20 41 42 20 | OBJEKT.FILE AB |
00000040: 21 00 61 08 0C 00 45 52 47 49 42 54 20 41 42 45 |!.a...ERGIBT ABE|
00000050: 52 20 45 49 4E 20 41 45 51 55 49 C5 45 4E 54 45 |R EIN AEQUI.ENTE|
00000060: 53 00 7B 08 0D 00 4C 41 55 46 46 41 45 48 49 47 |S.{...LAUFFAEHIG|
00000070: 45 53 20 50 52 4F 47 52 41 4D 4D 00 81 08 0E 00 |ES PROGRAMM.....|
00000080: 3A 00 8F 08 E8 03 41 53 53 45 4D 42 4C 45 52 00 |:.....ASSEMBLER.|
00000090: 9B 08 EA 03 2E 4F 50 54 20 4F 4F 00 A8 08 EC 03 |.....OPT OO.....|
000000A0: AC B2 20 24 30 38 30 30 00 B8 08 EE 03 53 49 44 |.. $0800.....SID|
000000B0: 20 B2 20 24 44 34 30 30 00 D7 08 F0 03 47 43 52 | . $D400.....GCR|
000000C0: 31 20 B2 20 AC AA 24 31 37 20 3B 54 41 42 45 4C |1 . ..$17 ;TABEL|
000000D0: C3 41 4E 46 41 4E 47 00 F8 08 F2 03 47 43 52 33 |.ANFANG.....GCR3|
000000E0: 20 B2 20 AC AA 24 32 46 20 3B 46 55 45 52 20 47 | . ..$2F ;FUER G|
000000F0: 43 52 AB 42 59 54 45 53 00 09 09 F4 03 47 43 52 |CR.BYTES.....GCR|
00000100: 32 20 B2 20 AC AA 24 30 45 00 1A 09 F6 03 47 43 |2 . ..$0E.....GC|
00000110: 52 34 20 B2 20 AC AA 24 30 46 00 39 09 F8 03 42 |R4 . ..$0F.9...B|
00000120: 49 54 30 20 B2 20 AC AA 24 30 30 20 3B 54 41 42 |IT0 . ..$00 ;TAB|
00000130: 45 4C C3 41 4E 46 41 4E 47 00 59 09 FA 03 42 49 |EL.ANFANG.Y...BI|
00000140: 54 31 20 B2 20 AC AA 24 31 30 20 3B 53 45 52 49 |T1 . ..$10 ;SERI|
00000150: 45 4C 4C 45 52 20 42 55 53 00 6A 09 FC 03 42 49 |ELLER BUS.j...BI|
00000160: 54 32 20 B2 20 AC AA 24 32 30 00 7B 09 FE 03 42 |T2 . ..$20.{...B|
00000170: 49 54 33 20 B2 20 AC AA 24 33 30 00 96 09 00 04 |IT3 . ..$30.....|
00000180: 2E 42 59 54 20 30 2C 30 2C 30 2C 24 30 41 2C 30 |.BYT 0,0,0,$0A,0|
00000190: 2C 30 2C 30 2C 30 00 B1 09 02 04 2E 42 59 54 20 |,0,0,0......BYT |
000001A0: 30 2C 30 2C 30 2C 20 20 30 2C 30 2C 30 2C 30 2C |0,0,0, 0,0,0,0,|
000001B0: 30 00 CC 09 04 04 2E 42 59 54 20 30 2C 30 2C 30 |0......BYT 0,0,0|
000001C0: 2C 24 30 35 2C 30 2C 30 2C 30 2C 30 00 E7 09 06 |,$05,0,0,0,0....|
000001D0: 04 2E 42 59 54 20 30 2C 30 2C 30 2C 20 20 30 2C |..BYT 0,0,0, 0,|
000001E0: 30 2C 30 2C 30 2C 30 00 0E 0A 08 04 2E 42 59 54 |0,0,0,0......BYT|
000001F0: 20 24 38 30 2C 24 30 30 2C 24 31 30 2C 24 35 30 | $80,$00,$10,$50|
00000200: 2C 24 43 30 2C 24 34 30 2C 24 35 30 2C 30 00 35 |,$C0,$40,$50,0.5|
00000210: 0A 0A 04 2E 42 59 54 20 24 46 46 2C 24 32 30 2C |....BYT $FF,$20,|
00000220: 24 33 30 2C 20 20 30 2C 24 46 30 2C 24 36 30 2C |$30, 0,$F0,$60,|
00000230: 24 37 30 2C 30 00 5C 0A 0C 04 2E 42 59 54 20 24 |$70,0.\....BYT $|
00000240: 39 30 2C 24 41 30 2C 24 42 30 2C 24 41 30 2C 24 |90,$A0,$B0,$A0,$|
00000250: 44 30 2C 24 45 30 2C 24 46 46 2C 30 00 83 0A 0E |D0,$E0,$FF,0....|
00000260: 04 2E 42 59 54 20 24 30 38 2C 24 30 30 2C 24 30 |..BYT $08,$00,$0|
00000270: 31 2C 20 20 30 2C 24 30 43 2C 24 30 34 2C 24 30 |1, 0,$0C,$04,$0|
00000280: 35 2C 30 00 AA 0A 10 04 2E 42 59 54 20 24 46 46 |5,0......BYT $FF|
00000290: 2C 24 30 32 2C 24 30 33 2C 24 30 32 2C 24 30 46 |,$02,$03,$02,$0F|
000002A0: 2C 24 30 36 2C 24 30 37 2C 30 00 D1 0A 12 04 2E |,$06,$07,0......|
000002B0: 42 59 54 20 24 30 39 2C 24 30 41 2C 24 30 42 2C |BYT $09,$0A,$0B,|
000002C0: 20 20 30 2C 24 30 44 2C 24 30 45 2C 24 46 46 2C | 0,$0D,$0E,$FF,|
000002D0: 30 00 EF 0A 14 04 2E 42 59 54 20 30 2C 30 2C 30 |0......BYT 0,0,0|
000002E0: 2C 24 30 31 2C 30 2C 30 2C 24 38 30 2C 24 38 00 |,$01,0,0,$80,$8.|
000002F0: 0D 0B 16 04 2E 42 59 54 20 30 2C 30 2C 30 2C 20 |.....BYT 0,0,0, |
00000300: 20 30 2C 30 2C 30 2C 24 30 30 2C 24 30 00 2B 0B | 0,0,0,$00,$0.+.|
00000310: 18 04 2E 42 59 54 20 30 2C 30 2C 30 2C 24 31 30 |...BYT 0,0,0,$10|
00000320: 2C 30 2C 30 2C 24 31 30 2C 24 31 00 46 0B 1A 04 |,0,0,$10,$1.F...|
00000330: 2E 42 59 54 20 30 2C 30 2C 30 2C 20 20 30 2C 30 |.BYT 0,0,0, 0,0|
00000340: 2C 30 2C 30 2C 30 00 64 0B 1C 04 2E 42 59 54 20 |,0,0,0.d....BYT |
00000350: 30 2C 30 2C 30 2C 24 32 30 2C 30 2C 30 2C 24 43 |0,0,0,$20,0,0,$C|
00000360: 30 2C 24 43 00 82 0B 1E 04 2E 42 59 54 20 30 2C |0,$C......BYT 0,|
00000370: 30 2C 30 2C 20 20 30 2C 30 2C 30 2C 24 34 30 2C |0,0, 0,0,0,$40,|
00000380: 24 34 00 A0 0B 20 04 2E 42 59 54 20 30 2C 30 2C |$4... ..BYT 0,0,|
00000390: 30 2C 24 30 38 2C 30 2C 30 2C 24 35 30 2C 24 35 |0,$08,0,0,$50,$5|
000003A0: 00 BB 0B 22 04 2E 42 59 54 20 30 2C 30 2C 30 2C |..."..BYT 0,0,0,|
000003B0: 20 20 30 2C 30 2C 30 2C 30 2C 30 00 D9 0B 24 04 | 0,0,0,0,0...$.|
000003C0: 2E 42 59 54 20 30 2C 30 2C 30 2C 24 30 34 2C 30 |.BYT 0,0,0,$04,0|
000003D0: 2C 30 2C 24 46 46 2C 24 46 00 F7 0B 26 04 2E 42 |,0,$FF,$F...&..B|
000003E0: 59 54 20 30 2C 30 2C 30 2C 20 20 30 2C 30 2C 30 |YT 0,0,0, 0,0,0|
000003F0: 2C 24 32 30 2C 24 32 00 15 0C 28 04 2E 42 59 54 |,$20,$2...(..BYT|
00000400: 20 30 2C 30 2C 30 2C 24 34 30 2C 30 2C 30 2C 24 | 0,0,0,$40,0,0,$|
00000410: 33 30 2C 24 33 00 30 0C 2A 04 2E 42 59 54 20 30 |30,$3.0.*..BYT 0|
00000420: 2C 30 2C 30 2C 20 20 30 2C 30 2C 30 2C 30 2C 30 |,0,0, 0,0,0,0,0|
00000430: 00 4E 0C 2C 04 2E 42 59 54 20 30 2C 30 2C 30 2C |.N.,..BYT 0,0,0,|
00000440: 24 38 30 2C 30 2C 30 2C 24 46 30 2C 24 46 00 6C |$80,0,0,$F0,$F.l|
00000450: 0C 2E 04 2E 42 59 54 20 30 2C 30 2C 30 2C 20 20 |....BYT 0,0,0, |
00000460: 30 2C 30 2C 30 2C 24 36 30 2C 24 36 00 8A 0C 30 |0,0,0,$60,$6...0|
00000470: 04 2E 42 59 54 20 30 2C 30 2C 30 2C 24 30 30 2C |..BYT 0,0,0,$00,|
00000480: 30 2C 30 2C 24 37 30 2C 24 37 00 A5 0C 32 04 2E |0,0,$70,$7...2..|
00000490: 42 59 54 20 30 2C 30 2C 30 2C 20 20 30 2C 30 2C |BYT 0,0,0, 0,0,|
000004A0: 30 2C 30 2C 30 00 C3 0C 34 04 2E 42 59 54 20 30 |0,0,0...4..BYT 0|
000004B0: 2C 30 2C 30 2C 24 30 30 2C 30 2C 30 2C 24 39 30 |,0,0,$00,0,0,$90|
000004C0: 2C 24 39 00 E1 0C 36 04 2E 42 59 54 20 30 2C 30 |,$9...6..BYT 0,0|
000004D0: 2C 30 2C 20 20 30 2C 30 2C 30 2C 24 41 30 2C 24 |,0, 0,0,0,$A0,$|
000004E0: 41 00 FF 0C 38 04 2E 42 59 54 20 30 2C 30 2C 30 |A...8..BYT 0,0,0|
000004F0: 2C 24 30 30 2C 30 2C 30 2C 24 42 30 2C 24 42 00 |,$00,0,0,$B0,$B.|
00000500: 1A 0D 3A 04 2E 42 59 54 20 30 2C 30 2C 30 2C 20 |..:..BYT 0,0,0, |
00000510: 20 30 2C 30 2C 30 2C 30 2C 30 00 38 0D 3C 04 2E | 0,0,0,0,0.8.<..|
00000520: 42 59 54 20 30 2C 30 2C 30 2C 24 30 30 2C 30 2C |BYT 0,0,0,$00,0,|
00000530: 30 2C 24 44 30 2C 24 44 00 56 0D 3E 04 2E 42 59 |0,$D0,$D.V.>..BY|
00000540: 54 20 30 2C 30 2C 30 2C 20 20 30 2C 30 2C 30 2C |T 0,0,0, 0,0,0,|
00000550: 24 45 30 2C 24 45 00 74 0D 40 04 2E 42 59 54 20 |$E0,$E.t.@..BYT |
00000560: 30 2C 30 2C 30 2C 24 30 30 2C 30 2C 30 2C 24 46 |0,0,0,$00,0,0,$F|
00000570: 46 2C 24 46 00 8D 0D 42 04 2E 42 59 54 20 30 2C |F,$F...B..BYT 0,|
00000580: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 A6 0D |0,0,0,0,0,0,0...|
00000590: 44 04 2E 42 59 54 20 30 2C 30 2C 30 2C 30 2C 30 |D..BYT 0,0,0,0,0|
000005A0: 2C 30 2C 30 2C 30 00 BF 0D 46 04 2E 42 59 54 20 |,0,0,0...F..BYT |
000005B0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 |0,0,0,0,0,0,0,0.|
000005C0: D8 0D 48 04 2E 42 59 54 20 30 2C 30 2C 30 2C 30 |..H..BYT 0,0,0,0|
000005D0: 2C 30 2C 30 2C 30 2C 30 00 F9 0D 4A 04 53 45 43 |,0,0,0,0...J.SEC|
000005E0: 41 45 20 2E 42 59 54 20 30 2C 24 32 34 2C 24 31 |AE .BYT 0,$24,$1|
000005F0: 46 2C 24 31 39 2C 24 31 32 00 18 0E 4C 04 53 45 |F,$19,$12...L.SE|
00000600: 43 4E 4F 20 2E 42 59 54 20 24 31 31 2C 24 31 32 |CNO .BYT $11,$12|
00000610: 2C 24 31 33 2C 24 31 35 00 3D 0E 4E 04 48 49 42 |,$13,$15.=.N.HIB|
00000620: 49 54 20 2E 42 59 54 20 30 2C 24 31 30 2C 24 32 |IT .BYT 0,$10,$2|
00000630: 30 2C 24 33 30 2C 24 34 30 2C 24 35 30 00 62 0E |0,$30,$40,$50.b.|
00000640: 50 04 2E 42 59 54 20 24 36 30 2C 24 37 30 2C 24 |P..BYT $60,$70,$|
00000650: 38 30 2C 24 39 30 2C 24 41 30 2C 24 42 30 2C 24 |80,$90,$A0,$B0,$|
00000660: 43 30 00 77 0E 52 04 2E 42 59 54 20 24 44 30 2C |C0.w.R..BYT $D0,|
00000670: 24 45 30 2C 24 46 30 00 9B 0E 54 04 46 45 48 4C |$E0,$F0...T.FEHL|
00000680: 45 52 20 2E 42 59 54 20 30 2C 30 2C 24 33 30 2C |ER .BYT 0,0,$30,|
00000690: 24 33 31 2C 24 33 32 2C 24 33 33 00 B8 0E 56 04 |$31,$32,$33...V.|
000006A0: B9 49 54 20 2E 42 59 54 20 30 2C 30 2C 30 2C 32 |.IT .BYT 0,0,0,2|
000006B0: 35 35 2C 30 2C 31 2C 30 00 D8 0E 58 04 2E 42 59 |55,0,1,0...X..BY|
000006C0: 54 20 32 35 35 2C 30 2C 31 2C 30 20 3B 4B 4F 50 |T 255,0,1,0 ;KOP|
000006D0: 46 B9 49 54 49 91 45 4E 00 E6 0E 5A 04 4A 4D 50 |F.ITI.EN...Z.JMP|
000006E0: 20 53 54 41 52 54 00 09 0F 5C 04 3B 20 23 23 23 | START...\.; ###|
000006F0: 20 55 45 42 45 52 54 52 41 47 55 4E 47 53 52 4F | UEBERTRAGUNGSRO|
00000700: 55 54 49 4E 45 20 23 23 23 00 22 0F 5E 04 3B 20 |UTINE ###.".^.; |
00000710: 43 4F 4D 50 55 54 45 52 20 AB B1 20 46 4C 4F 50 |COMPUTER .. FLOP|
00000720: 50 59 00 47 0F 60 04 43 4F 4F 55 54 20 B2 20 AC |PY.G.`.COOUT . .|
00000730: 20 20 20 20 20 3B 41 4E 5A 41 48 4C 20 42 59 54 | ;ANZAHL BYT|
00000740: 45 53 20 49 4E 20 59 00 63 0F 62 04 4C 44 41 20 |ES IN Y.c.b.LDA |
00000750: 23 24 30 42 20 20 20 20 20 20 3B C1 20 53 45 54 |#$0B ;. SET|
00000760: 5A 45 4E 00 71 0F 64 04 53 54 41 20 24 44 44 30 |ZEN.q.d.STA $DD0|
00000770: 30 00 7C 0F 66 04 4C 44 58 20 23 33 00 8F 0F 68 |0.|.f.LDX #3...h|
00000780: 04 43 4F 4F 30 20 4C 44 41 20 24 44 44 30 30 00 |.COO0 LDA $DD00.|
00000790: AF 0F 6A 04 42 50 4C 20 43 4F 4F 30 20 20 20 20 |..j.BPL COO0 |
000007A0: 20 20 3B 57 41 52 54 45 4E 20 41 55 46 20 83 00 | ;WARTEN AUF ..|
000007B0: D0 0F 6C 04 53 54 58 20 24 44 44 30 30 20 20 20 |..l.STX $DD00 |
000007C0: 20 20 3B C1 20 52 55 45 43 4B 53 45 54 5A 45 4E | ;. RUECKSETZEN|
000007D0: 00 F1 0F 6E 04 43 4F 41 44 52 20 4C 44 41 20 24 |...n.COADR LDA $|
000007E0: 31 38 30 30 2C 59 20 3B 44 41 54 45 4E 20 48 4F |1800,Y ;DATEN HO|
000007F0: C3 00 FE 0F 70 04 4C 44 58 20 23 24 30 42 00 1A |....p.LDX #$0B..|
00000800: 10 72 04 53 54 58 20 24 44 44 30 30 20 20 20 20 |.r.STX $DD00 |
00000810: 20 3B C1 20 53 45 54 5A 45 4E 00 22 10 74 04 54 | ;. SETZEN.".t.T|
00000820: 41 58 00 41 10 76 04 AF 20 23 24 46 30 20 20 20 |AX.A.v.. #$F0 |
00000830: 20 20 20 3B C1 20 52 55 45 43 4B 53 45 54 5A 45 | ;. RUECKSETZE|
00000840: 4E 00 60 10 78 04 53 54 41 20 24 44 44 30 30 20 |N.`.x.STA $DD00 |
00000850: 20 20 20 20 3B 42 49 54 20 34 20 55 4E 44 20 35 | ;BIT 4 UND 5|
00000860: 00 68 10 7A 04 4C 53 52 00 70 10 7C 04 4C 53 52 |.h.z.LSR.p.|.LSR|
00000870: 00 7B 10 7E 04 AF 20 23 24 46 30 00 9A 10 80 04 |.{.~.. #$F0.....|
00000880: 53 54 41 20 24 44 44 30 30 20 20 20 20 20 3B 42 |STA $DD00 ;B|
00000890: 49 54 20 36 20 55 4E 44 20 37 00 A2 10 82 04 54 |IT 6 UND 7.....T|
000008A0: 58 41 00 AD 10 84 04 AF 20 23 24 30 46 00 B5 10 |XA...... #$0F...|
000008B0: 86 04 54 41 58 00 C5 10 88 04 4C 44 41 20 48 49 |..TAX.....LDA HI|
000008C0: 42 49 54 2C 58 00 E4 10 8A 04 53 54 41 20 24 44 |BIT,X.....STA $D|
000008D0: 44 30 30 20 20 20 20 20 3B 42 49 54 20 30 20 55 |D00 ;BIT 0 U|
000008E0: 4E 44 20 31 00 EC 10 8C 04 4C 53 52 00 F4 10 8E |ND 1.....LSR....|
000008F0: 04 4C 53 52 00 FF 10 90 04 AF 20 23 24 46 30 00 |.LSR...... #$F0.|
00000900: 1E 11 92 04 53 54 41 20 24 44 44 30 30 20 20 20 |....STA $DD00 |
00000910: 20 20 3B 42 49 54 20 32 20 55 4E 44 20 33 00 3D | ;BIT 2 UND 3.=|
00000920: 11 94 04 49 4E 59 20 20 20 20 20 20 20 20 20 20 |...INY |
00000930: 20 3B 55 45 42 45 52 54 52 41 47 45 4E 00 45 11 | ;UEBERTRAGEN.E.|
00000940: 96 04 4E 4F 50 00 4D 11 98 04 4E 4F 50 00 55 11 |..NOP.M...NOP.U.|
00000950: 9A 04 4E 4F 50 00 77 11 9C 04 42 4E 45 20 43 4F |..NOP.w...BNE CO|
00000960: 41 44 52 20 20 20 20 20 3B 4E 41 45 43 48 53 54 |ADR ;NAECHST|
00000970: 45 53 20 42 59 54 45 00 84 11 9E 04 4C 44 41 20 |ES BYTE.....LDA |
00000980: 23 24 30 33 00 92 11 A0 04 53 54 41 20 24 44 44 |#$03.....STA $DD|
00000990: 30 30 00 9A 11 A2 04 52 54 53 00 BD 11 A4 04 3B |00.....RTS.....;|
000009A0: 20 23 23 23 20 55 45 42 45 52 54 52 41 47 55 4E | ### UEBERTRAGUN|
000009B0: 47 53 52 4F 55 54 49 4E 45 20 23 23 23 00 D6 11 |GSROUTINE ###...|
000009C0: A6 04 3B 20 43 4F 4D 50 55 54 45 52 20 B3 AB 20 |..; COMPUTER .. |
000009D0: 46 4C 4F 50 50 59 00 F9 11 A8 04 43 4F 49 4E 20 |FLOPPY.....COIN |
000009E0: B2 20 AC 20 20 20 20 3B 41 4E 5A 41 48 4C 20 42 |. . ;ANZAHL B|
000009F0: 59 54 45 53 20 49 4E 20 59 00 13 12 AA 04 4C 44 |YTES IN Y.....LD|
00000A00: 41 20 23 24 30 42 20 20 20 20 3B C1 20 53 45 54 |A #$0B ;. SET|
00000A10: 5A 45 4E 00 21 12 AC 04 53 54 41 20 24 44 44 30 |ZEN.!...STA $DD0|
00000A20: 30 00 2C 12 AE 04 4C 44 58 20 23 33 00 4D 12 B0 |0.,...LDX #3.M..|
00000A30: 04 43 4F 49 30 20 4C 44 41 20 24 44 44 30 30 20 |.COI0 LDA $DD00 |
00000A40: 3B 57 41 52 54 45 4E 20 41 55 46 20 83 00 5A 12 |;WARTEN AUF ..Z.|
00000A50: B2 04 42 50 4C 20 43 4F 49 30 00 79 12 B4 04 53 |..BPL COI0.y...S|
00000A60: 54 58 20 24 44 44 30 30 20 20 20 3B C1 20 52 55 |TX $DD00 ;. RU|
00000A70: 45 43 4B 53 45 54 5A 45 4E 00 86 12 B6 04 43 4F |ECKSETZEN.....CO|
00000A80: 49 31 20 4E 4F 50 00 8E 12 B8 04 4E 4F 50 00 A8 |I1 NOP.....NOP..|
00000A90: 12 BA 04 4C 44 41 20 23 24 30 42 20 20 20 20 3B |...LDA #$0B ;|
00000AA0: C1 20 53 45 54 5A 45 4E 00 B6 12 BC 04 53 54 41 |. SETZEN.....STA|
00000AB0: 20 24 44 44 30 30 00 BE 12 BE 04 4E 4F 50 00 C6 | $DD00.....NOP..|
00000AC0: 12 C0 04 4E 4F 50 00 E5 12 C2 04 4C 44 41 20 23 |...NOP.....LDA #|
00000AD0: 24 30 33 20 20 20 20 3B C1 20 52 55 45 43 4B 53 |$03 ;. RUECKS|
00000AE0: 45 54 5A 45 4E 00 F3 12 C4 04 53 54 41 20 24 44 |ETZEN.....STA $D|
00000AF0: 44 30 30 00 01 13 C6 04 4C 44 58 20 24 44 44 30 |D00.....LDX $DD0|
00000B00: 30 00 1E 13 C8 04 4C 44 41 20 42 49 54 33 2C 58 |0.....LDA BIT3,X|
00000B10: 20 20 3B 42 49 54 20 35 20 55 4E 44 20 37 00 2C | ;BIT 5 UND 7.,|
00000B20: 13 CA 04 4C 44 58 20 24 44 44 30 30 00 48 13 CC |...LDX $DD00.H..|
00000B30: 04 B0 41 20 42 49 54 32 2C 58 20 20 3B 42 49 54 |..A BIT2,X ;BIT|
00000B40: 20 34 20 55 4E 44 20 36 00 50 13 CE 04 4E 4F 50 | 4 UND 6.P...NOP|
00000B50: 00 5E 13 D0 04 4C 44 58 20 24 44 44 30 30 00 7A |.^...LDX $DD00.z|
00000B60: 13 D2 04 B0 41 20 42 49 54 30 2C 58 20 20 3B 42 |....A BIT0,X ;B|
00000B70: 49 54 20 31 20 55 4E 44 20 33 00 88 13 D4 04 4C |IT 1 UND 3.....L|
00000B80: 44 58 20 24 44 44 30 30 00 AA 13 D6 04 B0 41 20 |DX $DD00......A |
00000B90: 42 49 54 31 2C 58 20 20 3B 42 49 54 20 30 20 55 |BIT1,X ;BIT 0 U|
00000BA0: 4E 44 20 32 20 20 20 48 4F C3 00 D0 13 D8 04 43 |ND 2 HO......C|
00000BB0: 49 41 44 52 20 53 54 41 20 24 31 38 30 30 2C 59 |IADR STA $1800,Y|
00000BC0: 20 3B 42 59 54 45 20 53 50 45 49 43 48 45 52 4E | ;BYTE SPEICHERN|
00000BD0: 00 D8 13 DA 04 49 4E 59 00 F8 13 DC 04 42 4E 45 |.....INY.....BNE|
00000BE0: 20 43 4F 49 31 20 20 20 20 3B 4E 41 45 43 48 53 | COI1 ;NAECHS|
00000BF0: 54 45 53 20 42 59 54 45 00 00 14 DE 04 52 54 53 |TES BYTE.....RTS|
00000C00: 00 26 14 E0 04 3B 20 23 23 23 20 46 4C 4F 50 50 |.&...; ### FLOPP|
00000C10: 59 AB 52 4F 55 54 49 4E 45 20 55 45 42 45 52 54 |Y.ROUTINE UEBERT|
00000C20: 52 2E 20 23 23 23 00 34 14 E2 04 54 52 41 4E 53 |R. ###.4...TRANS|
00000C30: 20 B2 20 AC 00 40 14 E4 04 4C 44 41 20 23 31 35 | . ..@...LDA #15|
00000C40: 00 4B 14 E6 04 4C 44 58 20 23 38 00 57 14 E8 04 |.K...LDX #8.W...|
00000C50: 4C 44 59 20 23 31 35 00 7C 14 EA 04 4A 53 52 20 |LDY #15.|...JSR |
00000C60: 24 46 46 42 41 20 3B 46 49 4C 45 50 41 52 41 4D |$FFBA ;FILEPARAM|
00000C70: 45 54 45 52 20 31 35 2C 38 2C 31 35 00 87 14 EC |ETER 15,8,15....|
00000C80: 04 4C 44 41 20 23 30 00 A7 14 EE 04 4A 53 52 20 |.LDA #0.....JSR |
00000C90: 24 46 46 42 44 20 3B 46 49 C3 41 4D 45 4E 50 41 |$FFBD ;FI.AMENPA|
00000CA0: 52 41 4D 45 54 45 52 00 B8 14 F0 04 4A 53 52 20 |RAMETER.....JSR |
00000CB0: 24 46 46 43 30 20 3B 9F 00 C9 14 F2 04 4C 44 41 |$FFC0 ;......LDA|
00000CC0: 20 23 B3 44 4F 53 41 4E 46 00 D5 14 F4 04 53 54 | #.DOSANF.....ST|
00000CD0: 41 20 24 36 30 00 E6 14 F6 04 4C 44 41 20 23 B1 |A $60.....LDA #.|
00000CE0: 44 4F 53 41 4E 46 00 06 15 F8 04 53 54 41 20 24 |DOSANF.....STA $|
00000CF0: 36 31 20 20 20 3B 28 24 36 30 29 20 5A 45 49 47 |61 ;($60) ZEIG|
00000D00: 45 52 20 41 55 46 00 2A 15 FA 04 4C 44 41 20 23 |ER AUF.*...LDA #|
00000D10: 24 30 30 20 20 3B 5A 55 20 55 45 42 45 52 54 52 |$00 ;ZU UEBERTR|
00000D20: 41 47 80 45 53 20 42 59 54 45 00 38 15 FC 04 53 |AG.ES BYTE.8...S|
00000D30: 54 41 20 4D 45 4D 57 4C 00 45 15 FE 04 4C 44 41 |TA MEMWL.E...LDA|
00000D40: 20 23 24 30 34 00 6C 15 00 05 53 54 41 20 4D 45 | #$04.l...STA ME|
00000D50: 4D 57 48 20 3B 41 42 4C 41 47 45 41 44 52 45 53 |MWH ;ABLAGEADRES|
00000D60: 53 45 20 49 4D 20 46 4C 4F 50 50 59 00 7F 15 02 |SE IM FLOPPY....|
00000D70: 05 54 52 41 4E 53 31 20 4C 44 58 20 23 31 35 00 |.TRANS1 LDX #15.|
00000D80: 9B 15 04 05 4A 53 52 20 24 46 46 43 39 20 20 20 |....JSR $FFC9 |
00000D90: 20 20 20 20 20 20 3B 9D 20 31 35 00 A6 15 06 05 | ;. 15.....|
00000DA0: 4C 44 59 20 23 30 00 C8 15 08 05 54 52 41 4E 53 |LDY #0.....TRANS|
00000DB0: 30 20 4C 44 41 20 4D 45 4D 57 2C 59 20 3B 4D AB |0 LDA MEMW,Y ;M.|
00000DC0: 57 20 4B 4F 4D 4D AF 4F 00 D6 15 0A 05 4A 53 52 |W KOMM.O.....JSR|
00000DD0: 20 24 46 46 44 32 00 DE 15 0C 05 49 4E 59 00 E9 | $FFD2.....INY..|
00000DE0: 15 0E 05 43 50 59 20 23 36 00 F8 15 10 05 42 4E |...CPY #6.....BN|
00000DF0: 45 20 54 52 41 4E 53 30 00 1C 16 12 05 4C 44 58 |E TRANS0.....LDX|
00000E00: 20 23 33 35 20 20 20 20 20 20 20 20 20 20 20 3B | #35 ;|
00000E10: 41 4E 5A 41 48 4C 20 42 59 54 45 53 00 41 16 14 |ANZAHL BYTES.A..|
00000E20: 05 54 52 41 4E 53 35 20 4C 44 59 20 23 30 20 20 |.TRANS5 LDY #0 |
00000E30: 20 20 20 3B 50 52 4F 20 44 55 52 43 48 47 41 4E | ;PRO DURCHGAN|
00000E40: 47 00 51 16 16 05 4C 44 41 20 28 24 36 30 29 2C |G.Q...LDA ($60),|
00000E50: 59 00 5F 16 18 05 4A 53 52 20 24 46 46 44 32 00 |Y._...JSR $FFD2.|
00000E60: 6D 16 1A 05 49 4E 43 20 4D 45 4D 57 4C 00 7C 16 |m...INC MEMWL.|.|
00000E70: 1C 05 42 4E 45 20 54 52 41 4E 53 33 00 8A 16 1E |..BNE TRANS3....|
00000E80: 05 49 4E 43 20 4D 45 4D 57 48 00 AF 16 20 05 54 |.INC MEMWH... .T|
00000E90: 52 41 4E 53 33 20 49 4E 43 20 24 36 30 20 20 20 |RANS3 INC $60 |
00000EA0: 20 3B 41 44 52 2E 20 45 52 48 4F 45 48 45 4E 00 | ;ADR. ERHOEHEN.|
00000EB0: BE 16 22 05 42 4E 45 20 54 52 41 4E 53 34 00 CA |..".BNE TRANS4..|
00000EC0: 16 24 05 49 4E 43 20 24 36 31 00 D9 16 26 05 54 |.$.INC $61...&.T|
00000ED0: 52 41 4E 53 34 20 44 45 58 00 E8 16 28 05 42 4E |RANS4 DEX...(.BN|
00000EE0: 45 20 54 52 41 4E 53 35 00 03 17 2A 05 4A 53 52 |E TRANS5...*.JSR|
00000EF0: 20 24 46 46 43 43 20 20 20 20 20 20 20 20 20 3B | $FFCC ;|
00000F00: 9C 43 48 00 0F 17 2C 05 4C 44 41 20 24 36 31 00 |.CH...,.LDA $61.|
00000F10: 33 17 2E 05 43 4D 50 20 23 24 31 35 20 20 20 20 |3...CMP #$15 |
00000F20: 20 20 20 20 20 20 3B 53 43 48 91 20 31 2E 53 45 | ;SCH. 1.SE|
00000F30: 49 54 45 00 56 17 30 05 42 43 43 20 54 52 41 4E |ITE.V.0.BCC TRAN|
00000F40: 53 31 20 20 20 20 20 20 20 20 3B 55 45 42 45 52 |S1 ;UEBER|
00000F50: 54 52 41 47 45 4E 00 68 17 32 05 4D 45 4D 45 58 |TRAGEN.h.2.MEMEX|
00000F60: 20 4C 44 58 20 23 31 35 00 76 17 34 05 4A 53 52 | LDX #15.v.4.JSR|
00000F70: 20 24 46 46 43 39 00 81 17 36 05 4C 44 59 20 23 | $FFC9...6.LDY #|
00000F80: 30 00 A6 17 38 05 54 52 41 4E 53 32 20 4C 44 41 |0...8.TRANS2 LDA|
00000F90: 20 4D 45 4D 45 2C 59 20 3B 53 54 41 52 54 45 4E | MEME,Y ;STARTEN|
00000FA0: 20 27 4D AB 45 27 00 B4 17 3A 05 4A 53 52 20 24 | 'M.E'...:.JSR $|
00000FB0: 46 46 44 32 00 BC 17 3C 05 49 4E 59 00 C7 17 3E |FFD2...<.INY...>|
00000FC0: 05 43 50 59 20 23 35 00 D6 17 40 05 42 4E 45 20 |.CPY #5...@.BNE |
00000FD0: 54 52 41 4E 53 32 00 F3 17 42 05 4A 53 52 20 24 |TRANS2...B.JSR $|
00000FE0: 46 46 45 37 20 20 20 20 20 20 20 20 20 3B 43 4C |FFE7 ;CL|
00000FF0: 41 4C 4C 00 0E 18 44 05 4C 44 41 20 23 24 33 46 |ALL...D.LDA #$3F|
00001000: 20 20 20 20 20 20 20 20 20 20 3B 50 B0 54 00 34 | ;P.T.4|
00001010: 18 46 05 53 54 41 20 24 44 44 30 32 20 20 20 20 |.F.STA $DD02 |
00001020: 20 20 20 20 20 3B 49 4E 49 54 49 41 4C 49 53 49 | ;INITIALISI|
00001030: 45 52 45 4E 00 41 18 48 05 4C 44 41 20 23 24 30 |EREN.A.H.LDA #$0|
00001040: 33 00 4F 18 4A 05 53 54 41 20 24 44 44 30 30 00 |3.O.J.STA $DD00.|
00001050: 57 18 4C 05 53 45 49 00 7A 18 4E 05 4A 53 52 20 |W.L.SEI.z.N.JSR |
00001060: 44 55 4E 4B 45 4C 20 20 20 20 20 3B 42 49 4C 44 |DUNKEL ;BILD|
00001070: 53 43 48 49 52 4D 20 41 55 53 00 87 18 50 05 4C |SCHIRM AUS...P.L|
00001080: 44 41 20 23 24 31 35 00 AB 18 52 05 53 54 41 20 |DA #$15...R.STA |
00001090: 43 4F 41 44 52 AA 32 20 20 20 20 3B 52 45 53 54 |COADR.2 ;REST|
000010A0: 20 56 91 20 52 4F 55 54 49 4E 45 00 D2 18 54 05 | V. ROUTINE...T.|
000010B0: 4C 44 59 20 23 24 30 30 20 20 20 20 20 20 3B 53 |LDY #$00 ;S|
000010C0: 43 48 4E 45 4C 4C 20 55 45 42 45 52 54 52 41 47 |CHNELL UEBERTRAG|
000010D0: 45 4E 00 E0 18 56 05 4A 53 52 20 43 4F 4F 55 54 |EN...V.JSR COOUT|
000010E0: 00 ED 18 58 05 4C 44 41 20 23 24 31 36 00 FD 18 |...X.LDA #$16...|
000010F0: 5A 05 53 54 41 20 43 4F 41 44 52 AA 32 00 0A 19 |Z.STA COADR.2...|
00001100: 5C 05 4C 44 59 20 23 24 30 30 00 18 19 5E 05 4A |\.LDY #$00...^.J|
00001110: 53 52 20 43 4F 4F 55 54 00 25 19 60 05 4C 44 41 |SR COOUT.%.`.LDA|
00001120: 20 23 24 31 37 00 35 19 62 05 53 54 41 20 43 4F | #$17.5.b.STA CO|
00001130: 41 44 52 AA 32 00 42 19 64 05 4C 44 59 20 23 24 |ADR.2.B.d.LDY #$|
00001140: 30 30 00 50 19 66 05 4A 53 52 20 43 4F 4F 55 54 |00.P.f.JSR COOUT|
00001150: 00 58 19 68 05 52 54 53 00 6C 19 6A 05 3B 20 23 |.X.h.RTS.l.j.; #|
00001160: 23 23 20 4D 45 4E 55 45 20 23 23 23 00 7F 19 6C |## MENUE ###...l|
00001170: 05 53 54 41 52 54 20 4C 44 41 20 23 24 30 41 00 |.START LDA #$0A.|
00001180: 8D 19 6E 05 53 54 41 20 24 30 38 30 33 00 B3 19 |..n.STA $0803...|
00001190: 70 05 4C 44 41 20 23 31 34 37 20 20 20 20 20 3B |p.LDA #147 ;|
000011A0: 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 |BILDSCHIRM LOESC|
000011B0: 48 45 4E 00 C1 19 72 05 4A 53 52 20 24 46 46 44 |HEN...r.JSR $FFD|
000011C0: 32 00 DE 19 74 05 4A 53 52 20 53 43 52 9C 20 20 |2...t.JSR SCR. |
000011D0: 20 3B 42 49 4C 44 43 48 45 4E 20 4D 41 C3 00 04 | ;BILDCHEN MA...|
000011E0: 1A 76 05 4C 44 41 20 23 30 20 20 20 20 20 20 20 |.v.LDA #0 |
000011F0: 3B 41 4B 54 55 45 4C 4C 45 52 20 4D 45 4E 2E 50 |;AKTUELLER MEN.P|
00001200: 55 4E 4B 54 00 0F 1A 78 05 53 54 41 20 24 32 00 |UNKT...x.STA $2.|
00001210: 1B 1A 7A 05 4D 45 4E 20 B2 20 AC 00 41 1A 7C 05 |..z.MEN . ..A.|.|
00001220: 4A 53 52 20 4F 4B 30 30 20 20 20 20 20 3B 46 4C |JSR OK00 ;FL|
00001230: 4F 50 50 59 4D 45 4C 44 55 4E 47 20 41 55 53 47 |OPPYMELDUNG AUSG|
00001240: 2E 00 4E 1A 7E 05 4D 45 4E 42 20 B2 20 AC 00 63 |..N.~.MENB . ..c|
00001250: 1A 80 05 4A 53 52 20 CB 4E 47 20 20 20 20 20 3B |...JSR .NG ;|
00001260: CB 4E 47 00 82 1A 82 05 4A 53 52 20 55 48 52 30 |.NG.....JSR UHR0|
00001270: 20 20 20 20 20 3B 55 48 52 20 4C 4F 45 53 43 48 | ;UHR LOESCH|
00001280: 45 4E 00 A3 1A 84 05 4D 45 4E 30 20 4A 53 52 20 |EN.....MEN0 JSR |
00001290: A1 4D 45 4E 20 20 3B 4D 45 4E 55 45 41 55 53 57 |.MEN ;MENUEAUSW|
000012A0: 41 48 4C 00 BF 1A 86 05 4D 45 4E 31 20 43 4D 50 |AHL.....MEN1 CMP|
000012B0: 20 23 30 20 20 3B 41 55 53 57 45 52 54 45 4E 00 | #0 ;AUSWERTEN.|
000012C0: CC 1A 88 05 42 4E 45 20 4D 45 4E 32 00 DA 1A 8A |....BNE MEN2....|
000012D0: 05 4A 4D 50 20 44 49 52 45 43 00 EA 1A 8C 05 4D |.JMP DIREC.....M|
000012E0: 45 4E 32 20 43 4D 50 20 23 31 00 F7 1A 8E 05 42 |EN2 CMP #1.....B|
000012F0: 4E 45 20 4D 45 4E 33 00 04 1B 90 05 4A 4D 50 20 |NE MEN3.....JMP |
00001300: 43 4F 50 59 00 14 1B 92 05 4D 45 4E 33 20 43 4D |COPY.....MEN3 CM|
00001310: 50 20 23 32 00 21 1B 94 05 42 4E 45 20 4D 45 4E |P #2.!...BNE MEN|
00001320: 34 00 2B 1B 96 05 4A 4D 50 20 95 00 3B 1B 98 05 |4.+...JMP ..;...|
00001330: 4D 45 4E 34 20 43 4D 50 20 23 33 00 48 1B 9A 05 |MEN4 CMP #3.H...|
00001340: 42 4E 45 20 4D 45 4E 35 00 55 1B 9C 05 4A 4D 50 |BNE MEN5.U...JMP|
00001350: 20 54 45 53 54 00 65 1B 9E 05 4D 45 4E 35 20 43 | TEST.e...MEN5 C|
00001360: 4D 50 20 23 34 00 72 1B A0 05 42 4E 45 20 4D 45 |MP #4.r...BNE ME|
00001370: 4E 30 00 80 1B A2 05 4A 4D 50 20 43 4F 4D 4D AF |N0.....JMP COMM.|
00001380: 00 97 1B A4 05 3B 20 23 23 23 20 44 49 52 45 43 |.....; ### DIREC|
00001390: A4 52 59 20 23 23 23 00 AA 1B A6 05 44 49 52 45 |.RY ###.....DIRE|
000013A0: 43 20 4A 53 52 20 53 43 52 9C 00 B5 1B A8 05 4C |C JSR SCR......L|
000013B0: 44 41 20 23 32 00 C0 1B AA 05 4C 44 58 20 23 38 |DA #2.....LDX #8|
000013C0: 00 CB 1B AC 05 4C 44 59 20 23 30 00 ED 1B AE 05 |.....LDY #0.....|
000013D0: 4A 53 52 20 24 46 46 42 41 20 20 20 20 20 3B 46 |JSR $FFBA ;F|
000013E0: 49 4C 50 41 52 41 4D 20 32 2C 38 2C 30 00 FE 1B |ILPARAM 2,8,0...|
000013F0: B0 05 4C 44 58 20 23 B3 44 4F 4C 4C 41 52 00 0F |..LDX #.DOLLAR..|
00001400: 1C B2 05 4C 44 59 20 23 B1 44 4F 4C 4C 41 52 00 |...LDY #.DOLLAR.|
00001410: 1A 1C B4 05 4C 44 41 20 23 31 00 38 1C B6 05 4A |....LDA #1.8...J|
00001420: 53 52 20 24 46 46 42 44 20 20 20 20 20 3B 46 49 |SR $FFBD ;FI|
00001430: C3 41 4D 45 20 22 24 22 00 4D 1C B8 05 4A 53 52 |.AME "$".M...JSR|
00001440: 20 24 46 46 43 30 20 20 20 20 20 3B 9F 00 64 1C | $FFC0 ;..d.|
00001450: BA 05 4C 44 58 20 23 32 20 20 20 20 20 20 20 20 |..LDX #2 |
00001460: 3B 9D 20 32 00 72 1C BC 05 4A 53 52 20 24 46 46 |;. 2.r...JSR $FF|
00001470: 43 36 00 87 1C BE 05 4A 53 52 20 24 46 46 43 46 |C6.....JSR $FFCF|
00001480: 20 20 20 20 20 3B A1 00 A8 1C C0 05 4C 44 41 20 | ;......LDA |
00001490: 24 39 30 20 20 20 20 20 20 20 3B 53 54 41 54 55 |$90 ;STATU|
000014A0: 53 41 42 46 52 41 47 45 00 C6 1C C2 05 42 4E 45 |SABFRAGE.....BNE|
000014B0: 20 44 49 52 80 20 20 20 20 3B 4F 42 20 44 49 53 | DIR. ;OB DIS|
000014C0: 4B 20 44 52 49 4E 00 D4 1C C4 05 4A 53 52 20 24 |K DRIN.....JSR $|
000014D0: 46 46 43 46 00 F7 1C C6 05 44 49 52 43 20 4C 44 |FFCF.....DIRC LD|
000014E0: 41 20 23 31 35 20 20 3B 5A 41 45 48 4C 45 52 20 |A #15 ;ZAEHLER |
000014F0: 45 B5 52 41 45 47 45 00 15 1D C8 05 53 54 41 20 |E.RAEGE.....STA |
00001500: 44 49 52 43 4E 54 20 20 20 20 20 3B 50 52 4F 20 |DIRCNT ;PRO |
00001510: 53 45 49 54 45 00 29 1D CA 05 44 49 52 41 20 44 |SEITE.)...DIRA D|
00001520: 45 43 20 44 49 52 43 4E 54 00 4C 1D CC 05 42 4E |EC DIRCNT.L...BN|
00001530: 45 20 44 49 52 42 20 20 20 20 20 20 3B 42 49 4C |E DIRB ;BIL|
00001540: 44 53 43 48 49 52 4D 20 56 4F 4C 4C 00 6F 1D CE |DSCHIRM VOLL.o..|
00001550: 05 4C 44 58 20 23 B3 4D B0 45 20 20 20 20 3B 4D |.LDX #.M.E ;M|
00001560: 45 4C 44 55 4E 47 20 41 55 53 47 45 42 45 4E 00 |ELDUNG AUSGEBEN.|
00001570: 7D 1D D0 05 4C 44 59 20 23 B1 4D B0 45 00 87 1D |}...LDY #.M.E...|
00001580: D2 05 4A 53 52 20 99 00 A9 1D D4 05 4A 53 52 20 |..JSR ......JSR |
00001590: 54 41 53 54 45 20 20 20 20 20 3B 54 41 53 54 45 |TASTE ;TASTE|
000015A0: 20 41 42 57 41 52 54 45 4E 00 C8 1D D6 05 42 43 | ABWARTEN.....BC|
000015B0: 53 20 44 49 52 80 20 20 20 20 3B 42 45 49 20 90 |S DIR. ;BEI .|
000015C0: 20 41 42 42 52 55 43 48 00 E5 1D D8 05 4A 53 52 | ABBRUCH.....JSR|
000015D0: 20 53 43 52 9C 20 20 20 20 3B 53 91 53 54 20 57 | SCR. ;S.ST W|
000015E0: 45 49 54 45 52 00 F2 1D DA 05 4A 4D 50 20 44 49 |EITER.....JMP DI|
000015F0: 52 43 00 18 1E DC 05 44 49 52 42 20 4A 53 52 20 |RC.....DIRB JSR |
00001600: 24 46 46 43 46 20 3B 32 20 42 59 54 45 53 20 41 |$FFCF ;2 BYTES A|
00001610: 55 53 4C 41 53 53 45 4E 00 26 1E DE 05 4A 53 52 |USLASSEN.&...JSR|
00001620: 20 24 46 46 43 46 00 42 1E E0 05 42 45 51 20 44 | $FFCF.B...BEQ D|
00001630: 49 52 80 20 20 20 20 3B 80 45 4D 41 52 4B 49 45 |IR. ;.EMARKIE|
00001640: 8A 47 00 4E 1E E2 05 4C 44 41 20 23 31 33 00 5C |.G.N...LDA #13.\|
00001650: 1E E4 05 4A 53 52 20 24 46 46 44 32 00 7B 1E E6 |...JSR $FFD2.{..|
00001660: 05 4A 53 52 20 44 49 53 50 41 43 45 20 20 20 20 |.JSR DISPACE |
00001670: 3B B6 C0 44 20 4C 41 53 53 45 4E 00 89 1E E8 05 |;..D LASSEN.....|
00001680: 4A 53 52 20 24 46 46 43 46 00 91 1E EA 05 54 41 |JSR $FFCF.....TA|
00001690: 58 00 9F 1E EC 05 4A 53 52 20 24 46 46 43 46 00 |X.....JSR $FFCF.|
000016A0: C4 1E EE 05 4A 53 52 20 24 42 44 43 44 20 20 20 |....JSR $BDCD |
000016B0: 20 20 20 3B 50 52 47 AB 4C 41 45 4E 47 45 20 41 | ;PRG.LAENGE A|
000016C0: 55 53 47 2E 00 D1 1E F0 05 4C 44 41 20 23 22 20 |USG......LDA #" |
000016D0: 22 00 DF 1E F2 05 4A 53 52 20 24 46 46 44 32 00 |".....JSR $FFD2.|
000016E0: F2 1E F4 05 44 49 52 30 20 4A 53 52 20 24 46 46 |....DIR0 JSR $FF|
000016F0: 43 46 00 FF 1E F6 05 42 45 51 20 44 49 52 41 00 |CF.....BEQ DIRA.|
00001700: 0B 1F F8 05 4C 44 59 20 24 39 30 00 18 1F FA 05 |....LDY $90.....|
00001710: 42 4E 45 20 44 49 52 80 00 33 1F FC 05 4A 53 52 |BNE DIR..3...JSR|
00001720: 20 24 46 46 44 32 20 20 20 20 20 20 3B 46 49 C3 | $FFD2 ;FI.|
00001730: 41 4D 45 00 57 1F FE 05 4A 4D 50 20 44 49 52 30 |AME.W...JMP DIR0|
00001740: 20 20 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 | ;NAECHSTE|
00001750: 52 20 45 B5 52 41 47 00 6A 1F 00 06 44 49 52 80 |R E.RAG.j...DIR.|
00001760: 20 4A 53 52 20 24 46 46 43 43 00 75 1F 02 06 4C | JSR $FFCC.u...L|
00001770: 44 41 20 23 32 00 8D 1F 04 06 4A 53 52 20 24 46 |DA #2.....JSR $F|
00001780: 46 43 33 20 20 20 20 20 20 3B A0 20 32 00 99 1F |FC3 ;. 2...|
00001790: 06 06 4C 44 41 20 23 31 33 00 A8 1F 08 06 20 4A |..LDA #13..... J|
000017A0: 53 52 20 24 46 46 44 32 00 B4 1F 0A 06 4A 4D 50 |SR $FFD2.....JMP|
000017B0: 20 4D 45 4E 00 C9 1F 0C 06 3B 20 23 23 23 20 4B | MEN.....; ### K|
000017C0: 4F 4D 4D AF 4F 20 23 23 23 00 DC 1F 0E 06 43 4F |OMM.O ###.....CO|
000017D0: 4D 4D AF 20 4A 53 52 20 53 43 52 9C 00 E8 1F 10 |MM. JSR SCR.....|
000017E0: 06 4C 44 41 20 23 31 35 00 01 20 12 06 4A 53 52 |.LDA #15.. ..JSR|
000017F0: 20 24 46 46 43 33 20 20 20 20 20 20 3B A0 20 31 | $FFC3 ;. 1|
00001800: 35 00 12 20 14 06 4C 44 58 20 23 B3 43 4F 4D 54 |5.. ..LDX #.COMT|
00001810: 58 54 00 34 20 16 06 4C 44 59 20 23 B1 43 4F 4D |XT.4 ..LDY #.COM|
00001820: 54 58 54 20 20 20 3B 54 45 58 54 20 41 55 53 47 |TXT ;TEXT AUSG|
00001830: 45 42 45 4E 00 3E 20 18 06 4A 53 52 20 99 00 4A |EBEN.> ..JSR ..J|
00001840: 20 1A 06 4C 44 41 20 23 31 35 00 55 20 1C 06 4C | ..LDA #15.U ..L|
00001850: 44 58 20 23 38 00 61 20 1E 06 4C 44 59 20 23 31 |DX #8.a ..LDY #1|
00001860: 35 00 7F 20 20 06 4A 53 52 20 24 46 46 42 41 20 |5.. .JSR $FFBA |
00001870: 20 20 20 20 20 3B 9F 20 31 35 2C 38 2C 31 35 00 | ;. 15,8,15.|
00001880: 8A 20 22 06 4C 44 41 20 23 30 00 98 20 24 06 4A |. ".LDA #0.. $.J|
00001890: 53 52 20 24 46 46 42 44 00 A6 20 26 06 4A 53 52 |SR $FFBD.. &.JSR|
000018A0: 20 24 46 46 43 30 00 C9 20 28 06 4C 44 58 20 23 | $FFC0.. (.LDX #|
000018B0: 31 35 20 20 20 20 20 20 20 20 20 3B 4F 55 54 50 |15 ;OUTP|
000018C0: 55 54 20 41 55 46 20 31 35 00 D7 20 2A 06 4A 53 |UT AUF 15.. *.JS|
000018D0: 52 20 24 46 46 43 39 00 F7 20 2C 06 43 4F 4D 4D |R $FFC9.. ,.COMM|
000018E0: 30 20 4A 53 52 20 24 46 46 43 46 20 3B 85 20 56 |0 JSR $FFCF ;. V|
000018F0: 91 20 54 41 53 54 2E 00 17 21 2E 06 4A 53 52 20 |. TAST...!..JSR |
00001900: 24 46 46 44 32 20 20 20 20 20 20 20 3B 41 4E 53 |$FFD2 ;ANS|
00001910: 20 46 4C 4F 50 50 59 00 23 21 30 06 43 4D 50 20 | FLOPPY.#!0.CMP |
00001920: 23 31 33 00 4A 21 32 06 42 4E 45 20 43 4F 4D 4D |#13.J!2.BNE COMM|
00001930: 30 20 20 20 20 20 20 20 3B 4E 41 45 43 48 53 54 |0 ;NAECHST|
00001940: 45 53 20 5A 45 49 43 48 45 4E 00 58 21 34 06 4A |ES ZEICHEN.X!4.J|
00001950: 53 52 20 24 46 46 43 43 00 64 21 36 06 4A 4D 50 |SR $FFCC.d!6.JMP|
00001960: 20 4D 45 4E 00 76 21 38 06 3B 20 23 23 23 20 CB | MEN.v!8.; ### .|
00001970: 4E 47 20 23 23 23 00 82 21 3A 06 CB 4E 47 20 B2 |NG ###..!:..NG .|
00001980: 20 AC 00 8E 21 3C 06 4C 44 41 20 23 31 35 00 AA | ...!<.LDA #15..|
00001990: 21 3E 06 53 54 41 20 53 49 44 AA 32 34 20 3B 4C |!>.STA SID.24 ;L|
000019A0: 41 55 54 53 54 41 45 52 4B 45 00 B5 21 40 06 4C |AUTSTAERKE..!@.L|
000019B0: 44 41 20 23 30 00 CD 21 42 06 53 54 41 20 53 49 |DA #0..!B.STA SI|
000019C0: 44 AA 36 20 20 3B 52 45 4C 45 41 53 45 00 E4 21 |D.6 ;RELEASE..!|
000019D0: 44 06 53 54 41 20 53 49 44 AA 34 20 20 3B 57 45 |D.STA SID.4 ;WE|
000019E0: 4C C3 81 4D 00 00 22 46 06 53 54 41 20 53 49 44 |L..M.."F.STA SID|
000019F0: 20 20 20 20 3B 4C 4F AB 42 59 54 45 20 B8 51 2E | ;LO.BYTE .Q.|
00001A00: 00 25 22 48 06 53 54 41 20 53 49 44 AA 35 20 20 |.%"H.STA SID.5 |
00001A10: 3B 55 4E 44 20 41 54 54 41 43 4B AD 44 45 43 41 |;UND ATTACK.DECA|
00001A20: 59 20 41 55 53 00 31 22 4A 06 4C 44 41 20 23 31 |Y AUS.1"J.LDA #1|
00001A30: 32 00 4B 22 4C 06 53 54 41 20 53 49 44 AA 31 20 |2.K"L.STA SID.1 |
00001A40: 3B 48 49 AB 42 59 54 45 20 B8 51 00 51 22 4E 06 |;HI.BYTE .Q.Q"N.|
00001A50: 3B 00 5C 22 50 06 4C 44 58 20 23 30 00 68 22 52 |;.\"P.LDX #0.h"R|
00001A60: 06 4C 44 59 20 23 33 30 00 75 22 54 06 CB 4E 47 |.LDY #30.u"T..NG|
00001A70: 57 20 44 45 58 00 82 22 56 06 42 4E 45 20 CB 4E |W DEX.."V.BNE .N|
00001A80: 47 57 00 8A 22 58 06 44 45 59 00 A0 22 5A 06 42 |GW.."X.DEY.."Z.B|
00001A90: 4E 45 20 CB 4E 47 57 20 20 3B 57 41 52 54 45 4E |NE .NGW ;WARTEN|
00001AA0: 00 A6 22 5C 06 3B 00 B3 22 5E 06 4C 44 41 20 23 |.."\.;.."^.LDA #|
00001AB0: 24 46 43 00 D2 22 60 06 53 54 41 20 53 49 44 AA |$FC.."`.STA SID.|
00001AC0: 36 20 20 3B 53 55 53 54 41 49 4E 20 41 55 46 20 |6 ;SUSTAIN AUF |
00001AD0: 31 35 00 F1 22 62 06 53 54 41 20 53 49 44 AA 36 |15.."b.STA SID.6|
00001AE0: 20 20 3B 52 45 4C 45 41 53 45 20 41 55 46 20 31 | ;RELEASE AUF 1|
00001AF0: 32 00 FD 22 64 06 4C 44 41 20 23 32 31 00 17 23 |2.."d.LDA #21..#|
00001B00: 66 06 53 54 41 20 53 49 44 AA 34 20 20 3B 53 41 |f.STA SID.4 ;SA|
00001B10: 45 47 45 5A 41 48 4E 00 25 23 68 06 53 54 41 20 |EGEZAHN.%#h.STA |
00001B20: 53 49 44 AA 34 00 31 23 6A 06 4C 44 41 20 23 32 |SID.4.1#j.LDA #2|
00001B30: 30 00 55 23 6C 06 53 54 41 20 53 49 44 AA 34 20 |0.U#l.STA SID.4 |
00001B40: 20 3B 4B 45 59 AB 42 49 54 20 52 55 45 43 4B 53 | ;KEY.BIT RUECKS|
00001B50: 45 54 5A 45 4E 00 5D 23 6E 06 52 54 53 00 70 23 |ETZEN.]#n.RTS.p#|
00001B60: 70 06 3B 20 54 45 58 54 41 55 53 44 52 55 43 4B |p.; TEXTAUSDRUCK|
00001B70: 00 89 23 72 06 3B 20 28 24 36 34 29 2C 59 20 42 |..#r.; ($64),Y B|
00001B80: 49 53 20 80 45 20 28 30 29 00 A9 23 74 06 99 20 |IS .E (0)..#t.. |
00001B90: 53 54 58 20 24 36 34 20 20 20 3B 41 4E 46 41 4E |STX $64 ;ANFAN|
00001BA0: 47 53 41 44 52 45 53 53 45 00 CD 23 76 06 53 54 |GSADRESSE..#v.ST|
00001BB0: 59 20 24 36 35 20 20 20 20 20 20 20 20 20 3B 49 |Y $65 ;I|
00001BC0: 4E 20 50 4F B5 45 52 20 28 24 36 34 29 00 DB 23 |N PO.ER ($64)..#|
00001BD0: 78 06 99 30 20 4C 44 59 20 23 30 00 EB 23 7A 06 |x..0 LDY #0..#z.|
00001BE0: 4C 44 41 20 28 24 36 34 29 2C 59 00 FF 23 7C 06 |LDA ($64),Y..#|.|
00001BF0: 42 45 51 20 99 32 20 20 20 20 20 20 3B 80 45 00 |BEQ .2 ;.E.|
00001C00: 25 24 7E 06 43 4D 50 20 23 22 40 22 20 20 20 20 |%$~.CMP #"@" |
00001C10: 3B 57 49 45 44 45 52 48 4F 4C 55 4E 47 53 5A 45 |;WIEDERHOLUNGSZE|
00001C20: 49 43 48 45 4E 00 30 24 80 06 42 45 51 20 99 31 |ICHEN.0$..BEQ .1|
00001C30: 00 4E 24 82 06 4A 53 52 20 24 46 46 44 32 20 20 |.N$..JSR $FFD2 |
00001C40: 20 20 20 20 20 3B 41 55 53 47 45 42 45 4E 00 74 | ;AUSGEBEN.t|
00001C50: 24 84 06 49 4E 43 20 24 36 34 20 20 20 20 20 20 |$..INC $64 |
00001C60: 20 20 20 3B 5A 41 45 48 4C 45 52 20 45 52 48 4F | ;ZAEHLER ERHO|
00001C70: 45 48 45 4E 00 7F 24 86 06 42 4E 45 20 99 30 00 |EHEN..$..BNE .0.|
00001C80: 8B 24 88 06 49 4E 43 20 24 36 35 00 96 24 8A 06 |.$..INC $65..$..|
00001C90: 42 4E 45 20 99 30 00 B4 24 8C 06 99 31 20 49 4E |BNE .0..$...1 IN|
00001CA0: 59 20 20 3B 57 49 45 44 45 52 48 4F 4C 52 4F 55 |Y ;WIEDERHOLROU|
00001CB0: 54 49 4E 45 00 D0 24 8E 06 4C 44 41 20 28 24 36 |TINE..$..LDA ($6|
00001CC0: 34 29 2C 59 20 20 20 20 20 3B 41 4E 5A 41 48 4C |4),Y ;ANZAHL|
00001CD0: 00 D8 24 90 06 54 41 58 00 E0 24 92 06 49 4E 59 |..$..TAX..$..INY|
00001CE0: 00 F3 24 94 06 99 33 20 4C 44 41 20 28 24 36 34 |..$...3 LDA ($64|
00001CF0: 29 2C 59 00 11 25 96 06 4A 53 52 20 24 46 46 44 |),Y..%..JSR $FFD|
00001D00: 32 20 20 20 20 20 20 20 3B 41 55 53 47 45 42 45 |2 ;AUSGEBE|
00001D10: 4E 00 19 25 98 06 44 45 58 00 3B 25 9A 06 42 4E |N..%..DEX.;%..BN|
00001D20: 45 20 99 33 20 20 20 20 20 20 3B 57 49 45 44 45 |E .3 ;WIEDE|
00001D30: 52 48 4F 4C 53 43 48 4C 45 8B 45 00 5A 25 9C 06 |RHOLSCHLE.E.Z%..|
00001D40: 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 5A |CLC ;Z|
00001D50: 55 4D 20 5A 41 45 48 4C 45 52 00 78 25 9E 06 4C |UM ZAEHLER.x%..L|
00001D60: 44 41 20 24 36 34 20 20 20 20 20 20 20 3B 33 20 |DA $64 ;3 |
00001D70: 41 44 44 49 45 52 45 4E 00 83 25 A0 06 41 44 43 |ADDIEREN..%..ADC|
00001D80: 20 23 33 00 8F 25 A2 06 53 54 41 20 24 36 34 00 | #3..%..STA $64.|
00001D90: 9A 25 A4 06 42 43 43 20 99 30 00 A6 25 A6 06 49 |.%..BCC .0..%..I|
00001DA0: 4E 43 20 24 36 35 00 B1 25 A8 06 42 4E 45 20 99 |NC $65..%..BNE .|
00001DB0: 30 00 BC 25 AA 06 99 32 20 52 54 53 00 DD 25 AC |0..%...2 RTS..%.|
00001DC0: 06 3B 20 23 23 23 20 54 49 54 45 4C 42 49 4C 44 |.; ### TITELBILD|
00001DD0: 20 41 55 53 47 45 42 45 4E 20 23 23 23 00 EA 25 | AUSGEBEN ###..%|
00001DE0: AE 06 53 43 52 9C 20 B2 20 AC 00 07 26 B0 06 4C |..SCR. . ...&..L|
00001DF0: 44 41 20 23 20 30 20 20 20 20 20 20 20 20 20 3B |DA # 0 ;|
00001E00: 48 B5 45 52 47 8A 44 00 2E 26 B2 06 53 54 41 20 |H.ERG.D..&..STA |
00001E10: 24 44 30 32 30 20 20 20 20 20 20 20 3B 55 2E 20 |$D020 ;U. |
00001E20: 52 41 48 4D 45 4E 20 53 43 48 57 41 52 5A 00 3C |RAHMEN SCHWARZ.<|
00001E30: 26 B4 06 53 54 41 20 24 44 30 32 31 00 59 26 B6 |&..STA $D021.Y&.|
00001E40: 06 4C 44 58 20 23 B3 53 43 52 45 45 4E 20 20 20 |.LDX #.SCREEN |
00001E50: 20 3B 41 44 52 45 53 53 45 00 6A 26 B8 06 4C 44 | ;ADRESSE.j&..LD|
00001E60: 59 20 23 B1 53 43 52 45 45 4E 00 88 26 BA 06 4A |Y #.SCREEN..&..J|
00001E70: 53 52 20 99 20 20 20 20 20 20 20 3B 55 4E 44 20 |SR . ;UND |
00001E80: 41 55 53 47 45 42 45 4E 00 90 26 BC 06 52 54 53 |AUSGEBEN..&..RTS|
00001E90: 00 AE 26 BE 06 3B 20 23 23 23 20 4D 45 4E 55 45 |..&..; ### MENUE|
00001EA0: 20 41 55 53 57 45 52 54 45 4E 20 23 23 23 00 D0 | AUSWERTEN ###..|
00001EB0: 26 C0 06 A1 4D 45 4E 20 4C 44 41 20 23 30 20 20 |&...MEN LDA #0 |
00001EC0: 20 3B 54 41 53 54 41 54 55 52 50 55 46 46 45 52 | ;TASTATURPUFFER|
00001ED0: 00 EE 26 C2 06 53 54 41 20 31 39 38 20 20 20 20 |..&..STA 198 |
00001EE0: 20 20 20 20 20 3B 4C 4F 45 53 43 48 45 4E 00 11 | ;LOESCHEN..|
00001EF0: 27 C4 06 4C 44 41 20 23 24 38 31 20 20 20 20 20 |'..LDA #$81 |
00001F00: 20 3B 54 41 53 54 41 54 55 52 B5 45 52 52 55 50 | ;TASTATUR.ERRUP|
00001F10: 54 00 31 27 C6 06 53 54 41 20 24 44 43 30 45 20 |T.1'..STA $DC0E |
00001F20: 20 20 20 20 3B 45 52 4D 4F 45 47 4C 49 43 48 45 | ;ERMOEGLICHE|
00001F30: 4E 00 54 27 C8 06 47 54 43 20 4A 53 52 20 42 4C |N.T'..GTC JSR BL|
00001F40: 41 43 4B 20 20 3B 46 45 4C 44 20 4D 41 52 4B 49 |ACK ;FELD MARKI|
00001F50: 45 52 45 4E 00 6B 27 CA 06 47 54 30 20 4A 53 52 |EREN.k'..GT0 JSR|
00001F60: 20 24 46 46 45 34 20 20 20 3B A1 00 77 27 CC 06 | $FFE4 ;..w'..|
00001F70: 42 45 51 20 47 54 30 00 94 27 CE 06 43 4D 50 20 |BEQ GT0..'..CMP |
00001F80: 23 32 39 20 20 20 20 20 3B 43 55 52 53 B0 20 52 |#29 ;CURS. R|
00001F90: 49 47 48 54 00 A0 27 D0 06 42 45 51 20 47 54 31 |IGHT..'..BEQ GT1|
00001FA0: 00 BC 27 D2 06 43 4D 50 20 23 31 37 20 20 20 20 |..'..CMP #17 |
00001FB0: 20 3B 43 55 52 53 B0 20 44 4F 57 4E 00 C8 27 D4 | ;CURS. DOWN..'.|
00001FC0: 06 42 45 51 20 47 54 32 00 DB 27 D6 06 43 4D 50 |.BEQ GT2..'..CMP|
00001FD0: 20 23 31 33 20 20 20 20 20 3B 8E 00 E7 27 D8 06 | #13 ;...'..|
00001FE0: 42 4E 45 20 47 54 30 00 F2 27 DA 06 4C 44 41 20 |BNE GT0..'..LDA |
00001FF0: 24 32 00 14 28 DC 06 52 54 53 20 20 20 20 20 20 |$2..(..RTS |
00002000: 20 3B 80 45 2C 20 4D 45 4E 2E 50 55 4E 4B 54 20 | ;.E, MEN.PUNKT |
00002010: 49 4E 20 41 00 31 28 DE 06 47 54 31 20 4C 44 41 |IN A.1(..GT1 LDA|
00002020: 20 24 32 20 20 3B 43 55 52 53 B0 20 52 49 47 48 | $2 ;CURS. RIGH|
00002030: 54 00 53 28 E0 06 41 44 43 20 23 30 20 20 20 20 |T.S(..ADC #0 |
00002040: 20 20 3B AA 31 2C 20 44 41 20 43 41 52 52 59 20 | ;.1, DA CARRY |
00002050: 53 45 54 00 5E 28 E2 06 43 4D 50 20 23 35 00 6B |SET.^(..CMP #5.k|
00002060: 28 E4 06 42 43 43 20 47 54 31 31 00 76 28 E6 06 |(..BCC GT11.v(..|
00002070: 4C 44 41 20 23 30 00 86 28 E8 06 47 54 31 31 20 |LDA #0..(..GT11 |
00002080: 53 54 41 20 24 32 00 A6 28 EA 06 4A 4D 50 20 47 |STA $2..(..JMP G|
00002090: 54 43 20 20 20 20 20 3B 46 45 4C 44 20 4D 41 52 |TC ;FELD MAR|
000020A0: 4B 49 45 52 45 4E 00 C4 28 EC 06 47 54 32 20 4C |KIEREN..(..GT2 L|
000020B0: 44 41 20 24 32 20 20 20 20 3B 43 55 52 53 B0 20 |DA $2 ;CURS. |
000020C0: 4C 45 46 54 00 CF 28 EE 06 53 42 43 20 23 31 00 |LEFT..(..SBC #1.|
000020D0: DA 28 F0 06 43 4D 50 20 23 30 00 E7 28 F2 06 42 |.(..CMP #0..(..B|
000020E0: 50 4C 20 47 54 32 32 00 F2 28 F4 06 4C 44 41 20 |PL GT22..(..LDA |
000020F0: 23 34 00 02 29 F6 06 47 54 32 32 20 53 54 41 20 |#4..)..GT22 STA |
00002100: 24 32 00 22 29 F8 06 4A 4D 50 20 47 54 43 20 20 |$2.")..JMP GTC |
00002110: 20 20 20 3B 46 45 4C 44 20 4D 41 52 4B 49 45 52 | ;FELD MARKIER|
00002120: 45 4E 00 45 29 FA 06 42 4C 41 43 4B 20 4C 44 59 |EN.E)..BLACK LDY|
00002130: 20 23 34 30 20 20 3B 52 45 56 45 52 53 45 20 46 | #40 ;REVERSE F|
00002140: 45 4C 44 45 52 00 63 29 FC 06 42 4C 30 20 4C 44 |ELDER.c)..BL0 LD|
00002150: 41 20 24 33 46 46 2C 59 20 3B 45 4E 54 46 45 52 |A $3FF,Y ;ENTFER|
00002160: 4E 45 4E 00 84 29 FE 06 AF 20 23 24 37 46 20 20 |NEN..)... #$7F |
00002170: 20 20 20 20 20 3B 55 4E 44 20 4E 45 55 45 53 20 | ;UND NEUES |
00002180: 46 45 4C 44 00 A9 29 00 07 53 54 41 20 24 33 46 |FELD..)..STA $3F|
00002190: 46 2C 59 20 20 20 20 20 3B 52 45 56 45 52 53 20 |F,Y ;REVERS |
000021A0: 4D 41 52 4B 49 45 52 45 4E 00 B1 29 02 07 44 45 |MARKIEREN..)..DE|
000021B0: 59 00 BD 29 04 07 42 4E 45 20 42 4C 30 00 DF 29 |Y..)..BNE BL0..)|
000021C0: 06 07 4C 44 41 20 24 32 20 20 20 20 20 20 20 20 |..LDA $2 |
000021D0: 20 3B 4D 45 4E 55 45 50 55 4E 4B 54 4E 52 2E 00 | ;MENUEPUNKTNR..|
000021E0: F9 29 08 07 41 53 4C 20 20 20 20 20 20 20 20 20 |.)..ASL |
000021F0: 20 20 20 3B 4D 41 4C 20 38 00 01 2A 0A 07 41 53 | ;MAL 8..*..AS|
00002200: 4C 00 09 2A 0C 07 41 53 4C 00 14 2A 0E 07 53 42 |L..*..ASL..*..SB|
00002210: 43 20 24 32 00 1C 2A 10 07 54 41 59 00 24 2A 12 |C $2..*..TAY.$*.|
00002220: 07 49 4E 59 00 2F 2A 14 07 4C 44 58 20 23 36 00 |.INY./*..LDX #6.|
00002230: 51 2A 16 07 42 4C 31 20 4C 44 41 20 24 34 30 32 |Q*..BL1 LDA $402|
00002240: 2C 59 20 3B 52 45 56 45 52 53 20 53 45 54 5A 45 |,Y ;REVERS SETZE|
00002250: 4E 00 5D 2A 18 07 B0 41 20 23 24 38 30 00 6C 2A |N.]*...A #$80.l*|
00002260: 1A 07 53 54 41 20 24 34 30 32 2C 59 00 74 2A 1C |..STA $402,Y.t*.|
00002270: 07 49 4E 59 00 7C 2A 1E 07 44 45 58 00 88 2A 20 |.INY.|*..DEX..* |
00002280: 07 42 4E 45 20 42 4C 31 00 90 2A 22 07 52 54 53 |.BNE BL1..*".RTS|
00002290: 00 B1 2A 24 07 3B 20 23 23 23 20 54 41 53 54 80 |..*$.; ### TAST.|
000022A0: 52 55 43 4B 20 41 42 57 41 52 54 45 4E 20 23 23 |RUCK ABWARTEN ##|
000022B0: 23 00 BF 2A 26 07 54 41 53 54 45 20 43 4C 49 00 |#..*&.TASTE CLI.|
000022C0: E1 2A 28 07 4C 44 41 20 23 36 34 20 20 20 20 20 |.*(.LDA #64 |
000022D0: 20 20 3B 54 41 53 54 45 4E 52 45 47 49 53 54 45 | ;TASTENREGISTE|
000022E0: 52 00 FD 2A 2A 07 53 54 41 20 32 30 33 20 20 20 |R..**.STA 203 |
000022F0: 20 20 20 20 3B 4C 4F 45 53 43 48 45 4E 00 21 2B | ;LOESCHEN.!+|
00002300: 2C 07 4C 44 41 20 23 24 38 31 20 20 20 20 20 20 |,.LDA #$81 |
00002310: 3B 49 52 51 20 45 52 4D 4F 45 47 4C 49 43 48 45 |;IRQ ERMOEGLICHE|
00002320: 4E 00 2F 2B 2E 07 53 54 41 20 24 44 43 30 45 00 |N./+..STA $DC0E.|
00002330: 54 2B 30 07 54 41 53 54 30 20 4C 44 41 20 32 30 |T+0.TAST0 LDA 20|
00002340: 33 20 3B 54 41 53 54 41 54 55 52 20 41 42 46 52 |3 ;TASTATUR ABFR|
00002350: 41 47 45 4E 00 60 2B 32 07 43 4D 50 20 23 36 33 |AGEN.`+2.CMP #63|
00002360: 00 75 2B 34 07 42 45 51 20 54 41 53 54 31 20 20 |.u+4.BEQ TAST1 |
00002370: 20 20 20 3B 90 00 81 2B 36 07 43 4D 50 20 23 36 | ;...+6.CMP #6|
00002380: 34 00 8F 2B 38 07 42 45 51 20 54 41 53 54 30 00 |4..+8.BEQ TAST0.|
00002390: 97 2B 3A 07 43 4C 43 00 9F 2B 3C 07 52 54 53 00 |.+:.CLC..+<.RTS.|
000023A0: C2 2B 3E 07 54 41 53 54 31 20 53 45 43 20 20 20 |.+>.TAST1 SEC |
000023B0: 20 20 3B 43 41 52 52 59 20 53 45 54 20 42 45 49 | ;CARRY SET BEI|
000023C0: 20 90 00 CA 2B 40 07 52 54 53 00 EA 2B 42 07 3B | ...+@.RTS..+B.;|
000023D0: 20 23 23 23 20 55 48 52 20 41 55 46 20 30 20 53 | ### UHR AUF 0 S|
000023E0: 54 45 54 5A 45 4E 20 23 23 23 00 F7 2B 44 07 55 |TETZEN ###..+D.U|
000023F0: 48 52 30 20 B2 20 AC 00 05 2C 46 07 4C 44 41 20 |HR0 . ...,F.LDA |
00002400: 24 44 43 30 46 00 21 2C 48 07 AF 20 23 24 37 46 |$DC0F.!,H.. #$7F|
00002410: 20 20 20 20 20 3B 55 48 52 20 41 4E 57 41 45 48 | ;UHR ANWAEH|
00002420: C3 00 2F 2C 4A 07 53 54 41 20 24 44 43 30 46 00 |../,J.STA $DC0F.|
00002430: 3D 2C 4C 07 4C 44 41 20 24 44 43 30 45 00 54 2C |=,L.LDA $DC0E.T,|
00002440: 4E 07 B0 41 20 23 24 38 30 20 20 20 20 20 3B 35 |N..A #$80 ;5|
00002450: 30 20 48 5A 00 62 2C 50 07 53 54 41 20 24 44 43 |0 HZ.b,P.STA $DC|
00002460: 30 45 00 6F 2C 52 07 4C 44 41 20 23 24 30 30 00 |0E.o,R.LDA #$00.|
00002470: 85 2C 54 07 53 54 41 20 24 44 43 30 42 20 20 20 |.,T.STA $DC0B |
00002480: 20 3B 53 54 44 00 9B 2C 56 07 53 54 41 20 24 44 | ;STD..,V.STA $D|
00002490: 43 30 41 20 20 20 20 3B 4D 49 4E 00 B6 2C 58 07 |C0A ;MIN..,X.|
000024A0: 53 54 41 20 24 44 43 30 39 20 20 20 20 3B 53 45 |STA $DC09 ;SE|
000024B0: 4B 55 4E 44 45 4E 00 DA 2C 5A 07 53 54 41 20 24 |KUNDEN..,Z.STA $|
000024C0: 44 43 30 38 20 20 20 20 3B 55 4E 44 20 5A 45 48 |DC08 ;UND ZEH|
000024D0: 4E 54 45 4C 20 41 55 46 20 30 00 E2 2C 5C 07 52 |NTEL AUF 0..,\.R|
000024E0: 54 53 00 FB 2C 5E 07 3B 20 23 23 23 20 5A 45 49 |TS..,^.; ### ZEI|
000024F0: 54 20 4C 45 53 45 4E 20 23 23 23 00 08 2D 60 07 |T LESEN ###..-`.|
00002500: 55 48 52 5A 20 B2 20 AC 00 23 2D 62 07 4C 44 41 |UHRZ . ..#-b.LDA|
00002510: 20 24 44 43 30 42 20 20 20 20 20 3B 53 54 55 4E | $DC0B ;STUN|
00002520: 44 45 4E 00 3E 2D 64 07 4C 44 41 20 24 44 43 30 |DEN.>-d.LDA $DC0|
00002530: 41 20 20 20 20 20 3B 4D 49 4E 55 54 45 4E 00 5B |A ;MINUTEN.[|
00002540: 2D 66 07 4A 53 52 20 55 4C 4F 20 20 20 20 20 20 |-f.JSR ULO |
00002550: 20 3B 45 49 4E 45 52 20 48 4F C3 00 7B 2D 68 07 | ;EINER HO..{-h.|
00002560: 53 54 41 20 24 34 30 30 AA 39 31 33 20 20 3B 55 |STA $400.913 ;U|
00002570: 4E 44 20 41 55 53 47 45 42 45 4E 00 88 2D 6A 07 |ND AUSGEBEN..-j.|
00002580: 4C 44 41 20 23 22 3A 22 00 99 2D 6C 07 53 54 41 |LDA #":"..-l.STA|
00002590: 20 24 34 30 30 AA 39 31 34 00 B5 2D 6E 07 4C 44 | $400.914..-n.LD|
000025A0: 41 20 24 44 43 30 39 20 20 20 20 20 3B 53 45 4B |A $DC09 ;SEK|
000025B0: 55 4E 44 45 4E 00 BD 2D 70 07 50 48 41 00 DB 2D |UNDEN..-p.PHA..-|
000025C0: 72 07 4A 53 52 20 55 48 49 20 20 20 20 20 20 20 |r.JSR UHI |
000025D0: 3B 5A 45 48 4E 45 52 20 48 4F C3 00 FB 2D 74 07 |;ZEHNER HO...-t.|
000025E0: 53 54 41 20 24 34 30 30 AA 39 31 35 20 20 3B 55 |STA $400.915 ;U|
000025F0: 4E 44 20 41 55 53 47 45 42 45 4E 00 03 2E 76 07 |ND AUSGEBEN...v.|
00002600: 50 4C 41 00 20 2E 78 07 4A 53 52 20 55 4C 4F 20 |PLA. .x.JSR ULO |
00002610: 20 20 20 20 20 20 3B 55 4E 44 20 45 49 4E 45 52 | ;UND EINER|
00002620: 00 31 2E 7A 07 53 54 41 20 24 34 30 30 AA 39 31 |.1.z.STA $400.91|
00002630: 36 00 3F 2E 7C 07 4C 44 41 20 24 44 43 30 38 00 |6.?.|.LDA $DC08.|
00002640: 47 2E 7E 07 52 54 53 00 68 2E 80 07 55 4C 4F 20 |G.~.RTS.h...ULO |
00002650: AF 20 23 24 30 46 20 20 3B 45 49 4E 45 52 20 41 |. #$0F ;EINER A|
00002660: 55 53 57 45 52 54 45 4E 00 74 2E 82 07 B0 41 20 |USWERTEN.t....A |
00002670: 23 24 33 30 00 7C 2E 84 07 52 54 53 00 A0 2E 86 |#$30.|...RTS....|
00002680: 07 55 48 49 20 4C 53 52 20 20 20 20 20 20 20 3B |.UHI LSR ;|
00002690: 5A 45 48 4E 45 52 20 41 55 53 57 45 52 54 45 4E |ZEHNER AUSWERTEN|
000026A0: 00 A8 2E 88 07 4C 53 52 00 B0 2E 8A 07 4C 53 52 |.....LSR.....LSR|
000026B0: 00 B8 2E 8C 07 4C 53 52 00 C4 2E 8E 07 B0 41 20 |.....LSR......A |
000026C0: 23 24 33 30 00 CC 2E 90 07 52 54 53 00 E8 2E 92 |#$30.....RTS....|
000026D0: 07 3B 20 23 23 23 20 5A 45 49 54 20 41 4E 48 41 |.; ### ZEIT ANHA|
000026E0: 4C 54 45 4E 20 23 23 23 00 0A 2F 94 07 55 48 52 |LTEN ###../..UHR|
000026F0: 41 20 4C 44 41 20 23 30 20 20 20 3B 42 45 49 4D |A LDA #0 ;BEIM|
00002700: 20 53 54 44 20 53 54 45 4C C3 00 2A 2F 96 07 53 | STD STEL..*/..S|
00002710: 54 41 20 24 44 43 30 42 20 20 20 20 20 3B 48 41 |TA $DC0B ;HA|
00002720: 45 4C 54 20 55 48 52 20 41 4E 00 32 2F 98 07 52 |ELT UHR AN.2/..R|
00002730: 54 53 00 4D 2F 9A 07 3B 20 23 23 23 20 5A 45 49 |TS.M/..; ### ZEI|
00002740: 54 20 53 54 41 52 54 45 4E 20 23 23 23 00 71 2F |T STARTEN ###.q/|
00002750: 9C 07 55 48 52 53 20 4C 44 41 20 24 44 43 30 38 |..UHRS LDA $DC08|
00002760: 20 3B 42 45 49 4D 20 31 AD 31 30 20 53 54 45 4C | ;BEIM 1.10 STEL|
00002770: C3 00 97 2F 9E 07 53 54 41 20 24 44 43 30 38 20 |.../..STA $DC08 |
00002780: 20 20 20 20 20 3B 4C 41 45 55 46 54 20 55 48 52 | ;LAEUFT UHR|
00002790: 20 57 45 49 54 45 52 00 9F 2F A0 07 52 54 53 00 | WEITER../..RTS.|
000027A0: BB 2F A2 07 3B 20 23 23 23 20 46 4C 4F 50 50 59 |./..; ### FLOPPY|
000027B0: 4D 45 4C 44 55 4E 47 20 23 23 23 00 C8 2F A4 07 |MELDUNG ###../..|
000027C0: 4F 4B 30 30 20 B2 20 AC 00 D5 2F A6 07 4C 44 41 |OK00 . .../..LDA|
000027D0: 20 23 31 33 20 00 E3 2F A8 07 4A 53 52 20 24 46 | #13 ../..JSR $F|
000027E0: 46 44 32 00 F3 2F AA 07 4A 53 52 20 44 49 53 50 |FD2../..JSR DISP|
000027F0: 41 43 45 00 1A 30 AC 07 4C 44 58 20 23 30 20 20 |ACE..0..LDX #0 |
00002800: 20 20 20 20 20 20 3B 5A 41 45 48 4C 45 52 20 41 | ;ZAEHLER A|
00002810: 55 53 47 2E 5A 45 49 43 48 4E 00 27 30 AE 07 4C |USG.ZEICHN.'0..L|
00002820: 44 41 20 23 24 30 38 00 41 30 B0 07 4A 53 52 20 |DA #$08.A0..JSR |
00002830: 24 46 46 42 34 20 20 20 20 20 3B 54 41 4C 4B 20 |$FFB4 ;TALK |
00002840: 38 00 4E 30 B2 07 4C 44 41 20 23 24 36 46 00 6C |8.N0..LDA #$6F.l|
00002850: 30 B4 07 4A 53 52 20 24 46 46 39 36 20 20 20 20 |0..JSR $FF96 |
00002860: 20 3B 53 45 43 54 41 4C 4B 20 31 35 00 90 30 B6 | ;SECTALK 15..0.|
00002870: 07 4F 4B 30 31 20 4A 53 52 20 24 46 46 41 35 20 |.OK01 JSR $FFA5 |
00002880: 3B 42 59 54 45 20 56 91 20 42 55 53 20 48 4F C3 |;BYTE V. BUS HO.|
00002890: 00 9C 30 B8 07 43 4D 50 20 23 31 33 00 B2 30 BA |..0..CMP #13..0.|
000028A0: 07 42 45 51 20 4F 4B 30 32 20 20 20 20 20 20 3B |.BEQ OK02 ;|
000028B0: 80 45 00 D3 30 BC 07 4A 53 52 20 24 46 46 44 32 |.E..0..JSR $FFD2|
000028C0: 20 20 20 20 20 3B 53 91 53 54 20 41 55 53 47 45 | ;S.ST AUSGE|
000028D0: 42 45 4E 00 DB 30 BE 07 49 4E 58 00 FF 30 C0 07 |BEN..0..INX..0..|
000028E0: 43 50 58 20 23 33 30 20 20 20 20 20 20 20 3B 42 |CPX #30 ;B|
000028F0: 45 49 20 33 30 20 41 55 46 48 4F 45 52 45 4E 00 |EI 30 AUFHOEREN.|
00002900: 0C 31 C2 07 42 4E 45 20 4F 4B 30 31 00 27 31 C4 |.1..BNE OK01.'1.|
00002910: 07 4F 4B 30 32 20 4A 53 52 20 24 46 46 41 42 20 |.OK02 JSR $FFAB |
00002920: 3B 55 4E 54 41 4C 4B 00 2F 31 C6 07 52 54 53 00 |;UNTALK./1..RTS.|
00002930: 4D 31 C8 07 3B 20 43 55 52 53 B0 20 5A 57 45 49 |M1..; CURS. ZWEI|
00002940: 20 46 45 4C 44 45 52 20 4C 49 4E 4B 53 00 61 31 | FELDER LINKS.a1|
00002950: CA 07 44 49 53 50 41 43 45 20 4C 44 41 20 23 32 |..DISPACE LDA #2|
00002960: 39 00 6F 31 CC 07 4A 53 52 20 24 46 46 44 32 00 |9.o1..JSR $FFD2.|
00002970: 7B 31 CE 07 4C 44 41 20 23 32 39 00 89 31 D0 07 |{1..LDA #29..1..|
00002980: 4A 53 52 20 24 46 46 44 32 00 91 31 D2 07 52 54 |JSR $FFD2..1..RT|
00002990: 53 00 AF 31 D4 07 3B 20 23 23 23 20 47 43 52 20 |S..1..; ### GCR |
000029A0: AB 20 44 45 43 4F 44 49 45 8A 47 20 23 23 23 00 |. DECODIE.G ###.|
000029B0: D1 31 D6 07 3B 55 4E 44 20 56 45 52 53 43 48 49 |.1..;UND VERSCHI|
000029C0: 45 42 55 4E 47 20 49 4D 20 53 50 45 49 43 48 45 |EBUNG IM SPEICHE|
000029D0: 52 00 E0 31 D8 07 44 45 43 4F 44 45 20 B2 20 AC |R..1..DECODE . .|
000029E0: 00 E6 31 DA 07 3B 00 09 32 DC 07 3B 56 91 20 24 |..1..;..2..;V. $|
000029F0: 31 37 42 41 20 42 49 53 20 24 31 38 46 46 20 28 |17BA BIS $18FF (|
00002A00: B2 28 24 36 44 29 2C 59 29 00 2D 32 DE 07 3B 4E |.($6D),Y).-2..;N|
00002A10: 41 43 48 20 53 50 45 49 43 48 45 52 20 20 20 20 |ACH SPEICHER |
00002A20: 20 20 20 28 B2 28 24 36 46 29 2C 59 29 00 33 32 | (.($6F),Y).32|
00002A30: E0 07 3B 00 3B 32 E2 07 43 4C 43 00 61 32 E4 07 |..;.;2..CLC.a2..|
00002A40: 4C 44 41 20 24 36 38 20 20 20 20 3B 41 42 4C 41 |LDA $68 ;ABLA|
00002A50: 47 45 41 44 52 45 53 53 45 20 48 49 AB 42 59 54 |GEADRESSE HI.BYT|
00002A60: 45 00 7B 32 E6 07 41 44 43 20 24 35 30 20 20 20 |E.{2..ADC $50 |
00002A70: 20 3B 42 45 52 45 43 48 4E 45 4E 00 87 32 E8 07 | ;BERECHNEN..2..|
00002A80: 53 54 41 20 24 37 30 00 A6 32 EA 07 53 54 41 20 |STA $70..2..STA |
00002A90: 43 43 AA 32 20 20 20 3B 41 44 52 45 53 53 45 20 |CC.2 ;ADRESSE |
00002AA0: 46 55 45 52 20 95 00 B2 32 EC 07 4C 44 41 20 24 |FUER ...2..LDA $|
00002AB0: 35 41 00 C9 32 EE 07 42 45 51 20 44 45 43 4F 44 |5A..2..BEQ DECOD|
00002AC0: 30 20 3B 4B 45 49 4E 20 95 00 E8 32 F0 07 4C 44 |0 ;KEIN ...2..LD|
00002AD0: 41 20 23 24 31 38 20 20 20 3B 53 91 53 54 20 42 |A #$18 ;S.ST B|
00002AE0: 45 49 20 24 31 38 30 30 00 00 33 F2 07 53 54 41 |EI $1800..3..STA|
00002AF0: 20 24 37 30 20 20 20 20 3B 41 42 4C 45 47 45 4E | $70 ;ABLEGEN|
00002B00: 00 0F 33 F4 07 44 45 43 4F 44 30 20 B2 20 AC 00 |..3..DECOD0 . ..|
00002B10: 30 33 F6 07 4C 44 59 20 23 24 30 31 20 20 20 3B |03..LDY #$01 ;|
00002B20: 5A 45 49 47 45 52 20 5A 55 4D 20 4C 45 53 45 4E |ZEIGER ZUM LESEN|
00002B30: 00 3D 33 F8 07 4C 44 41 20 23 24 33 34 00 5A 33 |.=3..LDA #$34.Z3|
00002B40: FA 07 53 54 41 20 24 30 31 20 20 20 20 3B 52 4F |..STA $01 ;RO|
00002B50: 4D 20 B6 43 48 41 4C 54 45 4E 00 67 33 FC 07 4C |M .CHALTEN.g3..L|
00002B60: 44 41 20 23 24 46 46 00 8C 33 FE 07 53 54 41 20 |DA #$FF..3..STA |
00002B70: 24 36 46 20 20 20 20 3B 5A 45 49 47 45 52 20 5A |$6F ;ZEIGER Z|
00002B80: 55 4D 20 53 50 45 49 43 48 45 52 4E 00 99 33 00 |UM SPEICHERN..3.|
00002B90: 08 4C 44 41 20 23 24 30 32 00 A5 33 02 08 53 54 |.LDA #$02..3..ST|
00002BA0: 41 20 24 36 41 00 C5 33 04 08 4C 44 41 20 23 24 |A $6A..3..LDA #$|
00002BB0: 31 38 20 20 20 3B 50 4F B5 45 52 20 5A 55 4D 20 |18 ;PO.ER ZUM |
00002BC0: 4C 45 53 45 4E 00 E1 33 06 08 53 54 41 20 24 36 |LESEN..3..STA $6|
00002BD0: 45 20 20 20 20 3B 28 24 36 44 29 B2 24 31 38 30 |E ;($6D).$180|
00002BE0: 30 00 EE 33 08 08 4C 44 41 20 23 24 30 30 00 FA |0..3..LDA #$00..|
00002BF0: 33 0A 08 53 54 41 20 24 36 44 00 06 34 0C 08 4C |3..STA $6D..4..L|
00002C00: 44 41 20 24 37 30 00 1F 34 0E 08 53 54 41 20 43 |DA $70..4..STA C|
00002C10: 30 AA 32 20 20 20 3B 41 44 52 45 53 53 45 4E 00 |0.2 ;ADRESSEN.|
00002C20: 3D 34 10 08 53 54 41 20 43 31 AA 32 20 20 20 3B |=4..STA C1.2 ;|
00002C30: 5A 55 4D 20 B6 50 45 49 43 48 45 52 4E 00 53 34 |ZUM .PEICHERN.S4|
00002C40: 12 08 53 54 41 20 43 34 AA 32 20 20 20 3B 41 80 |..STA C4.2 ;A.|
00002C50: 45 52 4E 00 60 34 14 08 53 54 41 20 43 35 AA 32 |ERN.`4..STA C5.2|
00002C60: 00 6D 34 16 08 53 54 41 20 43 32 AA 32 00 7A 34 |.m4..STA C2.2.z4|
00002C70: 18 08 53 54 41 20 43 36 AA 32 00 87 34 1A 08 53 |..STA C6.2..4..S|
00002C80: 54 41 20 43 37 AA 32 00 94 34 1C 08 53 54 41 20 |TA C7.2..4..STA |
00002C90: 43 33 AA 32 00 A1 34 1E 08 53 54 41 20 43 38 AA |C3.2..4..STA C8.|
00002CA0: 32 00 AE 34 20 08 53 54 41 20 43 39 AA 32 00 BB |2..4 .STA C9.2..|
00002CB0: 34 22 08 53 54 41 20 43 41 AA 32 00 E0 34 24 08 |4".STA CA.2..4$.|
00002CC0: 53 54 41 20 43 42 AA 32 20 20 20 3B 45 52 53 54 |STA CB.2 ;ERST|
00002CD0: 45 53 20 42 59 54 45 20 28 48 45 41 44 45 52 AB |ES BYTE (HEADER.|
00002CE0: 00 07 35 26 08 42 4E 45 20 44 45 43 4F 32 20 20 |..5&.BNE DECO2 |
00002CF0: 3B 4B 45 4E 4E 5A 45 49 43 48 45 4E 29 20 41 55 |;KENNZEICHEN) AU|
00002D00: 53 4C 41 53 53 45 4E 00 1D 35 28 08 44 45 43 4F |SLASSEN..5(.DECO|
00002D10: 30 20 4C 44 41 20 28 24 36 44 29 2C 59 00 38 35 |0 LDA ($6D),Y.85|
00002D20: 2A 08 53 54 41 20 24 36 43 20 20 20 20 3B 47 43 |*.STA $6C ;GC|
00002D30: 52 AB 42 59 54 45 20 31 00 49 35 2C 08 AF 20 23 |R.BYTE 1.I5,.. #|
00002D40: 25 31 31 31 31 31 30 30 30 00 60 35 2E 08 53 54 |%11111000.`5..ST|
00002D50: 41 20 24 36 42 20 20 20 20 3B 54 45 49 4C 20 31 |A $6B ;TEIL 1|
00002D60: 00 68 35 30 08 49 4E 59 00 89 35 32 08 42 4E 45 |.h50.INY..52.BNE|
00002D70: 20 44 45 43 4F 31 20 20 3B AB AB AB AB AB AB AB | DECO1 ;.......|
00002D80: AB AB AB AB AB AB AB AB AB 00 AA 35 34 08 4C 44 |...........54.LD|
00002D90: 41 20 23 33 20 20 20 20 20 3B 42 45 52 45 49 43 |A #3 ;BEREIC|
00002DA0: 48 20 41 42 20 24 30 33 42 44 00 C5 35 36 08 53 |H AB $03BD..56.S|
00002DB0: 54 41 20 24 36 45 20 20 20 20 3B 41 4B 54 49 56 |TA $6E ;AKTIV|
00002DC0: 49 45 52 45 4E 00 E6 35 38 08 4C 44 59 20 23 24 |IEREN..58.LDY #$|
00002DD0: 42 44 20 20 20 3B AB AB AB AB AB AB AB AB AB AB |BD ;..........|
00002DE0: AB AB AB AB AB AB 00 FC 35 3A 08 44 45 43 4F 31 |........5:.DECO1|
00002DF0: 20 4C 44 41 20 28 24 36 44 29 2C 59 00 04 36 3C | LDA ($6D),Y..6<|
00002E00: 08 41 53 4C 00 10 36 3E 08 52 4F 4C 20 24 36 43 |.ASL..6>.ROL $6C|
00002E10: 00 18 36 40 08 41 53 4C 00 24 36 42 08 4C 44 41 |..6@.ASL.$6B.LDA|
00002E20: 20 24 36 43 00 2C 36 44 08 52 4F 4C 00 41 36 46 | $6C.,6D.ROL.A6F|
00002E30: 08 AF 20 23 24 31 46 20 20 20 3B 54 45 49 4C 20 |.. #$1F ;TEIL |
00002E40: 32 00 49 36 48 08 54 41 58 00 6F 36 4A 08 4C 44 |2.I6H.TAX.o6J.LD|
00002E50: 41 20 47 43 52 33 2C 58 20 3B 54 45 49 4C 20 32 |A GCR3,X ;TEIL 2|
00002E60: 20 45 4E 54 53 43 48 4C 55 45 53 53 45 4C 4E 00 | ENTSCHLUESSELN.|
00002E70: 7B 36 4C 08 4C 44 58 20 24 36 42 00 A0 36 4E 08 |{6L.LDX $6B..6N.|
00002E80: B0 41 20 47 43 52 32 2C 58 20 3B 54 45 49 4C 20 |.A GCR2,X ;TEIL |
00002E90: 31 20 45 4E 54 53 43 48 4C 55 45 53 53 45 4C 4E |1 ENTSCHLUESSELN|
00002EA0: 00 C4 36 50 08 4C 44 58 20 24 36 46 20 20 20 20 |..6P.LDX $6F |
00002EB0: 20 20 20 20 20 3B 5A 55 53 41 4D 4D 45 4E 53 45 | ;ZUSAMMENSE|
00002EC0: 54 5A 45 4E 00 E3 36 52 08 43 30 20 53 54 41 20 |TZEN..6R.C0 STA |
00002ED0: 24 46 46 30 30 2C 58 20 20 3B B6 50 45 49 43 48 |$FF00,X ;.PEICH|
00002EE0: 45 52 4E 00 F9 36 54 08 44 45 43 4F 32 20 4C 44 |ERN..6T.DECO2 LD|
00002EF0: 41 20 28 24 36 44 29 2C 59 00 17 37 56 08 4C 53 |A ($6D),Y..7V.LS|
00002F00: 52 20 20 20 20 20 20 20 20 20 20 20 3B 47 43 52 |R ;GCR|
00002F10: 20 42 59 54 45 20 32 00 2F 37 58 08 AF 20 23 24 | BYTE 2./7X.. #$|
00002F20: 31 46 20 20 20 20 20 20 3B 54 45 49 4C 20 31 00 |1F ;TEIL 1.|
00002F30: 37 37 5A 08 54 41 58 00 47 37 5C 08 49 4E 59 20 |77Z.TAX.G7\.INY |
00002F40: 20 20 20 20 20 3B 32 00 57 37 5E 08 4C 44 41 20 | ;2.W7^.LDA |
00002F50: 28 24 36 44 29 2C 59 00 70 37 60 08 52 B0 20 20 |($6D),Y.p7`.R. |
00002F60: 20 20 20 20 20 20 20 20 20 3B 54 45 49 4C 20 32 | ;TEIL 2|
00002F70: 00 81 37 62 08 AF 20 23 25 31 31 31 31 31 30 30 |..7b.. #%1111100|
00002F80: 30 00 8D 37 64 08 53 54 41 20 24 36 43 00 9C 37 |0..7d.STA $6C..7|
00002F90: 66 08 4C 44 41 20 47 43 52 31 2C 58 00 A8 37 68 |f.LDA GCR1,X..7h|
00002FA0: 08 4C 44 58 20 24 36 43 00 B6 37 6A 08 B0 41 20 |.LDX $6C..7j..A |
00002FB0: 47 43 52 34 2C 58 00 DB 37 6C 08 49 4E 43 20 24 |GCR4,X..7l.INC $|
00002FC0: 36 46 20 20 20 3B 5A 45 49 47 45 52 20 46 55 45 |6F ;ZEIGER FUE|
00002FD0: 52 20 B6 50 45 49 43 48 45 52 4E 00 FE 37 6E 08 |R .PEICHERN..7n.|
00002FE0: 42 4E 45 20 44 45 43 4F 35 20 20 20 3B 4E 4F 43 |BNE DECO5 ;NOC|
00002FF0: 48 20 4E 49 43 48 54 20 46 45 52 54 49 47 00 0A |H NICHT FERTIG..|
00003000: 38 70 08 44 45 43 20 24 36 41 00 2F 38 72 08 42 |8p.DEC $6A./8r.B|
00003010: 45 51 20 44 45 43 4F 33 20 20 20 3B 42 59 54 45 |EQ DECO3 ;BYTE|
00003020: 20 49 53 54 20 50 52 55 45 46 53 55 4D 4D 45 00 | IST PRUEFSUMME.|
00003030: 41 38 74 08 44 45 43 4F 35 20 4C 44 58 20 24 36 |A8t.DECO5 LDX $6|
00003040: 46 00 54 38 76 08 43 31 20 53 54 41 20 24 46 46 |F.T8v.C1 STA $FF|
00003050: 30 30 2C 58 00 73 38 78 08 4C 44 41 20 28 24 36 |00,X.s8x.LDA ($6|
00003060: 44 29 2C 59 20 20 20 20 3B 47 43 52 20 42 59 54 |D),Y ;GCR BYT|
00003070: 45 20 33 00 8C 38 7A 08 AF 20 23 24 30 46 20 20 |E 3..8z.. #$0F |
00003080: 20 20 20 20 20 3B 54 45 49 4C 20 31 00 98 38 7C | ;TEIL 1..8||
00003090: 08 53 54 41 20 24 36 43 00 A0 38 7E 08 49 4E 59 |.STA $6C..8~.INY|
000030A0: 00 B0 38 80 08 4C 44 41 20 28 24 36 44 29 2C 59 |..8..LDA ($6D),Y|
000030B0: 00 BC 38 82 08 53 54 41 20 24 36 42 00 C4 38 84 |..8..STA $6B..8.|
000030C0: 08 41 53 4C 00 D0 38 86 08 52 4F 4C 20 24 36 43 |.ASL..8..ROL $6C|
000030D0: 00 E9 38 88 08 AF 20 23 25 31 31 31 31 31 30 30 |..8... #%1111100|
000030E0: 30 20 3B 54 45 49 4C 20 32 00 F1 38 8A 08 54 41 |0 ;TEIL 2..8..TA|
000030F0: 58 00 00 39 8C 08 4C 44 41 20 47 43 52 34 2C 58 |X..9..LDA GCR4,X|
00003100: 00 0C 39 8E 08 4C 44 58 20 24 36 43 00 1A 39 90 |..9..LDX $6C..9.|
00003110: 08 B0 41 20 47 43 52 31 2C 58 00 26 39 92 08 4C |..A GCR1,X.&9..L|
00003120: 44 58 20 24 36 46 00 39 39 94 08 43 32 20 53 54 |DX $6F.99..C2 ST|
00003130: 41 20 24 46 46 30 31 2C 58 00 41 39 96 08 49 4E |A $FF01,X.A9..IN|
00003140: 59 00 60 39 98 08 4C 44 41 20 28 24 36 44 29 2C |Y.`9..LDA ($6D),|
00003150: 59 20 20 20 20 3B 47 43 52 20 42 59 54 45 20 34 |Y ;GCR BYTE 4|
00003160: 00 6B 39 9A 08 52 B0 20 24 36 42 00 72 39 9C 08 |.k9..R. $6B.r9..|
00003170: 52 B0 00 7D 39 9E 08 52 B0 20 24 36 42 00 84 39 |R..}9..R. $6B..9|
00003180: A0 08 52 B0 00 9D 39 A2 08 AF 20 23 25 31 31 31 |..R...9... #%111|
00003190: 31 31 30 30 30 20 3B 54 45 49 4C 20 31 00 A5 39 |11000 ;TEIL 1..9|
000031A0: A4 08 54 41 58 00 B5 39 A6 08 4C 44 41 20 28 24 |..TAX..9..LDA ($|
000031B0: 36 44 29 2C 59 00 CE 39 A8 08 AF 20 23 24 31 46 |6D),Y..9... #$1F|
000031C0: 20 20 20 20 20 20 20 3B 54 45 49 4C 20 32 00 D6 | ;TEIL 2..|
000031D0: 39 AA 08 49 4E 59 00 E2 39 AC 08 53 54 41 20 24 |9..INY..9..STA $|
000031E0: 36 42 00 F1 39 AE 08 4C 44 41 20 47 43 52 32 2C |6B..9..LDA GCR2,|
000031F0: 58 00 FD 39 B0 08 4C 44 58 20 24 36 42 00 0B 3A |X..9..LDX $6B..:|
00003200: B2 08 B0 41 20 47 43 52 33 2C 58 00 17 3A B4 08 |...A GCR3,X..:..|
00003210: 4C 44 58 20 24 36 46 00 2A 3A B6 08 43 33 20 53 |LDX $6F.*:..C3 S|
00003220: 54 41 20 24 46 46 30 32 2C 58 00 32 3A B8 08 54 |TA $FF02,X.2:..T|
00003230: 58 41 00 3A 3A BA 08 43 4C 43 00 47 3A BC 08 41 |XA.::..CLC.G:..A|
00003240: 44 43 20 23 24 30 33 00 53 3A BE 08 53 54 41 20 |DC #$03.S:..STA |
00003250: 24 36 46 00 76 3A C0 08 4A 4D 50 20 44 45 43 4F |$6F.v:..JMP DECO|
00003260: 30 20 20 20 20 3B 4E 41 45 43 48 53 54 45 20 34 |0 ;NAECHSTE 4|
00003270: 20 42 59 54 45 53 00 9B 3A C2 08 3B 23 23 23 20 | BYTES..:..;### |
00003280: 50 52 55 45 46 53 55 4D 4D 45 20 4B 91 54 52 4F |PRUEFSUMME K.TRO|
00003290: 4C 4C 49 45 52 45 4E 20 23 23 23 00 B5 3A C4 08 |LLIEREN ###..:..|
000032A0: 44 45 43 4F 33 20 4C 44 59 20 24 35 41 20 3B 95 |DECO3 LDY $5A ;.|
000032B0: 20 46 4C 41 47 00 CC 3A C6 08 42 4E 45 20 44 45 | FLAG..:..BNE DE|
000032C0: 43 4F 44 31 20 20 20 20 3B 31 B2 95 00 D9 3A C8 |COD1 ;1....:.|
000032D0: 08 4C 44 59 20 23 24 31 46 00 EB 3A CA 08 43 34 |.LDY #$1F..:..C4|
000032E0: 20 45 B0 20 24 46 46 30 30 2C 59 00 FD 3A CC 08 | E. $FF00,Y..:..|
000032F0: 43 35 20 45 B0 20 24 46 46 32 30 2C 59 00 0F 3B |C5 E. $FF20,Y..;|
00003300: CE 08 43 36 20 45 B0 20 24 46 46 34 30 2C 59 00 |..C6 E. $FF40,Y.|
00003310: 21 3B D0 08 43 37 20 45 B0 20 24 46 46 36 30 2C |!;..C7 E. $FF60,|
00003320: 59 00 33 3B D2 08 43 38 20 45 B0 20 24 46 46 38 |Y.3;..C8 E. $FF8|
00003330: 30 2C 59 00 45 3B D4 08 43 39 20 45 B0 20 24 46 |0,Y.E;..C9 E. $F|
00003340: 46 41 30 2C 59 00 57 3B D6 08 43 41 20 45 B0 20 |FA0,Y.W;..CA E. |
00003350: 24 46 46 43 30 2C 59 00 69 3B D8 08 43 42 20 45 |$FFC0,Y.i;..CB E|
00003360: B0 20 24 46 46 45 30 2C 59 00 71 3B DA 08 44 45 |. $FFE0,Y.q;..DE|
00003370: 59 00 90 3B DC 08 42 50 4C 20 43 34 20 20 20 20 |Y..;..BPL C4 |
00003380: 20 20 20 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 | ;PRUEFSUMME|
00003390: 00 B2 3B DE 08 53 54 41 20 24 36 43 20 20 20 20 |..;..STA $6C |
000033A0: 20 20 20 20 3B B3 AB 4D 55 53 53 20 30 20 53 45 | ;..MUSS 0 SE|
000033B0: 49 4E 00 C0 3B E0 08 4C 44 41 20 24 31 38 30 31 |IN..;..LDA $1801|
000033C0: 00 CB 3B E2 08 AF 20 23 24 43 30 00 E7 3B E4 08 |..;... #$C0..;..|
000033D0: 45 B0 20 24 31 38 30 30 20 20 20 20 20 20 3B 4B |E. $1800 ;K|
000033E0: 91 54 52 4F 4C 4C 45 00 0C 3C E6 08 45 B0 20 23 |.TROLLE..<..E. #|
000033F0: 24 39 35 20 20 20 20 20 20 20 3B 48 45 41 44 45 |$95 ;HEADE|
00003400: 52 4B 45 4E 4E 5A 45 49 43 48 45 4E 00 2E 3C E8 |RKENNZEICHEN..<.|
00003410: 08 53 54 41 20 24 36 37 20 20 20 20 20 20 20 20 |.STA $67 |
00003420: 3B B3 AB 4D 55 53 53 20 30 20 53 45 49 4E 00 42 |;..MUSS 0 SEIN.B|
00003430: 3C EA 08 44 45 43 4F 44 33 20 4C 44 41 20 23 24 |<..DECOD3 LDA #$|
00003440: 33 37 00 65 3C EC 08 53 54 41 20 24 30 31 20 20 |37.e<..STA $01 |
00003450: 20 20 20 20 20 20 3B 52 4F 4D 20 57 49 45 44 45 | ;ROM WIEDE|
00003460: 52 20 45 49 4E 00 6D 3C EE 08 52 54 53 00 87 3C |R EIN.m<..RTS..<|
00003470: F0 08 3B 23 23 23 20 95 20 53 55 42 52 4F 55 54 |..;### . SUBROUT|
00003480: 49 4E 45 20 23 23 23 00 99 3C F2 08 44 45 43 4F |INE ###..<..DECO|
00003490: 44 31 20 4C 44 59 20 23 30 00 BB 3C F4 08 43 43 |D1 LDY #0..<..CC|
000034A0: 20 4C 44 41 20 24 46 46 30 30 2C 59 20 3B 56 45 | LDA $FF00,Y ;VE|
000034B0: 52 47 4C 45 49 43 48 20 44 45 52 00 DF 3C F6 08 |RGLEICH DER..<..|
000034C0: 43 4D 50 20 24 31 38 30 30 2C 59 20 20 20 20 3B |CMP $1800,Y ;|
000034D0: 47 45 4C 45 53 45 4E 45 4E 20 42 59 54 45 53 00 |GELESENEN BYTES.|
000034E0: 00 3D F8 08 42 4E 45 20 44 45 43 4F 44 32 20 20 |.=..BNE DECOD2 |
000034F0: 20 20 20 3B 4D 49 54 20 44 45 4E 45 4E 20 49 4D | ;MIT DENEN IM|
00003500: 00 1D 3D FA 08 49 4E 59 20 20 20 20 20 20 20 20 |..=..INY |
00003510: 20 20 20 20 3B 53 50 45 49 43 48 45 52 00 28 3D | ;SPEICHER.(=|
00003520: FC 08 42 4E 45 20 43 43 00 35 3D FE 08 2E 42 59 |..BNE CC.5=...BY|
00003530: 54 20 24 32 43 00 47 3D 00 09 44 45 43 4F 44 32 |T $2C.G=..DECOD2|
00003540: 20 4C 44 59 20 23 31 00 6D 3D 02 09 53 54 59 20 | LDY #1.m=..STY |
00003550: 24 36 43 20 20 20 20 20 20 20 20 3B 46 45 48 4C |$6C ;FEHL|
00003560: 45 52 20 50 52 55 45 46 53 55 4D 4D 45 00 78 3D |ER PRUEFSUMME.x=|
00003570: 04 09 4C 44 59 20 23 30 00 9A 3D 06 09 53 54 59 |..LDY #0..=..STY|
00003580: 20 24 36 37 20 20 20 20 20 20 20 20 3B 48 45 41 | $67 ;HEA|
00003590: 44 45 52 42 59 54 45 20 4F 4B 00 A9 3D 08 09 4A |DERBYTE OK..=..J|
000035A0: 4D 50 20 44 45 43 4F 44 33 00 CE 3D 0A 09 3B 20 |MP DECOD3..=..; |
000035B0: 42 4C 4F 43 4B 20 5A 55 4D 20 53 43 48 52 45 49 |BLOCK ZUM SCHREI|
000035C0: 42 45 4E 20 56 B0 42 45 52 45 49 54 45 4E 00 E7 |BEN V.BEREITEN..|
000035D0: 3D 0C 09 3B 20 28 24 37 30 29 2C 59 20 AB B1 20 |=..; ($70),Y .. |
000035E0: 24 31 38 30 30 2C 59 00 F4 3D 0E 09 43 4F 44 45 |$1800,Y..=..CODE|
000035F0: 20 B2 20 AC 00 FC 3D 10 09 43 4C 43 00 08 3E 12 | . ...=..CLC..>.|
00003600: 09 4C 44 41 20 24 36 38 00 14 3E 14 09 41 44 43 |.LDA $68..>..ADC|
00003610: 20 24 36 31 00 37 3E 16 09 53 54 41 20 24 37 30 | $61.7>..STA $70|
00003620: 20 20 20 20 20 3B 41 44 52 45 53 53 45 20 45 52 | ;ADRESSE ER|
00003630: 4D 49 54 54 45 4C 4E 00 44 3E 18 09 4C 44 41 20 |MITTELN.D>..LDA |
00003640: 23 24 33 34 00 62 3E 1A 09 53 54 41 20 24 30 31 |#$34.b>..STA $01|
00003650: 20 20 20 20 20 3B 52 4F 4D 20 B6 43 48 41 4C 54 | ;ROM .CHALT|
00003660: 45 4E 00 6F 3E 1C 09 4C 44 41 20 23 24 30 30 00 |EN.o>..LDA #$00.|
00003670: 8D 3E 1E 09 53 54 41 20 24 36 46 20 20 20 20 20 |.>..STA $6F |
00003680: 3B 4C 4F AB 42 59 54 45 20 41 44 52 2E 00 93 3E |;LO.BYTE ADR...>|
00003690: 20 09 3B 00 A0 3E 22 09 4C 44 59 20 23 24 30 30 | .;..>".LDY #$00|
000036A0: 00 B0 3E 24 09 4C 44 41 20 28 24 36 46 29 2C 59 |..>$.LDA ($6F),Y|
000036B0: 00 D4 3E 26 09 53 54 41 20 24 31 38 30 30 20 20 |..>&.STA $1800 |
000036C0: 20 3B 31 2E 42 59 54 45 20 55 45 42 45 52 54 52 | ;1.BYTE UEBERTR|
000036D0: 41 47 45 4E 00 F0 3E 28 09 53 54 41 20 24 35 45 |AGEN..>(.STA $5E|
000036E0: 20 20 20 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 | ;PRUEFSUMME|
000036F0: 00 12 3F 2A 09 43 4D 50 20 23 24 34 42 20 20 20 |..?*.CMP #$4B |
00003700: 20 3B B2 24 34 42 20 28 4C 45 45 52 42 4C 4F 43 | ;.$4B (LEERBLOC|
00003710: 4B 29 00 20 3F 2C 09 42 45 51 20 43 4F 44 45 32 |K). ?,.BEQ CODE2|
00003720: 00 45 3F 2E 09 4C 44 41 20 23 31 20 20 20 20 20 |.E?..LDA #1 |
00003730: 20 3B 46 4C 41 47 20 20 4B 45 49 4E 20 4C 45 45 | ;FLAG KEIN LEE|
00003740: 52 42 4C 4B 2E 00 52 3F 30 09 2E 42 59 54 20 24 |RBLK..R?0..BYT $|
00003750: 32 43 00 63 3F 32 09 43 4F 44 45 32 20 4C 44 41 |2C.c?2.CODE2 LDA|
00003760: 20 23 30 00 83 3F 34 09 53 54 41 20 24 35 46 20 | #0..?4.STA $5F |
00003770: 20 20 20 20 3B 46 4C 41 47 20 4C 45 45 52 42 4C | ;FLAG LEERBL|
00003780: 4F 43 4B 00 8B 3F 36 09 49 4E 59 00 A1 3F 38 09 |OCK..?6.INY..?8.|
00003790: 43 4F 44 45 30 20 4C 44 41 20 28 24 36 46 29 2C |CODE0 LDA ($6F),|
000037A0: 59 00 C4 3F 3A 09 53 54 41 20 24 31 38 30 30 2C |Y..?:.STA $1800,|
000037B0: 59 20 20 3B 52 45 53 54 20 55 45 42 45 52 54 52 |Y ;REST UEBERTR|
000037C0: 41 47 45 4E 00 DB 3F 3C 09 43 4D 50 20 23 31 20 |AGEN..?<.CMP #1 |
000037D0: 20 20 20 20 20 20 3B B2 24 30 31 00 E9 3F 3E 09 | ;.$01..?>.|
000037E0: 42 45 51 20 43 4F 44 45 31 00 F4 3F 40 09 4C 44 |BEQ CODE1..?@.LD|
000037F0: 58 20 23 31 00 15 40 42 09 53 54 58 20 24 35 46 |X #1..@B.STX $5F|
00003800: 20 20 20 20 20 20 3B 4B 45 49 4E 20 4C 45 45 52 | ;KEIN LEER|
00003810: 42 4C 4F 43 4B 00 32 40 44 09 43 4F 44 45 31 20 |BLOCK.2@D.CODE1 |
00003820: 45 B0 20 24 35 45 20 3B 50 52 55 45 46 53 55 4D |E. $5E ;PRUEFSUM|
00003830: 4D 45 00 4E 40 46 09 53 54 41 20 24 35 45 20 20 |ME.N@F.STA $5E |
00003840: 20 20 20 20 20 3B 45 52 4E 45 55 45 52 4E 00 56 | ;ERNEUERN.V|
00003850: 40 48 09 49 4E 59 00 64 40 4A 09 42 4E 45 20 43 |@H.INY.d@J.BNE C|
00003860: 4F 44 45 30 00 71 40 4C 09 4C 44 41 20 23 24 33 |ODE0.q@L.LDA #$3|
00003870: 37 00 8C 40 4E 09 53 54 41 20 24 30 31 20 20 20 |7..@N.STA $01 |
00003880: 20 20 20 20 3B 52 4F 4D 20 45 49 4E 00 98 40 50 | ;ROM EIN..@P|
00003890: 09 4C 44 41 20 24 35 46 00 B9 40 52 09 43 4D 50 |.LDA $5F..@R.CMP|
000038A0: 20 23 31 20 20 20 20 20 20 20 20 3B 43 41 52 52 | #1 ;CARR|
000038B0: 59 AB 47 45 53 45 54 5A 54 00 DD 40 54 09 52 54 |Y.GESETZT..@T.RT|
000038C0: 53 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 49 |S ;BEI|
000038D0: 20 56 4F 4C 4C 45 4D 20 42 4C 4F 43 4B 00 F4 40 | VOLLEM BLOCK..@|
000038E0: 56 09 3B 20 23 23 23 20 4B 4F 50 49 45 52 45 4E |V.; ### KOPIEREN|
000038F0: 20 23 23 23 00 06 41 58 09 43 4F 50 59 20 4C 44 | ###..AX.COPY LD|
00003900: 41 20 23 22 31 22 00 21 41 5A 09 53 54 41 20 24 |A #"1".!AZ.STA $|
00003910: 35 37 20 20 20 20 20 20 20 20 3B 50 41 53 53 20 |57 ;PASS |
00003920: 31 00 3F 41 5C 09 43 4F 50 59 30 20 4A 53 52 20 |1.?A\.COPY0 JSR |
00003930: 55 48 52 30 20 3B 55 48 52 20 41 55 46 20 30 00 |UHR0 ;UHR AUF 0.|
00003940: 5F 41 5E 09 4A 53 52 20 55 48 52 41 20 20 20 20 |_A^.JSR UHRA |
00003950: 20 20 20 3B 55 4E 44 20 53 54 41 52 54 45 4E 00 | ;UND STARTEN.|
00003960: 7B 41 60 09 4A 53 52 20 53 43 52 9C 20 20 20 20 |{A`.JSR SCR. |
00003970: 20 3B 42 49 4C 44 20 4C 45 45 52 00 A1 41 62 09 | ;BILD LEER..Ab.|
00003980: 4A 53 52 20 54 52 41 4E 53 20 20 20 20 20 20 3B |JSR TRANS ;|
00003990: 46 4C 4F 50 50 59 50 52 47 20 53 54 41 52 54 45 |FLOPPYPRG STARTE|
000039A0: 4E 00 A7 41 64 09 3B 00 B3 41 66 09 4C 44 41 20 |N..Ad.;..Af.LDA |
000039B0: 23 31 38 00 D8 41 68 09 53 54 41 20 24 35 36 20 |#18..Ah.STA $56 |
000039C0: 20 20 20 20 20 20 20 3B 49 4E 49 54 49 41 4C 49 | ;INITIALI|
000039D0: 53 49 45 52 53 50 55 52 00 E4 41 6A 09 4C 44 41 |SIERSPUR..Aj.LDA|
000039E0: 20 23 30 20 00 FF 41 6C 09 53 54 41 20 24 35 41 | #0 ..Al.STA $5A|
000039F0: 20 20 20 20 20 20 20 20 3B 95 AB 46 4C 41 47 00 | ;..FLAG.|
00003A00: 05 42 6E 09 3B 00 20 42 70 09 4C 44 41 20 23 20 |.Bn.;. Bp.LDA # |
00003A10: 31 20 20 20 20 20 20 20 20 3B 31 2E 53 50 55 52 |1 ;1.SPUR|
00003A20: 00 2C 42 72 09 53 54 41 20 24 35 38 00 4D 42 74 |.,Br.STA $58.MBt|
00003A30: 09 4C 44 41 20 23 31 32 20 20 20 20 20 20 20 20 |.LDA #12 |
00003A40: 3B 88 5A 54 45 20 53 50 55 52 20 AA 31 00 59 42 |;.ZTE SPUR .1.YB|
00003A50: 76 09 53 54 41 20 24 35 39 00 80 42 78 09 4A 53 |v.STA $59..Bx.JS|
00003A60: 52 20 43 4F 50 49 20 20 20 20 20 20 20 3B 53 50 |R COPI ;SP|
00003A70: 55 52 42 45 52 45 49 43 48 20 4B 4F 50 49 45 52 |URBEREICH KOPIER|
00003A80: 00 8C 42 7A 09 4C 44 41 20 23 31 32 00 98 42 7C |..Bz.LDA #12..B||
00003A90: 09 53 54 41 20 24 35 38 00 A4 42 7E 09 4C 44 41 |.STA $58..B~.LDA|
00003AA0: 20 23 32 33 00 B0 42 80 09 53 54 41 20 24 35 39 | #23..B..STA $59|
00003AB0: 00 D0 42 82 09 49 4E 43 20 24 35 37 20 20 20 20 |..B..INC $57 |
00003AC0: 20 20 20 20 3B 44 55 52 43 48 47 41 4E 47 20 32 | ;DURCHGANG 2|
00003AD0: 00 DD 42 84 09 4A 53 52 20 43 4F 50 49 00 E9 42 |..B..JSR COPI..B|
00003AE0: 86 09 4C 44 41 20 23 32 33 00 F5 42 88 09 53 54 |..LDA #23..B..ST|
00003AF0: 41 20 24 35 38 00 01 43 8A 09 4C 44 41 20 23 33 |A $58..C..LDA #3|
00003B00: 36 00 0D 43 8C 09 53 54 41 20 24 35 39 00 2D 43 |6..C..STA $59.-C|
00003B10: 8E 09 49 4E 43 20 24 35 37 20 20 20 20 20 20 20 |..INC $57 |
00003B20: 20 3B 44 55 52 43 48 47 41 4E 47 20 33 00 40 43 | ;DURCHGANG 3.@C|
00003B30: 90 09 43 4F 50 59 31 20 4A 53 52 20 43 4F 50 49 |..COPY1 JSR COPI|
00003B40: 00 57 43 92 09 4C 44 41 20 23 22 30 22 20 20 20 |.WC..LDA #"0" |
00003B50: 20 20 20 20 3B 80 45 00 63 43 94 09 53 54 41 20 | ;.E.cC..STA |
00003B60: 24 35 37 00 85 43 96 09 4A 53 52 20 BE 45 54 20 |$57..C..JSR .ET |
00003B70: 20 20 20 20 20 3B 4D 45 4C 44 55 4E 47 53 52 4F | ;MELDUNGSRO|
00003B80: 55 54 49 4E 45 00 96 43 98 09 43 4F 50 59 32 20 |UTINE..C..COPY2 |
00003B90: 4C 44 41 20 23 36 00 B7 43 9A 09 4A 53 52 20 4D |LDA #6..C..JSR M|
00003BA0: 41 53 54 45 52 20 20 20 20 20 3B 46 4C 4F 50 50 |ASTER ;FLOPP|
00003BB0: 59 50 52 47 20 80 45 00 D9 43 9C 09 4A 53 52 20 |YPRG .E..C..JSR |
00003BC0: 48 45 4C 4C 20 20 20 20 20 20 20 3B 42 49 4C 44 |HELL ;BILD|
00003BD0: 53 43 48 49 52 4D 20 41 4E 00 E1 43 9E 09 43 4C |SCHIRM AN..C..CL|
00003BE0: 49 00 08 44 A0 09 4A 53 52 20 24 42 44 44 44 20 |I..D..JSR $BDDD |
00003BF0: 20 20 20 20 20 3B 46 41 43 20 49 4E 49 54 49 41 | ;FAC INITIA|
00003C00: 4C 49 53 49 45 52 45 4E 00 2B 44 A2 09 4A 4D 50 |LISIEREN.+D..JMP|
00003C10: 20 4D 45 4E 42 20 20 20 20 20 20 20 3B 5A 55 4D | MENB ;ZUM|
00003C20: 20 48 41 55 50 54 4D 45 4E 55 45 00 3B 44 A4 09 | HAUPTMENUE.;D..|
00003C30: 3B 20 23 23 23 20 95 20 23 23 23 00 51 44 A6 09 |; ### . ###.QD..|
00003C40: 95 20 4C 44 41 20 23 22 34 22 3B 50 41 53 53 20 |. LDA #"4";PASS |
00003C50: 34 00 5D 44 A8 09 53 54 41 20 24 35 37 00 7E 44 |4.]D..STA $57.~D|
00003C60: AA 09 4A 4D 50 20 43 4F 50 59 30 20 20 20 20 20 |..JMP COPY0 |
00003C70: 20 3B 5A 55 4D 20 4B 4F 50 49 45 52 45 4E 00 98 | ;ZUM KOPIEREN..|
00003C80: 44 AC 09 3B 20 23 23 23 20 44 49 53 4B 20 AB 20 |D..; ### DISK . |
00003C90: 54 45 53 54 20 23 23 23 00 AA 44 AE 09 54 45 53 |TEST ###..D..TES|
00003CA0: 54 20 4A 53 52 20 55 48 52 30 00 B7 44 B0 09 4A |T JSR UHR0..D..J|
00003CB0: 53 52 20 55 48 52 41 00 C4 44 B2 09 4A 53 52 20 |SR UHRA..D..JSR |
00003CC0: 53 43 52 9C 00 EB 44 B4 09 4A 53 52 20 54 52 41 |SCR...D..JSR TRA|
00003CD0: 4E 53 20 20 20 3B 46 4C 4F 50 50 59 52 4F 55 54 |NS ;FLOPPYROUT|
00003CE0: 49 4E 45 20 53 54 41 52 54 45 4E 00 03 45 B6 09 |INE STARTEN..E..|
00003CF0: 4C 44 41 20 23 32 30 20 20 20 20 20 3B 50 41 53 |LDA #20 ;PAS|
00003D00: 53 20 54 00 0F 45 B8 09 53 54 41 20 24 35 37 00 |S T..E..STA $57.|
00003D10: 31 45 BA 09 4C 44 41 20 23 31 38 20 20 20 20 20 |1E..LDA #18 |
00003D20: 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 53 50 55 |;INITIALISIERSPU|
00003D30: 52 00 3D 45 BC 09 53 54 41 20 24 35 36 00 54 45 |R.=E..STA $56.TE|
00003D40: BE 09 4C 44 41 20 23 30 20 20 20 20 20 20 3B 95 |..LDA #0 ;.|
00003D50: 46 4C 41 47 00 60 45 C0 09 53 54 41 20 24 35 41 |FLAG.`E..STA $5A|
00003D60: 00 7D 45 C2 09 4C 44 41 20 23 31 20 20 20 20 20 |.}E..LDA #1 |
00003D70: 20 3B 31 2E 54 45 49 4C 20 31 AB 31 38 00 89 45 | ;1.TEIL 1.18..E|
00003D80: C4 09 53 54 41 20 24 35 38 00 95 45 C6 09 4C 44 |..STA $58..E..LD|
00003D90: 41 20 23 31 39 00 A1 45 C8 09 53 54 41 20 24 35 |A #19..E..STA $5|
00003DA0: 39 00 C2 45 CA 09 4A 53 52 20 43 4F 50 49 20 20 |9..E..JSR COPI |
00003DB0: 20 20 3B 53 50 55 52 45 4E 20 45 49 4E 4C 45 53 | ;SPUREN EINLES|
00003DC0: 45 4E 00 E0 45 CC 09 4C 44 41 20 23 31 39 20 20 |EN..E..LDA #19 |
00003DD0: 20 20 20 3B 32 2E 54 45 49 4C 20 31 39 AB 33 35 | ;2.TEIL 19.35|
00003DE0: 00 EC 45 CE 09 53 54 41 20 24 35 38 00 F8 45 D0 |..E..STA $58..E.|
00003DF0: 09 4C 44 41 20 23 33 36 00 04 46 D2 09 53 54 41 |.LDA #36..F..STA|
00003E00: 20 24 35 39 00 18 46 D4 09 4A 4D 50 20 43 4F 50 | $59..F..JMP COP|
00003E10: 59 31 20 20 20 3B 80 45 00 25 46 D6 09 2E 42 59 |Y1 ;.E.%F...BY|
00003E20: 54 20 24 46 46 00 45 46 D8 09 3B 20 23 23 23 20 |T $FF.EF..; ### |
00003E30: 4C 45 53 45 4E 20 53 50 55 52 42 45 52 45 49 43 |LESEN SPURBEREIC|
00003E40: 48 20 23 23 23 00 5F 46 DA 09 3B 20 24 35 38 20 |H ###._F..; $58 |
00003E50: 42 49 53 20 41 55 53 53 43 48 4C 2E 24 35 39 00 |BIS AUSSCHL.$59.|
00003E60: 6C 46 DC 09 43 4F 50 49 20 B2 20 AC 00 77 46 DE |lF..COPI . ..wF.|
00003E70: 09 4C 44 41 20 23 31 00 9B 46 E0 09 4A 53 52 20 |.LDA #1..F..JSR |
00003E80: BE 45 54 20 20 20 20 20 20 3B 27 46 52 4F 4D 27 |.ET ;'FROM'|
00003E90: 20 41 4B 54 49 56 49 45 52 45 4E 00 AD 46 E2 09 | AKTIVIEREN..F..|
00003EA0: 4C 44 58 20 23 B3 54 41 42 45 4C 4C 45 00 BF 46 |LDX #.TABELLE..F|
00003EB0: E4 09 4C 44 59 20 23 B1 54 41 42 45 4C 4C 45 00 |..LDY #.TABELLE.|
00003EC0: DA 46 E6 09 4A 53 52 20 99 20 20 20 20 20 20 3B |.F..JSR . ;|
00003ED0: 54 41 42 45 4C C3 4B 4F 50 46 00 E6 46 E8 09 4C |TABEL.KOPF..F..L|
00003EE0: 44 41 20 24 35 37 00 09 47 EA 09 43 4D 50 20 23 |DA $57..G..CMP #|
00003EF0: 22 32 22 20 20 20 20 20 20 20 3B 42 45 49 4D 20 |"2" ;BEIM |
00003F00: 31 2E 20 55 4E 44 20 34 2E 00 2C 47 EC 09 42 43 |1. UND 4..,G..BC|
00003F10: 43 20 43 4F 49 4E 49 54 20 20 20 20 20 3B 49 4E |C COINIT ;IN|
00003F20: 49 54 49 41 4C 49 53 49 45 52 45 4E 00 39 47 EE |ITIALISIEREN.9G.|
00003F30: 09 43 4D 50 20 23 22 34 22 00 47 47 F0 09 42 43 |.CMP #"4".GG..BC|
00003F40: 43 20 43 91 4F 49 4E 00 6A 47 F2 09 43 4F 49 4E |C C.OIN.jG..COIN|
00003F50: 49 54 20 B2 20 AC 20 20 20 20 20 3B 49 4E 49 54 |IT . . ;INIT|
00003F60: 49 41 4C 49 53 49 45 52 45 4E 00 8F 47 F4 09 4C |IALISIEREN..G..L|
00003F70: 44 41 20 24 35 36 20 20 20 20 20 20 20 20 3B 49 |DA $56 ;I|
00003F80: 4E 49 54 49 41 4C 49 53 49 45 52 53 50 55 52 00 |NITIALISIERSPUR.|
00003F90: 9B 47 F6 09 53 54 41 20 24 46 43 00 BF 47 F8 09 |.G..STA $FC..G..|
00003FA0: 4C 44 41 20 23 30 30 20 20 20 20 20 20 20 20 3B |LDA #00 ;|
00003FB0: 4B 4F 50 46 56 45 52 53 54 45 4C 4C 55 4E 47 00 |KOPFVERSTELLUNG.|
00003FC0: E1 47 FA 09 53 54 41 20 24 46 46 20 20 20 20 20 |.G..STA $FF |
00003FD0: 20 20 20 3B 31 B2 AA 2E 35 20 24 46 46 B2 AB 2E | ;1...5 $FF...|
00003FE0: 35 00 EC 47 FC 09 4C 44 41 20 23 35 00 13 48 FE |5..G..LDA #5..H.|
00003FF0: 09 4A 53 52 20 4D 41 53 54 45 52 20 20 20 20 20 |.JSR MASTER |
00004000: 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 42 45 46 |;INITIALISIERBEF|
00004010: 45 48 4C 00 20 48 00 0A 4C 44 41 20 23 24 30 30 |EHL. H..LDA #$00|
00004020: 00 30 48 02 0A 53 54 41 20 43 49 41 44 52 AA 32 |.0H..STA CIADR.2|
00004030: 00 3D 48 04 0A 4C 44 59 20 23 24 46 41 00 5B 48 |.=H..LDY #$FA.[H|
00004040: 06 0A 4A 53 52 20 43 4F 49 4E 20 20 20 20 3B 45 |..JSR COIN ;E|
00004050: 52 47 45 42 4E 49 53 20 48 4F C3 00 67 48 08 0A |RGEBNIS HO..gH..|
00004060: 4C 44 41 20 24 46 41 00 75 48 0A 0A 42 45 51 20 |LDA $FA.uH..BEQ |
00004070: 43 91 4F 49 4E 00 9C 48 0C 0A 4A 4D 50 20 43 4F |C.OIN..H..JMP CO|
00004080: 50 59 32 20 20 20 3B 4E 49 43 48 54 20 49 4E 49 |PY2 ;NICHT INI|
00004090: 54 49 41 4C 49 53 49 45 52 42 41 52 00 AA 48 0E |TIALISIERBAR..H.|
000040A0: 0A 43 91 4F 49 4E 20 B2 20 AC 00 CC 48 10 0A 4C |.C.OIN . ...H..L|
000040B0: 44 41 20 23 34 20 20 20 20 20 20 20 3B 42 4C 4F |DA #4 ;BLO|
000040C0: 43 4B 4C 45 53 45 B6 C0 44 20 B2 34 00 E4 48 12 |CKLESE..D .4..H.|
000040D0: 0A 4C 44 59 20 24 35 41 20 20 20 20 20 20 3B 95 |.LDY $5A ;.|
000040E0: 46 4C 41 47 00 EF 48 14 0A 42 4E 45 20 4E 36 00 |FLAG..H..BNE N6.|
000040F0: FC 48 16 0A 2E 42 59 54 20 24 32 43 00 1D 49 18 |.H...BYT $2C..I.|
00004100: 0A 4E 36 20 4C 44 41 20 23 35 20 20 20 20 3B 42 |.N6 LDA #5 ;B|
00004110: 45 49 20 95 20 20 20 20 20 20 20 B2 35 00 3A 49 |EI . .5.:I|
00004120: 1A 0A 53 54 41 20 24 35 34 20 20 20 20 20 20 3B |..STA $54 ;|
00004130: B6 C0 44 53 41 4E 47 41 42 45 00 5F 49 1C 0A 4C |..DSANGABE._I..L|
00004140: 44 41 20 23 24 31 39 20 20 20 20 20 3B 41 42 4C |DA #$19 ;ABL|
00004150: 41 47 45 20 49 4D 20 53 50 45 49 43 48 45 52 00 |AGE IM SPEICHER.|
00004160: 83 49 1E 0A 53 54 41 20 24 36 38 20 20 20 20 20 |.I..STA $68 |
00004170: 20 3B 42 45 47 49 4E 4E 54 20 42 45 49 20 24 31 | ;BEGINNT BEI $1|
00004180: 39 30 30 00 92 49 20 0A 43 4F 50 4E 45 58 20 B2 |900..I .COPNEX .|
00004190: 20 AC 00 B2 49 22 0A 4C 44 41 20 24 36 30 20 20 | ...I".LDA $60 |
000041A0: 20 20 20 20 3B 41 4B 54 55 45 4C 4C 45 20 53 50 | ;AKTUELLE SP|
000041B0: 55 52 00 D6 49 24 0A 4A 53 52 20 54 52 53 45 43 |UR..I$.JSR TRSEC|
000041C0: 20 20 20 20 3B 53 45 4B A4 52 45 4E 20 42 45 53 | ;SEK.REN BES|
000041D0: 54 49 4D 4D 45 4E 00 F6 49 26 0A 53 54 41 20 24 |TIMMEN..I&.STA $|
000041E0: 36 32 20 20 20 20 20 20 3B 53 45 4B A4 52 45 4E |62 ;SEK.REN|
000041F0: AD 54 52 41 43 4B 00 FE 49 28 0A 54 58 41 00 1C |.TRACK..I(.TXA..|
00004200: 4A 2A 0A 53 54 41 20 24 46 45 20 20 20 20 20 20 |J*.STA $FE |
00004210: 3B 53 50 55 52 42 45 52 45 49 43 48 00 3C 4A 2C |;SPURBEREICH.<J,|
00004220: 0A 4A 53 52 20 53 45 43 4D 41 50 20 20 20 3B 42 |.JSR SECMAP ;B|
00004230: 45 4C 45 47 55 4E 47 53 50 4C 41 4E 00 5E 4A 2E |ELEGUNGSPLAN.^J.|
00004240: 0A 4C 44 41 20 23 30 20 20 20 20 20 20 20 3B 45 |.LDA #0 ;E|
00004250: 52 53 54 45 52 20 20 20 20 42 4C 4F 43 4B 00 80 |RSTER BLOCK..|
00004260: 4A 30 0A 53 54 41 20 24 36 31 20 20 20 20 20 20 |J0.STA $61 |
00004270: 3B 41 4B 54 55 45 4C 4C 45 52 20 42 4C 4F 43 4B |;AKTUELLER BLOCK|
00004280: 00 A0 4A 32 0A 53 54 41 20 24 35 30 20 20 20 20 |..J2.STA $50 |
00004290: 20 20 3B 88 5A 54 45 52 20 20 20 42 4C 4F 43 4B | ;.ZTER BLOCK|
000042A0: 00 C4 4A 34 0A 4C 44 41 20 23 30 31 20 20 20 20 |..J4.LDA #01 |
000042B0: 20 3B 46 4C 41 47 20 20 45 52 53 54 45 52 20 42 | ;FLAG ERSTER B|
000042C0: 4C 4F 43 4B 00 E4 4A 36 0A 53 54 41 20 24 36 33 |LOCK..J6.STA $63|
000042D0: 20 20 20 20 20 3B 49 4E 20 44 49 45 53 45 52 20 | ;IN DIESER |
000042E0: 53 50 55 52 00 F0 4A 38 0A 4C 44 41 20 24 36 30 |SPUR..J8.LDA $60|
000042F0: 00 08 4B 3A 0A 53 54 41 20 24 46 42 20 20 20 20 |..K:.STA $FB |
00004300: 20 20 3B 54 52 41 43 4B 00 14 4B 3C 0A 4C 44 41 | ;TRACK..K<.LDA|
00004310: 20 24 36 32 00 2E 4B 3E 0A 53 54 41 20 24 46 44 | $62..K>.STA $FD|
00004320: 20 20 20 20 20 20 3B 4D 41 58 49 4D 55 4D 00 3A | ;MAXIMUM.:|
00004330: 4B 40 0A 4C 44 41 20 23 31 30 00 61 4B 42 0A 53 |K@.LDA #10.aKB.S|
00004340: 54 41 20 24 35 33 20 20 20 20 20 20 3B 53 50 55 |TA $53 ;SPU|
00004350: 52 56 45 52 53 54 45 4C 4C 56 45 52 53 55 43 48 |RVERSTELLVERSUCH|
00004360: 45 00 73 4B 44 0A 43 4F 50 4C 30 20 4C 44 41 20 |E.sKD.COPL0 LDA |
00004370: 23 31 30 00 9A 4B 46 0A 53 54 41 20 24 35 32 20 |#10..KF.STA $52 |
00004380: 20 20 20 20 20 3B 4C 45 53 45 56 45 52 53 55 43 | ;LESEVERSUC|
00004390: 48 45 20 49 4E 20 53 50 55 52 00 A6 4B 48 0A 4C |HE IN SPUR..KH.L|
000043A0: 44 59 20 24 35 33 00 C4 4B 4A 0A 4C 44 41 20 B9 |DY $53..KJ.LDA .|
000043B0: 49 54 2C 59 20 20 3B 56 45 52 53 54 45 4C 4C 46 |IT,Y ;VERSTELLF|
000043C0: 41 4B A4 52 00 D3 4B 4C 0A 42 45 51 20 43 4F 50 |AK.R..KL.BEQ COP|
000043D0: 42 4C 4B 00 F5 4B 4E 0A 4C 44 41 20 23 32 20 20 |BLK..KN.LDA #2 |
000043E0: 20 20 20 20 20 3B 57 45 4E 4E 20 4E 45 42 45 4E | ;WENN NEBEN|
000043F0: 20 53 50 55 52 00 1C 4C 50 0A 53 54 41 20 24 35 | SPUR..LP.STA $5|
00004400: 32 20 20 20 20 20 20 3B 44 41 4E 4E 20 4E 55 52 |2 ;DANN NUR|
00004410: 20 32 20 4C 45 53 45 56 45 52 53 2E 00 22 4C 52 | 2 LESEVERS.."LR|
00004420: 0A 3B 00 44 4C 54 0A 43 4F 50 42 4C 4B 20 B2 20 |.;.DLT.COPBLK . |
00004430: AC 20 20 20 3B 4E 41 45 43 48 53 54 45 52 20 42 |. ;NAECHSTER B|
00004440: 4C 4F 43 4B 00 4A 4C 56 0A 3B 00 56 4C 58 0A 4C |LOCK.JLV.;.VLX.L|
00004450: 44 59 20 24 35 33 00 64 4C 5A 0A 4C 44 41 20 B9 |DY $53.dLZ.LDA .|
00004460: 49 54 2C 59 00 84 4C 5C 0A 53 54 41 20 24 46 46 |IT,Y..L\.STA $FF|
00004470: 20 20 20 20 20 20 3B 56 45 52 53 54 45 4C 4C 46 | ;VERSTELLF|
00004480: 41 4B A4 52 00 90 4C 5E 0A 4C 44 41 20 24 36 31 |AK.R..L^.LDA $61|
00004490: 00 A8 4C 60 0A 53 54 41 20 24 46 43 20 20 20 20 |..L`.STA $FC |
000044A0: 20 20 3B 53 45 4B A4 52 00 AE 4C 62 0A 3B 00 B9 | ;SEK.R..Lb.;..|
000044B0: 4C 64 0A 4C 44 41 20 23 31 00 D7 4C 66 0A 4A 53 |Ld.LDA #1..Lf.JS|
000044C0: 52 20 4D 41 53 54 45 52 20 20 20 3B 42 4C 4F 43 |R MASTER ;BLOC|
000044D0: 4B 20 4C 45 53 45 4E 00 DD 4C 68 0A 3B 00 EA 4C |K LESEN..Lh.;..L|
000044E0: 6A 0A 4C 44 41 20 24 33 42 41 00 07 4D 6C 0A 53 |j.LDA $3BA..Ml.S|
000044F0: 54 41 20 24 35 31 20 20 20 20 20 20 3B 46 45 48 |TA $51 ;FEH|
00004500: 4C 45 52 46 4C 41 47 00 2E 4D 6E 0A 4A 53 52 20 |LERFLAG..Mn.JSR |
00004510: 44 45 43 4F 44 45 20 20 20 3B 41 4C 54 45 4E 20 |DECODE ;ALTEN |
00004520: 45 4E 54 53 43 48 4C 55 45 53 53 45 4C 4E 00 34 |ENTSCHLUESSELN.4|
00004530: 4D 70 0A 3B 00 41 4D 72 0A 4C 44 41 20 23 24 30 |Mp.;.AMr.LDA #$0|
00004540: 33 00 51 4D 74 0A 53 54 41 20 43 49 41 44 52 AA |3.QMt.STA CIADR.|
00004550: 32 00 5E 4D 76 0A 4C 44 59 20 23 24 42 41 00 7F |2.^Mv.LDY #$BA..|
00004560: 4D 78 0A 4A 53 52 20 43 4F 49 4E 20 20 20 20 20 |Mx.JSR COIN |
00004570: 3B 4E 45 55 45 4E 20 45 49 4E 4C 45 53 45 4E 00 |;NEUEN EINLESEN.|
00004580: 8C 4D 7A 0A 4C 44 41 20 23 24 31 38 00 9C 4D 7C |.Mz.LDA #$18..M||
00004590: 0A 53 54 41 20 43 49 41 44 52 AA 32 00 A9 4D 7E |.STA CIADR.2..M~|
000045A0: 0A 4C 44 59 20 23 24 30 30 00 C1 4D 80 0A 4A 53 |.LDY #$00..M..JS|
000045B0: 52 20 43 4F 49 4E 20 20 20 20 20 3B 54 45 49 4C |R COIN ;TEIL|
000045C0: 32 00 C7 4D 82 0A 3B 00 EC 4D 84 0A 44 45 43 20 |2..M..;..M..DEC |
000045D0: 24 36 33 20 20 20 20 20 20 3B 4E 4F 43 48 20 4B |$63 ;NOCH K|
000045E0: 45 49 4E 20 42 4C 4F 43 4B 20 44 41 00 FA 4D 86 |EIN BLOCK DA..M.|
000045F0: 0A 42 45 51 20 43 4F 50 49 38 00 1D 4E 88 0A 4C |.BEQ COPI8..N..L|
00004600: 44 41 20 24 35 31 20 20 20 20 20 20 3B 46 45 48 |DA $51 ;FEH|
00004610: 4C 45 52 20 56 91 20 46 4C 4F 50 50 59 00 2B 4E |LER V. FLOPPY.+N|
00004620: 8A 0A 42 4E 45 20 43 4F 50 49 30 00 51 4E 8C 0A |..BNE COPI0.QN..|
00004630: 4C 44 41 20 24 36 37 20 20 20 20 20 20 3B 46 45 |LDA $67 ;FE|
00004640: 48 4C 45 52 20 48 45 41 44 45 52 4B 45 4E 4E 5A |HLER HEADERKENNZ|
00004650: 2E 00 5F 4E 8E 0A 42 4E 45 20 43 4F 50 49 41 00 |.._N..BNE COPIA.|
00004660: 81 4E 90 0A 4C 44 41 20 24 36 43 20 20 20 20 20 |.N..LDA $6C |
00004670: 20 3B 46 45 48 4C 45 52 20 43 48 45 43 4B 53 55 | ;FEHLER CHECKSU|
00004680: 4D 00 8F 4E 92 0A 42 4E 45 20 43 4F 50 49 39 00 |M..N..BNE COPI9.|
00004690: B6 4E 94 0A 43 4F 50 49 38 20 4A 53 52 20 53 55 |.N..COPI8 JSR SU|
000046A0: 43 48 20 3B 4E 41 45 43 48 53 54 45 4E 20 42 4C |CH ;NAECHSTEN BL|
000046B0: 4B 20 53 55 43 48 00 DC 4E 96 0A 42 43 43 20 43 |K SUCH..N..BCC C|
000046C0: 4F 50 42 4C 4B 20 20 20 20 20 3B 53 43 48 91 20 |OPBLK ;SCH. |
000046D0: 41 4C 4C 45 20 47 45 4C 45 53 45 4E 00 FB 4E 98 |ALLE GELESEN..N.|
000046E0: 0A 4A 53 52 20 44 45 43 4F 44 45 20 20 20 20 3B |.JSR DECODE ;|
000046F0: 88 5A 54 45 4E 20 42 4C 4F 43 4B 00 1D 4F 9A 0A |.ZTEN BLOCK..O..|
00004700: 4C 44 41 20 24 35 30 20 20 20 20 20 20 20 3B 45 |LDA $50 ;E|
00004710: 4E 54 53 43 48 4C 55 45 53 53 45 4C 4E 00 42 4F |NTSCHLUESSELN.BO|
00004720: 9C 0A 53 54 41 20 24 36 31 20 20 20 20 20 20 3B |..STA $61 ;|
00004730: 57 49 52 44 20 5A 55 4D 20 4E 45 55 45 4E 20 42 |WIRD ZUM NEUEN B|
00004740: 4C 4B 00 63 4F 9E 0A 4C 44 41 20 24 33 42 41 20 |LK.cO..LDA $3BA |
00004750: 20 20 20 20 20 3B 46 4C 4F 50 50 59 20 46 45 48 | ;FLOPPY FEH|
00004760: 4C 45 52 00 71 4F A0 0A 42 4E 45 20 43 4F 50 49 |LER.qO..BNE COPI|
00004770: 30 00 98 4F A2 0A 4C 44 41 20 24 36 37 20 20 20 |0..O..LDA $67 |
00004780: 20 20 20 20 3B 48 45 41 44 45 52 20 4B 45 4E 4E | ;HEADER KENN|
00004790: 5A 2E 46 45 48 4C 45 52 00 A6 4F A4 0A 42 4E 45 |Z.FEHLER..O..BNE|
000047A0: 20 43 4F 50 49 41 00 CB 4F A6 0A 4C 44 41 20 24 | COPIA..O..LDA $|
000047B0: 36 43 20 20 20 20 20 20 20 3B 50 52 55 45 46 53 |6C ;PRUEFS|
000047C0: 55 4D 4D 45 4E 46 45 48 4C 45 52 00 D9 4F A8 0A |UMMENFEHLER..O..|
000047D0: 42 4E 45 20 43 4F 50 49 39 00 FA 4F AA 0A 4A 4D |BNE COPI9..O..JM|
000047E0: 50 20 43 4F 50 49 31 20 20 20 20 20 3B 4E 41 45 |P COPI1 ;NAE|
000047F0: 43 48 53 54 45 20 53 50 55 52 00 0F 50 AC 0A 3B |CHSTE SPUR..P..;|
00004800: 20 46 45 48 4C 45 52 42 45 48 AF 4C 55 4E 47 00 | FEHLERBEH.LUNG.|
00004810: 2F 50 AE 0A 43 4F 50 49 41 20 4C 44 41 20 23 24 |/P..COPIA LDA #$|
00004820: 30 34 20 3B 32 32 20 4E 4F 20 42 4C 4F 43 4B 00 |04 ;22 NO BLOCK.|
00004830: 3C 50 B0 0A 2E 42 59 54 20 24 32 43 00 5F 50 B2 |<P...BYT $2C._P.|
00004840: 0A 43 4F 50 49 39 20 4C 44 41 20 23 24 30 35 20 |.COPI9 LDA #$05 |
00004850: 3B 32 33 20 43 48 4B 53 4D 20 42 4C 4F 43 4B 00 |;23 CHKSM BLOCK.|
00004860: 7E 50 B4 0A 43 4F 50 49 30 20 4C 44 59 20 24 35 |~P..COPI0 LDY $5|
00004870: 30 20 20 3B 53 91 53 54 20 32 30 AD 32 31 00 9D |0 ;S.ST 20.21..|
00004880: 50 B6 0A 53 54 41 20 24 33 33 43 2C 59 20 20 20 |P..STA $33C,Y |
00004890: 20 20 3B 49 4E 20 54 41 42 45 4C 4C 45 00 AF 50 | ;IN TABELLE..P|
000048A0: B8 0A 43 4F 50 49 33 20 44 45 43 20 24 35 32 00 |..COPI3 DEC $52.|
000048B0: D5 50 BA 0A 42 4E 45 20 43 4F 50 49 38 20 20 20 |.P..BNE COPI8 |
000048C0: 20 20 20 3B 4E 41 45 43 48 53 54 45 52 20 56 45 | ;NAECHSTER VE|
000048D0: 52 53 55 43 48 00 E7 50 BC 0A 43 4F 50 49 32 20 |RSUCH..P..COPI2 |
000048E0: 44 45 43 20 24 35 33 00 0E 51 BE 0A 42 45 51 20 |DEC $53..Q..BEQ |
000048F0: 43 4F 50 49 31 20 20 20 20 20 20 3B 4E 41 45 43 |COPI1 ;NAEC|
00004900: 48 53 54 45 20 56 45 52 53 54 45 4C 4C 47 00 1A |HSTE VERSTELLG..|
00004910: 51 C0 0A 4C 44 41 20 24 35 30 00 26 51 C2 0A 53 |Q..LDA $50.&Q..S|
00004920: 54 41 20 24 36 31 00 4A 51 C4 0A 4A 4D 50 20 43 |TA $61.JQ..JMP C|
00004930: 4F 50 4C 30 20 20 20 20 20 20 3B 4E 41 45 43 48 |OPL0 ;NAECH|
00004940: 53 54 45 4E 20 4C 45 53 45 4E 00 63 51 C6 0A 3B |STEN LESEN.cQ..;|
00004950: 53 50 55 52 20 46 45 52 54 49 47 20 47 45 4C 45 |SPUR FERTIG GELE|
00004960: 53 45 4E 00 76 51 C8 0A 43 4F 50 49 31 20 4A 53 |SEN.vQ..COPI1 JS|
00004970: 52 20 87 45 52 52 00 9A 51 CA 0A 49 4E 43 20 24 |R .ERR..Q..INC $|
00004980: 44 30 32 30 20 20 20 20 20 20 3B 46 41 52 42 45 |D020 ;FARBE|
00004990: 20 48 4F 43 48 5A 41 45 48 C3 00 A6 51 CC 0A 4C | HOCHZAEH...Q..L|
000049A0: 44 41 20 24 35 37 00 C9 51 CE 0A 43 4D 50 20 23 |DA $57..Q..CMP #|
000049B0: 32 30 20 20 20 20 20 20 20 20 3B 54 45 53 54 AB |20 ;TEST.|
000049C0: 44 55 52 43 48 47 41 4E 47 00 D4 51 D0 0A 42 45 |DURCHGANG..Q..BE|
000049D0: 51 20 54 54 00 F6 51 D2 0A 4C 44 41 20 24 36 38 |Q TT..Q..LDA $68|
000049E0: 20 20 20 20 20 20 20 20 3B 53 50 45 49 43 48 45 | ;SPEICHE|
000049F0: 52 50 4F B5 45 52 00 1B 52 D4 0A 43 4C 43 20 20 |RPO.ER..R..CLC |
00004A00: 20 20 20 20 20 20 20 20 20 20 3B 55 4D 20 47 45 | ;UM GE|
00004A10: 4C 45 53 45 4E 45 20 42 4C 4B 53 00 38 52 D6 0A |LESENE BLKS.8R..|
00004A20: 41 44 43 20 24 36 32 20 20 20 20 20 20 20 20 3B |ADC $62 ;|
00004A30: 45 52 48 4F 45 48 45 4E 00 44 52 D8 0A 53 54 41 |ERHOEHEN.DR..STA|
00004A40: 20 24 36 38 00 68 52 DA 0A 54 54 20 49 4E 43 20 | $68.hR..TT INC |
00004A50: 24 36 30 20 20 20 20 20 3B 54 52 41 43 4B 20 48 |$60 ;TRACK H|
00004A60: 4F 43 48 5A 41 45 48 C3 00 74 52 DC 0A 4C 44 41 |OCHZAEH..tR..LDA|
00004A70: 20 24 36 30 00 80 52 DE 0A 43 4D 50 20 24 35 39 | $60..R..CMP $59|
00004A80: 00 A0 52 E0 0A 42 45 51 20 43 4F 50 4F 20 20 20 |..R..BEQ COPO |
00004A90: 20 20 20 20 3B 53 43 48 91 20 46 45 52 54 49 47 | ;SCH. FERTIG|
00004AA0: 00 C2 52 E2 0A 4A 4D 50 20 43 4F 50 4E 45 58 20 |..R..JMP COPNEX |
00004AB0: 20 20 20 20 3B 4E 41 45 43 48 53 54 45 20 53 50 | ;NAECHSTE SP|
00004AC0: 55 52 00 E8 52 E4 0A 3B 20 23 23 23 20 53 50 55 |UR..R..; ### SPU|
00004AD0: 52 42 45 52 45 49 43 48 20 42 45 53 43 48 52 45 |RBEREICH BESCHRE|
00004AE0: 49 42 45 4E 20 23 23 23 00 F5 52 E6 0A 43 4F 50 |IBEN ###..R..COP|
00004AF0: 4F 20 B2 20 AC 00 01 53 E8 0A 4C 44 41 20 24 35 |O . ...S..LDA $5|
00004B00: 37 00 0D 53 EA 0A 43 4D 50 20 23 32 30 00 30 53 |7..S..CMP #20.0S|
00004B10: EC 0A 42 45 51 20 56 45 52 20 20 20 20 20 20 20 |..BEQ VER |
00004B20: 20 3B 54 45 53 54 AB 44 55 52 43 48 47 41 4E 47 | ;TEST.DURCHGANG|
00004B30: 00 3C 53 EE 0A 4C 44 41 20 24 35 37 00 49 53 F0 |.<S..LDA $57.IS.|
00004B40: 0A 43 4D 50 20 23 22 34 22 00 69 53 F2 0A 42 43 |.CMP #"4".iS..BC|
00004B50: 43 20 43 54 20 20 20 20 20 20 20 20 20 3B 95 AB |C CT ;..|
00004B60: 44 55 52 43 48 47 41 4E 47 00 75 53 F4 0A 4C 44 |DURCHGANG.uS..LD|
00004B70: 41 20 24 35 41 00 7F 53 F6 0A 45 B0 20 23 31 00 |A $5A..S..E. #1.|
00004B80: A0 53 F8 0A 53 54 41 20 24 35 41 20 20 20 20 20 |.S..STA $5A |
00004B90: 20 20 20 3B 56 AB 46 4C 41 47 20 41 80 45 52 4E | ;V.FLAG A.ERN|
00004BA0: 00 AC 53 FA 0A 42 45 51 20 56 45 52 00 D0 53 FC |..S..BEQ VER..S.|
00004BB0: 0A 4A 4D 50 20 43 4F 50 49 20 20 20 20 20 20 20 |.JMP COPI |
00004BC0: 3B 5A 55 4D 20 56 45 52 8B 49 5A 49 45 52 45 4E |;ZUM VER.IZIEREN|
00004BD0: 00 EB 53 FE 0A 56 45 52 20 52 54 53 20 20 20 20 |..S..VER RTS |
00004BE0: 20 20 20 20 3B 46 45 52 54 49 47 00 F6 53 00 0B | ;FERTIG..S..|
00004BF0: 43 54 20 B2 20 AC 00 01 54 02 0B 4C 44 41 20 23 |CT . ...T..LDA #|
00004C00: 32 00 21 54 04 0B 4A 53 52 20 BE 45 54 20 20 20 |2.!T..JSR .ET |
00004C10: 20 20 3B 27 A4 27 20 41 4B 54 49 56 49 45 52 45 | ;'.' AKTIVIERE|
00004C20: 4E 00 42 54 06 0B 4C 44 41 20 23 24 31 39 20 20 |N.BT..LDA #$19 |
00004C30: 20 20 20 20 3B 53 50 45 49 43 48 45 52 50 4F B5 | ;SPEICHERPO.|
00004C40: 45 52 00 4E 54 08 0B 53 54 41 20 24 36 38 00 59 |ER.NT..STA $68.Y|
00004C50: 54 0A 0B 4C 44 41 20 23 36 00 78 54 0C 0B 53 54 |T..LDA #6.xT..ST|
00004C60: 41 20 24 35 34 20 20 20 20 20 20 20 3B 42 4C 4F |A $54 ;BLO|
00004C70: 43 4B 20 B6 C0 44 20 36 00 7E 54 0E 0B 3B 00 9E |CK ..D 6.~T..;..|
00004C80: 54 10 0B 43 4F 50 91 20 B2 20 AC 20 20 20 20 20 |T..COP. . . |
00004C90: 3B 4E 41 45 43 48 53 54 45 20 53 50 55 52 00 AA |;NAECHSTE SPUR..|
00004CA0: 54 12 0B 4C 44 41 20 24 36 30 00 CB 54 14 0B 4A |T..LDA $60..T..J|
00004CB0: 53 52 20 54 52 53 45 43 20 20 20 20 20 3B 53 45 |SR TRSEC ;SE|
00004CC0: 4B A4 52 5A 41 48 4C 20 48 4F C3 00 D7 54 16 0B |K.RZAHL HO...T..|
00004CD0: 53 54 41 20 24 36 32 00 DF 54 18 0B 54 58 41 00 |STA $62..T..TXA.|
00004CE0: FE 54 1A 0B 53 54 41 20 24 46 45 20 20 20 20 20 |.T..STA $FE |
00004CF0: 20 20 3B 53 50 55 52 42 45 52 45 49 43 48 00 09 | ;SPURBEREICH..|
00004D00: 55 1C 0B 4C 44 41 20 23 34 00 30 55 1E 0B 53 54 |U..LDA #4.0U..ST|
00004D10: 41 20 24 35 33 20 20 20 20 20 20 20 3B 41 4E 5A |A $53 ;ANZ|
00004D20: 2E 53 43 48 52 45 49 42 56 45 52 53 55 43 48 45 |.SCHREIBVERSUCHE|
00004D30: 00 36 55 20 0B 3B 00 5A 55 22 0B 43 4F 50 91 30 |.6U .;.ZU".COP.0|
00004D40: 20 B2 20 AC 20 20 20 20 3B 4E 41 45 43 48 53 54 | . . ;NAECHST|
00004D50: 45 52 20 56 45 52 53 55 43 48 00 80 55 24 0B 4A |ER VERSUCH..U$.J|
00004D60: 53 52 20 53 45 43 4D 41 50 20 20 20 20 3B 55 45 |SR SECMAP ;UE|
00004D70: 42 45 52 53 49 43 48 54 20 41 4E 4C 45 47 45 4E |BERSICHT ANLEGEN|
00004D80: 00 8D 55 26 0B 4C 44 41 20 23 24 30 30 00 B4 55 |..U&.LDA #$00..U|
00004D90: 28 0B 53 54 41 20 24 36 43 20 20 20 20 20 20 20 |(.STA $6C |
00004DA0: 3B 43 48 45 43 4B 53 55 4D 20 47 41 4E 5A 45 52 |;CHECKSUM GANZER|
00004DB0: 20 54 52 4B 00 BF 55 2A 0B 4C 44 41 20 23 30 00 | TRK..U*.LDA #0.|
00004DC0: E2 55 2C 0B 53 54 41 20 24 36 31 20 20 20 20 20 |.U,.STA $61 |
00004DD0: 20 20 3B 41 4B 54 55 45 4C 4C 45 52 20 53 45 4B | ;AKTUELLER SEK|
00004DE0: A4 52 00 EE 55 2E 0B 4C 44 41 20 24 36 30 00 07 |.R..U..LDA $60..|
00004DF0: 56 30 0B 53 54 41 20 24 46 42 20 20 20 20 20 20 |V0.STA $FB |
00004E00: 20 3B 54 52 41 43 4B 00 13 56 32 0B 4C 44 41 20 | ;TRACK..V2.LDA |
00004E10: 23 30 30 00 2C 56 34 0B 53 54 41 20 24 46 43 20 |#00.,V4.STA $FC |
00004E20: 20 20 20 20 20 20 3B 53 45 43 A4 52 00 38 56 36 | ;SEC.R.8V6|
00004E30: 0B 4C 44 41 20 24 36 32 00 53 56 38 0B 53 54 41 |.LDA $62.SV8.STA|
00004E40: 20 24 46 44 20 20 20 20 20 20 20 3B 4D 41 58 49 | $FD ;MAXI|
00004E50: 4D 55 4D 00 5F 56 3A 0B 4C 44 41 20 23 30 20 00 |MUM._V:.LDA #0 .|
00004E60: 7E 56 3C 0B 53 54 41 20 24 46 46 20 20 20 20 20 |~V<.STA $FF |
00004E70: 20 20 3B 56 45 52 53 54 45 4C 4C 55 4E 47 00 89 | ;VERSTELLUNG..|
00004E80: 56 3E 0B 4C 44 41 20 23 33 00 A6 56 40 0B 4A 53 |V>.LDA #3..V@.JS|
00004E90: 52 20 4D 41 53 54 45 52 20 20 20 20 3B 81 4D 41 |R MASTER ;.MA|
00004EA0: 54 49 45 52 45 4E 00 C9 56 42 0B 43 4F 50 4F 57 |TIEREN..VB.COPOW|
00004EB0: 20 B2 20 AC 20 20 20 20 20 3B 4E 41 45 43 48 53 | . . ;NAECHS|
00004EC0: 54 45 52 20 42 4C 4F 43 4B 00 D5 56 44 0B 4C 44 |TER BLOCK..VD.LD|
00004ED0: 41 20 24 36 31 00 EE 56 46 0B 53 54 41 20 24 46 |A $61..VF.STA $F|
00004EE0: 43 20 20 20 20 20 20 20 3B 53 45 4B A4 52 00 0D |C ;SEK.R..|
00004EF0: 57 48 0B 4A 53 52 20 43 4F 44 45 20 20 20 20 20 |WH.JSR CODE |
00004F00: 20 3B 56 45 52 53 43 48 49 45 42 45 4E 00 28 57 | ;VERSCHIEBEN.(W|
00004F10: 4A 0B 42 43 43 20 43 4F B9 55 43 20 20 20 3B 4C |J.BCC CO.UC ;L|
00004F20: 45 45 52 42 4C 4F 43 4B 00 34 57 4C 0B 4C 44 41 |EERBLOCK.4WL.LDA|
00004F30: 20 24 36 43 00 57 57 4E 0B 45 B0 20 24 35 45 20 | $6C.WWN.E. $5E |
00004F40: 20 20 20 20 20 20 3B 50 52 55 45 46 53 55 4D 4D | ;PRUEFSUMM|
00004F50: 45 20 41 80 45 52 4E 00 63 57 50 0B 53 54 41 20 |E A.ERN.cWP.STA |
00004F60: 24 36 43 00 6E 57 52 0B 4C 44 41 20 23 32 00 8F |$6C.nWR.LDA #2..|
00004F70: 57 54 0B 4A 53 52 20 4D 41 53 54 45 52 20 20 20 |WT.JSR MASTER |
00004F80: 20 3B 42 4C 4B 20 53 43 48 52 45 49 42 45 4E 00 | ;BLK SCHREIBEN.|
00004F90: AE 57 56 0B 4C 44 41 20 23 24 31 38 20 20 20 20 |.WV.LDA #$18 |
00004FA0: 20 20 3B 55 45 42 45 52 54 52 41 47 45 4E 00 BE | ;UEBERTRAGEN..|
00004FB0: 57 58 0B 53 54 41 20 43 4F 41 44 52 AA 32 00 CB |WX.STA COADR.2..|
00004FC0: 57 5A 0B 4C 44 59 20 23 24 30 30 00 D9 57 5C 0B |WZ.LDY #$00..W\.|
00004FD0: 4A 53 52 20 43 4F 4F 55 54 00 FD 57 5E 0B 43 4F |JSR COOUT..W^.CO|
00004FE0: B9 55 43 20 4A 53 52 20 53 55 43 48 20 20 3B 4E |.UC JSR SUCH ;N|
00004FF0: 41 45 43 48 53 54 45 4E 20 53 55 43 48 00 20 58 |AECHSTEN SUCH. X|
00005000: 60 0B 42 43 43 20 43 4F 50 4F 57 20 20 20 20 20 |`.BCC COPOW |
00005010: 3B 4E 41 45 43 48 53 54 45 52 20 42 4C 4F 43 4B |;NAECHSTER BLOCK|
00005020: 00 26 58 62 0B 3B 00 31 58 64 0B 4C 44 41 20 23 |.&Xb.;.1Xd.LDA #|
00005030: 30 00 3D 58 66 0B 53 54 41 20 24 46 43 00 60 58 |0.=Xf.STA $FC.`X|
00005040: 68 0B 4C 44 41 20 23 34 20 20 20 20 20 20 20 20 |h.LDA #4 |
00005050: 3B 42 45 47 49 4E 4E 80 20 4D 2E 42 4C 4B 20 30 |;BEGINN. M.BLK 0|
00005060: 00 7F 58 6A 0B 4A 53 52 20 4D 41 53 54 45 52 20 |..Xj.JSR MASTER |
00005070: 20 20 20 3B 56 45 52 8B 49 5A 49 45 52 45 4E 00 | ;VER.IZIEREN.|
00005080: 8C 58 6C 0B 4C 44 41 20 23 24 30 30 00 9C 58 6E |.Xl.LDA #$00..Xn|
00005090: 0B 53 54 41 20 43 49 41 44 52 AA 32 00 A9 58 70 |.STA CIADR.2..Xp|
000050A0: 0B 4C 44 59 20 23 24 46 41 00 C9 58 72 0B 4A 53 |.LDY #$FA..Xr.JS|
000050B0: 52 20 43 4F 49 4E 20 20 20 20 20 20 3B 52 55 45 |R COIN ;RUE|
000050C0: 43 4B 4D 45 4C 44 55 4E 47 00 EA 58 74 0B 4C 44 |CKMELDUNG..Xt.LD|
000050D0: 41 20 24 46 43 20 20 20 20 20 20 20 3B 57 52 49 |A $FC ;WRI|
000050E0: 54 45 20 50 52 4F 54 45 43 54 00 F9 58 76 0B 42 |TE PROTECT..Xv.B|
000050F0: 4E 45 20 43 4F 50 4F 57 50 00 0F 59 78 0B 4A 4D |NE COPOWP..Yx.JM|
00005100: 50 20 43 4F 50 59 32 20 20 20 20 20 3B 80 45 00 |P COPY2 ;.E.|
00005110: 1E 59 7A 0B 43 4F 50 4F 57 50 20 B2 20 AC 00 3C |.Yz.COPOWP . ..<|
00005120: 59 7C 0B 4C 44 41 20 24 46 42 20 20 20 20 20 20 |Y|.LDA $FB |
00005130: 20 3B 57 52 49 54 45 20 45 52 52 B0 00 4A 59 7E | ;WRITE ERR..JY~|
00005140: 0B 42 4E 45 20 43 4F 50 4F 30 00 56 59 80 0B 4C |.BNE COPO0.VY..L|
00005150: 44 41 20 24 46 41 00 62 59 82 0B 43 4D 50 20 24 |DA $FA.bY..CMP $|
00005160: 36 43 00 70 59 84 0B 42 4E 45 20 43 4F 50 4F 30 |6C.pY..BNE COPO0|
00005170: 00 7E 59 86 0B 4A 4D 50 20 43 4F 50 4F 31 00 90 |.~Y..JMP COPO1..|
00005180: 59 88 0B 43 4F 50 4F 30 20 44 45 43 20 24 35 33 |Y..COPO0 DEC $53|
00005190: 00 9E 59 8A 0B 42 45 51 20 43 4F 57 45 52 00 C3 |..Y..BEQ COWER..|
000051A0: 59 8C 0B 4A 4D 50 20 43 4F 50 91 30 20 20 20 20 |Y..JMP COP.0 |
000051B0: 20 3B 4E 41 45 43 48 53 54 45 52 20 56 45 52 53 | ;NAECHSTER VERS|
000051C0: 55 43 48 00 E5 59 8E 0B 43 4F 57 45 52 20 4A 53 |UCH..Y..COWER JS|
000051D0: 52 20 57 45 52 52 B0 53 20 3B 46 45 48 4C 45 52 |R WERR.S ;FEHLER|
000051E0: 4D 45 4C 44 47 00 EB 59 90 0B 3B 00 0D 5A 92 0B |MELDG..Y..;..Z..|
000051F0: 43 4F 50 4F 31 20 4C 44 41 20 24 36 38 20 20 3B |COPO1 LDA $68 ;|
00005200: 53 50 45 49 43 48 45 52 50 4F B5 45 52 00 2A 5A |SPEICHERPO.ER.*Z|
00005210: 94 0B 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 |..CLC |
00005220: 20 3B 45 52 48 4F 45 48 45 4E 00 36 5A 96 0B 41 | ;ERHOEHEN.6Z..A|
00005230: 44 43 20 24 36 32 00 42 5A 98 0B 53 54 41 20 24 |DC $62.BZ..STA $|
00005240: 36 38 00 63 5A 9A 0B 49 4E 43 20 24 36 30 20 20 |68.cZ..INC $60 |
00005250: 20 20 20 20 20 20 3B 54 52 41 43 4B 5A 41 45 48 | ;TRACKZAEH|
00005260: 4C 45 52 00 6F 5A 9C 0B 4C 44 41 20 24 36 30 00 |LER.oZ..LDA $60.|
00005270: 7B 5A 9E 0B 43 4D 50 20 24 35 39 00 89 5A A0 0B |{Z..CMP $59..Z..|
00005280: 42 45 51 20 43 4F 50 4F 45 00 AC 5A A2 0B 49 4E |BEQ COPOE..Z..IN|
00005290: 43 20 24 44 30 32 30 20 20 20 20 20 20 3B 46 41 |C $D020 ;FA|
000052A0: 52 42 45 20 45 52 48 4F 45 48 45 4E 00 B9 5A A4 |RBE ERHOEHEN..Z.|
000052B0: 0B 4A 4D 50 20 43 4F 50 91 00 C7 5A A6 0B 43 4F |.JMP COP...Z..CO|
000052C0: 50 4F 45 20 52 54 53 00 EE 5A A8 0B 3B 20 23 23 |POE RTS..Z..; ##|
000052D0: 20 42 45 46 45 48 4C 53 55 45 42 45 52 47 41 42 | BEFEHLSUEBERGAB|
000052E0: 45 20 41 4E 20 46 4C 4F 50 50 59 20 23 23 00 10 |E AN FLOPPY ##..|
000052F0: 5B AA 0B 4D 41 53 54 45 52 20 B2 20 AC 20 20 20 |[..MASTER . . |
00005300: 20 3B 4A 4F 42 4E 55 4D 4D 45 52 20 49 4E 20 41 | ;JOBNUMMER IN A|
00005310: 00 1C 5B AC 0B 53 54 41 20 24 46 41 00 27 5B AE |..[..STA $FA.'[.|
00005320: 0B 4C 44 41 20 23 30 00 37 5B B0 0B 53 54 41 20 |.LDA #0.7[..STA |
00005330: 43 4F 41 44 52 AA 32 00 44 5B B2 0B 4C 44 59 20 |COADR.2.D[..LDY |
00005340: 23 24 46 41 00 63 5B B4 0B 4A 53 52 20 43 4F 4F |#$FA.c[..JSR COO|
00005350: 55 54 20 20 20 20 20 3B 55 45 42 45 52 54 52 41 |UT ;UEBERTRA|
00005360: 47 45 4E 00 6B 5B B6 0B 52 54 53 00 8F 5B B8 0B |GEN.k[..RTS..[..|
00005370: 3B 20 23 23 23 20 4C 45 53 45 46 45 48 4C 45 52 |; ### LESEFEHLER|
00005380: 20 55 45 42 45 52 53 49 43 48 54 20 23 23 23 00 | UEBERSICHT ###.|
00005390: 9C 5B BA 0B 87 45 52 52 20 B2 20 AC 00 A8 5B BC |.[...ERR . ...[.|
000053A0: 0B 4C 44 41 20 23 31 33 00 B6 5B BE 0B 4A 53 52 |.LDA #13..[..JSR|
000053B0: 20 24 46 46 44 32 00 C6 5B C0 0B 4A 53 52 20 44 | $FFD2..[..JSR D|
000053C0: 49 53 50 41 43 45 00 D2 5B C2 0B 4C 44 41 20 24 |ISPACE..[..LDA $|
000053D0: 46 42 00 F9 5B C4 0B 4A 53 52 20 5A 41 48 4C 20 |FB..[..JSR ZAHL |
000053E0: 20 20 20 20 20 3B 53 50 55 52 4E 55 4D 4D 45 52 | ;SPURNUMMER|
000053F0: 20 41 55 53 47 45 42 45 4E 00 06 5C C6 0B 4C 44 | AUSGEBEN..\..LD|
00005400: 41 20 23 22 20 22 00 14 5C C8 0B 4A 53 52 20 24 |A #" "..\..JSR $|
00005410: 46 46 44 32 00 1F 5C CA 0B 4C 44 59 20 23 30 00 |FFD2..\..LDY #0.|
00005420: 40 5C CC 0B 87 45 52 52 30 20 4C 44 41 20 24 30 |@\...ERR0 LDA $0|
00005430: 33 33 43 2C 59 20 3B 54 41 42 2E 4C 45 53 45 4E |33C,Y ;TAB.LESEN|
00005440: 00 63 5C CE 0B 42 4E 45 20 87 45 52 52 31 20 20 |.c\..BNE .ERR1 |
00005450: 3B 46 45 48 4C 45 52 48 41 46 54 45 52 20 42 4C |;FEHLERHAFTER BL|
00005460: 4F 43 4B 00 7F 5C D0 0B 4C 44 41 20 23 22 2E 22 |OCK..\..LDA #"."|
00005470: 20 20 20 20 20 20 3B 42 4C 4F 43 4B 20 4F 4B 00 | ;BLOCK OK.|
00005480: 9B 5C D2 0B B0 41 20 24 35 41 20 20 20 20 20 20 |.\...A $5A |
00005490: 20 3B 42 45 49 20 95 20 27 AD 27 00 A9 5C D4 0B | ;BEI . '.'..\..|
000054A0: 4A 53 52 20 24 46 46 44 32 00 C9 5C D6 0B 87 45 |JSR $FFD2..\...E|
000054B0: 52 52 32 20 49 4E 59 20 20 3B 4E 41 45 43 48 53 |RR2 INY ;NAECHS|
000054C0: 54 45 52 20 42 4C 4F 43 4B 00 D5 5C D8 0B 43 50 |TER BLOCK..\..CP|
000054D0: 59 20 24 46 44 00 E3 5C DA 0B 42 4E 45 20 87 45 |Y $FD..\..BNE .E|
000054E0: 52 52 30 00 EB 5C DC 0B 52 54 53 00 0F 5D DE 0B |RR0..\..RTS..]..|
000054F0: 87 45 52 52 31 20 54 41 58 20 20 3B 46 45 48 4C |.ERR1 TAX ;FEHL|
00005500: 45 52 4E 55 4D 4D 45 52 20 4E 41 43 48 20 58 00 |ERNUMMER NACH X.|
00005510: 2B 5D E0 0B 4C 44 41 20 23 31 38 20 20 20 20 20 |+]..LDA #18 |
00005520: 20 20 3B 52 45 56 45 52 53 20 91 00 39 5D E2 0B | ;REVERS ..9]..|
00005530: 4A 53 52 20 24 46 46 44 32 00 59 5D E4 0B 4C 44 |JSR $FFD2.Y]..LD|
00005540: 41 20 46 45 48 4C 45 52 2C 58 20 20 3B C6 49 49 |A FEHLER,X ;.II|
00005550: AB 43 4F 44 45 20 48 4F C3 00 7F 5D E6 0B 4A 53 |.CODE HO...]..JS|
00005560: 52 20 24 46 46 44 32 20 20 20 20 20 3B 46 45 48 |R $FFD2 ;FEH|
00005570: 4C 45 52 4E 52 2E 20 41 55 53 47 45 42 45 4E 00 |LERNR. AUSGEBEN.|
00005580: 9D 5D E8 0B 4C 44 41 20 23 31 34 36 20 20 20 20 |.]..LDA #146 |
00005590: 20 20 3B 52 45 56 45 52 53 20 4F 46 46 00 AB 5D | ;REVERS OFF..]|
000055A0: EA 0B 4A 53 52 20 24 46 46 44 32 00 B3 5D EC 0B |..JSR $FFD2..]..|
000055B0: 43 4C 43 00 BB 5D EE 0B 54 59 41 00 C3 5D F0 0B |CLC..]..TYA..]..|
000055C0: 50 48 41 00 EA 5D F2 0B 41 44 43 20 24 36 38 20 |PHA..]..ADC $68 |
000055D0: 20 20 20 20 20 20 3B 41 44 52 45 53 53 45 20 49 | ;ADRESSE I|
000055E0: 4D 20 53 50 45 49 43 48 45 52 00 07 5E F4 0B 53 |M SPEICHER..^..S|
000055F0: 54 41 20 24 37 30 20 20 20 20 20 20 20 3B 42 45 |TA $70 ;BE|
00005600: 53 54 49 4D 4D 45 4E 00 14 5E F6 0B 4C 44 41 20 |STIMMEN..^..LDA |
00005610: 23 24 33 34 00 20 5E F8 0B 53 54 41 20 24 30 31 |#$34. ^..STA $01|
00005620: 00 2B 5E FA 0B 4C 44 59 20 23 30 00 37 5E FC 0B |.+^..LDY #0.7^..|
00005630: 53 54 59 20 24 36 46 00 59 5E FE 0B 4C 44 41 20 |STY $6F.Y^..LDA |
00005640: 23 24 30 31 20 20 20 20 20 20 3B 42 4C 4F 43 4B |#$01 ;BLOCK|
00005650: 20 4C 4F 45 53 43 48 45 4E 00 6F 5E 00 0C 87 45 | LOESCHEN.o^...E|
00005660: 52 52 34 20 53 54 41 20 28 24 36 46 29 2C 59 00 |RR4 STA ($6F),Y.|
00005670: 77 5E 02 0C 49 4E 59 00 85 5E 04 0C 42 4E 45 20 |w^..INY..^..BNE |
00005680: 87 45 52 52 34 00 92 5E 06 0C 4C 44 41 20 23 24 |.ERR4..^..LDA #$|
00005690: 34 42 00 A2 5E 08 0C 53 54 41 20 28 24 36 46 29 |4B..^..STA ($6F)|
000056A0: 2C 59 00 AF 5E 0A 0C 4C 44 41 20 23 24 33 37 00 |,Y..^..LDA #$37.|
000056B0: BB 5E 0C 0C 53 54 41 20 24 30 31 00 C3 5E 0E 0C |.^..STA $01..^..|
000056C0: 50 4C 41 00 CB 5E 10 0C 54 41 59 00 D9 5E 12 0C |PLA..^..TAY..^..|
000056D0: 4A 4D 50 20 87 45 52 52 32 00 FC 5E 14 0C 3B 20 |JMP .ERR2..^..; |
000056E0: 23 23 23 20 53 43 48 52 45 49 42 46 45 48 4C 45 |### SCHREIBFEHLE|
000056F0: 52 20 4D 45 4C 44 45 4E 20 23 23 23 00 0B 5F 16 |R MELDEN ###.._.|
00005700: 0C 57 45 52 52 B0 53 20 B2 20 AC 00 1B 5F 18 0C |.WERR.S . ..._..|
00005710: 4C 44 58 20 23 B3 57 45 52 52 B0 00 2B 5F 1A 0C |LDX #.WERR..+_..|
00005720: 4C 44 59 20 23 B1 57 45 52 52 B0 00 4B 5F 1C 0C |LDY #.WERR..K_..|
00005730: 4A 53 52 20 99 20 20 20 20 20 3B 4D 45 4C 44 55 |JSR . ;MELDU|
00005740: 4E 47 20 41 55 53 47 45 42 45 4E 00 57 5F 1E 0C |NG AUSGEBEN.W_..|
00005750: 4C 44 41 20 24 36 30 00 78 5F 20 0C 4A 53 52 20 |LDA $60.x_ .JSR |
00005760: 5A 41 48 4C 20 20 20 20 20 20 3B 53 50 55 52 4E |ZAHL ;SPURN|
00005770: 55 4D 4D 45 52 20 20 22 00 85 5F 22 0C 4C 44 41 |UMMER ".._".LDA|
00005780: 20 23 31 33 20 00 93 5F 24 0C 4A 53 52 20 24 46 | #13 .._$.JSR $F|
00005790: 46 44 32 00 9B 5F 26 0C 52 54 53 00 BB 5F 28 0C |FD2.._&.RTS.._(.|
000057A0: 3B 20 23 23 23 20 50 49 43 A4 47 52 41 4D 4D 20 |; ### PIC.GRAMM |
000057B0: 41 4E 57 41 45 48 C3 20 23 23 23 00 E0 5F 2A 0C |ANWAEH. ###.._*.|
000057C0: 50 41 53 53 20 50 48 41 20 20 3B 31 B2 46 52 4F |PASS PHA ;1.FRO|
000057D0: 4D 20 32 B2 A4 20 30 B2 4C 4F 45 53 43 48 45 4E |M 2.. 0.LOESCHEN|
000057E0: 00 EC 5F 2C 0C 4C 44 41 20 24 35 37 00 07 60 2E |.._,.LDA $57..`.|
000057F0: 0C 53 54 41 20 24 36 37 42 20 20 3B 50 41 53 53 |.STA $67B ;PASS|
00005800: 20 53 45 54 5A 45 4E 00 12 60 30 0C 4C 44 59 20 | SETZEN..`0.LDY |
00005810: 23 30 00 1F 60 32 0C 4C 44 58 20 23 24 37 30 00 |#0..`2.LDX #$70.|
00005820: 2C 60 34 0C 4C 44 59 20 23 24 30 34 00 39 60 36 |,`4.LDY #$04.9`6|
00005830: 0C 4C 44 41 20 23 24 37 46 00 53 60 38 0C 53 54 |.LDA #$7F.S`8.ST|
00005840: 58 20 24 36 34 20 20 20 3B 4B 4F B0 44 49 4E 41 |X $64 ;KO.DINA|
00005850: 54 45 4E 00 60 60 3A 0C 53 54 59 20 24 36 35 20 |TEN.``:.STY $65 |
00005860: 00 80 60 3C 0C 53 54 41 20 24 36 36 20 20 20 3B |..`<.STA $66 ;|
00005870: 4D 41 53 4B 45 20 25 30 31 31 31 31 31 31 31 31 |MASKE %011111111|
00005880: 00 97 60 3E 0C 4C 44 58 20 23 31 32 20 20 20 3B |..`>.LDX #12 ;|
00005890: 31 32 20 5A 45 49 C3 00 BA 60 40 0C 4A 53 52 20 |12 ZEI...`@.JSR |
000058A0: 50 53 32 20 20 20 3B 50 49 43 A4 47 52 41 4D 4D |PS2 ;PIC.GRAMM|
000058B0: 45 20 4C 4F 45 53 43 48 45 4E 00 DD 60 42 0C 4A |E LOESCHEN..`B.J|
000058C0: 53 52 20 42 4C 41 43 4B 20 3B 4D 45 4E 55 45 50 |SR BLACK ;MENUEP|
000058D0: 55 4E 4B 54 20 41 4E 5A 45 49 47 45 4E 00 E5 60 |UNKT ANZEIGEN..`|
000058E0: 44 0C 50 4C 41 00 F2 60 46 0C 43 4D 50 20 23 24 |D.PLA..`F.CMP #$|
000058F0: 33 30 00 02 61 48 0C 42 45 51 20 50 80 20 20 3B |30..aH.BEQ P. ;|
00005900: 80 45 00 0D 61 4A 0C 43 4D 50 20 23 31 00 1B 61 |.E..aJ.CMP #1..a|
00005910: 4C 0C 42 4E 45 20 50 41 53 53 31 00 3A 61 4E 0C |L.BNE PASS1.:aN.|
00005920: 4C 44 58 20 23 24 37 30 20 20 3B 4B 4F B0 44 49 |LDX #$70 ;KO.DI|
00005930: 4E 41 54 45 4E 20 46 52 4F 4D 00 47 61 50 0C 4C |NATEN FROM.GaP.L|
00005940: 44 59 20 23 24 30 34 00 55 61 52 0C 4A 4D 50 20 |DY #$04.UaR.JMP |
00005950: 50 41 53 53 32 00 77 61 54 0C 50 41 53 53 31 20 |PASS2.waT.PASS1 |
00005960: 4C 44 58 20 23 24 36 30 20 20 3B 4B 4F B0 44 49 |LDX #$60 ;KO.DI|
00005970: 4E 41 54 45 4E 20 A4 00 84 61 56 0C 4C 44 59 20 |NATEN ...aV.LDY |
00005980: 23 24 30 35 00 96 61 58 0C 50 41 53 53 32 20 53 |#$05..aX.PASS2 S|
00005990: 54 58 20 24 36 34 00 A2 61 5A 0C 53 54 59 20 24 |TX $64..aZ.STY $|
000059A0: 36 35 00 AF 61 5C 0C 4C 44 41 20 23 24 46 46 00 |65..a\.LDA #$FF.|
000059B0: CC 61 5E 0C 53 54 41 20 24 36 36 20 20 20 20 20 |.a^.STA $66 |
000059C0: 20 20 20 20 3B AF AB 4D 41 53 4B 45 00 D7 61 60 | ;..MASKE..a`|
000059D0: 0C 4C 44 58 20 23 36 00 E3 61 62 0C 4A 53 52 20 |.LDX #6..ab.JSR |
000059E0: 50 53 32 00 EE 61 64 0C 50 80 20 52 54 53 00 15 |PS2..ad.P. RTS..|
000059F0: 62 66 0C 50 53 32 20 4C 44 59 20 23 35 20 20 20 |bf.PS2 LDY #5 |
00005A00: 20 20 20 3B 53 45 54 5A AD 4C 4F 45 53 43 48 20 | ;SETZ.LOESCH |
00005A10: 52 4F 55 54 2E 00 31 62 68 0C 50 53 31 20 4C 44 |ROUT..1bh.PS1 LD|
00005A20: 41 20 28 24 36 34 29 2C 59 20 3B 58 20 5A 45 49 |A ($64),Y ;X ZEI|
00005A30: C3 00 52 62 6A 0C B0 41 20 23 24 38 30 20 20 20 |..Rbj..A #$80 |
00005A40: 20 20 20 20 20 3B 42 49 54 20 37 20 53 45 54 5A | ;BIT 7 SETZ|
00005A50: 45 4E 00 6D 62 6C 0C AF 20 24 36 36 20 20 20 20 |EN.mbl.. $66 |
00005A60: 20 20 20 20 20 3B AF 20 4D 41 53 4B 45 00 7D 62 | ;. MASKE.}b|
00005A70: 6E 0C 53 54 41 20 28 24 36 34 29 2C 59 00 85 62 |n.STA ($64),Y..b|
00005A80: 70 0C 44 45 59 00 91 62 72 0C 42 50 4C 20 50 53 |p.DEY..br.BPL PS|
00005A90: 31 00 9D 62 74 0C 4C 44 41 20 24 36 34 00 A5 62 |1..bt.LDA $64..b|
00005AA0: 76 0C 43 4C 43 00 B1 62 78 0C 41 44 43 20 23 34 |v.CLC..bx.ADC #4|
00005AB0: 30 00 BD 62 7A 0C 53 54 41 20 24 36 34 00 C9 62 |0..bz.STA $64..b|
00005AC0: 7C 0C 42 43 43 20 50 53 33 00 D5 62 7E 0C 49 4E ||.BCC PS3..b~.IN|
00005AD0: 43 20 24 36 35 00 E1 62 80 0C 50 53 33 20 44 45 |C $65..b..PS3 DE|
00005AE0: 58 00 ED 62 82 0C 42 4E 45 20 50 53 32 00 F5 62 |X..b..BNE PS2..b|
00005AF0: 84 0C 52 54 53 00 1C 63 86 0C 3B 20 23 23 20 4E |..RTS..c..; ## N|
00005B00: 41 45 43 48 53 54 45 4E 20 44 55 52 43 48 47 41 |AECHSTEN DURCHGA|
00005B10: 4E 47 20 4D 45 4C 44 45 4E 20 23 23 00 40 63 88 |NG MELDEN ##.@c.|
00005B20: 0C BE 45 54 20 4A 53 52 20 50 41 53 53 20 3B 50 |..ET JSR PASS ;P|
00005B30: 49 43 A4 47 52 41 4D 4D 20 41 4E 5A 45 49 47 2E |IC.GRAMM ANZEIG.|
00005B40: 00 62 63 8A 0C 4A 53 52 20 48 45 4C 4C 20 20 20 |.bc..JSR HELL |
00005B50: 20 20 20 20 3B 42 49 4C 44 53 43 48 49 52 4D 20 | ;BILDSCHIRM |
00005B60: 41 4E 00 83 63 8C 0C 4A 53 52 20 55 48 52 41 20 |AN..c..JSR UHRA |
00005B70: 20 20 20 20 20 20 3B 55 48 52 20 41 4E 48 41 4C | ;UHR ANHAL|
00005B80: 54 45 4E 00 A5 63 8E 0C 4A 53 52 20 55 48 52 5A |TEN..c..JSR UHRZ|
00005B90: 20 20 20 20 20 20 20 3B 5A 45 49 54 20 41 55 53 | ;ZEIT AUS|
00005BA0: 47 45 42 45 4E 00 B1 63 90 0C 4C 44 41 20 24 35 |GEBEN..c..LDA $5|
00005BB0: 37 00 BE 63 92 0C 43 4D 50 20 23 22 30 22 00 E1 |7..c..CMP #"0"..|
00005BC0: 63 94 0C 42 45 51 20 43 45 4E 20 20 20 20 20 20 |c..BEQ CEN |
00005BD0: 20 20 3B 80 45 20 44 45 52 20 44 55 52 43 48 47 | ;.E DER DURCHG|
00005BE0: 2E 00 F8 63 96 0C 4A 53 52 20 CB 4E 47 20 20 20 |...c..JSR .NG |
00005BF0: 20 20 20 20 3B CB 4E 47 00 1B 64 98 0C 4A 53 52 | ;.NG..d..JSR|
00005C00: 20 54 41 53 54 45 20 20 20 20 20 20 3B 54 41 53 | TASTE ;TAS|
00005C10: 54 45 20 41 42 57 41 52 54 45 4E 00 29 64 9A 0C |TE ABWARTEN.)d..|
00005C20: 42 43 43 20 43 4F 50 49 52 00 4B 64 9C 0C 4C 44 |BCC COPIR.Kd..LD|
00005C30: 41 20 23 22 30 22 20 20 20 20 20 20 20 3B 42 45 |A #"0" ;BE|
00005C40: 49 20 90 20 41 42 42 52 55 43 48 00 57 64 9E 0C |I . ABBRUCH.Wd..|
00005C50: 53 54 41 20 24 35 37 00 7A 64 A0 0C 4A 53 52 20 |STA $57.zd..JSR |
00005C60: 50 41 53 53 20 20 20 20 20 20 20 3B 50 49 43 27 |PASS ;PIC'|
00005C70: 53 20 4C 4F 45 53 43 48 45 4E 00 8B 64 A2 0C 43 |S LOESCHEN..d..C|
00005C80: 45 4E 20 4C 44 58 20 23 24 46 38 00 AC 64 A4 0C |EN LDX #$F8..d..|
00005C90: 54 53 58 20 20 20 20 20 20 20 20 20 20 20 20 3B |TSX ;|
00005CA0: 53 54 41 43 4B 20 53 45 54 5A 45 4E 00 CF 64 A6 |STACK SETZEN..d.|
00005CB0: 0C 4A 53 52 20 44 55 4E 4B 45 4C 20 20 20 20 20 |.JSR DUNKEL |
00005CC0: 3B 42 49 4C 44 53 43 48 49 52 4D 20 41 55 53 00 |;BILDSCHIRM AUS.|
00005CD0: D7 64 A8 0C 53 45 49 00 F7 64 AA 0C 4A 4D 50 20 |.d..SEI..d..JMP |
00005CE0: 43 4F 50 59 32 20 20 20 20 20 20 3B 5A 55 4D 20 |COPY2 ;ZUM |
00005CF0: 41 42 42 52 55 43 48 00 1A 65 AC 0C 43 4F 50 49 |ABBRUCH..e..COPI|
00005D00: 52 20 4A 53 52 20 44 55 4E 4B 45 4C 20 3B AB AB |R JSR DUNKEL ;..|
00005D10: AB AB AB AB AB AB AB AB AB AB 00 3B 65 AE 0C 4A |...........;e..J|
00005D20: 53 52 20 53 43 52 9C 20 20 20 20 20 20 20 3B 57 |SR SCR. ;W|
00005D30: 45 49 54 45 52 4D 41 43 48 45 4E 00 5D 65 B0 0C |EITERMACHEN.]e..|
00005D40: 4A 53 52 20 55 48 52 53 20 20 20 20 20 20 20 20 |JSR UHRS |
00005D50: 20 3B 55 48 52 20 53 54 41 52 54 45 4E 00 6A 65 | ;UHR STARTEN.je|
00005D60: B2 0C 4C 44 41 20 23 24 38 30 00 8C 65 B4 0C 53 |..LDA #$80..e..S|
00005D70: 54 41 20 24 44 43 30 45 20 20 20 20 20 20 20 20 |TA $DC0E |
00005D80: 3B B5 45 52 52 55 50 54 20 41 55 53 00 98 65 B6 |;.ERRUPT AUS..e.|
00005D90: 0C 4C 44 41 20 24 35 38 00 BE 65 B8 0C 53 54 41 |.LDA $58..e..STA|
00005DA0: 20 24 36 30 20 20 20 20 20 20 20 20 20 20 3B 31 | $60 ;1|
00005DB0: 2E 54 52 41 43 4B 20 41 4E 47 45 42 45 4E 00 C6 |.TRACK ANGEBEN..|
00005DC0: 65 BA 0C 52 54 53 00 CC 65 BC 0C 3B 00 F1 65 BE |e..RTS..e..;..e.|
00005DD0: 0C 44 55 4E 4B 45 4C 20 4C 44 41 20 23 24 30 42 |.DUNKEL LDA #$0B|
00005DE0: 20 20 3B 42 49 4C 44 53 43 48 49 52 4D 20 41 55 | ;BILDSCHIRM AU|
00005DF0: 53 00 FF 65 C0 0C 53 54 41 20 24 44 30 31 31 00 |S..e..STA $D011.|
00005E00: 13 66 C2 0C 44 55 4E 4B 30 20 4C 44 41 20 24 44 |.f..DUNK0 LDA $D|
00005E10: 30 31 31 00 21 66 C4 0C 42 50 4C 20 44 55 4E 4B |011.!f..BPL DUNK|
00005E20: 30 00 35 66 C6 0C 44 55 4E 4B 31 20 4C 44 41 20 |0.5f..DUNK1 LDA |
00005E30: 24 44 30 31 31 00 43 66 C8 0C 42 4D 49 20 44 55 |$D011.Cf..BMI DU|
00005E40: 4E 4B 31 00 4B 66 CA 0C 52 54 53 00 51 66 CC 0C |NK1.Kf..RTS.Qf..|
00005E50: 3B 00 75 66 CE 0C 48 45 4C 4C 20 4C 44 41 20 23 |;.uf..HELL LDA #|
00005E60: 24 31 42 20 20 20 20 3B 42 49 4C 44 53 43 48 49 |$1B ;BILDSCHI|
00005E70: 52 4D 20 41 4E 00 83 66 D0 0C 53 54 41 20 24 44 |RM AN..f..STA $D|
00005E80: 30 31 31 00 8F 66 D2 0C 4C 44 41 20 23 20 30 00 |011..f..LDA # 0.|
00005E90: 9D 66 D4 0C 53 54 41 20 24 44 30 32 30 00 A5 66 |.f..STA $D020..f|
00005EA0: D6 0C 52 54 53 00 AB 66 D8 0C 3B 00 CE 66 DA 0C |..RTS..f..;..f..|
00005EB0: 3B 20 23 23 23 20 53 45 4B A4 52 45 4E 20 AD 20 |; ### SEK.REN . |
00005EC0: 54 52 41 43 4B 20 42 45 53 54 2E 23 23 23 00 F2 |TRACK BEST.###..|
00005ED0: 66 DC 0C 54 52 53 45 43 20 4C 44 58 20 23 34 20 |f..TRSEC LDX #4 |
00005EE0: 20 20 20 20 20 20 20 3B 54 52 41 43 4B 20 49 4E | ;TRACK IN|
00005EF0: 20 41 00 15 67 DE 0C 54 52 53 45 43 30 20 43 4D | A..g..TRSEC0 CM|
00005F00: 50 20 53 45 43 41 45 2C 58 20 20 3B 56 45 52 47 |P SECAE,X ;VERG|
00005F10: 4C 45 49 43 48 00 1D 67 E0 0C 44 45 58 00 2C 67 |LEICH..g..DEX.,g|
00005F20: E2 0C 42 43 53 20 54 52 53 45 43 30 00 50 67 E4 |..BCS TRSEC0.Pg.|
00005F30: 0C 4C 44 41 20 53 45 43 4E 4F 2C 58 20 20 20 20 |.LDA SECNO,X |
00005F40: 20 20 20 20 20 3B 41 4E 5A 41 48 4C 20 48 4F C3 | ;ANZAHL HO.|
00005F50: 00 58 67 E6 0C 52 54 53 00 7C 67 E8 0C 3B 20 23 |.Xg..RTS.|g..; #|
00005F60: 23 20 53 45 4B A4 52 55 45 42 45 52 53 49 43 48 |# SEK.RUEBERSICH|
00005F70: 54 20 41 4E 4C 45 47 45 4E 20 23 23 00 90 67 EA |T ANLEGEN ##..g.|
00005F80: 0C 53 45 43 4D 41 50 20 4C 44 59 20 23 24 33 43 |.SECMAP LDY #$3C|
00005F90: 00 B5 67 EC 0C 4C 44 41 20 23 24 30 33 20 20 20 |..g..LDA #$03 |
00005FA0: 20 20 3B 56 B0 42 45 4C 45 47 55 4E 47 20 45 52 | ;V.BELEGUNG ER|
00005FB0: 52 B0 20 32 31 00 CD 67 EE 0C 53 45 43 4D 41 50 |R. 21..g..SECMAP|
00005FC0: 30 20 53 54 41 20 24 30 33 30 30 2C 59 00 D5 67 |0 STA $0300,Y..g|
00005FD0: F0 0C 49 4E 59 00 F1 67 F2 0C 43 50 59 20 23 32 |..INY..g..CPY #2|
00005FE0: 32 AA 24 33 43 20 20 3B 32 32 20 42 4C 4F 43 4B |2.$3C ;22 BLOCK|
00005FF0: 53 00 01 68 F4 0C 42 4E 45 20 53 45 43 4D 41 50 |S..h..BNE SECMAP|
00006000: 30 00 09 68 F6 0C 52 54 53 00 30 68 F8 0C 3B 23 |0..h..RTS.0h..;#|
00006010: 20 5A 57 45 49 53 54 45 4C 4C 49 47 45 20 44 45 | ZWEISTELLIGE DE|
00006020: 4D 49 4D 41 4C 5A 41 48 4C 20 41 55 53 47 2E 23 |MIMALZAHL AUSG.#|
00006030: 00 4C 68 FA 0C 5A 41 48 4C 20 B2 20 AC 20 20 20 |.Lh..ZAHL . . |
00006040: 20 20 20 20 20 20 20 3B 49 4E 20 41 00 59 68 FC | ;IN A.Yh.|
00006050: 0C 4C 44 58 20 23 24 33 30 00 65 68 FE 0C 53 54 |.LDX #$30.eh..ST|
00006060: 58 20 24 34 46 00 73 68 00 0D 5A 41 48 4C 30 20 |X $4F.sh..ZAHL0 |
00006070: 53 45 43 00 97 68 02 0D 53 42 43 20 23 31 30 20 |SEC..h..SBC #10 |
00006080: 20 20 20 20 20 20 20 20 20 20 3B 5A 45 48 4E 45 | ;ZEHNE|
00006090: 52 20 5A 41 45 48 C3 00 A5 68 04 0D 42 43 43 20 |R ZAEH...h..BCC |
000060A0: 5A 41 48 4C 45 00 B2 68 06 0D 49 4E 43 20 24 34 |ZAHLE..h..INC $4|
000060B0: 46 20 00 C0 68 08 0D 42 4E 45 20 5A 41 48 4C 30 |F ..h..BNE ZAHL0|
000060C0: 00 E7 68 0A 0D 5A 41 48 4C 45 20 41 44 43 20 23 |..h..ZAHLE ADC #|
000060D0: 31 30 AA 24 33 30 20 3B 45 49 4E 45 52 20 45 52 |10.$30 ;EINER ER|
000060E0: 4D 49 54 54 45 4C 4E 00 EF 68 0C 0D 50 48 41 00 |MITTELN..h..PHA.|
000060F0: FB 68 0E 0D 4C 44 41 20 24 34 46 00 1F 69 10 0D |.h..LDA $4F..i..|
00006100: 4A 53 52 20 24 46 46 44 32 20 20 20 20 20 20 20 |JSR $FFD2 |
00006110: 20 20 3B 55 4E 44 20 41 55 53 47 45 42 45 4E 00 | ;UND AUSGEBEN.|
00006120: 27 69 12 0D 50 4C 41 00 35 69 14 0D 4A 53 52 20 |'i..PLA.5i..JSR |
00006130: 24 46 46 44 32 00 3D 69 16 0D 52 54 53 00 62 69 |$FFD2.=i..RTS.bi|
00006140: 18 0D 3B 20 23 23 23 20 4E 41 45 43 48 53 54 45 |..; ### NAECHSTE|
00006150: 4E 20 53 45 4B A4 52 20 53 55 43 48 45 4E 20 23 |N SEK.R SUCHEN #|
00006160: 23 23 00 74 69 1A 0D 53 55 43 48 20 4C 44 41 20 |##.ti..SUCH LDA |
00006170: 23 24 30 30 00 9A 69 1C 0D 4C 44 59 20 24 36 31 |#$00..i..LDY $61|
00006180: 20 20 20 20 20 20 20 20 20 20 3B 4E 45 55 45 4E | ;NEUEN|
00006190: 20 42 4C 4F 43 4B 20 41 4C 53 00 BF 69 1E 0D 53 | BLOCK ALS..i..S|
000061A0: 54 41 20 24 33 33 43 2C 59 20 20 20 20 20 20 20 |TA $33C,Y |
000061B0: 3B 47 45 4C 45 53 45 4E 20 4B 45 4E 4E 5A 2E 00 |;GELESEN KENNZ..|
000061C0: E4 69 20 0D 53 54 59 20 24 35 30 20 20 20 20 20 |.i .STY $50 |
000061D0: 20 20 20 20 20 3B 57 49 52 44 20 5A 55 4D 20 41 | ;WIRD ZUM A|
000061E0: 4C 54 45 4E 00 F0 69 22 0D 4C 44 41 20 23 32 31 |LTEN..i".LDA #21|
000061F0: 00 12 6A 24 0D 53 54 41 20 24 34 46 20 20 20 20 |..j$.STA $4F |
00006200: 20 20 20 20 20 20 3B 4D 41 58 2E 53 45 4B A4 52 | ;MAX.SEK.R|
00006210: 45 4E 00 1A 6A 26 0D 43 4C 43 00 26 6A 28 0D 4C |EN..j&.CLC.&j(.L|
00006220: 44 41 20 24 36 31 00 45 6A 2A 0D 41 44 43 20 24 |DA $61.Ej*.ADC $|
00006230: 35 34 20 20 20 20 20 20 20 20 20 20 3B 50 4C 55 |54 ;PLU|
00006240: 53 20 B6 C0 44 00 69 6A 2C 0D 53 54 41 20 24 36 |S ..D.ij,.STA $6|
00006250: 31 20 20 20 20 20 20 20 20 20 20 3B 4E 41 45 43 |1 ;NAEC|
00006260: 48 53 54 45 52 20 42 4C 4B 00 8F 6A 2E 0D 53 55 |HSTER BLK..j..SU|
00006270: 43 48 30 20 43 4D 50 20 24 36 32 20 20 20 20 3B |CH0 CMP $62 ;|
00006280: 4B 4C 45 49 4E 45 52 20 4D 41 58 49 4D 55 4D 00 |KLEINER MAXIMUM.|
00006290: 9D 6A 30 0D 42 43 43 20 53 55 43 48 31 00 C1 6A |.j0.BCC SUCH1..j|
000062A0: 32 0D 53 45 43 20 20 20 20 20 20 20 20 20 20 20 |2.SEC |
000062B0: 20 20 20 3B 53 91 53 54 20 24 36 32 20 41 42 5A | ;S.ST $62 ABZ|
000062C0: 2E 00 CD 6A 34 0D 53 42 43 20 24 36 32 00 D9 6A |...j4.SBC $62..j|
000062D0: 36 0D 53 54 41 20 24 36 31 00 E7 6A 38 0D 53 55 |6.STA $61..j8.SU|
000062E0: 43 48 31 20 54 41 59 00 F6 6A 3A 0D 4C 44 41 20 |CH1 TAY..j:.LDA |
000062F0: 24 33 33 43 2C 59 00 19 6B 3C 0D 42 45 51 20 53 |$33C,Y..k<.BEQ S|
00006300: 55 43 48 32 20 20 20 20 20 20 20 20 3B 53 43 48 |UCH2 ;SCH|
00006310: 91 20 47 45 4C 45 53 45 4E 00 21 6B 3E 0D 43 4C |. GELESEN.!k>.CL|
00006320: 43 00 29 6B 40 0D 52 54 53 00 4E 6B 42 0D 53 55 |C.)k@.RTS.NkB.SU|
00006330: 43 48 32 20 49 4E 43 20 24 36 31 20 20 20 20 3B |CH2 INC $61 ;|
00006340: 4E 41 45 43 48 53 54 45 4E 20 B8 49 45 4E 00 6B |NAECHSTEN .IEN.k|
00006350: 6B 44 0D 4C 44 41 20 24 36 31 20 20 20 20 20 20 |kD.LDA $61 |
00006360: 20 20 20 20 3B 53 55 43 48 45 4E 00 77 6B 46 0D | ;SUCHEN.wkF.|
00006370: 44 45 43 20 24 34 46 00 85 6B 48 0D 42 4E 45 20 |DEC $4F..kH.BNE |
00006380: 53 55 43 48 30 00 A8 6B 4A 0D 53 45 43 20 20 20 |SUCH0..kJ.SEC |
00006390: 20 20 20 20 20 20 20 20 20 20 20 3B 41 4C 4C 45 | ;ALLE|
000063A0: 20 47 45 4C 45 53 45 4E 00 B0 6B 4C 0D 52 54 53 | GELESEN..kL.RTS|
000063B0: 00 C9 6B 4E 0D 3B 20 23 23 20 44 41 54 45 4E 42 |..kN.; ## DATENB|
000063C0: 45 52 45 49 43 48 20 23 23 00 D8 6B 50 0D 53 43 |EREICH ##..kP.SC|
000063D0: 52 45 45 4E 20 B2 20 AC 00 EE 6B 52 0D 2E 42 59 |REEN . ...kR..BY|
000063E0: 54 20 31 39 2C 31 34 32 2C 38 2C 31 35 34 00 1D |T 19,142,8,154..|
000063F0: 6C 54 0D 2E C6 20 22 D3 20 43 41 54 41 4C 47 20 |lT... ". CATALG |
00006400: 42 41 43 4B 55 50 20 56 45 52 49 46 59 20 54 45 |BACKUP VERIFY TE|
00006410: 53 54 45 52 20 43 4F 4D 4D 41 4E 44 22 00 29 6C |STER COMMAND".)l|
00006420: 56 0D 2E 42 59 54 20 31 33 00 35 6C 58 0D 2E C6 |V..BYT 13.5lX...|
00006430: 20 22 B0 40 22 00 41 6C 5A 0D 2E 42 59 54 20 33 | ".@".AlZ..BYT 3|
00006440: 37 00 4D 6C 5C 0D 2E C6 20 22 C0 AE 22 00 59 6C |7.Ml\... "..".Yl|
00006450: 5E 0D 2E 42 59 54 20 31 33 00 65 6C 60 0D 2E C6 |^..BYT 13.el`...|
00006460: 20 22 DD 40 22 00 71 6C 62 0D 2E 42 59 54 20 33 | ".@".qlb..BYT 3|
00006470: 31 00 83 6C 64 0D 2E C6 20 22 20 B0 C0 C0 C0 C0 |1..ld... " .....|
00006480: AE DD 22 00 8F 6C 66 0D 2E 42 59 54 20 31 33 00 |.."..lf..BYT 13.|
00006490: 9B 6C 68 0D 2E C6 20 22 DD 40 22 00 A7 6C 6A 0D |.lh... ".@"..lj.|
000064A0: 2E 42 59 54 20 33 31 00 B9 6C 6C 0D 2E C6 20 22 |.BYT 31..ll... "|
000064B0: 20 DD 46 52 4F 4D DD DD 22 00 C5 6C 6E 0D 2E 42 | .FROM.."..ln..B|
000064C0: 59 54 20 31 33 00 D1 6C 70 0D 2E C6 20 22 DD 40 |YT 13..lp... ".@|
000064D0: 22 00 DD 6C 72 0D 2E 42 59 54 20 33 31 00 EF 6C |"..lr..BYT 31..l|
000064E0: 74 0D 2E C6 20 22 20 DD 20 D5 C9 20 DD DD 22 00 |t... " . .. ..".|
000064F0: FB 6C 76 0D 2E 42 59 54 20 31 33 00 07 6D 78 0D |.lv..BYT 13..mx.|
00006500: 2E C6 20 22 DD 40 22 00 13 6D 7A 0D 2E 42 59 54 |.. ".@"..mz..BYT|
00006510: 20 33 31 00 25 6D 7C 0D 2E C6 20 22 20 DD 20 CA | 31.%m|... " . .|
00006520: CB 20 DD DD 22 00 31 6D 7E 0D 2E 42 59 54 20 31 |. ..".1m~..BYT 1|
00006530: 33 00 3D 6D 80 0D 2E C6 20 22 DD 40 22 00 49 6D |3.=m.... ".@".Im|
00006540: 82 0D 2E 42 59 54 20 33 31 00 5B 6D 84 0D 2E C6 |...BYT 31.[m....|
00006550: 20 22 20 DD 20 D5 C9 20 DD DD 22 00 67 6D 86 0D | " . .. ..".gm..|
00006560: 2E 42 59 54 20 31 33 00 73 6D 88 0D 2E C6 20 22 |.BYT 13.sm.... "|
00006570: DD 40 22 00 7F 6D 8A 0D 2E 42 59 54 20 33 31 00 |.@"..m...BYT 31.|
00006580: 91 6D 8C 0D 2E C6 20 22 20 AD C0 B1 B1 C0 BD DD |.m.... " .......|
00006590: 22 00 9D 6D 8E 0D 2E 42 59 54 20 31 33 00 A9 6D |"..m...BYT 13..m|
000065A0: 90 0D 2E C6 20 22 DD 40 22 00 B5 6D 92 0D 2E 42 |.... ".@"..m...B|
000065B0: 59 54 20 33 31 00 C7 6D 94 0D 2E C6 20 22 20 B0 |YT 31..m.... " .|
000065C0: C0 C0 C0 C0 AE DD 22 00 D3 6D 96 0D 2E 42 59 54 |......"..m...BYT|
000065D0: 20 31 33 00 DF 6D 98 0D 2E C6 20 22 DD 40 22 00 | 13..m.... ".@".|
000065E0: EB 6D 9A 0D 2E 42 59 54 20 33 31 00 FD 6D 9C 0D |.m...BYT 31..m..|
000065F0: 2E C6 20 22 20 DD 20 54 4F 20 DD DD 22 00 09 6E |.. " . TO .."..n|
00006600: 9E 0D 2E 42 59 54 20 31 33 00 15 6E A0 0D 2E C6 |...BYT 13..n....|
00006610: 20 22 DD 40 22 00 21 6E A2 0D 2E 42 59 54 20 33 | ".@".!n...BYT 3|
00006620: 31 00 33 6E A4 0D 2E C6 20 22 20 DD 20 D5 C9 20 |1.3n.... " . .. |
00006630: DD DD 22 00 3F 6E A6 0D 2E 42 59 54 20 31 33 00 |..".?n...BYT 13.|
00006640: 4B 6E A8 0D 2E C6 20 22 DD 40 22 00 57 6E AA 0D |Kn.... ".@".Wn..|
00006650: 2E 42 59 54 20 33 31 00 69 6E AC 0D 2E C6 20 22 |.BYT 31.in.... "|
00006660: 20 DD 20 CA CB 20 DD DD 22 00 75 6E AE 0D 2E 42 | . .. ..".un...B|
00006670: 59 54 20 31 33 00 81 6E B0 0D 2E C6 20 22 DD 40 |YT 13..n.... ".@|
00006680: 22 00 8D 6E B2 0D 2E 42 59 54 20 33 31 00 9F 6E |"..n...BYT 31..n|
00006690: B4 0D 2E C6 20 22 20 DD 20 D5 C9 20 DD DD 22 00 |.... " . .. ..".|
000066A0: AB 6E B6 0D 2E 42 59 54 20 31 33 00 B7 6E B8 0D |.n...BYT 13..n..|
000066B0: 2E C6 20 22 DD 40 22 00 C3 6E BA 0D 2E 42 59 54 |.. ".@"..n...BYT|
000066C0: 20 33 31 00 D5 6E BC 0D 2E C6 20 22 20 AD C0 B1 | 31..n.... " ...|
000066D0: B1 C0 BD DD 22 00 E1 6E BE 0D 2E 42 59 54 20 31 |...."..n...BYT 1|
000066E0: 33 00 ED 6E C0 0D 2E C6 20 22 DD 40 22 00 F9 6E |3..n.... ".@"..n|
000066F0: C2 0D 2E 42 59 54 20 33 31 00 0B 6F C4 0D 2E C6 |...BYT 31..o....|
00006700: 20 22 20 20 50 41 53 53 20 DD 22 00 17 6F C6 0D | " PASS ."..o..|
00006710: 2E 42 59 54 20 31 33 00 23 6F C8 0D 2E C6 20 22 |.BYT 13.#o.... "|
00006720: DD 40 22 00 2F 6F CA 0D 2E 42 59 54 20 33 31 00 |.@"./o...BYT 31.|
00006730: 41 6F CC 0D 2E C6 20 22 20 20 20 30 30 20 20 DD |Ao.... " 00 .|
00006740: 22 00 4D 6F CE 0D 2E 42 59 54 20 31 33 00 59 6F |".Mo...BYT 13.Yo|
00006750: D0 0D 2E C6 20 22 DD 40 22 00 65 6F D2 0D 2E 42 |.... ".@".eo...B|
00006760: 59 54 20 33 37 00 71 6F D4 0D 2E C6 20 22 20 DD |YT 37.qo.... " .|
00006770: 22 00 7D 6F D6 0D 2E 42 59 54 20 31 33 00 89 6F |".}o...BYT 13..o|
00006780: D8 0D 2E C6 20 22 DD 40 22 00 95 6F DA 0D 2E 42 |.... ".@"..o...B|
00006790: 59 54 20 33 31 00 A7 6F DC 0D 2E C6 20 22 20 20 |YT 31..o.... " |
000067A0: 54 49 4D 45 20 DD 22 00 B3 6F DE 0D 2E 42 59 54 |TIME ."..o...BYT|
000067B0: 20 31 33 00 BF 6F E0 0D 2E C6 20 22 DD 40 22 00 | 13..o.... ".@".|
000067C0: CB 6F E2 0D 2E 42 59 54 20 33 31 00 DD 6F E4 0D |.o...BYT 31..o..|
000067D0: 2E C6 20 22 20 B0 C0 C0 C0 C0 AE DD 22 00 E9 6F |.. " ......."..o|
000067E0: E6 0D 2E 42 59 54 20 31 33 00 F5 6F E8 0D 2E C6 |...BYT 13..o....|
000067F0: 20 22 DD 40 22 00 01 70 EA 0D 2E 42 59 54 20 33 | ".@"..p...BYT 3|
00006800: 31 00 13 70 EC 0D 2E C6 20 22 20 DD 20 20 B4 20 |1..p.... " . . |
00006810: DD DD 22 00 1F 70 EE 0D 2E 42 59 54 20 31 33 00 |.."..p...BYT 13.|
00006820: 2B 70 F0 0D 2E C6 20 22 DD 40 22 00 37 70 F2 0D |+p.... ".@".7p..|
00006830: 2E 42 59 54 20 33 31 00 49 70 F4 0D 2E C6 20 22 |.BYT 31.Ip.... "|
00006840: 20 DD 20 CD B4 20 DD DD 22 00 55 70 F6 0D 2E 42 | . .. ..".Up...B|
00006850: 59 54 20 31 33 00 61 70 F8 0D 2E C6 20 22 DD 40 |YT 13.ap.... ".@|
00006860: 22 00 6D 70 FA 0D 2E 42 59 54 20 33 31 00 7F 70 |".mp...BYT 31..p|
00006870: FC 0D 2E C6 20 22 20 DD 20 20 20 20 DD DD 22 00 |.... " . ..".|
00006880: 8B 70 FE 0D 2E 42 59 54 20 31 33 00 97 70 00 0E |.p...BYT 13..p..|
00006890: 2E C6 20 22 DD 40 22 00 A3 70 02 0E 2E 42 59 54 |.. ".@"..p...BYT|
000068A0: 20 33 31 00 B5 70 04 0E 2E C6 20 22 20 DD 30 3A | 31..p.... " .0:|
000068B0: 30 30 DD DD 22 00 C1 70 06 0E 2E 42 59 54 20 31 |00.."..p...BYT 1|
000068C0: 33 00 CD 70 08 0E 2E C6 20 22 DD 40 22 00 D9 70 |3..p.... ".@"..p|
000068D0: 0A 0E 2E 42 59 54 20 33 31 00 EB 70 0C 0E 2E C6 |...BYT 31..p....|
000068E0: 20 22 20 AD C0 C0 C0 C0 BD DD 22 00 F7 70 0E 0E | " ......."..p..|
000068F0: 2E 42 59 54 20 31 33 00 03 71 10 0E 2E C6 20 22 |.BYT 13..q.... "|
00006900: AD 40 22 00 0F 71 12 0E 2E 42 59 54 20 33 37 00 |.@"..q...BYT 37.|
00006910: 1B 71 14 0E 2E C6 20 22 C0 BD 22 00 2D 71 16 0E |.q.... "..".-q..|
00006920: 2E 42 59 54 20 31 39 2C 31 37 2C 31 37 00 38 71 |.BYT 19,17,17.8q|
00006930: 18 0E 2E 42 59 54 20 30 00 47 71 1A 0E 43 4F 4D |...BYT 0.Gq..COM|
00006940: 54 58 54 20 B2 20 AC 00 59 71 1C 0E 2E 42 59 54 |TXT . ..Yq...BYT|
00006950: 20 31 37 2C 32 39 2C 32 39 00 6A 71 1E 0E 2E C6 | 17,29,29.jq....|
00006960: 20 22 43 4F 4D 41 4E 44 40 22 00 88 71 20 0E 2E | "COMAND@"..q ..|
00006970: 42 59 54 20 32 31 2C 33 32 2C 35 38 2C 36 34 2C |BYT 21,32,58,64,|
00006980: 32 31 2C 31 35 37 2C 30 00 9B 71 22 0E 4D B0 45 |21,157,0..q".M.E|
00006990: 20 2E 42 59 54 20 31 33 2C 31 33 00 AA 71 24 0E | .BYT 13,13..q$.|
000069A0: 2E 42 59 54 20 32 39 2C 32 39 00 C4 71 26 0E 2E |.BYT 29,29..q&..|
000069B0: C6 20 22 53 54 4F 50 2F 53 50 41 43 45 20 54 41 |. "STOP/SPACE TA|
000069C0: 53 54 45 22 00 CF 71 28 0E 2E 42 59 54 20 30 00 |STE"..q(..BYT 0.|
000069D0: F5 71 2A 0E 54 41 42 45 4C 4C 45 20 2E 42 59 54 |.q*.TABELLE .BYT|
000069E0: 20 32 39 2C 32 39 2C 32 39 2C 32 39 2C 32 39 2C | 29,29,29,29,29,|
000069F0: 31 37 2C 31 38 00 05 72 2C 0E 2E 42 59 54 20 34 |17,18..r,..BYT 4|
00006A00: 38 2C 31 34 36 00 18 72 2E 0E 2E C6 20 22 31 32 |8,146..r.... "12|
00006A10: 33 34 35 36 37 38 39 22 00 2B 72 30 0E 2E 42 59 |3456789".+r0..BY|
00006A20: 54 20 31 38 2C 34 39 2C 31 34 36 00 3E 72 32 0E |T 18,49,146.>r2.|
00006A30: 2E C6 20 22 31 32 33 34 35 36 37 38 39 22 00 51 |.. "123456789".Q|
00006A40: 72 34 0E 2E 42 59 54 20 31 38 2C 35 30 2C 31 34 |r4..BYT 18,50,14|
00006A50: 36 00 5F 72 36 0E 2E 42 59 54 20 31 33 2C 30 00 |6._r6..BYT 13,0.|
00006A60: 77 72 38 0E 57 45 52 52 B0 20 2E 42 59 54 20 32 |wr8.WERR. .BYT 2|
00006A70: 39 2C 32 39 2C 31 38 00 8C 72 3A 0E 2E C6 20 22 |9,29,18..r:... "|
00006A80: 57 52 49 54 45 20 45 52 52 4F 52 22 00 99 72 3C |WRITE ERROR"..r<|
00006A90: 0E 2E 42 59 54 20 31 34 36 00 AA 72 3E 0E 2E C6 |..BYT 146..r>...|
00006AA0: 20 22 20 54 52 41 43 4B 20 22 00 B5 72 40 0E 2E | " TRACK "..r@..|
00006AB0: 42 59 54 20 30 00 C8 72 42 0E 44 4F 4C 4C 41 52 |BYT 0..rB.DOLLAR|
00006AC0: 20 20 2E C6 20 22 24 22 00 DB 72 44 0E 44 49 52 | .. "$"..rD.DIR|
00006AD0: 43 4E 54 20 20 2E 42 59 54 20 30 00 EE 72 46 0E |CNT .BYT 0..rF.|
00006AE0: 4D 45 4D 57 20 20 2E C6 20 22 4D 2D 57 22 00 01 |MEMW .. "M-W"..|
00006AF0: 73 48 0E 4D 45 4D 57 4C 20 2E 42 59 54 20 24 30 |sH.MEMWL .BYT $0|
00006B00: 30 00 14 73 4A 0E 4D 45 4D 57 48 20 2E 42 59 54 |0..sJ.MEMWH .BYT|
00006B10: 20 24 30 34 00 20 73 4C 0E 2E 42 59 54 20 33 35 | $04. sL..BYT 35|
00006B20: 00 26 73 4E 0E 3B 00 38 73 50 0E 4D 45 4D 45 20 |.&sN.;.8sP.MEME |
00006B30: 2E C6 20 22 4D 2D 45 22 00 49 73 52 0E 2E 42 59 |.. "M-E".IsR..BY|
00006B40: 54 20 24 31 30 2C 24 30 34 00 4F 73 54 0E 3B 00 |T $10,$04.OsT.;.|
00006B50: 63 73 56 0E 3B 46 4C 4F 50 50 59 50 52 4F 47 52 |csV.;FLOPPYPROGR|
00006B60: 41 4D 4D 00 69 73 58 0E 3B 00 76 73 5A 0E AC B2 |AMM.isX.;.vsZ...|
00006B70: 20 24 31 34 30 30 00 85 73 5C 0E 44 4F 53 41 4E | $1400..s\.DOSAN|
00006B80: 46 20 B2 20 AC 00 8B 73 5E 0E 3B 00 91 73 60 0E |F . ...s^.;..s`.|
00006B90: 3B 00 B8 73 62 0E 42 49 54 34 20 B2 20 AC 20 20 |;..sb.BIT4 . . |
00006BA0: 20 20 3B 54 41 42 45 4C 4C 45 20 53 45 52 49 45 | ;TABELLE SERIE|
00006BB0: 4C 4C 45 52 20 42 55 53 00 C7 73 64 0E 42 49 54 |LLER BUS..sd.BIT|
00006BC0: 35 20 B2 20 AC AA 32 00 D6 73 66 0E 42 49 54 36 |5 . ..2..sf.BIT6|
00006BD0: 20 B2 20 AC AA 38 00 E6 73 68 0E 42 49 54 37 20 | . ..8..sh.BIT7 |
00006BE0: B2 20 AC AA 31 30 00 0B 74 6A 0E 2E 42 59 54 20 |. ..10..tj..BYT |
00006BF0: 30 2C 24 32 30 2C 30 2C 24 38 30 2C 24 31 30 2C |0,$20,0,$80,$10,|
00006C00: 24 33 30 2C 24 34 30 2C 24 43 30 00 30 74 6C 0E |$30,$40,$C0.0tl.|
00006C10: 2E 42 59 54 20 30 2C 24 30 32 2C 30 2C 24 30 38 |.BYT 0,$02,0,$08|
00006C20: 2C 24 30 31 2C 24 30 33 2C 24 30 34 2C 24 30 43 |,$01,$03,$04,$0C|
00006C30: 00 38 74 6E 0E 53 45 49 00 5B 74 70 0E 4A 53 52 |.8tn.SEI.[tp.JSR|
00006C40: 20 5A 45 52 4F 20 20 20 20 3B 5A 45 52 4F 50 41 | ZERO ;ZEROPA|
00006C50: 47 45 20 49 4E 49 54 49 41 4C 2E 00 68 74 72 0E |GE INITIAL..htr.|
00006C60: 4C 44 41 20 23 24 30 35 00 87 74 74 0E 4A 53 52 |LDA #$05..tt.JSR|
00006C70: 20 49 4E 46 4C 4F 20 20 20 3B 52 45 53 54 20 50 | INFLO ;REST P|
00006C80: 52 4F 47 52 41 4D 4D 00 A9 74 76 0E 4C 44 41 20 |ROGRAMM..tv.LDA |
00006C90: 23 24 30 36 20 20 20 20 3B 53 43 48 4E 45 4C 4C |#$06 ;SCHNELL|
00006CA0: 20 45 49 4E 4C 45 53 45 4E 00 B7 74 78 0E 4A 53 | EINLESEN..tx.JS|
00006CB0: 52 20 49 4E 46 4C 4F 00 C4 74 7A 0E 4C 44 41 20 |R INFLO..tz.LDA |
00006CC0: 23 24 30 37 00 D2 74 7C 0E 4A 53 52 20 49 4E 46 |#$07..t|.JSR INF|
00006CD0: 4C 4F 00 F6 74 7E 0E 4A 4D 50 20 53 4C 41 56 45 |LO..t~.JMP SLAVE|
00006CE0: 20 20 20 3B 41 55 46 54 52 41 47 20 41 55 53 46 | ;AUFTRAG AUSF|
00006CF0: 55 45 48 52 45 4E 00 0C 75 80 0E 49 4E 46 4C 4F |UEHREN..u..INFLO|
00006D00: 20 53 54 41 20 46 49 41 44 52 AA 32 00 19 75 82 | STA FIADR.2..u.|
00006D10: 0E 4C 44 59 20 23 24 30 30 00 26 75 84 0E 4A 53 |.LDY #$00.&u..JS|
00006D20: 52 20 46 4C 49 4E 00 2E 75 86 0E 52 54 53 00 51 |R FLIN..u..RTS.Q|
00006D30: 75 88 0E 3B 20 23 23 23 20 55 45 42 45 52 54 52 |u..; ### UEBERTR|
00006D40: 41 47 55 4E 47 53 52 4F 55 54 49 4E 45 20 23 23 |AGUNGSROUTINE ##|
00006D50: 23 00 6A 75 8A 0E 3B 20 46 4C 4F 50 50 59 20 AB |#.ju..; FLOPPY .|
00006D60: B1 20 43 4F 4D 50 55 54 45 52 00 8E 75 8C 0E 46 |. COMPUTER..u..F|
00006D70: 4C 4F 55 54 20 4C 44 41 20 24 31 38 30 30 20 20 |LOUT LDA $1800 |
00006D80: 20 3B 57 41 52 54 45 4E 20 41 55 46 20 C1 00 9C | ;WARTEN AUF ...|
00006D90: 75 8E 0E 42 50 4C 20 46 4C 4F 55 54 00 BC 75 90 |u..BPL FLOUT..u.|
00006DA0: 0E 4C 44 41 20 23 24 31 30 20 20 20 20 20 20 20 |.LDA #$10 |
00006DB0: 20 20 20 3B 83 20 53 45 54 5A 45 4E 00 CA 75 92 | ;. SETZEN..u.|
00006DC0: 0E 53 54 41 20 24 31 38 30 30 00 EB 75 94 0E 46 |.STA $1800..u..F|
00006DD0: 4F 41 44 52 20 4C 44 41 20 24 30 33 30 30 2C 59 |OADR LDA $0300,Y|
00006DE0: 20 3B 44 41 54 45 4E 20 48 4F C3 00 F7 75 96 0E | ;DATEN HO...u..|
00006DF0: 53 54 41 20 24 30 46 00 FF 75 98 0E 4C 53 52 00 |STA $0F..u..LSR.|
00006E00: 07 76 9A 0E 4C 53 52 00 0F 76 9C 0E 4C 53 52 00 |.v..LSR..v..LSR.|
00006E10: 17 76 9E 0E 4C 53 52 00 3B 76 A0 0E 46 4C 4F 55 |.v..LSR.;v..FLOU|
00006E20: 54 30 20 4C 44 58 20 24 31 38 30 30 20 20 3B 57 |T0 LDX $1800 ;W|
00006E30: 41 52 54 45 4E 20 41 55 46 20 C1 00 4A 76 A2 0E |ARTEN AUF ..Jv..|
00006E40: 42 50 4C 20 46 4C 4F 55 54 30 00 6D 76 A4 0E 53 |BPL FLOUT0.mv..S|
00006E50: 54 41 20 24 31 38 30 30 20 20 20 20 20 20 20 20 |TA $1800 |
00006E60: 20 3B 42 49 54 20 35 20 55 4E 44 20 37 00 75 76 | ;BIT 5 UND 7.uv|
00006E70: A6 0E 41 53 4C 00 80 76 A8 0E AF 20 23 24 30 46 |..ASL..v... #$0F|
00006E80: 00 A3 76 AA 0E 53 54 41 20 24 31 38 30 30 20 20 |..v..STA $1800 |
00006E90: 20 20 20 20 20 20 20 3B 42 49 54 20 34 20 55 4E | ;BIT 4 UN|
00006EA0: 44 20 36 00 B0 76 AC 0E 4C 44 41 20 21 24 30 46 |D 6..v..LDA !$0F|
00006EB0: 00 BB 76 AE 0E AF 20 23 24 30 46 00 DE 76 B0 0E |..v... #$0F..v..|
00006EC0: 53 54 41 20 24 31 38 30 30 20 20 20 20 20 20 20 |STA $1800 |
00006ED0: 20 20 3B 42 49 54 20 31 20 55 4E 44 20 33 00 E6 | ;BIT 1 UND 3..|
00006EE0: 76 B2 0E 41 53 4C 00 F1 76 B4 0E AF 20 23 24 30 |v..ASL..v... #$0|
00006EF0: 46 00 14 77 B6 0E 53 54 41 20 24 31 38 30 30 20 |F..w..STA $1800 |
00006F00: 20 20 20 20 20 20 20 20 3B 42 49 54 20 30 20 55 | ;BIT 0 U|
00006F10: 4E 44 20 32 00 37 77 B8 0E 49 4E 59 20 20 20 20 |ND 2.7w..INY |
00006F20: 20 20 20 20 20 20 20 20 20 20 20 3B 55 45 42 45 | ;UEBE|
00006F30: 52 54 52 41 47 45 4E 00 5D 77 BA 0E 42 4E 45 20 |RTRAGEN.]w..BNE |
00006F40: 46 4F 41 44 52 20 20 20 20 20 20 20 20 20 3B 4E |FOADR ;N|
00006F50: 41 45 43 48 53 54 45 53 20 42 59 54 45 00 6A 77 |AECHSTES BYTE.jw|
00006F60: BC 0E 4C 44 58 20 23 24 30 46 00 78 77 BE 0E 53 |..LDX #$0F.xw..S|
00006F70: 54 58 20 24 31 38 30 30 00 80 77 C0 0E 52 54 53 |TX $1800..w..RTS|
00006F80: 00 A3 77 C2 0E 3B 20 23 23 23 20 55 45 42 45 52 |..w..; ### UEBER|
00006F90: 54 52 41 47 55 4E 47 53 52 4F 55 54 49 4E 45 20 |TRAGUNGSROUTINE |
00006FA0: 23 23 23 00 BC 77 C4 0E 3B 20 46 4C 4F 50 50 59 |###..w..; FLOPPY|
00006FB0: 20 B3 AB 20 43 4F 4D 50 55 54 45 52 00 CE 77 C6 | .. COMPUTER..w.|
00006FC0: 0E 46 4C 49 4E 20 4C 44 58 20 23 24 31 30 00 F1 |.FLIN LDX #$10..|
00006FD0: 77 C8 0E 46 4C 49 4E 30 20 4C 44 41 20 24 31 38 |w..FLIN0 LDA $18|
00006FE0: 30 30 20 20 3B 57 41 52 54 45 4E 20 41 55 46 20 |00 ;WARTEN AUF |
00006FF0: C1 00 FF 77 CA 0E 42 50 4C 20 46 4C 49 4E 30 00 |...w..BPL FLIN0.|
00007000: 1E 78 CC 0E 53 54 58 20 24 31 38 30 30 20 20 20 |.x..STX $1800 |
00007010: 20 20 20 20 20 3B 83 20 53 45 54 5A 45 4E 00 26 | ;. SETZEN.&|
00007020: 78 CE 0E 4E 4F 50 00 2E 78 D0 0E 4E 4F 50 00 50 |x..NOP..x..NOP.P|
00007030: 78 D2 0E 4C 44 41 20 23 24 30 30 20 20 20 20 20 |x..LDA #$00 |
00007040: 20 20 20 20 3B 52 55 45 43 4B 53 45 54 5A 45 4E | ;RUECKSETZEN|
00007050: 00 5E 78 D4 0E 53 54 41 20 24 31 38 30 30 00 66 |.^x..STA $1800.f|
00007060: 78 D6 0E 4E 4F 50 00 6E 78 D8 0E 4E 4F 50 00 91 |x..NOP.nx..NOP..|
00007070: 78 DA 0E 46 4C 49 4E 32 20 4C 44 41 20 24 31 38 |x..FLIN2 LDA $18|
00007080: 30 30 20 20 3B 57 41 52 54 45 4E 20 41 55 46 20 |00 ;WARTEN AUF |
00007090: C1 00 9F 78 DC 0E 42 50 4C 20 46 4C 49 4E 32 00 |...x..BPL FLIN2.|
000070A0: A7 78 DE 0E 4E 4F 50 00 AF 78 E0 0E 4E 4F 50 00 |.x..NOP..x..NOP.|
000070B0: D1 78 E2 0E 4C 44 58 20 24 31 38 30 30 20 20 20 |.x..LDX $1800 |
000070C0: 20 20 20 20 20 3B 42 49 54 20 34 20 55 4E 44 20 | ;BIT 4 UND |
000070D0: 35 00 E0 78 E4 0E 4C 44 41 20 42 49 54 34 2C 58 |5..x..LDA BIT4,X|
000070E0: 00 E8 78 E6 0E 4E 4F 50 00 0A 79 E8 0E 4C 44 58 |..x..NOP..y..LDX|
000070F0: 20 24 31 38 30 30 20 20 20 20 20 20 20 20 3B 42 | $1800 ;B|
00007100: 49 54 20 36 20 55 4E 44 20 37 00 18 79 EA 0E B0 |IT 6 UND 7..y...|
00007110: 41 20 42 49 54 35 2C 58 00 20 79 EC 0E 4E 4F 50 |A BIT5,X. y..NOP|
00007120: 00 28 79 EE 0E 4E 4F 50 00 30 79 F0 0E 4E 4F 50 |.(y..NOP.0y..NOP|
00007130: 00 52 79 F2 0E 4C 44 58 20 24 31 38 30 30 20 20 |.Ry..LDX $1800 |
00007140: 20 20 20 20 20 20 3B 42 49 54 20 30 20 55 4E 44 | ;BIT 0 UND|
00007150: 20 31 00 60 79 F4 0E B0 41 20 42 49 54 36 2C 58 | 1.`y...A BIT6,X|
00007160: 00 68 79 F6 0E 4E 4F 50 00 8A 79 F8 0E 4C 44 58 |.hy..NOP..y..LDX|
00007170: 20 24 31 38 30 30 20 20 20 20 20 20 20 20 3B 42 | $1800 ;B|
00007180: 49 54 20 32 20 55 4E 44 20 33 00 A3 79 FA 0E B0 |IT 2 UND 3..y...|
00007190: 41 20 42 49 54 37 2C 58 20 20 20 20 20 20 20 3B |A BIT7,X ;|
000071A0: 48 4F C3 00 C4 79 FC 0E 46 49 41 44 52 20 53 54 |HO...y..FIADR ST|
000071B0: 41 20 24 30 33 30 30 2C 59 20 3B 53 50 45 49 43 |A $0300,Y ;SPEIC|
000071C0: 48 45 52 4E 00 EA 79 FE 0E 49 4E 59 20 20 20 20 |HERN..y..INY |
000071D0: 20 20 20 20 20 20 20 20 20 20 20 3B 4E 41 45 43 | ;NAEC|
000071E0: 48 53 54 45 53 20 42 59 54 45 00 F8 79 00 0F 42 |HSTES BYTE..y..B|
000071F0: 4E 45 20 46 4C 49 4E 32 00 05 7A 02 0F 4C 44 58 |NE FLIN2..z..LDX|
00007200: 20 23 24 30 46 00 13 7A 04 0F 53 54 58 20 24 31 | #$0F..z..STX $1|
00007210: 38 30 30 00 1B 7A 06 0F 52 54 53 00 41 7A 08 0F |800..z..RTS.Az..|
00007220: 3B 20 23 23 23 20 5A 45 52 4F 50 41 47 45 20 49 |; ### ZEROPAGE I|
00007230: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 23 23 |NITIALISIEREN ##|
00007240: 23 00 4E 7A 0A 0F 5A 45 52 4F 20 B2 20 AC 00 6E |#.Nz..ZERO . ..n|
00007250: 7A 0C 0F 4C 44 41 20 23 24 31 30 20 20 20 3B 54 |z..LDA #$10 ;T|
00007260: 49 4D 45 52 20 53 43 48 4E 45 4C 4C 45 52 00 7C |IMER SCHNELLER.||
00007270: 7A 0E 0F 53 54 41 20 24 31 43 30 37 00 89 7A 10 |z..STA $1C07..z.|
00007280: 0F 4C 44 41 20 23 24 30 30 00 AB 7A 12 0F 53 54 |.LDA #$00..z..ST|
00007290: 41 20 24 32 30 20 20 20 20 3B 4B 45 49 4E 20 4B |A $20 ;KEIN K|
000072A0: 4F 50 46 54 52 41 4E 53 50 B0 54 00 CB 7A 14 0F |OPFTRANSP.T..z..|
000072B0: 53 54 41 20 24 33 46 20 20 20 20 3B 50 55 46 46 |STA $3F ;PUFF|
000072C0: 45 52 20 30 20 5A 55 47 52 8B 46 00 DC 7A 16 0F |ER 0 ZUGR.F..z..|
000072D0: 53 54 41 20 24 35 30 20 20 20 20 3B 00 01 7B 18 |STA $50 ;..{.|
000072E0: 0F 53 54 41 20 24 32 46 45 20 20 20 3B 4B 45 49 |.STA $2FE ;KEI|
000072F0: 4E 45 20 53 50 55 52 56 45 52 53 54 45 4C 4C 47 |NE SPURVERSTELLG|
00007300: 2E 00 0E 7B 1A 0F 4C 44 41 20 23 24 46 46 00 2F |...{..LDA #$FF./|
00007310: 7B 1C 0F 53 54 41 20 24 33 45 20 20 20 20 3B 4B |{..STA $3E ;K|
00007320: 45 49 4E 20 4C 41 55 46 57 2E 41 4B 54 49 56 00 |EIN LAUFW.AKTIV.|
00007330: 3C 7B 1E 0F 4C 44 41 20 23 24 30 30 00 60 7B 20 |<{..LDA #$00.`{ |
00007340: 0F 53 54 41 20 24 33 30 20 20 20 20 3B 50 55 46 |.STA $30 ;PUF|
00007350: 46 45 52 41 44 52 45 53 53 45 20 24 30 33 30 30 |FERADRESSE $0300|
00007360: 00 6D 7B 22 0F 4C 44 41 20 23 24 30 33 00 79 7B |.m{".LDA #$03.y{|
00007370: 24 0F 53 54 41 20 24 33 31 00 81 7B 26 0F 43 4C |$.STA $31..{&.CL|
00007380: 43 00 89 7B 28 0F 52 54 53 00 A8 7B 2A 0F 3B 20 |C..{(.RTS..{*.; |
00007390: 23 23 23 20 53 54 41 50 45 4C 20 53 50 45 49 43 |### STAPEL SPEIC|
000073A0: 48 45 52 4E 20 23 23 23 00 B9 7B 2C 0F 53 54 41 |HERN ###..{,.STA|
000073B0: 43 4B 53 45 54 20 B2 20 AC 00 DE 7B 2E 0F 54 53 |CKSET . ...{..TS|
000073C0: 58 20 20 20 20 20 20 20 20 20 3B 57 49 43 48 54 |X ;WICHT|
000073D0: 49 47 20 46 55 45 52 20 52 55 45 43 4B AB 00 FC |IG FUER RUECK...|
000073E0: 7B 30 0F 53 54 58 20 24 34 39 20 20 20 20 20 3B |{0.STX $49 ;|
000073F0: 53 50 8A 47 20 41 55 53 20 4A 4F 42 00 1E 7C 32 |SP.G AUS JOB..|2|
00007400: 0F 4C 44 41 20 23 24 45 45 20 20 20 20 3B 4B 4F |.LDA #$EE ;KO|
00007410: 50 46 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 2C |PF EINSCHALTEN.,|
00007420: 7C 34 0F 53 54 41 20 24 31 43 30 43 00 34 7C 36 ||4.STA $1C0C.4|6|
00007430: 0F 52 54 53 00 50 7C 38 0F 3B 20 23 23 23 20 53 |.RTS.P|8.; ### S|
00007440: 59 4E 43 48 52 91 49 53 41 54 49 91 20 23 23 23 |YNCHR.ISATI. ###|
00007450: 00 5D 7C 3A 0F 53 59 4E 43 20 B2 20 AC 00 7F 7C |.]|:.SYNC . ...||
00007460: 3C 0F 4C 44 41 20 23 24 46 46 20 20 20 20 20 20 |<.LDA #$FF |
00007470: 20 20 3B 54 49 4D 45 52 20 53 45 54 5A 45 4E 00 | ;TIMER SETZEN.|
00007480: 8D 7C 3E 0F 53 54 41 20 24 31 38 30 35 00 B3 7C |.|>.STA $1805..||
00007490: 40 0F 53 59 4E 43 31 20 42 49 54 20 24 31 38 30 |@.SYNC1 BIT $180|
000074A0: 35 20 3B 54 49 4D 45 52 20 41 42 47 45 4C 41 55 |5 ;TIMER ABGELAU|
000074B0: 46 45 4E 00 C1 7C 42 0F 42 50 4C 20 53 59 4E 43 |FEN..|B.BPL SYNC|
000074C0: 32 00 E4 7C 44 0F 42 49 54 20 24 31 43 30 30 20 |2..|D.BIT $1C00 |
000074D0: 20 20 20 20 20 20 3B 53 59 4E 43 20 41 42 57 41 | ;SYNC ABWA|
000074E0: 52 54 45 4E 00 F2 7C 46 0F 42 4D 49 20 53 59 4E |RTEN..|F.BMI SYN|
000074F0: 43 31 00 11 7D 48 0F 4C 44 41 20 24 31 43 30 31 |C1..}H.LDA $1C01|
00007500: 20 20 20 20 20 20 20 3B 50 B0 54 20 4C 45 53 45 | ;P.T LESE|
00007510: 4E 00 19 7D 4A 0F 43 4C 56 00 26 7D 4C 0F 4C 44 |N..}J.CLV.&}L.LD|
00007520: 59 20 23 24 30 30 00 2E 7D 4E 0F 43 4C 43 00 36 |Y #$00..}N.CLC.6|
00007530: 7D 50 0F 52 54 53 00 44 7D 52 0F 53 59 4E 43 32 |}P.RTS.D}R.SYNC2|
00007540: 20 53 45 43 00 55 7D 54 0F 52 54 53 20 3B 20 46 | SEC.U}T.RTS ; F|
00007550: 45 48 4C 45 52 00 71 7D 56 0F 3B 20 23 23 23 20 |EHLER.q}V.; ### |
00007560: 53 50 55 52 20 45 52 48 4F 45 48 45 4E 20 23 23 |SPUR ERHOEHEN ##|
00007570: 23 00 7E 7D 58 0F 50 4C 55 53 20 B2 20 AC 00 9D |#.~}X.PLUS . ...|
00007580: 7D 5A 0F 4C 44 58 20 24 31 43 30 30 20 20 20 20 |}Z.LDX $1C00 |
00007590: 3B 4D 4F 4D 45 4E C0 45 20 53 50 55 52 00 C3 7D |;MOMEN.E SPUR..}|
000075A0: 5C 0F 49 4E 58 20 20 20 20 20 20 20 20 20 20 3B |\.INX ;|
000075B0: 49 4E 20 42 49 54 20 30 AD 31 20 56 91 20 24 31 |IN BIT 0.1 V. $1|
000075C0: 43 30 30 00 E3 7D 5E 0F 54 58 41 20 20 20 20 20 |C00..}^.TXA |
000075D0: 20 20 20 20 20 3B 55 4D 20 31 20 45 52 48 4F 45 | ;UM 1 ERHOE|
000075E0: 48 45 4E 00 EE 7D 60 0F AF 20 23 24 30 33 00 FF |HEN..}`.. #$03..|
000075F0: 7D 62 0F 50 4C 4D 49 20 53 54 41 20 24 34 42 00 |}b.PLMI STA $4B.|
00007600: 0D 7E 64 0F 4C 44 41 20 24 31 43 30 30 00 18 7E |.~d.LDA $1C00..~|
00007610: 66 0F AF 20 23 24 46 43 00 23 7E 68 0F B0 41 20 |f.. #$FC.#~h..A |
00007620: 24 34 42 00 4A 7E 6A 0F 53 54 41 20 24 31 43 30 |$4B.J~j.STA $1C0|
00007630: 30 20 20 20 20 3B 55 4E 44 20 57 49 45 44 45 52 |0 ;UND WIEDER|
00007640: 20 53 50 45 49 43 48 45 52 4E 00 6F 7E 6C 0F 4C | SPEICHERN.o~l.L|
00007650: 44 41 20 23 24 39 30 20 20 20 20 20 3B 57 41 52 |DA #$90 ;WAR|
00007660: 54 45 5A 45 49 54 20 49 4E 20 54 49 4D 45 52 00 |TEZEIT IN TIMER.|
00007670: 81 7E 6E 0F 54 49 4D 20 53 54 41 20 24 31 38 30 |.~n.TIM STA $180|
00007680: 35 00 94 7E 70 0F 50 4C 4D 57 20 4C 44 41 20 24 |5..~p.PLMW LDA $|
00007690: 31 38 30 35 00 AD 7E 72 0F 42 4D 49 20 50 4C 4D |1805..~r.BMI PLM|
000076A0: 57 20 20 20 20 20 3B 57 41 52 54 45 4E 00 B5 7E |W ;WARTEN..~|
000076B0: 74 0F 52 54 53 00 D4 7E 76 0F 3B 20 23 23 23 20 |t.RTS..~v.; ### |
000076C0: 53 50 55 52 20 45 52 4E 49 45 44 52 49 47 45 4E |SPUR ERNIEDRIGEN|
000076D0: 20 23 23 23 00 E2 7E 78 0F 4D 49 4E 55 53 20 B2 | ###..~x.MINUS .|
000076E0: 20 AC 00 01 7F 7A 0F 4C 44 58 20 24 31 43 30 30 | ....z.LDX $1C00|
000076F0: 20 20 20 20 3B 57 49 45 20 45 52 48 4F 45 48 45 | ;WIE ERHOEHE|
00007700: 4E 00 09 7F 7C 0F 44 45 58 00 11 7F 7E 0F 54 58 |N...|.DEX...~.TX|
00007710: 41 00 1C 7F 80 0F AF 20 23 24 30 33 00 29 7F 82 |A...... #$03.)..|
00007720: 0F 4A 4D 50 20 50 4C 4D 49 00 47 7F 84 0F 3B 20 |.JMP PLMI.G...; |
00007730: 23 23 23 20 4B 4F 50 46 20 B9 49 54 49 91 49 45 |### KOPF .ITI.IE|
00007740: 52 45 4E 20 23 23 23 00 69 7F 86 0F 4B 4F 50 46 |REN ###.i...KOPF|
00007750: 20 53 54 41 20 24 32 32 20 20 20 3B 41 55 46 20 | STA $22 ;AUF |
00007760: 53 50 55 52 20 49 4E 20 41 00 75 7F 88 0F 53 54 |SPUR IN A.u...ST|
00007770: 41 20 24 31 38 00 8F 7F 8A 0F 41 53 4C 20 20 20 |A $18.....ASL |
00007780: 20 20 20 20 20 20 20 20 20 3B 4D 41 4C 20 32 00 | ;MAL 2.|
00007790: B4 7F 8C 0F 41 44 43 20 24 46 46 20 20 20 20 20 |....ADC $FF |
000077A0: 20 20 20 3B 50 4C 55 53 20 56 45 52 53 54 45 4C | ;PLUS VERSTEL|
000077B0: 4C 55 4E 47 00 D8 7F 8E 0F 53 54 41 20 24 46 30 |LUNG.....STA $F0|
000077C0: 20 20 20 20 20 20 20 20 3B 4D 41 43 48 54 20 4E | ;MACHT N|
000077D0: 45 55 45 20 53 50 55 52 00 EA 7F 90 0F 4B 4F 50 |EUE SPUR.....KOP|
000077E0: 46 57 20 4C 44 41 20 24 46 31 00 08 80 92 0F 43 |FW LDA $F1.....C|
000077F0: 4D 50 20 24 46 30 20 20 20 20 20 20 20 20 3B 41 |MP $F0 ;A|
00007800: 4C 54 45 20 53 50 55 52 00 23 80 94 0F 42 45 51 |LTE SPUR.#...BEQ|
00007810: 20 4B 4F 50 46 45 20 20 20 20 20 20 3B 47 4C 45 | KOPFE ;GLE|
00007820: 49 43 48 00 31 80 96 0F 42 43 53 20 4B 4F 50 46 |ICH.1...BCS KOPF|
00007830: 4B 00 57 80 98 0F 4A 53 52 20 50 4C 55 53 20 20 |K.W...JSR PLUS |
00007840: 20 20 20 20 20 3B 4E 45 55 45 20 49 53 54 20 47 | ;NEUE IST G|
00007850: 52 4F 45 53 53 45 52 00 63 80 9A 0F 49 4E 43 20 |ROESSER.c...INC |
00007860: 24 46 31 00 71 80 9C 0F 42 4E 45 20 4B 4F 50 46 |$F1.q...BNE KOPF|
00007870: 57 00 97 80 9E 0F 4B 4F 50 46 4B 20 4A 53 52 20 |W.....KOPFK JSR |
00007880: 4D 49 4E 55 53 20 3B 4E 45 55 45 20 49 53 54 20 |MINUS ;NEUE IST |
00007890: 4B 4C 45 49 4E 45 52 00 A3 80 A0 0F 44 45 43 20 |KLEINER.....DEC |
000078A0: 24 46 31 00 B1 80 A2 0F 42 4E 45 20 4B 4F 50 46 |$F1.....BNE KOPF|
000078B0: 57 00 D1 80 A4 0F 4B 4F 50 46 45 20 4C 44 41 20 |W.....KOPFE LDA |
000078C0: 24 46 45 20 20 3B 53 50 55 52 42 45 52 45 49 43 |$FE ;SPURBEREIC|
000078D0: 48 00 F8 80 A6 0F 41 53 4C 20 20 20 20 20 20 20 |H.....ASL |
000078E0: 20 20 20 20 20 3B 5A 55 52 20 42 45 53 54 49 4D | ;ZUR BESTIM|
000078F0: 4D 55 4E 47 20 44 45 52 00 1F 81 A8 0F 41 53 4C |MUNG DER.....ASL|
00007900: 20 20 20 20 20 20 20 20 20 20 20 20 3B 4C 45 53 | ;LES|
00007910: 45 47 45 53 43 48 57 49 4E 44 49 47 4B 54 2E 00 |EGESCHWINDIGKT..|
00007920: 27 81 AA 0F 41 53 4C 00 2F 81 AC 0F 41 53 4C 00 |'...ASL./...ASL.|
00007930: 37 81 AE 0F 41 53 4C 00 43 81 B0 0F 53 54 41 20 |7...ASL.C...STA |
00007940: 24 34 42 00 64 81 B2 0F 4C 44 41 20 24 31 43 30 |$4B.d...LDA $1C0|
00007950: 30 20 20 20 20 20 20 3B 4E 41 43 48 20 42 49 54 |0 ;NACH BIT|
00007960: 20 35 AD 36 00 7F 81 B4 0F AF 20 23 24 39 46 20 | 5.6...... #$9F |
00007970: 20 20 20 20 20 20 3B 56 91 20 24 31 43 30 30 00 | ;V. $1C00.|
00007980: 8A 81 B6 0F B0 41 20 24 34 42 00 98 81 B8 0F 53 |.....A $4B.....S|
00007990: 54 41 20 24 31 43 30 30 00 A0 81 BA 0F 52 54 53 |TA $1C00.....RTS|
000079A0: 00 BB 81 BC 0F 3B 20 23 23 23 20 48 45 41 44 45 |.....; ### HEADE|
000079B0: 52 20 4C 45 53 45 4E 20 23 23 23 00 C8 81 BE 0F |R LESEN ###.....|
000079C0: 48 45 41 44 20 B2 20 AC 00 DF 81 C0 0F 4C 44 41 |HEAD . ......LDA|
000079D0: 20 24 31 32 20 20 20 20 20 20 20 3B 49 44 31 00 | $12 ;ID1.|
000079E0: EB 81 C2 0F 53 54 41 20 24 31 36 00 02 82 C4 0F |....STA $16.....|
000079F0: 4C 44 41 20 24 31 33 20 20 20 20 20 20 20 3B 49 |LDA $13 ;I|
00007A00: 44 32 00 0E 82 C6 0F 53 54 41 20 24 31 37 00 27 |D2.....STA $17.'|
00007A10: 82 C8 0F 4C 44 41 20 24 46 42 20 20 20 20 20 20 |...LDA $FB |
00007A20: 20 3B 54 52 41 43 4B 00 33 82 CA 0F 53 54 41 20 | ;TRACK.3...STA |
00007A30: 24 31 38 00 4C 82 CC 0F 4C 44 41 20 24 46 43 20 |$18.L...LDA $FC |
00007A40: 20 20 20 20 20 20 3B 53 45 4B A4 52 00 58 82 CE | ;SEK.R.X..|
00007A50: 0F 53 54 41 20 24 31 39 00 63 82 D0 0F 45 B0 20 |.STA $19.c...E. |
00007A60: 24 31 36 00 6E 82 D2 0F 45 B0 20 24 31 37 00 79 |$16.n...E. $17.y|
00007A70: 82 D4 0F 45 B0 20 24 31 38 00 9E 82 D6 0F 53 54 |...E. $18.....ST|
00007A80: 41 20 24 31 41 20 20 20 20 20 20 20 3B 50 52 55 |A $1A ;PRU|
00007A90: 45 46 53 55 4D 4D 45 20 42 49 4C 44 45 4E 00 C0 |EFSUMME BILDEN..|
00007AA0: 82 D8 0F 4A 53 52 20 24 46 39 33 34 20 20 20 20 |...JSR $F934 |
00007AB0: 20 3B 56 45 52 53 43 48 4C 55 45 53 53 45 4C 4E | ;VERSCHLUESSELN|
00007AC0: 00 CC 82 DA 0F 4C 44 41 20 23 30 30 00 F3 82 DC |.....LDA #00....|
00007AD0: 0F 53 54 41 20 24 30 30 20 20 20 20 20 20 20 3B |.STA $00 ;|
00007AE0: 4A 4F 42 4D 45 4C 44 55 4E 47 20 4C 4F 45 53 43 |JOBMELDUNG LOESC|
00007AF0: 48 45 4E 00 12 83 DE 0F 4A 53 52 20 53 54 41 43 |HEN.....JSR STAC|
00007B00: 4B 53 45 54 20 20 3B 53 54 41 50 45 4C B9 49 54 |KSET ;STAPEL.IT|
00007B10: 49 91 00 35 83 E0 0F 4C 44 58 20 23 34 30 20 20 |I..5...LDX #40 |
00007B20: 20 20 20 20 20 3B 34 30 20 4C 45 53 45 56 45 52 | ;40 LESEVER|
00007B30: 53 55 43 48 45 00 56 83 E2 0F 4A 53 52 20 24 46 |SUCHE.V...JSR $F|
00007B40: 35 33 38 20 20 20 20 20 3B 53 59 4E 43 20 41 42 |538 ;SYNC AB|
00007B50: 57 41 52 54 45 4E 00 60 83 E4 0F 4C 44 41 20 30 |WARTEN.`...LDA 0|
00007B60: 00 84 83 E6 0F 43 4D 50 20 23 32 20 20 20 20 20 |.....CMP #2 |
00007B70: 20 20 20 3B 42 45 49 20 46 45 48 4C 45 52 20 43 | ;BEI FEHLER C|
00007B80: 41 52 52 59 00 8C 83 E8 0F 52 54 53 00 AB 83 EA |ARRY.....RTS....|
00007B90: 0F 3B 20 23 23 23 20 55 50 52 47 20 42 4C 4F 43 |.; ### UPRG BLOC|
00007BA0: 4B 20 4C 45 53 45 4E 20 23 23 23 00 B8 83 EC 0F |K LESEN ###.....|
00007BB0: 42 4C 43 4B 20 B2 20 AC 00 D9 83 EE 0F 4A 53 52 |BLCK . ......JSR|
00007BC0: 20 53 54 41 43 4B 53 45 54 20 20 20 20 20 20 20 | STACKSET |
00007BD0: 3B 4B 4F 50 46 20 45 49 4E 00 FF 83 F0 0F 4A 53 |;KOPF EIN.....JS|
00007BE0: 52 20 53 59 4E 43 20 20 20 20 20 20 20 20 20 20 |R SYNC |
00007BF0: 20 3B 53 59 4E 43 20 41 42 57 41 52 54 45 4E 00 | ;SYNC ABWARTEN.|
00007C00: 23 84 F2 0F 42 4C 4F 43 4B 30 20 42 56 43 20 42 |#...BLOCK0 BVC B|
00007C10: 4C 4F 43 4B 30 20 20 3B 42 59 54 45 20 42 45 52 |LOCK0 ;BYTE BER|
00007C20: 45 49 54 00 2B 84 F4 0F 43 4C 56 00 4E 84 F6 0F |EIT.+...CLV.N...|
00007C30: 4C 44 41 20 24 31 43 30 31 20 20 20 20 20 20 20 |LDA $1C01 |
00007C40: 20 20 20 3B 42 59 54 45 20 4C 45 53 45 4E 00 73 | ;BYTE LESEN.s|
00007C50: 84 F8 0F 53 54 41 20 24 30 33 30 30 2C 59 20 20 |...STA $0300,Y |
00007C60: 20 20 20 20 20 20 3B 4E 41 43 48 20 24 30 33 30 | ;NACH $030|
00007C70: 30 2C 59 00 7B 84 FA 0F 49 4E 59 00 8A 84 FC 0F |0,Y.{...INY.....|
00007C80: 42 4E 45 20 42 4C 4F 43 4B 30 00 97 84 FE 0F 4C |BNE BLOCK0.....L|
00007C90: 44 59 20 23 24 42 44 00 AD 84 00 10 42 4C 4F 43 |DY #$BD.....BLOC|
00007CA0: 4B 31 20 42 56 43 20 42 4C 4F 43 4B 31 00 B5 84 |K1 BVC BLOCK1...|
00007CB0: 02 10 43 4C 56 00 D4 84 04 10 4C 44 41 20 24 31 |..CLV.....LDA $1|
00007CC0: 43 30 31 20 20 20 20 20 20 20 20 20 20 3B 54 45 |C01 ;TE|
00007CD0: 49 4C 20 32 00 F9 84 06 10 53 54 41 20 24 30 31 |IL 2.....STA $01|
00007CE0: 30 30 2C 59 20 20 20 20 20 20 20 20 3B 4E 41 43 |00,Y ;NAC|
00007CF0: 48 20 24 30 31 42 44 2C 59 00 01 85 08 10 49 4E |H $01BD,Y.....IN|
00007D00: 59 00 10 85 0A 10 42 4E 45 20 42 4C 4F 43 4B 31 |Y.....BNE BLOCK1|
00007D10: 00 18 85 0C 10 52 54 53 00 3B 85 0E 10 3B 20 23 |.....RTS.;...; #|
00007D20: 23 23 20 55 50 52 47 20 42 4C 4F 43 4B 20 53 43 |## UPRG BLOCK SC|
00007D30: 48 52 45 49 42 45 4E 20 23 23 23 00 49 85 10 10 |HREIBEN ###.I...|
00007D40: 57 52 49 54 45 20 B2 20 AC 00 6D 85 12 10 4C 44 |WRITE . ..m...LD|
00007D50: 41 20 23 24 45 45 20 20 20 20 20 20 20 20 3B 4B |A #$EE ;K|
00007D60: 4F 50 46 20 41 55 46 20 4C 45 53 45 4E 00 7B 85 |OPF AUF LESEN.{.|
00007D70: 14 10 53 54 41 20 24 31 43 30 43 00 9B 85 16 10 |..STA $1C0C.....|
00007D80: 4C 44 58 20 23 24 30 39 20 20 20 20 20 20 20 20 |LDX #$09 |
00007D90: 3B 39 20 42 59 54 45 53 20 B8 49 00 A8 85 18 10 |;9 BYTES .I.....|
00007DA0: 4C 44 59 20 23 24 30 30 00 CC 85 1A 10 4A 53 52 |LDY #$00.....JSR|
00007DB0: 20 24 46 44 43 39 20 20 3B 58 AA 32 35 36 AC 59 | $FDC9 ;X.256.Y|
00007DC0: 20 42 59 54 45 53 20 4C 45 53 45 4E 00 DA 85 1C | BYTES LESEN....|
00007DD0: 10 4C 44 41 20 24 31 43 30 43 00 E5 85 1E 10 AF |.LDA $1C0C......|
00007DE0: 20 23 24 31 46 00 F1 85 20 10 B0 41 20 23 24 43 | #$1F... ..A #$C|
00007DF0: 30 00 14 86 22 10 53 54 41 20 24 31 43 30 43 20 |0...".STA $1C0C |
00007E00: 20 20 20 20 20 20 3B 41 55 46 20 53 43 48 52 45 | ;AUF SCHRE|
00007E10: 49 42 45 4E 00 21 86 24 10 4C 44 41 20 23 24 46 |IBEN.!.$.LDA #$F|
00007E20: 46 00 46 86 26 10 53 54 41 20 24 31 43 30 33 20 |F.F.&.STA $1C03 |
00007E30: 20 20 20 20 20 20 3B 50 B0 54 20 41 55 46 20 41 | ;P.T AUF A|
00007E40: 55 53 47 41 42 45 00 69 86 28 10 57 52 49 54 45 |USGABE.i.(.WRITE|
00007E50: 46 20 4C 44 41 20 23 24 46 46 20 3B 53 59 4E 43 |F LDA #$FF ;SYNC|
00007E60: 20 4D 41 52 4B 49 45 8A 47 00 77 86 2A 10 53 54 | MARKIE.G.w.*.ST|
00007E70: 41 20 24 31 43 30 31 00 94 86 2C 10 4C 44 58 20 |A $1C01...,.LDX |
00007E80: 23 24 30 35 20 20 20 20 20 20 20 20 3B 35 20 53 |#$05 ;5 S|
00007E90: 59 4E 43 53 00 A1 86 2E 10 4C 44 59 20 23 24 30 |YNCS.....LDY #$0|
00007EA0: 30 00 AD 86 30 10 53 54 59 20 24 46 39 00 CC 86 |0...0.STY $F9...|
00007EB0: 32 10 4A 53 52 20 24 46 44 43 39 20 20 20 20 20 |2.JSR $FDC9 |
00007EC0: 20 20 3B 53 43 48 52 45 49 42 45 4E 00 D9 86 34 | ;SCHREIBEN...4|
00007ED0: 10 4C 44 59 20 23 24 42 42 00 FB 86 36 10 57 52 |.LDY #$BB...6.WR|
00007EE0: 49 54 45 30 20 4C 44 41 20 24 30 31 30 30 2C 59 |ITE0 LDA $0100,Y|
00007EF0: 20 3B 56 91 20 24 31 42 42 2C 59 00 1B 87 38 10 | ;V. $1BB,Y...8.|
00007F00: 57 52 49 54 45 31 20 42 56 43 20 57 52 49 54 45 |WRITE1 BVC WRITE|
00007F10: 31 20 20 3B 42 59 54 45 20 87 59 00 23 87 3A 10 |1 ;BYTE .Y.#.:.|
00007F20: 43 4C 56 00 4A 87 3C 10 53 54 41 20 24 31 43 30 |CLV.J.<.STA $1C0|
00007F30: 31 20 20 20 20 20 20 20 20 20 20 3B 42 59 54 45 |1 ;BYTE|
00007F40: 20 53 43 48 52 45 49 42 45 4E 00 55 87 3E 10 45 | SCHREIBEN.U.>.E|
00007F50: B0 20 24 46 39 00 78 87 40 10 53 54 41 20 24 46 |. $F9.x.@.STA $F|
00007F60: 39 20 20 20 20 20 20 20 20 20 20 20 20 3B 50 52 |9 ;PR|
00007F70: 55 45 46 53 55 4D 4D 45 00 80 87 42 10 49 4E 59 |UEFSUMME...B.INY|
00007F80: 00 8F 87 44 10 42 4E 45 20 57 52 49 54 45 30 00 |...D.BNE WRITE0.|
00007F90: AE 87 46 10 57 52 49 54 45 32 20 4C 44 41 20 24 |..F.WRITE2 LDA $|
00007FA0: 30 33 30 30 2C 59 20 3B 54 45 49 4C 20 32 00 C4 |0300,Y ;TEIL 2..|
00007FB0: 87 48 10 57 52 49 54 45 33 20 42 56 43 20 57 52 |.H.WRITE3 BVC WR|
00007FC0: 49 54 45 33 00 CC 87 4A 10 43 4C 56 00 EE 87 4C |ITE3...J.CLV...L|
00007FD0: 10 53 54 41 20 24 31 43 30 31 20 20 20 20 20 20 |.STA $1C01 |
00007FE0: 20 20 20 20 3B 53 43 48 52 45 49 42 45 4E 00 F9 | ;SCHREIBEN..|
00007FF0: 87 4E 10 45 B0 20 24 46 39 00 05 88 50 10 53 54 |.N.E. $F9...P.ST|
00008000: 41 20 24 46 39 00 0D 88 52 10 49 4E 59 00 1A 88 |A $F9...R.INY...|
00008010: 54 10 43 50 59 20 23 24 46 45 00 29 88 56 10 42 |T.CPY #$FE.).V.B|
00008020: 4E 45 20 57 52 49 54 45 32 00 46 88 58 10 57 52 |NE WRITE2.F.X.WR|
00008030: 5A 20 42 56 43 20 57 52 5A 20 20 3B 57 41 52 54 |Z BVC WRZ ;WART|
00008040: 45 4E 20 42 49 53 00 6D 88 5A 10 43 4C 56 20 20 |EN BIS.m.Z.CLV |
00008050: 20 20 20 20 20 20 20 20 3B 46 45 52 54 49 47 20 | ;FERTIG |
00008060: 4D 49 54 20 53 43 48 52 45 49 42 45 4E 00 7D 88 |MIT SCHREIBEN.}.|
00008070: 5C 10 57 52 58 20 42 56 43 20 57 52 58 00 95 88 |\.WRX BVC WRX...|
00008080: 5E 10 4C 44 59 20 24 46 43 20 20 20 20 20 20 3B |^.LDY $FC ;|
00008090: 53 45 4B A4 52 00 A1 88 60 10 4C 44 41 20 24 46 |SEK.R...`.LDA $F|
000080A0: 39 00 C8 88 62 10 53 54 41 20 24 31 38 30 2C 59 |9...b.STA $180,Y|
000080B0: 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 20 49 4E | ;PRUEFSUMME IN|
000080C0: 20 54 41 42 45 4C 4C 45 00 D0 88 64 10 52 54 53 | TABELLE...d.RTS|
000080D0: 00 F6 88 66 10 3B 20 23 23 23 20 46 4C 4F 50 50 |...f.; ### FLOPP|
000080E0: 59 20 42 45 46 45 48 4C 53 41 55 53 46 55 45 48 |Y BEFEHLSAUSFUEH|
000080F0: 52 47 2E 23 23 23 00 04 89 68 10 53 4C 41 56 45 |RG.###...h.SLAVE|
00008100: 20 B2 20 AC 00 11 89 6A 10 4C 44 41 20 23 24 30 | . ....j.LDA #$0|
00008110: 30 00 21 89 6C 10 53 54 41 20 46 49 41 44 52 AA |0.!.l.STA FIADR.|
00008120: 32 00 2E 89 6E 10 4C 44 59 20 23 24 46 41 00 4C |2...n.LDY #$FA.L|
00008130: 89 70 10 4A 53 52 20 46 4C 49 4E 20 20 20 20 20 |.p.JSR FLIN |
00008140: 20 3B 42 45 46 45 48 4C 20 48 4F C3 00 69 89 72 | ;BEFEHL HO..i.r|
00008150: 10 3B 24 46 41 20 B2 20 42 45 46 45 48 4C AD 52 |.;$FA . BEFEHL.R|
00008160: 55 45 43 4B 4D 45 4C 44 47 00 7A 89 74 10 3B 24 |UECKMELDG.z.t.;$|
00008170: 46 42 20 B2 20 54 52 41 43 4B 00 8B 89 76 10 3B |FB . TRACK...v.;|
00008180: 24 46 43 20 B2 20 53 45 4B A4 52 00 A6 89 78 10 |$FC . SEK.R...x.|
00008190: 3B 24 46 44 20 B2 20 53 45 4B A4 52 45 4E 20 AD |;$FD . SEK.REN .|
000081A0: 20 54 52 41 43 4B 00 C3 89 7A 10 3B 24 46 45 20 | TRACK...z.;$FE |
000081B0: B2 20 53 50 55 52 42 45 52 45 49 43 48 20 28 33 |. SPURBEREICH (3|
000081C0: AB 30 29 00 E4 89 7C 10 3B 24 46 46 20 B2 20 56 |.0)...|.;$FF . V|
000081D0: 45 52 53 54 45 4C 4C 46 41 4B A4 52 20 28 46 46 |ERSTELLFAK.R (FF|
000081E0: AD 30 31 29 00 F0 89 7E 10 4C 44 58 20 24 46 41 |.01)...~.LDX $FA|
000081F0: 00 F8 89 80 10 44 45 58 00 14 8A 82 10 42 45 51 |.....DEX.....BEQ|
00008200: 20 42 87 20 3B 31 20 B2 20 42 4C 4F 43 4B 20 4C | B. ;1 . BLOCK L|
00008210: 45 53 45 4E 00 21 8A 84 10 42 45 46 31 20 44 45 |ESEN.!...BEF1 DE|
00008220: 58 00 2E 8A 86 10 42 4E 45 20 42 45 46 32 00 51 |X.....BNE BEF2.Q|
00008230: 8A 88 10 4A 4D 50 20 42 57 52 49 54 20 3B 32 20 |...JMP BWRIT ;2 |
00008240: B2 20 42 4C 4F 43 4B 20 53 43 48 52 45 49 42 45 |. BLOCK SCHREIBE|
00008250: 4E 00 5E 8A 8A 10 42 45 46 32 20 44 45 58 00 6B |N.^...BEF2 DEX.k|
00008260: 8A 8C 10 42 4E 45 20 42 45 46 33 00 8B 8A 8E 10 |...BNE BEF3.....|
00008270: 4A 4D 50 20 42 81 4D 20 3B 33 20 B2 20 53 50 55 |JMP B.M ;3 . SPU|
00008280: 52 20 81 4D 41 54 49 45 52 45 4E 00 98 8A 90 10 |R .MATIEREN.....|
00008290: 42 45 46 33 20 44 45 58 00 A5 8A 92 10 42 4E 45 |BEF3 DEX.....BNE|
000082A0: 20 42 45 46 34 00 C1 8A 94 10 4A 4D 50 20 42 56 | BEF4.....JMP BV|
000082B0: 45 52 59 20 3B 34 20 B2 20 53 50 55 52 20 95 45 |ERY ;4 . SPUR .E|
000082C0: 4E 00 CE 8A 96 10 42 45 46 34 20 44 45 58 00 DB |N.....BEF4 DEX..|
000082D0: 8A 98 10 42 4E 45 20 42 45 46 35 00 FD 8A 9A 10 |...BNE BEF5.....|
000082E0: 4A 4D 50 20 42 49 4E 49 54 20 3B 35 20 B2 20 49 |JMP BINIT ;5 . I|
000082F0: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 10 8B |NITIALISIEREN...|
00008300: 9C 10 42 45 46 35 20 4A 4D 50 20 24 45 41 41 30 |..BEF5 JMP $EAA0|
00008310: 00 2A 8B 9E 10 3B 20 23 23 23 20 42 4C 4F 43 4B |.*...; ### BLOCK|
00008320: 20 4C 45 53 45 4E 20 23 23 23 00 35 8B A0 10 42 | LESEN ###.5...B|
00008330: 87 20 B2 20 AC 00 4B 8B A2 10 4C 44 41 20 24 46 |. . ..K...LDA $F|
00008340: 42 20 20 20 20 20 3B 53 50 55 52 00 6C 8B A4 10 |B ;SPUR.l...|
00008350: 4A 53 52 20 4B 4F 50 46 20 20 20 20 3B 4B 4F 50 |JSR KOPF ;KOP|
00008360: 46 20 B9 49 54 49 91 49 45 52 45 4E 00 8A 8B A6 |F .ITI.IEREN....|
00008370: 10 4A 53 52 20 48 45 41 44 20 20 20 20 3B 48 45 |.JSR HEAD ;HE|
00008380: 41 44 45 52 20 4C 45 53 45 4E 00 9F 8B A8 10 42 |ADER LESEN.....B|
00008390: 43 53 20 42 87 45 20 20 3B 46 45 48 4C 45 52 00 |CS B.E ;FEHLER.|
000083A0: BC 8B AA 10 4A 53 52 20 42 4C 43 4B 20 20 20 20 |....JSR BLCK |
000083B0: 3B 42 4C 4F 43 4B 20 4C 45 53 45 4E 00 C7 8B AC |;BLOCK LESEN....|
000083C0: 10 4C 44 41 20 23 30 00 D8 8B AE 10 42 87 45 20 |.LDA #0.....B.E |
000083D0: 53 54 41 20 24 31 42 41 00 E5 8B B0 10 4C 44 41 |STA $1BA.....LDA|
000083E0: 20 23 24 30 31 00 F5 8B B2 10 53 54 41 20 46 4F | #$01.....STA FO|
000083F0: 41 44 52 AA 32 00 02 8C B4 10 4C 44 59 20 23 24 |ADR.2.....LDY #$|
00008400: 42 41 00 28 8C B6 10 4A 53 52 20 46 4C 4F 55 54 |BA.(...JSR FLOUT|
00008410: 20 20 20 3B 42 4C 4F 43 4B 20 54 45 49 4C 31 20 | ;BLOCK TEIL1 |
00008420: 41 55 53 47 45 42 45 4E 00 35 8C B8 10 4C 44 41 |AUSGEBEN.5...LDA|
00008430: 20 23 24 30 33 00 45 8C BA 10 53 54 41 20 46 4F | #$03.E...STA FO|
00008440: 41 44 52 AA 32 00 52 8C BC 10 4C 44 59 20 23 24 |ADR.2.R...LDY #$|
00008450: 30 30 00 69 8C BE 10 4A 53 52 20 46 4C 4F 55 54 |00.i...JSR FLOUT|
00008460: 20 20 20 3B 54 45 49 4C 32 00 77 8C C0 10 4A 4D | ;TEIL2.w...JM|
00008470: 50 20 53 4C 41 56 45 00 94 8C C2 10 3B 20 23 23 |P SLAVE.....; ##|
00008480: 23 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |# INITIALISIEREN|
00008490: 20 23 23 23 00 BB 8C C4 10 42 49 4E 49 54 20 4C | ###.....BINIT L|
000084A0: 44 41 20 23 32 20 3B 49 4E 49 54 49 41 4C 49 53 |DA #2 ;INITIALIS|
000084B0: 49 45 52 56 45 52 53 55 43 48 45 00 C7 8C C6 10 |IERVERSUCHE.....|
000084C0: 53 54 41 20 24 46 38 00 E1 8C C8 10 4C 44 41 20 |STA $F8.....LDA |
000084D0: 23 24 30 35 20 20 20 20 20 3B 4D 4F A4 52 20 41 |#$05 ;MO.R A|
000084E0: 4E 00 EF 8C CA 10 53 54 41 20 24 31 43 30 30 00 |N.....STA $1C00.|
000084F0: FC 8C CC 10 4C 44 41 20 23 24 46 30 00 15 8D CE |....LDA #$F0....|
00008500: 10 4A 53 52 20 54 49 4D 20 20 20 20 20 20 3B 57 |.JSR TIM ;W|
00008510: 41 52 54 45 4E 00 22 8D D0 10 4C 44 41 20 23 24 |ARTEN."...LDA #$|
00008520: 30 34 00 30 8D D2 10 53 54 41 20 24 31 43 30 30 |04.0...STA $1C00|
00008530: 00 53 8D D4 10 4C 44 41 20 24 46 43 20 20 20 20 |.S...LDA $FC |
00008540: 20 20 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 53 | ;INITIALISIERS|
00008550: 50 55 52 00 5E 8D D6 10 53 54 41 20 24 36 00 80 |PUR.^...STA $6..|
00008560: 8D D8 10 42 49 4E 49 41 20 4C 44 41 20 23 32 30 |...BINIA LDA #20|
00008570: 20 20 20 3B 4C 45 53 45 56 45 52 53 55 43 48 45 | ;LESEVERSUCHE|
00008580: 00 8C 8D DA 10 53 54 41 20 24 46 39 00 AD 8D DC |.....STA $F9....|
00008590: 10 42 49 4E 49 42 20 4C 44 41 20 23 24 42 30 20 |.BINIB LDA #$B0 |
000085A0: 20 3B 49 4E 49 54 2E 42 45 46 45 48 4C 00 CD 8D | ;INIT.BEFEHL...|
000085B0: DE 10 53 54 41 20 24 30 30 20 20 20 20 20 20 20 |..STA $00 |
000085C0: 20 20 3B 41 4E 20 9A 52 4F 4C 4C 45 52 00 D5 8D | ;AN .ROLLER...|
000085D0: E0 10 43 4C 49 00 F4 8D E2 10 42 49 4E 49 30 20 |..CLI.....BINI0 |
000085E0: 4C 44 41 20 24 30 30 20 20 20 3B 41 55 53 46 55 |LDA $00 ;AUSFU|
000085F0: 45 48 8A 47 00 12 8E E4 10 42 4D 49 20 42 49 4E |EH.G.....BMI BIN|
00008600: 49 30 20 20 20 20 20 20 20 3B 41 42 57 41 52 54 |I0 ;ABWART|
00008610: 45 4E 00 1E 8E E6 10 45 B0 20 23 24 30 31 00 3C |EN.....E. #$01.<|
00008620: 8E E8 10 42 45 51 20 42 49 4E 49 31 20 20 20 20 |...BEQ BINI1 |
00008630: 20 20 20 3B 46 45 48 4C 45 52 B8 49 00 62 8E EA | ;FEHLER.I.b..|
00008640: 10 44 45 43 20 24 46 39 20 20 20 20 20 3B 53 91 |.DEC $F9 ;S.|
00008650: 53 54 20 4E 41 45 43 48 53 54 2E 56 45 52 53 55 |ST NAECHST.VERSU|
00008660: 43 48 00 70 8E EC 10 42 4E 45 20 42 49 4E 49 42 |CH.p...BNE BINIB|
00008670: 00 7C 8E EE 10 44 45 43 20 24 46 38 00 8A 8E F0 |.|...DEC $F8....|
00008680: 10 42 45 51 20 42 49 4E 49 32 00 A7 8E F2 10 4C |.BEQ BINI2.....L|
00008690: 44 41 20 23 24 43 30 20 20 20 20 20 20 20 20 3B |DA #$C0 ;|
000086A0: 52 41 54 54 45 52 4E 00 C7 8E F4 10 53 54 41 20 |RATTERN.....STA |
000086B0: 24 30 30 20 20 20 20 20 20 20 20 20 3B 41 4E 20 |$00 ;AN |
000086C0: 9A 52 4F 4C 4C 45 52 00 D9 8E F6 10 42 49 4E 49 |.ROLLER.....BINI|
000086D0: 33 20 4C 44 41 20 24 30 30 00 E7 8E F8 10 42 4D |3 LDA $00.....BM|
000086E0: 49 20 42 49 4E 49 33 00 0C 8F FA 10 42 50 4C 20 |I BINI3.....BPL |
000086F0: 42 49 4E 49 41 20 20 20 20 20 20 20 3B 4E 41 45 |BINIA ;NAE|
00008700: 43 48 53 54 2E 56 45 52 53 55 43 48 00 1F 8F FC |CHST.VERSUCH....|
00008710: 10 42 49 4E 49 32 20 4C 44 41 20 23 32 35 35 00 |.BINI2 LDA #255.|
00008720: 31 8F FE 10 42 49 4E 49 31 20 53 54 41 20 24 46 |1...BINI1 STA $F|
00008730: 41 00 39 8F 00 11 53 45 49 00 46 8F 02 11 4A 53 |A.9...SEI.F...JS|
00008740: 52 20 5A 45 52 4F 00 53 8F 04 11 4C 44 41 20 23 |R ZERO.S...LDA #|
00008750: 24 30 30 00 63 8F 06 11 53 54 41 20 46 4F 41 44 |$00.c...STA FOAD|
00008760: 52 AA 32 00 70 8F 08 11 4C 44 59 20 23 24 46 41 |R.2.p...LDY #$FA|
00008770: 00 92 8F 0A 11 4A 53 52 20 46 4C 4F 55 54 20 20 |.....JSR FLOUT |
00008780: 20 20 20 20 20 3B 52 55 45 43 4B 4D 45 4C 44 55 | ;RUECKMELDU|
00008790: 4E 47 00 9E 8F 0C 11 4C 44 41 20 24 32 32 00 A6 |NG.....LDA $22..|
000087A0: 8F 0E 11 41 53 4C 00 C8 8F 10 11 53 54 41 20 24 |...ASL.....STA $|
000087B0: 46 31 20 20 20 20 20 20 20 20 20 3B 53 50 55 52 |F1 ;SPUR|
000087C0: 20 41 4E 47 45 42 45 4E 00 D6 8F 12 11 4A 4D 50 | ANGEBEN.....JMP|
000087D0: 20 53 4C 41 56 45 00 DC 8F 14 11 3B 00 FA 8F 16 | SLAVE.....;....|
000087E0: 11 3B 20 23 23 23 20 42 4C 4F 43 4B 20 53 43 48 |.; ### BLOCK SCH|
000087F0: 52 45 49 42 45 4E 20 23 23 23 00 08 90 18 11 42 |REIBEN ###.....B|
00008800: 57 52 49 54 20 B2 20 AC 00 15 90 1A 11 4C 44 41 |WRIT . ......LDA|
00008810: 20 23 24 30 33 00 25 90 1C 11 53 54 41 20 46 49 | #$03.%...STA FI|
00008820: 41 44 52 AA 32 00 32 90 1E 11 4C 44 59 20 23 24 |ADR.2.2...LDY #$|
00008830: 30 30 00 4F 90 20 11 4A 53 52 20 46 4C 49 4E 20 |00.O. .JSR FLIN |
00008840: 20 20 20 20 20 3B 53 45 4B A4 52 20 48 4F C3 00 | ;SEK.R HO..|
00008850: 74 90 22 11 4A 53 52 20 24 46 35 45 39 20 20 20 |t.".JSR $F5E9 |
00008860: 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 20 42 49 | ;PRUEFSUMME BI|
00008870: 4C 44 45 4E 00 80 90 24 11 53 54 41 20 24 33 41 |LDEN...$.STA $3A|
00008880: 00 8B 90 26 11 45 B0 20 24 46 38 00 AF 90 28 11 |...&.E. $F8...(.|
00008890: 53 54 41 20 24 46 38 20 20 20 20 20 20 20 3B 54 |STA $F8 ;T|
000088A0: 52 41 43 4B AB 50 52 55 45 46 53 55 4D 4D 45 00 |RACK.PRUEFSUMME.|
000088B0: D1 90 2A 11 4A 53 52 20 24 46 37 38 46 20 20 20 |..*.JSR $F78F |
000088C0: 20 20 3B 56 45 52 53 43 48 4C 55 45 53 53 45 4C | ;VERSCHLUESSEL|
000088D0: 4E 00 F1 90 2C 11 4A 53 52 20 48 45 41 44 20 20 |N...,.JSR HEAD |
000088E0: 20 20 20 20 3B 48 45 41 44 45 52 20 4C 45 53 45 | ;HEADER LESE|
000088F0: 4E 00 00 91 2E 11 42 43 53 20 42 57 52 49 54 58 |N.....BCS BWRITX|
00008900: 00 23 91 30 11 4A 53 52 20 57 52 49 54 45 20 20 |.#.0.JSR WRITE |
00008910: 20 20 20 3B 42 4C 4F 43 4B 20 53 43 48 52 45 49 | ;BLOCK SCHREI|
00008920: 42 45 4E 00 3E 91 32 11 4A 53 52 20 24 46 45 30 |BEN.>.2.JSR $FE0|
00008930: 30 20 20 20 20 20 3B 50 43 52 20 41 55 53 00 4C |0 ;PCR AUS.L|
00008940: 91 34 11 4A 4D 50 20 53 4C 41 56 45 00 52 91 36 |.4.JMP SLAVE.R.6|
00008950: 11 3B 00 78 91 38 11 42 57 52 49 54 58 20 4C 44 |.;.x.8.BWRITX LD|
00008960: 41 20 23 24 46 46 20 3B 46 45 48 4C 45 52 20 4D |A #$FF ;FEHLER M|
00008970: 41 52 4B 49 45 52 45 4E 00 89 91 3A 11 53 54 41 |ARKIEREN...:.STA|
00008980: 20 24 32 30 30 AA 31 35 30 00 97 91 3C 11 4A 4D | $200.150...<.JM|
00008990: 50 20 53 4C 41 56 45 00 B2 91 3E 11 3B 20 23 23 |P SLAVE...>.; ##|
000089A0: 23 20 53 50 55 52 20 50 52 55 45 46 45 4E 20 23 |# SPUR PRUEFEN #|
000089B0: 23 23 00 C0 91 40 11 42 56 45 52 59 20 B2 20 AC |##...@.BVERY . .|
000089C0: 00 E3 91 42 11 4C 44 58 20 23 31 30 20 20 20 20 |...B.LDX #10 |
000089D0: 20 20 20 20 3B 53 54 41 52 54 20 32 2E 48 45 41 | ;START 2.HEA|
000089E0: 44 45 52 00 EF 91 44 11 53 54 58 20 24 33 32 00 |DER...D.STX $32.|
000089F0: 10 92 46 11 4A 53 52 20 48 45 41 44 20 20 20 20 |..F.JSR HEAD |
00008A00: 20 20 20 3B 48 45 41 44 45 52 20 4C 45 53 45 4E | ;HEADER LESEN|
00008A10: 00 1F 92 48 11 42 43 53 20 42 56 45 52 59 31 00 |...H.BCS BVERY1.|
00008A20: 37 92 4A 11 42 56 45 52 59 38 20 4A 53 52 20 53 |7.J.BVERY8 JSR S|
00008A30: 54 41 43 4B 53 45 54 00 59 92 4C 11 4A 53 52 20 |TACKSET.Y.L.JSR |
00008A40: 53 59 4E 43 20 20 20 20 20 20 20 3B 53 59 4E 43 |SYNC ;SYNC|
00008A50: 20 41 42 57 41 52 54 45 4E 00 66 92 4E 11 4C 44 | ABWARTEN.f.N.LD|
00008A60: 58 20 23 24 34 33 00 87 92 50 11 4C 44 59 20 23 |X #$43...P.LDY #|
00008A70: 24 30 31 20 20 20 20 20 20 20 3B 32 35 36 AA 34 |$01 ;256.4|
00008A80: 33 20 42 59 54 45 53 00 A2 92 52 11 4C 44 41 20 |3 BYTES...R.LDA |
00008A90: 23 24 30 30 20 20 20 20 20 20 20 3B 54 45 53 54 |#$00 ;TEST|
00008AA0: 45 4E 00 B8 92 54 11 42 56 45 52 59 30 20 42 56 |EN...T.BVERY0 BV|
00008AB0: 43 20 42 56 45 52 59 30 00 C0 92 56 11 43 4C 56 |C BVERY0...V.CLV|
00008AC0: 00 DE 92 58 11 45 B0 20 24 31 43 30 31 20 20 20 |...X.E. $1C01 |
00008AD0: 20 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 00 E6 | ;PRUEFSUMME..|
00008AE0: 92 5A 11 44 45 58 00 F5 92 5C 11 42 4E 45 20 42 |.Z.DEX...\.BNE B|
00008AF0: 56 45 52 59 30 00 FD 92 5E 11 44 45 59 00 0C 93 |VERY0...^.DEY...|
00008B00: 60 11 42 50 4C 20 42 56 45 52 59 30 00 12 93 62 |`.BPL BVERY0...b|
00008B10: 11 3B 00 1E 93 64 11 4C 44 59 20 24 46 43 00 41 |.;...d.LDY $FC.A|
00008B20: 93 66 11 45 B0 20 24 31 38 30 2C 59 20 20 20 20 |.f.E. $180,Y |
00008B30: 20 3B 4D 49 54 20 41 4C 54 45 52 20 43 48 4B 53 | ;MIT ALTER CHKS|
00008B40: 4D 00 61 93 68 11 42 4E 45 20 42 56 45 52 59 31 |M.a.h.BNE BVERY1|
00008B50: 20 20 20 20 20 3B 56 45 52 47 4C 45 49 43 48 45 | ;VERGLEICHE|
00008B60: 4E 00 67 93 6A 11 3B 00 8B 93 6C 11 49 4E 43 20 |N.g.j.;...l.INC |
00008B70: 24 46 43 20 20 20 20 20 20 20 20 3B 4E 41 45 43 |$FC ;NAEC|
00008B80: 48 53 54 45 4E 20 42 4C 4F 43 4B 00 97 93 6E 11 |HSTEN BLOCK...n.|
00008B90: 4C 44 41 20 24 46 43 00 B6 93 70 11 43 4D 50 20 |LDA $FC...p.CMP |
00008BA0: 24 46 44 20 20 20 20 20 20 20 20 3B 53 43 48 91 |$FD ;SCH.|
00008BB0: 20 88 5A 54 45 52 00 CD 93 72 11 42 45 51 20 42 | .ZTER...r.BEQ B|
00008BC0: 56 45 52 59 32 20 20 20 20 20 3B 80 45 00 DA 93 |VERY2 ;.E...|
00008BD0: 74 11 4A 53 52 20 53 59 4E 43 00 FD 93 76 11 4C |t.JSR SYNC...v.L|
00008BE0: 44 58 20 23 39 20 20 20 20 20 20 20 20 20 3B 39 |DX #9 ;9|
00008BF0: 20 42 59 54 45 53 20 48 45 41 44 45 52 00 09 94 | BYTES HEADER...|
00008C00: 78 11 4C 44 59 20 24 33 32 00 1F 94 7A 11 42 56 |x.LDY $32...z.BV|
00008C10: 45 52 59 39 20 42 56 43 20 42 56 45 52 59 39 00 |ERY9 BVC BVERY9.|
00008C20: 27 94 7C 11 43 4C 56 00 45 94 7E 11 4C 44 41 20 |'.|.CLV.E.~.LDA |
00008C30: 24 32 30 30 2C 59 20 20 20 20 20 3B 56 45 52 47 |$200,Y ;VERG|
00008C40: 4C 45 49 43 48 00 52 94 80 11 45 B0 20 24 31 43 |LEICH.R...E. $1C|
00008C50: 30 31 00 6D 94 82 11 42 4E 45 20 42 56 45 52 59 |01.m...BNE BVERY|
00008C60: 31 20 20 20 20 20 3B 46 45 48 4C 45 52 00 75 94 |1 ;FEHLER.u.|
00008C70: 84 11 49 4E 59 00 7D 94 86 11 44 45 58 00 8C 94 |..INY.}...DEX...|
00008C80: 88 11 42 4E 45 20 42 56 45 52 59 39 00 94 94 8A |..BNE BVERY9....|
00008C90: 11 43 4C 43 00 A0 94 8C 11 4C 44 41 20 24 33 32 |.CLC.....LDA $32|
00008CA0: 00 BC 94 8E 11 41 44 43 20 23 24 30 41 20 20 20 |.....ADC #$0A |
00008CB0: 20 20 20 20 3B 50 4C 55 53 20 31 30 00 C8 94 90 | ;PLUS 10....|
00008CC0: 11 53 54 41 20 24 33 32 00 EC 94 92 11 42 43 43 |.STA $32.....BCC|
00008CD0: 20 42 56 45 52 59 38 20 20 20 20 20 3B 4E 41 45 | BVERY8 ;NAE|
00008CE0: 43 48 53 54 45 52 20 42 4C 4F 43 4B 00 00 95 94 |CHSTER BLOCK....|
00008CF0: 11 42 56 45 52 59 32 20 4C 44 41 20 23 24 30 30 |.BVERY2 LDA #$00|
00008D00: 00 24 95 96 11 42 56 45 52 59 31 20 53 54 41 20 |.$...BVERY1 STA |
00008D10: 24 46 42 20 3B 30 20 B2 20 4B 45 49 4E 20 46 45 |$FB ;0 . KEIN FE|
00008D20: 48 4C 45 52 00 30 95 98 11 4C 44 41 20 24 46 38 |HLER.0...LDA $F8|
00008D30: 00 54 95 9A 11 53 54 41 20 24 46 41 20 20 20 20 |.T...STA $FA |
00008D40: 20 20 20 20 3B 54 52 41 43 4B 50 52 55 45 46 53 | ;TRACKPRUEFS|
00008D50: 55 4D 4D 45 00 76 95 9C 11 4C 44 41 20 24 31 43 |UMME.v...LDA $1C|
00008D60: 30 30 20 20 20 20 20 20 3B 57 52 49 54 45 20 50 |00 ;WRITE P|
00008D70: 52 4F 54 45 43 54 00 81 95 9E 11 AF 20 23 24 31 |ROTECT...... #$1|
00008D80: 30 00 8D 95 A0 11 53 54 41 20 24 46 43 00 9A 95 |0.....STA $FC...|
00008D90: A2 11 4C 44 41 20 23 24 30 30 00 AA 95 A4 11 53 |..LDA #$00.....S|
00008DA0: 54 41 20 46 4F 41 44 52 AA 32 00 B7 95 A6 11 4C |TA FOADR.2.....L|
00008DB0: 44 59 20 23 24 46 41 00 DC 95 A8 11 4A 53 52 20 |DY #$FA.....JSR |
00008DC0: 46 4C 4F 55 54 20 20 20 20 20 20 3B 4D 45 4C 44 |FLOUT ;MELD|
00008DD0: 55 4E 47 20 41 4E 20 43 4F 4D 50 2E 00 EA 95 AA |UNG AN COMP.....|
00008DE0: 11 4A 4D 50 20 53 4C 41 56 45 00 07 96 AC 11 3B |.JMP SLAVE.....;|
00008DF0: 20 23 23 23 20 53 50 55 52 20 81 4D 41 54 49 45 | ### SPUR .MATIE|
00008E00: 52 45 4E 20 23 23 23 00 18 96 AE 11 42 81 4D 20 |REN ###.....B.M |
00008E10: 4C 44 41 20 23 24 30 30 00 3F 96 B0 11 53 54 41 |LDA #$00.?...STA|
00008E20: 20 24 46 38 20 20 3B 54 52 41 43 4B 50 52 55 45 | $F8 ;TRACKPRUE|
00008E30: 46 53 55 4D 4D 45 20 4C 4F 45 53 43 48 45 4E 00 |FSUMME LOESCHEN.|
00008E40: 4B 96 B2 11 4C 44 41 20 24 46 42 00 67 96 B4 11 |K...LDA $FB.g...|
00008E50: 4A 53 52 20 4B 4F 50 46 20 3B 53 50 55 52 20 45 |JSR KOPF ;SPUR E|
00008E60: 49 4E 53 54 45 4C C3 00 6D 96 B6 11 3B 00 7E 96 |INSTEL..m...;.~.|
00008E70: B8 11 4A 53 52 20 53 54 41 43 4B 53 45 54 00 84 |..JSR STACKSET..|
00008E80: 96 BA 11 3B 00 91 96 BC 11 4C 44 59 20 23 24 30 |...;.....LDY #$0|
00008E90: 30 00 B2 96 BE 11 81 4D 30 20 4C 44 41 20 23 24 |0......M0 LDA #$|
00008EA0: 30 38 20 3B 38 20 48 45 41 44 45 52 41 4E 46 41 |08 ;8 HEADERANFA|
00008EB0: 4E 47 00 C2 96 C0 11 53 54 41 20 24 30 33 30 30 |NG.....STA $0300|
00008EC0: 2C 59 00 E2 96 C2 11 4C 44 41 20 24 46 43 20 20 |,Y.....LDA $FC |
00008ED0: 20 20 20 20 20 20 3B 53 45 4B A4 52 4E 55 4D 4D | ;SEK.RNUMM|
00008EE0: 45 52 00 F2 96 C4 11 53 54 41 20 24 30 33 30 32 |ER.....STA $0302|
00008EF0: 2C 59 00 12 97 C6 11 4C 44 41 20 24 46 42 20 20 |,Y.....LDA $FB |
00008F00: 20 20 20 20 20 20 3B 54 52 41 43 4B 4E 55 4D 4D | ;TRACKNUMM|
00008F10: 45 52 00 22 97 C8 11 53 54 41 20 24 30 33 30 33 |ER."...STA $0303|
00008F20: 2C 59 00 41 97 CA 11 4C 44 41 20 24 31 33 20 20 |,Y.A...LDA $13 |
00008F30: 20 20 20 20 20 20 3B 49 44 45 4E 54 49 54 59 20 | ;IDENTITY |
00008F40: 32 00 51 97 CC 11 53 54 41 20 24 30 33 30 34 2C |2.Q...STA $0304,|
00008F50: 59 00 70 97 CE 11 4C 44 41 20 24 31 32 20 20 20 |Y.p...LDA $12 |
00008F60: 20 20 20 20 20 3B 49 44 45 4E 54 49 54 59 20 31 | ;IDENTITY 1|
00008F70: 00 80 97 D0 11 53 54 41 20 24 30 33 30 35 2C 59 |.....STA $0305,Y|
00008F80: 00 8B 97 D2 11 45 B0 20 24 31 33 00 96 97 D4 11 |.....E. $13.....|
00008F90: 45 B0 20 24 46 42 00 A1 97 D6 11 45 B0 20 24 46 |E. $FB.....E. $F|
00008FA0: 43 00 C0 97 D8 11 53 54 41 20 24 30 33 30 31 2C |C.....STA $0301,|
00008FB0: 59 20 20 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 |Y ;PRUEFSUMME|
00008FC0: 00 CD 97 DA 11 4C 44 41 20 23 24 30 46 00 EA 97 |.....LDA #$0F...|
00008FD0: DC 11 53 54 41 20 24 30 33 30 36 2C 59 20 20 20 |..STA $0306,Y |
00008FE0: 20 3B 4C 45 45 52 52 41 55 4D 00 FA 97 DE 11 53 | ;LEERRAUM.....S|
00008FF0: 54 41 20 24 30 33 30 37 2C 59 00 02 98 E0 11 54 |TA $0307,Y.....T|
00009000: 59 41 00 0A 98 E2 11 43 4C 43 00 2F 98 E4 11 41 |YA.....CLC./...A|
00009010: 44 43 20 23 38 20 20 20 20 20 20 20 20 20 3B 4E |DC #8 ;N|
00009020: 41 45 43 48 53 54 45 52 20 48 45 41 44 45 52 00 |AECHSTER HEADER.|
00009030: 37 98 E6 11 54 41 59 00 43 98 E8 11 49 4E 43 20 |7...TAY.C...INC |
00009040: 24 46 43 00 4F 98 EA 11 4C 44 41 20 24 46 43 00 |$FC.O...LDA $FC.|
00009050: 5B 98 EC 11 43 4D 50 20 24 46 44 00 67 98 EE 11 |[...CMP $FD.g...|
00009060: 42 43 43 20 81 4D 30 00 73 98 F0 11 44 45 43 20 |BCC .M0.s...DEC |
00009070: 24 46 43 00 7B 98 F2 11 54 59 41 00 83 98 F4 11 |$FC.{...TYA.....|
00009080: 50 48 41 00 91 98 F6 11 4A 53 52 20 24 46 45 33 |PHA.....JSR $FE3|
00009090: 30 00 99 98 F8 11 50 4C 41 00 A1 98 FA 11 54 41 |0.....PLA.....TA|
000090A0: 59 00 A9 98 FC 11 44 45 59 00 CD 98 FE 11 4A 53 |Y.....DEY.....JS|
000090B0: 52 20 24 46 44 45 35 20 20 20 20 20 20 3B 50 55 |R $FDE5 ;PU|
000090C0: 46 46 45 52 20 4B 4F 50 49 45 52 45 4E 00 DB 98 |FFER KOPIEREN...|
000090D0: 00 12 4A 53 52 20 24 46 44 46 35 00 E6 98 02 12 |..JSR $FDF5.....|
000090E0: 4C 44 59 20 23 30 00 F9 98 04 12 81 4D 54 20 4C |LDY #0......MT L|
000090F0: 44 41 20 24 33 30 30 2C 59 00 08 99 06 12 53 54 |DA $300,Y.....ST|
00009100: 41 20 24 32 30 30 2C 59 00 10 99 08 12 49 4E 59 |A $200,Y.....INY|
00009110: 00 1C 99 0A 12 42 4E 45 20 81 4D 54 00 43 99 0C |.....BNE .MT.C..|
00009120: 12 4C 44 41 20 23 31 20 20 20 20 20 20 20 20 20 |.LDA #1 |
00009130: 3B 4C 45 45 52 42 4C 4F 43 4B 20 45 52 5A 45 55 |;LEERBLOCK ERZEU|
00009140: 47 45 4E 00 56 99 0E 12 81 4D 55 20 53 54 41 20 |GEN.V....MU STA |
00009150: 24 33 30 30 2C 59 00 5E 99 10 12 49 4E 59 00 6A |$300,Y.^...INY.j|
00009160: 99 12 12 42 4E 45 20 81 4D 55 00 77 99 14 12 4C |...BNE .MU.w...L|
00009170: 44 41 20 23 24 34 42 00 84 99 16 12 53 54 41 20 |DA #$4B.....STA |
00009180: 24 33 30 30 00 A3 99 18 12 4A 53 52 20 24 46 35 |$300.....JSR $F5|
00009190: 45 39 20 20 20 20 20 20 3B 50 52 55 45 46 53 55 |E9 ;PRUEFSU|
000091A0: 4D 4D 45 00 AF 99 1A 12 53 54 41 20 24 33 41 00 |MME.....STA $3A.|
000091B0: D2 99 1C 12 4A 53 52 20 24 46 37 38 46 20 20 20 |....JSR $F78F |
000091C0: 20 20 20 3B 56 45 52 53 43 48 4C 55 45 53 53 45 | ;VERSCHLUESSE|
000091D0: 4C 4E 00 DF 99 1E 12 4C 44 41 20 23 24 30 30 00 |LN.....LDA #$00.|
000091E0: EB 99 20 12 53 54 41 20 24 33 32 00 F1 99 22 12 |.. .STA $32...".|
000091F0: 3B 00 FF 99 24 12 4C 44 41 20 24 31 43 30 43 00 |;...$.LDA $1C0C.|
00009200: 0A 9A 26 12 AF 20 23 24 31 46 00 16 9A 28 12 B0 |..&.. #$1F...(..|
00009210: 41 20 23 24 43 30 00 39 9A 2A 12 53 54 41 20 24 |A #$C0.9.*.STA $|
00009220: 31 43 30 43 20 20 20 20 20 20 20 3B 41 55 46 20 |1C0C ;AUF |
00009230: 53 43 48 52 45 49 42 45 4E 00 5D 9A 2C 12 4C 44 |SCHREIBEN.].,.LD|
00009240: 41 20 23 24 46 46 20 20 20 20 20 20 20 3B 50 B0 |A #$FF ;P.|
00009250: 54 20 41 55 46 20 41 55 53 47 41 42 45 00 6B 9A |T AUF AUSGABE.k.|
00009260: 2E 12 53 54 41 20 24 31 43 30 33 00 84 9A 30 12 |..STA $1C03...0.|
00009270: 4C 44 41 20 23 24 35 35 20 20 20 20 20 20 20 3B |LDA #$55 ;|
00009280: 4C 45 45 52 00 92 9A 32 12 53 54 41 20 24 31 43 |LEER...2.STA $1C|
00009290: 30 31 00 9F 9A 34 12 4C 44 58 20 23 24 30 34 00 |01...4.LDX #$04.|
000092A0: C2 9A 36 12 4A 53 52 20 24 46 45 32 34 20 20 20 |..6.JSR $FE24 |
000092B0: 20 20 20 3B 54 52 41 43 4B 20 4C 4F 45 53 43 48 | ;TRACK LOESCH|
000092C0: 45 4E 00 CE 9A 38 12 81 4D 57 20 B2 20 AC 00 E7 |EN...8..MW . ...|
000092D0: 9A 3A 12 4C 44 41 20 23 24 46 46 20 20 20 20 20 |.:.LDA #$FF |
000092E0: 20 20 3B 53 59 4E 43 00 F5 9A 3C 12 53 54 41 20 | ;SYNC...<.STA |
000092F0: 24 31 43 30 31 00 02 9B 3E 12 4C 44 58 20 23 24 |$1C01...>.LDX #$|
00009300: 30 35 00 0F 9B 40 12 4C 44 59 20 23 24 30 30 00 |05...@.LDY #$00.|
00009310: 2D 9B 42 12 4A 53 52 20 24 46 44 43 39 20 20 20 |-.B.JSR $FDC9 |
00009320: 20 20 20 3B 53 43 48 52 45 49 42 45 4E 00 3A 9B | ;SCHREIBEN.:.|
00009330: 44 12 4C 44 58 20 23 24 30 41 00 46 9B 46 12 4C |D.LDX #$0A.F.F.L|
00009340: 44 59 20 24 33 32 00 56 9B 48 12 81 4D 42 20 42 |DY $32.V.H..MB B|
00009350: 56 43 20 81 4D 42 00 5E 9B 4A 12 43 4C 56 00 6D |VC .MB.^.J.CLV.m|
00009360: 9B 4C 12 4C 44 41 20 24 32 30 30 2C 59 00 92 9B |.L.LDA $200,Y...|
00009370: 4E 12 53 54 41 20 24 31 43 30 31 20 20 20 20 20 |N.STA $1C01 |
00009380: 20 3B 48 45 41 44 45 52 20 53 43 48 52 45 49 42 | ;HEADER SCHREIB|
00009390: 45 4E 00 9A 9B 50 12 49 4E 59 00 A2 9B 52 12 44 |EN...P.INY...R.D|
000093A0: 45 58 00 AE 9B 54 12 42 4E 45 20 81 4D 42 00 CB |EX...T.BNE .MB..|
000093B0: 9B 56 12 4C 44 58 20 23 24 30 39 20 20 20 20 20 |.V.LDX #$09 |
000093C0: 20 20 3B 4C 45 45 52 52 41 55 4D 00 D8 9B 58 12 | ;LEERRAUM...X.|
000093D0: 4C 44 59 20 23 24 30 30 00 E6 9B 5A 12 4A 53 52 |LDY #$00...Z.JSR|
000093E0: 20 24 46 44 43 39 00 0A 9C 5C 12 4A 53 52 20 57 | $FDC9...\.JSR W|
000093F0: 52 49 54 45 46 20 20 20 20 20 3B 42 4C 4F 43 4B |RITEF ;BLOCK|
00009400: 20 53 43 48 52 45 49 42 45 4E 00 17 9C 5E 12 4C | SCHREIBEN...^.L|
00009410: 44 58 20 23 24 30 34 00 24 9C 60 12 4C 44 59 20 |DX #$04.$.`.LDY |
00009420: 23 24 30 30 00 41 9C 62 12 4A 53 52 20 24 46 44 |#$00.A.b.JSR $FD|
00009430: 43 39 20 20 20 20 20 20 3B 4C 45 45 52 52 41 55 |C9 ;LEERRAU|
00009440: 4D 00 4D 9C 64 12 4C 44 41 20 24 33 32 00 55 9C |M.M.d.LDA $32.U.|
00009450: 66 12 43 4C 43 00 62 9C 68 12 41 44 43 20 23 24 |f.CLC.b.h.ADC #$|
00009460: 30 41 00 6E 9C 6A 12 53 54 41 20 24 33 32 00 7A |0A.n.j.STA $32.z|
00009470: 9C 6C 12 44 45 43 20 24 46 43 00 9C 9C 6E 12 42 |.l.DEC $FC...n.B|
00009480: 50 4C 20 81 4D 57 20 20 20 20 20 20 3B 4E 41 45 |PL .MW ;NAE|
00009490: 43 48 53 54 45 52 20 42 4C 4F 43 4B 00 BA 9C 70 |CHSTER BLOCK...p|
000094A0: 12 4A 53 52 20 24 46 45 30 30 20 20 20 20 20 20 |.JSR $FE00 |
000094B0: 3B 50 43 52 20 4C 45 53 45 4E 00 C7 9C 72 12 4A |;PCR LESEN...r.J|
000094C0: 53 52 20 5A 45 52 4F 00 D5 9C 74 12 4A 4D 50 20 |SR ZERO...t.JMP |
000094D0: 53 4C 41 56 45 00 E7 9C 76 12 44 4F 53 80 20 2E |SLAVE...v.DOS. .|
000094E0: 42 59 54 20 24 46 46 00 00 00 |BYT $FF... |
..(...ACHTUNG: WEICHT IN EINIGEN DETAILS
.A...VOM OBJEKT.FILE AB !.A...ERGIBT ABE
R EIN AEQUIEENTES.{...LAUFFAEHIGES PROGR
AMM.....:.....ASSEMBLER......OPT OO.....
.. $0800.....SID . $D400.W...GCR1 . ..$1
7 ;TABELCANFANG.....GCR3 . ..$2F ;FUER G
CR.BYTES.....GCR2 . ..$0E.....GCR4 . ..$
0F.9...BIT0 . ..$00 ;TABELCANFANG.Y...BI
T1 . ..$10 ;SERIELLER BUS.J...BIT2 . ..$
20.{...BIT3 . ..$30......BYT 0,0,0,$0A,0
,0,0,0......BYT 0,0,0, 0,0,0,0,0.L....B
YT 0,0,0,$05,0,0,0,0......BYT 0,0,0, 0,
0,0,0,0......BYT $80,$00,$10,$50,$C0,$40
,$50,0.5....BYT $FF,$20,$30, 0,$F0,$60,
$70,0.\....BYT $90,$A0,$B0,$A0,$D0,$E0,$
FF,0......BYT $08,$00,$01, 0,$0C,$04,$0
5,0......BYT $FF,$02,$03,$02,$0F,$06,$07
,0.Q....BYT $09,$0A,$0B, 0,$0D,$0E,$FF,
0......BYT 0,0,0,$01,0,0,$80,$8......BYT
0,0,0, 0,0,0,$00,$0.+....BYT 0,0,0,$10
,0,0,$10,$1.F....BYT 0,0,0, 0,0,0,0,0.D
....BYT 0,0,0,$20,0,0,$C0,$C......BYT 0,
0,0, 0,0,0,$40,$4. . ..BYT 0,0,0,$08,0,
0,$50,$5..."..BYT 0,0,0, 0,0,0,0,0.Y.$.
.BYT 0,0,0,$04,0,0,$FF,$F...&..BYT 0,0,0
, 0,0,0,$20,$2...(..BYT 0,0,0,$40,0,0,$
30,$3.0.*..BYT 0,0,0, 0,0,0,0,0.N.,..BY
T 0,0,0,$80,0,0,$F0,$F.L....BYT 0,0,0,
0,0,0,$60,$6...0..BYT 0,0,0,$00,0,0,$70,
$7...2..BYT 0,0,0, 0,0,0,0,0.C.4..BYT 0
,0,0,$00,0,0,$90,$9...6..BYT 0,0,0, 0,0
,0,$A0,$A...8..BYT 0,0,0,$00,0,0,$B0,$B.
..:..BYT 0,0,0, 0,0,0,0,0.8.<..BYT 0,0,
0,$00,0,0,$D0,$D.V.>..BYT 0,0,0, 0,0,0,
$E0,$E.T.@..BYT 0,0,0,$00,0,0,$FF,$F...B
..BYT 0,0,0,0,0,0,0,0...D..BYT 0,0,0,0,0
,0,0,0...F..BYT 0,0,0,0,0,0,0,0.X.H..BYT
0,0,0,0,0,0,0,0...J.SECAE .BYT 0,$24,$1
F,$19,$12...L.SECNO .BYT $11,$12,$13,$15
.=.N.HIBIT .BYT 0,$10,$20,$30,$40,$50.B.
P..BYT $60,$70,$80,$90,$A0,$B0,$C0.W.R..
BYT $D0,$E0,$F0...T.FEHLER .BYT 0,0,$30,
$31,$32,$33...V..IT .BYT 0,0,0,255,0,1,0
.X.X..BYT 255,0,1,0 ;KOPF.ITI.EN...Z.JMP
START...\.; ### UEBERTRAGUNGSROUTINE ##
#.".^.; COMPUTER .. FLOPPY.G.`.COOUT . .
;ANZAHL BYTES IN Y.C.B.LDA #$0B
;A SETZEN.Q.D.STA $DD00.|.F.LDX #3...H
.COO0 LDA $DD00...J.BPL COO0 ;WARTE
N AUF ..P.L.STX $DD00 ;A RUECKSETZEN
...N.COADR LDA $1800,Y ;DATEN HOC...P.LD
X #$0B...R.STX $DD00 ;A SETZEN.".T.T
AX.A.V.. #$F0 ;A RUECKSETZEN.`.X.ST
A $DD00 ;BIT 4 UND 5.H.Z.LSR.P.|.LSR
.{.~.. #$F0.....STA $DD00 ;BIT 6 UND
7.....TXA...... #$0F.....TAX.E...LDA HI
BIT,X.....STA $DD00 ;BIT 0 UND 1....
.LSR.....LSR...... #$F0.....STA $DD00
;BIT 2 UND 3.=...INY ;UEBERT
RAGEN.E...NOP.M...NOP.U...NOP.W...BNE CO
ADR ;NAECHSTES BYTE.....LDA #$03...
.STA $DD00.....RTS.....; ### UEBERTRAGUN
GSROUTINE ###.V...; COMPUTER .. FLOPPY..
...COIN . . ;ANZAHL BYTES IN Y.....LD
A #$0B ;A SETZEN.!...STA $DD00.,...LD
X #3.M...COI0 LDA $DD00 ;WARTEN AUF ..Z.
..BPL COI0.Y...STX $DD00 ;A RUECKSETZE
N.....COI1 NOP.....NOP.....LDA #$0B ;
A SETZEN.....STA $DD00.....NOP.F...NOP..
.B.LDA #$03 ;A RUECKSETZEN...D.STA $D
D00...F.LDX $DD00...H.LDA BIT3,X ;BIT 5
UND 7.,.J.LDX $DD00.H.L..A BIT2,X ;BIT
4 UND 6.P.N.NOP.^.P.LDX $DD00.Z.R..A BI
T0,X ;BIT 1 UND 3...T.LDX $DD00...V..A
BIT1,X ;BIT 0 UND 2 HOC.P.X.CIADR STA
$1800,Y ;BYTE SPEICHERN.X.Z.INY.....BNE
COI1 ;NAECHSTES BYTE.....RTS.&...; #
## FLOPPY.ROUTINE UEBERTR. ###.4...TRANS
. ..@...LDA #15.K...LDX #8.W...LDY #15.
|...JSR $FFBA ;FILEPARAMETER 15,8,15....
.LDA #0.....JSR $FFBD ;FICAMENPARAMETER.
....JSR $FFC0 ;..I...LDA #.DOSANF.U...ST
A $60.....LDA #.DOSANF.....STA $61 ;($
60) ZEIGER AUF.*...LDA #$00 ;ZU UEBERTR
AG.ES BYTE.8...STA MEMWL.E...LDA #$04.L.
..STA MEMWH ;ABLAGEADRESSE IM FLOPPY...
.TRANS1 LDX #15.....JSR $FFC9 ;.
15.....LDY #0.H...TRANS0 LDA MEMW,Y ;M.
W KOMM.O.V...JSR $FFD2.....INY.....CPY #
6.....BNE TRANS0.....LDX #35 ;
ANZAHL BYTES.A...TRANS5 LDY #0 ;PRO
DURCHGANG.Q...LDA ($60),Y._...JSR $FFD2.
M...INC MEMWL.|...BNE TRANS3.....INC MEM
WH... .TRANS3 INC $60 ;ADR. ERHOEHEN.
..".BNE TRANS4.J.$.INC $61.Y.&.TRANS4 DE
X...(.BNE TRANS5...*.JSR $FFCC ;
.CH...,.LDA $61.3...CMP #$15 ;S
CH. 1.SEITE.V.0.BCC TRANS1 ;UEBER
TRAGEN.H.2.MEMEX LDX #15.V.4.JSR $FFC9..
.6.LDY #0...8.TRANS2 LDA MEME,Y ;STARTEN
'M.E'...:.JSR $FFD2...<.INY.G.>.CPY #5.
V.@.BNE TRANS2...B.JSR $FFE7 ;CL
ALL...D.LDA #$3F ;P.T.4.F.STA $
DD02 ;INITIALISIEREN.A.H.LDA #$0
3.O.J.STA $DD00.W.L.SEI.Z.N.JSR DUNKEL
;BILDSCHIRM AUS...P.LDA #$15...R.STA
COADR.2 ;REST V. ROUTINE.R.T.LDY #$00
;SCHNELL UEBERTRAGEN...V.JSR COOUT
...X.LDA #$16...Z.STA COADR.2...\.LDY #$
00...^.JSR COOUT.%.`.LDA #$17.5.B.STA CO
ADR.2.B.D.LDY #$00.P.F.JSR COOUT.X.H.RTS
.L.J.; ### MENUE ###..L.START LDA #$0A.
..N.STA $0803...P.LDA #147 ;BILDSCHI
RM LOESCHEN.A.R.JSR $FFD2...T.JSR SCR.
;BILDCHEN MAC...V.LDA #0 ;AKTUELL
ER MEN.PUNKT...X.STA $2...Z.MEN . ..A.|.
JSR OK00 ;FLOPPYMELDUNG AUSG..N.~.ME
NB . ..C...JSR KNG ;KNG.....JSR UHR0
;UHR LOESCHEN.....MEN0 JSR .MEN ;M
ENUEAUSWAHL.....MEN1 CMP #0 ;AUSWERTEN.
L...BNE MEN2.Z...JMP DIREC.....MEN2 CMP
#1.....BNE MEN3.....JMP COPY.....MEN3 CM
P #2.!...BNE MEN4.+...JMP ..;...MEN4 CMP
#3.H...BNE MEN5.U...JMP TEST.E...MEN5 C
MP #4.R. .BNE MEN0.....JMP COMM......; #
## DIREC.RY ###.....DIREC JSR SCR......L
DA #2.....LDX #8.K...LDY #0.....JSR $FFB
A ;FILPARAM 2,8,0.....LDX #.DOLLAR..
...LDY #.DOLLAR.....LDA #1.8...JSR $FFBD
;FICAME "$".M...JSR $FFC0 ;..D.
..LDX #2 ;. 2.R...JSR $FFC6.....J
SR $FFCF ;......LDA $90 ;STATU
SABFRAGE.F.B.BNE DIR. ;OB DISK DRIN.T
.D.JSR $FFCF...F.DIRC LDA #15 ;ZAEHLER
E.RAEGE...H.STA DIRCNT ;PRO SEITE.).
J.DIRA DEC DIRCNT.L.L.BNE DIRB ;BIL
DSCHIRM VOLL.O.N.LDX #.M.E ;MELDUNG A
USGEBEN.}.P.LDY #.M.E...R.JSR ....T.JSR
TASTE ;TASTE ABWARTEN.H.V.BCS DIR.
;BEI . ABBRUCH...X.JSR SCR. ;S.ST W
EITER...Z.JMP DIRC.....DIRB JSR $FFCF ;2
BYTES AUSLASSEN.&...JSR $FFCF.B...BEQ D
IR. ;.EMARKIE.G.N...LDA #13.\...JSR $
FFD2.{...JSR DISPACE ;..D LASSEN.....
JSR $FFCF.....TAX.....JSR $FFCF.D...JSR
$BDCD ;PRG.LAENGE AUSG..Q...LDA #"
".....JSR $FFD2.....DIR0 JSR $FFCF.....B
EQ DIRA.....LDY $90.....BNE DIR..3...JSR
$FFD2 ;FICAME.W...JMP DIR0 ;
NAECHSTER E.RAG.J...DIR. JSR $FFCC.U...L
DA #2.....JSR $FFC3 ; 2.....LDA #1
3..... JSR $FFD2.....JMP MEN.I...; ### K
OMM.O ###.....COMM. JSR SCR......LDA #15
.. ..JSR $FFC3 ; 15.. ..LDX #.COMT
XT.4 ..LDY #.COMTXT ;TEXT AUSGEBEN.> .
.JSR ..J ..LDA #15.U ..LDX #8.A ..LDY #1
5. .JSR $FFBA ;. 15,8,15.. ".LDA
#0.. $.JSR $FFBD.. &.JSR $FFC0.I (.LDX #
15 ;OUTPUT AUF 15.W *.JSR $FFC9.
. ,.COMM0 JSR $FFCF ;. V. TAST...!..JSR
$FFD2 ;ANS FLOPPY.#!0.CMP #13.J!2.
BNE COMM0 ;NAECHSTES ZEICHEN.X!4.J
SR $FFCC.D!6.JMP MEN.V!8.; ### KNG ###..
!:.KNG . ...!<.LDA #15..!>.STA SID.24 ;L
AUTSTAERKE..!@.LDA #0.M!B.STA SID.6 ;RE
LEASE..!D.STA SID.4 ;WELC.M.."F.STA SID
;LO.BYTE .Q..%"H.STA SID.5 ;UND ATT
ACK.DECAY AUS.1"J.LDA #12.K"L.STA SID.1
;HI.BYTE .Q.Q"N.;.\"P.LDX #0.H"R.LDY #30
.U"T.KNGW DEX.."V.BNE KNGW.."X.DEY. "Z.B
NE KNGW ;WARTEN.."\.;.."^.LDA #$FC.R"`.
STA SID.6 ;SUSTAIN AUF 15.."B.STA SID.6
;RELEASE AUF 12.."D.LDA #21..#F.STA SI
D.4 ;SAEGEZAHN.%#H.STA SID.4.1#J.LDA #2
0.U#L.STA SID.4 ;KEY.BIT RUECKSETZEN.]#
N.RTS.P#P.; TEXTAUSDRUCK..#R.; ($64),Y B
IS .E (0)..#T.. STX $64 ;ANFANGSADRESS
E.M#V.STY $65 ;IN PO.ER ($64)..#
X..0 LDY #0..#Z.LDA ($64),Y..#|.BEQ .2
;.E.%$~.CMP #"@" ;WIEDERHOLUNGSZE
ICHEN.0$..BEQ .1.N$..JSR $FFD2 ;AU
SGEBEN.T$..INC $64 ;ZAEHLER ERHO
EHEN.$..BNE .0..$..INC $65..$..BNE .0..
$...1 INY ;WIEDERHOLROUTINE.P$..LDA ($6
4),Y ;ANZAHL.X$..TAX..$..INY..$...3
LDA ($64),Y..%..JSR $FFD2 ;AUSGEBE
N..%..DEX.;%..BNE .3 ;WIEDERHOLSCHL
E.E.Z%..CLC ;ZUM ZAEHLER.X%..L
DA $64 ;3 ADDIEREN..% .ADC #3..%..
STA $64..%..BCC .0..%..INC $65..%..BNE .
0..%...2 RTS..%..; ### TITELBILD AUSGEBE
N ###..%..SCR. . ...&..LDA # 0 ;
H.ERG.D..&..STA $D020 ;U. RAHMEN S
CHWARZ.<&..STA $D021.Y&..LDX #.SCREEN
;ADRESSE.J&..LDY #.SCREEN..&..JSR .
;UND AUSGEBEN..&..RTS..&..; ### MENUE
AUSWERTEN ###.P&...MEN LDA #0 ;TASTAT
URPUFFER..&B.STA 198 ;LOESCHEN..
'D.LDA #$81 ;TASTATUR.ERRUPT.1'F.ST
A $DC0E ;ERMOEGLICHEN.T'H.GTC JSR BL
ACK ;FELD MARKIEREN.K'J.GT0 JSR $FFE4
;..W'L.BEQ GT0..'N.CMP #29 ;CURS. R
IGHT. 'P.BEQ GT1..'R.CMP #17 ;CURS.
DOWN.H'T.BEQ GT2..'V.CMP #13 ;...'X.
BNE GT0..'Z.LDA $2..(..RTS ;.E, ME
N.PUNKT IN A.1(..GT1 LDA $2 ;CURS. RIGH
T.S(..ADC #0 ;.1, DA CARRY SET.^(..
CMP #5.K(..BCC GT11.V(..LDA #0..(..GT11
STA $2..(..JMP GTC ;FELD MARKIEREN.D
(..GT2 LDA $2 ;CURS. LEFT.O(..SBC #1.
Z(..CMP #0..(..BPL GT22..(..LDA #4..)..G
T22 STA $2.")..JMP GTC ;FELD MARKIER
EN.E)..BLACK LDY #40 ;REVERSE FELDER.C)
..BL0 LDA $3FF,Y ;ENTFERNEN..)... #$7F
;UND NEUES FELD..)..STA $3FF,Y
;REVERS MARKIEREN..)..DEY..)..BNE BL0..)
..LDA $2 ;MENUEPUNKTNR...)..ASL
;MAL 8..*..ASL..*..ASL..*..SB
C $2..*..TAY.$*..INY./*..LDX #6.Q*..BL1
LDA $402,Y ;REVERS SETZEN.]*...A #$80.L*
..STA $402,Y.T*..INY.|*..DEX..* .BNE BL1
..*".RTS..*$.; ### TAST.RUCK ABWARTEN ##
#..*&.TASTE CLI..*(.LDA #64 ;TASTE
NREGISTER..**.STA 203 ;LOESCHEN.!+
,.LDA #$81 ;IRQ ERMOEGLICHEN./+..ST
A $DC0E.T+0.TAST0 LDA 203 ;TASTATUR ABFR
AGEN.`+2.CMP #63.U+4.BEQ TAST1 ;...+
6.CMP #64..+8.BEQ TAST0..+:.CLC..+<.RTS.
B+>.TAST1 SEC ;CARRY SET BEI ..J+@.R
TS..+B.; ### UHR AUF 0 STETZEN ###..+D.U
HR0 . ...,F.LDA $DC0F.!,H.. #$7F ;UH
R ANWAEHC./,J.STA $DC0F.=,L.LDA $DC0E.T,
N..A #$80 ;50 HZ.B,P.STA $DC0E.O,R.L
DA #$00..,T.STA $DC0B ;STD..,V.STA $D
C0A ;MIN..,X.STA $DC09 ;SEKUNDEN.Z
,Z.STA $DC08 ;UND ZEHNTEL AUF 0..,\.R
TS..,^.; ### ZEIT LESEN ###..-`.UHRZ . .
.#-B.LDA $DC0B ;STUNDEN.>-D.LDA $DC0
A ;MINUTEN.[-F.JSR ULO ;EINER
HOC.{-H.STA $400.913 ;UND AUSGEBEN..-J.
LDA #":"..-L.STA $400.914..-N.LDA $DC09
;SEKUNDEN..-P.PHA..-R.JSR UHI
;ZEHNER HOC..-T.STA $400.915 ;UND AUSGE
BEN...V.PLA. .X.JSR ULO ;UND EINER
.1.Z.STA $400.916.?.|.LDA $DC08.G.~.RTS.
H...ULO . #$0F ;EINER AUSWERTEN.T....A
#$30.|...RTS. ...UHI LSR ;ZEHNER A
USWERTEN.....LSR.....LSR.....LSR.D....A
#$30.L...RTS.....; ### ZEIT ANHALTEN ###
../..UHRA LDA #0 ;BEIM STD STELC.*/..S
TA $DC0B ;HAELT UHR AN.2/..RTS.M/..;
### ZEIT STARTEN ###.Q/..UHRS LDA $DC08
;BEIM 1.10 STELC../..STA $DC08 ;LA
EUFT UHR WEITER../ .RTS../..; ### FLOPPY
MELDUNG ###.H/..OK00 . ..U/..LDA #13 ../
..JSR $FFD2../..JSR DISPACE..0..LDX #0
;ZAEHLER AUSG.ZEICHN.'0..LDA #$08.
A0..JSR $FFB4 ;TALK 8.N0..LDA #$6F.L
0..JSR $FF96 ;SECTALK 15..0..OK01 JS
R $FFA5 ;BYTE V. BUS HOC..0..CMP #13..0.
.BEQ OK02 ;.E.S0..JSR $FFD2 ;S.
ST AUSGEBEN..0..INX..0..CPX #30 ;B
EI 30 AUFHOEREN..1B.BNE OK01.'1D.OK02 JS
R $FFAB ;UNTALK./1F.RTS.M1H.; CURS. ZWEI
FELDER LINKS.A1J.DISPACE LDA #29.O1L.JS
R $FFD2.{1N.LDA #29..1P.JSR $FFD2..1R.RT
S..1T.; ### GCR . DECODIE.G ###.Q1V.;UND
VERSCHIEBUNG IM SPEICHER..1X.DECODE . .
..1Z.;..2..;V. $17BA BIS $18FF (.($6D),Y
).-2..;NACH SPEICHER (.($6F),Y).32
..;.;2..CLC.A2..LDA $68 ;ABLAGEADRESS
E HI.BYTE.{2..ADC $50 ;BERECHNEN..2..
STA $70..2..STA CC.2 ;ADRESSE FUER ...
2..LDA $5A.I2..BEQ DECOD0 ;KEIN ...2..LD
A #$18 ;S.ST BEI $1800..3..STA $70
;ABLEGEN..3..DECOD0 . ..03..LDY #$01 ;
ZEIGER ZUM LESEN.=3..LDA #$34.Z3..STA $0
1 ;ROM .CHALTEN.G3..LDA #$FF..3..STA
$6F ;ZEIGER ZUM SPEICHERN..3..LDA #$0
2..3..STA $6A.E3..LDA #$18 ;PO.ER ZUM
LESEN..3..STA $6E ;($6D).$1800..3..LD
A #$00..3..STA $6D..4..LDA $70..4..STA C
0.2 ;ADRESSEN.=4..STA C1.2 ;ZUM .PEI
CHERN.S4..STA C4.2 ;A.ERN.`4..STA C5.2
.M4..STA C2.2.Z4..STA C6.2..4..STA C7.2.
.4..STA C3.2..4..STA C8.2..4 .STA C9.2..
4".STA CA.2..4$.STA CB.2 ;ERSTES BYTE
(HEADER...5&.BNE DECO2 ;KENNZEICHEN) AU
SLASSEN..5(.DECO0 LDA ($6D),Y.85*.STA $6
C ;GCR.BYTE 1.I5,.. #%11111000.`5..ST
A $6B ;TEIL 1.H50.INY..52.BNE DECO1
;..................54.LDA #3 ;BEREIC
H AB $03BD.E56.STA $6E ;AKTIVIEREN..5
8.LDY #$BD ;..................5:.DECO1
LDA ($6D),Y..6<.ASL..6>.ROL $6C..6@.ASL
.$6B.LDA $6C.,6D.ROL.A6F.. #$1F ;TEIL
2.I6H.TAX.O6J.LDA GCR3,X ;TEIL 2 ENTSCHL
UESSELN.{6L.LDX $6B. 6N..A GCR2,X ;TEIL
1 ENTSCHLUESSELN.D6P.LDX $6F ;ZU
SAMMENSETZEN..6R.C0 STA $FF00,X ;.PEICH
ERN..6T.DECO2 LDA ($6D),Y..7V.LSR
;GCR BYTE 2./7X.. #$1F ;TEIL 1.
77Z.TAX.G7\.INY ;2.W7^.LDA ($6D),Y.
P7`.R. ;TEIL 2..7B.. #%1111100
0..7D.STA $6C..7F.LDA GCR1,X..7H.LDX $6C
..7J..A GCR4,X..7L.INC $6F ;ZEIGER FUE
R .PEICHERN..7N.BNE DECO5 ;NOCH NICHT
FERTIG..8P.DEC $6A./8R.BEQ DECO3 ;BYTE
IST PRUEFSUMME.A8T.DECO5 LDX $6F.T8V.C1
STA $FF00,X.S8X.LDA ($6D),Y ;GCR BYT
E 3..8Z.. #$0F ;TEIL 1..8|.STA $6C
. 8~.INY..8..LDA ($6D),Y..8..STA $6B.D8.
.ASL.P8..ROL $6C..8... #%11111000 ;TEIL
2..8..TAX..9..LDA GCR4,X..9..LDX $6C..9.
..A GCR1,X.&9..LDX $6F.99..C2 STA $FF01,
X.A9..INY.`9..LDA ($6D),Y ;GCR BYTE 4
.K9..R. $6B.R9..R..}9..R. $6B..9 .R...9.
.. #%11111000 ;TEIL 1..9..TAX..9..LDA ($
6D),Y.N9... #$1F ;TEIL 2.V9..INY..
9..STA $6B..9..LDA GCR2,X..9..LDX $6B..:
...A GCR3,X..:..LDX $6F.*:..C3 STA $FF02
,X.2:..TXA.::..CLC.G:..ADC #$03.S:..STA
$6F.V:..JMP DECO0 ;NAECHSTE 4 BYTES..
:B.;### PRUEFSUMME K.TROLLIEREN ###..:D.
DECO3 LDY $5A ;. FLAG.L:F.BNE DECOD1
;1...Y:H.LDY #$1F..:J.C4 E. $FF00,Y..:L.
C5 E. $FF20,Y..;N.C6 E. $FF40,Y.!;P.C7 E
. $FF60,Y.3;R.C8 E. $FF80,Y.E;T.C9 E. $F
FA0,Y.W;V.CA E. $FFC0,Y.I;X.CB E. $FFE0,
Y.Q;Z.DEY..;..BPL C4 ;PRUEFSUMME
..;..STA $6C ;..MUSS 0 SEIN..;..L
DA $1801.K;... #$C0..;..E. $1800 ;K
.TROLLE..<..E. #$95 ;HEADERKENNZEI
CHEN..<..STA $67 ;..MUSS 0 SEIN.B
<..DECOD3 LDA #$37.E<..STA $01 ;R
OM WIEDER EIN.M<..RTS..<..;### . SUBROUT
INE ###..<..DECOD1 LDY #0..<..CC LDA $FF
00,Y ;VERGLEICH DER..<..CMP $1800,Y ;
GELESENEN BYTES..=..BNE DECOD2 ;MIT
DENEN IM..=..INY ;SPEICHER.(=
..BNE CC.5=...BYT $2C.G=..DECOD2 LDY #1.
M=..STY $6C ;FEHLER PRUEFSUMME.X=
..LDY #0..=..STY $67 ;HEADERBYTE
OK..=..JMP DECOD3.N=..; BLOCK ZUM SCHREI
BEN V.BEREITEN..=..; ($70),Y .. $1800,Y.
.=..CODE . ...=..CLC..>..LDA $68..>..ADC
$61.7>..STA $70 ;ADRESSE ERMITTELN.
D>..LDA #$34.B>..STA $01 ;ROM .CHALT
EN.O>..LDA #$00..>..STA $6F ;LO.BYTE
ADR...> .;. >".LDY #$00..>$.LDA ($6F),Y
.T>&.STA $1800 ;1.BYTE UEBERTRAGEN..>(
.STA $5E ;PRUEFSUMME..?*.CMP #$4B
;.$4B (LEERBLOCK). ?,.BEQ CODE2.E?..LDA
#1 ;FLAG KEIN LEERBLK..R?0..BYT $
2C.C?2.CODE2 LDA #0..?4.STA $5F ;FLA
G LEERBLOCK..?6.INY..?8.CODE0 LDA ($6F),
Y.D?:.STA $1800,Y ;REST UEBERTRAGEN..?<
.CMP #1 ;.$01..?>.BEQ CODE1..?@.LD
X #1..@B.STX $5F ;KEIN LEERBLOCK.2@
D.CODE1 E. $5E ;PRUEFSUMME.N@F.STA $5E
;ERNEUERN.V@H.INY.D@J.BNE CODE0.Q@L
.LDA #$37..@N.STA $01 ;ROM EIN..@P
.LDA $5F..@R.CMP #1 ;CARRY.GESETZ
T..@T.RTS ;BEI VOLLEM BLOCK..@
V.; ### KOPIEREN ###..AX.COPY LDA #"1".!
AZ.STA $57 ;PASS 1.?A\.COPY0 JSR
UHR0 ;UHR AUF 0._A^.JSR UHRA ;UND
STARTEN.{A`.JSR SCR. ;BILD LEER..AB.
JSR TRANS ;FLOPPYPRG STARTEN..AD.;.
.AF.LDA #18.XAH.STA $56 ;INITIALI
SIERSPUR..AJ.LDA #0 ..AL.STA $5A
;..FLAG..BN.;. BP.LDA # 1 ;1.SPUR
.,BR.STA $58.MBT.LDA #12 ;.ZTE SP
UR .1.YBV.STA $59..BX.JSR COPI ;SP
URBEREICH KOPIER..BZ.LDA #12..B|.STA $58
..B~.LDA #23..B..STA $59.PB..INC $57
;DURCHGANG 2..B..JSR COPI..B..LDA #2
3..B..STA $58..C..LDA #36..C..STA $59.-C
..INC $57 ;DURCHGANG 3.@C..COPY1
JSR COPI.WC..LDA #"0" ;.E.CC..STA
$57..C..JSR .ET ;MELDUNGSROUTINE..C
..COPY2 LDA #6..C..JSR MASTER ;FLOPP
YPRG .E.YC..JSR HELL ;BILDSCHIRM A
N..C..CLI..D .JSR $BDDD ;FAC INITIA
LISIEREN.+D..JMP MENB ;ZUM HAUPTME
NUE.;D..; ### . ###.QD... LDA #"4";PASS
4.]D..STA $57.~D..JMP COPY0 ;ZUM KO
PIEREN..D..; ### DISK . TEST ###..D..TES
T JSR UHR0..D..JSR UHRA.DD..JSR SCR...D.
.JSR TRANS ;FLOPPYROUTINE STARTEN..E..
LDA #20 ;PASS T..E..STA $57.1E..LDA
#18 ;INITIALISIERSPUR.=E..STA $56.TE
..LDA #0 ;.FLAG.`E..STA $5A.}EB.LDA
#1 ;1.TEIL 1.18..ED.STA $58..EF.LD
A #19..EH.STA $59.BEJ.JSR COPI ;SPURE
N EINLESEN..EL.LDA #19 ;2.TEIL 19.35
..EN.STA $58..EP.LDA #36..FR.STA $59..FT
.JMP COPY1 ;.E.%FV..BYT $FF.EFX.; ###
LESEN SPURBEREICH ###._FZ.; $58 BIS AUSS
CHL.$59.LF..COPI . ..WF..LDA #1..F..JSR
.ET ;'FROM' AKTIVIEREN..F..LDX #.TA
BELLE..F..LDY #.TABELLE.ZF..JSR . ;
TABELCKOPF..F..LDA $57..G..CMP #"2"
;BEIM 1. UND 4..,G..BCC COINIT ;IN
ITIALISIEREN.9G..CMP #"4".GG..BCC C.OIN.
JG..COINIT . . ;INITIALISIEREN..G..L
DA $56 ;INITIALISIERSPUR..G..STA
$FC..G..LDA #00 ;KOPFVERSTELLUNG.
.G..STA $FF ;1...5 $FF...5..G..LD
A #5..H..JSR MASTER ;INITIALISIERBEF
EHL. H..LDA #$00.0H..STA CIADR.2.=H..LDY
#$FA.[H..JSR COIN ;ERGEBNIS HOC.GH..
LDA $FA.UH..BEQ C.OIN..H..JMP COPY2 ;N
ICHT INITIALISIERBAR..H..C.OIN . ..LH..L
DA #4 ;BLOCKLESE..D .4..H..LDY $5A
;.FLAG..H..BNE N6..H...BYT $2C..I.
.N6 LDA #5 ;BEI . .5.:I..STA $5
4 ;..DSANGABE._I..LDA #$19 ;ABL
AGE IM SPEICHER..I..STA $68 ;BEGINN
T BEI $1900..I .COPNEX . ...I".LDA $60
;AKTUELLE SPUR.VI$.JSR TRSEC ;SEK
.REN BESTIMMEN..I&.STA $62 ;SEK.REN
.TRACK..I(.TXA..J*.STA $FE ;SPURBER
EICH.<J,.JSR SECMAP ;BELEGUNGSPLAN.^J.
.LDA #0 ;ERSTER BLOCK..J0.STA $
61 ;AKTUELLER BLOCK. J2.STA $50
;.ZTER BLOCK.DJ4.LDA #01 ;FLAG
ERSTER BLOCK..J6.STA $63 ;IN DIESER
SPUR..J8.LDA $60..K:.STA $FB ;TRACK
..K<.LDA $62..K>.STA $FD ;MAXIMUM.:
K@.LDA #10.AKB.STA $53 ;SPURVERSTEL
LVERSUCHE.SKD.COPL0 LDA #10..KF.STA $52
;LESEVERSUCHE IN SPUR..KH.LDY $53.D
KJ.LDA .IT,Y ;VERSTELLFAK.R.SKL.BEQ COP
BLK..KN.LDA #2 ;WENN NEBEN SPUR..L
P.STA $52 ;DANN NUR 2 LESEVERS.."LR
.;.DLT.COPBLK . . ;NAECHSTER BLOCK.JLV
.;.VLX.LDY $53.DLZ.LDA .IT,Y..L\.STA $FF
;VERSTELLFAK.R..L^.LDA $61..L`.STA
$FC ;SEK.R..LB.;..LD.LDA #1.WLF.JS
R MASTER ;BLOCK LESEN..LH.;..LJ.LDA $3
BA..ML.STA $51 ;FEHLERFLAG..MN.JSR
DECODE ;ALTEN ENTSCHLUESSELN.4MP.;.AMR
.LDA #$03.QMT.STA CIADR.2.^MV.LDY #$BA.
MX.JSR COIN ;NEUEN EINLESEN..MZ.LDA
#$18..M|.STA CIADR.2..M~.LDY #$00.AM..JS
R COIN ;TEIL2.GM..;..M..DEC $63
;NOCH KEIN BLOCK DA..M..BEQ COPI8..N..L
DA $51 ;FEHLER V. FLOPPY.+N..BNE CO
PI0.QN..LDA $67 ;FEHLER HEADERKENNZ
.._N..BNE COPIA..N..LDA $6C ;FEHLER
CHECKSUM..N..BNE COPI9..N..COPI8 JSR SU
CH ;NAECHSTEN BLK SUCH..N..BCC COPBLK
;SCH. ALLE GELESEN..N..JSR DECODE ;
.ZTEN BLOCK..O..LDA $50 ;ENTSCHLUE
SSELN.BO..STA $61 ;WIRD ZUM NEUEN B
LK.CO..LDA $3BA ;FLOPPY FEHLER.QO .
BNE COPI0..O..LDA $67 ;HEADER KENN
Z.FEHLER..O..BNE COPIA.KO..LDA $6C
;PRUEFSUMMENFEHLER.YO..BNE COPI9..O..JM
P COPI1 ;NAECHSTE SPUR..P..; FEHLERB
EH.LUNG./P..COPIA LDA #$04 ;22 NO BLOCK.
<P...BYT $2C._P..COPI9 LDA #$05 ;23 CHKS
M BLOCK.~P..COPI0 LDY $50 ;S.ST 20.21..
P..STA $33C,Y ;IN TABELLE..P..COPI3
DEC $52.UP..BNE COPI8 ;NAECHSTER VE
RSUCH..P..COPI2 DEC $53..Q..BEQ COPI1
;NAECHSTE VERSTELLG..Q..LDA $50.&QB.S
TA $61.JQD.JMP COPL0 ;NAECHSTEN LES
EN.CQF.;SPUR FERTIG GELESEN.VQH.COPI1 JS
R .ERR..QJ.INC $D020 ;FARBE HOCHZAE
HC..QL.LDA $57.IQN.CMP #20 ;TEST.
DURCHGANG.TQP.BEQ TT..QR.LDA $68
;SPEICHERPO.ER..RT.CLC ;UM GE
LESENE BLKS.8RV.ADC $62 ;ERHOEHEN
.DRX.STA $68.HRZ.TT INC $60 ;TRACK H
OCHZAEHC.TR..LDA $60..R..CMP $59. R..BEQ
COPO ;SCH. FERTIG.BR..JMP COPNEX
;NAECHSTE SPUR..R..; ### SPURBEREICH
BESCHREIBEN ###..R..COPO . ...S..LDA $5
7..S..CMP #20.0S..BEQ VER ;TEST.D
URCHGANG.<S..LDA $57.IS..CMP #"4".IS..BC
C CT ;..DURCHGANG.US..LDA $5A.S
..E. #1. S..STA $5A ;V.FLAG A.ERN
..S..BEQ VER.PS..JMP COPI ;ZUM VER
.IZIEREN..S..VER RTS ;FERTIG..S..
CT . ...T..LDA #2.!T..JSR .ET ;'.' A
KTIVIEREN.BT..LDA #$19 ;SPEICHERPO.
ER.NT..STA $68.YT..LDA #6.XT..STA $54
;BLOCK ..D 6.~T..;..T..COP. . .
;NAECHSTE SPUR..T..LDA $60.KT..JSR TRSEC
;SEK.RZAHL HOC.WT..STA $62..T..TXA.
.T..STA $FE ;SPURBEREICH..U..LDA #
4.0U..STA $53 ;ANZ.SCHREIBVERSUCHE
.6U .;.ZU".COP.0 . . ;NAECHSTER VERSU
CH..U$.JSR SECMAP ;UEBERSICHT ANLEGEN
..U&.LDA #$00..U(.STA $6C ;CHECKSU
M GANZER TRK..U*.LDA #0..U,.STA $61
;AKTUELLER SEK.R..U..LDA $60..V0.STA $
FB ;TRACK..V2.LDA #00.,V4.STA $FC
;SEC.R.8V6.LDA $62.SV8.STA $FD
;MAXIMUM._V:.LDA #0 .~V<.STA $FF
;VERSTELLUNG..V>.LDA #3..V@.JSR MASTER
;.MATIEREN.IVB.COPOW . . ;NAECHS
TER BLOCK.UVD.LDA $61..VF.STA $FC
;SEK.R..WH.JSR CODE ;VERSCHIEBEN.(W
J.BCC CO.UC ;LEERBLOCK.4WL.LDA $6C.WWN
.E. $5E ;PRUEFSUMME A.ERN.CWP.STA
$6C.NWR.LDA #2..WT.JSR MASTER ;BLK SC
HREIBEN..WV.LDA #$18 ;UEBERTRAGEN..
WX.STA COADR.2.KWZ.LDY #$00.YW\.JSR COOU
T..W^.CO.UC JSR SUCH ;NAECHSTEN SUCH. X
`.BCC COPOW ;NAECHSTER BLOCK.&XB.;.1
XD.LDA #0.=XF.STA $FC.`XH.LDA #4
;BEGINN. M.BLK 0.XJ.JSR MASTER ;VER.
IZIEREN..XL.LDA #$00..XN.STA CIADR.2..XP
.LDY #$FA.IXR.JSR COIN ;RUECKMELDUN
G..XT.LDA $FC ;WRITE PROTECT..XV.B
NE COPOWP..YX.JMP COPY2 ;.E..YZ.COPO
WP . ..<Y|.LDA $FB ;WRITE ERR..JY~
.BNE COPO0.VY..LDA $FA.BY..CMP $6C.PY..B
NE COPO0.~Y..JMP COPO1..Y..COPO0 DEC $53
..Y..BEQ COWER.CY..JMP COP.0 ;NAECHS
TER VERSUCH..Y..COWER JSR WERR.S ;FEHLER
MELDG..Y..;..Z..COPO1 LDA $68 ;SPEICHER
PO.ER.*Z..CLC ;ERHOEHEN.6Z..A
DC $62.BZ..STA $68.CZ..INC $60 ;T
RACKZAEHLER.OZ..LDA $60.{Z..CMP $59..Z .
BEQ COPOE..Z..INC $D020 ;FARBE ERHO
EHEN..Z..JMP COP..GZ..COPOE RTS..Z..; ##
BEFEHLSUEBERGABE AN FLOPPY ##..[..MASTE
R . . ;JOBNUMMER IN A..[..STA $FA.'[.
.LDA #0.7[..STA COADR.2.D[..LDY #$FA.C[.
.JSR COOUT ;UEBERTRAGEN.K[..RTS..[..
; ### LESEFEHLER UEBERSICHT ###..[...ERR
. ...[..LDA #13..[..JSR $FFD2.F[..JSR D
ISPACE.R[B.LDA $FB..[D.JSR ZAHL ;SP
URNUMMER AUSGEBEN..\F.LDA #" "..\H.JSR $
FFD2..\J.LDY #0.@\L..ERR0 LDA $033C,Y ;T
AB.LESEN.C\N.BNE .ERR1 ;FEHLERHAFTER BL
OCK.\P.LDA #"." ;BLOCK OK..\R..A $
5A ;BEI . '.'..\T.JSR $FFD2.I\V..E
RR2 INY ;NAECHSTER BLOCK.U\X.CPY $FD..\
Z.BNE .ERR0..\..RTS..]...ERR1 TAX ;FEHL
ERNUMMER NACH X.+]..LDA #18 ;REVER
S ..9]..JSR $FFD2.Y]..LDA FEHLER,X ;FII
.CODE HOC.]..JSR $FFD2 ;FEHLERNR. A
USGEBEN..]..LDA #146 ;REVERS OFF..]
..JSR $FFD2..]..CLC..]..TYA.C]..PHA..]..
ADC $68 ;ADRESSE IM SPEICHER..^..S
TA $70 ;BESTIMMEN..^..LDA #$34. ^.
.STA $01.+^..LDY #0.7^..STY $6F.Y^..LDA
#$01 ;BLOCK LOESCHEN.O^...ERR4 STA
($6F),Y.W^..INY..^..BNE .ERR4..^..LDA #$
4B..^..STA ($6F),Y..^..LDA #$37..^..STA
$01.C^..PLA.K^..TAY.Y^..JMP .ERR2..^..;
### SCHREIBFEHLER MELDEN ###.._..WERR.S
. ..._..LDX #.WERR..+_..LDY #.WERR..K_..
JSR . ;MELDUNG AUSGEBEN.W_..LDA $60.
X_ .JSR ZAHL ;SPURNUMMER ".._".LDA
#13 .._$.JSR $FFD2.._&.RTS.._(.; ### PI
C.GRAMM ANWAEHC ###.._*.PASS PHA ;1.FRO
M 2.. 0.LOESCHEN.._,.LDA $57..`..STA $67
B ;PASS SETZEN..`0.LDY #0..`2.LDX #$70.
,`4.LDY #$04.9`6.LDA #$7F.S`8.STX $64
;KO.DINATEN.``:.STY $65 ..`<.STA $66 ;
MASKE %011111111..`>.LDX #12 ;12 ZEIC.
.`@.JSR PS2 ;PIC.GRAMME LOESCHEN..`B.J
SR BLACK ;MENUEPUNKT ANZEIGEN..`D.PLA..`
F.CMP #$30..AH.BEQ P. ;.E..AJ.CMP #1..A
L.BNE PASS1.:AN.LDX #$70 ;KO.DINATEN FR
OM.GAP.LDY #$04.UAR.JMP PASS2.WAT.PASS1
LDX #$60 ;KO.DINATEN ...AV.LDY #$05..AX
.PASS2 STX $64..AZ.STY $65..A\.LDA #$FF.
LA^.STA $66 ;..MASKE.WA`.LDX #6.
.AB.JSR PS2..AD.P. RTS..BF.PS2 LDY #5
;SETZ.LOESCH ROUT..1BH.PS1 LDA ($64),
Y ;X ZEIC.RBJ..A #$80 ;BIT 7 SETZ
EN.MBL.. $66 ;. MASKE.}BN.STA ($
64),Y..BP.DEY..BR.BPL PS1..BT.LDA $64..B
V.CLC..BX.ADC #40..BZ.STA $64.IB|.BCC PS
3.UB~.INC $65..B..PS3 DEX..B..BNE PS2..B
..RTS..C..; ## NAECHSTEN DURCHGANG MELDE
N ##.@C...ET JSR PASS ;PIC.GRAMM ANZEIG.
.BC..JSR HELL ;BILDSCHIRM AN..C..J
SR UHRA ;UHR ANHALTEN..C..JSR UHRZ
;ZEIT AUSGEBEN..C..LDA $57..C..CM
P #"0"..C..BEQ CEN ;.E DER DURCHG
...C..JSR KNG ;KNG..D..JSR TASTE
;TASTE ABWARTEN.)D..BCC COPIR.KD..LD
A #"0" ;BEI . ABBRUCH.WD..STA $57.
ZD .JSR PASS ;PIC'S LOESCHEN..D..C
EN LDX #$F8..D..TSX ;STACK SE
TZEN.OD..JSR DUNKEL ;BILDSCHIRM AUS.
WD..SEI..D..JMP COPY2 ;ZUM ABBRUCH.
.E..COPIR JSR DUNKEL ;.............;E..J
SR SCR. ;WEITERMACHEN.]E..JSR UHRS
;UHR STARTEN.JE..LDA #$80..E..S
TA $DC0E ;.ERRUPT AUS..E..LDA $58
..E..STA $60 ;1.TRACK ANGEBEN.F
E..RTS.LE..;..E..DUNKEL LDA #$0B ;BILDS
CHIRM AUS..E..STA $D011..FB.DUNK0 LDA $D
011.!FD.BPL DUNK0.5FF.DUNK1 LDA $D011.CF
H.BMI DUNK1.KFJ.RTS.QFL.;.UFN.HELL LDA #
$1B ;BILDSCHIRM AN..FP.STA $D011..FR.
LDA # 0..FT.STA $D020..FV.RTS..FX.;.NFZ.
; ### SEK.REN . TRACK BEST.###..F..TRSEC
LDX #4 ;TRACK IN A..G..TRSEC0 CM
P SECAE,X ;VERGLEICH..G..DEX.,G..BCS TR
SEC0.PG..LDA SECNO,X ;ANZAHL HOC
.XG..RTS.|G..; ## SEK.RUEBERSICHT ANLEGE
N ##..G..SECMAP LDY #$3C..G..LDA #$03
;V.BELEGUNG ERR. 21.MG..SECMAP0 STA $0
300,Y.UG..INY..G..CPY #22.$3C ;22 BLOCK
S..H..BNE SECMAP0..H..RTS.0H..;# ZWEISTE
LLIGE DEMIMALZAHL AUSG.#.LH..ZAHL . .
;IN A.YH..LDX #$30.EH..STX $4F.SH
..ZAHL0 SEC..H..SBC #10 ;ZEHNE
R ZAEHC..H..BCC ZAHLE..H..INC $4F ..H..B
NE ZAHL0..H..ZAHLE ADC #10.$30 ;EINER ER
MITTELN..H..PHA..H..LDA $4F..I..JSR $FFD
2 ;UND AUSGEBEN.'I..PLA.5I..JSR
$FFD2.=I..RTS.BI..; ### NAECHSTEN SEK.R
SUCHEN ###.TI..SUCH LDA #$00..I..LDY $61
;NEUEN BLOCK ALS..I..STA $33C,
Y ;GELESEN KENNZ...I .STY $50
;WIRD ZUM ALTEN..I".LDA #21..J$.STA
$4F ;MAX.SEK.REN..J&.CLC.&J(.L
DA $61.EJ*.ADC $54 ;PLUS ..D.IJ
,.STA $61 ;NAECHSTER BLK..J..SU
CH0 CMP $62 ;KLEINER MAXIMUM..J0.BCC
SUCH1.AJ2.SEC ;S.ST $62 ABZ
..MJ4.SBC $62.YJ6.STA $61..J8.SUCH1 TAY.
.J:.LDA $33C,Y..K<.BEQ SUCH2 ;SCH
. GELESEN.!K>.CLC.)K@.RTS.NKB.SUCH2 INC
$61 ;NAECHSTEN .IEN.KKD.LDA $61
;SUCHEN.WKF.DEC $4F..KH.BNE SUCH0..K
J.SEC ;ALLE GELESEN..KL.RTS
.IKN.; ## DATENBEREICH ##.XKP.SCREEN . .
..KR..BYT 19,142,8,154..LT..F "S CATALG
BACKUP VERIFY TESTER COMMAND".)LV..BYT 1
3.5LX..F ".@".ALZ..BYT 37.ML\..F "..".YL
^..BYT 13.EL`..F ".@".QLB..BYT 31..LD..F
" ......."..LF..BYT 13..LH..F ".@"..LJ.
.BYT 31..LL..F " .FROM..".ELN..BYT 13.QL
P..F ".@"..LR..BYT 31..LT..F " . UI ..".
.LV..BYT 13..MX..F ".@"..MZ..BYT 31.%M|.
.F " . JK ..".1M~..BYT 13.=M...F ".@".IM
...BYT 31.[M...F " . UI ..".GM...BYT 13.
SM...F ".@".M...BYT 31..M...F " .......
"..M...BYT 13..M...F ".@"..M...BYT 31.GM
...F " .......".SM...BYT 13..M...F ".@".
.M...BYT 31..M...F " . TO .."..N...BYT 1
3..N ..F ".@".!N...BYT 31.3N...F " . UI
..".?N...BYT 13.KN...F ".@".WN...BYT 31.
IN...F " . JK ..".UN...BYT 13..N...F ".@
"..N...BYT 31..N...F " . UI .."..N...BYT
13..N...F ".@".CN...BYT 31.UN...F " ...
...."..N...BYT 13..N...F ".@"..NB..BYT 3
1..OD..F " PASS ."..OF..BYT 13.#OH..F "
.@"./OJ..BYT 31.AOL..F " 00 .".MON..B
YT 13.YOP..F ".@".EOR..BYT 37.QOT..F " .
".}OV..BYT 13..OX..F ".@"..OZ..BYT 31..O
...F " TIME ."..O...BYT 13..O...F ".@".
KO...BYT 31..O...F " ......."..O...BYT 1
3..O...F ".@"..P...BYT 31..P...F " . .
.."..P...BYT 13.+P...F ".@".7P...BYT 31.
IP...F " . M. ..".UP...BYT 13.AP...F ".@
".MP...BYT 31.P...F " . .."..P...BYT
13..P...F ".@"..P...BYT 31..P...F " .0:
00..".AP...BYT 13.MP...F ".@".YP...BYT 3
1..P...F " ......."..P...BYT 13..Q...F "
.@"..Q...BYT 37..Q...F "..".-Q...BYT 19,
17,17.8Q...BYT 0.GQ..COMTXT . ..YQ...BYT
17,29,29.JQ...F "COMAND@"..Q ..BYT 21,3
2,58,64,21,157,0..Q".M.E .BYT 13,13..Q$.
.BYT 29,29.DQ&..F "STOP/SPACE TASTE".OQ(
..BYT 0..Q*.TABELLE .BYT 29,29,29,29,29,
17,18..R,..BYT 48,146..R...F "123456789"
.+R0..BYT 18,49,146.>R2..F "123456789".Q
R4..BYT 18,50,146._R6..BYT 13,0.WR8.WERR
. .BYT 29,29,18..R:..F "WRITE ERROR"..R<
..BYT 146..R>..F " TRACK "..R@..BYT 0.HR
B.DOLLAR .F "$"..RD.DIRCNT .BYT 0..RF.
MEMW .F "M-W"..SH.MEMWL .BYT $00..SJ.ME
MWH .BYT $04. SL..BYT 35.&SN.;.8SP.MEME
.F "M-E".ISR..BYT $10,$04.OST.;.CSV.;FLO
PPYPROGRAMM.ISX.;.VSZ... $1400..S\.DOSAN
F . ...S^.;..S`.;..SB.BIT4 . . ;TABEL
LE SERIELLER BUS.GSD.BIT5 . ..2.VSF.BIT6
. ..8..SH.BIT7 . ..10..TJ..BYT 0,$20,0,
$80,$10,$30,$40,$C0.0TL..BYT 0,$02,0,$08
,$01,$03,$04,$0C.8TN.SEI.[TP.JSR ZERO
;ZEROPAGE INITIAL..HTR.LDA #$05..TT.JSR
INFLO ;REST PROGRAMM..TV.LDA #$06
;SCHNELL EINLESEN..TX.JSR INFLO.DTZ.LDA
#$07.RT|.JSR INFLO..T~.JMP SLAVE ;AUFT
RAG AUSFUEHREN..U..INFLO STA FIADR.2..U.
.LDY #$00.&U..JSR FLIN..U..RTS.QU..; ###
UEBERTRAGUNGSROUTINE ###.JU..; FLOPPY .
. COMPUTER..U..FLOUT LDA $1800 ;WARTEN
AUF A..U..BPL FLOUT..U..LDA #$10
;. SETZEN.JU..STA $1800..U..FOADR LDA
$0300,Y ;DATEN HOC..U..STA $0F..U..LSR.
.V..LSR..V..LSR..V..LSR.;V .FLOUT0 LDX $
1800 ;WARTEN AUF A.JV..BPL FLOUT0.MV..S
TA $1800 ;BIT 5 UND 7.UV..ASL..V
... #$0F..V..STA $1800 ;BIT 4 UN
D 6..V..LDA !$0F..V... #$0F..V..STA $180
0 ;BIT 1 UND 3..V..ASL..V... #$0
F..W..STA $1800 ;BIT 0 UND 2.7W.
.INY ;UEBERTRAGEN.]W..BNE
FOADR ;NAECHSTES BYTE.JW..LDX #$
0F.XW..STX $1800..W..RTS..WB.; ### UEBER
TRAGUNGSROUTINE ###..WD.; FLOPPY .. COMP
UTER.NWF.FLIN LDX #$10..WH.FLIN0 LDA $18
00 ;WARTEN AUF A..WJ.BPL FLIN0..XL.STX
$1800 ;. SETZEN.&XN.NOP..XP.NOP.P
XR.LDA #$00 ;RUECKSETZEN.^XT.STA
$1800.FXV.NOP.NXX.NOP..XZ.FLIN2 LDA $18
00 ;WARTEN AUF A..X..BPL FLIN2..X..NOP.
.X..NOP.QX..LDX $1800 ;BIT 4 UND
5..X..LDA BIT4,X..X..NOP..Y..LDX $1800
;BIT 6 UND 7..Y...A BIT5,X. Y..NOP
.(Y..NOP.0Y..NOP.RY..LDX $1800 ;B
IT 0 UND 1.`Y...A BIT6,X.HY..NOP..Y..LDX
$1800 ;BIT 2 UND 3..Y...A BIT7,X
;HOC.DY..FIADR STA $0300,Y ;SPEIC
HERN..Y..INY ;NAECHSTES BY
TE..Y..BNE FLIN2..Z..LDX #$0F..Z..STX $1
800..Z..RTS.AZ..; ### ZEROPAGE INITIALIS
IEREN ###.NZ..ZERO . ..NZ..LDA #$10 ;T
IMER SCHNELLER.|Z..STA $1C07..Z..LDA #$0
0..Z..STA $20 ;KEIN KOPFTRANSP.T.KZ..
STA $3F ;PUFFER 0 ZUGR.F..Z..STA $50
;..{..STA $2FE ;KEINE SPURVERSTELLG
...{..LDA #$FF./{..STA $3E ;KEIN LAUF
W.AKTIV.<{..LDA #$00.`{ .STA $30 ;PUF
FERADRESSE $0300.M{".LDA #$03.Y{$.STA $3
1..{&.CLC..{(.RTS..{*.; ### STAPEL SPEIC
HERN ###..{,.STACKSET . ...{..TSX
;WICHTIG FUER RUECK...{0.STX $49 ;
SP.G AUS JOB..|2.LDA #$EE ;KOPF EINSC
HALTEN.,|4.STA $1C0C.4|6.RTS.P|8.; ### S
YNCHR.ISATI. ###.]|:.SYNC . ..|<.LDA #$
FF ;TIMER SETZEN..|>.STA $1805..|
@.SYNC1 BIT $1805 ;TIMER ABGELAUFEN.A|B.
BPL SYNC2..|D.BIT $1C00 ;SYNC ABWA
RTEN..|F.BMI SYNC1..}H.LDA $1C01 ;
P.T LESEN..}J.CLV.&}L.LDY #$00..}N.CLC.6
}P.RTS.D}R.SYNC2 SEC.U}T.RTS ; FEHLER.Q}
V.; ### SPUR ERHOEHEN ###.~}X.PLUS . ...
}Z.LDX $1C00 ;MOMEN.E SPUR.C}\.INX
;IN BIT 0.1 V. $1C00..}^.TXA
;UM 1 ERHOEHEN..}`.. #$03..}B.PLMI
STA $4B..~D.LDA $1C00..~F.. #$FC.#~H..A
$4B.J~J.STA $1C00 ;UND WIEDER SPEICHE
RN.O~L.LDA #$90 ;WARTEZEIT IN TIMER.
.~N.TIM STA $1805..~P.PLMW LDA $1805..~R
.BMI PLMW ;WARTEN..~T.RTS.T~V.; ###
SPUR ERNIEDRIGEN ###..~X.MINUS . ...Z.L
DX $1C00 ;WIE ERHOEHEN..|.DEX..~.TX
A..... #$03.)..JMP PLMI.G..; ### KOPF
.ITI.IEREN ###.I..KOPF STA $22 ;AUF
SPUR IN A.U..STA $18....ASL
;MAL 2....ADC $FF ;PLUS VERSTEL
LUNG.X..STA $F0 ;MACHT NEUE SPUR
....KOPFW LDA $F1.....CMP $F0 ;A
LTE SPUR.#...BEQ KOPFE ;GLEICH.1...
BCS KOPFK.W...JSR PLUS ;NEUE IST G
ROESSER.C...INC $F1.Q...BNE KOPFW.....KO
PFK JSR MINUS ;NEUE IST KLEINER... .DEC
$F1.....BNE KOPFW.Q...KOPFE LDA $FE ;SP
URBEREICH.....ASL ;ZUR BESTIM
MUNG DER.....ASL ;LESEGESCHWI
NDIGKT..'...ASL./...ASL.7...ASL.C...STA
$4B.D...LDA $1C00 ;NACH BIT 5.6...
.. #$9F ;V. $1C00......A $4B.....S
TA $1C00. ...RTS.....; ### HEADER LESEN
###.H...HEAD . ......LDA $12 ;ID1.
..B.STA $16...D.LDA $13 ;ID2...F.S
TA $17.'.H.LDA $FB ;TRACK.3.J.STA
$18.L.L.LDA $FC ;SEK.R.X.N.STA $19
.C.P.E. $16.N.R.E. $17.Y.T.E. $18...V.ST
A $1A ;PRUEFSUMME BILDEN...X.JSR $
F934 ;VERSCHLUESSELN.L.Z.LDA #00....
.STA $00 ;JOBMELDUNG LOESCHEN.....
JSR STACKSET ;STAPEL.ITI..5...LDX #40
;40 LESEVERSUCHE.V...JSR $F538
;SYNC ABWARTEN.`...LDA 0.....CMP #2
;BEI FEHLER CARRY.....RTS.....; ### U
PRG BLOCK LESEN ###.....BLCK . ..Y...JSR
STACKSET ;KOPF EIN.....JSR SYNC
;SYNC ABWARTEN.#...BLOCK0 BVC B
LOCK0 ;BYTE BEREIT.+...CLV.N...LDA $1C0
1 ;BYTE LESEN.S...STA $0300,Y
;NACH $0300,Y.{...INY.....BNE BLOC
K0.....LDY #$BD.....BLOCK1 BVC BLOCK1...
..CLV.T...LDA $1C01 ;TEIL 2....
.STA $0100,Y ;NACH $01BD,Y.....IN
Y.....BNE BLOCK1.....RTS.;...; ### UPRG
BLOCK SCHREIBEN ###.I...WRITE . ..M...LD
A #$EE ;KOPF AUF LESEN.{...STA $1
C0C.....LDX #$09 ;9 BYTES .I.....
LDY #$00.L...JSR $FDC9 ;X.256.Y BYTES L
ESEN.Z...LDA $1C0C...... #$1F... ..A #$C
0...".STA $1C0C ;AUF SCHREIBEN.!.$
.LDA #$FF.F.&.STA $1C03 ;P.T AUF A
USGABE.I.(.WRITEF LDA #$FF ;SYNC MARKIE.
G.W.*.STA $1C01...,.LDX #$05 ;5 S
YNCS.....LDY #$00...0.STY $F9.L.2.JSR $F
DC9 ;SCHREIBEN.Y.4.LDY #$BB...6.WR
ITE0 LDA $0100,Y ;V. $1BB,Y...8.WRITE1 B
VC WRITE1 ;BYTE .Y.#.:.CLV.J.<.STA $1C0
1 ;BYTE SCHREIBEN.U.>.E. $F9.X.
@.STA $F9 ;PRUEFSUMME...B.INY
...D.BNE WRITE0...F.WRITE2 LDA $0300,Y ;
TEIL 2.D.H.WRITE3 BVC WRITE3.L.J.CLV...L
.STA $1C01 ;SCHREIBEN...N.E. $F
9...P.STA $F9...R.INY...T.CPY #$FE.).V.B
NE WRITE2.F.X.WRZ BVC WRZ ;WARTEN BIS.M
.Z.CLV ;FERTIG MIT SCHREIBEN.}.
\.WRX BVC WRX...^.LDY $FC ;SEK.R...
`.LDA $F9.H.B.STA $180,Y ;PRUEFSUMME IN
TABELLE.P.D.RTS...F.; ### FLOPPY BEFEHL
SAUSFUEHRG.###...H.SLAVE . ....J.LDA #$0
0.!.L.STA FIADR.2...N.LDY #$FA.L.P.JSR F
LIN ;BEFEHL HOC.I.R.;$FA . BEFEHL.R
UECKMELDG.Z.T.;$FB . TRACK...V.;$FC . SE
K.R...X.;$FD . SEK.REN . TRACK.C.Z.;$FE
. SPURBEREICH (3.0)...|.;$FF . VERSTELLF
AK.R (FF.01)...~.LDX $FA.....DEX.....BEQ
B. ;1 . BLOCK LESEN.!...BEF1 DEX.....BN
E BEF2.Q...JMP BWRIT ;2 . BLOCK SCHREIBE
N.^...BEF2 DEX.K...BNE BEF3.....JMP B.M
;3 . SPUR .MATIEREN.....BEF3 DEX.....BNE
BEF4.A...JMP BVERY ;4 . SPUR .EN.N...BE
F4 DEX.....BNE BEF5.....JMP BINIT ;5 . I
NITIALISIEREN.....BEF5 JMP $EAA0.*...; #
## BLOCK LESEN ###.5. .B. . ..K...LDA $F
B ;SPUR.L...JSR KOPF ;KOPF .ITI.I
EREN.....JSR HEAD ;HEADER LESEN.....B
CS B.E ;FEHLER.....JSR BLCK ;BLOCK L
ESEN.G...LDA #0.X...B.E STA $1BA.....LDA
#$01.....STA FOADR.2.....LDY #$BA.(...J
SR FLOUT ;BLOCK TEIL1 AUSGEBEN.5...LDA
#$03.E...STA FOADR.2.R...LDY #$00.I...J
SR FLOUT ;TEIL2.W...JMP SLAVE...B.; ##
# INITIALISIEREN ###...D.BINIT LDA #2 ;I
NITIALISIERVERSUCHE.G.F.STA $F8...H.LDA
#$05 ;MO.R AN...J.STA $1C00...L.LDA
#$F0...N.JSR TIM ;WARTEN.".P.LDA #$
04.0.R.STA $1C00.S.T.LDA $FC ;INITI
ALISIERSPUR.^.V.STA $6...X.BINIA LDA #20
;LESEVERSUCHE...Z.STA $F9.....BINIB L
DA #$B0 ;INIT.BEFEHL.M...STA $00
;AN .ROLLER.U...CLI.....BINI0 LDA $00
;AUSFUEH.G.....BMI BINI0 ;ABWART
EN.....E. #$01.<...BEQ BINI1 ;FEHL
ER.I.B...DEC $F9 ;S.ST NAECHST.VERSU
CH.P...BNE BINIB.|...DEC $F8.....BEQ BIN
I2.....LDA #$C0 ;RATTERN.G...STA
$00 ;AN .ROLLER.Y...BINI3 LDA $0
0.....BMI BINI3.....BPL BINIA ;NAE
CHST.VERSUCH.....BINI2 LDA #255.1...BINI
1 STA $FA.9...SEI.F...JSR ZERO.S...LDA #
$00.C...STA FOADR.2.P...LDY #$FA.....JSR
FLOUT ;RUECKMELDUNG.....LDA $22..
...ASL.H...STA $F1 ;SPUR ANGEBEN
.V...JMP SLAVE.....;.....; ### BLOCK SCH
REIBEN ###.....BWRIT . ......LDA #$03.%.
..STA FIADR.2.2...LDY #$00.O. .JSR FLIN
;SEK.R HOC.T.".JSR $F5E9 ;PRUEF
SUMME BILDEN...$.STA $3A...&.E. $F8...(.
STA $F8 ;TRACK.PRUEFSUMME.Q.*.JSR
$F78F ;VERSCHLUESSELN...,.JSR HEAD
;HEADER LESEN.....BCS BWRITX.#.0.JSR
WRITE ;BLOCK SCHREIBEN.>.2.JSR $FE0
0 ;PCR AUS.L.4.JMP SLAVE.R.6.;.X.8.B
WRITX LDA #$FF ;FEHLER MARKIEREN...:.STA
$200.150...<.JMP SLAVE...>.; ### SPUR P
RUEFEN ###...@.BVERY . ....B.LDX #10
;START 2.HEADER...D.STX $32...F.JSR
HEAD ;HEADER LESEN...H.BCS BVERY1.
7.J.BVERY8 JSR STACKSET.Y.L.JSR SYNC
;SYNC ABWARTEN.F.N.LDX #$43...P.LDY #
$01 ;256.43 BYTES...R.LDA #$00
;TESTEN...T.BVERY0 BVC BVERY0...V.CLV
...X.E. $1C01 ;PRUEFSUMME...Z.DEX..
.\.BNE BVERY0...^.DEY...`.BPL BVERY0...B
.;...D.LDY $FC.A.F.E. $180,Y ;MIT AL
TER CHKSM.A.H.BNE BVERY1 ;VERGLEICHE
N.G.J.;...L.INC $FC ;NAECHSTEN BL
OCK...N.LDA $FC...P.CMP $FD ;SCH.
.ZTER.M.R.BEQ BVERY2 ;.E.Z.T.JSR SY
NC...V.LDX #9 ;9 BYTES HEADER...
X.LDY $32...Z.BVERY9 BVC BVERY9.'.|.CLV.
E.~.LDA $200,Y ;VERGLEICH.R...E. $1C
01.M...BNE BVERY1 ;FEHLER.U...INY.}.
..DEX.....BNE BVERY9.....CLC. ...LDA $32
.....ADC #$0A ;PLUS 10.H...STA $32
.....BCC BVERY8 ;NAECHSTER BLOCK....
.BVERY2 LDA #$00.$...BVERY1 STA $FB ;0 .
KEIN FEHLER.0...LDA $F8.T...STA $FA
;TRACKPRUEFSUMME.V...LDA $1C00
;WRITE PROTECT...... #$10... .STA $FC...
..LDA #$00.....STA FOADR.2.....LDY #$FA.
....JSR FLOUT ;MELDUNG AN COMP.....
.JMP SLAVE.....; ### SPUR .MATIEREN ###.
....B.M LDA #$00.?...STA $F8 ;TRACKPRUE
FSUMME LOESCHEN.K...LDA $FB.G...JSR KOPF
;SPUR EINSTELC.M...;.~...JSR STACKSET..
...;.....LDY #$00......M0 LDA #$08 ;8 HE
ADERANFANG.B...STA $0300,Y...B.LDA $FC
;SEK.RNUMMER...D.STA $0302,Y...F.L
DA $FB ;TRACKNUMMER.".H.STA $0303
,Y.A.J.LDA $13 ;IDENTITY 2.Q.L.ST
A $0304,Y.P.N.LDA $12 ;IDENTITY 1
...P.STA $0305,Y...R.E. $13...T.E. $FB..
.V.E. $FC...X.STA $0301,Y ;PRUEFSUMME
.M.Z.LDA #$0F.....STA $0306,Y ;LEERRA
UM.....STA $0307,Y.....TYA.....CLC./...A
DC #8 ;NAECHSTER HEADER.7...TAY.
C...INC $FC.O...LDA $FC.[...CMP $FD.G...
BCC .M0.S...DEC $FC.{...TYA.....PHA.....
JSR $FE30.....PLA.....TAY.....DEY.M...JS
R $FDE5 ;PUFFER KOPIEREN.....JSR $F
DF5.....LDY #0......MT LDA $300,Y.....ST
A $200,Y.....INY.....BNE .MT.C...LDA #1
;LEERBLOCK ERZEUGEN.V....MU STA
$300,Y.^...INY.J...BNE .MU.W...LDA #$4B.
....STA $300.....JSR $F5E9 ;PRUEFSU
MME.....STA $3A.R...JSR $F78F ;VERS
CHLUESSELN.....LDA #$00... .STA $32...".
;...$.LDA $1C0C...&.. #$1F...(..A #$C0.9
.*.STA $1C0C ;AUF SCHREIBEN.].,.LD
A #$FF ;P.T AUF AUSGABE.K...STA $1
C03...0.LDA #$55 ;LEER...2.STA $1C
01...4.LDX #$04.B.6.JSR $FE24 ;TRAC
K LOESCHEN.N.8..MW . ....:.LDA #$FF
;SYNC...<.STA $1C01...>.LDX #$05...@.L
DY #$00.-.B.JSR $FDC9 ;SCHREIBEN.:.
D.LDX #$0A.F.F.LDY $32.V.H..MB BVC .MB.^
.J.CLV.M.L.LDA $200,Y...N.STA $1C01
;HEADER SCHREIBEN...P.INY...R.DEX...T.B
NE .MB.K.V.LDX #$09 ;LEERRAUM.X.X.
LDY #$00...Z.JSR $FDC9...\.JSR WRITEF
;BLOCK SCHREIBEN...^.LDX #$04.$.`.LDY
#$00.A.B.JSR $FDC9 ;LEERRAUM.M.D.LD
A $32.U.F.CLC.B.H.ADC #$0A.N.J.STA $32.Z
.L.DEC $FC...N.BPL .MW ;NAECHSTER B
LOCK...P.JSR $FE00 ;PCR LESEN.G.R.J
SR ZERO.U.T.JMP SLAVE...V.DOS. .BYT $FF.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL