ZED.ASM
FILE INFORMATION
FILENAME(S): ZED.ASM
FILE TYPE(S): PRG
FILE SIZE: 20.6K
FIRST SEEN: 2025-10-20 00:37:12
APPEARS ON: 3 disk(s)
FILE HASH
c4d3ca853572b1cf43a44f3d630e5a1220e55be38c75066f728e38d74cdb6336
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUN SPEZIAL 1 | ZED.ASM | PRG | Treasure Chest - Holger | 32 | 6 | DOWNLOAD FILE |
| DRUCK 3B | ZED.ASM | PRG | Treasure Chest - Plattfuss | 15 | 13 | DOWNLOAD FILE |
| RUN SPEZIAL 1 | ZED.ASM | PRG | Treasure Chest - Plattfuss | 32 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 9E 39 AC 34 30 39 36 00 19 08 |....d..9.4096...|
00000010: 6E 00 2E 4F 50 54 20 4F 4F 00 25 08 78 00 AC B2 |n..OPT OO.%.x...|
00000020: 24 43 30 30 30 00 2B 08 82 00 3B 00 31 08 8C 00 |$C000.+...;.1...|
00000030: 3B 00 48 08 96 00 3B 20 20 5A 45 49 43 48 45 4E |;.H...; ZEICHEN|
00000040: 20 AB 20 45 44 49 A4 52 00 4E 08 A0 00 3B 00 58 | . EDI.R.N...;.X|
00000050: 08 AA 00 3B 20 20 56 91 00 5E 08 B4 00 3B 00 73 |...; V..^...;.s|
00000060: 08 BE 00 3B 20 20 AF 52 45 41 53 20 57 45 4C 4C |...; .REAS WELL|
00000070: 49 45 27 00 86 08 C8 00 3B 20 20 53 91 44 45 52 |IE'.....; S.DER|
00000080: 46 45 4C 44 20 38 00 9B 08 D2 00 3B 20 20 34 33 |FELD 8.....; 43|
00000090: 30 30 20 45 53 53 45 4E 20 31 34 00 A1 08 DC 00 |00 ESSEN 14.....|
000000A0: 3B 00 BF 08 E6 00 3B 20 20 42 45 4C 45 47 55 4E |;.....; BELEGUN|
000000B0: 47 20 44 45 53 20 53 50 45 49 43 48 45 52 53 00 |G DES SPEICHERS.|
000000C0: C5 08 F0 00 3B 00 E2 08 FA 00 3B 20 20 50 52 4F |....;.....; PRO|
000000D0: 47 52 41 4D 4D 20 20 24 43 30 30 30 AB 24 43 44 |GRAMM $C000.$CD|
000000E0: 34 30 00 E8 08 04 01 3B 00 06 09 0E 01 3B 20 20 |40.....;.....; |
000000F0: 42 45 4E 55 54 5A 54 45 20 53 50 45 49 43 48 45 |BENUTZTE SPEICHE|
00000100: 52 53 54 45 4C C3 00 1E 09 18 01 3B 20 20 49 4E |RSTEL......; IN|
00000110: 20 44 45 52 20 5A 45 52 4F AB 50 41 47 45 00 24 | DER ZERO.PAGE.$|
00000120: 09 22 01 3B 00 3E 09 2C 01 3B 20 20 24 30 32 20 |.".;.>.,.; $02 |
00000130: 20 41 4B 54 55 45 4C 4C 45 53 20 42 49 54 00 56 | AKTUELLES BIT.V|
00000140: 09 36 01 3B 20 20 24 33 43 20 20 56 45 52 53 43 |.6.; $3C VERSC|
00000150: 48 49 45 44 45 4E 00 7D 09 40 01 3B 20 20 24 33 |HIEDEN.}.@.; $3|
00000160: 44 AB 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 41 |D. ZEICHENSATZ A|
00000170: 55 46 20 42 49 4C 44 53 43 48 49 52 4D 00 88 09 |UF BILDSCHIRM...|
00000180: 4A 01 3B 20 20 24 34 30 00 A0 09 54 01 3B 20 20 |J.; $40...T.; |
00000190: 24 34 31 20 20 56 45 52 53 43 48 49 45 44 45 4E |$41 VERSCHIEDEN|
000001A0: 00 C5 09 5E 01 3B 20 20 24 34 32 20 20 4E 52 2E |...^.; $42 NR.|
000001B0: 20 44 45 53 20 41 4B 54 55 45 4C C3 20 5A 45 49 | DES AKTUEL. ZEI|
000001C0: 43 48 45 4E 53 00 E5 09 68 01 3B 20 20 24 34 33 |CHENS...h.; $43|
000001D0: 20 20 53 54 45 4C 4C 55 4E 47 20 44 45 53 20 4D | STELLUNG DES M|
000001E0: 45 4E 55 45 53 00 0D 0A 72 01 3B 20 20 24 34 39 |ENUES...r.; $49|
000001F0: AB 20 5A 45 49 47 45 52 20 5A 55 4D 20 5A 2E AB |. ZEIGER ZUM Z..|
00000200: 43 4F 50 2C 5A 2E AB 54 41 55 53 43 48 00 34 0A |COP,Z..TAUSCH.4.|
00000210: 7C 01 3B 20 20 24 34 41 20 20 B0 AB 56 45 52 4B ||.; $4A ..VERK|
00000220: 4E 55 45 2E 2C 56 45 52 54 49 4B 41 4C 53 50 49 |NUE.,VERTIKALSPI|
00000230: 45 47 45 2E 00 52 0A 86 01 3B 20 20 20 20 20 20 |EGE..R...; |
00000240: 20 26 20 4D 45 4E 55 20 41 55 53 44 52 55 43 4B | & MENU AUSDRUCK|
00000250: 45 4E 00 72 0A 90 01 3B 20 20 24 34 45 AB 20 41 |EN.r...; $4E. A|
00000260: 44 52 45 53 53 45 20 44 45 53 20 41 4B 54 55 45 |DRESSE DES AKTUE|
00000270: 4C C3 00 87 0A 9A 01 3B 20 20 24 34 46 20 20 5A |L......; $4F Z|
00000280: 45 49 43 48 45 4E 53 00 AD 0A A4 01 3B 20 20 24 |EICHENS.....; $|
00000290: 46 37 AB 20 41 44 52 45 53 53 45 20 44 45 53 20 |F7. ADRESSE DES |
000002A0: 5A 45 49 43 48 45 4E 53 41 54 5A 45 53 00 C5 0A |ZEICHENSATZES...|
000002B0: AE 01 3B 20 20 24 46 38 20 20 49 4D 20 53 50 45 |..; $F8 IM SPE|
000002C0: 49 43 48 45 52 00 E4 0A B8 01 3B 20 20 24 46 39 |ICHER.....; $F9|
000002D0: 20 20 58 AB B9 49 54 49 91 20 44 45 53 20 43 55 | X..ITI. DES CU|
000002E0: 52 53 B0 53 00 03 0B C2 01 3B 20 20 24 46 41 20 |RS.S.....; $FA |
000002F0: 20 59 AB B9 49 54 49 91 20 44 45 53 20 43 55 52 | Y..ITI. DES CUR|
00000300: 53 B0 53 00 1B 0B CC 01 3B 20 20 24 46 38 20 20 |S.S.....; $F8 |
00000310: 49 4D 20 53 50 45 49 43 48 45 52 00 21 0B D6 01 |IM SPEICHER.!...|
00000320: 3B 00 27 0B E0 01 3B 00 2D 0B EA 01 3B 00 42 0B |;.'...;.-...;.B.|
00000330: F4 01 3B 20 49 4E 49 54 49 41 4C 49 53 49 45 52 |..; INITIALISIER|
00000340: 45 4E 00 48 0B FE 01 3B 00 56 0B 08 02 4A 53 52 |EN.H...;.V...JSR|
00000350: 20 52 45 53 45 54 00 78 0B 12 02 4C 44 41 20 23 | RESET.x...LDA #|
00000360: 24 30 38 20 3A 20 53 54 41 20 24 44 30 32 30 20 |$08 : STA $D020 |
00000370: 3B 20 46 41 52 42 45 4E 00 91 0B 1C 02 3A 20 20 |; FARBEN.....: |
00000380: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 | STA $D02|
00000390: 31 00 B4 0B 26 02 4C 44 41 20 23 24 30 31 20 3A |1...&.LDA #$01 :|
000003A0: 20 53 54 41 20 24 44 30 31 35 20 3B 20 53 50 52 | STA $D015 ; SPR|
000003B0: 49 54 45 AB 00 D5 0B 30 02 4C 44 41 20 23 24 30 |ITE....0.LDA #$0|
000003C0: 30 20 3A 20 53 54 41 20 24 44 30 32 37 20 3B 20 |0 : STA $D027 ; |
000003D0: 44 41 54 45 4E 00 F7 0B 3A 02 4C 44 41 20 23 31 |DATEN...:.LDA #1|
000003E0: 35 32 20 3A 20 53 54 41 20 24 44 30 30 30 20 3B |52 : STA $D000 ;|
000003F0: 20 53 45 54 5A 45 4E 00 10 0C 44 02 4C 44 41 20 | SETZEN...D.LDA |
00000400: 23 31 33 30 20 3A 20 53 54 41 20 24 44 30 30 31 |#130 : STA $D001|
00000410: 00 29 0C 4E 02 4C 44 41 20 23 24 39 30 20 3A 20 |.).N.LDA #$90 : |
00000420: 53 54 41 20 24 41 33 46 38 00 4B 0C 58 02 4C 44 |STA $A3F8.K.X.LD|
00000430: 58 20 23 36 33 20 20 3A 20 4C 44 41 20 23 24 30 |X #63 : LDA #$0|
00000440: 30 20 20 3B 20 53 50 52 49 54 45 00 6C 0C 62 02 |0 ; SPRITE.l.b.|
00000450: 4D 4F 42 9C 20 53 54 41 20 24 41 34 30 30 2C 58 |MOB. STA $A400,X|
00000460: 20 20 20 3B 20 4C 4F 53 43 48 45 4E 00 7F 0C 6C | ; LOSCHEN...l|
00000470: 02 44 45 58 20 3A 20 42 50 4C 20 4D 4F 42 9C 00 |.DEX : BPL MOB..|
00000480: A4 0C 76 02 4C 44 41 20 23 24 38 30 20 3A 20 53 |..v.LDA #$80 : S|
00000490: 54 41 20 36 35 30 20 20 20 3B 20 4B 45 59 52 45 |TA 650 ; KEYRE|
000004A0: 50 45 41 54 00 CB 0C 80 02 4C 44 41 20 23 24 30 |PEAT.....LDA #$0|
000004B0: 30 20 3A 20 53 54 41 20 24 39 44 20 20 20 3B 20 |0 : STA $9D ; |
000004C0: 50 52 47 4B 91 54 52 4F 4C 4C 45 00 ED 0C 8A 02 |PRGK.TROLLE.....|
000004D0: 4C 44 41 20 23 24 30 30 20 3A 20 53 54 41 20 24 |LDA #$00 : STA $|
000004E0: 34 32 20 20 20 3B 20 5A 45 49 47 45 52 00 0F 0D |42 ; ZEIGER...|
000004F0: 94 02 4C 44 41 20 23 24 30 31 20 3A 20 53 54 41 |..LDA #$01 : STA|
00000500: 20 24 34 33 20 20 20 3B 20 5A 45 49 47 45 52 00 | $43 ; ZEIGER.|
00000510: 2F 0D 9E 02 4C 44 41 20 23 31 37 36 20 3A 20 53 |/...LDA #176 : S|
00000520: 54 41 20 24 46 38 20 20 20 3B 20 46 55 45 52 00 |TA $F8 ; FUER.|
00000530: 52 0D A8 02 4C 44 41 20 23 24 30 30 20 3A 20 53 |R...LDA #$00 : S|
00000540: 54 41 20 24 46 37 20 20 20 3B 20 5A AB 45 44 49 |TA $F7 ; Z.EDI|
00000550: A4 52 00 6C 0D B2 02 4C 44 41 20 23 31 34 30 20 |.R.l...LDA #140 |
00000560: 3A 20 53 54 41 20 53 41 54 5A AA 31 00 85 0D BC |: STA SATZ.1....|
00000570: 02 4C 44 41 20 23 22 31 22 20 3A 20 53 54 41 20 |.LDA #"1" : STA |
00000580: 42 45 52 45 49 00 AC 0D C6 02 4C 44 41 20 23 31 |BEREI.....LDA #1|
00000590: 36 30 20 3A 20 53 54 41 20 36 34 38 20 20 20 3B |60 : STA 648 ;|
000005A0: 20 56 49 44 45 4F 43 48 49 50 20 26 00 CF 0D D0 | VIDEOCHIP &....|
000005B0: 02 4C 44 41 20 23 31 34 39 20 3A 20 53 54 41 20 |.LDA #149 : STA |
000005C0: 24 44 44 30 30 20 3B 20 41 55 53 47 41 42 45 00 |$DD00 ; AUSGABE.|
000005D0: F4 0D DA 02 3B 20 20 20 20 20 20 20 20 20 20 20 |....; |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 41 55 46 20 24 | AUF $|
000005F0: 38 30 30 30 00 FA 0D E4 02 3B 00 20 0E EE 02 4A |8000.....;. ...J|
00000600: 53 52 20 49 52 51 45 49 4E 20 3B 20 52 41 53 54 |SR IRQEIN ; RAST|
00000610: 45 52 B5 45 52 52 55 50 54 20 53 45 54 5A 45 4E |ER.ERRUPT SETZEN|
00000620: 00 26 0E F8 02 3B 00 2C 0E 02 03 3B 00 40 0E 0C |.&...;.,...;.@..|
00000630: 03 3B 20 20 20 20 20 45 44 49 54 49 45 52 45 4E |.; EDITIEREN|
00000640: 00 46 0E 16 03 3B 00 4C 0E 20 03 3B 00 71 0E 2A |.F...;.L. .;.q.*|
00000650: 03 45 44 49 54 20 4C 44 59 20 23 B1 54 45 58 54 |.EDIT LDY #.TEXT|
00000660: 32 20 3B 20 42 49 4C 44 20 41 55 46 42 41 55 45 |2 ; BILD AUFBAUE|
00000670: 4E 00 81 0E 34 03 4C 44 41 20 23 B3 54 45 58 54 |N...4.LDA #.TEXT|
00000680: 32 00 8E 0E 3E 03 4A 53 52 20 41 42 44 52 00 A5 |2...>.JSR ABDR..|
00000690: 0E 48 03 4C 44 41 20 23 24 30 30 20 3A 20 53 54 |.H.LDA #$00 : ST|
000006A0: 41 20 36 34 36 00 C5 0E 52 03 45 44 49 54 31 20 |A 646...R.EDIT1 |
000006B0: 4C 44 41 20 42 45 52 45 49 20 3A 20 53 54 41 20 |LDA BEREI : STA |
000006C0: 24 41 31 46 32 00 E9 0E 5C 03 4C 44 58 20 23 24 |$A1F2...\.LDX #$|
000006D0: 30 31 20 3A 20 53 54 58 20 24 46 39 20 3B 43 55 |01 : STX $F9 ;CU|
000006E0: 2E 20 58 AB 41 43 48 53 45 00 0D 0F 66 03 4C 44 |. X.ACHSE...f.LD|
000006F0: 59 20 23 24 30 30 20 3A 20 53 54 59 20 24 46 41 |Y #$00 : STY $FA|
00000700: 20 3B 43 55 2E 20 59 AB 41 43 48 53 45 00 24 0F | ;CU. Y.ACHSE.$.|
00000710: 70 03 4C 44 41 20 23 24 38 30 20 3A 20 53 54 41 |p.LDA #$80 : STA|
00000720: 20 24 30 32 00 4C 0F 7A 03 4A 53 52 20 5A 53 42 | $02.L.z.JSR ZSB|
00000730: 20 20 20 20 20 20 3B 20 5A 45 49 43 48 45 4E 53 | ; ZEICHENS|
00000740: 2E 20 41 55 53 44 52 55 43 4B 45 4E 00 74 0F 84 |. AUSDRUCKEN.t..|
00000750: 03 4A 53 52 20 5A 44 52 55 43 4B 45 4E 20 3B 20 |.JSR ZDRUCKEN ; |
00000760: 56 45 52 47 2E 20 5A 45 49 43 48 45 4E 20 41 55 |VERG. ZEICHEN AU|
00000770: 53 47 45 2E 00 98 0F 8E 03 4A 53 52 20 48 45 58 |SGE......JSR HEX|
00000780: 20 20 20 20 20 20 3B 20 48 45 58 5A 41 48 4C 20 | ; HEXZAHL |
00000790: 41 55 53 47 45 42 45 4E 00 BB 0F 98 03 4A 53 52 |AUSGEBEN.....JSR|
000007A0: 20 4D 45 4E 55 20 20 20 20 20 3B 20 4D 45 4E 55 | MENU ; MENU|
000007B0: 20 41 55 53 44 52 55 43 4B 45 4E 00 D9 0F A2 03 | AUSDRUCKEN.....|
000007C0: 4A 4D 50 20 48 4F 4D 45 20 20 20 20 20 3B 20 43 |JMP HOME ; C|
000007D0: 55 52 53 B0 20 48 4F 4D 45 00 DF 0F AC 03 3B 00 |URS. HOME.....;.|
000007E0: FE 0F B6 03 3B 20 20 5A 45 49 43 48 45 4E 20 56 |....; ZEICHEN V|
000007F0: 91 20 54 41 53 54 41 54 55 52 20 48 4F C3 00 11 |. TASTATUR HO...|
00000800: 10 C0 03 3B 20 20 26 20 41 55 53 57 45 52 54 45 |...; & AUSWERTE|
00000810: 4E 00 17 10 CA 03 3B 00 2A 10 D4 03 A1 4B 45 59 |N.....;.*....KEY|
00000820: 20 4A 53 52 20 A1 43 48 41 52 00 36 10 DE 03 4C | JSR .CHAR.6...L|
00000830: 44 58 20 23 34 30 00 4E 10 E8 03 41 55 53 57 31 |DX #40.N...AUSW1|
00000840: 20 43 4D 50 20 42 45 46 45 48 4C 45 2C 58 00 6A | CMP BEFEHLE,X.j|
00000850: 10 F2 03 42 45 51 20 41 55 53 57 32 20 20 20 20 |...BEQ AUSW2 |
00000860: 3B 22 42 45 46 45 48 4C 20 3F 00 72 10 FC 03 44 |;"BEFEHL ?.r...D|
00000870: 45 58 00 99 10 06 04 42 50 4C 20 41 55 53 57 31 |EX.....BPL AUSW1|
00000880: 20 20 20 20 3B 22 42 45 46 45 48 4C 53 4C 49 53 | ;"BEFEHLSLIS|
00000890: 54 45 20 45 4E 44 45 20 3F 00 A6 10 10 04 4A 4D |TE ENDE ?.....JM|
000008A0: 50 20 A1 4B 45 59 00 B4 10 1A 04 41 55 53 57 32 |P .KEY.....AUSW2|
000008B0: 20 54 41 59 00 D9 10 24 04 4C 44 41 20 4C 4F 57 | TAY...$.LDA LOW|
000008C0: 2C 58 20 20 3B 53 50 8A 47 41 44 52 45 53 53 45 |,X ;SP.GADRESSE|
000008D0: 20 4C 4F 57 AB 42 59 54 45 00 E8 10 2E 04 53 54 | LOW.BYTE.....ST|
000008E0: 41 20 4A 55 4D 50 AA 31 00 0C 11 38 04 4C 44 41 |A JUMP.1...8.LDA|
000008F0: 20 48 49 2C 58 20 20 20 3B 53 50 8A 47 41 44 52 | HI,X ;SP.GADR|
00000900: 45 53 53 45 20 48 49 AB 42 59 54 45 00 1B 11 42 |ESSE HI.BYTE...B|
00000910: 04 53 54 41 20 4A 55 4D 50 AA 32 00 23 11 4C 04 |.STA JUMP.2.#.L.|
00000920: 54 59 41 00 4A 11 56 04 4A 55 4D 50 20 4A 4D 50 |TYA.J.V.JUMP JMP|
00000930: 20 24 30 30 30 30 20 3B 20 42 45 46 45 48 4C 20 | $0000 ; BEFEHL |
00000940: 41 4E 53 50 52 49 4E 47 45 4E 00 50 11 60 04 3B |ANSPRINGEN.P.`.;|
00000950: 00 5A 11 6A 04 3B 20 20 80 45 00 60 11 74 04 3B |.Z.j.; .E.`.t.;|
00000960: 00 7B 11 7E 04 42 31 20 4A 53 52 20 52 45 53 45 |.{.~.B1 JSR RESE|
00000970: 54 3A 4A 4D 50 20 24 45 33 37 42 00 9F 11 88 04 |T:JMP $E37B.....|
00000980: 52 45 53 45 54 20 4C 44 41 20 23 35 35 20 3A 20 |RESET LDA #55 : |
00000990: 53 54 41 20 24 30 31 20 3B 52 4F 4D 20 41 4E 00 |STA $01 ;ROM AN.|
000009A0: C5 11 92 04 4C 44 41 20 23 31 39 39 20 3A 20 53 |....LDA #199 : S|
000009B0: 54 41 20 24 44 44 30 30 20 3B 41 55 53 47 41 42 |TA $DD00 ;AUSGAB|
000009C0: 45 20 41 55 46 00 E5 11 9C 04 4C 44 41 20 23 34 |E AUF.....LDA #4|
000009D0: 20 20 20 3A 20 53 54 41 20 36 34 38 20 20 20 3B | : STA 648 ;|
000009E0: 24 30 30 30 30 00 07 12 A6 04 4A 53 52 20 24 46 |$0000.....JSR $F|
000009F0: 44 41 33 3A 4A 53 52 20 24 46 44 31 35 3A 4A 53 |DA3:JSR $FD15:JS|
00000A00: 52 20 24 46 46 35 42 00 0F 12 B0 04 52 54 53 00 |R $FF5B.....RTS.|
00000A10: 15 12 BA 04 3B 00 30 12 C4 04 3B 20 20 43 55 52 |....;.0...; CUR|
00000A20: 53 B0 20 41 55 46 20 48 4F 4D 45 B9 49 54 49 91 |S. AUF HOME.ITI.|
00000A30: 00 36 12 CE 04 3B 00 41 12 D8 04 42 32 20 4E 4F |.6...;.A...B2 NO|
00000A40: 50 00 5D 12 E2 04 48 4F 4D 45 20 4C 44 41 20 23 |P.]...HOME LDA #|
00000A50: 24 30 41 20 3A 20 53 54 41 20 24 44 36 00 74 12 |$0A : STA $D6.t.|
00000A60: EC 04 4C 44 41 20 23 24 30 35 20 3A 20 53 54 41 |..LDA #$05 : STA|
00000A70: 20 24 44 33 00 82 12 F6 04 4A 53 52 20 35 38 36 | $D3.....JSR 586|
00000A80: 34 30 00 99 12 00 05 4C 44 58 20 23 24 30 31 20 |40.....LDX #$01 |
00000A90: 3A 20 53 54 58 20 24 46 39 00 B0 12 0A 05 4C 44 |: STX $F9.....LD|
00000AA0: 59 20 23 24 30 30 20 3A 20 53 54 59 20 24 46 41 |Y #$00 : STY $FA|
00000AB0: 00 C7 12 14 05 4C 44 59 20 23 24 38 30 20 3A 20 |.....LDY #$80 : |
00000AC0: 53 54 59 20 24 30 32 00 D3 12 1E 05 4A 53 52 20 |STY $02.....JSR |
00000AD0: 5A 53 42 00 E0 12 28 05 4A 4D 50 20 A1 4B 45 59 |ZSB...(.JMP .KEY|
00000AE0: 00 E6 12 32 05 3B 00 F9 12 3C 05 3B 20 43 55 52 |...2.;...<.; CUR|
00000AF0: 53 B0 20 52 45 43 48 54 53 00 FF 12 46 05 3B 00 |S. RECHTS...F.;.|
00000B00: 0E 13 50 05 42 33 20 4C 44 58 20 24 46 39 00 1B |..P.B3 LDX $F9..|
00000B10: 13 5A 05 43 50 58 20 23 24 30 38 00 28 13 64 05 |.Z.CPX #$08.(.d.|
00000B20: 42 4E 45 20 43 55 52 45 00 3F 13 6E 05 4C 44 41 |BNE CURE.?.n.LDA|
00000B30: 20 23 24 38 30 20 3A 20 53 54 41 20 24 30 32 00 | #$80 : STA $02.|
00000B40: 56 13 78 05 4C 44 41 20 23 24 30 31 20 3A 20 53 |V.x.LDA #$01 : S|
00000B50: 54 41 20 24 46 39 00 6D 13 82 05 4C 44 41 20 23 |TA $F9.m...LDA #|
00000B60: 24 30 35 20 3A 20 53 54 41 20 24 44 33 00 7A 13 |$05 : STA $D3.z.|
00000B70: 8C 05 4A 4D 50 20 A1 4B 45 59 00 8B 13 96 05 43 |..JMP .KEY.....C|
00000B80: 55 52 45 20 49 4E 43 20 24 46 39 00 97 13 A0 05 |URE INC $F9.....|
00000B90: 49 4E 43 20 24 44 33 00 A3 13 AA 05 4C 53 52 20 |INC $D3.....LSR |
00000BA0: 24 30 32 00 B0 13 B4 05 4A 4D 50 20 A1 4B 45 59 |$02.....JMP .KEY|
00000BB0: 00 B6 13 BE 05 3B 00 C8 13 C8 05 3B 20 43 55 52 |.....;.....; CUR|
00000BC0: 53 B0 20 4C 49 4E 4B 53 00 CE 13 D2 05 3B 00 DD |S. LINKS.....;..|
00000BD0: 13 DC 05 42 34 20 4C 44 58 20 24 46 39 00 EA 13 |...B4 LDX $F9...|
00000BE0: E6 05 43 50 58 20 23 24 30 31 00 F7 13 F0 05 42 |..CPX #$01.....B|
00000BF0: 4E 45 20 43 55 4C 49 00 0E 14 FA 05 4C 44 41 20 |NE CULI.....LDA |
00000C00: 23 24 30 31 20 3A 20 53 54 41 20 24 30 32 00 25 |#$01 : STA $02.%|
00000C10: 14 04 06 4C 44 41 20 23 24 30 38 20 3A 20 53 54 |...LDA #$08 : ST|
00000C20: 41 20 24 46 39 00 3C 14 0E 06 4C 44 41 20 23 24 |A $F9.<...LDA #$|
00000C30: 30 43 20 3A 20 53 54 41 20 24 44 33 00 49 14 18 |0C : STA $D3.I..|
00000C40: 06 4A 4D 50 20 A1 4B 45 59 00 5A 14 22 06 43 55 |.JMP .KEY.Z.".CU|
00000C50: 4C 49 20 44 45 43 20 24 46 39 00 66 14 2C 06 44 |LI DEC $F9.f.,.D|
00000C60: 45 43 20 24 44 33 00 72 14 36 06 41 53 4C 20 24 |EC $D3.r.6.ASL $|
00000C70: 30 32 00 7F 14 40 06 4A 4D 50 20 A1 4B 45 59 00 |02...@.JMP .KEY.|
00000C80: 85 14 4A 06 3B 00 97 14 54 06 3B 20 43 55 52 53 |..J.;...T.; CURS|
00000C90: B0 20 55 4E 54 45 4E 00 9D 14 5E 06 3B 00 AC 14 |. UNTEN...^.;...|
00000CA0: 68 06 42 35 20 4C 44 58 20 24 46 41 00 B9 14 72 |h.B5 LDX $FA...r|
00000CB0: 06 43 50 58 20 23 24 30 37 00 C6 14 7C 06 42 4E |.CPX #$07...|.BN|
00000CC0: 45 20 43 55 55 4E 00 DD 14 86 06 4C 44 41 20 23 |E CUUN.....LDA #|
00000CD0: 24 30 30 20 3A 20 53 54 41 20 24 46 41 00 00 15 |$00 : STA $FA...|
00000CE0: 90 06 4C 44 41 20 23 24 30 41 20 3A 20 53 54 41 |..LDA #$0A : STA|
00000CF0: 20 24 44 36 20 3A 20 4A 53 52 20 35 38 36 34 30 | $D6 : JSR 58640|
00000D00: 00 0D 15 9A 06 4A 4D 50 20 A1 4B 45 59 00 28 15 |.....JMP .KEY.(.|
00000D10: A4 06 43 55 55 4E 20 49 4E 43 20 24 44 36 3A 4A |..CUUN INC $D6:J|
00000D20: 53 52 20 35 38 36 34 30 00 34 15 AE 06 49 4E 43 |SR 58640.4...INC|
00000D30: 20 24 46 41 00 41 15 B8 06 4A 4D 50 20 A1 4B 45 | $FA.A...JMP .KE|
00000D40: 59 00 47 15 C2 06 3B 00 58 15 CC 06 3B 20 43 55 |Y.G...;.X...; CU|
00000D50: 52 53 B0 20 4F 42 45 4E 00 5E 15 D6 06 3B 00 6D |RS. OBEN.^...;.m|
00000D60: 15 E0 06 42 36 20 4C 44 58 20 24 46 41 00 7A 15 |...B6 LDX $FA.z.|
00000D70: EA 06 43 50 58 20 23 24 30 30 00 87 15 F4 06 42 |..CPX #$00.....B|
00000D80: 4E 45 20 43 55 4F 42 00 9E 15 FE 06 4C 44 41 20 |NE CUOB.....LDA |
00000D90: 23 24 30 37 20 3A 20 53 54 41 20 24 46 41 00 C1 |#$07 : STA $FA..|
00000DA0: 15 08 07 4C 44 41 20 23 24 31 31 20 3A 20 53 54 |...LDA #$11 : ST|
00000DB0: 41 20 24 44 36 20 3A 20 4A 53 52 20 35 38 36 34 |A $D6 : JSR 5864|
00000DC0: 30 00 CE 15 12 07 4A 4D 50 20 A1 4B 45 59 00 E9 |0.....JMP .KEY..|
00000DD0: 15 1C 07 43 55 4F 42 20 44 45 43 20 24 44 36 3A |...CUOB DEC $D6:|
00000DE0: 4A 53 52 20 35 38 36 34 30 00 F5 15 26 07 44 45 |JSR 58640...&.DE|
00000DF0: 43 20 24 46 41 00 02 16 30 07 4A 4D 50 20 A1 4B |C $FA...0.JMP .K|
00000E00: 45 59 00 08 16 3A 07 3B 00 1C 16 44 07 3B 20 5A |EY...:.;...D.; Z|
00000E10: 45 49 43 48 45 4E 20 20 50 4C 55 53 00 22 16 4E |EICHEN PLUS.".N|
00000E20: 07 3B 00 31 16 58 07 42 37 20 49 4E 43 20 24 34 |.;.1.X.B7 INC $4|
00000E30: 32 00 46 16 62 07 5A 41 42 20 4A 53 52 20 5A 44 |2.F.b.ZAB JSR ZD|
00000E40: 52 55 43 4B 45 4E 00 53 16 6C 07 4A 4D 50 20 48 |RUCKEN.S.l.JMP H|
00000E50: 4F 4D 45 00 59 16 76 07 3B 00 6E 16 80 07 3B 20 |OME.Y.v.;.n...; |
00000E60: 5A 45 49 43 48 45 4E 20 20 4D 49 4E 55 53 00 74 |ZEICHEN MINUS.t|
00000E70: 16 8A 07 3B 00 83 16 94 07 42 38 20 44 45 43 20 |...;.....B8 DEC |
00000E80: 24 34 32 00 8F 16 9E 07 4A 4D 50 20 5A 41 42 00 |$42.....JMP ZAB.|
00000E90: 95 16 A8 07 3B 00 B8 16 B2 07 3B 20 50 55 4E 4B |....;.....; PUNK|
00000EA0: 54 20 53 45 54 5A 45 4E 20 42 2E 5A 2E 57 2E 20 |T SETZEN B.Z.W. |
00000EB0: 4C 4F 45 53 43 48 45 4E 00 BE 16 BC 07 3B 00 D2 |LOESCHEN.....;..|
00000EC0: 16 C6 07 42 31 31 20 4A 53 52 20 5A 45 49 43 48 |...B11 JSR ZEICH|
00000ED0: 45 4E 00 DE 16 D0 07 4C 44 59 20 24 46 41 00 EE |EN.....LDY $FA..|
00000EE0: 16 DA 07 4C 44 41 20 28 24 34 45 29 2C 59 00 F9 |...LDA ($4E),Y..|
00000EF0: 16 E4 07 45 B0 20 24 30 32 00 09 17 EE 07 53 54 |...E. $02.....ST|
00000F00: 41 20 28 24 34 45 29 2C 59 00 17 17 F8 07 4A 4D |A ($4E),Y.....JM|
00000F10: 50 20 45 52 4E 45 55 00 1D 17 02 08 3B 00 37 17 |P ERNEU.....;.7.|
00000F20: 0C 08 3B 20 52 4F 54 49 45 52 45 4E 20 4E 41 43 |..; ROTIEREN NAC|
00000F30: 48 20 4C 49 4E 4B 53 00 3D 17 16 08 3B 00 51 17 |H LINKS.=...;.Q.|
00000F40: 20 08 42 31 32 20 4A 53 52 20 5A 45 49 43 48 45 | .B12 JSR ZEICHE|
00000F50: 4E 00 5E 17 2A 08 4C 44 59 20 23 24 30 37 00 72 |N.^.*.LDY #$07.r|
00000F60: 17 34 08 52 B0 45 20 4C 44 41 20 28 24 34 45 29 |.4.R.E LDA ($4E)|
00000F70: 2C 59 00 7A 17 3E 08 41 53 4C 00 82 17 48 08 50 |,Y.z.>.ASL...H.P|
00000F80: 48 50 00 89 17 52 08 52 B0 00 91 17 5C 08 50 4C |HP...R.R....\.PL|
00000F90: 50 00 99 17 66 08 52 4F 4C 00 A9 17 70 08 53 54 |P...f.ROL...p.ST|
00000FA0: 41 20 28 24 34 45 29 2C 59 00 B1 17 7A 08 44 45 |A ($4E),Y...z.DE|
00000FB0: 59 00 BD 17 84 08 42 50 4C 20 52 B0 45 00 CB 17 |Y.....BPL R.E...|
00000FC0: 8E 08 4A 4D 50 20 45 52 4E 45 55 00 D1 17 98 08 |..JMP ERNEU.....|
00000FD0: 3B 00 EA 17 A2 08 3B 20 52 4F 54 49 45 52 45 4E |;.....; ROTIEREN|
00000FE0: 20 4E 41 43 48 20 4F 42 45 4E 00 F0 17 AC 08 3B | NACH OBEN.....;|
00000FF0: 00 05 18 B6 08 42 31 33 20 20 4A 53 52 20 5A 45 |.....B13 JSR ZE|
00001000: 49 43 48 45 4E 00 12 18 C0 08 4C 44 59 20 23 24 |ICHEN.....LDY #$|
00001010: 30 30 00 22 18 CA 08 4C 44 41 20 28 24 34 45 29 |00."...LDA ($4E)|
00001020: 2C 59 00 2A 18 D4 08 54 41 58 00 37 18 DE 08 52 |,Y.*...TAX.7...R|
00001030: 4F 55 50 20 49 4E 59 00 47 18 E8 08 4C 44 41 20 |OUP INY.G...LDA |
00001040: 28 24 34 45 29 2C 59 00 4F 18 F2 08 44 45 59 00 |($4E),Y.O...DEY.|
00001050: 5F 18 FC 08 53 54 41 20 28 24 34 45 29 2C 59 00 |_...STA ($4E),Y.|
00001060: 67 18 06 09 49 4E 59 00 74 18 10 09 43 50 59 20 |g...INY.t...CPY |
00001070: 23 24 30 37 00 81 18 1A 09 42 4E 45 20 52 4F 55 |#$07.....BNE ROU|
00001080: 50 00 89 18 24 09 54 58 41 00 99 18 2E 09 53 54 |P...$.TXA.....ST|
00001090: 41 20 28 24 34 45 29 2C 59 00 A7 18 38 09 4A 4D |A ($4E),Y...8.JM|
000010A0: 50 20 45 52 4E 45 55 00 AD 18 42 09 3B 00 C1 18 |P ERNEU...B.;...|
000010B0: 4C 09 3B 20 5A 45 49 43 48 45 4E 20 41 80 45 52 |L.; ZEICHEN A.ER|
000010C0: 4E 00 C7 18 56 09 3B 00 E4 18 60 09 42 31 34 20 |N...V.;...`.B14 |
000010D0: 4C 44 41 20 23 22 81 22 20 3A 20 4A 53 52 20 24 |LDA #"." : JSR $|
000010E0: 46 46 44 32 00 FD 18 6A 09 4C 44 41 20 23 22 13 |FFD2...j.LDA #".|
000010F0: 22 20 3A 20 4A 53 52 20 24 46 46 44 32 00 16 19 |" : JSR $FFD2...|
00001100: 74 09 4C 44 41 20 24 34 32 20 20 3A 20 53 54 41 |t.LDA $42 : STA|
00001110: 20 24 41 30 30 30 00 2F 19 7E 09 4C 44 41 20 23 | $A000./.~.LDA #|
00001120: 24 44 44 20 3A 20 53 54 41 20 24 43 45 44 30 00 |$DD : STA $CED0.|
00001130: 49 19 88 09 4C 44 41 20 23 24 30 31 20 3A 20 53 |I...LDA #$01 : S|
00001140: 54 41 20 4C 41 45 4E 47 45 00 53 19 92 09 4A 53 |TA LAENGE.S...JS|
00001150: 52 20 85 00 6A 19 9C 09 4C 44 41 20 24 41 30 30 |R ..j...LDA $A00|
00001160: 30 3A 20 53 54 41 20 24 34 32 00 83 19 A6 09 4C |0: STA $42.....L|
00001170: 44 41 20 23 24 30 30 20 3A 20 53 54 41 20 24 43 |DA #$00 : STA $C|
00001180: 45 44 30 00 8F 19 B0 09 53 54 41 20 36 34 36 00 |ED0.....STA 646.|
00001190: A8 19 BA 09 4C 44 41 20 23 22 92 22 20 3A 20 4A |....LDA #"." : J|
000011A0: 53 52 20 24 46 46 44 32 00 B4 19 C4 09 4A 4D 50 |SR $FFD2.....JMP|
000011B0: 20 5A 41 42 00 BA 19 CE 09 3B 00 D7 19 D8 09 3B | ZAB.....;.....;|
000011C0: 20 49 4E 56 45 52 53 45 53 20 5A 45 49 43 48 45 | INVERSES ZEICHE|
000011D0: 4E 20 41 80 45 52 4E 00 DD 19 E2 09 3B 00 04 1A |N A.ERN.....;...|
000011E0: EC 09 42 31 35 20 4C 44 41 20 23 22 12 22 20 3A |..B15 LDA #"." :|
000011F0: 20 4A 53 52 20 24 46 46 44 32 20 3A 20 4A 4D 50 | JSR $FFD2 : JMP|
00001200: 20 42 31 34 00 0A 1A F6 09 3B 00 2E 1A 00 0A 3B | B14.....;.....;|
00001210: 20 20 5A 45 49 43 48 45 4E 20 4E 52 2E 20 44 45 | ZEICHEN NR. DE|
00001220: 5A 49 4D 41 4C 20 45 49 4E 47 45 42 45 4E 00 34 |ZIMAL EINGEBEN.4|
00001230: 1A 0A 0A 3B 00 4F 1A 14 0A 42 31 36 20 4C 44 41 |...;.O...B16 LDA|
00001240: 20 23 24 30 45 20 3A 20 53 54 41 20 24 44 33 00 | #$0E : STA $D3.|
00001250: 66 1A 1E 0A 4C 44 41 20 23 24 30 41 20 3A 20 53 |f...LDA #$0A : S|
00001260: 54 41 20 24 44 36 00 74 1A 28 0A 4A 53 52 20 35 |TA $D6.t.(.JSR 5|
00001270: 38 36 34 30 00 84 1A 32 0A 4A 53 52 20 44 45 5A |8640...2.JSR DEZ|
00001280: 49 4D 41 4C 00 90 1A 3C 0A 53 54 41 20 24 34 32 |IMAL...<.STA $42|
00001290: 00 9C 1A 46 0A 4A 4D 50 20 5A 41 42 00 A2 1A 50 |...F.JMP ZAB...P|
000012A0: 0A 3B 00 BE 1A 5A 0A 3B 20 5A 45 49 43 48 45 4E |.;...Z.; ZEICHEN|
000012B0: 53 41 54 5A 20 53 50 45 49 43 48 45 52 4E 00 C4 |SATZ SPEICHERN..|
000012C0: 1A 64 0A 3B 00 E1 1A 6E 0A 42 31 37 20 4C 44 41 |.d.;...n.B17 LDA|
000012D0: 20 53 41 54 5A AA 31 20 3A 20 53 54 41 20 24 30 | SATZ.1 : STA $0|
000012E0: 32 00 FB 1A 78 0A 4C 44 41 20 23 31 33 32 20 3A |2...x.LDA #132 :|
000012F0: 20 53 54 41 20 53 41 54 5A AA 31 00 12 1B 82 0A | STA SATZ.1.....|
00001300: 4C 44 41 20 23 24 31 37 20 3A 20 53 54 41 20 24 |LDA #$17 : STA $|
00001310: 44 36 00 29 1B 8C 0A 4C 44 41 20 23 24 30 39 20 |D6.)...LDA #$09 |
00001320: 3A 20 53 54 41 20 24 44 33 00 37 1B 96 0A 4A 53 |: STA $D3.7...JS|
00001330: 52 20 35 38 36 34 30 00 47 1B A0 0A 4C 44 41 20 |R 58640.G...LDA |
00001340: 23 B3 54 45 58 54 35 00 57 1B AA 0A 4C 44 59 20 |#.TEXT5.W...LDY |
00001350: 23 B1 54 45 58 54 35 00 64 1B B4 0A 4A 53 52 20 |#.TEXT5.d...JSR |
00001360: 41 42 44 52 00 74 1B BE 0A 4C 44 41 20 23 B3 54 |ABDR.t...LDA #.T|
00001370: 45 58 54 37 00 84 1B C8 0A 4C 44 59 20 23 B1 54 |EXT7.....LDY #.T|
00001380: 45 58 54 37 00 91 1B D2 0A 4A 53 52 20 41 42 44 |EXT7.....JSR ABD|
00001390: 52 00 AA 1B DC 0A 4C 44 41 20 23 31 34 20 3A 20 |R.....LDA #14 : |
000013A0: 53 54 41 20 4C 41 45 4E 47 45 00 C4 1B E6 0A 4A |STA LAENGE.....J|
000013B0: 53 52 20 85 20 3B 20 4E 41 4D 45 20 45 49 4E 47 |SR . ; NAME EING|
000013C0: 45 42 45 4E 00 E3 1B F0 0A 4C 44 41 20 23 24 30 |EBEN.....LDA #$0|
000013D0: 31 3A 4C 44 58 20 23 24 30 38 3A 4C 44 59 20 23 |1:LDX #$08:LDY #|
000013E0: 24 36 31 00 01 1C FA 0A 4A 53 52 20 24 46 46 42 |$61.....JSR $FFB|
000013F0: 41 20 3B 20 46 49 4C 45 50 41 52 41 4D 45 54 45 |A ; FILEPARAMETE|
00001400: 52 00 0E 1C 04 0B 4C 44 41 20 23 24 31 30 00 24 |R.....LDA #$10.$|
00001410: 1C 0E 0B 4C 44 58 20 23 B3 53 54 52 49 4E 47 3A |...LDX #.STRING:|
00001420: 20 49 4E 58 00 35 1C 18 0B 4C 44 59 20 23 B1 53 | INX.5...LDY #.S|
00001430: 54 52 49 4E 47 00 56 1C 22 0B 4A 53 52 20 24 46 |TRING.V.".JSR $F|
00001440: 46 42 44 20 3B 20 46 49 C3 41 4D 45 4E 50 41 52 |FBD ; FI.AMENPAR|
00001450: 41 4D 45 54 45 52 00 68 1C 2C 0B 4A 53 52 20 24 |AMETER.h.,.JSR $|
00001460: 46 46 43 30 20 3B 20 9F 00 87 1C 36 0B 4C 44 41 |FFC0 ; ....6.LDA|
00001470: 20 23 24 30 38 20 3A 20 4A 53 52 20 24 46 46 42 | #$08 : JSR $FFB|
00001480: 31 20 3B 20 9B 45 4E 00 AE 1C 40 0B 4C 44 41 20 |1 ; .EN...@.LDA |
00001490: 23 24 36 31 20 3A 20 4A 53 52 20 24 46 46 39 33 |#$61 : JSR $FF93|
000014A0: 20 3B 20 53 45 4B 2E 41 44 52 45 53 53 45 00 C7 | ; SEK.ADRESSE..|
000014B0: 1C 4A 0B 4C 44 41 20 23 24 30 30 20 3A 20 4A 53 |.J.LDA #$00 : JS|
000014C0: 52 20 24 46 46 41 38 00 DF 1C 54 0B 4C 44 41 20 |R $FFA8...T.LDA |
000014D0: B0 47 49 20 3A 20 4A 53 52 20 24 46 46 41 38 00 |.GI : JSR $FFA8.|
000014E0: F5 1C 5E 0B 4C 44 41 20 24 46 37 20 3A 20 53 54 |..^.LDA $F7 : ST|
000014F0: 41 20 24 34 45 00 0B 1D 68 0B 4C 44 41 20 24 46 |A $4E...h.LDA $F|
00001500: 38 20 3A 20 53 54 41 20 24 34 46 00 18 1D 72 0B |8 : STA $4F...r.|
00001510: 4C 44 58 20 23 24 30 38 00 29 1D 7C 0B 53 56 32 |LDX #$08.).|.SV2|
00001520: 20 4C 44 59 20 23 24 30 30 00 3D 1D 86 0B 53 56 | LDY #$00.=...SV|
00001530: 31 20 4C 44 41 20 28 24 34 45 29 2C 59 00 5C 1D |1 LDA ($4E),Y.\.|
00001540: 90 0B 53 54 58 20 24 36 30 3A 4A 53 52 20 24 46 |..STX $60:JSR $F|
00001550: 46 41 38 20 3A 4C 44 58 20 24 36 30 00 64 1D 9A |FA8 :LDX $60.d..|
00001560: 0B 49 4E 59 00 70 1D A4 0B 42 4E 45 20 53 56 31 |.INY.p...BNE SV1|
00001570: 00 7C 1D AE 0B 49 4E 43 20 24 34 46 00 84 1D B8 |.|...INC $4F....|
00001580: 0B 44 45 58 00 90 1D C2 0B 42 4E 45 20 53 56 32 |.DEX.....BNE SV2|
00001590: 00 AD 1D CC 0B 4C 44 41 20 23 24 30 31 20 3A 20 |.....LDA #$01 : |
000015A0: 4A 53 52 20 24 46 46 43 33 20 3B 20 A0 00 C7 1D |JSR $FFC3 ; ....|
000015B0: D6 0B 4C 44 41 20 24 30 32 20 20 3A 20 53 54 41 |..LDA $02 : STA|
000015C0: 20 53 41 54 5A AA 31 00 D4 1D E0 0B 4A 4D 50 20 | SATZ.1.....JMP |
000015D0: 45 44 49 54 00 DA 1D EA 0B 3B 00 F2 1D F4 0B 3B |EDIT.....;.....;|
000015E0: 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 4C 41 44 | ZEICHENSATZ LAD|
000015F0: 45 4E 00 F8 1D FE 0B 3B 00 15 1E 08 0C 42 31 38 |EN.....;.....B18|
00001600: 20 4C 44 41 20 53 41 54 5A AA 31 20 3A 20 53 54 | LDA SATZ.1 : ST|
00001610: 41 20 24 30 32 00 2F 1E 12 0C 4C 44 41 20 23 31 |A $02./...LDA #1|
00001620: 33 32 20 3A 20 53 54 41 20 53 41 54 5A AA 31 00 |32 : STA SATZ.1.|
00001630: 46 1E 1C 0C 4C 44 41 20 23 24 31 37 20 3A 20 53 |F...LDA #$17 : S|
00001640: 54 41 20 24 44 36 00 5D 1E 26 0C 4C 44 41 20 23 |TA $D6.].&.LDA #|
00001650: 24 30 39 20 3A 20 53 54 41 20 24 44 33 00 6B 1E |$09 : STA $D3.k.|
00001660: 30 0C 4A 53 52 20 35 38 36 34 30 00 7B 1E 3A 0C |0.JSR 58640.{.:.|
00001670: 4C 44 41 20 23 B3 54 45 58 54 36 00 8B 1E 44 0C |LDA #.TEXT6...D.|
00001680: 4C 44 59 20 23 B1 54 45 58 54 36 00 98 1E 4E 0C |LDY #.TEXT6...N.|
00001690: 4A 53 52 20 41 42 44 52 00 A8 1E 58 0C 4C 44 41 |JSR ABDR...X.LDA|
000016A0: 20 23 B3 54 45 58 54 37 00 B8 1E 62 0C 4C 44 59 | #.TEXT7...b.LDY|
000016B0: 20 23 B1 54 45 58 54 37 00 C5 1E 6C 0C 4A 53 52 | #.TEXT7...l.JSR|
000016C0: 20 41 42 44 52 00 DE 1E 76 0C 4C 44 41 20 23 31 | ABDR...v.LDA #1|
000016D0: 34 20 3A 20 53 54 41 20 4C 41 45 4E 47 45 00 F8 |4 : STA LAENGE..|
000016E0: 1E 80 0C 4A 53 52 20 85 20 3B 20 4E 41 4D 45 20 |...JSR . ; NAME |
000016F0: 45 49 4E 47 45 42 45 4E 00 1B 1F 8A 0C 4C 44 41 |EINGEBEN.....LDA|
00001700: 20 23 24 30 32 20 3A 20 4C 44 58 20 23 24 30 38 | #$02 : LDX #$08|
00001710: 20 3A 20 4C 44 59 20 23 24 30 30 00 39 1F 94 0C | : LDY #$00.9...|
00001720: 4A 53 52 20 24 46 46 42 41 20 3B 20 46 49 4C 45 |JSR $FFBA ; FILE|
00001730: 50 41 52 41 4D 45 54 45 52 00 46 1F 9E 0C 4C 44 |PARAMETER.F...LD|
00001740: 41 20 23 24 31 30 00 5D 1F A8 0C 4C 44 58 20 23 |A #$10.]...LDX #|
00001750: B3 53 54 52 49 4E 47 20 3A 20 49 4E 58 00 6E 1F |.STRING : INX.n.|
00001760: B2 0C 4C 44 59 20 23 B1 53 54 52 49 4E 47 00 8E |..LDY #.STRING..|
00001770: 1F BC 0C 4A 53 52 20 24 46 46 42 44 3B 20 46 49 |...JSR $FFBD; FI|
00001780: C3 41 4D 45 4E 50 41 52 41 4D 45 54 45 52 00 9B |.AMENPARAMETER..|
00001790: 1F C6 0C 4C 44 41 20 23 24 30 30 00 B2 1F D0 0C |...LDA #$00.....|
000017A0: 4C 44 58 20 24 46 37 20 20 3A 20 4C 44 59 20 24 |LDX $F7 : LDY $|
000017B0: 46 38 00 C4 1F DA 0C 4A 53 52 20 24 46 46 44 35 |F8.....JSR $FFD5|
000017C0: 20 3B 20 93 00 DD 1F E4 0C 4C 44 41 20 24 30 32 | ; ......LDA $02|
000017D0: 20 3A 20 53 54 41 20 53 41 54 5A AA 31 00 F4 1F | : STA SATZ.1...|
000017E0: EE 0C 4C 44 41 20 23 24 30 30 20 3A 20 53 54 41 |..LDA #$00 : STA|
000017F0: 20 24 34 32 00 01 20 F8 0C 4A 4D 50 20 45 44 49 | $42.. ..JMP EDI|
00001800: 54 00 07 20 02 0D 3B 00 1E 20 0C 0D 3B 20 5A 45 |T.. ..;.. ..; ZE|
00001810: 49 43 48 45 4E 20 4C 4F 45 53 43 48 45 4E 00 24 |ICHEN LOESCHEN.$|
00001820: 20 16 0D 3B 00 38 20 20 0D 42 31 39 20 4A 53 52 | ..;.8 .B19 JSR|
00001830: 20 5A 45 49 43 48 45 4E 00 45 20 2A 0D 4C 44 59 | ZEICHEN.E *.LDY|
00001840: 20 23 24 30 37 00 52 20 34 0D 4C 44 41 20 23 24 | #$07.R 4.LDA #$|
00001850: 30 30 00 67 20 3E 0D 5A 45 4C 4F 20 53 54 41 20 |00.g >.ZELO STA |
00001860: 28 24 34 45 29 2C 59 00 6F 20 48 0D 44 45 59 00 |($4E),Y.o H.DEY.|
00001870: 7C 20 52 0D 42 50 4C 20 5A 45 4C 4F 00 88 20 5C || R.BPL ZELO.. \|
00001880: 0D 4A 4D 50 20 5A 41 42 00 8E 20 66 0D 3B 00 A8 |.JMP ZAB.. f.;..|
00001890: 20 70 0D 3B 20 5A 45 49 43 48 45 4E 20 49 4E 56 | p.; ZEICHEN INV|
000018A0: 45 4E 54 49 45 52 45 4E 00 AE 20 7A 0D 3B 00 C2 |ENTIEREN.. z.;..|
000018B0: 20 84 0D 42 32 30 20 4A 53 52 20 5A 45 49 43 48 | ..B20 JSR ZEICH|
000018C0: 45 4E 00 CF 20 8E 0D 4C 44 59 20 23 24 30 37 00 |EN.. ..LDY #$07.|
000018D0: E5 20 98 0D 5A 45 49 49 4E 20 4C 44 41 20 28 24 |. ..ZEIIN LDA ($|
000018E0: 34 45 29 2C 59 00 F1 20 A2 0D 45 B0 20 23 24 46 |4E),Y.. ..E. #$F|
000018F0: 46 00 01 21 AC 0D 53 54 41 20 28 24 34 45 29 2C |F..!..STA ($4E),|
00001900: 59 00 09 21 B6 0D 44 45 59 00 17 21 C0 0D 42 50 |Y..!..DEY..!..BP|
00001910: 4C 20 5A 45 49 49 4E 00 25 21 CA 0D 4A 4D 50 20 |L ZEIIN.%!..JMP |
00001920: 45 52 4E 45 55 00 2B 21 D4 0D 3B 00 4B 21 DE 0D |ERNEU.+!..;.K!..|
00001930: 3B 20 5A 45 49 43 48 45 4E 20 48 B0 49 5A 91 54 |; ZEICHEN H.IZ.T|
00001940: 41 4C 20 53 50 49 45 47 45 4C 4E 00 51 21 E8 0D |AL SPIEGELN.Q!..|
00001950: 3B 00 65 21 F2 0D 42 32 31 20 4A 53 52 20 5A 45 |;.e!..B21 JSR ZE|
00001960: 49 43 48 45 4E 00 7D 21 FC 0D 4C 44 59 20 23 24 |ICHEN.}!..LDY #$|
00001970: 30 37 20 3A 20 4C 44 58 20 23 24 30 30 00 93 21 |07 : LDX #$00..!|
00001980: 06 0E 48 4F 53 50 49 20 4C 44 41 20 28 24 34 45 |..HOSPI LDA ($4E|
00001990: 2C 58 29 00 9B 21 10 0E 50 48 41 00 AB 21 1A 0E |,X)..!..PHA..!..|
000019A0: 4C 44 41 20 28 24 34 45 29 2C 59 00 BB 21 24 0E |LDA ($4E),Y..!$.|
000019B0: 53 54 41 20 28 24 34 45 2C 58 29 00 C3 21 2E 0E |STA ($4E,X)..!..|
000019C0: 50 4C 41 00 D3 21 38 0E 53 54 41 20 28 24 34 45 |PLA..!8.STA ($4E|
000019D0: 29 2C 59 00 DF 21 42 0E 49 4E 43 20 24 34 45 00 |),Y..!B.INC $4E.|
000019E0: E7 21 4C 0E 44 45 59 00 EF 21 56 0E 44 45 59 00 |.!L.DEY..!V.DEY.|
000019F0: FD 21 60 0E 42 50 4C 20 48 4F 53 50 49 00 0B 22 |.!`.BPL HOSPI.."|
00001A00: 6A 0E 4A 4D 50 20 45 52 4E 45 55 00 11 22 74 0E |j.JMP ERNEU.."t.|
00001A10: 3B 00 28 22 7E 0E 3B 20 5A 45 49 43 48 45 4E 20 |;.("~.; ZEICHEN |
00001A20: 43 4F 50 49 45 52 45 4E 00 2E 22 88 0E 3B 00 44 |COPIEREN.."..;.D|
00001A30: 22 92 0E 42 32 32 20 4C 44 41 20 24 34 32 20 3A |"..B22 LDA $42 :|
00001A40: 20 50 48 41 00 53 22 9C 0E 4A 53 52 20 5A 57 45 | PHA.S"..JSR ZWE|
00001A50: 49 49 4E 00 5F 22 A6 0E 53 54 41 20 24 34 32 00 |IIN._"..STA $42.|
00001A60: 6F 22 B0 0E 4A 53 52 20 5A 45 49 43 48 45 4E 00 |o"..JSR ZEICHEN.|
00001A70: 7C 22 BA 0E 4C 44 59 20 23 24 30 37 00 91 22 C4 ||"..LDY #$07..".|
00001A80: 0E 43 4F 50 59 20 4C 44 41 20 28 24 34 45 29 2C |.COPY LDA ($4E),|
00001A90: 59 00 A1 22 CE 0E 53 54 41 20 28 24 34 39 29 2C |Y.."..STA ($49),|
00001AA0: 59 00 A9 22 D8 0E 44 45 59 00 B6 22 E2 0E 42 50 |Y.."..DEY.."..BP|
00001AB0: 4C 20 43 4F 50 59 00 BE 22 EC 0E 50 4C 41 00 CA |L COPY.."..PLA..|
00001AC0: 22 F6 0E 53 54 41 20 24 34 32 00 D7 22 00 0F 4A |"..STA $42.."..J|
00001AD0: 4D 50 20 45 44 49 54 00 DD 22 0A 0F 3B 00 F4 22 |MP EDIT.."..;.."|
00001AE0: 14 0F 3B 22 5A 45 49 43 48 45 4E 20 54 41 55 53 |..;"ZEICHEN TAUS|
00001AF0: 43 48 45 4E 00 FA 22 1E 0F 3B 00 10 23 28 0F 42 |CHEN.."..;..#(.B|
00001B00: 32 33 20 4C 44 41 20 24 34 32 20 3A 20 50 48 41 |23 LDA $42 : PHA|
00001B10: 00 1F 23 32 0F 4A 53 52 20 5A 57 45 49 49 4E 00 |..#2.JSR ZWEIIN.|
00001B20: 2B 23 3C 0F 53 54 41 20 24 34 32 00 3B 23 46 0F |+#<.STA $42.;#F.|
00001B30: 4A 53 52 20 5A 45 49 43 48 45 4E 00 48 23 50 0F |JSR ZEICHEN.H#P.|
00001B40: 4C 44 59 20 23 24 30 37 00 67 23 5A 0F 54 41 55 |LDY #$07.g#Z.TAU|
00001B50: 53 43 48 45 4E 20 4C 44 41 20 28 24 34 45 29 2C |SCHEN LDA ($4E),|
00001B60: 59 20 3A 20 54 41 58 00 77 23 64 0F 4C 44 41 20 |Y : TAX.w#d.LDA |
00001B70: 28 24 34 39 29 2C 59 00 87 23 6E 0F 53 54 41 20 |($49),Y..#n.STA |
00001B80: 28 24 34 45 29 2C 59 00 9D 23 78 0F 54 58 41 20 |($4E),Y..#x.TXA |
00001B90: 3A 20 53 54 41 20 28 24 34 39 29 2C 59 00 A5 23 |: STA ($49),Y..#|
00001BA0: 82 0F 44 45 59 00 B6 23 8C 0F 42 50 4C 20 54 41 |..DEY..#..BPL TA|
00001BB0: 55 53 43 48 45 4E 00 BE 23 96 0F 50 4C 41 00 CA |USCHEN..#..PLA..|
00001BC0: 23 A0 0F 53 54 41 20 24 34 32 00 D7 23 AA 0F 4A |#..STA $42..#..J|
00001BD0: 4D 50 20 45 44 49 54 00 DD 23 B4 0F 3B 00 FD 23 |MP EDIT..#..;..#|
00001BE0: BE 0F 3B 20 5A 45 49 43 48 45 4E 20 56 45 52 54 |..; ZEICHEN VERT|
00001BF0: 49 4B 41 4C 20 53 50 49 45 47 45 4C 4E 00 03 24 |IKAL SPIEGELN..$|
00001C00: C8 0F 3B 00 17 24 D2 0F 42 32 34 20 4A 53 52 20 |..;..$..B24 JSR |
00001C10: 5A 45 49 43 48 45 4E 00 24 24 DC 0F 4C 44 59 20 |ZEICHEN.$$..LDY |
00001C20: 23 24 30 37 00 3B 24 E6 0F 56 45 53 50 49 31 20 |#$07.;$..VESPI1 |
00001C30: 4C 44 41 20 28 24 34 45 29 2C 59 00 48 24 F0 0F |LDA ($4E),Y.H$..|
00001C40: 4C 44 58 20 23 24 30 37 00 56 24 FA 0F 56 45 53 |LDX #$07.V$..VES|
00001C50: 50 49 20 4C 53 52 00 62 24 04 10 53 54 41 20 24 |PI LSR.b$..STA $|
00001C60: 34 39 00 6E 24 0E 10 4C 44 41 20 24 34 41 00 76 |49.n$..LDA $4A.v|
00001C70: 24 18 10 52 4F 4C 00 82 24 22 10 53 54 41 20 24 |$..ROL..$".STA $|
00001C80: 34 41 00 8E 24 2C 10 4C 44 41 20 24 34 39 00 96 |4A..$,.LDA $49..|
00001C90: 24 36 10 44 45 58 00 A4 24 40 10 42 50 4C 20 56 |$6.DEX..$@.BPL V|
00001CA0: 45 53 50 49 00 B0 24 4A 10 4C 44 41 20 24 34 41 |ESPI..$J.LDA $4A|
00001CB0: 00 C0 24 54 10 53 54 41 20 28 24 34 45 29 2C 59 |..$T.STA ($4E),Y|
00001CC0: 00 C8 24 5E 10 44 45 59 00 D7 24 68 10 42 50 4C |..$^.DEY..$h.BPL|
00001CD0: 20 56 45 53 50 49 31 00 E5 24 72 10 4A 4D 50 20 | VESPI1..$r.JMP |
00001CE0: 45 52 4E 45 55 00 EB 24 7C 10 3B 00 07 25 86 10 |ERNEU..$|.;..%..|
00001CF0: 3B 20 5A 45 49 43 48 45 4E 20 B0 20 56 45 52 4B |; ZEICHEN . VERK|
00001D00: 4E 55 45 50 46 45 4E 00 0D 25 90 10 3B 00 23 25 |NUEPFEN..%..;.#%|
00001D10: 9A 10 42 32 35 20 4C 44 41 20 24 34 32 20 3A 20 |..B25 LDA $42 : |
00001D20: 50 48 41 00 32 25 A4 10 4A 53 52 20 5A 57 45 49 |PHA.2%..JSR ZWEI|
00001D30: 49 4E 00 3E 25 AE 10 53 54 41 20 24 34 32 00 4E |IN.>%..STA $42.N|
00001D40: 25 B8 10 4A 53 52 20 5A 45 49 43 48 45 4E 00 5B |%..JSR ZEICHEN.[|
00001D50: 25 C2 10 4C 44 59 20 23 24 30 37 00 70 25 CC 10 |%..LDY #$07.p%..|
00001D60: B0 56 45 52 20 4C 44 41 20 28 24 34 39 29 2C 59 |.VER LDA ($49),Y|
00001D70: 00 7F 25 D6 10 B0 41 20 28 24 34 45 29 2C 59 00 |..%...A ($4E),Y.|
00001D80: 8F 25 E0 10 53 54 41 20 28 24 34 39 29 2C 59 00 |.%..STA ($49),Y.|
00001D90: 97 25 EA 10 44 45 59 00 A4 25 F4 10 42 50 4C 20 |.%..DEY..%..BPL |
00001DA0: B0 56 45 52 00 AC 25 FE 10 50 4C 41 00 B8 25 08 |.VER..%..PLA..%.|
00001DB0: 11 53 54 41 20 24 34 32 00 C5 25 12 11 4A 4D 50 |.STA $42..%..JMP|
00001DC0: 20 45 44 49 54 00 CB 25 1C 11 3B 00 EB 25 26 11 | EDIT..%..;..%&.|
00001DD0: 3B 20 55 4D 20 39 30 27 20 4E 41 43 48 20 52 45 |; UM 90' NACH RE|
00001DE0: 43 48 54 53 20 44 52 45 48 45 4E 00 F1 25 30 11 |CHTS DREHEN..%0.|
00001DF0: 3B 00 05 26 3A 11 42 32 36 20 4A 53 52 20 5A 45 |;..&:.B26 JSR ZE|
00001E00: 49 43 48 45 4E 00 12 26 44 11 4C 44 59 20 23 24 |ICHEN..&D.LDY #$|
00001E10: 30 37 00 26 26 4E 11 52 45 44 52 45 32 20 4C 44 |07.&&N.REDRE2 LD|
00001E20: 58 20 23 24 30 37 00 36 26 58 11 4C 44 41 20 28 |X #$07.6&X.LDA (|
00001E30: 24 34 45 29 2C 59 00 45 26 62 11 52 45 44 52 45 |$4E),Y.E&b.REDRE|
00001E40: 31 20 4C 53 52 00 69 26 6C 11 52 4F 4C 20 24 43 |1 LSR.i&l.ROL $C|
00001E50: 45 45 30 2C 58 20 3B 5A 57 49 53 43 48 45 4E 20 |EE0,X ;ZWISCHEN |
00001E60: 53 50 45 49 43 48 45 52 4E 00 71 26 76 11 44 45 |SPEICHERN.q&v.DE|
00001E70: 58 00 80 26 80 11 42 50 4C 20 52 45 44 52 45 31 |X..&..BPL REDRE1|
00001E80: 00 88 26 8A 11 44 45 59 00 97 26 94 11 42 50 4C |..&..DEY..&..BPL|
00001E90: 20 52 45 44 52 45 32 00 A4 26 9E 11 4C 44 59 20 | REDRE2..&..LDY |
00001EA0: 23 24 30 37 00 C5 26 A8 11 52 45 44 52 45 33 20 |#$07..&..REDRE3 |
00001EB0: 4C 44 41 20 24 43 45 45 30 2C 59 20 3B 5A 55 52 |LDA $CEE0,Y ;ZUR|
00001EC0: 55 45 43 4B AB 00 E6 26 B2 11 53 54 41 20 28 24 |UECK...&..STA ($|
00001ED0: 34 45 29 2C 59 20 20 20 20 20 20 20 20 3B 43 4F |4E),Y ;CO|
00001EE0: 50 49 45 52 45 4E 00 EE 26 BC 11 44 45 59 00 FD |PIEREN..&..DEY..|
00001EF0: 26 C6 11 42 50 4C 20 52 45 44 52 45 33 00 0B 27 |&..BPL REDRE3..'|
00001F00: D0 11 4A 4D 50 20 45 52 4E 45 55 00 11 27 DA 11 |..JMP ERNEU..'..|
00001F10: 3B 00 35 27 E4 11 3B 20 50 55 4E 4B 54 20 4C 4F |;.5'..; PUNKT LO|
00001F20: 45 53 43 48 45 4E 20 26 20 43 55 52 53 B0 20 57 |ESCHEN & CURS. W|
00001F30: 45 49 54 45 52 00 3B 27 EE 11 3B 00 4F 27 F8 11 |EITER.;'..;.O'..|
00001F40: 42 32 37 20 4A 53 52 20 5A 45 49 43 48 45 4E 00 |B27 JSR ZEICHEN.|
00001F50: 60 27 02 12 50 55 57 45 20 4C 44 59 20 24 46 41 |`'..PUWE LDY $FA|
00001F60: 00 6C 27 0C 12 4C 44 41 20 24 30 32 00 79 27 16 |.l'..LDA $02.y'.|
00001F70: 12 43 50 58 20 23 31 30 30 00 86 27 20 12 42 45 |.CPX #100..' .BE|
00001F80: 51 20 4C 4F 57 45 00 92 27 2A 12 45 B0 20 23 24 |Q LOWE..'*.E. #$|
00001F90: 46 46 00 A0 27 34 12 AF 20 28 24 34 45 29 2C 59 |FF..'4.. ($4E),Y|
00001FA0: 00 AD 27 3E 12 43 50 58 20 23 31 30 30 00 BB 27 |..'>.CPX #100..'|
00001FB0: 48 12 42 4E 45 20 4C 4F 57 45 31 00 CF 27 52 12 |H.BNE LOWE1..'R.|
00001FC0: 4C 4F 57 45 20 B0 41 20 28 24 34 45 29 2C 59 00 |LOWE .A ($4E),Y.|
00001FD0: E5 27 5C 12 4C 4F 57 45 31 20 53 54 41 20 28 24 |.'\.LOWE1 STA ($|
00001FE0: 34 45 29 2C 59 00 FB 27 66 12 4C 44 41 20 24 44 |4E),Y..'f.LDA $D|
00001FF0: 33 20 3A 20 53 54 41 20 24 34 35 00 11 28 70 12 |3 : STA $45..(p.|
00002000: 4C 44 41 20 24 44 36 20 3A 20 53 54 41 20 24 34 |LDA $D6 : STA $4|
00002010: 36 00 22 28 7A 12 4A 53 52 20 5A 44 52 55 43 4B |6."(z.JSR ZDRUCK|
00002020: 45 4E 00 38 28 84 12 4C 44 41 20 24 34 35 20 3A |EN.8(..LDA $45 :|
00002030: 20 53 54 41 20 24 44 33 00 4E 28 8E 12 4C 44 41 | STA $D3.N(..LDA|
00002040: 20 24 34 36 20 3A 20 53 54 41 20 24 44 36 00 5C | $46 : STA $D6.\|
00002050: 28 98 12 4A 53 52 20 35 38 36 34 30 00 67 28 A2 |(..JSR 58640.g(.|
00002060: 12 4A 4D 50 20 42 33 00 6D 28 AC 12 3B 00 8F 28 |.JMP B3.m(..;..(|
00002070: B6 12 3B 20 50 55 4E 4B 54 20 53 45 54 5A 45 4E |..; PUNKT SETZEN|
00002080: 20 26 20 43 55 52 53 B0 20 57 45 49 54 45 52 00 | & CURS. WEITER.|
00002090: 95 28 C0 12 3B 00 A9 28 CA 12 42 32 38 20 4A 53 |.(..;..(..B28 JS|
000020A0: 52 20 5A 45 49 43 48 45 4E 00 B6 28 D4 12 4C 44 |R ZEICHEN..(..LD|
000020B0: 58 20 23 31 30 30 00 C3 28 DE 12 4A 4D 50 20 50 |X #100..(..JMP P|
000020C0: 55 57 45 00 C9 28 E8 12 3B 00 E7 28 F2 12 3B 20 |UWE..(..;..(..; |
000020D0: 5A 45 49 43 48 45 4E 20 45 49 4E 45 20 5A 45 49 |ZEICHEN EINE ZEI|
000020E0: 4C 45 20 48 4F 43 48 00 ED 28 FC 12 3B 00 FD 28 |LE HOCH..(..;..(|
000020F0: 06 13 42 33 30 20 4C 44 41 20 24 34 32 00 19 29 |..B30 LDA $42..)|
00002100: 10 13 53 45 43 20 3A 20 53 42 43 20 23 33 32 20 |..SEC : SBC #32 |
00002110: 3A 20 53 54 41 20 24 34 32 00 25 29 1A 13 4A 4D |: STA $42.%)..JM|
00002120: 50 20 5A 41 42 00 2B 29 24 13 3B 00 4F 29 2E 13 |P ZAB.+)$.;.O)..|
00002130: 3B 20 5A 45 49 43 48 45 4E 20 45 49 4E 45 20 5A |; ZEICHEN EINE Z|
00002140: 45 49 4C 45 20 4E 41 43 48 20 55 4E 54 45 4E 00 |EILE NACH UNTEN.|
00002150: 55 29 38 13 3B 00 65 29 42 13 42 33 31 20 4C 44 |U)8.;.e)B.B31 LD|
00002160: 41 20 24 34 32 00 81 29 4C 13 43 4C 43 20 3A 20 |A $42..)L.CLC : |
00002170: 41 44 43 20 23 33 32 20 3A 20 53 54 41 20 24 34 |ADC #32 : STA $4|
00002180: 32 00 8D 29 56 13 4A 4D 50 20 5A 41 42 00 93 29 |2..)V.JMP ZAB..)|
00002190: 60 13 3B 00 B8 29 6A 13 3B 20 4B 4C 45 49 4E 45 |`.;..)j.; KLEINE|
000021A0: 20 5A 45 49 43 48 45 4E 20 49 4E 20 45 44 49 A4 | ZEICHEN IN EDI.|
000021B0: 52 42 45 52 45 49 43 48 00 C7 29 74 13 3B 20 43 |RBEREICH..)t.; C|
000021C0: 4F 50 49 45 52 45 4E 00 CD 29 7E 13 3B 00 E8 29 |OPIEREN..)~.;..)|
000021D0: 88 13 42 33 33 20 4C 44 59 20 23 24 44 38 20 3A |..B33 LDY #$D8 :|
000021E0: 20 53 54 59 20 24 36 30 00 FF 29 92 13 4C 44 59 | STY $60..)..LDY|
000021F0: 20 23 24 45 30 20 3A 20 53 54 59 20 24 35 42 00 | #$E0 : STY $5B.|
00002200: 0F 2A 9C 13 4A 4D 50 20 52 4F 4D 52 41 4D 31 00 |.*..JMP ROMRAM1.|
00002210: 15 2A A6 13 3B 00 38 2A B0 13 3B 20 5A 53 20 49 |.*..;.8*..; ZS I|
00002220: 4E 20 AF 45 52 45 4E 20 42 45 52 45 49 43 48 20 |N .EREN BEREICH |
00002230: 43 4F 50 49 45 52 45 4E 00 3E 2A BA 13 3B 00 59 |COPIEREN.>*..;.Y|
00002240: 2A C4 13 42 33 34 20 20 4C 44 41 20 24 34 32 20 |*..B34 LDA $42 |
00002250: 3A 20 53 54 41 20 24 35 46 00 68 2A CE 13 4A 53 |: STA $5F.h*..JS|
00002260: 52 20 5A 57 45 49 49 4E 00 74 2A D8 13 43 4D 50 |R ZWEIIN.t*..CMP|
00002270: 20 24 34 32 00 80 2A E2 13 42 43 53 20 5A 43 37 | $42..*..BCS ZC7|
00002280: 00 8D 2A EC 13 4A 4D 50 20 45 44 49 54 00 A7 2A |..*..JMP EDIT..*|
00002290: F6 13 5A 43 37 20 53 54 41 20 24 36 30 20 3A 20 |..ZC7 STA $60 : |
000022A0: 49 4E 43 20 24 36 30 00 C5 2A 00 14 5A 43 35 20 |INC $60..*..ZC5 |
000022B0: 4A 53 52 20 5A 45 49 43 48 45 4E 3A 4C 44 41 20 |JSR ZEICHEN:LDA |
000022C0: 24 41 31 46 32 00 D2 2A 0A 14 43 4D 50 20 23 22 |$A1F2..*..CMP #"|
000022D0: 31 22 00 DE 2A 14 14 42 45 51 20 5A 43 32 00 05 |1"..*..BEQ ZC2..|
000022E0: 2B 1E 14 4C 44 41 20 24 34 46 20 3A 20 53 45 43 |+..LDA $4F : SEC|
000022F0: 20 3A 20 53 42 43 20 23 24 30 38 20 3A 20 53 54 | : SBC #$08 : ST|
00002300: 41 20 24 35 39 00 11 2B 28 14 4A 4D 50 20 5A 43 |A $59..+(.JMP ZC|
00002310: 33 00 36 2B 32 14 5A 43 32 20 4C 44 41 20 24 34 |3.6+2.ZC2 LDA $4|
00002320: 46 3A 43 4C 43 3A 41 44 43 20 23 24 30 38 3A 53 |F:CLC:ADC #$08:S|
00002330: 54 41 20 24 35 39 00 50 2B 3C 14 5A 43 33 20 4C |TA $59.P+<.ZC3 L|
00002340: 44 41 20 24 34 45 20 3A 20 53 54 41 20 24 35 38 |DA $4E : STA $58|
00002350: 00 5D 2B 46 14 4C 44 59 20 23 24 30 37 00 7F 2B |.]+F.LDY #$07..+|
00002360: 50 14 5A 43 34 20 4C 44 41 20 28 24 34 45 29 2C |P.ZC4 LDA ($4E),|
00002370: 59 20 3A 20 53 54 41 20 28 24 35 38 29 2C 59 00 |Y : STA ($58),Y.|
00002380: 91 2B 5A 14 44 45 59 20 3A 20 42 50 4C 20 5A 43 |.+Z.DEY : BPL ZC|
00002390: 34 00 B1 2B 64 14 49 4E 43 20 24 34 32 20 3A 20 |4..+d.INC $42 : |
000023A0: 4C 44 41 20 24 36 30 20 3A 20 43 4D 50 20 24 34 |LDA $60 : CMP $4|
000023B0: 32 00 BD 2B 6E 14 42 4E 45 20 5A 43 35 00 D3 2B |2..+n.BNE ZC5..+|
000023C0: 78 14 4C 44 41 20 24 35 46 20 3A 20 53 54 41 20 |x.LDA $5F : STA |
000023D0: 24 34 32 00 E0 2B 82 14 4A 4D 50 20 45 44 49 54 |$42..+..JMP EDIT|
000023E0: 00 E6 2B 8C 14 3B 00 FE 2B 96 14 3B 20 5A 53 20 |..+..;..+..; ZS |
000023F0: 53 54 41 52 54 41 44 52 45 53 53 45 20 AA 00 04 |STARTADRESSE ...|
00002400: 2C A0 14 3B 00 14 2C AA 14 42 33 35 20 4C 44 41 |,..;..,..B35 LDA|
00002410: 20 B0 47 49 00 27 2C B4 14 43 4C 43 20 3A 20 41 | .GI.',..CLC : A|
00002420: 44 43 20 23 24 30 38 00 33 2C BE 14 53 54 41 20 |DC #$08.3,..STA |
00002430: B0 47 49 00 3F 2C C8 14 4A 53 52 20 48 45 58 00 |.GI.?,..JSR HEX.|
00002440: 4C 2C D2 14 4A 4D 50 20 A1 4B 45 59 00 52 2C DC |L,..JMP .KEY.R,.|
00002450: 14 3B 00 6A 2C E6 14 3B 20 5A 53 20 53 54 41 52 |.;.j,..; ZS STAR|
00002460: 54 41 44 52 45 53 53 45 20 AB 00 70 2C F0 14 3B |TADRESSE ..p,..;|
00002470: 00 80 2C FA 14 42 33 36 20 4C 44 41 20 B0 47 49 |..,..B36 LDA .GI|
00002480: 00 93 2C 04 15 53 45 43 20 3A 20 53 42 43 20 23 |..,..SEC : SBC #|
00002490: 24 30 38 00 9F 2C 0E 15 53 54 41 20 B0 47 49 00 |$08..,..STA .GI.|
000024A0: AB 2C 18 15 4A 53 52 20 48 45 58 00 B8 2C 22 15 |.,..JSR HEX..,".|
000024B0: 4A 4D 50 20 A1 4B 45 59 00 BE 2C 2C 15 3B 00 DA |JMP .KEY..,,.;..|
000024C0: 2C 36 15 3B 20 5A 45 49 43 48 45 4E 53 41 54 5A |,6.; ZEICHENSATZ|
000024D0: 20 54 45 58 54 50 52 4F 42 45 00 E0 2C 40 15 3B | TEXTPROBE..,@.;|
000024E0: 00 FC 2C 4A 15 42 33 37 20 4C 44 41 20 53 41 54 |..,J.B37 LDA SAT|
000024F0: 5A AA 31 3A 53 54 41 20 53 41 54 5A 00 18 2D 54 |Z.1:STA SATZ..-T|
00002500: 15 4C 44 41 20 23 24 30 30 20 3A 20 53 54 41 20 |.LDA #$00 : STA |
00002510: 35 33 32 34 38 AA 32 31 00 31 2D 5E 15 4C 44 41 |53248.21.1-^.LDA|
00002520: 20 23 22 93 22 20 3A 20 4A 53 52 20 24 46 46 44 | #"." : JSR $FFD|
00002530: 32 00 43 2D 68 15 54 45 32 20 4A 53 52 20 A1 43 |2.C-h.TE2 JSR .C|
00002540: 48 41 52 00 50 2D 72 15 43 4D 50 20 23 22 03 22 |HAR.P-r.CMP #"."|
00002550: 00 5C 2D 7C 15 42 45 51 20 54 45 31 00 6A 2D 86 |.\-|.BEQ TE1.j-.|
00002560: 15 4A 53 52 20 24 46 46 44 32 00 76 2D 90 15 4A |.JSR $FFD2.v-..J|
00002570: 4D 50 20 54 45 32 00 92 2D 9A 15 54 45 31 20 4C |MP TE2..-..TE1 L|
00002580: 44 41 20 23 31 33 32 20 3A 20 53 54 41 20 53 41 |DA #132 : STA SA|
00002590: 54 5A 00 AE 2D A4 15 4C 44 41 20 23 24 30 31 20 |TZ..-..LDA #$01 |
000025A0: 3A 20 53 54 41 20 35 33 32 34 38 AA 32 31 00 BB |: STA 53248.21..|
000025B0: 2D AE 15 4A 4D 50 20 45 44 49 54 00 C1 2D B8 15 |-..JMP EDIT..-..|
000025C0: 3B 00 DB 2D C2 15 3B 20 AF 45 52 45 4E 20 42 45 |;..-..; .EREN BE|
000025D0: 52 45 49 43 48 20 57 41 45 48 C3 00 E1 2D CC 15 |REICH WAEH...-..|
000025E0: 3B 00 F3 2D D6 15 42 33 38 20 53 54 41 20 42 45 |;..-..B38 STA BE|
000025F0: 52 45 49 00 06 2E E0 15 53 45 43 20 3A 20 53 42 |REI.....SEC : SB|
00002600: 43 20 23 24 33 31 00 0E 2E EA 15 54 41 58 00 1C |C #$31.....TAX..|
00002610: 2E F4 15 4C 44 41 20 4D 45 4D 2C 58 00 28 2E FE |...LDA MEM,X.(..|
00002620: 15 53 54 41 20 24 46 38 00 35 2E 08 16 4C 44 41 |.STA $F8.5...LDA|
00002630: 20 B9 49 2C 58 00 44 2E 12 16 53 54 41 20 53 41 | .I,X.D...STA SA|
00002640: 54 5A AA 31 00 52 2E 1C 16 4A 4D 50 20 45 44 49 |TZ.1.R...JMP EDI|
00002650: 54 31 00 58 2E 26 16 3B 00 72 2E 30 16 3B 20 4D |T1.X.&.;.r.0.; M|
00002660: 45 4E 55 AB 53 45 49 54 45 20 57 45 43 48 53 45 |ENU.SEITE WECHSE|
00002670: 4C 4E 00 78 2E 3A 16 3B 00 88 2E 44 16 42 34 30 |LN.x.:.;...D.B40|
00002680: 20 4C 44 41 20 24 34 33 00 95 2E 4E 16 43 4D 50 | LDA $43...N.CMP|
00002690: 20 23 24 30 31 00 A2 2E 58 16 42 45 51 20 4D 45 | #$01...X.BEQ ME|
000026A0: 53 43 00 AF 2E 62 16 4C 44 41 20 23 24 30 31 00 |SC...b.LDA #$01.|
000026B0: BD 2E 6C 16 4A 4D 50 20 4D 45 53 43 31 00 CF 2E |..l.JMP MESC1...|
000026C0: 76 16 4D 45 53 43 20 4C 44 41 20 23 24 30 46 00 |v.MESC LDA #$0F.|
000026D0: E1 2E 80 16 4D 45 53 43 31 20 53 54 41 20 24 34 |....MESC1 STA $4|
000026E0: 33 00 EE 2E 8A 16 4A 53 52 20 4D 45 4E 55 00 FB |3.....JSR MENU..|
000026F0: 2E 94 16 4A 4D 50 20 A1 4B 45 59 00 01 2F 9E 16 |...JMP .KEY../..|
00002700: 3B 00 17 2F A8 16 3B 20 20 55 4E 54 45 52 50 52 |;../..; UNTERPR|
00002710: 4F 47 52 41 4D 4D 45 00 2E 2F B2 16 3B 22 C0 C0 |OGRAMME../..;"..|
00002720: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 34 |...............4|
00002730: 2F BC 16 3B 00 59 2F C6 16 3B 20 56 45 52 47 52 |/..;.Y/..; VERGR|
00002740: 4F 45 53 53 45 52 54 45 53 20 5A 45 49 43 48 45 |OESSERTES ZEICHE|
00002750: 4E 20 44 52 55 43 4B 45 4E 00 76 2F D0 16 3B 20 |N DRUCKEN.v/..; |
00002760: 26 20 43 55 52 53 B0 B9 49 54 49 91 20 5A 57 49 |& CURS..ITI. ZWI|
00002770: 53 43 48 45 4E AB 00 86 2F DA 16 3B 20 53 50 45 |SCHEN.../..; SPE|
00002780: 49 43 48 45 52 4E 00 8C 2F E4 16 3B 00 A8 2F EE |ICHERN../..;../.|
00002790: 16 45 52 4E 45 55 20 4C 44 41 20 24 44 33 20 3A |.ERNEU LDA $D3 :|
000027A0: 20 53 54 41 20 24 34 35 00 BE 2F F8 16 4C 44 41 | STA $45../..LDA|
000027B0: 20 24 44 36 20 3A 20 53 54 41 20 24 34 36 00 CF | $D6 : STA $46..|
000027C0: 2F 02 17 4A 53 52 20 5A 44 52 55 43 4B 45 4E 00 |/..JSR ZDRUCKEN.|
000027D0: E5 2F 0C 17 4C 44 41 20 24 34 35 20 3A 20 53 54 |./..LDA $45 : ST|
000027E0: 41 20 24 44 33 00 FB 2F 16 17 4C 44 41 20 24 34 |A $D3../..LDA $4|
000027F0: 36 20 3A 20 53 54 41 20 24 44 36 00 09 30 20 17 |6 : STA $D6..0 .|
00002800: 4A 53 52 20 35 38 36 34 30 00 16 30 2A 17 4A 4D |JSR 58640..0*.JM|
00002810: 50 20 A1 4B 45 59 00 1C 30 34 17 3B 00 41 30 3E |P .KEY..04.;.A0>|
00002820: 17 3B 20 4E 52 2E 20 45 49 4E 45 53 20 5A 57 45 |.; NR. EINES ZWE|
00002830: 49 54 45 4E 20 5A 45 49 43 48 45 4E 53 20 45 49 |ITEN ZEICHENS EI|
00002840: 4E 00 47 30 48 17 3B 00 5E 30 52 17 5A 57 45 49 |N.G0H.;.^0R.ZWEI|
00002850: 49 4E 20 4A 53 52 20 5A 45 49 43 48 45 4E 00 74 |IN JSR ZEICHEN.t|
00002860: 30 5C 17 4C 44 41 20 24 34 45 20 3A 20 53 54 41 |0\.LDA $4E : STA|
00002870: 20 24 34 39 00 8A 30 66 17 4C 44 41 20 24 34 46 | $49..0f.LDA $4F|
00002880: 20 3A 20 53 54 41 20 24 34 41 00 A8 30 70 17 5A | : STA $4A..0p.Z|
00002890: 57 45 49 49 4E 31 20 4C 44 41 20 23 31 36 20 3A |WEIIN1 LDA #16 :|
000028A0: 20 53 54 41 20 24 44 33 00 BE 30 7A 17 4C 44 41 | STA $D3..0z.LDA|
000028B0: 20 23 31 36 20 3A 20 53 54 41 20 24 44 36 00 CC | #16 : STA $D6..|
000028C0: 30 84 17 4A 53 52 20 35 38 36 34 30 00 E8 30 8E |0..JSR 58640..0.|
000028D0: 17 4C 44 41 20 23 22 20 22 20 3A 20 53 54 41 20 |.LDA #" " : STA |
000028E0: 53 54 52 49 4E 47 AA 31 00 08 31 98 17 53 54 41 |STRING.1..1..STA|
000028F0: 20 53 54 52 49 4E 47 AA 32 20 3A 20 53 54 41 20 | STRING.2 : STA |
00002900: 53 54 52 49 4E 47 AA 33 00 22 31 A2 17 4C 44 41 |STRING.3."1..LDA|
00002910: 20 23 24 30 33 20 3A 20 53 54 41 20 4C 41 45 4E | #$03 : STA LAEN|
00002920: 47 45 00 2D 31 AC 17 4A 53 52 20 85 31 00 3A 31 |GE.-1..JSR .1.:1|
00002930: B6 17 4C 44 58 20 23 24 30 33 00 52 31 C0 17 54 |..LDX #$03.R1..T|
00002940: 52 41 4E 53 20 20 4C 44 41 20 53 54 52 49 4E 47 |RANS LDA STRING|
00002950: 2C 58 00 62 31 CA 17 53 54 41 20 34 31 33 37 33 |,X.b1..STA 41373|
00002960: 2C 58 00 6A 31 D4 17 44 45 58 00 78 31 DE 17 42 |,X.j1..DEX.x1..B|
00002970: 4E 45 20 54 52 41 4E 53 00 89 31 E8 17 4A 53 52 |NE TRANS..1..JSR|
00002980: 20 44 45 5A 49 4D 41 4C 32 00 91 31 F2 17 52 54 | DEZIMAL2..1..RT|
00002990: 53 00 97 31 FC 17 3B 00 B2 31 06 18 3B 20 44 45 |S..1..;..1..; DE|
000029A0: 5A 49 4D 41 4C 5A 41 48 4C 20 45 49 4E 47 45 42 |ZIMALZAHL EINGEB|
000029B0: 45 4E 00 CD 31 10 18 3B 20 26 20 4E 41 43 48 20 |EN..1..; & NACH |
000029C0: 48 45 58 20 55 4D 52 45 43 48 4E 45 4E 00 D3 31 |HEX UMRECHNEN..1|
000029D0: 1A 18 3B 00 F5 31 24 18 44 45 5A 49 4D 41 4C 20 |..;..1$.DEZIMAL |
000029E0: 4C 44 41 20 23 24 30 33 20 3A 20 53 54 41 20 4C |LDA #$03 : STA L|
000029F0: 41 45 4E 47 45 00 FF 31 2E 18 4A 53 52 20 85 00 |AENGE..1..JSR ..|
00002A00: 22 32 38 18 44 45 5A 49 4D 41 4C 32 20 4C 44 41 |"28.DEZIMAL2 LDA|
00002A10: 20 24 34 32 20 3A 20 53 54 41 20 43 4F 55 4E 54 | $42 : STA COUNT|
00002A20: 45 52 00 2F 32 42 18 4C 44 59 20 23 24 30 32 00 |ER./2B.LDY #$02.|
00002A30: 45 32 4C 18 44 45 5A 49 31 20 4C 44 41 20 34 31 |E2L.DEZI1 LDA 41|
00002A40: 33 37 34 2C 59 00 52 32 56 18 43 4D 50 20 23 24 |374,Y.R2V.CMP #$|
00002A50: 32 30 00 60 32 60 18 42 4E 45 20 44 45 5A 49 32 |20.`2`.BNE DEZI2|
00002A60: 00 68 32 6A 18 44 45 59 00 74 32 74 18 42 4D 49 |.h2j.DEY.t2t.BMI|
00002A70: 20 54 41 55 00 82 32 7E 18 42 50 4C 20 44 45 5A | TAU..2~.BPL DEZ|
00002A80: 49 31 00 93 32 88 18 44 45 5A 49 32 20 AF 20 23 |I1..2..DEZI2 . #|
00002A90: 24 30 46 00 A3 32 92 18 53 54 41 20 43 4F 55 4E |$0F..2..STA COUN|
00002AA0: 54 45 52 00 AB 32 9C 18 44 45 59 00 B7 32 A6 18 |TER..2..DEY..2..|
00002AB0: 42 4D 49 20 54 41 55 00 C7 32 B0 18 4C 44 41 20 |BMI TAU..2..LDA |
00002AC0: 34 31 33 37 34 2C 59 00 D2 32 BA 18 AF 20 23 24 |41374,Y..2... #$|
00002AD0: 30 46 00 DA 32 C4 18 54 41 58 00 E7 32 CE 18 43 |0F..2..TAX..2..C|
00002AE0: 50 58 20 23 24 30 30 00 F5 32 D8 18 42 45 51 20 |PX #$00..2..BEQ |
00002AF0: 44 45 5A 49 34 00 0B 33 E2 18 44 45 5A 49 33 20 |DEZI4..3..DEZI3 |
00002B00: 4C 44 41 20 43 4F 55 4E 54 45 52 00 13 33 EC 18 |LDA COUNTER..3..|
00002B10: 43 4C 43 00 20 33 F6 18 41 44 43 20 23 24 30 41 |CLC. 3..ADC #$0A|
00002B20: 00 30 33 00 19 53 54 41 20 43 4F 55 4E 54 45 52 |.03..STA COUNTER|
00002B30: 00 38 33 0A 19 44 45 58 00 46 33 14 19 42 4E 45 |.83..DEX.F3..BNE|
00002B40: 20 44 45 5A 49 33 00 54 33 1E 19 44 45 5A 49 34 | DEZI3.T3..DEZI4|
00002B50: 20 44 45 59 00 60 33 28 19 42 4D 49 20 54 41 55 | DEY.`3(.BMI TAU|
00002B60: 00 70 33 32 19 4C 44 41 20 34 31 33 37 34 2C 59 |.p32.LDA 41374,Y|
00002B70: 00 7B 33 3C 19 AF 20 23 24 30 46 00 83 33 46 19 |.{3<.. #$0F..3F.|
00002B80: 54 41 58 00 90 33 50 19 43 50 58 20 23 24 30 30 |TAX..3P.CPX #$00|
00002B90: 00 9C 33 5A 19 42 45 51 20 54 41 55 00 B2 33 64 |..3Z.BEQ TAU..3d|
00002BA0: 19 57 41 48 4C 36 20 4C 44 41 20 43 4F 55 4E 54 |.WAHL6 LDA COUNT|
00002BB0: 45 52 00 BA 33 6E 19 43 4C 43 00 C7 33 78 19 41 |ER..3n.CLC..3x.A|
00002BC0: 44 43 20 23 31 30 30 00 D7 33 82 19 53 54 41 20 |DC #100..3..STA |
00002BD0: 43 4F 55 4E 54 45 52 00 DF 33 8C 19 44 45 58 00 |COUNTER..3..DEX.|
00002BE0: ED 33 96 19 42 4E 45 20 57 41 48 4C 36 00 01 34 |.3..BNE WAHL6..4|
00002BF0: A0 19 54 41 55 20 4C 44 41 20 43 4F 55 4E 54 45 |..TAU LDA COUNTE|
00002C00: 52 00 09 34 AA 19 52 54 53 00 0F 34 B4 19 3B 00 |R..4..RTS..4..;.|
00002C10: 2A 34 BE 19 3B 20 20 41 44 52 45 53 53 45 20 44 |*4..; ADRESSE D|
00002C20: 45 53 20 41 4B 54 55 45 4C C3 00 44 34 C8 19 3B |ES AKTUEL..D4..;|
00002C30: 20 20 5A 45 49 43 48 45 4E 53 20 45 52 52 45 43 | ZEICHENS ERREC|
00002C40: 48 4E 45 4E 00 4A 34 D2 19 3B 00 68 34 DC 19 5A |HNEN.J4..;.h4..Z|
00002C50: 45 49 43 48 45 4E 20 4C 44 41 20 24 46 37 20 3A |EICHEN LDA $F7 :|
00002C60: 20 53 54 41 20 24 34 45 00 7E 34 E6 19 4C 44 41 | STA $4E.~4..LDA|
00002C70: 20 24 46 38 20 3A 20 53 54 41 20 24 34 46 00 8B | $F8 : STA $4F..|
00002C80: 34 F0 19 4C 44 41 20 23 24 30 30 00 98 34 FA 19 |4..LDA #$00..4..|
00002C90: 4C 44 58 20 23 24 30 30 00 A9 34 04 1A 5A 45 49 |LDX #$00..4..ZEI|
00002CA0: 31 20 43 50 58 20 24 34 32 00 B6 34 0E 1A 42 45 |1 CPX $42..4..BE|
00002CB0: 51 20 5A 45 49 33 00 CA 34 18 1A 43 4C 43 20 20 |Q ZEI3..4..CLC |
00002CC0: 3A 20 41 44 43 20 23 24 30 38 00 D7 34 22 1A 42 |: ADC #$08..4".B|
00002CD0: 4E 45 20 5A 45 49 32 00 E3 34 2C 1A 49 4E 43 20 |NE ZEI2..4,.INC |
00002CE0: 24 34 46 00 F0 34 36 1A 5A 45 49 32 20 49 4E 58 |$4F..46.ZEI2 INX|
00002CF0: 00 FD 34 40 1A 4A 4D 50 20 5A 45 49 31 00 0E 35 |..4@.JMP ZEI1..5|
00002D00: 4A 1A 5A 45 49 33 20 53 54 41 20 24 34 45 00 16 |J.ZEI3 STA $4E..|
00002D10: 35 54 1A 52 54 53 00 1C 35 5E 1A 3B 00 41 35 68 |5T.RTS..5^.;.A5h|
00002D20: 1A 3B 20 20 5A 45 49 43 48 45 4E 20 56 45 52 47 |.; ZEICHEN VERG|
00002D30: 52 4F 45 53 53 45 52 54 20 41 55 53 47 45 42 45 |ROESSERT AUSGEBE|
00002D40: 4E 00 47 35 72 1A 3B 00 60 35 7C 1A 5A 44 52 55 |N.G5r.;.`5|.ZDRU|
00002D50: 43 4B 45 4E 20 4A 53 52 20 5A 45 49 43 48 45 4E |CKEN JSR ZEICHEN|
00002D60: 00 77 35 86 1A 4C 44 41 20 23 24 30 41 20 3A 20 |.w5..LDA #$0A : |
00002D70: 53 54 41 20 24 44 36 00 8E 35 90 1A 4C 44 41 20 |STA $D6..5..LDA |
00002D80: 23 24 30 35 20 3A 20 53 54 41 20 24 44 33 00 9C |#$05 : STA $D3..|
00002D90: 35 9A 1A 4A 53 52 20 35 38 36 34 30 00 A9 35 A4 |5..JSR 58640..5.|
00002DA0: 1A 4C 44 59 20 23 24 30 30 00 B5 35 AE 1A 53 54 |.LDY #$00..5..ST|
00002DB0: 59 20 24 34 31 00 C9 35 B8 1A 53 45 54 42 49 54 |Y $41..5..SETBIT|
00002DC0: 20 4C 44 41 20 23 24 38 30 00 D5 35 C2 1A 53 54 | LDA #$80..5..ST|
00002DD0: 41 20 24 33 43 00 EA 35 CC 1A A1 42 49 54 20 4C |A $3C..5...BIT L|
00002DE0: 44 41 20 28 24 34 45 29 2C 59 00 F4 35 D6 1A AF |DA ($4E),Y..5...|
00002DF0: 20 24 33 43 00 02 36 E0 1A 42 4E 45 20 50 55 4E | $3C..6..BNE PUN|
00002E00: 4B 54 00 0F 36 EA 1A 4C 44 41 20 23 22 20 22 00 |KT..6..LDA #" ".|
00002E10: 1E 36 F4 1A 4A 4D 50 20 44 52 55 43 4B 45 00 31 |.6..JMP DRUCKE.1|
00002E20: 36 FE 1A 50 55 4E 4B 54 20 4C 44 41 20 23 22 D1 |6..PUNKT LDA #".|
00002E30: 22 00 44 36 08 1B 44 52 55 43 4B 45 20 53 54 59 |".D6..DRUCKE STY|
00002E40: 20 24 34 31 00 52 36 12 1B 4A 53 52 20 24 46 46 | $41.R6..JSR $FF|
00002E50: 44 32 00 5E 36 1C 1B 4C 44 59 20 24 34 31 00 6A |D2.^6..LDY $41.j|
00002E60: 36 26 1B 4C 44 41 20 24 33 43 00 77 36 30 1B 43 |6&.LDA $3C.w60.C|
00002E70: 4D 50 20 23 24 30 31 00 82 36 3A 1B 42 45 51 20 |MP #$01..6:.BEQ |
00002E80: 43 52 00 8E 36 44 1B 4C 53 52 20 24 33 43 00 9B |CR..6D.LSR $3C..|
00002E90: 36 4E 1B 4A 4D 50 20 A1 42 49 54 00 A6 36 58 1B |6N.JMP .BIT..6X.|
00002EA0: 43 52 20 49 4E 59 00 B3 36 62 1B 43 50 59 20 23 |CR INY..6b.CPY #|
00002EB0: 24 30 38 00 BE 36 6C 1B 42 45 51 20 90 50 00 CA |$08..6l.BEQ .P..|
00002EC0: 36 76 1B 53 54 59 20 24 34 31 00 D6 36 80 1B 49 |6v.STY $41..6..I|
00002ED0: 4E 43 20 24 44 36 00 ED 36 8A 1B 4C 44 41 20 23 |NC $D6..6..LDA #|
00002EE0: 24 30 35 20 3A 20 53 54 41 20 24 44 33 00 FB 36 |$05 : STA $D3..6|
00002EF0: 94 1B 4A 53 52 20 35 38 36 34 30 00 07 37 9E 1B |..JSR 58640..7..|
00002F00: 4C 44 59 20 24 34 31 00 16 37 A8 1B 4A 4D 50 20 |LDY $41..7..JMP |
00002F10: 53 45 54 42 49 54 00 39 37 B2 1B 90 50 20 4C 44 |SETBIT.97...P LD|
00002F20: 59 20 23 B1 54 45 58 54 34 20 3B 48 49 AB 42 59 |Y #.TEXT4 ;HI.BY|
00002F30: 54 45 20 20 54 45 58 54 34 00 49 37 BC 1B 4C 44 |TE TEXT4.I7..LD|
00002F40: 41 20 23 B3 54 45 58 54 34 00 56 37 C6 1B 4A 53 |A #.TEXT4.V7..JS|
00002F50: 52 20 41 42 44 52 00 6C 37 D0 1B 4C 44 41 20 23 |R ABDR.l7..LDA #|
00002F60: 35 35 20 3A 20 53 54 41 20 24 30 31 00 83 37 DA |55 : STA $01..7.|
00002F70: 1B 4C 44 58 20 24 34 32 20 3A 20 4C 44 41 20 23 |.LDX $42 : LDA #|
00002F80: 24 30 30 00 91 37 E4 1B 4A 53 52 20 24 42 44 43 |$00..7..JSR $BDC|
00002F90: 44 00 A7 37 EE 1B 4C 44 41 20 23 35 34 20 3A 20 |D..7..LDA #54 : |
00002FA0: 53 54 41 20 24 30 31 00 B6 37 F8 1B 4A 53 52 20 |STA $01..7..JSR |
00002FB0: 53 50 52 49 A4 4E 00 BE 37 02 1C 52 54 53 00 C4 |SPRI.N..7..RTS..|
00002FC0: 37 0C 1C 3B 00 E5 37 16 1C 3B 20 5A 45 49 43 48 |7..;..7..; ZEICH|
00002FD0: 45 4E 20 49 4E 20 53 50 52 49 54 45 20 43 4F 50 |EN IN SPRITE COP|
00002FE0: 49 45 52 45 4E 00 EB 37 20 1C 3B 00 09 38 2A 1C |IEREN..7 .;..8*.|
00002FF0: 53 50 52 49 A4 4E 20 4C 44 59 20 23 24 30 37 20 |SPRI.N LDY #$07 |
00003000: 3A 20 4C 44 58 20 23 32 33 00 2F 38 34 1C 53 50 |: LDX #23./84.SP|
00003010: 52 49 54 53 45 20 4C 44 41 20 28 24 34 45 29 2C |RITSE LDA ($4E),|
00003020: 59 20 3A 20 53 54 41 20 24 41 34 30 30 2C 58 00 |Y : STA $A400,X.|
00003030: 43 38 3E 1C 44 45 58 20 3A 20 44 45 58 20 3A 20 |C8>.DEX : DEX : |
00003040: 44 45 58 00 4B 38 48 1C 44 45 59 00 5B 38 52 1C |DEX.K8H.DEY.[8R.|
00003050: 42 50 4C 20 53 50 52 49 54 53 45 00 63 38 5C 1C |BPL SPRITSE.c8\.|
00003060: 52 54 53 00 69 38 66 1C 3B 00 8A 38 70 1C 3B 20 |RTS.i8f.;..8p.; |
00003070: 5A 45 49 43 48 45 4E 53 41 54 5A 20 41 55 46 20 |ZEICHENSATZ AUF |
00003080: 42 49 4C 44 53 43 48 49 52 4D 00 98 38 7A 1C 3B |BILDSCHIRM..8z.;|
00003090: 20 44 52 55 43 4B 45 4E 00 9E 38 84 1C 3B 00 B9 | DRUCKEN..8..;..|
000030A0: 38 8E 1C 5A 53 42 20 4C 44 41 20 23 24 30 34 20 |8..ZSB LDA #$04 |
000030B0: 3A 20 53 54 41 20 24 33 44 00 D0 38 98 1C 3A 20 |: STA $3D..8..: |
000030C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 33 46 | STA $3F|
000030D0: 00 E7 38 A2 1C 4C 44 41 20 23 24 41 30 20 3A 20 |..8..LDA #$A0 : |
000030E0: 53 54 41 20 24 33 45 00 FE 38 AC 1C 4C 44 41 20 |STA $3E..8..LDA |
000030F0: 23 24 44 38 20 3A 20 53 54 41 20 24 34 30 00 0B |#$D8 : STA $40..|
00003100: 39 B6 1C 4C 44 58 20 23 24 30 30 00 1D 39 C0 1C |9..LDX #$00..9..|
00003110: 5A 53 42 31 20 4C 44 59 20 23 24 30 30 00 2A 39 |ZSB1 LDY #$00.*9|
00003120: CA 1C 5A 53 42 32 20 54 58 41 00 3A 39 D4 1C 53 |..ZSB2 TXA.:9..S|
00003130: 54 41 20 28 24 33 44 29 2C 59 00 46 39 DE 1C 43 |TA ($3D),Y.F9..C|
00003140: 4D 50 20 24 34 32 00 53 39 E8 1C 42 4E 45 20 5A |MP $42.S9..BNE Z|
00003150: 53 42 34 00 60 39 F2 1C 4C 44 41 20 23 24 30 30 |SB4.`9..LDA #$00|
00003160: 00 6D 39 FC 1C 4A 4D 50 20 5A 53 42 35 00 7F 39 |.m9..JMP ZSB5..9|
00003170: 06 1D 5A 53 42 34 20 4C 44 41 20 23 24 30 39 00 |..ZSB4 LDA #$09.|
00003180: 94 39 10 1D 5A 53 42 35 20 53 54 41 20 28 24 33 |.9..ZSB5 STA ($3|
00003190: 46 29 2C 59 00 9C 39 1A 1D 49 4E 58 00 A4 39 24 |F),Y..9..INX..9$|
000031A0: 1D 49 4E 59 00 B0 39 2E 1D 43 50 59 20 23 33 32 |.INY..9..CPY #32|
000031B0: 00 BD 39 38 1D 42 4E 45 20 5A 53 42 32 00 CA 39 |..98.BNE ZSB2..9|
000031C0: 42 1D 4C 44 41 20 23 24 32 38 00 D2 39 4C 1D 43 |B.LDA #$28..9L.C|
000031D0: 4C 43 00 DE 39 56 1D 41 44 43 20 24 33 46 00 EA |LC..9V.ADC $3F..|
000031E0: 39 60 1D 53 54 41 20 24 33 46 00 F6 39 6A 1D 53 |9`.STA $3F..9j.S|
000031F0: 54 41 20 24 33 44 00 03 3A 74 1D 42 43 43 20 5A |TA $3D..:t.BCC Z|
00003200: 53 42 33 00 0F 3A 7E 1D 49 4E 43 20 24 33 45 00 |SB3..:~.INC $3E.|
00003210: 1B 3A 88 1D 49 4E 43 20 24 34 30 00 2D 3A 92 1D |.:..INC $40.-:..|
00003220: 5A 53 42 33 20 4C 44 41 20 23 24 34 34 00 39 3A |ZSB3 LDA #$44.9:|
00003230: 9C 1D 43 4D 50 20 24 33 44 00 46 3A A6 1D 42 4E |..CMP $3D.F:..BN|
00003240: 45 20 5A 53 42 31 00 4E 3A B0 1D 52 54 53 00 54 |E ZSB1.N:..RTS.T|
00003250: 3A BA 1D 3B 00 68 3A C4 1D 3B 20 4D 45 4E 55 45 |:..;.h:..; MENUE|
00003260: 20 44 52 55 43 4B 45 4E 00 6E 3A CE 1D 3B 00 8D | DRUCKEN.n:..;..|
00003270: 3A D8 1D 4D 45 4E 55 20 4C 44 41 20 23 B3 54 45 |:..MENU LDA #.TE|
00003280: 58 54 31 20 3A 20 53 54 41 20 24 34 39 00 A7 3A |XT1 : STA $49..:|
00003290: E2 1D 4C 44 41 20 23 B1 54 45 58 54 31 20 3A 20 |..LDA #.TEXT1 : |
000032A0: 53 54 41 20 24 34 41 00 BE 3A EC 1D 4C 44 41 20 |STA $4A..:..LDA |
000032B0: 23 24 30 37 20 3A 20 53 54 41 20 36 34 36 00 CA |#$07 : STA 646..|
000032C0: 3A F6 1D 4C 44 58 20 24 34 33 00 D7 3A 00 1E 4C |:..LDX $43..:..L|
000032D0: 44 59 20 23 24 30 30 00 ED 3A 0A 1E 4D 45 4E 55 |DY #$00..:..MENU|
000032E0: 31 20 4C 44 41 20 28 24 34 39 29 2C 59 00 FB 3A |1 LDA ($49),Y..:|
000032F0: 14 1E 42 4E 45 20 4D 45 4E 55 32 00 03 3B 1E 1E |..BNE MENU2..;..|
00003300: 44 45 58 00 11 3B 28 1E 42 45 51 20 4D 45 4E 55 |DEX..;(.BEQ MENU|
00003310: 34 00 25 3B 32 1E 4D 45 4E 55 32 20 4A 53 52 20 |4.%;2.MENU2 JSR |
00003320: 4D 45 4E 55 33 00 33 3B 3C 1E 4A 4D 50 20 4D 45 |MENU3.3;<.JMP ME|
00003330: 4E 55 31 00 47 3B 46 1E 4D 45 4E 55 34 20 4A 53 |NU1.G;F.MENU4 JS|
00003340: 52 20 4D 45 4E 55 33 00 5E 3B 50 1E 4C 44 41 20 |R MENU3.^;P.LDA |
00003350: 23 24 30 39 20 3A 20 53 54 41 20 24 44 36 00 7B |#$09 : STA $D6.{|
00003360: 3B 5A 1E 4D 45 4E 55 35 20 4C 44 41 20 23 24 31 |;Z.MENU5 LDA #$1|
00003370: 35 20 3A 20 53 54 41 20 24 44 33 00 89 3B 64 1E |5 : STA $D3..;d.|
00003380: 4A 53 52 20 35 38 36 34 30 00 9C 3B 6E 1E 4D 45 |JSR 58640..;n.ME|
00003390: 4E 55 36 20 4C 44 59 20 23 24 30 30 00 AC 3B 78 |NU6 LDY #$00..;x|
000033A0: 1E 4C 44 41 20 28 24 34 39 29 2C 59 00 BA 3B 82 |.LDA ($49),Y..;.|
000033B0: 1E 42 45 51 20 4D 45 4E 55 37 00 C8 3B 8C 1E 4A |.BEQ MENU7..;..J|
000033C0: 53 52 20 24 46 46 44 32 00 D6 3B 96 1E 4A 53 52 |SR $FFD2..;..JSR|
000033D0: 20 4D 45 4E 55 33 00 E4 3B A0 1E 4A 4D 50 20 4D | MENU3..;..JMP M|
000033E0: 45 4E 55 36 00 F8 3B AA 1E 4D 45 4E 55 37 20 4A |ENU6..;..MENU7 J|
000033F0: 53 52 20 4D 45 4E 55 33 00 04 3C B4 1E 49 4E 43 |SR MENU3..<..INC|
00003400: 20 24 44 36 00 10 3C BE 1E 4C 44 41 20 23 32 33 | $D6..<..LDA #23|
00003410: 00 1C 3C C8 1E 43 4D 50 20 24 44 36 00 2A 3C D2 |..<..CMP $D6.*<.|
00003420: 1E 42 4E 45 20 4D 45 4E 55 35 00 41 3C DC 1E 4C |.BNE MENU5.A<..L|
00003430: 44 41 20 23 24 30 30 20 3A 20 53 54 41 20 36 34 |DA #$00 : STA 64|
00003440: 36 00 5E 3C E6 1E 4C 44 41 20 24 46 39 20 3A 20 |6.^<..LDA $F9 : |
00003450: 43 4C 43 20 3A 20 41 44 43 20 23 24 30 34 00 6A |CLC : ADC #$04.j|
00003460: 3C F0 1E 53 54 41 20 24 44 33 00 87 3C FA 1E 4C |<..STA $D3..<..L|
00003470: 44 41 20 24 46 41 20 3A 20 43 4C 43 20 3A 20 41 |DA $FA : CLC : A|
00003480: 44 43 20 23 24 30 41 00 93 3C 04 1F 53 54 41 20 |DC #$0A..<..STA |
00003490: 24 44 36 00 A1 3C 0E 1F 4A 53 52 20 35 38 36 34 |$D6..<..JSR 5864|
000034A0: 30 00 A9 3C 18 1F 52 54 53 00 BB 3C 22 1F 4D 45 |0..<..RTS..<".ME|
000034B0: 4E 55 33 20 49 4E 43 20 24 34 39 00 C9 3C 2C 1F |NU3 INC $49..<,.|
000034C0: 42 4E 45 20 4D 45 4E 55 39 00 D5 3C 36 1F 49 4E |BNE MENU9..<6.IN|
000034D0: 43 20 24 34 41 00 E3 3C 40 1F 4D 45 4E 55 39 20 |C $4A..<@.MENU9 |
000034E0: 52 54 53 00 E9 3C 4A 1F 3B 00 08 3D 54 1F 3B 20 |RTS..<J.;..=T.; |
000034F0: 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 20 52 4F | ZEICHENSATZ RO|
00003500: 4D 20 AB B1 20 52 41 4D 00 0E 3D 5E 1F 3B 00 29 |M .. RAM..=^.;.)|
00003510: 3D 68 1F 42 33 32 20 4C 44 59 20 23 24 44 30 20 |=h.B32 LDY #$D0 |
00003520: 3A 20 53 54 59 20 24 36 30 00 40 3D 72 1F 4C 44 |: STY $60.@=r.LD|
00003530: 59 20 23 24 44 38 20 3A 20 53 54 59 20 24 35 42 |Y #$D8 : STY $5B|
00003540: 00 5F 3D 7C 1F 52 4F 4D 52 41 4D 31 20 4C 44 58 |._=|.ROMRAM1 LDX|
00003550: 20 23 24 30 30 20 3A 20 53 54 58 20 24 35 46 00 | #$00 : STX $5F.|
00003560: 76 3D 86 1F 4C 44 58 20 23 24 30 30 20 3A 20 53 |v=..LDX #$00 : S|
00003570: 54 58 20 24 35 41 00 8D 3D 90 1F 4C 44 58 20 23 |TX $5A..=..LDX #|
00003580: 24 30 30 20 3A 20 53 54 58 20 24 35 38 00 99 3D |$00 : STX $58..=|
00003590: 9A 1F 4C 44 41 20 24 46 38 00 AC 3D A4 1F 43 4C |..LDA $F8..=..CL|
000035A0: 43 20 3A 20 41 44 43 20 23 24 30 38 00 B8 3D AE |C : ADC #$08..=.|
000035B0: 1F 53 54 41 20 24 35 39 00 C0 3D B8 1F 53 45 49 |.STA $59..=..SEI|
000035C0: 00 D7 3D C2 1F 4C 44 41 20 23 24 33 33 20 3A 20 |..=..LDA #$33 : |
000035D0: 53 54 41 20 24 30 31 00 E5 3D CC 1F 4A 53 52 20 |STA $01..=..JSR |
000035E0: 24 41 33 42 46 00 FB 3D D6 1F 4C 44 41 20 23 35 |$A3BF..=..LDA #5|
000035F0: 34 20 3A 20 53 54 41 20 24 30 31 00 03 3E E0 1F |4 : STA $01..>..|
00003600: 43 4C 49 00 11 3E EA 1F 4A 4D 50 20 45 44 49 54 |CLI..>..JMP EDIT|
00003610: 31 00 17 3E F4 1F 3B 00 2D 3E FE 1F 3B 20 20 44 |1..>..;.->..; D|
00003620: 49 52 45 43 A4 52 59 20 4C 45 53 45 4E 00 33 3E |IREC.RY LESEN.3>|
00003630: 08 20 3B 00 4D 3E 12 20 42 39 20 4C 44 41 20 23 |. ;.M>. B9 LDA #|
00003640: 24 31 37 20 3A 20 53 54 41 20 24 44 36 00 64 3E |$17 : STA $D6.d>|
00003650: 1C 20 4C 44 41 20 23 24 30 30 20 3A 20 53 54 41 |. LDA #$00 : STA|
00003660: 20 24 44 33 00 72 3E 26 20 4A 53 52 20 35 38 36 | $D3.r>& JSR 586|
00003670: 34 30 00 89 3E 30 20 4C 44 58 20 23 B3 44 49 52 |40..>0 LDX #.DIR|
00003680: 45 3A 53 54 58 20 24 42 42 00 A0 3E 3A 20 4C 44 |E:STX $BB..>: LD|
00003690: 59 20 23 B1 44 49 52 45 3A 53 54 59 20 24 42 43 |Y #.DIRE:STY $BC|
000036A0: 00 B5 3E 44 20 4C 44 41 20 23 24 30 31 3A 53 54 |..>D LDA #$01:ST|
000036B0: 41 20 24 42 37 00 C2 3E 4E 20 4C 44 41 20 23 24 |A $B7..>N LDA #$|
000036C0: 30 38 00 CE 3E 58 20 53 54 41 20 24 42 41 00 DB |08..>X STA $BA..|
000036D0: 3E 62 20 4C 44 41 20 23 24 36 30 00 E7 3E 6C 20 |>b LDA #$60..>l |
000036E0: 53 54 41 20 24 42 39 00 F5 3E 76 20 4A 53 52 20 |STA $B9..>v JSR |
000036F0: 24 46 33 44 35 00 01 3F 80 20 4C 44 41 20 24 42 |$F3D5..?. LDA $B|
00003700: 41 00 0F 3F 8A 20 4A 53 52 20 24 46 46 42 34 00 |A..?. JSR $FFB4.|
00003710: 1B 3F 94 20 4C 44 41 20 24 42 39 00 29 3F 9E 20 |.?. LDA $B9.)?. |
00003720: 4A 53 52 20 24 46 46 39 36 00 36 3F A8 20 4C 44 |JSR $FF96.6?. LD|
00003730: 41 20 23 24 30 30 00 42 3F B2 20 53 54 41 20 24 |A #$00.B?. STA $|
00003740: 39 30 00 4F 3F BC 20 4C 44 59 20 23 24 30 33 00 |90.O?. LDY #$03.|
00003750: 60 3F C6 20 44 49 52 31 20 53 54 59 20 24 46 42 |`?. DIR1 STY $FB|
00003760: 00 6E 3F D0 20 4A 53 52 20 24 46 46 41 35 00 7A |.n?. JSR $FFA5.z|
00003770: 3F DA 20 53 54 41 20 24 46 43 00 86 3F E4 20 4C |?. STA $FC..?. L|
00003780: 44 59 20 24 39 30 00 93 3F EE 20 42 4E 45 20 44 |DY $90..?. BNE D|
00003790: 49 52 34 00 A1 3F F8 20 4A 53 52 20 24 46 46 41 |IR4..?. JSR $FFA|
000037A0: 35 00 AD 3F 02 21 4C 44 59 20 24 39 30 00 BA 3F |5..?.!LDY $90..?|
000037B0: 0C 21 42 4E 45 20 44 49 52 34 00 C6 3F 16 21 4C |.!BNE DIR4..?.!L|
000037C0: 44 59 20 24 46 42 00 CE 3F 20 21 44 45 59 00 DB |DY $FB..? !DEY..|
000037D0: 3F 2A 21 42 4E 45 20 44 49 52 31 00 E7 3F 34 21 |?*!BNE DIR1..?4!|
000037E0: 4C 44 58 20 24 46 43 00 FD 3F 3E 21 4C 44 59 20 |LDX $FC..?>!LDY |
000037F0: 23 35 35 20 3A 20 53 54 59 20 24 30 31 00 0B 40 |#55 : STY $01..@|
00003800: 48 21 4A 53 52 20 24 42 44 43 44 00 21 40 52 21 |H!JSR $BDCD.!@R!|
00003810: 4C 44 41 20 23 35 34 20 3A 20 53 54 41 20 24 30 |LDA #54 : STA $0|
00003820: 31 00 2E 40 5C 21 4C 44 41 20 23 24 32 30 00 3C |1..@\!LDA #$20.<|
00003830: 40 66 21 4A 53 52 20 24 46 46 44 32 00 4F 40 70 |@f!JSR $FFD2.O@p|
00003840: 21 44 49 52 33 20 4A 53 52 20 24 46 46 41 35 00 |!DIR3 JSR $FFA5.|
00003850: 5B 40 7A 21 4C 44 58 20 24 39 30 00 68 40 84 21 |[@z!LDX $90.h@.!|
00003860: 42 4E 45 20 44 49 52 34 00 70 40 8E 21 54 41 58 |BNE DIR4.p@.!TAX|
00003870: 00 7D 40 98 21 42 45 51 20 44 49 52 32 00 8B 40 |.}@.!BEQ DIR2..@|
00003880: A2 21 4A 53 52 20 24 46 46 44 32 00 9E 40 AC 21 |.!JSR $FFD2..@.!|
00003890: 44 49 52 37 20 20 4A 4D 50 20 44 49 52 33 00 BA |DIR7 JMP DIR3..|
000038A0: 40 B6 21 44 49 52 32 20 4C 44 59 20 23 24 31 37 |@.!DIR2 LDY #$17|
000038B0: 20 3A 20 53 54 59 20 24 44 36 00 C8 40 C0 21 4A | : STY $D6..@.!J|
000038C0: 53 52 20 A1 43 48 41 52 00 D5 40 CA 21 43 4D 50 |SR .CHAR..@.!CMP|
000038D0: 20 23 24 30 33 00 E2 40 D4 21 42 4E 45 20 44 49 | #$03..@.!BNE DI|
000038E0: 52 35 00 EF 40 DE 21 4A 4D 50 20 44 49 52 34 00 |R5..@.!JMP DIR4.|
000038F0: 00 41 E8 21 44 49 52 35 20 4C 44 41 20 23 31 33 |.A.!DIR5 LDA #13|
00003900: 00 0E 41 F2 21 4A 53 52 20 24 46 46 44 32 00 1B |..A.!JSR $FFD2..|
00003910: 41 FC 21 4C 44 59 20 23 24 30 32 00 28 41 06 22 |A.!LDY #$02.(A."|
00003920: 42 4E 45 20 44 49 52 31 00 3B 41 10 22 44 49 52 |BNE DIR1.;A."DIR|
00003930: 34 20 4A 53 52 20 24 46 36 34 32 00 48 41 1A 22 |4 JSR $F642.HA."|
00003940: 4A 4D 50 20 45 44 49 54 00 4E 41 24 22 3B 00 65 |JMP EDIT.NA$";.e|
00003950: 41 2E 22 3B 20 20 20 20 44 49 53 4B 20 AB 20 42 |A."; DISK . B|
00003960: 45 46 45 48 4C 00 6B 41 38 22 3B 00 86 41 42 22 |EFEHL.kA8";..AB"|
00003970: 42 31 30 20 4C 44 41 20 23 24 31 37 20 3A 20 53 |B10 LDA #$17 : S|
00003980: 54 41 20 24 44 36 00 9D 41 4C 22 4C 44 41 20 23 |TA $D6..AL"LDA #|
00003990: 24 30 30 20 3A 20 53 54 41 20 24 44 33 00 AB 41 |$00 : STA $D3..A|
000039A0: 56 22 4A 53 52 20 35 38 36 34 30 00 C4 41 60 22 |V"JSR 58640..A`"|
000039B0: 4C 44 41 20 23 22 3E 22 20 3A 20 4A 53 52 20 24 |LDA #">" : JSR $|
000039C0: 46 46 44 32 00 DD 41 6A 22 4C 44 41 20 23 31 34 |FFD2..Aj"LDA #14|
000039D0: 20 3A 20 53 54 41 20 4C 41 45 4E 47 45 00 E7 41 | : STA LAENGE..A|
000039E0: 74 22 4A 53 52 20 85 00 F4 41 7E 22 4C 44 41 20 |t"JSR ...A~"LDA |
000039F0: 23 22 20 22 00 05 42 88 22 43 4D 50 20 53 54 52 |#" "..B."CMP STR|
00003A00: 49 4E 47 AA 31 00 12 42 92 22 42 45 51 20 43 4F |ING.1..B."BEQ CO|
00003A10: 4D 80 00 31 42 9C 22 4C 44 41 20 23 24 30 31 3A |M..1B."LDA #$01:|
00003A20: 4C 44 58 20 23 24 30 38 3A 4C 44 59 20 23 24 30 |LDX #$08:LDY #$0|
00003A30: 46 00 4F 42 A6 22 4A 53 52 20 24 46 46 42 41 20 |F.OB."JSR $FFBA |
00003A40: 3B 20 46 49 4C 45 50 41 52 41 4D 45 54 45 52 00 |; FILEPARAMETER.|
00003A50: 5E 42 B0 22 4C 44 41 20 4C 41 45 4E 47 45 00 73 |^B."LDA LAENGE.s|
00003A60: 42 BA 22 4C 44 58 20 23 B3 53 54 52 49 4E 47 3A |B."LDX #.STRING:|
00003A70: 49 4E 58 00 84 42 C4 22 4C 44 59 20 23 B1 53 54 |INX..B."LDY #.ST|
00003A80: 52 49 4E 47 00 A5 42 CE 22 4A 53 52 20 24 46 46 |RING..B."JSR $FF|
00003A90: 42 44 20 3B 20 46 49 C3 41 4D 45 4E 50 41 52 41 |BD ; FI.AMENPARA|
00003AA0: 4D 45 54 45 52 00 B7 42 D8 22 4A 53 52 20 24 46 |METER..B."JSR $F|
00003AB0: 46 43 30 20 3B 20 9F 00 D9 42 E2 22 4C 44 41 20 |FC0 ; ...B."LDA |
00003AC0: 23 24 30 30 20 3A 20 53 54 41 20 31 35 32 20 3B |#$00 : STA 152 ;|
00003AD0: 20 4B 41 4E 41 4C 20 5A 55 00 EB 42 EC 22 43 4F | KANAL ZU..B."CO|
00003AE0: 4D 80 20 4A 4D 50 20 45 44 49 54 00 F1 42 F6 22 |M. JMP EDIT..B."|
00003AF0: 3B 00 05 43 00 23 3B 22 20 20 44 49 53 4B 20 53 |;..C.#;" DISK S|
00003B00: 54 41 54 55 53 00 0B 43 0A 23 3B 00 26 43 14 23 |TATUS..C.#;.&C.#|
00003B10: 42 32 39 20 4C 44 41 20 23 24 31 37 20 3A 20 53 |B29 LDA #$17 : S|
00003B20: 54 41 20 24 44 36 00 3D 43 1E 23 4C 44 41 20 23 |TA $D6.=C.#LDA #|
00003B30: 24 30 30 20 3A 20 53 54 41 20 24 44 33 00 4B 43 |$00 : STA $D3.KC|
00003B40: 28 23 4A 53 52 20 35 38 36 34 30 00 62 43 32 23 |(#JSR 58640.bC2#|
00003B50: 4C 44 41 20 23 24 30 38 20 3A 20 53 54 41 20 24 |LDA #$08 : STA $|
00003B60: 42 41 00 70 43 3C 23 4A 53 52 20 24 46 46 42 34 |BA.pC<#JSR $FFB4|
00003B70: 00 87 43 46 23 4C 44 41 20 23 24 36 46 20 3A 20 |..CF#LDA #$6F : |
00003B80: 53 54 41 20 24 42 39 00 95 43 50 23 4A 53 52 20 |STA $B9..CP#JSR |
00003B90: 24 46 46 39 36 00 AB 43 5A 23 53 54 41 54 55 53 |$FF96..CZ#STATUS|
00003BA0: 31 20 4A 53 52 20 24 46 46 41 35 00 B8 43 64 23 |1 JSR $FFA5..Cd#|
00003BB0: 43 4D 50 20 23 24 30 44 00 C8 43 6E 23 42 45 51 |CMP #$0D..Cn#BEQ|
00003BC0: 20 53 54 41 54 55 53 32 00 D6 43 78 23 4A 53 52 | STATUS2..Cx#JSR|
00003BD0: 20 24 46 46 44 32 00 E6 43 82 23 4A 4D 50 20 53 | $FFD2..C.#JMP S|
00003BE0: 54 41 54 55 53 31 00 FC 43 8C 23 53 54 41 54 55 |TATUS1..C.#STATU|
00003BF0: 53 32 20 4A 53 52 20 24 46 46 41 42 00 14 44 96 |S2 JSR $FFAB..D.|
00003C00: 23 4A 53 52 20 A1 43 48 41 52 20 3B 22 54 41 53 |#JSR .CHAR ;"TAS|
00003C10: 54 45 20 3F 00 21 44 A0 23 4A 4D 50 20 45 44 49 |TE ?.!D.#JMP EDI|
00003C20: 54 00 27 44 AA 23 3B 00 44 44 B4 23 3B 20 43 55 |T.'D.#;.DD.#; CU|
00003C30: 53 B0 20 42 4C 49 4E 4B 54 20 55 4E 44 20 57 41 |S. BLINKT UND WA|
00003C40: 52 54 45 54 00 65 44 BE 23 3B 20 41 55 46 20 45 |RTET.eD.#; AUF E|
00003C50: 49 4E 47 41 42 45 20 45 49 4E 45 53 20 5A 45 49 |INGABE EINES ZEI|
00003C60: 43 48 45 4E 53 00 8B 44 C8 23 3B 20 5A 45 49 43 |CHENS..D.#; ZEIC|
00003C70: 48 45 4E 20 57 49 52 44 20 49 4D 20 41 4B 4B 55 |HEN WIRD IM AKKU|
00003C80: 20 55 45 42 45 52 47 45 42 45 4E 00 91 44 D2 23 | UEBERGEBEN..D.#|
00003C90: 3B 00 AC 44 DC 23 A1 43 48 41 52 20 4C 44 41 20 |;..D.#.CHAR LDA |
00003CA0: 23 24 30 30 3A 53 54 41 20 32 31 32 00 B8 44 E6 |#$00:STA 212..D.|
00003CB0: 23 4C 44 41 20 24 43 36 00 C4 44 F0 23 53 54 41 |#LDA $C6..D.#STA|
00003CC0: 20 24 43 43 00 D2 44 FA 23 53 54 41 20 24 30 32 | $CC..D.#STA $02|
00003CD0: 39 32 00 F4 44 04 24 42 45 51 20 A1 43 48 41 52 |92..D.$BEQ .CHAR|
00003CE0: 20 3B 22 54 41 53 54 45 20 47 45 44 52 55 45 43 | ;"TASTE GEDRUEC|
00003CF0: 4B 54 20 3F 00 FC 44 0E 24 53 45 49 00 08 45 18 |KT ?..D.$SEI..E.|
00003D00: 24 4C 44 41 20 24 43 46 00 2F 45 22 24 42 45 51 |$LDA $CF./E"$BEQ|
00003D10: 20 50 55 46 46 45 52 20 3B 22 43 55 52 53 4F 52 | PUFFER ;"CURSOR|
00003D20: 20 49 4E 20 42 4C 49 4E 4B 50 48 41 53 45 3F 00 | IN BLINKPHASE?.|
00003D30: 3B 45 2C 24 4C 44 41 20 24 43 45 00 49 45 36 24 |;E,$LDA $CE.IE6$|
00003D40: 4C 44 58 20 24 30 32 38 37 00 56 45 40 24 4C 44 |LDX $0287.VE@$LD|
00003D50: 59 20 23 24 30 30 00 62 45 4A 24 53 54 59 20 24 |Y #$00.bEJ$STY $|
00003D60: 43 46 00 70 45 54 24 4A 53 52 20 24 45 41 31 33 |CF.pET$JSR $EA13|
00003D70: 00 85 45 5E 24 50 55 46 46 45 52 20 4A 53 52 20 |..E^$PUFFER JSR |
00003D80: 24 45 35 42 34 00 8D 45 68 24 52 54 53 00 93 45 |$E5B4..Eh$RTS..E|
00003D90: 72 24 3B 00 A7 45 7C 24 3B 20 20 20 85 20 AB 20 |r$;..E|$; . . |
00003DA0: 52 4F 55 54 49 4E 45 00 AD 45 86 24 3B 00 C4 45 |ROUTINE..E.$;..E|
00003DB0: 90 24 85 20 4C 44 41 20 23 22 20 22 3A 4C 44 58 |.$. LDA #" ":LDX|
00003DC0: 20 23 31 34 00 DC 45 9A 24 46 49 4C 4C 53 54 20 | #14..E.$FILLST |
00003DD0: 53 54 41 20 53 54 52 49 4E 47 2C 58 00 F1 45 A4 |STA STRING,X..E.|
00003DE0: 24 44 45 58 20 3A 20 42 4E 45 20 46 49 4C 4C 53 |$DEX : BNE FILLS|
00003DF0: 54 00 0E 46 AE 24 85 31 20 4C 44 58 20 23 24 30 |T..F.$.1 LDX #$0|
00003E00: 31 3A 53 54 58 20 53 54 45 4C 4C 55 4E 47 00 22 |1:STX STELLUNG."|
00003E10: 46 B8 24 54 41 53 54 45 20 4A 53 52 20 A1 43 48 |F.$TASTE JSR .CH|
00003E20: 41 52 00 45 46 C2 24 43 4D 50 20 23 33 20 20 20 |AR.EF.$CMP #3 |
00003E30: 20 20 20 20 20 20 3B 22 20 20 20 52 55 4E 20 53 | ;" RUN S|
00003E40: 54 4F 50 20 3F 00 4F 46 CC 24 42 4E 45 20 8E 00 |TOP ?.OF.$BNE ..|
00003E50: 68 46 D6 24 4C 44 41 20 23 24 30 30 20 3A 20 53 |hF.$LDA #$00 : S|
00003E60: 54 41 20 24 43 45 44 30 00 7F 46 E0 24 4C 44 41 |TA $CED0..F.$LDA|
00003E70: 20 24 30 32 20 3A 20 43 4D 50 20 23 31 33 30 00 | $02 : CMP #130.|
00003E80: 8B 46 EA 24 42 43 43 20 49 4E 90 00 9A 46 F4 24 |.F.$BCC IN...F.$|
00003E90: 53 54 41 20 53 41 54 5A AA 31 00 AB 46 FE 24 49 |STA SATZ.1..F.$I|
00003EA0: 4E 90 20 4A 4D 50 20 45 44 49 54 00 C7 46 08 25 |N. JMP EDIT..F.%|
00003EB0: 8E 20 43 4D 50 20 23 31 33 20 3B 22 20 20 20 52 |. CMP #13 ;" R|
00003EC0: 45 54 55 52 4E 20 3F 00 D6 46 12 25 42 4E 45 20 |ETURN ?..F.%BNE |
00003ED0: 52 45 43 48 54 53 00 DE 46 1C 25 52 54 53 00 FF |RECHTS..F.%RTS..|
00003EE0: 46 26 25 52 45 43 48 54 53 20 43 4D 50 20 23 22 |F&%RECHTS CMP #"|
00003EF0: 1D 22 3B 22 20 20 20 52 45 43 48 54 53 20 3F 00 |.";" RECHTS ?.|
00003F00: 0D 47 30 25 42 4E 45 20 4C 49 4E 4B 53 00 1E 47 |.G0%BNE LINKS..G|
00003F10: 3A 25 4C 44 58 20 53 54 45 4C 4C 55 4E 47 00 2D |:%LDX STELLUNG.-|
00003F20: 47 44 25 43 50 58 20 4C 41 45 4E 47 45 00 3B 47 |GD%CPX LAENGE.;G|
00003F30: 4E 25 42 45 51 20 54 41 53 54 45 00 4C 47 58 25 |N%BEQ TASTE.LGX%|
00003F40: 49 4E 43 20 53 54 45 4C 4C 55 4E 47 00 58 47 62 |INC STELLUNG.XGb|
00003F50: 25 49 4E 43 20 24 44 33 00 66 47 6C 25 4A 4D 50 |%INC $D3.fGl%JMP|
00003F60: 20 54 41 53 54 45 00 88 47 76 25 4C 49 4E 4B 53 | TASTE..Gv%LINKS|
00003F70: 20 43 4D 50 20 23 22 11 22 3B 22 20 20 20 20 20 | CMP #".";" |
00003F80: 4C 49 4E 4B 53 20 20 3F 00 94 47 80 25 42 4E 45 |LINKS ?..G.%BNE|
00003F90: 20 4E 55 4D 00 A5 47 8A 25 4C 44 41 20 53 54 45 | NUM..G.%LDA STE|
00003FA0: 4C 4C 55 4E 47 00 B2 47 94 25 43 4D 50 20 23 24 |LLUNG..G.%CMP #$|
00003FB0: 30 31 00 C0 47 9E 25 42 45 51 20 54 41 53 54 45 |01..G.%BEQ TASTE|
00003FC0: 00 D1 47 A8 25 44 45 43 20 53 54 45 4C 4C 55 4E |..G.%DEC STELLUN|
00003FD0: 47 00 DD 47 B2 25 44 45 43 20 24 44 33 00 EB 47 |G..G.%DEC $D3..G|
00003FE0: BC 25 4A 4D 50 20 54 41 53 54 45 00 05 48 C6 25 |.%JMP TASTE..H.%|
00003FF0: 4E 55 4D 20 43 4D 50 20 23 33 32 20 3A 20 42 43 |NUM CMP #32 : BC|
00004000: 43 20 41 4C 4C 00 1B 48 D0 25 43 4D 50 20 23 39 |C ALL..H.%CMP #9|
00004010: 36 20 20 3A 20 42 43 43 20 41 4E 00 31 48 DA 25 |6 : BCC AN.1H.%|
00004020: 43 4D 50 20 23 31 36 30 20 3A 20 42 43 53 20 41 |CMP #160 : BCS A|
00004030: 4E 00 43 48 E4 25 41 4C 4C 20 4A 4D 50 20 54 41 |N.CH.%ALL JMP TA|
00004040: 53 54 45 00 57 48 EE 25 41 4E 20 4C 44 58 20 53 |STE.WH.%AN LDX S|
00004050: 54 45 4C 4C 55 4E 47 00 68 48 F8 25 53 54 41 20 |TELLUNG.hH.%STA |
00004060: 53 54 52 49 4E 47 2C 58 00 79 48 02 26 49 4E 43 |STRING,X.yH.&INC|
00004070: 20 53 54 45 4C 4C 55 4E 47 00 87 48 0C 26 4A 53 | STELLUNG..H.&JS|
00004080: 52 20 24 46 46 44 32 00 9E 48 16 26 4C 44 41 20 |R $FFD2..H.&LDA |
00004090: 23 24 30 30 20 3A 20 53 54 41 20 32 31 32 00 B3 |#$00 : STA 212..|
000040A0: 48 20 26 4C 44 58 20 4C 41 45 4E 47 45 20 3A 20 |H &LDX LAENGE : |
000040B0: 49 4E 58 00 CB 48 2A 26 43 50 58 20 53 54 45 4C |INX..H*&CPX STEL|
000040C0: 4C 55 4E 47 3A 42 4E 45 20 54 57 00 E4 48 34 26 |LUNG:BNE TW..H4&|
000040D0: 44 45 43 20 53 54 45 4C 4C 55 4E 47 3A 44 45 43 |DEC STELLUNG:DEC|
000040E0: 20 24 44 33 00 F4 48 3E 26 54 57 20 4C 44 41 20 | $D3..H>&TW LDA |
000040F0: 23 24 44 44 00 02 49 48 26 43 4D 50 20 24 43 45 |#$DD..IH&CMP $CE|
00004100: 44 30 00 0E 49 52 26 42 4E 45 20 54 57 32 00 26 |D0..IR&BNE TW2.&|
00004110: 49 5C 26 4C 44 41 20 24 41 30 30 30 20 3A 20 53 |I\&LDA $A000 : S|
00004120: 54 41 20 24 34 32 00 36 49 66 26 4A 53 52 20 5A |TA $42.6If&JSR Z|
00004130: 45 49 43 48 45 4E 00 45 49 70 26 4A 53 52 20 53 |EICHEN.EIp&JSR S|
00004140: 50 52 49 A4 4E 00 57 49 7A 26 54 57 32 20 4A 4D |PRI.N.WIz&TW2 JM|
00004150: 50 20 54 41 53 54 45 00 5D 49 84 26 3B 00 63 49 |P TASTE.]I.&;.cI|
00004160: 8E 26 3B 00 77 49 98 26 3B 20 B5 45 52 52 55 50 |.&;.wI.&; .ERRUP|
00004170: 54 20 41 80 45 52 4E 00 7D 49 A2 26 3B 00 8C 49 |T A.ERN.}I.&;..I|
00004180: AC 26 49 52 51 45 49 4E 20 53 45 49 00 99 49 B6 |.&IRQEIN SEI..I.|
00004190: 26 4C 44 41 20 23 24 37 46 00 A7 49 C0 26 53 54 |&LDA #$7F..I.&ST|
000041A0: 41 20 24 44 43 30 44 00 B4 49 CA 26 4C 44 41 20 |A $DC0D..I.&LDA |
000041B0: 23 24 30 31 00 C2 49 D4 26 53 54 41 20 24 44 30 |#$01..I.&STA $D0|
000041C0: 31 41 00 D0 49 DE 26 53 54 41 20 24 44 30 31 32 |1A..I.&STA $D012|
000041D0: 00 DE 49 E8 26 53 54 41 20 24 43 45 46 30 00 EB |..I.&STA $CEF0..|
000041E0: 49 F2 26 4C 44 41 20 23 24 31 42 00 F9 49 FC 26 |I.&LDA #$1B..I.&|
000041F0: 53 54 41 20 24 44 30 31 31 00 09 4A 06 27 4C 44 |STA $D011..J.'LD|
00004200: 41 20 23 B3 53 54 41 52 54 00 17 4A 10 27 53 54 |A #.START..J.'ST|
00004210: 41 20 24 30 33 31 34 00 27 4A 1A 27 4C 44 41 20 |A $0314.'J.'LDA |
00004220: 23 B1 53 54 41 52 54 00 35 4A 24 27 53 54 41 20 |#.START.5J$'STA |
00004230: 24 30 33 31 35 00 3D 4A 2E 27 43 4C 49 00 45 4A |$0315.=J.'CLI.EJ|
00004240: 38 27 52 54 53 00 4B 4A 42 27 3B 00 60 4A 4C 27 |8'RTS.KJB';.`JL'|
00004250: 3B 20 B5 45 52 52 55 50 54 52 4F 55 54 49 4E 45 |; .ERRUPTROUTINE|
00004260: 00 66 4A 56 27 3B 00 84 4A 60 27 53 54 41 52 54 |.fJV';..J`'START|
00004270: 20 4C 44 41 20 24 44 30 31 39 3A 53 54 41 20 24 | LDA $D019:STA $|
00004280: 44 30 31 39 00 8F 4A 6A 27 AF 20 23 24 30 31 00 |D019..Jj'. #$01.|
00004290: 9B 4A 74 27 42 45 51 20 52 4F 4D 00 A9 4A 7E 27 |.Jt'BEQ ROM..J~'|
000042A0: 4C 44 58 20 24 43 45 46 30 00 B8 4A 88 27 4C 44 |LDX $CEF0..J.'LD|
000042B0: 41 20 53 41 54 5A 2C 58 00 C6 4A 92 27 53 54 41 |A SATZ,X..J.'STA|
000042C0: 20 24 44 30 31 38 00 D6 4A 9C 27 4C 44 41 20 5A | $D018..J.'LDA Z|
000042D0: 45 49 4C 45 2C 58 00 E4 4A A6 27 53 54 41 20 24 |EILE,X..J.'STA $|
000042E0: 44 30 31 32 00 EC 4A B0 27 44 45 58 00 FA 4A BA |D012..J.'DEX..J.|
000042F0: 27 53 54 58 20 24 43 45 46 30 00 04 4B C4 27 42 |'STX $CEF0..K.'B|
00004300: 50 4C 20 80 00 11 4B CE 27 4C 44 58 20 23 24 30 |PL ...K.'LDX #$0|
00004310: 31 00 1F 4B D8 27 53 54 58 20 24 43 45 46 30 00 |1..K.'STX $CEF0.|
00004320: 31 4B E2 27 52 4F 4D 20 4A 4D 50 20 24 45 41 33 |1K.'ROM JMP $EA3|
00004330: 31 00 3B 4B EC 27 80 20 50 4C 41 00 43 4B F6 27 |1.;K.'. PLA.CK.'|
00004340: 54 41 59 00 4B 4B 00 28 50 4C 41 00 53 4B 0A 28 |TAY.KK.(PLA.SK.(|
00004350: 54 41 58 00 5B 4B 14 28 50 4C 41 00 63 4B 1E 28 |TAX.[K.(PLA.cK.(|
00004360: 52 54 49 00 69 4B 28 28 3B 00 85 4B 32 28 3B 20 |RTI.iK((;..K2(; |
00004370: 52 4F 4D 20 41 4E 20 26 20 54 45 58 54 20 44 52 |ROM AN & TEXT DR|
00004380: 55 43 4B 45 4E 00 8B 4B 3C 28 3B 00 AF 4B 46 28 |UCKEN..K<(;..KF(|
00004390: 41 42 44 52 20 50 48 41 3A 20 4C 44 41 20 23 35 |ABDR PHA: LDA #5|
000043A0: 35 20 3A 20 53 54 41 20 24 30 31 3A 50 4C 41 00 |5 : STA $01:PLA.|
000043B0: BD 4B 50 28 4A 53 52 20 24 41 42 31 45 00 D3 4B |.KP(JSR $AB1E..K|
000043C0: 5A 28 4C 44 41 20 23 35 34 20 3A 20 53 54 41 20 |Z(LDA #54 : STA |
000043D0: 24 30 31 00 DB 4B 64 28 52 54 53 00 E1 4B 6E 28 |$01..Kd(RTS..Kn(|
000043E0: 3B 00 FE 4B 78 28 3B 20 48 45 58 41 44 45 5A 49 |;..Kx(; HEXADEZI|
000043F0: 4D 41 4C 20 41 55 53 44 52 55 43 4B 45 4E 00 04 |MAL AUSDRUCKEN..|
00004400: 4C 82 28 3B 00 14 4C 8C 28 48 45 58 20 4C 44 41 |L.(;..L.(HEX LDA|
00004410: 20 B0 47 49 00 21 4C 96 28 4C 44 58 20 23 24 30 | .GI.!L.(LDX #$0|
00004420: 30 00 38 4C A0 28 4C 53 52 20 3A 4C 53 52 20 3A |0.8L.(LSR :LSR :|
00004430: 4C 53 52 20 3A 4C 53 52 00 45 4C AA 28 4A 53 52 |LSR :LSR.EL.(JSR|
00004440: 20 4D 41 4B 45 00 4D 4C B4 28 49 4E 58 00 59 4C | MAKE.ML.(INX.YL|
00004450: BE 28 4C 44 41 20 B0 47 49 00 69 4C C8 28 4D 41 |.(LDA .GI.iL.(MA|
00004460: 4B 45 20 AF 20 23 24 30 46 00 76 4C D2 28 43 4D |KE . #$0F.vL.(CM|
00004470: 50 20 23 24 30 41 00 83 4C DC 28 42 43 53 20 48 |P #$0A..L.(BCS H|
00004480: 45 58 31 00 8B 4C E6 28 43 4C 43 00 97 4C F0 28 |EX1..L.(CLC..L.(|
00004490: 41 44 43 20 23 34 38 00 A4 4C FA 28 4A 4D 50 20 |ADC #48..L.(JMP |
000044A0: 48 45 58 32 00 B1 4C 04 29 48 45 58 31 20 53 45 |HEX2..L.)HEX1 SE|
000044B0: 43 00 BE 4C 0E 29 53 42 43 20 23 24 30 39 00 D3 |C..L.)SBC #$09..|
000044C0: 4C 18 29 48 45 58 32 20 53 54 41 20 24 41 32 33 |L.)HEX2 STA $A23|
000044D0: 46 2C 58 00 DB 4C 22 29 52 54 53 00 E1 4C 2C 29 |F,X..L")RTS..L,)|
000044E0: 3B 00 EE 4C 36 29 3B 20 20 54 45 58 54 45 00 F4 |;..L6); TEXTE..|
000044F0: 4C 40 29 3B 00 31 4D 4A 29 54 45 58 54 32 20 2E |L@);.1MJ)TEXT2 .|
00004500: 42 59 54 45 20 31 33 2C 38 20 20 3A 2E C6 20 22 |BYTE 13,8 :.. "|
00004510: 81 93 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1C |................|
00004520: D5 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 B2 C0 C9 |................|
00004530: 22 00 58 4D 54 29 2E 42 59 54 45 20 31 33 3A 2E |".XMT).BYTE 13:.|
00004540: C6 20 22 1D 1D 1D 1D DD 20 20 20 20 20 20 20 20 |. "..... |
00004550: DD 20 20 20 DD 20 DD 22 00 7F 4D 5E 29 2E 42 59 |. . ."..M^).BY|
00004560: 54 45 20 31 33 3A 2E C6 20 22 1D 1D 1D 1D DD 20 |TE 13:.. "..... |
00004570: 20 20 20 20 20 20 20 AB C0 C0 C0 B1 C0 B3 22 00 | .......".|
00004580: A6 4D 68 29 2E 42 59 54 45 20 31 33 3A 2E C6 20 |.Mh).BYTE 13:.. |
00004590: 22 1D 1D 1D 1D DD 20 20 20 20 20 20 20 20 DD 42 |"..... .B|
000045A0: 2E 23 20 31 DD 22 00 CD 4D 72 29 2E 42 59 54 45 |.# 1."..Mr).BYTE|
000045B0: 20 31 33 3A 2E C6 20 22 1D 1D 1D 1D DD 20 20 20 | 13:.. "..... |
000045C0: 20 20 20 20 20 DD 20 20 20 20 20 DD 22 00 F4 4D | . ."..M|
000045D0: 7C 29 2E 42 59 54 45 20 31 33 3A 2E C6 20 22 1D ||).BYTE 13:.. ".|
000045E0: 1D 1D 1D DD 20 20 20 20 20 20 20 20 DD 24 30 30 |.... .$00|
000045F0: 30 30 DD 22 00 1B 4E 86 29 2E 42 59 54 45 20 31 |00."..N.).BYTE 1|
00004600: 33 3A 2E C6 20 22 1D 1D 1D 1D DD 20 20 20 20 20 |3:.. "..... |
00004610: 20 20 20 AB C0 C0 C0 C0 C0 B3 22 00 42 4E 90 29 | .......".BN.)|
00004620: 2E 42 59 54 45 20 31 33 3A 2E C6 20 22 1D 1D 1D |.BYTE 13:.. "...|
00004630: 1D DD 20 20 20 20 20 20 20 20 DD 32 23 20 20 20 |.. .2# |
00004640: DD 22 00 69 4E 9A 29 2E 42 59 54 45 20 31 33 3A |.".iN.).BYTE 13:|
00004650: 2E C6 20 22 1D 1D 1D 1D DD 20 20 20 20 20 20 20 |.. "..... |
00004660: 20 AB C0 C0 C0 C0 C0 CB 22 00 8A 4E A4 29 2E 42 | ......."..N.).B|
00004670: 59 54 45 20 31 33 3A 2E C6 20 22 1D 1D 1D 1D CA |YTE 13:.. ".....|
00004680: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 B0 4E AE 29 2E |........."..N.).|
00004690: 42 59 54 45 20 31 33 3A 2E C6 20 22 11 1D 1D 1D |BYTE 13:.. "....|
000046A0: 1D 9E 43 52 53 52 2F 43 4C 52 2F 48 4F 4D 45 22 |..CRSR/CLR/HOME"|
000046B0: 00 D4 4E B8 29 2E 42 59 54 45 20 31 33 3A 2E C6 |..N.).BYTE 13:..|
000046C0: 20 22 1D 1D 1D 1D 43 52 3A 20 50 2E 20 53 45 2F | "....CR: P. SE/|
000046D0: 4C 4F 45 22 00 E0 4E C2 29 2E 42 59 54 45 20 30 |LOE"..N.).BYTE 0|
000046E0: 00 E6 4E CC 29 3B 00 EC 4E D6 29 3B 00 25 4F E0 |..N.);..N.);.%O.|
000046F0: 29 54 45 58 54 34 20 2E C6 20 22 13 11 11 11 11 |)TEXT4 .. ".....|
00004700: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004710: 1D 1D 1D 1D 20 20 20 9D 9D 9D 22 20 3A 20 2E 42 |.... ..." : .B|
00004720: 59 54 45 20 30 00 2B 4F EA 29 3B 00 5A 4F F4 29 |YTE 0.+O.);.ZO.)|
00004730: 54 45 58 54 35 20 2E C6 20 22 5A 45 49 43 48 45 |TEXT5 .. "ZEICHE|
00004740: 4E 53 41 54 5A 20 53 50 45 49 43 48 45 52 4E 22 |NSATZ SPEICHERN"|
00004750: 20 3A 20 2E 42 59 54 45 20 30 00 60 4F FE 29 3B | : .BYTE 0.`O.);|
00004760: 00 8B 4F 08 2A 54 45 58 54 36 20 2E C6 20 22 5A |..O.*TEXT6 .. "Z|
00004770: 45 49 43 48 45 4E 53 41 54 5A 20 4C 41 44 45 4E |EICHENSATZ LADEN|
00004780: 22 20 3A 20 2E 42 59 54 45 20 30 00 91 4F 12 2A |" : .BYTE 0..O.*|
00004790: 3B 00 DA 4F 1C 2A 54 45 58 54 37 20 2E 42 59 54 |;..O.*TEXT7 .BYT|
000047A0: 45 20 31 33 20 3A 20 2E C6 20 22 1D 1D 1D 1D 1D |E 13 : .. ".....|
000047B0: 1D 1D 1D 1D 4E 41 4D 45 3A 20 20 20 20 20 20 20 |....NAME: |
000047C0: 20 20 20 20 20 20 20 2E 5A 9D 9D 9D 9D 9D 9D 9D | .Z.......|
000047D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 E6 4F 26 2A 2E |........."..O&*.|
000047E0: 42 59 54 45 20 30 00 EC 4F 30 2A 3B 00 F2 4F 3A |BYTE 0..O0*;..O:|
000047F0: 2A 3B 00 FE 4F 44 2A 3B 20 44 41 54 45 4E 00 04 |*;..OD*; DATEN..|
00004800: 50 4E 2A 3B 00 4D 50 58 2A 42 45 46 45 48 4C 45 |PN*;.MPX*BEFEHLE|
00004810: 20 2E C6 20 22 03 13 1D 9D 11 91 3B 3A AC BC 22 | .. "......;:.."|
00004820: 3A 2E 42 59 54 45 20 31 33 3A 2E C6 20 22 5F 5E |:.BYTE 13:.. "_^|
00004830: 2E 3E 2C AE B6 93 49 48 43 54 56 4F 44 20 A0 B1 |.>,...IHCTVOD ..|
00004840: 40 2F 89 8A 87 2B 2D 5C 31 32 88 3D 22 00 84 50 |@/...+-\12.="..P|
00004850: 62 2A 4C 4F 57 20 2E 42 59 54 45 20 B3 42 31 2C |b*LOW .BYTE .B1,|
00004860: B3 42 32 2C B3 42 33 2C B3 42 34 2C B3 42 35 2C |.B2,.B3,.B4,.B5,|
00004870: B3 42 36 2C B3 42 37 2C B3 42 38 2C B3 42 39 2C |.B6,.B7,.B8,.B9,|
00004880: B3 42 31 30 00 C0 50 6C 2A 2E 42 59 54 45 20 B3 |.B10..Pl*.BYTE .|
00004890: 42 31 31 2C B3 42 31 32 2C B3 42 31 33 2C B3 42 |B11,.B12,.B13,.B|
000048A0: 31 34 2C B3 42 31 35 2C B3 42 31 36 2C B3 42 31 |14,.B15,.B16,.B1|
000048B0: 37 2C B3 42 31 38 2C B3 42 31 39 2C B3 42 32 30 |7,.B18,.B19,.B20|
000048C0: 00 FC 50 76 2A 2E 42 59 54 45 20 B3 42 32 31 2C |..Pv*.BYTE .B21,|
000048D0: B3 42 32 32 2C B3 42 32 33 2C B3 42 32 34 2C B3 |.B22,.B23,.B24,.|
000048E0: 42 32 35 2C B3 42 32 36 2C B3 42 32 37 2C B3 42 |B25,.B26,.B27,.B|
000048F0: 32 38 2C B3 42 32 39 2C B3 42 33 30 00 38 51 80 |28,.B29,.B30.8Q.|
00004900: 2A 2E 42 59 54 45 20 B3 42 33 31 2C B3 42 33 32 |*.BYTE .B31,.B32|
00004910: 2C B3 42 33 33 2C B3 42 33 34 2C B3 42 33 35 2C |,.B33,.B34,.B35,|
00004920: B3 42 33 36 2C B3 42 33 37 2C B3 42 33 38 2C B3 |.B36,.B37,.B38,.|
00004930: 42 33 38 2C B3 42 33 39 00 47 51 8A 2A 2E 42 59 |B38,.B39.GQ.*.BY|
00004940: 54 45 20 B3 42 34 30 00 7D 51 94 2A 48 49 20 2E |TE .B40.}Q.*HI .|
00004950: 42 59 54 45 20 B1 42 31 2C B1 42 32 2C B1 42 33 |BYTE .B1,.B2,.B3|
00004960: 2C B1 42 34 2C B1 42 35 2C B1 42 36 2C B1 42 37 |,.B4,.B5,.B6,.B7|
00004970: 2C B1 42 38 2C B1 42 39 2C B1 42 31 30 00 B9 51 |,.B8,.B9,.B10..Q|
00004980: 9E 2A 2E 42 59 54 45 20 B1 42 31 31 2C B1 42 31 |.*.BYTE .B11,.B1|
00004990: 32 2C B1 42 31 33 2C B1 42 31 34 2C B1 42 31 35 |2,.B13,.B14,.B15|
000049A0: 2C B1 42 31 36 2C B1 42 31 37 2C B1 42 31 38 2C |,.B16,.B17,.B18,|
000049B0: B1 42 31 39 2C B1 42 32 30 00 F5 51 A8 2A 2E 42 |.B19,.B20..Q.*.B|
000049C0: 59 54 45 20 B1 42 32 31 2C B1 42 32 32 2C B1 42 |YTE .B21,.B22,.B|
000049D0: 32 33 2C B1 42 32 34 2C B1 42 32 35 2C B1 42 32 |23,.B24,.B25,.B2|
000049E0: 36 2C B1 42 32 37 2C B1 42 32 38 2C B1 42 32 39 |6,.B27,.B28,.B29|
000049F0: 2C B1 42 33 30 00 31 52 B2 2A 2E 42 59 54 45 20 |,.B30.1R.*.BYTE |
00004A00: B1 42 33 31 2C B1 42 33 32 2C B1 42 33 33 2C B1 |.B31,.B32,.B33,.|
00004A10: 42 33 34 2C B1 42 33 35 2C B1 42 33 36 2C B1 42 |B34,.B35,.B36,.B|
00004A20: 33 37 2C B1 42 33 38 2C B1 42 33 38 2C B1 42 33 |37,.B38,.B38,.B3|
00004A30: 39 00 40 52 BC 2A 2E 42 59 54 45 20 B1 42 34 30 |9.@R.*.BYTE .B40|
00004A40: 00 58 52 C6 2A 4D 45 4D 20 20 20 2E 42 59 54 45 |.XR.*MEM .BYTE|
00004A50: 20 31 37 36 2C 31 38 34 00 6E 52 D0 2A B9 49 20 | 176,184.nR.*.I |
00004A60: 20 2E 42 59 54 45 20 31 34 30 2C 31 34 32 00 80 | .BYTE 140,142..|
00004A70: 52 DA 2A B0 47 49 20 20 2E 42 59 54 45 20 33 32 |R.*.GI .BYTE 32|
00004A80: 00 96 52 E4 2A 5A 45 49 4C 45 20 2E 42 59 54 45 |..R.*ZEILE .BYTE|
00004A90: 20 31 2C 31 32 30 00 AE 52 EE 2A 53 41 54 5A 20 | 1,120..R.*SATZ |
00004AA0: 20 2E 42 59 54 45 20 31 33 32 2C 31 34 30 00 BF | .BYTE 132,140..|
00004AB0: 52 F8 2A 44 49 52 45 20 20 2E C6 20 22 24 22 00 |R.*DIRE .. "$".|
00004AC0: CF 52 02 2B 42 45 52 45 49 20 20 20 4E 4F 50 00 |.R.+BEREI NOP.|
00004AD0: E3 52 0C 2B 43 4F 55 4E 54 45 52 20 2E 42 59 54 |.R.+COUNTER .BYT|
00004AE0: 45 20 30 00 F8 52 16 2B 4C 41 45 4E 47 45 20 20 |E 0..R.+LAENGE |
00004AF0: 20 2E 42 59 54 45 20 30 00 0D 53 20 2B 53 54 45 | .BYTE 0..S +STE|
00004B00: 4C 4C 55 4E 47 20 2E 42 59 54 45 20 30 00 2F 53 |LLUNG .BYTE 0./S|
00004B10: 2A 2B 53 54 52 49 4E 47 20 2E C6 20 22 24 20 20 |*+STRING .. "$ |
00004B20: 20 20 20 20 20 20 20 20 20 20 20 20 2E 5A 22 00 | .Z".|
00004B30: 35 53 34 2B 3B 00 53 53 3E 2B 3B 20 83 5A 45 49 |5S4+;.SS>+; .ZEI|
00004B40: 4C 45 4E 20 56 4F 4E 20 5A 45 49 43 48 45 4E 53 |LEN VON ZEICHENS|
00004B50: 41 54 5A 00 59 53 48 2B 3B 00 6B 53 52 2B 42 33 |ATZ.YSH+;.kSR+B3|
00004B60: 39 20 4A 53 52 20 52 45 53 45 54 00 82 53 5C 2B |9 JSR RESET..S\+|
00004B70: 4C 44 41 20 24 46 37 20 20 3A 20 53 54 41 20 24 |LDA $F7 : STA $|
00004B80: 34 35 00 99 53 66 2B 4C 44 41 20 24 46 38 20 20 |45..Sf+LDA $F8 |
00004B90: 3A 20 53 54 41 20 24 34 36 00 B0 53 70 2B 4C 44 |: STA $46..Sp+LD|
00004BA0: 41 20 23 24 46 36 20 3A 20 53 54 41 20 24 34 41 |A #$F6 : STA $4A|
00004BB0: 00 C7 53 7A 2B 4C 44 41 20 23 24 31 38 20 3A 20 |..Sz+LDA #$18 : |
00004BC0: 53 54 41 20 24 34 39 00 E7 53 84 2B 44 41 4D 41 |STA $49..S.+DAMA|
00004BD0: 31 20 4C 44 41 20 23 B3 43 55 48 4F 3A 4C 44 59 |1 LDA #.CUHO:LDY|
00004BE0: 20 23 B1 43 55 48 4F 00 F5 53 8E 2B 4A 53 52 20 | #.CUHO..S.+JSR |
00004BF0: 24 41 42 31 45 00 0B 54 98 2B 4C 44 58 20 24 34 |$AB1E..T.+LDX $4|
00004C00: 39 20 3A 20 4C 44 41 20 24 34 41 00 19 54 A2 2B |9 : LDA $4A..T.+|
00004C10: 4A 53 52 20 24 42 44 43 44 00 32 54 AC 2B 4C 44 |JSR $BDCD.2T.+LD|
00004C20: 41 20 23 22 44 22 20 3A 20 4A 53 52 20 24 46 46 |A #"D" : JSR $FF|
00004C30: 44 32 00 4B 54 B6 2B 4C 44 41 20 23 22 C1 22 20 |D2.KT.+LDA #"." |
00004C40: 3A 20 4A 53 52 20 24 46 46 44 32 00 58 54 C0 2B |: JSR $FFD2.XT.+|
00004C50: 4C 44 59 20 23 24 30 30 00 72 54 CA 2B 44 41 4D |LDY #$00.rT.+DAM|
00004C60: 41 32 20 4C 44 41 20 23 35 34 3A 53 54 41 20 24 |A2 LDA #54:STA $|
00004C70: 30 31 00 83 54 D4 2B 4C 44 41 20 28 24 34 35 29 |01..T.+LDA ($45)|
00004C80: 2C 59 3A 00 9F 54 DE 2B 50 48 41 3A 4C 44 41 20 |,Y:..T.+PHA:LDA |
00004C90: 23 35 35 3A 53 54 41 20 24 30 31 3A 50 4C 41 00 |#55:STA $01:PLA.|
00004CA0: A7 54 E8 2B 54 41 58 00 B5 54 F2 2B 54 59 41 20 |.T.+TAX..T.+TYA |
00004CB0: 3A 20 50 48 41 00 C2 54 FC 2B 4C 44 41 20 23 24 |: PHA..T.+LDA #$|
00004CC0: 30 30 00 D0 54 06 2C 4A 53 52 20 24 42 44 43 44 |00..T.,JSR $BDCD|
00004CD0: 00 DE 54 10 2C 50 4C 41 20 3A 20 54 41 59 00 F1 |..T.,PLA : TAY..|
00004CE0: 54 1A 2C 49 4E 59 20 3A 20 43 50 59 20 23 24 30 |T.,INY : CPY #$0|
00004CF0: 38 00 FF 54 24 2C 42 45 51 20 44 41 4D 41 33 00 |8..T$,BEQ DAMA3.|
00004D00: 18 55 2E 2C 4C 44 41 20 23 22 2C 22 20 3A 20 4A |.U.,LDA #"," : J|
00004D10: 53 52 20 24 46 46 44 32 00 26 55 38 2C 4A 4D 50 |SR $FFD2.&U8,JMP|
00004D20: 20 44 41 4D 41 32 00 42 55 42 2C 44 41 4D 41 33 | DAMA2.BUB,DAMA3|
00004D30: 20 4C 44 41 20 23 B3 9E 20 3A 20 4C 44 59 20 23 | LDA #.. : LDY #|
00004D40: B1 9E 00 50 55 4C 2C 4A 53 52 20 24 41 42 31 45 |...PUL,JSR $AB1E|
00004D50: 00 70 55 56 2C 4C 44 41 20 23 31 33 20 3A 20 53 |.pUV,LDA #13 : S|
00004D60: 54 41 20 36 33 34 20 3A 20 53 54 41 20 36 33 35 |TA 634 : STA 635|
00004D70: 00 86 55 60 2C 4C 44 41 20 23 24 30 35 3A 20 53 |..U`,LDA #$05: S|
00004D80: 54 41 20 31 39 38 00 8E 55 6A 2C 52 54 53 00 9D |TA 198..Uj,RTS..|
00004D90: 55 74 2C 82 20 20 49 4E 43 20 24 34 39 00 AB 55 |Ut,. INC $49..U|
00004DA0: 7E 2C 42 4E 45 20 44 41 4D 41 34 00 B7 55 88 2C |~,BNE DAMA4..U.,|
00004DB0: 49 4E 43 20 24 34 41 00 C9 55 92 2C 44 41 4D 41 |INC $4A..U.,DAMA|
00004DC0: 34 20 4C 44 41 20 24 34 39 00 D6 55 9C 2C 43 4D |4 LDA $49..U.,CM|
00004DD0: 50 20 23 24 31 38 00 E4 55 A6 2C 42 45 51 20 44 |P #$18..U.,BEQ D|
00004DE0: 41 4D 41 36 00 F0 55 B0 2C 4C 44 41 20 24 34 35 |AMA6..U.,LDA $45|
00004DF0: 00 03 56 BA 2C 43 4C 43 20 3A 20 41 44 43 20 23 |..V.,CLC : ADC #|
00004E00: 24 30 38 00 0F 56 C4 2C 53 54 41 20 24 34 35 00 |$08..V.,STA $45.|
00004E10: 1D 56 CE 2C 42 43 43 20 44 41 4D 41 35 00 29 56 |.V.,BCC DAMA5.)V|
00004E20: D8 2C 49 4E 43 20 24 34 36 00 3D 56 E2 2C 44 41 |.,INC $46.=V.,DA|
00004E30: 4D 41 35 20 4A 4D 50 20 44 41 4D 41 31 00 51 56 |MA5 JMP DAMA1.QV|
00004E40: EC 2C 44 41 4D 41 36 20 4A 4D 50 20 24 43 30 30 |.,DAMA6 JMP $C00|
00004E50: 30 00 57 56 F6 2C 3B 00 7C 56 00 2D 9E 20 2E 42 |0.WV.,;.|V.-. .B|
00004E60: 59 54 45 20 31 33 3A 2E C6 20 22 53 D9 35 32 30 |YTE 13:.. "S.520|
00004E70: 34 38 13 22 3A 2E 42 59 54 45 20 30 00 98 56 0A |48.":.BYTE 0..V.|
00004E80: 2D 43 55 48 4F 20 2E C6 20 22 93 11 11 22 20 3A |-CUHO .. "..." :|
00004E90: 20 2E 42 59 54 45 20 30 00 9E 56 14 2D 3B 00 A4 | .BYTE 0..V.-;..|
00004EA0: 56 1E 2D 3B 00 AA 56 28 2D 3B 00 DC 56 32 2D 54 |V.-;..V(-;..V2-T|
00004EB0: 45 58 54 31 20 2E 42 59 54 45 20 30 3A 2E C6 20 |EXT1 .BYTE 0:.. |
00004EC0: 22 40 2F 3A 3B 20 5A 2E 20 57 41 45 48 4C 45 4E |"@/:; Z. WAEHLEN|
00004ED0: 20 20 20 22 3A 2E 42 59 54 45 20 30 00 00 57 3C | ":.BYTE 0..W<|
00004EE0: 2D 2E C6 20 22 2C 3A 4E 52 2E 20 44 45 5A 2E 45 |-.. ",:NR. DEZ.E|
00004EF0: 49 4E 47 45 42 45 4E 22 3A 2E 42 59 54 45 20 30 |INGEBEN":.BYTE 0|
00004F00: 00 24 57 46 2D 2E C6 20 22 2E 3A 5A 45 49 43 48 |.$WF-.. ".:ZEICH|
00004F10: 45 4E 20 45 49 4E 47 45 42 45 4E 22 3A 2E 42 59 |EN EINGEBEN":.BY|
00004F20: 54 45 20 30 00 48 57 50 2D 2E C6 20 22 3E 3A 49 |TE 0.HWP-.. ">:I|
00004F30: 4E 56 2E 20 5A 2E 20 45 49 4E 47 45 42 45 4E 22 |NV. Z. EINGEBEN"|
00004F40: 3A 2E 42 59 54 45 20 30 00 6B 57 5A 2D 2E C6 20 |:.BYTE 0.kWZ-.. |
00004F50: 22 53 50 41 43 45 3A 50 2E 20 4C 4F 45 53 43 48 |"SPACE:P. LOESCH|
00004F60: 45 4E 22 3A 2E 42 59 54 45 20 30 00 8F 57 64 2D |EN":.BYTE 0..Wd-|
00004F70: 2E C6 20 22 53 48 2E 53 50 41 43 45 3A 50 2E 20 |.. "SH.SPACE:P. |
00004F80: 53 45 54 5A 45 4E 22 3A 2E 42 59 54 45 20 30 00 |SETZEN":.BYTE 0.|
00004F90: B3 57 6E 2D 2E C6 20 22 5E 3A 48 4F 43 48 52 4F |.Wn-.. "^:HOCHRO|
00004FA0: 54 49 45 52 45 4E 20 20 20 20 22 3A 2E 42 59 54 |TIEREN ":.BYT|
00004FB0: 45 20 30 00 D7 57 78 2D 2E C6 20 22 5F 3A 4C 49 |E 0..Wx-.. "_:LI|
00004FC0: 4E 4B 53 52 4F 54 49 45 52 45 4E 20 20 20 22 3A |NKSROTIEREN ":|
00004FD0: 2E 42 59 54 45 20 30 00 F9 57 82 2D 2E C6 20 22 |.BYTE 0..W.-.. "|
00004FE0: 49 3A 49 4E 56 45 4E 54 49 45 52 45 4E 20 20 20 |I:INVENTIEREN |
00004FF0: 22 3A 2E 42 59 54 45 20 30 00 1D 58 8C 2D 2E C6 |":.BYTE 0..X.-..|
00005000: 20 22 48 3A 48 4F 52 49 5A 4F 4E 54 41 4C 20 53 | "H:HORIZONTAL S|
00005010: 50 49 45 2E 22 3A 2E 42 59 54 45 20 30 00 40 58 |PIE.":.BYTE 0.@X|
00005020: 96 2D 2E C6 20 22 56 3A 56 45 52 54 49 4B 41 4C |.-.. "V:VERTIKAL|
00005030: 20 53 50 49 45 47 2E 22 3A 2E 42 59 54 45 20 30 | SPIEG.":.BYTE 0|
00005040: 00 64 58 A0 2D 2E C6 20 22 44 3A 39 30 27 20 52 |.dX.-.. "D:90' R|
00005050: 45 43 48 54 53 44 52 45 48 45 4E 22 3A 2E 42 59 |ECHTSDREHEN":.BY|
00005060: 54 45 20 30 00 83 58 AA 2D 2E C6 20 22 43 3A 5A |TE 0..X.-.. "C:Z|
00005070: 2E 20 43 4F 50 49 45 52 45 4E 22 3A 2E 42 59 54 |. COPIEREN":.BYT|
00005080: 45 20 30 00 A2 58 B4 2D 2E C6 20 22 54 3A 5A 2E |E 0..X.-.. "T:Z.|
00005090: 20 54 41 55 53 43 48 45 4E 22 3A 2E 42 59 54 45 | TAUSCHEN":.BYTE|
000050A0: 20 30 00 C6 58 BE 2D 2E C6 20 22 4F 3A 4F 52 2D | 0..X.-.. "O:OR-|
000050B0: 4D 49 58 45 4E 20 20 20 20 20 20 20 20 22 3A 2E |MIXEN ":.|
000050C0: 42 59 54 45 20 30 00 EA 58 C8 2D 2E C6 20 22 5C |BYTE 0..X.-.. "\|
000050D0: 3A 5A 2E 2D 50 52 4F 42 45 20 20 20 20 20 20 20 |:Z.-PROBE |
000050E0: 20 22 3A 2E 42 59 54 45 20 30 00 0E 59 D2 2D 2E | ":.BYTE 0..Y.-.|
000050F0: C6 20 22 2B 2D 3A 5A 2D 41 44 52 45 53 53 45 20 |. "+-:Z-ADRESSE |
00005100: 41 45 4E 44 2E 22 3A 2E 42 59 54 45 20 30 00 32 |AEND.":.BYTE 0.2|
00005110: 59 DC 2D 2E C6 20 22 31 32 3A 5A 2D 53 41 54 5A |Y.-.. "12:Z-SATZ|
00005120: 20 54 41 55 53 43 48 45 4E 22 3A 2E 42 59 54 45 | TAUSCHEN":.BYTE|
00005130: 20 30 00 56 59 E6 2D 2E C6 20 22 46 32 3A 4E 4F | 0.VY.-.. "F2:NO|
00005140: 52 2E 5A 2E 20 2D 3E 20 52 41 4D 20 20 22 3A 2E |R.Z. -> RAM ":.|
00005150: 42 59 54 45 20 30 00 79 59 F0 2D 2E C6 20 22 46 |BYTE 0.yY.-.. "F|
00005160: 34 3A 4B 4C 45 2E 5A 2E 20 2D 3E 20 52 41 4D 20 |4:KLE.Z. -> RAM |
00005170: 22 3A 2E 42 59 54 45 20 30 00 9D 59 FA 2D 2E C6 |":.BYTE 0..Y.-..|
00005180: 20 22 46 35 3A 5A 2E 49 4E 20 41 4E 2E 42 45 52 | "F5:Z.IN AN.BER|
00005190: 45 49 43 48 22 3A 2E 42 59 54 45 20 30 00 C1 59 |EICH":.BYTE 0..Y|
000051A0: 04 2E 2E C6 20 22 46 37 3A 44 41 54 41 5A 45 49 |.... "F7:DATAZEI|
000051B0: 4C 45 4E 20 45 52 53 2E 22 3A 2E 42 59 54 45 20 |LEN ERS.":.BYTE |
000051C0: 30 00 E5 59 0E 2E 2E C6 20 22 43 3D 20 45 3A 44 |0..Y.... "C= E:D|
000051D0: 49 53 4B 53 54 41 54 55 53 20 20 20 22 3A 2E 42 |ISKSTATUS ":.B|
000051E0: 59 54 45 20 30 00 09 5A 18 2E 2E C6 20 22 43 3D |YTE 0..Z.... "C=|
000051F0: 20 43 3A 44 49 53 4B 42 45 46 45 48 4C 20 20 20 | C:DISKBEFEHL |
00005200: 22 3A 2E 42 59 54 45 20 30 00 2C 5A 22 2E 2E C6 |":.BYTE 0.,Z"...|
00005210: 20 22 43 3D 20 44 3A 44 49 52 45 43 54 4F 52 59 | "C= D:DIRECTORY|
00005220: 20 20 20 22 3A 2E 42 59 54 45 20 30 00 50 5A 2C | ":.BYTE 0.PZ,|
00005230: 2E 2E C6 20 22 43 3D 20 53 3A 5A 2E 20 53 50 45 |... "C= S:Z. SPE|
00005240: 49 43 48 45 52 4E 20 22 3A 2E 42 59 54 45 20 30 |ICHERN ":.BYTE 0|
00005250: 00 6F 5A 36 2E 2E C6 20 22 43 3D 20 4C 3A 5A 2E |.oZ6... "C= L:Z.|
00005260: 20 4C 41 44 45 4E 22 3A 2E 42 59 54 45 20 30 00 | LADEN":.BYTE 0.|
00005270: 8E 5A 40 2E 2E C6 20 22 20 20 20 20 20 20 20 20 |.Z@... " |
00005280: 20 20 20 20 20 22 3A 2E 42 59 54 45 20 30 00 00 | ":.BYTE 0..|
00005290: 00 |. |
....D..9.4096...N..OPT OO.%.X...$C000.+.
..;.1...;.H...; ZEICHEN . EDI.R.N. .;.X
...; V..^...;.S...; .REAS WELLIE'...H.
; S.DERFELD 8...R.; 4300 ESSEN 14.....
;.....; BELEGUNG DES SPEICHERS.E...;...
..; PROGRAMM $C000.$CD40.....;.....;
BENUTZTE SPEICHERSTELC.....; IN DER ZER
O.PAGE.$.".;.>.,.; $02 AKTUELLES BIT.V
.6.; $3C VERSCHIEDEN.}.@.; $3D. ZEICH
ENSATZ AUF BILDSCHIRM...J.; $40. .T.;
$41 VERSCHIEDEN.E.^.; $42 NR. DES AKT
UELC ZEICHENS...H.; $43 STELLUNG DES M
ENUES...R.; $49. ZEIGER ZUM Z..COP,Z..T
AUSCH.4.|.; $4A ..VERKNUE.,VERTIKALSPI
EGE..R...; & MENU AUSDRUCKEN.R...;
$4E. ADRESSE DES AKTUELC.....; $4F Z
EICHENS.....; $F7. ADRESSE DES ZEICHENS
ATZES.E...; $F8 IM SPEICHER.....; $F9
X..ITI. DES CURS.S...B.; $FA Y..ITI.
DES CURS.S...L.; $F8 IM SPEICHER.!.V.
;.'...;.-...;.B...; INITIALISIEREN.H...;
.V...JSR RESET.X...LDA #$08 : STA $D020
; FARBEN.....: STA $D021...&.LD
A #$01 : STA $D015 ; SPRITE..U.0.LDA #$0
0 : STA $D027 ; DATEN...:.LDA #152 : STA
$D000 ; SETZEN...D.LDA #130 : STA $D001
.).N.LDA #$90 : STA $A3F8.K.X.LDX #63 :
LDA #$00 ; SPRITE.L.B.MOB. STA $A400,X
; LOSCHEN..L.DEX : BPL MOB....V.LDA
#$80 : STA 650 ; KEYREPEAT.K...LDA #$0
0 : STA $9D ; PRGK.TROLLE.....LDA #$00
: STA $42 ; ZEIGER.....LDA #$01 : STA
$43 ; ZEIGER./...LDA #176 : STA $F8
; FUER.R...LDA #$00 : STA $F7 ; Z.EDI
.R.L...LDA #140 : STA SATZ.1.....LDA #"1
" : STA BEREI...F.LDA #160 : STA 648 ;
VIDEOCHIP &.O.P.LDA #149 : STA $DD00 ;
AUSGABE...Z.; AUF $
8000.....;. ...JSR IRQEIN ; RASTER.ERRUP
T SETZEN.&...;.,...;.@...; EDITIEREN
.F...;.L. .;.Q.*.EDIT LDY #.TEXT2 ; BILD
AUFBAUEN...4.LDA #.TEXT2...>.JSR ABDR..
.H.LDA #$00 : STA 646.E.R.EDIT1 LDA BERE
I : STA $A1F2...\.LDX #$01 : STX $F9 ;CU
. X.ACHSE...F.LDY #$00 : STY $FA ;CU. Y.
ACHSE.$.P.LDA #$80 : STA $02.L.Z.JSR ZSB
; ZEICHENS. AUSDRUCKEN.T...JSR ZDR
UCKEN ; VERG. ZEICHEN AUSGE......JSR HEX
; HEXZAHL AUSGEBEN.....JSR MENU
; MENU AUSDRUCKEN.Y...JMP HOME ; C
URS. HOME.....;.....; ZEICHEN V. TASTAT
UR HOC.....; & AUSWERTEN...J.;.*.T..KEY
JSR .CHAR.6...LDX #40.N...AUSW1 CMP BEF
EHLE,X.J...BEQ AUSW2 ;"BEFEHL ?.R...D
EX.....BPL AUSW1 ;"BEFEHLSLISTE ENDE
?.....JMP .KEY.....AUSW2 TAY.Y.$.LDA LOW
,X ;SP.GADRESSE LOW.BYTE.....STA JUMP.1
...8.LDA HI,X ;SP.GADRESSE HI.BYTE...B
.STA JUMP.2.#.L.TYA.J.V.JUMP JMP $0000 ;
BEFEHL ANSPRINGEN.P.`.;.Z.J.; .E.`.T.;
.{.~.B1 JSR RESET:JMP $E37B.....RESET LD
A #55 : STA $01 ;ROM AN.E...LDA #199 : S
TA $DD00 ;AUSGABE AUF.....LDA #4 : STA
648 ;$0000.....JSR $FDA3:JSR $FD15:JS
R $FF5B.....RTS.....;.0.D.; CURS. AUF H
OME.ITI..6.N.;.A.X.B2 NOP.]...HOME LDA #
$0A : STA $D6.T...LDA #$05 : STA $D3....
.JSR 58640.....LDX #$01 : STX $F9.....LD
Y #$00 : STY $FA.G...LDY #$80 : STY $02.
S...JSR ZSB...(.JMP .KEY...2.;...<.; CUR
S. RECHTS...F.;...P.B3 LDX $F9...Z.CPX #
$08.(.D.BNE CURE.?.N.LDA #$80 : STA $02.
V.X.LDA #$01 : STA $F9.M...LDA #$05 : ST
A $D3.Z...JMP .KEY.....CURE INC $F9... .
INC $D3.....LSR $02.....JMP .KEY.....;.H
.H.; CURS. LINKS.N.R.;.....B4 LDX $F9...
..CPX #$01.....BNE CULI.....LDA #$01 : S
TA $02.%...LDA #$08 : STA $F9.<...LDA #$
0C : STA $D3.I...JMP .KEY.Z.".CULI DEC $
F9.F.,.DEC $D3.R.6.ASL $02..@.JMP .KEY.
..J.;...T.; CURS. UNTEN...^.;...H.B5 LDX
$FA...R.CPX #$07.F.|.BNE CUUN.....LDA #
$00 : STA $FA.....LDA #$0A : STA $D6 : J
SR 58640.....JMP .KEY.(...CUUN INC $D6:J
SR 58640.4...INC $FA.A...JMP .KEY.G.B.;.
X.L.; CURS. OBEN.^.V.;.M...B6 LDX $FA.Z.
..CPX #$00.....BNE CUOB.....LDA #$07 : S
TA $FA.A...LDA #$11 : STA $D6 : JSR 5864
0.N...JMP .KEY.....CUOB DEC $D6:JSR 5864
0...&.DEC $FA...0.JMP .KEY...:.;...D.; Z
EICHEN PLUS.".N.;.1.X.B7 INC $42.F.B.ZA
B JSR ZDRUCKEN.S.L.JMP HOME.Y.V.;.N...;
ZEICHEN MINUS.T...;.....B8 DEC $42.....
JMP ZAB.....;.....; PUNKT SETZEN B.Z.W.
LOESCHEN.....;.R.F.B11 JSR ZEICHEN...P.L
DY $FA...Z.LDA ($4E),Y.....E. $02.....ST
A ($4E),Y.....JMP ERNEU.....;.7...; ROTI
EREN NACH LINKS.=...;.Q. .B12 JSR ZEICHE
N.^.*.LDY #$07.R.4.R.E LDA ($4E),Y.Z.>.A
SL...H.PHP...R.R....\.PLP...F.ROL...P.ST
A ($4E),Y...Z.DEY.....BPL R.E.K...JMP ER
NEU.Q...;.....; ROTIEREN NACH OBEN.....;
.....B13 JSR ZEICHEN.....LDY #$00.".J.L
DA ($4E),Y.*.T.TAX.7...ROUP INY.G...LDA
($4E),Y.O...DEY._...STA ($4E),Y.G...INY.
T...CPY #$07.....BNE ROUP...$.TXA.....ST
A ($4E),Y...8.JMP ERNEU...B.;.A.L.; ZEIC
HEN A.ERN.G.V.;...`.B14 LDA #"." : JSR $
FFD2...J.LDA #"." : JSR $FFD2...T.LDA $4
2 : STA $A000./.~.LDA #$DD : STA $CED0.
I...LDA #$01 : STA LAENGE.S...JSR ..J...
LDA $A000: STA $42.....LDA #$00 : STA $C
ED0.....STA 646.....LDA #"." : JSR $FFD2
...D.JMP ZAB...N.;.W.X.; INVERSES ZEICHE
N A.ERN.....;.....B15 LDA #"." : JSR $FF
D2 : JMP B14.....;.....; ZEICHEN NR. DE
ZIMAL EINGEBEN.4...;.O...B16 LDA #$0E :
STA $D3.F...LDA #$0A : STA $D6.T.(.JSR 5
8640...2.JSR DEZIMAL...<.STA $42...F.JMP
ZAB...P.;...Z.; ZEICHENSATZ SPEICHERN.D
.D.;...N.B17 LDA SATZ.1 : STA $02...X.LD
A #132 : STA SATZ.1.....LDA #$17 : STA $
D6.)...LDA #$09 : STA $D3.7...JSR 58640.
G. .LDA #.TEXT5.W...LDY #.TEXT5.D...JSR
ABDR.T...LDA #.TEXT7...H.LDY #.TEXT7...R
.JSR ABDR.....LDA #14 : STA LAENGE.D...J
SR . ; NAME EINGEBEN.....LDA #$01:LDX #$
08:LDY #$61.....JSR $FFBA ; FILEPARAMETE
R.....LDA #$10.$...LDX #.STRING: INX.5..
.LDY #.STRING.V.".JSR $FFBD ; FICAMENPAR
AMETER.H.,.JSR $FFC0 ; ....6.LDA #$08 :
JSR $FFB1 ; .EN...@.LDA #$61 : JSR $FF93
; SEK.ADRESSE.G.J.LDA #$00 : JSR $FFA8.
..T.LDA .GI : JSR $FFA8...^.LDA $F7 : ST
A $4E...H.LDA $F8 : STA $4F...R.LDX #$08
.).|.SV2 LDY #$00.=...SV1 LDA ($4E),Y.\.
..STX $60:JSR $FFA8 :LDX $60.D...INY.P..
.BNE SV1.|...INC $4F.....DEX...B.BNE SV2
...L.LDA #$01 : JSR $FFC3 ; .G.V.LDA $0
2 : STA SATZ.1.T...JMP EDIT.Z...;.....;
ZEICHENSATZ LADEN.....;.....B18 LDA SAT
Z.1 : STA $02./...LDA #132 : STA SATZ.1.
F...LDA #$17 : STA $D6.].&.LDA #$09 : ST
A $D3.K.0.JSR 58640.{.:.LDA #.TEXT6...D.
LDY #.TEXT6...N.JSR ABDR...X.LDA #.TEXT7
...B.LDY #.TEXT7.E.L.JSR ABDR...V.LDA #1
4 : STA LAENGE.....JSR . ; NAME EINGEBEN
.....LDA #$02 : LDX #$08 : LDY #$00.9...
JSR $FFBA ; FILEPARAMETER.F...LDA #$10.]
...LDX #.STRING : INX.N...LDY #.STRING..
...JSR $FFBD; FICAMENPARAMETER...F.LDA #
$00...P.LDX $F7 : LDY $F8.D.Z.JSR $FFD5
; ......LDA $02 : STA SATZ.1.....LDA #$
00 : STA $42.. ..JMP EDIT.. ..;.. ..; ZE
ICHEN LOESCHEN.$ ..;.8 .B19 JSR ZEICHEN
.E *.LDY #$07.R 4.LDA #$00.G >.ZELO STA
($4E),Y.O H.DEY.| R.BPL ZELO.. \.JMP ZAB
.. F.;.. P.; ZEICHEN INVENTIEREN.. Z.;.B
..B20 JSR ZEICHEN.O ..LDY #$07.. ..ZEII
N LDA ($4E),Y.. ..E. #$FF..!..STA ($4E),
Y..!..DEY..!..BPL ZEIIN.%!J.JMP ERNEU.+!
T.;.K!..; ZEICHEN H.IZ.TAL SPIEGELN.Q!..
;.E!..B21 JSR ZEICHEN.}!..LDY #$07 : LDX
#$00..!..HOSPI LDA ($4E,X)..!..PHA..!..
LDA ($4E),Y..!$.STA ($4E,X).C!..PLA.S!8.
STA ($4E),Y..!B.INC $4E..!L.DEY..!V.DEY.
.!`.BPL HOSPI.."J.JMP ERNEU.."T.;.("~.;
ZEICHEN COPIEREN.."..;.D"..B22 LDA $42 :
PHA.S"..JSR ZWEIIN._"..STA $42.O"..JSR
ZEICHEN.|"..LDY #$07.."D.COPY LDA ($4E),
Y.."N.STA ($49),Y.."X.DEY.."..BPL COPY..
"..PLA.J"..STA $42.W"..JMP EDIT.."..;.."
..;"ZEICHEN TAUSCHEN.."..;..#(.B23 LDA $
42 : PHA..#2.JSR ZWEIIN.+#<.STA $42.;#F.
JSR ZEICHEN.H#P.LDY #$07.G#Z.TAUSCHEN LD
A ($4E),Y : TAX.W#D.LDA ($49),Y..#N.STA
($4E),Y..#X.TXA : STA ($49),Y..#..DEY..#
..BPL TAUSCHEN..#..PLA.J# .STA $42.W#..J
MP EDIT..#..;..#..; ZEICHEN VERTIKAL SPI
EGELN..$H.;..$R.B24 JSR ZEICHEN.$$..LDY
#$07.;$..VESPI1 LDA ($4E),Y.H$..LDX #$07
.V$..VESPI LSR.B$..STA $49.N$..LDA $4A.V
$..ROL..$".STA $4A..$,.LDA $49..$6.DEX..
$@.BPL VESPI..$J.LDA $4A..$T.STA ($4E),Y
.H$^.DEY.W$H.BPL VESPI1..$R.JMP ERNEU..$
|.;..%..; ZEICHEN . VERKNUEPFEN..%..;.#%
..B25 LDA $42 : PHA.2%..JSR ZWEIIN.>%..S
TA $42.N%..JSR ZEICHEN.[%B.LDY #$07.P%L.
.VER LDA ($49),Y.%V..A ($4E),Y..%..STA
($49),Y..%..DEY..%..BPL .VER..%..PLA..%.
.STA $42.E%..JMP EDIT.K%..;..%&.; UM 90'
NACH RECHTS DREHEN..%0.;..&:.B26 JSR ZE
ICHEN..&D.LDY #$07.&&N.REDRE2 LDX #$07.6
&X.LDA ($4E),Y.E&B.REDRE1 LSR.I&L.ROL $C
EE0,X ;ZWISCHEN SPEICHERN.Q&V.DEX..&..BP
L REDRE1..&..DEY..&..BPL REDRE2..&..LDY
#$07.E&..REDRE3 LDA $CEE0,Y ;ZURUECK...&
..STA ($4E),Y ;COPIEREN..&..DEY..
&F.BPL REDRE3..'P.JMP ERNEU..'Z.;.5'..;
PUNKT LOESCHEN & CURS. WEITER.;'..;.O'..
B27 JSR ZEICHEN.`'..PUWE LDY $FA.L'..LDA
$02.Y'..CPX #100..' .BEQ LOWE..'*.E. #$
FF. '4.. ($4E),Y..'>.CPX #100..'H.BNE LO
WE1.O'R.LOWE .A ($4E),Y..'\.LOWE1 STA ($
4E),Y..'F.LDA $D3 : STA $45..(P.LDA $D6
: STA $46."(Z.JSR ZDRUCKEN.8(..LDA $45 :
STA $D3.N(..LDA $46 : STA $D6.\(..JSR 5
8640.G(..JMP B3.M(..;..(..; PUNKT SETZEN
& CURS. WEITER..(..;..(J.B28 JSR ZEICHE
N..(T.LDX #100.C(..JMP PUWE.I(..;..(..;
ZEICHEN EINE ZEILE HOCH..(..;..(..B30 LD
A $42..)..SEC : SBC #32 : STA $42.%)..JM
P ZAB.+)$.;.O)..; ZEICHEN EINE ZEILE NAC
H UNTEN.U)8.;.E)B.B31 LDA $42..)L.CLC :
ADC #32 : STA $42..)V.JMP ZAB..)`.;..)J.
; KLEINE ZEICHEN IN EDI.RBEREICH.G)T.; C
OPIEREN.M)~.;..)..B33 LDY #$D8 : STY $60
..)..LDY #$E0 : STY $5B..*..JMP ROMRAM1.
.*..;.8*..; ZS IN .EREN BEREICH COPIEREN
.>*..;.Y*D.B34 LDA $42 : STA $5F.H*N.JS
R ZWEIIN.T*X.CMP $42..*..BCS ZC7..*..JMP
EDIT..*..ZC7 STA $60 : INC $60.E*..ZC5
JSR ZEICHEN:LDA $A1F2.R*..CMP #"1"..*..B
EQ ZC2..+..LDA $4F : SEC : SBC #$08 : ST
A $59..+(.JMP ZC3.6+2.ZC2 LDA $4F:CLC:AD
C #$08:STA $59.P+<.ZC3 LDA $4E : STA $58
.]+F.LDY #$07.+P.ZC4 LDA ($4E),Y : STA
($58),Y..+Z.DEY : BPL ZC4..+D.INC $42 :
LDA $60 : CMP $42..+N.BNE ZC5.S+X.LDA $5
F : STA $42..+..JMP EDIT..+..;..+..; ZS
STARTADRESSE ..., .;..,..B35 LDA .GI.',.
.CLC : ADC #$08.3,..STA .GI.?,H.JSR HEX.
L,R.JMP .KEY.R,..;.J,..; ZS STARTADRESSE
..P,..;..,..B36 LDA .GI..,..SEC : SBC #
$08..,..STA .GI..,..JSR HEX..,".JMP .KEY
..,,.;.Z,6.; ZEICHENSATZ TEXTPROBE..,@.;
..,J.B37 LDA SATZ.1:STA SATZ..-T.LDA #$0
0 : STA 53248.21.1-^.LDA #"." : JSR $FFD
2.C-H.TE2 JSR .CHAR.P-R.CMP #".".\-|.BEQ
TE1.J-..JSR $FFD2.V-..JMP TE2..-..TE1 L
DA #132 : STA SATZ..-..LDA #$01 : STA 53
248.21..-..JMP EDIT.A-..;..-B.; .EREN BE
REICH WAEHC..-L.;..-V.B38 STA BEREI.....
SEC : SBC #$31.....TAX.....LDA MEM,X.(..
.STA $F8.5...LDA .I,X.D...STA SATZ.1.R..
.JMP EDIT1.X.&.;.R.0.; MENU.SEITE WECHSE
LN.X.:.;...D.B40 LDA $43...N.CMP #$01...
X.BEQ MESC...B.LDA #$01...L.JMP MESC1.O.
V.MESC LDA #$0F.....MESC1 STA $43.....JS
R MENU.....JMP .KEY../..;../..; UNTERPR
OGRAMME../..;".................4/..;.Y/F
.; VERGROESSERTES ZEICHEN DRUCKEN.V/P.;
& CURS..ITI. ZWISCHEN.../Z.; SPEICHERN..
/..;../..ERNEU LDA $D3 : STA $45../..LDA
$D6 : STA $46.O/..JSR ZDRUCKEN../..LDA
$45 : STA $D3../..LDA $46 : STA $D6..0 .
JSR 58640..0*.JMP .KEY..04.;.A0>.; NR. E
INES ZWEITEN ZEICHENS EIN.G0H.;.^0R.ZWEI
IN JSR ZEICHEN.T0\.LDA $4E : STA $49..0F
.LDA $4F : STA $4A..0P.ZWEIIN1 LDA #16 :
STA $D3..0Z.LDA #16 : STA $D6.L0..JSR 5
8640..0..LDA #" " : STA STRING.1..1..STA
STRING.2 : STA STRING.3."1..LDA #$03 :
STA LAENGE.-1..JSR .1.:1..LDX #$03.R1..T
RANS LDA STRING,X.B1J.STA 41373,X.J1T.D
EX.X1..BNE TRANS..1..JSR DEZIMAL2..1..RT
S..1..;..1..; DEZIMALZAHL EINGEBEN.M1..;
& NACH HEX UMRECHNEN.S1..;..1$.DEZIMAL
LDA #$03 : STA LAENGE..1..JSR .."28.DEZI
MAL2 LDA $42 : STA COUNTER./2B.LDY #$02.
E2L.DEZI1 LDA 41374,Y.R2V.CMP #$20.`2`.B
NE DEZI2.H2J.DEY.T2T.BMI TAU..2~.BPL DEZ
I1..2..DEZI2 . #$0F..2..STA COUNTER..2..
DEY..2..BMI TAU.G2..LDA 41374,Y.R2... #$
0F.Z2D.TAX..2N.CPX #$00..2X.BEQ DEZI4..3
..DEZI3 LDA COUNTER..3..CLC. 3..ADC #$0A
.03..STA COUNTER.83..DEX.F3..BNE DEZI3.T
3..DEZI4 DEY.`3(.BMI TAU.P32.LDA 41374,Y
.{3<.. #$0F..3F.TAX..3P.CPX #$00..3Z.BEQ
TAU..3D.WAHL6 LDA COUNTER..3N.CLC.G3X.A
DC #100.W3..STA COUNTER..3..DEX..3..BNE
WAHL6..4 .TAU LDA COUNTER..4..RTS..4..;.
*4..; ADRESSE DES AKTUELC.D4H.; ZEICHE
NS ERRECHNEN.J4R.;.H4..ZEICHEN LDA $F7 :
STA $4E.~4..LDA $F8 : STA $4F..4..LDA #
$00..4..LDX #$00..4..ZEI1 CPX $42..4..BE
Q ZEI3.J4..CLC : ADC #$08.W4".BNE ZEI2.
.4,.INC $4F..46.ZEI2 INX..4@.JMP ZEI1..5
J.ZEI3 STA $4E..5T.RTS..5^.;.A5H.; ZEIC
HEN VERGROESSERT AUSGEBEN.G5R.;.`5|.ZDRU
CKEN JSR ZEICHEN.W5..LDA #$0A : STA $D6.
.5..LDA #$05 : STA $D3..5..JSR 58640..5.
.LDY #$00..5..STY $41.I5..SETBIT LDA #$8
0.U5B.STA $3C..5L..BIT LDA ($4E),Y..5V..
$3C..6..BNE PUNKT..6..LDA #" "..6..JMP
DRUCKE.16..PUNKT LDA #"Q".D6..DRUCKE STY
$41.R6..JSR $FFD2.^6..LDY $41.J6&.LDA $
3C.W60.CMP #$01..6:.BEQ CR..6D.LSR $3C..
6N.JMP .BIT..6X.CR INY..6B.CPY #$08..6L.
BEQ .P.J6V.STY $41.V6..INC $D6..6..LDA #
$05 : STA $D3..6..JSR 58640..7..LDY $41.
.7..JMP SETBIT.97...P LDY #.TEXT4 ;HI.BY
TE TEXT4.I7..LDA #.TEXT4.V7F.JSR ABDR.L
7P.LDA #55 : STA $01..7Z.LDX $42 : LDA #
$00..7..JSR $BDCD..7..LDA #54 : STA $01.
.7..JSR SPRI.N..7..RTS.D7..;..7..; ZEICH
EN IN SPRITE COPIEREN..7 .;..8*.SPRI.N L
DY #$07 : LDX #23./84.SPRITSE LDA ($4E),
Y : STA $A400,X.C8>.DEX : DEX : DEX.K8H.
DEY.[8R.BPL SPRITSE.C8\.RTS.I8F.;..8P.;
ZEICHENSATZ AUF BILDSCHIRM..8Z.; DRUCKEN
..8..;..8..ZSB LDA #$04 : STA $3D.P8..:
STA $3F..8..LDA #$A0 : STA $3E.
.8..LDA #$D8 : STA $40..9..LDX #$00..9..
ZSB1 LDY #$00.*9J.ZSB2 TXA.:9T.STA ($3D)
,Y.F9..CMP $42.S9..BNE ZSB4.`9..LDA #$00
.M9..JMP ZSB5.9..ZSB4 LDA #$09..9..ZSB5
STA ($3F),Y..9..INX..9$.INY..9..CPY #32
..98.BNE ZSB2.J9B.LDA #$28.R9L.CLC..9V.A
DC $3F..9`.STA $3F..9J.STA $3D..:T.BCC Z
SB3..:~.INC $3E..:..INC $40.-:..ZSB3 LDA
#$44.9:..CMP $3D.F:..BNE ZSB1.N:..RTS.T
:..;.H:D.; MENUE DRUCKEN.N:N.;..:X.MENU
LDA #.TEXT1 : STA $49..:..LDA #.TEXT1 :
STA $4A..:..LDA #$07 : STA 646.J:..LDX $
43.W:..LDY #$00..:..MENU1 LDA ($49),Y..:
..BNE MENU2..;..DEX..;(.BEQ MENU4.%;2.ME
NU2 JSR MENU3.3;<.JMP MENU1.G;F.MENU4 JS
R MENU3.^;P.LDA #$09 : STA $D6.{;Z.MENU5
LDA #$15 : STA $D3..;D.JSR 58640..;N.ME
NU6 LDY #$00..;X.LDA ($49),Y..;..BEQ MEN
U7.H;..JSR $FFD2.V;..JSR MENU3..; .JMP M
ENU6..;..MENU7 JSR MENU3..<..INC $D6..<.
.LDA #23..<H.CMP $D6.*<R.BNE MENU5.A<..L
DA #$00 : STA 646.^<..LDA $F9 : CLC : AD
C #$04.J<..STA $D3..<..LDA $FA : CLC : A
DC #$0A..<..STA $D6..<..JSR 58640..<..RT
S..<".MENU3 INC $49.I<,.BNE MENU9.U<6.IN
C $4A..<@.MENU9 RTS..<J.;..=T.; ZEICHEN
SATZ ROM .. RAM..=^.;.)=H.B32 LDY #$D0
: STY $60.@=R.LDY #$D8 : STY $5B._=|.ROM
RAM1 LDX #$00 : STX $5F.V=..LDX #$00 : S
TX $5A..=..LDX #$00 : STX $58..=..LDA $F
8..=..CLC : ADC #$08..=..STA $59..=..SEI
.W=B.LDA #$33 : STA $01..=L.JSR $A3BF..=
V.LDA #54 : STA $01..>..CLI..>..JMP EDIT
1..>..;.->..; DIREC.RY LESEN.3>. ;.M>.
B9 LDA #$17 : STA $D6.D>. LDA #$00 : STA
$D3.R>& JSR 58640..>0 LDX #.DIRE:STX $B
B. >: LDY #.DIRE:STY $BC..>D LDA #$01:ST
A $B7.B>N LDA #$08.N>X STA $BA..>B LDA #
$60..>L STA $B9..>V JSR $F3D5..?. LDA $B
A..?. JSR $FFB4..?. LDA $B9.)?. JSR $FF9
6.6?. LDA #$00.B?. STA $90.O?. LDY #$03.
`?F DIR1 STY $FB.N?P JSR $FFA5.Z?Z STA $
FC..?. LDY $90..?. BNE DIR4..?. JSR $FFA
5..?.!LDY $90..?.!BNE DIR4.F?.!LDY $FB.N
? !DEY..?*!BNE DIR1..?4!LDX $FC..?>!LDY
#55 : STY $01..@H!JSR $BDCD.!@R!LDA #54
: STA $01..@\!LDA #$20.<@F!JSR $FFD2.O@P
!DIR3 JSR $FFA5.[@Z!LDX $90.H@.!BNE DIR4
.P@.!TAX.}@.!BEQ DIR2..@.!JSR $FFD2..@.!
DIR7 JMP DIR3..@.!DIR2 LDY #$17 : STY $
D6.H@.!JSR .CHAR.U@J!CMP #$03..@T!BNE DI
R5..@.!JMP DIR4..A.!DIR5 LDA #13..A.!JSR
$FFD2..A.!LDY #$02.(A."BNE DIR1.;A."DIR
4 JSR $F642.HA."JMP EDIT.NA$";.EA.";
DISK . BEFEHL.KA8";..AB"B10 LDA #$17 : S
TA $D6..AL"LDA #$00 : STA $D3..AV"JSR 58
640.DA`"LDA #">" : JSR $FFD2..AJ"LDA #14
: STA LAENGE..AT"JSR ...A~"LDA #" "..B.
"CMP STRING.1..B."BEQ COM..1B."LDA #$01:
LDX #$08:LDY #$0F.OB."JSR $FFBA ; FILEPA
RAMETER.^B."LDA LAENGE.SB."LDX #.STRING:
INX..BD"LDY #.STRING..BN"JSR $FFBD ; FIC
AMENPARAMETER..BX"JSR $FFC0 ; ..YB."LDA
#$00 : STA 152 ; KANAL ZU..B."COM. JMP E
DIT..B.";..C.#;" DISK STATUS..C.#;.&C.#
B29 LDA #$17 : STA $D6.=C.#LDA #$00 : ST
A $D3.KC(#JSR 58640.BC2#LDA #$08 : STA $
BA.PC<#JSR $FFB4..CF#LDA #$6F : STA $B9.
.CP#JSR $FF96..CZ#STATUS1 JSR $FFA5..CD#
CMP #$0D.HCN#BEQ STATUS2.VCX#JSR $FFD2..
C.#JMP STATUS1..C.#STATUS2 JSR $FFAB..D.
#JSR .CHAR ;"TASTE ?.!D #JMP EDIT.'D.#;.
DD.#; CUS. BLINKT UND WARTET.ED.#; AUF E
INGABE EINES ZEICHENS..DH#; ZEICHEN WIRD
IM AKKU UEBERGEBEN..DR#;..D.#.CHAR LDA
#$00:STA 212..D.#LDA $C6.DD.#STA $CC.RD.
#STA $0292..D.$BEQ .CHAR ;"TASTE GEDRUEC
KT ?..D.$SEI..E.$LDA $CF./E"$BEQ PUFFER
;"CURSOR IN BLINKPHASE?.;E,$LDA $CE.IE6$
LDX $0287.VE@$LDY #$00.BEJ$STY $CF.PET$J
SR $EA13..E^$PUFFER JSR $E5B4..EH$RTS..E
R$;..E|$; . . ROUTINE..E.$;.DE.$. LDA
#" ":LDX #14..E.$FILLST STA STRING,X..E.
$DEX : BNE FILLST..F.$.1 LDX #$01:STX ST
ELLUNG."F.$TASTE JSR .CHAR.EFB$CMP #3
;" RUN STOP ?.OFL$BNE ..HFV$LDA
#$00 : STA $CED0.F.$LDA $02 : CMP #130.
.F.$BCC IN...F.$STA SATZ.1..F.$IN. JMP E
DIT.GF.%. CMP #13 ;" RETURN ?.VF.%BNE
RECHTS..F.%RTS..F&%RECHTS CMP #".";" R
ECHTS ?..G0%BNE LINKS..G:%LDX STELLUNG.-
GD%CPX LAENGE.;GN%BEQ TASTE.LGX%INC STEL
LUNG.XGB%INC $D3.FGL%JMP TASTE..GV%LINKS
CMP #".";" LINKS ?..G.%BNE NUM..G.
%LDA STELLUNG..G.%CMP #$01..G.%BEQ TASTE
.QG.%DEC STELLUNG..G.%DEC $D3..G.%JMP TA
STE..HF%NUM CMP #32 : BCC ALL..HP%CMP #9
6 : BCC AN.1HZ%CMP #160 : BCS AN.CH.%AL
L JMP TASTE.WH.%AN LDX STELLUNG.HH.%STA
STRING,X.YH.&INC STELLUNG..H.&JSR $FFD2.
.H.&LDA #$00 : STA 212..H &LDX LAENGE :
INX.KH*&CPX STELLUNG:BNE TW..H4&DEC STEL
LUNG:DEC $D3..H>&TW LDA #$DD..IH&CMP $CE
D0..IR&BNE TW2.&I\&LDA $A000 : STA $42.6
IF&JSR ZEICHEN.EIP&JSR SPRI.N.WIZ&TW2 JM
P TASTE.]I.&;.CI.&;.WI.&; .ERRUPT A.ERN.
}I.&;..I.&IRQEIN SEI..I.&LDA #$7F..I.&ST
A $DC0D..IJ&LDA #$01.BIT&STA $D01A.PI.&S
TA $D012..I.&STA $CEF0..I.&LDA #$1B..I.&
STA $D011..J.'LDA #.START..J.'STA $0314.
'J.'LDA #.START.5J$'STA $0315.=J.'CLI.EJ
8'RTS.KJB';.`JL'; .ERRUPTROUTINE.FJV';..
J`'START LDA $D019:STA $D019..JJ'. #$01.
.JT'BEQ ROM..J~'LDX $CEF0..J.'LDA SATZ,X
.FJ.'STA $D018.VJ.'LDA ZEILE,X..J.'STA $
D012..J.'DEX..J.'STX $CEF0..KD'BPL ...KN
'LDX #$01..KX'STX $CEF0.1K.'ROM JMP $EA3
1.;K.'. PLA.CK.'TAY.KK.(PLA.SK.(TAX.[K.(
PLA.CK.(RTI.IK((;..K2(; ROM AN & TEXT DR
UCKEN..K<(;..KF(ABDR PHA: LDA #55 : STA
$01:PLA..KP(JSR $AB1E.SKZ(LDA #54 : STA
$01..KD(RTS..KN(;..KX(; HEXADEZIMAL AUSD
RUCKEN..L.(;..L.(HEX LDA .GI.!L.(LDX #$0
0.8L (LSR :LSR :LSR :LSR.EL.(JSR MAKE.ML
.(INX.YL.(LDA .GI.ILH(MAKE . #$0F.VLR(CM
P #$0A..L.(BCS HEX1..L.(CLC..L.(ADC #48.
.L.(JMP HEX2..L.)HEX1 SEC..L.)SBC #$09.S
L.)HEX2 STA $A23F,X..L")RTS..L,);..L6);
TEXTE..L@);.1MJ)TEXT2 .BYTE 13,8 :.F "
................U..............I".XMT).B
YTE 13:.F "..... . . .".M^).BY
TE 13:.F "..... ......."..MH).BYT
E 13:.F "..... .B.# 1.".MMR).BYTE
13:.F "..... . ."..M|).BYTE
13:.F "..... .$0000."..N.).BYTE 1
3:.F "..... .......".BN.).BYTE 13
:.F "..... .2# .".IN.).BYTE 13:
.F "..... ......K"..N.).BYTE 13:.
F "....J........K"..N.).BYTE 13:.F "....
..CRSR/CLR/HOME".TN.).BYTE 13:.F "....CR
: P. SE/LOE"..NB).BYTE 0..NL);..NV);.%O.
)TEXT4 .F "......................... .
.." : .BYTE 0.+O.);.ZO.)TEXT5 .F "ZEICHE
NSATZ SPEICHERN" : .BYTE 0.`O.);..O.*TEX
T6 .F "ZEICHENSATZ LADEN" : .BYTE 0..O.*
;.ZO.*TEXT7 .BYTE 13 : .F ".........NAME
: .Z................"..O&*.
BYTE 0..O0*;..O:*;..OD*; DATEN..PN*;.MPX
*BEFEHLE .F "......;:..":.BYTE 13:.F "_^
.>,...IHCTVOD .@/...+-\12.="..PB*LOW .B
YTE .B1,.B2,.B3,.B4,.B5,.B6,.B7,.B8,.B9,
.B10..PL*.BYTE .B11,.B12,.B13,.B14,.B15,
.B16,.B17,.B18,.B19,.B20..PV*.BYTE .B21,
.B22,.B23,.B24,.B25,.B26,.B27,.B28,.B29,
.B30.8Q.*.BYTE .B31,.B32,.B33,.B34,.B35,
.B36,.B37,.B38,.B38,.B39.GQ.*.BYTE .B40.
}Q.*HI .BYTE .B1,.B2,.B3,.B4,.B5,.B6,.B7
,.B8,.B9,.B10..Q.*.BYTE .B11,.B12,.B13,.
B14,.B15,.B16,.B17,.B18,.B19,.B20..Q.*.B
YTE .B21,.B22,.B23,.B24,.B25,.B26,.B27,.
B28,.B29,.B30.1R.*.BYTE .B31,.B32,.B33,.
B34,.B35,.B36,.B37,.B38,.B38,.B39.@R.*.B
YTE .B40.XRF*MEM .BYTE 176,184.NRP*.I
.BYTE 140,142..RZ*.GI .BYTE 32..R.*ZEI
LE .BYTE 1,120..R.*SATZ .BYTE 132,140..
R.*DIRE .F "$".OR.+BEREI NOP..R.+COUN
TER .BYTE 0..R.+LAENGE .BYTE 0..S +STE
LLUNG .BYTE 0./S*+STRING .F "$
.Z".5S4+;.SS>+; .ZEILEN VON ZEICHENS
ATZ.YSH+;.KSR+B39 JSR RESET..S\+LDA $F7
: STA $45..SF+LDA $F8 : STA $46..SP+LD
A #$F6 : STA $4A.GSZ+LDA #$18 : STA $49.
.S.+DAMA1 LDA #.CUHO:LDY #.CUHO..S.+JSR
$AB1E..T.+LDX $49 : LDA $4A..T.+JSR $BDC
D.2T.+LDA #"D" : JSR $FFD2.KT.+LDA #"A"
: JSR $FFD2.XT.+LDY #$00.RTJ+DAMA2 LDA #
54:STA $01..TT+LDA ($45),Y:..T.+PHA:LDA
#55:STA $01:PLA..T.+TAX..T.+TYA : PHA.BT
.+LDA #$00.PT.,JSR $BDCD..T.,PLA : TAY..
T.,INY : CPY #$08..T$,BEQ DAMA3..U.,LDA
#"," : JSR $FFD2.&U8,JMP DAMA2.BUB,DAMA3
LDA #.. : LDY #...PUL,JSR $AB1E.PUV,LDA
#13 : STA 634 : STA 635..U`,LDA #$05: S
TA 198..UJ,RTS..UT,. INC $49..U~,BNE DA
MA4..U.,INC $4A.IU.,DAMA4 LDA $49.VU.,CM
P #$18..U.,BEQ DAMA6..U.,LDA $45..V.,CLC
: ADC #$08..VD,STA $45..VN,BCC DAMA5.)V
X,INC $46.=V.,DAMA5 JMP DAMA1.QV.,DAMA6
JMP $C000.WV.,;.|V.-. .BYTE 13:.F "SY520
48.":.BYTE 0..V.-CUHO .F "..." : .BYTE 0
..V.-;..V.-;..V(-;..V2-TEXT1 .BYTE 0:.F
"@/:; Z. WAEHLEN ":.BYTE 0..W<-.F ",:N
R. DEZ.EINGEBEN":.BYTE 0.$WF-.F ".:ZEICH
EN EINGEBEN":.BYTE 0.HWP-.F ">:INV. Z. E
INGEBEN":.BYTE 0.KWZ-.F "SPACE:P. LOESCH
EN":.BYTE 0..WD-.F "SH.SPACE:P. SETZEN":
.BYTE 0..WN-.F "^:HOCHROTIEREN ":.BYT
E 0.WWX-.F "_:LINKSROTIEREN ":.BYTE 0.
.W.-.F "I:INVENTIEREN ":.BYTE 0..X.-.F
"H:HORIZONTAL SPIE.":.BYTE 0.@X.-.F "V:
VERTIKAL SPIEG.":.BYTE 0.DX -.F "D:90' R
ECHTSDREHEN":.BYTE 0..X.-.F "C:Z. COPIER
EN":.BYTE 0..X.-.F "T:Z. TAUSCHEN":.BYTE
0.FX.-.F "O:OR-MIXEN ":.BYTE 0..
XH-.F "\:Z.-PROBE ":.BYTE 0..YR-.
F "+-:Z-ADRESSE AEND.":.BYTE 0.2Y.-.F "1
2:Z-SATZ TAUSCHEN":.BYTE 0.VY.-.F "F2:NO
R.Z. -> RAM ":.BYTE 0.YY.-.F "F4:KLE.Z.
-> RAM ":.BYTE 0..Y.-.F "F5:Z.IN AN.BER
EICH":.BYTE 0.AY...F "F7:DATAZEILEN ERS.
":.BYTE 0..Y...F "C= E:DISKSTATUS ":.B
YTE 0..Z...F "C= C:DISKBEFEHL ":.BYTE
0.,Z"..F "C= D:DIRECTORY ":.BYTE 0.PZ,
..F "C= S:Z. SPEICHERN ":.BYTE 0.OZ6..F
"C= L:Z. LADEN":.BYTE 0..Z@..F "
":.BYTE 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL