802 XT.─.
FILE INFORMATION
FILENAME(S): 802 XT.─.
FILE TYPE(S): PRG
FILE SIZE: 7.8K
FIRST SEEN: 2025-11-02 16:41:26
APPEARS ON: 2 disk(s)
FILE HASH
453f18734d4859d88b9046e3b9d96621ce44b06095179f7781ef19fd5b9a676e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15718 SEITE A | 802 XT.─. | PRG | Treasure Chest - PrettyOldPixel | 32 | 5 | DOWNLOAD FILE |
| 15718 SEITE A | 802 XT.─. | PRG | C64er, DuncanTwain | 32 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 03 00 9E 39 AC 34 30 39 36 00 19 08 |.......9.4096...|
00000010: 05 00 2E 4F 50 54 20 4F 4F 00 46 08 0A 00 49 4E |...OPT OO.F...IN|
00000020: 20 B2 20 24 45 45 38 33 3B 5A 45 49 43 48 45 4E | . $EE83;ZEICHEN|
00000030: 20 56 4F 4D 20 53 45 52 49 45 4C C3 20 50 B0 54 | VOM SERIEL. P.T|
00000040: 20 4C 45 53 45 4E 00 6F 08 14 00 4F 55 54 20 B2 | LESEN.o...OUT .|
00000050: 20 24 46 33 35 46 3B 5A 45 49 43 48 45 4E 20 49 | $F35F;ZEICHEN I|
00000060: 4E 20 41 55 53 47 41 42 45 50 55 46 46 45 52 00 |N AUSGABEPUFFER.|
00000070: 92 08 1E 00 80 20 B2 20 24 45 45 36 36 3B 53 41 |..... . $EE66;SA|
00000080: 20 42 45 41 52 42 45 49 54 55 4E 47 20 42 45 80 | BEARBEITUNG BE.|
00000090: 45 4E 00 B0 08 28 00 50 B0 54 20 B2 20 24 30 32 |EN...(.P.T . $02|
000000A0: 34 30 3B 4D 45 4D B0 59 20 4D 41 4E 41 47 45 52 |40;MEM.Y MANAGER|
000000B0: 00 DB 08 2D 00 3B AC AC AC AC AC AC AC AC 20 B0 |...-.;........ .|
000000C0: 49 47 49 4E 41 4C 20 42 45 54 52 49 45 42 53 9E |IGINAL BETRIEBS.|
000000D0: 54 45 4D 20 AC AC AC AC AC AC AC 00 FC 08 32 00 |TEM ..........2.|
000000E0: AC B2 20 24 34 34 30 30 20 3B 20 5A 45 49 43 48 |.. $4400 ; ZEICH|
000000F0: 45 4E 53 41 54 5A 20 41 80 45 52 4E 00 32 09 33 |ENSATZ A.ERN.2.3|
00000100: 00 2E 42 59 54 45 20 24 33 43 2C 24 34 30 2C 24 |..BYTE $3C,$40,$|
00000110: 38 43 2C 24 39 32 2C 24 39 45 2C 24 34 32 2C 24 |8C,$92,$9E,$42,$|
00000120: 33 43 2C 24 30 30 3B 4B 4C 41 4D 4D 45 52 41 46 |3C,$00;KLAMMERAF|
00000130: 46 45 00 3F 09 34 00 AC B2 20 24 34 38 35 38 00 |FE.?.4... $4858.|
00000140: 73 09 35 00 2E 42 59 54 45 20 24 46 45 2C 24 30 |s.5..BYTE $FE,$0|
00000150: 38 2C 24 31 34 2C 24 32 32 2C 24 30 30 2C 24 30 |8,$14,$22,$00,$0|
00000160: 30 2C 24 30 30 2C 24 30 30 3B 4B 4C 45 49 4E 45 |0,$00,$00;KLEINE|
00000170: 53 20 4B 00 92 09 3C 00 AC B2 20 24 34 41 37 39 |S K...<... $4A79|
00000180: 3B 52 4F 4D 20 43 48 45 43 4B 20 55 4D 47 45 48 |;ROM CHECK UMGEH|
00000190: 45 4E 00 9D 09 3D 00 42 4E 45 20 5A 31 00 AC 09 |EN...=.BNE Z1...|
000001A0: 3E 00 5A 31 20 49 4E 43 20 24 30 30 00 CA 09 46 |>.Z1 INC $00...F|
000001B0: 00 AC B2 20 24 34 41 42 31 3B 4D 45 4D B0 59 20 |... $4AB1;MEM.Y |
000001C0: 4D 41 4E 41 47 45 4D 45 4E 54 00 FC 09 47 00 4C |MANAGEMENT...G.L|
000001D0: 44 41 20 23 24 30 31 3B 42 49 54 20 30 20 53 45 |DA #$01;BIT 0 SE|
000001E0: 54 5A 45 4E 20 4F 48 4E 45 20 53 50 45 49 43 48 |TZEN OHNE SPEICH|
000001F0: 45 52 56 45 52 54 45 49 4C 55 4E 47 00 10 0A 48 |ERVERTEILUNG...H|
00000200: 00 4A 53 52 20 5A 39 3B 5A 55 20 41 80 45 52 4E |.JSR Z9;ZU A.ERN|
00000210: 00 36 0A 49 00 4A 53 52 20 24 45 43 36 31 3B 49 |.6.I.JSR $EC61;I|
00000220: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 44 45 |NITIALISIEREN DE|
00000230: 52 20 50 B0 54 53 00 54 0A 50 00 AC B2 20 24 35 |R P.TS.T.P... $5|
00000240: 42 30 32 3B 4D 45 4D B0 59 20 4D 41 4E 41 47 45 |B02;MEM.Y MANAGE|
00000250: 4D 45 4E 54 00 7A 0A 51 00 4C 44 41 20 50 B0 54 |MENT.z.Q.LDA P.T|
00000260: 3B 4C 4F 57 20 49 4D 50 55 4C 53 20 56 91 20 31 |;LOW IMPULS V. 1|
00000270: 32 20 54 41 4B 54 5A 59 4B C3 00 A4 0A 52 00 AF |2 TAKTZYK....R..|
00000280: 20 23 24 46 45 3B 20 41 55 46 20 42 49 54 20 30 | #$FE; AUF BIT 0|
00000290: 20 4C 45 47 45 4E 20 4F 48 4E 45 20 53 50 45 49 | LEGEN OHNE SPEI|
000002A0: 43 48 45 52 00 C5 0A 53 00 53 54 41 20 50 B0 54 |CHER...S.STA P.T|
000002B0: 3B 20 56 45 52 54 45 49 4C 55 4E 47 20 5A 55 20 |; VERTEILUNG ZU |
000002C0: 41 80 45 52 4E 00 D1 0A 54 00 B0 41 20 23 24 30 |A.ERN...T..A #$0|
000002D0: 31 00 DC 0A 55 00 4A 53 52 20 5A 32 00 02 0B 5A |1...U.JSR Z2...Z|
000002E0: 00 AC B2 20 24 35 44 30 31 3B AC AC AC 20 4D 45 |... $5D01;... ME|
000002F0: 4D B0 59 20 4D 41 4E 41 47 45 4D 45 4E 54 20 AC |M.Y MANAGEMENT .|
00000300: AC AC 00 10 0B 5B 00 5A 39 20 B0 41 20 50 B0 54 |.....[.Z9 .A P.T|
00000310: 00 1F 0B 5C 00 5A 32 20 53 54 41 20 50 B0 54 00 |...\.Z2 STA P.T.|
00000320: 27 0B 5D 00 52 54 53 00 52 0B 64 00 3B AC AC AC |'.].RTS.R.d.;...|
00000330: AC AC AC AC AC 20 53 50 45 5A 49 41 4C 20 42 45 |..... SPEZIAL BE|
00000340: 54 52 49 45 42 53 9E 54 45 4D 20 AC AC AC AC AC |TRIEBS.TEM .....|
00000350: AC AC 00 73 0B 65 00 AC B2 20 24 36 34 30 30 20 |...s.e... $6400 |
00000360: 3B 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 41 80 |; ZEICHENSATZ A.|
00000370: 45 52 4E 00 A9 0B 6E 00 2E 42 59 54 45 20 24 33 |ERN...n..BYTE $3|
00000380: 43 2C 24 34 30 2C 24 38 43 2C 24 39 32 2C 24 39 |C,$40,$8C,$92,$9|
00000390: 45 2C 24 34 32 2C 24 33 43 2C 24 30 30 3B 4B 4C |E,$42,$3C,$00;KL|
000003A0: 41 4D 4D 45 52 41 46 46 45 00 B6 0B 78 00 AC B2 |AMMERAFFE...x...|
000003B0: 20 24 36 38 35 38 00 EA 0B 82 00 2E 42 59 54 45 | $6858......BYTE|
000003C0: 20 24 46 45 2C 24 30 38 2C 24 31 34 2C 24 32 32 | $FE,$08,$14,$22|
000003D0: 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 |,$00,$00,$00,$00|
000003E0: 3B 4B 4C 45 49 4E 45 53 20 4B 00 09 0C 96 00 AC |;KLEINES K......|
000003F0: B2 20 24 36 41 37 39 3B 52 4F 4D 20 43 48 45 43 |. $6A79;ROM CHEC|
00000400: 4B 20 55 4D 47 45 48 45 4E 00 14 0C A0 00 42 4E |K UMGEHEN.....BN|
00000410: 45 20 49 31 00 23 0C AA 00 49 31 20 49 4E 43 20 |E I1.#...I1 INC |
00000420: 24 30 30 00 41 0C C8 00 AC B2 20 24 36 41 42 31 |$00.A..... $6AB1|
00000430: 3B 4D 45 4D B0 59 20 4D 41 4E 41 47 45 4D 45 4E |;MEM.Y MANAGEMEN|
00000440: 54 00 73 0C D2 00 4C 44 41 20 23 24 30 31 3B 42 |T.s...LDA #$01;B|
00000450: 49 54 20 30 20 53 45 54 5A 45 4E 20 4F 48 4E 45 |IT 0 SETZEN OHNE|
00000460: 20 53 50 45 49 43 48 45 52 56 45 52 54 45 49 4C | SPEICHERVERTEIL|
00000470: 55 4E 47 00 87 0C DC 00 4A 53 52 20 4A 39 3B 5A |UNG.....JSR J9;Z|
00000480: 55 20 41 80 45 52 4E 00 AD 0C E6 00 4A 53 52 20 |U A.ERN.....JSR |
00000490: 24 45 43 36 31 3B 49 4E 49 54 49 41 4C 49 53 49 |$EC61;INITIALISI|
000004A0: 45 52 45 4E 20 44 45 52 20 50 B0 54 53 00 C1 0C |EREN DER P.TS...|
000004B0: 2C 01 AC B2 20 24 36 42 42 45 3B 52 45 56 20 37 |,... $6BBE;REV 7|
000004C0: 58 00 D3 0C 36 01 2E 42 59 54 45 20 24 33 37 2C |X...6..BYTE $37,|
000004D0: 24 35 38 00 FA 0C 90 01 AC B2 20 24 36 44 32 43 |$58....... $6D2C|
000004E0: 3B 41 4E 5A 41 48 4C 20 44 45 52 20 5A 55 4C 41 |;ANZAHL DER ZULA|
000004F0: 45 53 53 49 47 45 4E 20 53 41 00 08 0D 9A 01 2E |ESSIGEN SA......|
00000500: 42 59 54 45 20 24 31 30 00 20 0D F4 01 AC B2 20 |BYTE $10. ..... |
00000510: 24 36 44 33 44 3B 53 41 20 54 41 42 45 4C 4C 45 |$6D3D;SA TABELLE|
00000520: 00 46 0D FE 01 2E 57 B0 44 20 4A 32 AB 31 2C 24 |.F....W.D J2.1,$|
00000530: 45 44 42 38 2C 24 45 44 42 42 2C 24 45 44 46 32 |EDB8,$EDBB,$EDF2|
00000540: 2C 24 45 45 30 30 00 6C 0D 08 02 2E 57 B0 44 20 |,$EE00.l....W.D |
00000550: 24 45 45 30 39 2C 24 45 45 32 32 2C 24 45 45 32 |$EE09,$EE22,$EE2|
00000560: 39 2C 4A 33 AB 31 2C 24 45 45 34 31 00 95 0D 12 |9,J3.1,$EE41....|
00000570: 02 2E 57 B0 44 20 24 45 45 34 41 2C 4A 34 AB 31 |..W.D $EE4A,J4.1|
00000580: 2C 4A 35 AB 31 2C 24 45 45 33 35 2C 4A 36 AB 31 |,J5.1,$EE35,J6.1|
00000590: 2C 4A 37 AB 31 00 C1 0D 58 02 AC B2 20 24 36 44 |,J7.1...X... $6D|
000005A0: 36 39 3B 41 42 46 52 41 47 45 20 41 55 46 20 4E |69;ABFRAGE AUF N|
000005B0: 45 55 45 20 53 54 45 55 45 52 5A 45 49 43 48 45 |EUE STEUERZEICHE|
000005C0: 4E 00 CC 0D 62 02 4A 53 52 20 4A 31 00 FC 0D BC |N...b.JSR J1....|
000005D0: 02 AC B2 20 24 36 45 33 36 3B 53 41 20 31 33 20 |... $6E36;SA 13 |
000005E0: 53 50 45 49 43 48 45 52 56 45 52 54 45 49 4C 55 |SPEICHERVERTEILU|
000005F0: 4E 47 20 46 45 53 54 4C 45 47 45 4E 00 11 0E C6 |NG FESTLEGEN....|
00000600: 02 4C 44 41 20 24 36 34 3B 43 4F 44 45 20 48 4F |.LDA $64;CODE HO|
00000610: C3 00 37 0E D0 02 B0 41 20 23 30 31 3B 42 49 54 |..7....A #01;BIT|
00000620: 20 30 20 4D 55 53 53 20 47 45 53 45 54 5A 54 20 | 0 MUSS GESETZT |
00000630: 42 4C 45 49 42 45 4E 00 3F 0E DA 02 4E 4F 50 00 |BLEIBEN.?...NOP.|
00000640: 47 0E E4 02 4E 4F 50 00 64 0E EE 02 53 54 41 20 |G...NOP.d...STA |
00000650: 50 B0 54 3B 53 45 4C 45 4B 54 49 91 20 47 55 45 |P.T;SELEKTI. GUE|
00000660: 4C 54 49 47 00 89 0E F8 02 4A 4D 50 20 80 3B 4D |LTIG.....JMP .;M|
00000670: 55 53 53 20 55 4E 42 45 44 49 4E 47 54 20 48 49 |USS UNBEDINGT HI|
00000680: 45 52 20 53 54 45 48 45 4E 00 A8 0E 20 03 AC B2 |ER STEHEN... ...|
00000690: 20 24 37 36 36 30 3B 50 41 50 45 52 46 45 45 44 | $7660;PAPERFEED|
000006A0: 20 52 4F 55 54 49 4E 45 00 C1 0E 2A 03 4A 4D 50 | ROUTINE...*.JMP|
000006B0: 20 4A 38 3B 5A 55 52 20 45 52 57 45 49 54 45 8A | J8;ZUR ERWEITE.|
000006C0: 47 00 C9 0E 34 03 4E 4F 50 00 E7 0E 84 03 AC B2 |G...4.NOP.......|
000006D0: 20 24 37 42 30 32 3B 4D 45 4D B0 59 20 4D 41 4E | $7B02;MEM.Y MAN|
000006E0: 41 47 45 4D 45 4E 54 00 0D 0F 8E 03 4C 44 41 20 |AGEMENT.....LDA |
000006F0: 50 B0 54 3B 4C 4F 57 20 49 4D 50 55 4C 53 20 56 |P.T;LOW IMPULS V|
00000700: 91 20 31 32 20 54 41 4B 54 5A 59 4B C3 00 37 0F |. 12 TAKTZYK..7.|
00000710: 98 03 AF 20 23 24 46 45 3B 20 41 55 46 20 42 49 |... #$FE; AUF BI|
00000720: 54 20 30 20 4C 45 47 45 4E 20 4F 48 4E 45 20 53 |T 0 LEGEN OHNE S|
00000730: 50 45 49 43 48 45 52 00 58 0F A2 03 53 54 41 20 |PEICHER.X...STA |
00000740: 50 B0 54 3B 20 56 45 52 54 45 49 4C 55 4E 47 20 |P.T; VERTEILUNG |
00000750: 5A 55 20 41 80 45 52 4E 00 64 0F AC 03 B0 41 20 |ZU A.ERN.d....A |
00000760: 23 24 30 31 00 6F 0F B6 03 4A 53 52 20 41 31 00 |#$01.o...JSR A1.|
00000770: 95 0F E8 03 AC B2 20 24 37 44 30 31 3B AC AC AC |...... $7D01;...|
00000780: 20 4D 45 4D B0 59 20 4D 41 4E 41 47 45 4D 45 4E | MEM.Y MANAGEMEN|
00000790: 54 20 AC AC AC 00 A3 0F F2 03 4A 39 20 B0 41 20 |T ........J9 .A |
000007A0: 50 B0 54 00 B2 0F FC 03 41 31 20 53 54 41 20 50 |P.T.....A1 STA P|
000007B0: B0 54 00 BA 0F 06 04 52 54 53 00 D1 0F 4C 04 3B |.T.....RTS...L.;|
000007C0: AC AC AC 20 50 41 50 45 52 46 45 45 44 20 AC AC |... PAPERFEED ..|
000007D0: AC 00 EB 0F 56 04 4A 38 20 4C 44 41 20 24 36 30 |....V.J8 LDA $60|
000007E0: 3B 50 41 47 49 4E 47 20 4F 46 46 00 0C 10 60 04 |;PAGING OFF...`.|
000007F0: 42 4D 49 20 42 31 3B 4A 41 2C 20 44 41 4E 4E 20 |BMI B1;JA, DANN |
00000800: 4E 45 55 45 20 52 4F 55 54 49 4E 45 00 2A 10 6A |NEUE ROUTINE.*.j|
00000810: 04 4A 4D 50 20 24 46 36 36 34 3B 53 91 53 54 20 |.JMP $F664;S.ST |
00000820: 57 49 45 20 47 45 48 41 42 54 00 57 10 74 04 42 |WIE GEHABT.W.t.B|
00000830: 31 20 4C 44 41 20 23 24 46 46 3B 56 B0 53 43 48 |1 LDA #$FF;V.SCH|
00000840: 55 42 20 56 91 20 32 35 35 20 5A 45 49 C3 20 41 |UB V. 255 ZEI. A|
00000850: 4E 53 A4 53 53 45 4E 00 65 10 7E 04 4A 53 52 20 |NS.SSEN.e.~.JSR |
00000860: 24 46 36 34 36 00 72 10 88 04 4C 44 41 20 23 24 |$F646.r...LDA #$|
00000870: 30 38 00 9C 10 92 04 42 32 20 42 49 54 20 24 30 |08.....B2 BIT $0|
00000880: 32 38 30 3B 50 41 50 45 52 46 45 45 44 54 41 53 |280;PAPERFEEDTAS|
00000890: 54 45 20 47 45 44 52 55 45 43 4B 54 00 BE 10 9C |TE GEDRUECKT....|
000008A0: 04 42 45 51 20 42 32 3B 4A 41 2C 20 44 41 4E 4E |.BEQ B2;JA, DANN|
000008B0: 20 57 45 49 54 45 52 20 57 41 52 54 45 4E 00 DF | WEITER WARTEN..|
000008C0: 10 A6 04 4C 44 41 20 23 24 30 30 3B 53 91 53 54 |...LDA #$00;S.ST|
000008D0: 20 4D 4F A4 52 20 41 42 57 55 45 52 47 45 4E 00 | MO.R ABWUERGEN.|
000008E0: EB 10 B0 04 53 54 41 20 24 39 32 00 F3 10 BA 04 |....STA $92.....|
000008F0: 52 54 53 00 0E 11 14 05 3B AC AC AC 20 41 4E 46 |RTS.....;... ANF|
00000900: 41 4E 47 20 56 91 20 53 41 30 20 AC AC AC 00 3A |ANG V. SA0 ....:|
00000910: 11 1E 05 4A 32 20 4C 44 41 20 24 36 34 3B 57 49 |...J2 LDA $64;WI|
00000920: 45 20 42 49 53 48 45 52 2C 20 4D 55 53 53 54 45 |E BISHER, MUSSTE|
00000930: 20 4E 55 52 20 50 4C 41 54 5A 00 67 11 28 05 42 | NUR PLATZ.g.(.B|
00000940: 49 54 20 24 30 32 30 32 3B 46 55 45 52 20 53 41 |IT $0202;FUER SA|
00000950: AB 54 41 42 45 4C C3 45 52 57 45 49 54 45 8A 47 |.TABEL.ERWEITE.G|
00000960: 20 4D 41 43 48 45 4E 00 72 11 32 05 42 50 4C 20 | MACHEN.r.2.BPL |
00000970: 43 31 00 7F 11 3C 05 4C 44 59 20 23 24 30 30 00 |C1...<.LDY #$00.|
00000980: 8B 11 46 05 53 54 59 20 24 38 37 00 9C 11 50 05 |..F.STY $87...P.|
00000990: 43 31 20 4A 4D 50 20 24 45 44 35 45 00 C1 11 78 |C1 JMP $ED5E...x|
000009A0: 05 3B AC AC AC 20 53 41 38 20 57 45 49 4C 20 44 |.;... SA8 WEIL D|
000009B0: B0 54 20 4A 45 54 5A 54 20 53 41 31 33 20 AC AC |.T JETZT SA13 ..|
000009C0: AC 00 D2 11 82 05 4A 33 20 42 49 54 20 24 30 32 |......J3 BIT $02|
000009D0: 30 32 00 DD 11 8C 05 42 4D 49 20 44 31 00 EA 11 |02.....BMI D1...|
000009E0: 96 05 4C 44 41 20 23 24 30 30 00 F6 11 A0 05 53 |..LDA #$00.....S|
000009F0: 54 41 20 24 38 37 00 03 12 AA 05 44 31 20 4A 4D |TA $87.....D1 JM|
00000A00: 50 20 80 00 21 12 DC 05 3B AC AC AC 20 53 41 31 |P ..!...;... SA1|
00000A10: 31 20 52 4F 4D 20 49 4E 53 20 52 41 4D 20 AC AC |1 ROM INS RAM ..|
00000A20: AC 00 4B 12 E6 05 4A 34 20 4C 44 59 20 23 24 30 |..K...J4 LDY #$0|
00000A30: 30 3B 4B 4F 50 49 45 52 45 4E 20 56 91 20 45 34 |0;KOPIEREN V. E4|
00000A40: 30 30 20 42 49 53 20 46 46 46 46 00 60 12 F0 05 |00 BIS FFFF.`...|
00000A50: 53 54 59 20 24 38 30 3B 20 4C 4F 57 42 59 54 45 |STY $80; LOWBYTE|
00000A60: 00 6D 12 FA 05 4C 44 41 20 23 24 45 34 00 83 12 |.m...LDA #$E4...|
00000A70: 04 06 53 54 41 20 24 38 31 3B 20 48 49 47 48 42 |..STA $81; HIGHB|
00000A80: 59 54 45 00 A0 12 0E 06 45 31 20 4C 44 41 20 28 |YTE.....E1 LDA (|
00000A90: 24 38 30 29 2C 59 3B 52 4F 4D 20 4C 45 53 45 4E |$80),Y;ROM LESEN|
00000AA0: 00 D4 12 18 06 53 54 41 20 28 24 38 30 29 2C 59 |.....STA ($80),Y|
00000AB0: 3B 49 4E 20 52 41 4D 20 53 43 48 52 45 49 42 45 |;IN RAM SCHREIBE|
00000AC0: 4E 2C 20 55 4D 53 43 48 41 4C 54 55 4E 47 20 44 |N, UMSCHALTUNG D|
00000AD0: 55 52 43 48 00 EF 12 22 06 49 4E 59 3B 20 20 20 |URCH...".INY; |
00000AE0: 20 20 4D 45 4D B0 59 20 4D 41 4E 41 47 45 52 00 | MEM.Y MANAGER.|
00000AF0: FA 12 2C 06 42 4E 45 20 45 31 00 06 13 36 06 49 |..,.BNE E1...6.I|
00000B00: 4E 43 20 24 38 31 00 11 13 40 06 42 4E 45 20 45 |NC $81...@.BNE E|
00000B10: 31 00 1C 13 4A 06 42 45 51 20 44 31 00 3F 13 A4 |1...J.BEQ D1.?..|
00000B20: 06 3B AC AC AC 20 53 41 31 32 20 49 4E 20 52 41 |.;... SA12 IN RA|
00000B30: 4D 20 53 43 48 52 45 49 42 45 4E 20 AC AC AC 00 |M SCHREIBEN ....|
00000B40: 6D 13 AE 06 4A 35 20 4C 44 41 20 24 36 34 3B 4C |m...J5 LDA $64;L|
00000B50: 4F 57 42 59 54 45 20 44 45 52 20 41 4E 46 41 4E |OWBYTE DER ANFAN|
00000B60: 47 53 41 44 52 45 53 53 45 20 48 4F C3 00 79 13 |GSADRESSE HO..y.|
00000B70: B8 06 53 54 41 20 24 37 45 00 91 13 C2 06 4A 53 |..STA $7E.....JS|
00000B80: 52 20 49 4E 3B 48 49 47 48 42 59 54 45 20 48 4F |R IN;HIGHBYTE HO|
00000B90: C3 00 BB 13 CC 06 42 56 53 20 46 31 3B 53 43 48 |......BVS F1;SCH|
00000BA0: 91 20 AF 45 52 45 20 53 41 20 20 20 4A 41 2C 20 |. .ERE SA JA, |
00000BB0: 44 41 4E 4E 20 46 45 48 4C 45 52 00 C7 13 D6 06 |DANN FEHLER.....|
00000BC0: 4C 44 41 20 24 36 34 00 D3 13 E0 06 53 54 41 20 |LDA $64.....STA |
00000BD0: 24 37 46 00 EF 13 EA 06 46 33 20 4A 53 52 20 49 |$7F.....F3 JSR I|
00000BE0: 4E 3B 5A 45 49 43 48 45 4E 20 4C 45 53 45 4E 00 |N;ZEICHEN LESEN.|
00000BF0: 11 14 F4 06 42 56 53 20 46 32 3B 80 45 2C 20 57 |....BVS F2;.E, W|
00000C00: 45 4E 4E 20 4E 45 55 45 20 53 41 20 4B 4F 4D 4D |ENN NEUE SA KOMM|
00000C10: 54 00 1D 14 FE 06 4C 44 41 20 24 36 34 00 2A 14 |T.....LDA $64.*.|
00000C20: 08 07 4C 44 58 20 23 24 30 30 00 49 14 12 07 53 |..LDX #$00.I...S|
00000C30: 54 41 20 28 24 37 45 2C 58 29 3B 5A 45 49 43 48 |TA ($7E,X);ZEICH|
00000C40: 45 4E 20 49 4E 20 52 41 4D 00 55 14 1C 07 49 4E |EN IN RAM.U...IN|
00000C50: 43 20 24 37 45 00 72 14 26 07 42 4E 45 20 46 33 |C $7E.r.&.BNE F3|
00000C60: 3B 4E 41 45 43 48 53 54 45 53 20 5A 45 49 43 48 |;NAECHSTES ZEICH|
00000C70: 45 4E 00 7E 14 30 07 49 4E 43 20 24 37 46 00 9B |EN.~.0.INC $7F..|
00000C80: 14 3A 07 42 4E 45 20 46 33 3B 4E 41 45 43 48 53 |.:.BNE F3;NAECHS|
00000C90: 54 45 53 20 5A 45 49 43 48 45 4E 00 BC 14 44 07 |TES ZEICHEN...D.|
00000CA0: 4A 4D 50 20 24 45 44 32 33 3B 52 41 4D A4 50 20 |JMP $ED23;RAM.P |
00000CB0: 45 52 52 45 49 43 48 54 2C 20 80 45 00 DC 14 4E |ERREICHT, .E...N|
00000CC0: 07 46 31 20 4A 4D 50 20 24 45 45 38 30 3B 54 45 |.F1 JMP $EE80;TE|
00000CD0: 52 4D 49 4E 41 A4 52 20 45 52 52 B0 00 FB 14 58 |RMINA.R ERR....X|
00000CE0: 07 46 32 20 4A 4D 50 20 24 45 44 32 36 3B 52 45 |.F2 JMP $ED26;RE|
00000CF0: 47 55 4C 41 45 52 45 53 20 80 45 00 1A 15 B8 0B |GULAERES .E.....|
00000D00: 3B AC AC AC 20 53 41 31 34 20 38 42 49 54 20 47 |;... SA14 8BIT G|
00000D10: 52 41 50 48 49 4B 20 AC AC AC 00 29 15 C2 0B 4A |RAPHIK ....)...J|
00000D20: 36 20 4C 44 41 20 50 B0 54 00 34 15 CC 0B AF 20 |6 LDA P.T.4.... |
00000D30: 23 24 45 46 00 66 15 D6 0B 53 54 41 20 50 B0 54 |#$EF.f...STA P.T|
00000D40: 3B 52 41 4D 20 49 4D 20 5A 45 49 43 48 45 4E 53 |;RAM IM ZEICHENS|
00000D50: 41 54 5A 42 45 52 45 49 43 48 20 45 49 4E 53 43 |ATZBEREICH EINSC|
00000D60: 48 41 4C 54 45 4E 00 73 15 E0 0B 4C 44 41 20 23 |HALTEN.s...LDA #|
00000D70: 24 31 32 00 9E 15 EA 0B 53 54 41 20 24 45 39 46 |$12.....STA $E9F|
00000D80: 45 3B 47 52 41 50 48 49 4B 80 45 41 4E 81 44 45 |E;GRAPHIK.EAN.DE|
00000D90: 8A 47 20 52 55 45 43 4B 53 45 54 5A 45 4E 00 BB |.G RUECKSETZEN..|
00000DA0: 15 FE 0B 4B 31 20 4C 44 41 20 24 36 34 3B 5A 45 |...K1 LDA $64;ZE|
00000DB0: 49 43 48 45 4E 20 4C 41 44 45 4E 00 EA 15 08 0C |ICHEN LADEN.....|
00000DC0: 4A 53 52 20 48 33 3B 55 4E 44 20 44 45 52 20 47 |JSR H3;UND DER G|
00000DD0: 52 41 50 48 49 4B 52 4F 55 54 49 4E 45 20 55 45 |RAPHIKROUTINE UE|
00000DE0: 42 45 52 52 45 49 43 48 45 4E 00 10 16 3A 0C 4B |BERREICHEN...:.K|
00000DF0: 32 20 4A 53 52 20 49 4E 3B 4E 41 45 43 48 53 54 |2 JSR IN;NAECHST|
00000E00: 45 53 20 5A 45 49 43 48 45 4E 20 41 42 48 4F C3 |ES ZEICHEN ABHO.|
00000E10: 00 43 16 44 0C 42 56 43 20 4B 31 3B 4E 45 55 45 |.C.D.BVC K1;NEUE|
00000E20: 20 53 41 20 20 20 20 20 20 20 4E 45 49 4E 2C 20 | SA NEIN, |
00000E30: 44 41 4E 4E 20 57 45 49 54 45 52 20 47 52 41 50 |DANN WEITER GRAP|
00000E40: 48 49 4B 00 68 16 58 0C 4C 44 59 20 23 24 38 44 |HIK.h.X.LDY #$8D|
00000E50: 3B 53 91 53 54 20 88 5A 54 45 20 5A 45 49 4C 45 |;S.ST .ZTE ZEILE|
00000E60: 20 44 52 55 43 4B 45 4E 00 73 16 62 0C 4A 53 52 | DRUCKEN.s.b.JSR|
00000E70: 20 48 36 00 92 16 6C 0C 4B 33 20 4C 44 41 20 24 | H6...l.K3 LDA $|
00000E80: 37 41 3B 53 43 48 91 20 41 55 46 20 50 41 50 49 |7A;SCH. AUF PAPI|
00000E90: 45 52 00 AF 16 76 0C 42 4E 45 20 4B 33 3B 4E 45 |ER...v.BNE K3;NE|
00000EA0: 49 4E 2C 20 44 41 4E 4E 20 57 41 52 54 45 4E 00 |IN, DANN WARTEN.|
00000EB0: DC 16 80 0C 4C 44 41 20 50 B0 54 3B 53 91 53 54 |....LDA P.T;S.ST|
00000EC0: 20 52 4F 4D 20 5A 45 49 43 48 45 4E 53 41 54 5A | ROM ZEICHENSATZ|
00000ED0: 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 E8 16 8A | EINSCHALTEN....|
00000EE0: 0C B0 41 20 23 24 31 30 00 F4 16 94 0C 53 54 41 |..A #$10.....STA|
00000EF0: 20 50 B0 54 00 05 17 D0 0C 4A 4D 50 20 24 45 44 | P.T.....JMP $ED|
00000F00: 32 36 3B 80 45 00 25 17 A0 0F 3B AC AC AC 20 37 |26;.E.%...;... 7|
00000F10: 42 49 54 AB 47 52 41 50 48 49 4B 20 20 C7 28 38 |BIT.GRAPHIK .(8|
00000F20: 29 20 AC AC AC 00 52 17 AA 0F 4A 31 20 43 4D 50 |) ....R...J1 CMP|
00000F30: 20 23 24 30 38 3B C7 28 38 29 20 B2 20 47 52 41 | #$08;.(8) . GRA|
00000F40: 50 48 49 4B 20 45 49 4E 20 45 4D 50 46 41 4E 47 |PHIK EIN EMPFANG|
00000F50: 45 4E 00 7A 17 B4 0F 42 4E 45 20 48 31 3B 4E 45 |EN.z...BNE H1;NE|
00000F60: 49 4E 20 44 41 4E 4E 20 57 45 49 54 45 52 20 55 |IN DANN WEITER U|
00000F70: 4E 54 45 52 53 55 43 48 45 4E 00 A9 17 BE 0F 4C |NTERSUCHEN.....L|
00000F80: 44 41 20 50 B0 54 3B 53 91 53 54 20 52 41 4D 20 |DA P.T;S.ST RAM |
00000F90: 49 4D 20 5A 45 49 43 48 45 4E 53 41 54 5A 42 45 |IM ZEICHENSATZBE|
00000FA0: 52 45 49 43 48 20 45 49 4E 00 B4 17 C8 0F AF 20 |REICH EIN...... |
00000FB0: 23 24 45 46 00 C0 17 D2 0F 53 54 41 20 50 B0 54 |#$EF.....STA P.T|
00000FC0: 00 E8 17 D4 0F 4C 44 41 20 23 24 30 30 3B 53 4B |.....LDA #$00;SK|
00000FD0: 49 50 20 53 50 41 43 45 20 49 4D 20 52 41 4D 20 |IP SPACE IM RAM |
00000FE0: 4C 4F 45 53 43 48 45 4E 00 18 18 D6 0F 4C 44 58 |LOESCHEN.....LDX|
00000FF0: 20 23 24 30 37 3B 20 20 20 20 20 44 41 4D 49 54 | #$07; DAMIT|
00001000: 20 54 41 42 55 4C 41 A4 52 46 55 4E 4B 54 49 91 | TABULA.RFUNKTI.|
00001010: 20 41 55 43 48 20 49 4D 00 44 18 D8 0F 48 30 20 | AUCH IM.D...H0 |
00001020: 53 54 41 20 24 30 39 30 30 2C 58 3B 47 52 41 50 |STA $0900,X;GRAP|
00001030: 48 49 4B 4D 4F 44 55 53 20 46 55 4E 4B 54 49 91 |HIKMODUS FUNKTI.|
00001040: 49 45 52 54 00 4C 18 DA 0F 44 45 58 00 57 18 DB |IERT.L...DEX.W..|
00001050: 0F 42 50 4C 20 48 30 00 7F 18 DC 0F 4C 44 41 20 |.BPL H0.....LDA |
00001060: 23 24 31 32 3B 5A 45 49 C3 B6 C0 44 20 47 52 41 |#$12;ZEI...D GRA|
00001070: 50 48 49 4B 4B 91 81 4D 20 53 45 54 5A 45 4E 00 |PHIKK..M SETZEN.|
00001080: 8B 18 E6 0F 53 54 41 20 24 38 36 00 B6 18 F0 0F |....STA $86.....|
00001090: 53 54 41 20 24 45 39 46 45 3B 47 52 41 50 48 49 |STA $E9FE;GRAPHI|
000010A0: 4B 80 45 41 4E 81 44 45 8A 47 20 52 55 45 43 4B |K.EAN.DE.G RUECK|
000010B0: 53 45 54 5A 45 4E 00 DA 18 FA 0F 53 54 41 20 24 |SETZEN.....STA $|
000010C0: 45 39 46 46 3B 47 52 41 50 48 49 4B 4D 4F 44 55 |E9FF;GRAPHIKMODU|
000010D0: 53 20 41 4E 5A 45 49 47 45 4E 00 F1 18 04 10 52 |S ANZEIGEN.....R|
000010E0: 54 53 3B 5A 55 52 55 45 43 4B 20 5A 55 20 53 41 |TS;ZURUECK ZU SA|
000010F0: 30 00 18 19 36 10 48 31 20 4C 44 58 20 24 45 39 |0...6.H1 LDX $E9|
00001100: 46 46 3B 47 52 41 50 48 49 4B 20 45 49 4E 47 45 |FF;GRAPHIK EINGE|
00001110: 53 43 48 41 4C 54 45 54 00 25 19 40 10 43 50 58 |SCHALTET.%.@.CPX|
00001120: 20 23 24 31 32 00 49 19 4A 10 42 45 51 20 48 32 | #$12.I.J.BEQ H2|
00001130: 3B 4A 41 2C 20 44 41 4E 4E 20 47 52 41 50 48 49 |;JA, DANN GRAPHI|
00001140: 4B 42 45 48 AF 4C 55 4E 47 00 6E 19 54 10 4A 4D |KBEH.LUNG.n.T.JM|
00001150: 50 20 4F 55 54 3B 53 91 53 54 20 41 55 53 47 41 |P OUT;S.ST AUSGA|
00001160: 42 45 20 57 49 45 20 47 45 57 4F 48 4E 54 00 95 |BE WIE GEWOHNT..|
00001170: 19 5E 10 48 32 20 43 4D 50 20 23 24 38 30 3B 49 |.^.H2 CMP #$80;I|
00001180: 53 54 53 20 45 49 4E 20 53 54 45 55 45 52 5A 45 |STS EIN STEUERZE|
00001190: 49 43 48 45 4E 00 AD 19 63 10 AF 20 23 24 37 46 |ICHEN...c.. #$7F|
000011A0: 3B 4D 53 42 20 4C 4F 45 53 43 48 45 4E 00 D7 19 |;MSB LOESCHEN...|
000011B0: 68 10 42 43 53 20 48 33 3B 41 4C 53 20 47 52 41 |h.BCS H3;ALS GRA|
000011C0: 50 48 49 4B 5A 45 49 43 48 45 4E 20 56 45 52 41 |PHIKZEICHEN VERA|
000011D0: 52 42 45 49 54 45 4E 00 EA 19 72 10 43 4D 50 20 |RBEITEN...r.CMP |
000011E0: 23 24 30 45 3B C7 28 31 34 29 00 13 1A 7C 10 42 |#$0E;.(14)...|.B|
000011F0: 45 51 20 48 34 3B 4A 41 2C 20 44 41 4E 4E 20 47 |EQ H4;JA, DANN G|
00001200: 52 41 50 48 49 4B 80 45 20 42 45 41 4E 54 52 41 |RAPHIK.E BEANTRA|
00001210: 47 45 4E 00 26 1A 86 10 43 4D 50 20 23 24 30 46 |GEN.&...CMP #$0F|
00001220: 3B C7 28 31 35 29 00 4F 1A 90 10 42 4E 45 20 48 |;.(15).O...BNE H|
00001230: 35 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 49 |5;NEIN, DANN WEI|
00001240: 54 45 52 20 55 4E 54 45 52 53 55 43 48 45 4E 00 |TER UNTERSUCHEN.|
00001250: 72 1A 9A 10 48 34 20 53 54 41 20 24 45 39 46 45 |r...H4 STA $E9FE|
00001260: 3B 47 52 41 50 48 49 4B 80 45 20 41 4E 81 44 45 |;GRAPHIK.E AN.DE|
00001270: 52 4E 00 7F 1A A4 10 4C 44 41 20 23 24 32 34 00 |RN.....LDA #$24.|
00001280: 9E 1A AE 10 53 54 41 20 24 38 36 3B 5A 45 49 C3 |....STA $86;ZEI.|
00001290: B6 C0 44 20 4B B0 52 49 47 49 45 52 45 4E 00 B5 |..D K.RIGIEREN..|
000012A0: 1A B8 10 52 54 53 3B 57 45 49 54 45 52 20 4D 49 |...RTS;WEITER MI|
000012B0: 54 20 53 41 30 00 D5 1A CC 10 48 36 20 4C 44 41 |T SA0.....H6 LDA|
000012C0: 20 24 38 32 3B 5A 45 49 4C 45 20 B6 43 48 4C 49 | $82;ZEILE .CHLI|
000012D0: 45 53 53 45 4E 00 01 1B D6 10 42 45 51 20 48 37 |ESSEN.....BEQ H7|
000012E0: 3B 5A 41 48 4C 20 44 45 52 20 53 50 41 4C 54 45 |;ZAHL DER SPALTE|
000012F0: 4E 20 44 55 52 43 48 20 38 20 54 45 49 4C 42 41 |N DURCH 8 TEILBA|
00001300: 52 00 33 1B E0 10 48 38 20 4C 44 41 20 23 24 30 |R.3...H8 LDA #$0|
00001310: 30 3B 53 91 53 54 20 41 55 46 20 47 41 4E 5A 45 |0;S.ST AUF GANZE|
00001320: 53 20 5A 45 49 43 48 45 4E 20 45 52 47 41 45 4E |S ZEICHEN ERGAEN|
00001330: 5A 45 4E 00 3E 1B EA 10 4A 53 52 20 48 33 00 4A |ZEN.>...JSR H3.J|
00001340: 1B F4 10 4C 44 41 20 24 38 32 00 55 1B FE 10 42 |...LDA $82.U...B|
00001350: 4E 45 20 48 38 00 79 1B 08 11 48 37 20 53 54 41 |NE H8.y...H7 STA|
00001360: 20 24 38 30 3B 52 45 47 49 53 54 45 52 20 52 55 | $80;REGISTER RU|
00001370: 45 43 4B 53 45 54 5A 45 4E 00 85 1B 12 11 53 54 |ECKSETZEN.....ST|
00001380: 41 20 24 38 31 00 91 1B 1C 11 53 54 41 20 24 38 |A $81.....STA $8|
00001390: 33 00 99 1B 26 11 54 59 41 00 BA 1B 30 11 4A 53 |3...&.TYA...0.JS|
000013A0: 52 20 4F 55 54 3B 5A 45 49 C3 80 45 20 53 49 47 |R OUT;ZEI..E SIG|
000013B0: 4E 41 4C 49 53 49 45 52 45 4E 00 C8 1B 3A 11 4C |NALISIEREN...:.L|
000013C0: 44 41 20 24 45 39 46 45 00 E9 1B 44 11 43 4D 50 |DA $E9FE...D.CMP|
000013D0: 20 23 24 31 32 3B 47 52 41 50 48 49 4B 80 45 20 | #$12;GRAPHIK.E |
000013E0: 41 4E 47 45 81 44 45 52 54 00 0E 1C 4E 11 42 45 |ANGE.DERT...N.BE|
000013F0: 51 20 48 39 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 |Q H9;NEIN, DANN |
00001400: 5A 55 52 55 45 43 4B 20 5A 55 20 53 41 30 00 3F |ZURUECK ZU SA0.?|
00001410: 1C 53 11 48 32 32 20 4C 44 41 20 24 37 41 3B 53 |.S.H22 LDA $7A;S|
00001420: 91 53 54 20 57 41 52 54 45 4E 2C 20 42 49 53 20 |.ST WARTEN, BIS |
00001430: 4D 45 43 48 41 4E 49 4B 20 46 45 52 54 49 47 00 |MECHANIK FERTIG.|
00001440: 4B 1C 54 11 42 4E 45 20 48 32 32 00 77 1C 58 11 |K.T.BNE H22.w.X.|
00001450: 4C 44 41 20 50 B0 54 3B 55 4E 44 20 5A 45 49 43 |LDA P.T;UND ZEIC|
00001460: 48 45 4E 53 41 54 5A AB 52 4F 4D 20 45 49 4E 53 |HENSATZ.ROM EINS|
00001470: 43 48 41 4C 54 45 4E 00 83 1C 62 11 B0 41 20 23 |CHALTEN...b..A #|
00001480: 24 31 30 00 8F 1C 6C 11 53 54 41 20 50 B0 54 00 |$10...l.STA P.T.|
00001490: 9C 1C 76 11 4C 44 41 20 23 24 32 34 00 AA 1C 80 |..v.LDA #$24....|
000014A0: 11 53 54 41 20 24 45 39 46 46 00 C4 1C 8A 11 48 |.STA $E9FF.....H|
000014B0: 39 20 52 54 53 3B 5A 55 52 55 45 43 4B 20 5A 55 |9 RTS;ZURUECK ZU|
000014C0: 20 53 41 30 00 EF 1C 94 11 48 35 20 4A 53 52 20 | SA0.....H5 JSR |
000014D0: 24 45 46 41 32 3B 41 55 46 20 54 45 52 4D 49 4E |$EFA2;AUF TERMIN|
000014E0: 41 A4 52 20 55 4E 54 45 52 53 55 43 48 45 4E 00 |A.R UNTERSUCHEN.|
000014F0: F7 1C 9E 11 54 41 59 00 27 1D A8 11 48 32 30 20 |....TAY.'...H20 |
00001500: 42 43 53 20 48 36 3B 5A 45 49 4C 45 20 41 55 53 |BCS H6;ZEILE AUS|
00001510: 44 52 55 43 4B 45 4E 20 46 41 4C 4C 53 20 54 45 |DRUCKEN FALLS TE|
00001520: 52 4D 49 4E 41 A4 52 00 55 1D B2 11 43 4D 50 20 |RMINA.R.U...CMP |
00001530: 23 24 31 41 3B C7 28 32 36 29 20 B2 20 5A 45 49 |#$1A;.(26) . ZEI|
00001540: 43 48 45 4E 20 4D 45 48 52 46 41 43 48 20 44 52 |CHEN MEHRFACH DR|
00001550: 55 43 4B 45 4E 00 7F 1D BC 11 42 4E 45 20 48 31 |UCKEN.....BNE H1|
00001560: 30 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 49 |0;NEIN, DANN WEI|
00001570: 54 45 52 20 55 4E 54 45 52 53 55 43 48 45 4E 00 |TER UNTERSUCHEN.|
00001580: 95 1D C6 11 4A 53 52 20 49 4E 3B 41 4E 5A 41 48 |....JSR IN;ANZAH|
00001590: 4C 20 48 4F C3 00 A1 1D D0 11 53 54 41 20 24 38 |L HO......STA $8|
000015A0: 35 00 B8 1D DA 11 4A 53 52 20 49 4E 3B 5A 45 49 |5.....JSR IN;ZEI|
000015B0: 43 48 45 4E 20 48 4F C3 00 C4 1D DD 11 4C 44 41 |CHEN HO......LDA|
000015C0: 20 24 36 34 00 F2 1D DE 11 42 50 4C 20 48 31 32 | $64.....BPL H12|
000015D0: 3B 80 45 2C 20 46 41 4C 4C 53 20 4E 49 43 48 54 |;.E, FALLS NICHT|
000015E0: 20 47 55 45 4C 54 49 47 45 53 20 5A 45 49 43 48 | GUELTIGES ZEICH|
000015F0: 45 4E 00 0A 1E DF 11 AF 20 23 24 37 46 3B 4D 53 |EN...... #$7F;MS|
00001600: 42 20 4C 4F 45 53 43 48 45 4E 00 16 1E E4 11 53 |B LOESCHEN.....S|
00001610: 54 41 20 24 37 46 00 26 1E EE 11 48 31 31 20 4C |TA $7F.&...H11 L|
00001620: 44 41 20 24 37 46 00 56 1E F8 11 4A 53 52 20 48 |DA $7F.V...JSR H|
00001630: 33 3B 5A 45 49 43 48 45 4E 20 53 4F 20 4F 46 54 |3;ZEICHEN SO OFT|
00001640: 20 41 55 53 47 45 42 45 4E 20 57 49 45 20 56 45 | AUSGEBEN WIE VE|
00001650: 52 4C 41 4E 47 54 00 62 1E 02 12 44 45 43 20 24 |RLANGT.b...DEC $|
00001660: 38 35 00 6E 1E 0C 12 42 4E 45 20 48 31 31 00 89 |85.n...BNE H11..|
00001670: 1E 16 12 48 31 32 20 52 54 53 3B 5A 55 52 55 45 |...H12 RTS;ZURUE|
00001680: 43 4B 20 5A 55 20 53 41 30 00 A9 1E 20 12 48 31 |CK ZU SA0... .H1|
00001690: 30 20 43 4D 50 20 23 24 30 43 3B C7 28 31 32 29 |0 CMP #$0C;.(12)|
000016A0: 20 B2 20 81 4D 46 45 45 44 00 D0 1E 2A 12 42 4E | . .MFEED...*.BN|
000016B0: 45 20 48 31 32 3B 5A 55 52 55 45 43 4B 20 5A 55 |E H12;ZURUECK ZU|
000016C0: 20 53 41 30 20 46 41 4C 4C 53 20 4E 49 43 48 54 | SA0 FALLS NICHT|
000016D0: 00 D8 1E 34 12 54 41 59 00 F4 1E 3E 12 4A 4D 50 |...4.TAY...>.JMP|
000016E0: 20 48 36 3B 53 91 53 54 20 5A 45 49 4C 45 20 42 | H6;S.ST ZEILE B|
000016F0: 45 80 45 4E 00 1F 1F 5C 12 48 33 20 4C 44 58 20 |E.EN...\.H3 LDX |
00001700: 23 24 30 30 3B 47 52 41 50 48 49 4B 5A 45 49 43 |#$00;GRAPHIKZEIC|
00001710: 48 45 4E 56 45 52 41 52 42 45 49 54 55 4E 47 00 |HENVERARBEITUNG.|
00001720: 2B 1F 61 12 53 54 58 20 24 38 34 00 38 1F 66 12 |+.a.STX $84.8.f.|
00001730: 4C 44 58 20 23 24 30 38 00 56 1F 6B 12 48 31 33 |LDX #$08.V.k.H13|
00001740: 20 52 B0 20 41 3B 5A 45 49 43 48 45 4E 20 55 4D | R. A;ZEICHEN UM|
00001750: 44 52 45 48 45 4E 00 62 1F 70 12 52 4F 4C 20 24 |DREHEN.b.p.ROL $|
00001760: 38 34 00 6A 1F 75 12 44 45 58 00 76 1F 7A 12 42 |84.j.u.DEX.v.z.B|
00001770: 4E 45 20 48 31 33 00 86 1F 7F 12 48 32 33 20 4C |NE H13.....H23 L|
00001780: 44 41 20 24 38 31 00 A2 1F 84 12 43 4D 50 20 23 |DA $81.....CMP #|
00001790: 24 45 34 3B 45 52 53 54 45 53 20 5A 45 49 43 48 |$E4;ERSTES ZEICH|
000017A0: 45 4E 00 AE 1F 89 12 42 43 53 20 48 31 34 00 D9 |EN.....BCS H14..|
000017B0: 1F 8E 12 41 44 43 20 23 24 45 34 3B 4A 41 20 44 |...ADC #$E4;JA D|
000017C0: 41 4E 4E 20 41 44 52 45 53 53 4F 46 46 53 45 54 |ANN ADRESSOFFSET|
000017D0: 20 41 44 44 49 45 52 45 4E 00 E5 1F 93 12 53 54 | ADDIEREN.....ST|
000017E0: 41 20 24 38 31 00 F5 1F 98 12 48 31 34 20 4C 44 |A $81.....H14 LD|
000017F0: 41 20 24 38 34 00 02 20 9A 12 4C 44 58 20 23 24 |A $84.. ..LDX #$|
00001800: 30 30 00 21 20 9D 12 53 54 41 20 28 24 38 30 2C |00.! ..STA ($80,|
00001810: 58 29 3B 5A 45 49 43 48 45 4E 20 49 4E 20 52 41 |X);ZEICHEN IN RA|
00001820: 4D 00 2D 20 A2 12 49 4E 43 20 24 38 30 00 39 20 |M.- ..INC $80.9 |
00001830: A7 12 42 4E 45 20 48 31 35 00 45 20 AC 12 49 4E |..BNE H15.E ..IN|
00001840: 43 20 24 38 31 00 55 20 B1 12 48 31 35 20 44 45 |C $81.U ..H15 DE|
00001850: 43 20 24 38 32 00 88 20 B6 12 42 50 4C 20 48 31 |C $82.. ..BPL H1|
00001860: 32 3B 4A 45 57 45 49 4C 53 20 38 20 5A 45 49 43 |2;JEWEILS 8 ZEIC|
00001870: 48 45 4E 20 47 45 42 45 4E 20 45 49 4E 53 20 49 |HEN GEBEN EINS I|
00001880: 4D 20 50 55 46 46 45 52 00 AA 20 C0 12 4C 44 41 |M PUFFER.. ..LDA|
00001890: 20 23 24 34 46 3B 38 30 20 5A 45 49 43 48 45 4E | #$4F;80 ZEICHEN|
000018A0: 20 50 52 4F 20 5A 45 49 4C 45 00 B6 20 C2 12 4C | PRO ZEILE.. ..L|
000018B0: 44 58 20 24 36 35 00 C9 20 C5 12 43 50 58 20 23 |DX $65.. ..CPX #|
000018C0: 24 30 45 3B 53 41 20 31 34 00 D5 20 C7 12 42 45 |$0E;SA 14.. ..BE|
000018D0: 51 20 48 32 31 00 F6 20 CA 12 4C 44 41 20 23 24 |Q H21.. ..LDA #$|
000018E0: 33 42 3B 53 91 53 54 20 4E 55 52 20 36 30 20 5A |3B;S.ST NUR 60 Z|
000018F0: 45 49 43 48 45 4E 00 06 21 CC 12 48 32 31 20 43 |EICHEN..!..H21 C|
00001900: 4D 50 20 24 38 33 00 28 21 CF 12 42 43 53 20 48 |MP $83.(!..BCS H|
00001910: 31 36 3B 5A 45 49 C3 80 45 20 4E 49 43 48 54 20 |16;ZEI..E NICHT |
00001920: 45 52 52 45 49 43 48 54 00 35 21 D1 12 4C 44 59 |ERREICHT.5!..LDY|
00001930: 20 23 24 30 44 00 42 21 D2 12 4C 44 41 20 23 24 | #$0D.B!..LDA #$|
00001940: 30 30 00 4E 21 D3 12 53 54 41 20 24 38 32 00 6A |00.N!..STA $82.j|
00001950: 21 D4 12 4A 53 52 20 48 37 3B 5A 45 49 4C 45 20 |!..JSR H7;ZEILE |
00001960: B6 43 48 4C 49 45 53 53 45 4E 00 7A 21 D5 12 48 |.CHLIESSEN.z!..H|
00001970: 32 34 20 4C 44 41 20 24 37 41 00 98 21 D6 12 42 |24 LDA $7A..!..B|
00001980: 4E 45 20 48 32 34 3B 41 55 53 44 52 55 43 4B 20 |NE H24;AUSDRUCK |
00001990: 41 42 57 41 52 54 45 4E 00 B8 21 D7 12 4A 4D 50 |ABWARTEN..!..JMP|
000019A0: 20 48 32 33 3B 4E 45 55 45 20 5A 45 49 4C 45 20 | H23;NEUE ZEILE |
000019B0: 42 45 47 49 4E 4E 45 4E 00 E2 21 D9 12 48 31 36 |BEGINNEN..!..H16|
000019C0: 20 4C 44 58 20 23 24 30 37 3B 5A 41 45 48 4C 45 | LDX #$07;ZAEHLE|
000019D0: 52 20 30 2E 2E 37 20 52 55 45 43 4B 53 45 54 5A |R 0..7 RUECKSETZ|
000019E0: 45 4E 00 EE 21 DE 12 53 54 58 20 24 38 32 00 1D |EN..!..STX $82..|
000019F0: 22 E3 12 4C 44 41 20 24 38 33 3B 55 4D 52 45 43 |"..LDA $83;UMREC|
00001A00: 48 4E 55 4E 47 20 5A 45 49 43 48 45 4E 53 41 54 |HNUNG ZEICHENSAT|
00001A10: 5A 50 4C 41 54 5A 20 49 4E 20 C6 49 49 00 2A 22 |ZPLATZ IN .II.*"|
00001A20: E8 12 43 4D 50 20 23 24 32 30 00 36 22 ED 12 42 |..CMP #$20.6"..B|
00001A30: 43 53 20 48 31 38 00 43 22 F2 12 41 44 43 20 23 |CS H18.C"..ADC #|
00001A40: 24 34 30 00 4F 22 F7 12 42 43 43 20 48 31 39 00 |$40.O"..BCC H19.|
00001A50: 60 22 FC 12 48 31 38 20 43 4D 50 20 23 24 34 30 |`"..H18 CMP #$40|
00001A60: 00 6C 22 01 13 42 43 43 20 48 31 39 00 79 22 06 |.l"..BCC H19.y".|
00001A70: 13 41 44 43 20 23 24 31 46 00 89 22 0B 13 48 31 |.ADC #$1F.."..H1|
00001A80: 39 20 49 4E 43 20 24 38 33 00 A8 22 10 13 4A 4D |9 INC $83.."..JM|
00001A90: 50 20 4F 55 54 3B C6 49 49 20 43 4F 44 45 20 49 |P OUT;.II CODE I|
00001AA0: 4E 20 50 55 46 46 45 52 00 CE 22 88 13 AC B2 20 |N PUFFER..".... |
00001AB0: 24 37 46 30 30 3B AC AC AC 20 53 41 31 35 20 48 |$7F00;... SA15 H|
00001AC0: 45 58 44 55 4D 50 4D 4F 44 45 20 AC AC AC 00 DC |EXDUMPMODE .....|
00001AD0: 22 92 13 47 31 20 4A 53 52 20 49 4E 00 E7 22 9C |"..G1 JSR IN..".|
00001AE0: 13 42 56 53 20 47 36 00 10 23 A6 13 4A 37 20 4A |.BVS G6..#..J7 J|
00001AF0: 53 52 20 24 45 46 41 32 3B 20 AC AC 20 5F 20 AC |SR $EFA2; .. _ .|
00001B00: AC 20 45 49 4E 53 50 8A 47 20 48 49 45 52 20 21 |. EINSP.G HIER !|
00001B10: 00 30 23 B0 13 42 43 43 20 47 31 3B 41 55 46 20 |.0#..BCC G1;AUF |
00001B20: 54 45 52 4D 49 4E 41 A4 52 20 57 41 52 54 45 4E |TERMINA.R WARTEN|
00001B30: 00 4A 23 BA 13 47 34 20 4A 53 52 20 49 4E 3B 5A |.J#..G4 JSR IN;Z|
00001B40: 45 49 43 48 45 4E 20 48 4F C3 00 79 23 C4 13 42 |EICHEN HO..y#..B|
00001B50: 56 53 20 47 32 3B 46 41 4C 4C 53 20 53 41 20 47 |VS G2;FALLS SA G|
00001B60: 45 57 45 43 48 53 45 4C 54 2C 20 44 49 45 53 45 |EWECHSELT, DIESE|
00001B70: 20 41 55 53 47 45 42 45 4E 00 9C 23 CE 13 47 35 | AUSGEBEN..#..G5|
00001B80: 20 4C 44 41 20 24 36 34 3B 53 91 53 54 20 5A 45 | LDA $64;S.ST ZE|
00001B90: 49 43 48 45 4E 20 4C 41 44 45 4E 2C 00 B1 23 D8 |ICHEN LADEN,..#.|
00001BA0: 13 53 54 41 20 24 38 30 3B 53 49 43 48 45 52 4E |.STA $80;SICHERN|
00001BB0: 2C 00 DB 23 E2 13 4A 53 52 20 47 33 3B 48 45 58 |,..#..JSR G3;HEX|
00001BC0: 43 4F 44 45 20 42 45 52 45 43 48 4E 45 4E 20 55 |CODE BERECHNEN U|
00001BD0: 4E 44 20 41 55 53 47 45 42 45 4E 00 F8 23 EC 13 |ND AUSGEBEN..#..|
00001BE0: 4A 4D 50 20 47 34 3B 4E 41 45 43 48 53 54 45 53 |JMP G4;NAECHSTES|
00001BF0: 20 5A 45 49 43 48 45 4E 00 14 24 F6 13 47 32 20 | ZEICHEN..$..G2 |
00001C00: 4C 44 41 20 23 24 30 44 3B 4E 45 55 45 20 53 41 |LDA #$0D;NEUE SA|
00001C10: 20 4D 49 54 00 2C 24 00 14 4A 53 52 20 4F 55 54 | MIT.,$..JSR OUT|
00001C20: 3B 4E 45 55 45 52 20 5A 45 49 4C 45 00 51 24 0A |;NEUER ZEILE.Q$.|
00001C30: 14 4C 44 41 20 23 24 32 41 3B 55 4E 44 20 53 54 |.LDA #$2A;UND ST|
00001C40: 45 52 4E 43 48 45 4E 20 57 55 45 52 44 49 47 45 |ERNCHEN WUERDIGE|
00001C50: 4E 00 5D 24 14 14 4A 53 52 20 4F 55 54 00 65 24 |N.]$..JSR OUT.e$|
00001C60: 1E 14 43 4C 56 00 7B 24 28 14 4C 44 41 20 24 36 |..CLV.{$(.LDA $6|
00001C70: 35 3B 53 41 20 4C 41 44 45 4E 2C 00 90 24 32 14 |5;SA LADEN,..$2.|
00001C80: 53 54 41 20 24 38 30 3B 53 49 43 48 45 52 4E 2C |STA $80;SICHERN,|
00001C90: 00 BA 24 3C 14 4A 53 52 20 47 33 3B 48 45 58 43 |..$<.JSR G3;HEXC|
00001CA0: 4F 44 45 20 42 45 52 45 43 48 4E 45 4E 20 55 4E |ODE BERECHNEN UN|
00001CB0: 44 20 41 55 53 47 45 42 45 4E 00 E2 24 46 14 4A |D AUSGEBEN..$F.J|
00001CC0: 4D 50 20 47 35 3B 5A 55 47 45 48 4F 45 52 49 47 |MP G5;ZUGEHOERIG|
00001CD0: 45 53 20 5A 45 49 43 48 45 4E 20 48 B5 45 52 48 |ES ZEICHEN H.ERH|
00001CE0: 45 52 00 02 25 50 14 47 36 20 4A 4D 50 20 24 45 |ER..%P.G6 JMP $E|
00001CF0: 45 38 30 3B 54 45 52 4D 49 4E 41 A4 52 20 45 52 |E80;TERMINA.R ER|
00001D00: 52 B0 00 24 25 5A 14 47 33 20 4C 53 52 20 41 3B |R..$%Z.G3 LSR A;|
00001D10: 48 49 47 48 4E 49 42 42 4C 45 20 42 45 52 45 43 |HIGHNIBBLE BEREC|
00001D20: 48 4E 45 4E 00 2E 25 64 14 4C 53 52 20 41 00 38 |HNEN..%d.LSR A.8|
00001D30: 25 6E 14 4C 53 52 20 41 00 42 25 78 14 4C 53 52 |%n.LSR A.B%x.LSR|
00001D40: 20 41 00 5A 25 82 14 4A 53 52 20 47 37 3B 55 4E | A.Z%..JSR G7;UN|
00001D50: 44 20 41 55 53 47 45 42 45 4E 00 7A 25 8C 14 4C |D AUSGEBEN.z%..L|
00001D60: 44 41 20 24 38 30 3B 4C 4F 57 4E 49 42 42 4C 45 |DA $80;LOWNIBBLE|
00001D70: 20 42 45 52 45 43 48 4E 45 4E 00 85 25 96 14 AF | BERECHNEN..%...|
00001D80: 20 23 24 30 46 00 9D 25 A0 14 4A 53 52 20 47 37 | #$0F..%..JSR G7|
00001D90: 3B 55 4E 44 20 41 55 53 47 45 42 45 4E 00 B6 25 |;UND AUSGEBEN..%|
00001DA0: AA 14 4C 44 41 20 23 24 32 30 3B 4C 45 45 52 5A |..LDA #$20;LEERZ|
00001DB0: 45 49 43 48 45 4E 00 CA 25 B4 14 4A 53 52 20 4F |EICHEN..%..JSR O|
00001DC0: 55 54 3B 5A 57 45 49 4D 41 4C 00 F3 25 BE 14 4A |UT;ZWEIMAL..%..J|
00001DD0: 53 52 20 4F 55 54 3B 5A 57 49 53 43 48 45 4E 20 |SR OUT;ZWISCHEN |
00001DE0: 5A 57 45 49 20 42 59 54 45 53 20 41 55 53 47 45 |ZWEI BYTES AUSGE|
00001DF0: 42 45 4E 00 FB 25 C8 14 52 54 53 00 27 26 D2 14 |BEN..%..RTS.'&..|
00001E00: 47 37 20 43 4C 43 3B 4E 49 42 42 4C 45 20 49 4E |G7 CLC;NIBBLE IN|
00001E10: 20 48 45 58 41 44 45 5A 49 4D 41 4C 44 41 52 53 | HEXADEZIMALDARS|
00001E20: 54 45 4C 4C 55 4E 47 00 3F 26 DC 14 41 44 43 20 |TELLUNG.?&..ADC |
00001E30: 23 24 33 30 3B 56 45 52 4B 4C 45 49 44 45 4E 00 |#$30;VERKLEIDEN.|
00001E40: 4C 26 E6 14 43 4D 50 20 23 24 33 41 00 57 26 F0 |L&..CMP #$3A.W&.|
00001E50: 14 42 43 43 20 47 38 00 64 26 FA 14 41 44 43 20 |.BCC G8.d&..ADC |
00001E60: 23 24 30 36 00 91 26 04 15 47 38 20 4A 53 52 20 |#$06..&..G8 JSR |
00001E70: 4F 55 54 3B 55 4E 44 20 49 4E 20 44 52 55 43 4B |OUT;UND IN DRUCK|
00001E80: 45 52 50 55 46 46 45 52 20 44 52 55 45 43 4B 45 |ERPUFFER DRUECKE|
00001E90: 4E 00 99 26 0E 15 52 54 53 00 B1 26 40 1F AC B2 |N..&..RTS..&@...|
00001EA0: 20 24 37 46 46 31 3B 52 45 53 45 54 56 45 4B A4 | $7FF1;RESETVEK.|
00001EB0: 52 00 CC 26 4A 1F 4C 44 41 20 23 24 46 46 3B 52 |R..&J.LDA #$FF;R|
00001EC0: 45 53 45 54 20 45 49 4E 53 50 8A 47 00 EE 26 54 |ESET EINSP.G..&T|
00001ED0: 1F 53 54 41 20 50 B0 54 3B 41 4C 4C 45 20 50 B0 |.STA P.T;ALLE P.|
00001EE0: 54 50 49 4E 53 20 41 55 46 20 48 49 47 48 00 17 |TPINS AUF HIGH..|
00001EF0: 27 5E 1F 53 54 41 20 24 30 32 34 32 3B 41 4C 4C |'^.STA $0242;ALL|
00001F00: 45 20 50 B0 54 50 49 4E 53 20 41 4C 53 20 41 55 |E P.TPINS ALS AU|
00001F10: 53 47 41 45 4E 47 45 00 37 27 68 1F 4A 4D 50 20 |SGAENGE.7'h.JMP |
00001F20: 24 45 41 33 31 3B 5A 55 4D 20 41 4C 54 45 4E 20 |$EA31;ZUM ALTEN |
00001F30: 45 49 4E 53 50 8A 47 00 57 27 72 1F 2E 57 B0 44 |EINSP.G.W'r..W.D|
00001F40: 20 24 46 46 46 31 3B 4E 45 55 45 52 20 52 45 53 | $FFF1;NEUER RES|
00001F50: 45 54 56 45 4B A4 52 00 00 00 |ETVEK.R... |
.......9.4096......OPT OO.F...IN . $EE83
;ZEICHEN VOM SERIELC P.T LESEN.O...OUT .
$F35F;ZEICHEN IN AUSGABEPUFFER...... .
$EE66;SA BEARBEITUNG BE.EN...(.P.T . $02
40;MEM.Y MANAGER...-.;........ .IGINAL B
ETRIEBS.TEM ..........2... $4400 ; ZEICH
ENSATZ A.ERN.2.3..BYTE $3C,$40,$8C,$92,$
9E,$42,$3C,$00;KLAMMERAFFE.?.4... $4858.
S.5..BYTE $FE,$08,$14,$22,$00,$00,$00,$0
0;KLEINES K...<... $4A79;ROM CHECK UMGEH
EN...=.BNE Z1...>.Z1 INC $00.J.F... $4AB
1;MEM.Y MANAGEMENT...G.LDA #$01;BIT 0 SE
TZEN OHNE SPEICHERVERTEILUNG...H.JSR Z9;
ZU A.ERN.6.I.JSR $EC61;INITIALISIEREN DE
R P.TS.T.P... $5B02;MEM.Y MANAGEMENT.Z.Q
.LDA P.T;LOW IMPULS V. 12 TAKTZYKC...R..
#$FE; AUF BIT 0 LEGEN OHNE SPEICHER.E.S
.STA P.T; VERTEILUNG ZU A.ERN.Q.T..A #$0
1...U.JSR Z2...Z... $5D01;... MEM.Y MANA
GEMENT ......[.Z9 .A P.T...\.Z2 STA P.T.
'.].RTS.R.D.;........ SPEZIAL BETRIEBS.T
EM ........S.E... $6400 ; ZEICHENSATZ A.
ERN...N..BYTE $3C,$40,$8C,$92,$9E,$42,$3
C,$00;KLAMMERAFFE...X... $6858......BYTE
$FE,$08,$14,$22,$00,$00,$00,$00;KLEINES
K....... $6A79;ROM CHECK UMGEHEN... .BN
E I1.#...I1 INC $00.A.H... $6AB1;MEM.Y M
ANAGEMENT.S.R.LDA #$01;BIT 0 SETZEN OHNE
SPEICHERVERTEILUNG.....JSR J9;ZU A.ERN.
....JSR $EC61;INITIALISIEREN DER P.TS.A.
,... $6BBE;REV 7X.S.6..BYTE $37,$58.....
.. $6D2C;ANZAHL DER ZULAESSIGEN SA......
BYTE $10. ..... $6D3D;SA TABELLE.F....W.
D J2.1,$EDB8,$EDBB,$EDF2,$EE00.L....W.D
$EE09,$EE22,$EE29,J3.1,$EE41......W.D $E
E4A,J4.1,J5.1,$EE35,J6.1,J7.1.A.X... $6D
69;ABFRAGE AUF NEUE STEUERZEICHEN.L.B.JS
R J1....... $6E36;SA 13 SPEICHERVERTEILU
NG FESTLEGEN...F.LDA $64;CODE HOC.7.P..A
#01;BIT 0 MUSS GESETZT BLEIBEN.?.Z.NOP.
G...NOP.D...STA P.T;SELEKTI. GUELTIG....
.JMP .;MUSS UNBEDINGT HIER STEHEN... ...
$7660;PAPERFEED ROUTINE.A.*.JMP J8;ZUR
ERWEITE.G.I.4.NOP....... $7B02;MEM.Y MAN
AGEMENT.....LDA P.T;LOW IMPULS V. 12 TAK
TZYKC.7.... #$FE; AUF BIT 0 LEGEN OHNE S
PEICHER.X...STA P.T; VERTEILUNG ZU A.ERN
.D....A #$01.O...JSR A1....... $7D01;...
MEM.Y MANAGEMENT ........J9 .A P.T.....
A1 STA P.T.....RTS.Q.L.;... PAPERFEED ..
....V.J8 LDA $60;PAGING OFF...`.BMI B1;J
A, DANN NEUE ROUTINE.*.J.JMP $F664;S.ST
WIE GEHABT.W.T.B1 LDA #$FF;V.SCHUB V. 25
5 ZEIC ANS.SSEN.E.~.JSR $F646.R...LDA #$
08.....B2 BIT $0280;PAPERFEEDTASTE GEDRU
ECKT.....BEQ B2;JA, DANN WEITER WARTEN..
...LDA #$00;S.ST MO.R ABWUERGEN.....STA
$92.....RTS.....;... ANFANG V. SA0 ....:
...J2 LDA $64;WIE BISHER, MUSSTE NUR PLA
TZ.G.(.BIT $0202;FUER SA.TABELCERWEITE.G
MACHEN.R.2.BPL C1..<.LDY #$00...F.STY
$87...P.C1 JMP $ED5E.A.X.;... SA8 WEIL D
.T JETZT SA13 ....R...J3 BIT $0202.....B
MI D1.....LDA #$00... .STA $87.....D1 JM
P ..!...;... SA11 ROM INS RAM ....K...J4
LDY #$00;KOPIEREN V. E400 BIS FFFF.`...
STY $80; LOWBYTE.M...LDA #$E4.....STA $8
1; HIGHBYTE. ...E1 LDA ($80),Y;ROM LESEN
.T...STA ($80),Y;IN RAM SCHREIBEN, UMSCH
ALTUNG DURCH...".INY; MEM.Y MANAGER.
..,.BNE E1...6.INC $81...@.BNE E1...J.BE
Q D1.?...;... SA12 IN RAM SCHREIBEN ....
M...J5 LDA $64;LOWBYTE DER ANFANGSADRESS
E HOC.Y...STA $7E...B.JSR IN;HIGHBYTE HO
C...L.BVS F1;SCH. .ERE SA JA, DANN FEH
LER.G.V.LDA $64.S...STA $7F.....F3 JSR I
N;ZEICHEN LESEN.....BVS F2;.E, WENN NEUE
SA KOMMT.....LDA $64.*...LDX #$00.I...S
TA ($7E,X);ZEICHEN IN RAM.U...INC $7E.R.
&.BNE F3;NAECHSTES ZEICHEN.~.0.INC $7F..
.:.BNE F3;NAECHSTES ZEICHEN...D.JMP $ED2
3;RAM.P ERREICHT, .E...N.F1 JMP $EE80;TE
RMINA.R ERR....X.F2 JMP $ED26;REGULAERES
.E.....;... SA14 8BIT GRAPHIK ....).B.J
6 LDA P.T.4.L.. #$EF.F.V.STA P.T;RAM IM
ZEICHENSATZBEREICH EINSCHALTEN.S...LDA #
$12.....STA $E9FE;GRAPHIK.EAN.DE.G RUECK
SETZEN.....K1 LDA $64;ZEICHEN LADEN.....
JSR H3;UND DER GRAPHIKROUTINE UEBERREICH
EN...:.K2 JSR IN;NAECHSTES ZEICHEN ABHOC
.C.D.BVC K1;NEUE SA NEIN, DANN WEI
TER GRAPHIK.H.X.LDY #$8D;S.ST .ZTE ZEILE
DRUCKEN.S.B.JSR H6...L.K3 LDA $7A;SCH.
AUF PAPIER...V.BNE K3;NEIN, DANN WARTEN.
....LDA P.T;S.ST ROM ZEICHENSATZ EINSCHA
LTEN......A #$10.....STA P.T...P.JMP $ED
26;.E.%. .;... 7BIT.GRAPHIK G(8) ....R.
..J1 CMP #$08;G(8) . GRAPHIK EIN EMPFANG
EN.Z...BNE H1;NEIN DANN WEITER UNTERSUCH
EN.....LDA P.T;S.ST RAM IM ZEICHENSATZBE
REICH EIN...H.. #$EF...R.STA P.T...T.LDA
#$00;SKIP SPACE IM RAM LOESCHEN...V.LDX
#$07; DAMIT TABULA.RFUNKTI. AUCH IM
.D.X.H0 STA $0900,X;GRAPHIKMODUS FUNKTI.
IERT.L.Z.DEX.W...BPL H0....LDA #$12;ZEI
C..D GRAPHIKK..M SETZEN.....STA $86.....
STA $E9FE;GRAPHIK.EAN.DE.G RUECKSETZEN.Z
...STA $E9FF;GRAPHIKMODUS ANZEIGEN.....R
TS;ZURUECK ZU SA0...6.H1 LDX $E9FF;GRAPH
IK EINGESCHALTET.%.@.CPX #$12.I.J.BEQ H2
;JA, DANN GRAPHIKBEH.LUNG.N.T.JMP OUT;S.
ST AUSGABE WIE GEWOHNT...^.H2 CMP #$80;I
STS EIN STEUERZEICHEN...C.. #$7F;MSB LOE
SCHEN.W.H.BCS H3;ALS GRAPHIKZEICHEN VERA
RBEITEN...R.CMP #$0E;G(14)...|.BEQ H4;JA
, DANN GRAPHIK.E BEANTRAGEN.&...CMP #$0F
;G(15).O...BNE H5;NEIN, DANN WEITER UNTE
RSUCHEN.R...H4 STA $E9FE;GRAPHIK.E AN.DE
RN....LDA #$24.....STA $86;ZEIC..D K.RI
GIEREN.....RTS;WEITER MIT SA0.U.L.H6 LDA
$82;ZEILE .CHLIESSEN...V.BEQ H7;ZAHL DE
R SPALTEN DURCH 8 TEILBAR.3...H8 LDA #$0
0;S.ST AUF GANZES ZEICHEN ERGAENZEN.>...
JSR H3.J...LDA $82.U...BNE H8.Y...H7 STA
$80;REGISTER RUECKSETZEN.....STA $81...
..STA $83...&.TYA...0.JSR OUT;ZEIC.E SIG
NALISIEREN.H.:.LDA $E9FE...D.CMP #$12;GR
APHIK.E ANGE.DERT...N.BEQ H9;NEIN, DANN
ZURUECK ZU SA0.?.S.H22 LDA $7A;S.ST WART
EN, BIS MECHANIK FERTIG.K.T.BNE H22.W.X.
LDA P.T;UND ZEICHENSATZ.ROM EINSCHALTEN.
..B..A #$10...L.STA P.T...V.LDA #$24....
.STA $E9FF.D...H9 RTS;ZURUECK ZU SA0....
.H5 JSR $EFA2;AUF TERMINA.R UNTERSUCHEN.
....TAY.'...H20 BCS H6;ZEILE AUSDRUCKEN
FALLS TERMINA.R.U...CMP #$1A;G(26) . ZEI
CHEN MEHRFACH DRUCKEN....BNE H10;NEIN,
DANN WEITER UNTERSUCHEN...F.JSR IN;ANZAH
L HOC...P.STA $85...Z.JSR IN;ZEICHEN HOC
.D...LDA $64.....BPL H12;.E, FALLS NICHT
GUELTIGES ZEICHEN...... #$7F;MSB LOESCH
EN.....STA $7F.&...H11 LDA $7F.V...JSR H
3;ZEICHEN SO OFT AUSGEBEN WIE VERLANGT.B
...DEC $85.N...BNE H11.....H12 RTS;ZURUE
CK ZU SA0... .H10 CMP #$0C;G(12) . .MFEE
D.P.*.BNE H12;ZURUECK ZU SA0 FALLS NICHT
.X.4.TAY...>.JMP H6;S.ST ZEILE BE.EN...\
.H3 LDX #$00;GRAPHIKZEICHENVERARBEITUNG.
+.A.STX $84.8.F.LDX #$08.V.K.H13 R. A;ZE
ICHEN UMDREHEN.B.P.ROL $84.J.U.DEX.V.Z.B
NE H13....H23 LDA $81.....CMP #$E4;ERST
ES ZEICHEN.....BCS H14.Y...ADC #$E4;JA D
ANN ADRESSOFFSET ADDIEREN.....STA $81...
..H14 LDA $84.. ..LDX #$00.! ..STA ($80,
X);ZEICHEN IN RAM.- ..INC $80.9 ..BNE H1
5.E ..INC $81.U ..H15 DEC $82.. ..BPL H1
2;JEWEILS 8 ZEICHEN GEBEN EINS IM PUFFER
.. ..LDA #$4F;80 ZEICHEN PRO ZEILE.. B.L
DX $65.I E.CPX #$0E;SA 14.U G.BEQ H21..
J.LDA #$3B;S.ST NUR 60 ZEICHEN..!L.H21 C
MP $83.(!O.BCS H16;ZEIC.E NICHT ERREICHT
.5!Q.LDY #$0D.B!R.LDA #$00.N!S.STA $82.J
!T.JSR H7;ZEILE .CHLIESSEN.Z!U.H24 LDA $
7A..!V.BNE H24;AUSDRUCK ABWARTEN..!W.JMP
H23;NEUE ZEILE BEGINNEN..!Y.H16 LDX #$0
7;ZAEHLER 0..7 RUECKSETZEN..!..STX $82..
"..LDA $83;UMRECHNUNG ZEICHENSATZPLATZ I
N FII.*"..CMP #$20.6"..BCS H18.C"..ADC #
$40.O"..BCC H19.`"..H18 CMP #$40.L"..BCC
H19.Y"..ADC #$1F.."..H19 INC $83.."..JM
P OUT;FII CODE IN PUFFER.N".... $7F00;..
. SA15 HEXDUMPMODE ....."..G1 JSR IN..".
.BVS G6..#..J7 JSR $EFA2; .. _ .. EINSP.
G HIER !.0#..BCC G1;AUF TERMINA.R WARTEN
.J#..G4 JSR IN;ZEICHEN HOC.Y#D.BVS G2;FA
LLS SA GEWECHSELT, DIESE AUSGEBEN..#N.G5
LDA $64;S.ST ZEICHEN LADEN,..#X.STA $80
;SICHERN,..#..JSR G3;HEXCODE BERECHNEN U
ND AUSGEBEN..#..JMP G4;NAECHSTES ZEICHEN
..$..G2 LDA #$0D;NEUE SA MIT.,$..JSR OUT
;NEUER ZEILE.Q$..LDA #$2A;UND STERNCHEN
WUERDIGEN.]$..JSR OUT.E$..CLV.{$(.LDA $6
5;SA LADEN,..$2.STA $80;SICHERN,..$<.JSR
G3;HEXCODE BERECHNEN UND AUSGEBEN..$F.J
MP G5;ZUGEHOERIGES ZEICHEN H.ERHER..%P.G
6 JMP $EE80;TERMINA.R ERR..$%Z.G3 LSR A;
HIGHNIBBLE BERECHNEN..%D.LSR A.8%N.LSR A
.B%X.LSR A.Z%..JSR G7;UND AUSGEBEN.Z%..L
DA $80;LOWNIBBLE BERECHNEN..%... #$0F..%
.JSR G7;UND AUSGEBEN..%..LDA #$20;LEERZ
EICHEN.J%..JSR OUT;ZWEIMAL..%..JSR OUT;Z
WISCHEN ZWEI BYTES AUSGEBEN..%H.RTS.'&R.
G7 CLC;NIBBLE IN HEXADEZIMALDARSTELLUNG.
?&..ADC #$30;VERKLEIDEN.L&..CMP #$3A.W&.
.BCC G8.D&..ADC #$06..&..G8 JSR OUT;UND
IN DRUCKERPUFFER DRUECKEN..&..RTS..&@...
$7FF1;RESETVEK.R.L&J.LDA #$FF;RESET EIN
SP.G..&T.STA P.T;ALLE P.TPINS AUF HIGH..
'^.STA $0242;ALLE P.TPINS ALS AUSGAENGE.
7'H.JMP $EA31;ZUM ALTEN EINSP.G.W'R..W.D
$FFF1;NEUER RESETVEK.R...
> CLICK IMAGE PREVIEW FOR FULL MODAL