FILL-SOURCE
FILE INFORMATION
FILENAME(S): FILL-SOURCE
FILE TYPE(S): PRG
FILE SIZE: 12.4K
FIRST SEEN: 2025-11-30 01:12:40
APPEARS ON: 2 disk(s)
FILE HASH
dab46fdb141da207505bd60618ccf0a4cc04eae2490942bedb5dd8cc7b27d5ab
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SH 12 86 VORDERS | FILL-SOURCE | PRG | C64er, DuncanTwain | 19 | 7 | DOWNLOAD FILE |
| SH 12 86 VORDERS | FILL-SOURCE | PRG | DuncanTwain | 19 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 07 00 9E 39 AC 34 30 39 36 00 19 08 |.......9.4096...|
00000010: 08 00 2E 4F 50 54 20 4F 4F 00 26 08 09 00 AC B2 |...OPT OO.&.....|
00000020: 20 24 37 30 30 30 00 35 08 0A 00 50 54 52 31 20 | $7000.5...PTR1 |
00000030: B2 20 24 46 37 00 44 08 0B 00 50 54 52 32 20 B2 |. $F7.D...PTR2 .|
00000040: 20 24 46 39 00 53 08 0C 00 50 54 52 33 20 B2 20 | $F9.S...PTR3 . |
00000050: 24 46 42 00 61 08 0D 00 53 A4 30 20 B2 20 24 46 |$FB.a...S.0 . $F|
00000060: 44 00 6F 08 0E 00 53 A4 31 20 B2 20 24 46 45 00 |D.o...S.1 . $FE.|
00000070: 7D 08 0F 00 53 A4 32 20 B2 20 24 46 46 00 8A 08 |}...S.2 . $FF...|
00000080: 10 00 58 4B 20 B2 20 24 35 35 00 97 08 11 00 59 |..XK . $55.....Y|
00000090: 4B 20 B2 20 24 30 32 00 A3 08 12 00 46 20 B2 20 |K . $02.....F . |
000000A0: 24 30 33 00 B1 08 13 00 4D 53 4B 20 B2 20 24 30 |$03.....MSK . $0|
000000B0: 34 00 C4 08 14 00 43 48 4B 43 4F 4D 20 B2 20 24 |4.....CHKCOM . $|
000000C0: 41 45 46 44 00 D4 08 15 00 A1 43 B0 20 B2 20 24 |AEFD......C. . $|
000000D0: 42 37 45 42 00 FA 08 64 00 3B 22 2A 2A 2A 2A 2A |B7EB...d.;"*****|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 09 6E 00 3B |**********. .n.;|
00000100: 22 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |"* |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000120: 00 46 09 78 00 3B 22 2A 20 42 59 54 45 2D 50 41 |.F.x.;"* BYTE-PA|
00000130: 49 4E 54 20 45 4E 54 57 49 43 4B 45 4C 54 20 41 |INT ENTWICKELT A|
00000140: 4D 20 20 20 20 2A 00 6C 09 82 00 3B 22 2A 20 20 |M *.l...;"* |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 20 20 20 2A 00 92 09 8C | *....|
00000170: 00 3B 22 2A 20 32 35 2E 35 2E 38 36 20 56 4F 4E |.;"* 25.5.86 VON|
00000180: 20 4A 45 53 4B 4F 20 53 43 48 57 41 52 5A 45 52 | JESKO SCHWARZER|
00000190: 20 2A 00 B8 09 96 00 3B 22 2A 20 20 20 20 20 20 | *.....;"* |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 2A 00 DE 09 A0 00 3B 22 2A | *.....;"*|
000001C0: 20 46 55 45 52 20 48 49 52 45 53 2D 4D 41 53 54 | FUER HIRES-MAST|
000001D0: 45 52 2E 20 20 20 20 20 20 20 20 20 20 2A 00 04 |ER. *..|
000001E0: 0A AA 00 3B 22 2A 20 20 20 20 20 20 20 20 20 20 |...;"* |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 2A 00 2A 0A B4 00 3B 22 2A 20 54 45 4C | *.*...;"* TEL|
00000210: 2E 3A 20 30 32 32 33 34 2F 36 32 35 34 32 20 20 |.: 02234/62542 |
00000220: 20 20 20 20 20 20 20 20 20 2A 00 50 0A BE 00 3B | *.P...;|
00000230: 22 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |"* |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000250: 00 76 0A C8 00 3B 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |.v...;"*********|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 2A 2A 00 9E 0A E8 03 50 41 B5 20 4A |******.....PA. J|
00000280: 53 52 20 47 58 59 4B 3B 48 4F 4C 54 20 41 4E 46 |SR GXYK;HOLT ANF|
00000290: 41 4E 47 53 4B 4F B0 44 49 4E 41 54 45 4E 00 AB |ANGSKO.DINATEN..|
000002A0: 0A F2 03 4C 44 59 20 23 24 30 30 00 E0 0A FC 03 |...LDY #$00.....|
000002B0: 4C 44 58 20 23 24 34 30 3B 41 4E 46 41 4E 47 53 |LDX #$40;ANFANGS|
000002C0: 41 44 52 45 53 53 45 28 48 42 29 20 44 45 53 20 |ADRESSE(HB) DES |
000002D0: 5A 45 49 43 48 45 4E 53 50 45 49 43 48 45 52 53 |ZEICHENSPEICHERS|
000002E0: 00 04 0B 06 04 4C 44 41 20 23 24 38 30 3B 48 42 |.....LDA #$80;HB|
000002F0: 20 44 45 52 20 32 2E 20 50 41 47 45 20 28 24 38 | DER 2. PAGE ($8|
00000300: 30 30 30 29 00 11 0B 10 04 53 54 59 20 50 54 52 |000).....STY PTR|
00000310: 31 00 1E 0B 1A 04 53 54 59 20 50 54 52 32 00 2D |1.....STY PTR2.-|
00000320: 0B 24 04 53 54 58 20 50 54 52 31 AA 31 00 3C 0B |.$.STX PTR1.1.<.|
00000330: 2E 04 53 54 41 20 50 54 52 32 AA 31 00 69 0B 38 |..STA PTR2.1.i.8|
00000340: 04 4C 44 58 20 23 24 32 30 3B 47 52 41 46 49 4B |.LDX #$20;GRAFIK|
00000350: 53 45 49 54 45 20 4E 41 43 48 20 24 38 30 30 30 |SEITE NACH $8000|
00000360: 20 4B 4F 50 49 45 52 45 4E 00 7E 0B 42 04 50 4C | KOPIEREN.~.B.PL|
00000370: 30 20 4C 44 41 20 28 50 54 52 31 29 2C 59 00 8F |0 LDA (PTR1),Y..|
00000380: 0B 4C 04 53 54 41 20 28 50 54 52 32 29 2C 59 00 |.L.STA (PTR2),Y.|
00000390: 97 0B 56 04 49 4E 59 00 A3 0B 60 04 42 4E 45 20 |..V.INY...`.BNE |
000003A0: 50 4C 30 00 B2 0B 6A 04 49 4E 43 20 50 54 52 31 |PL0...j.INC PTR1|
000003B0: AA 31 00 C1 0B 74 04 49 4E 43 20 50 54 52 32 AA |.1...t.INC PTR2.|
000003C0: 31 00 C9 0B 7E 04 44 45 58 00 D5 0B 88 04 42 4E |1...~.DEX.....BN|
000003D0: 45 20 50 4C 30 00 DB 0B 92 04 3B 00 0F 0C 9C 04 |E PL0.....;.....|
000003E0: 53 54 59 20 53 A4 30 3B 53 54 41 50 45 4C 5A 45 |STY S.0;STAPELZE|
000003F0: 49 47 45 52 20 46 55 45 52 20 47 45 4D 45 52 4B |IGER FUER GEMERK|
00000400: 54 45 20 50 55 4E 4B 54 45 20 41 55 46 20 30 00 |TE PUNKTE AUF 0.|
00000410: 2E 0C A6 04 4A 53 52 20 50 41 44 52 32 3B 41 44 |....JSR PADR2;AD|
00000420: 52 45 53 53 45 20 31 2E 20 50 55 4E 4B 54 00 4E |RESSE 1. PUNKT.N|
00000430: 0C B0 04 AF 20 28 50 54 52 31 29 2C 59 3B 22 50 |.... (PTR1),Y;"P|
00000440: 55 4E 4B 54 20 47 45 53 45 54 5A 54 20 3F 00 6C |UNKT GESETZT ?.l|
00000450: 0C BA 04 42 45 51 20 50 4C 31 3B 4E 45 49 4E 2C |...BEQ PL1;NEIN,|
00000460: 20 44 41 4E 4E 20 57 45 49 54 45 52 00 80 0C C4 | DANN WEITER....|
00000470: 04 52 54 53 3B 4A 41 2C 20 44 41 4E 4E 20 80 45 |.RTS;JA, DANN .E|
00000480: 00 86 0C CE 04 3B 00 AA 0C D8 04 50 4C 31 20 53 |.....;.....PL1 S|
00000490: 54 59 20 53 A4 31 3B 4D 45 52 52 4B 46 4C 41 47 |TY S.1;MERRKFLAG|
000004A0: 20 4C 49 4E 4B 53 20 55 4E 44 00 CB 0C E2 04 53 | LINKS UND.....S|
000004B0: 54 59 20 53 A4 32 3B 52 45 43 48 54 53 20 5A 55 |TY S.2;RECHTS ZU|
000004C0: 52 55 45 43 4B 53 45 54 5A 45 4E 00 D1 0C EC 04 |RUECKSETZEN.....|
000004D0: 3B 00 F3 0C F6 04 50 4C 32 20 4C 44 41 20 59 4B |;.....PL2 LDA YK|
000004E0: 3B 4F 42 45 52 45 52 20 52 AF 20 45 52 52 45 49 |;OBERER R. ERREI|
000004F0: 43 48 54 00 02 0D 00 05 42 45 51 20 50 4C 33 3B |CHT.....BEQ PL3;|
00000500: 4A 41 00 2B 0D 0A 05 4A 53 52 20 44 59 4B 3B 4E |JA.+...JSR DYK;N|
00000510: 45 49 4E 2C 20 44 41 4E 4E 20 53 43 48 52 49 54 |EIN, DANN SCHRIT|
00000520: 54 20 4E 41 43 48 20 4F 42 45 4E 00 4D 0D 14 05 |T NACH OBEN.M...|
00000530: 4C 44 41 20 28 50 54 52 31 29 2C 59 3B 22 50 55 |LDA (PTR1),Y;"PU|
00000540: 4E 4B 54 20 47 45 53 45 54 5A 54 20 3F 00 57 0D |NKT GESETZT ?.W.|
00000550: 1E 05 AF 20 4D 53 4B 00 7D 0D 28 05 42 45 51 20 |... MSK.}.(.BEQ |
00000560: 50 4C 32 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 41 |PL2;NEIN, DANN A|
00000570: 4E 46 41 4E 47 20 53 43 48 4C 45 8B 45 00 A4 0D |NFANG SCHLE.E...|
00000580: 32 05 4A 53 52 20 49 59 4B 3B 41 55 46 20 B9 49 |2.JSR IYK;AUF .I|
00000590: 54 49 91 20 55 4E 54 45 52 20 47 45 53 2E 20 50 |TI. UNTER GES. P|
000005A0: 55 4E 4B 54 00 AA 0D 3C 05 3B 00 E4 0D 46 05 50 |UNKT...<.;...F.P|
000005B0: 4C 33 20 4A 53 52 20 50 41 44 52 32 3B 41 44 52 |L3 JSR PADR2;ADR|
000005C0: 45 53 53 45 20 44 45 53 20 50 55 4E 4B 54 45 53 |ESSE DES PUNKTES|
000005D0: 20 55 4E 44 20 4D 41 53 4B 45 20 42 45 52 45 43 | UND MASKE BEREC|
000005E0: 48 4E 45 4E 00 09 0E 50 05 4C 44 41 20 28 50 54 |HNEN...P.LDA (PT|
000005F0: 52 31 29 2C 59 3B 22 47 41 4E 5A 45 53 20 42 59 |R1),Y;"GANZES BY|
00000600: 54 45 20 4C 45 45 52 20 3F 00 1F 0E 5A 05 42 45 |TE LEER ?...Z.BE|
00000610: 51 20 50 4C 34 3B 4A 41 2C B1 B1 20 50 4C 34 00 |Q PL4;JA,.. PL4.|
00000620: 49 0E 64 05 4A 4D 50 20 50 4C 32 34 3B 5A 55 20 |I.d.JMP PL24;ZU |
00000630: 27 42 49 54 57 45 49 53 45 20 46 55 45 4C C3 27 |'BITWEISE FUEL.'|
00000640: 20 53 50 52 49 4E 47 45 4E 00 4F 0E 6E 05 3B 00 | SPRINGEN.O.n.;.|
00000650: 76 0E 78 05 50 4C 34 20 4C 44 41 20 23 24 46 46 |v.x.PL4 LDA #$FF|
00000660: 3B 47 41 4E 5A 45 53 20 42 59 54 45 28 38 20 50 |;GANZES BYTE(8 P|
00000670: 55 4E 4B 54 45 29 00 9E 0E 82 05 53 54 41 20 28 |UNKTE).....STA (|
00000680: 50 54 52 31 29 2C 59 3B 49 4E 20 24 38 30 30 30 |PTR1),Y;IN $8000|
00000690: 20 47 52 41 46 49 4B 20 53 45 54 5A 45 4E 00 C3 | GRAFIK SETZEN..|
000006A0: 0E 8C 05 4C 44 41 20 59 4B 3B B9 49 54 49 91 20 |...LDA YK;.ITI. |
000006B0: 49 4E 20 44 45 52 20 4D 55 53 54 45 52 AB 4D 41 |IN DER MUSTER.MA|
000006C0: 53 4B 45 00 E4 0E 96 05 AF 20 23 24 30 46 3B 42 |SKE...... #$0F;B|
000006D0: 45 52 45 43 48 4E 45 4E 28 31 36 AC 31 36 20 42 |ERECHNEN(16.16 B|
000006E0: 49 54 53 29 00 0C 0F A0 05 53 54 41 20 50 54 52 |ITS).....STA PTR|
000006F0: 32 3B 28 32 20 52 45 49 48 45 4E 20 4D 49 54 20 |2;(2 REIHEN MIT |
00000700: 4A 45 20 31 36 20 42 59 54 45 53 29 00 17 0F AA |JE 16 BYTES)....|
00000710: 05 4C 44 41 20 58 4B 00 22 0F B4 05 AF 20 23 24 |.LDA XK.".... #$|
00000720: 30 38 00 2A 0F BE 05 41 53 4C 00 37 0F C8 05 41 |08.*...ASL.7...A|
00000730: 44 43 20 50 54 52 32 00 3F 0F D2 05 54 41 58 00 |DC PTR2.?...TAX.|
00000740: 47 0F DC 05 43 4C 43 00 54 0F E6 05 4C 44 41 20 |G...CLC.T...LDA |
00000750: 50 54 52 31 00 61 0F F0 05 53 54 41 20 50 54 52 |PTR1.a...STA PTR|
00000760: 32 00 70 0F FA 05 4C 44 41 20 50 54 52 31 AA 31 |2.p...LDA PTR1.1|
00000770: 00 A1 0F 04 06 4F 46 31 20 41 44 43 20 23 24 43 |.....OF1 ADC #$C|
00000780: 30 3B 4F 46 46 53 45 54 20 5A 55 20 24 38 30 30 |0;OFFSET ZU $800|
00000790: 30 20 47 52 41 46 49 4B 20 41 44 44 49 45 52 45 |0 GRAFIK ADDIERE|
000007A0: 4E 00 C8 0F 0E 06 53 54 41 20 50 54 52 32 AA 31 |N.....STA PTR2.1|
000007B0: 3B 48 42 20 46 55 45 52 20 41 4B 54 55 45 4C 4C |;HB FUER AKTUELL|
000007C0: 45 20 47 52 41 46 49 4B 00 E8 0F 18 06 4C 44 41 |E GRAFIK.....LDA|
000007D0: 20 46 4D 53 4B 2C 58 3B 4D 41 53 4B 45 4E 42 59 | FMSK,X;MASKENBY|
000007E0: 54 45 20 4C 41 44 45 4E 00 1A 10 22 06 53 54 41 |TE LADEN...".STA|
000007F0: 20 28 50 54 52 32 29 2C 59 3B 55 4E 44 20 49 4E | (PTR2),Y;UND IN|
00000800: 20 41 4B 54 55 45 4C 4C 45 20 47 52 41 46 49 4B | AKTUELLE GRAFIK|
00000810: 20 53 43 48 52 45 49 42 45 4E 00 40 10 2C 06 3B | SCHREIBEN.@.,.;|
00000820: 20 4C 49 4E 4B 45 20 53 45 49 54 45 20 42 45 41 | LINKE SEITE BEA|
00000830: 52 42 45 49 54 45 4E 20 AC AC AC AC AC AC AC AC |RBEITEN ........|
00000840: 00 61 10 36 06 4C 44 41 20 58 4B AA 31 3B 4B 4F |.a.6.LDA XK.1;KO|
00000850: B0 44 49 4E 41 54 45 20 49 4E 20 4C 49 4E 4B 45 |.DINATE IN LINKE|
00000860: 52 00 7E 10 40 06 42 4E 45 20 50 4C 35 3B 22 41 |R.~.@.BNE PL5;"A|
00000870: 43 48 54 45 52 20 53 50 41 4C 54 45 20 3F 00 89 |CHTER SPALTE ?..|
00000880: 10 4A 06 4C 44 41 20 58 4B 00 96 10 54 06 43 4D |.J.LDA XK...T.CM|
00000890: 50 20 23 24 30 38 00 B5 10 5E 06 42 43 43 20 50 |P #$08...^.BCC P|
000008A0: 4C 39 3B 4C 49 4E 4B 45 52 20 52 AF 20 45 52 52 |L9;LINKER R. ERR|
000008B0: 45 49 43 48 54 00 BB 10 68 06 3B 00 E2 10 72 06 |EICHT...h.;...r.|
000008C0: 50 4C 35 20 53 45 43 3B 4E 45 49 4E 2C 4C 49 4E |PL5 SEC;NEIN,LIN|
000008D0: 4B 45 53 20 42 59 54 45 20 45 52 52 45 43 48 4E |KES BYTE ERRECHN|
000008E0: 45 4E 00 09 11 7C 06 4C 44 41 20 50 54 52 31 3B |EN...|.LDA PTR1;|
000008F0: 56 91 20 41 44 52 45 53 53 45 20 44 45 52 20 50 |V. ADRESSE DER P|
00000900: 4C 4F 54 AB B9 49 54 49 91 00 30 11 86 06 53 42 |LOT..ITI..0...SB|
00000910: 43 20 23 24 30 38 3B 38 20 41 42 5A 49 45 48 45 |C #$08;8 ABZIEHE|
00000920: 4E 28 47 4C 45 49 43 48 45 20 5A 45 49 4C 45 2C |N(GLEICHE ZEILE,|
00000930: 00 54 11 90 06 53 54 41 20 50 54 52 32 3B 41 42 |.T...STA PTR2;AB|
00000940: 45 52 20 4C 49 4E 4B 45 20 53 50 41 4C 54 45 29 |ER LINKE SPALTE)|
00000950: 20 55 4E 44 00 6D 11 9A 06 4C 44 41 20 50 54 52 | UND.m...LDA PTR|
00000960: 31 AA 31 3B 4E 41 43 48 20 50 54 52 32 00 7A 11 |1.1;NACH PTR2.z.|
00000970: A4 06 53 42 43 20 23 24 30 30 00 89 11 AE 06 53 |..SBC #$00.....S|
00000980: 54 41 20 50 54 52 32 AA 31 00 A7 11 B8 06 4C 44 |TA PTR2.1.....LD|
00000990: 41 20 28 50 54 52 32 29 2C 59 3B 4C 49 4E 4B 53 |A (PTR2),Y;LINKS|
000009A0: 20 54 45 53 54 45 4E 00 C4 11 C2 06 42 4E 45 20 | TESTEN.....BNE |
000009B0: 50 4C 37 3B 4B 45 49 4E 20 4C 45 45 52 45 53 20 |PL7;KEIN LEERES |
000009C0: 42 59 54 45 00 EF 11 CC 06 4C 44 41 20 53 A4 31 |BYTE.....LDA S.1|
000009D0: 3B 22 4C 45 45 52 45 53 20 42 59 54 45 2C 20 4D |;"LEERES BYTE, M|
000009E0: 45 52 4B 45 4E 20 45 52 4C 41 55 42 54 20 3F 00 |ERKEN ERLAUBT ?.|
000009F0: 0B 12 D6 06 42 4E 45 20 50 4C 39 3B 4D 45 52 4B |....BNE PL9;MERK|
00000A00: 45 4E 20 56 45 52 42 4F 54 45 4E 00 40 12 E0 06 |EN VERBOTEN.@...|
00000A10: 49 4E 43 20 53 A4 31 3B 4D 45 52 4B 45 4E 20 45 |INC S.1;MERKEN E|
00000A20: 52 4C 41 55 42 54 2C 41 42 45 52 20 5A 55 4B 55 |RLAUBT,ABER ZUKU|
00000A30: 45 4E 46 54 49 47 20 56 45 52 42 49 45 54 45 4E |ENFTIG VERBIETEN|
00000A40: 00 46 12 EA 06 3B 00 53 12 F4 06 4A 4D 50 20 50 |.F...;.S...JMP P|
00000A50: 4C 37 41 00 59 12 FE 06 3B 00 78 12 08 07 3B 4D |L7A.Y...;.x...;M|
00000A60: 45 52 4B 45 4E 20 31 2E 20 42 49 54 2C 4C 49 4E |ERKEN 1. BIT,LIN|
00000A70: 4B 45 20 53 45 49 54 45 00 84 12 12 07 50 4C 37 |KE SEITE.....PL7|
00000A80: 20 4C 53 52 00 9E 12 1C 07 42 43 53 20 50 4C 38 | LSR.....BCS PL8|
00000A90: 3B 50 55 4E 4B 54 20 47 45 53 45 54 5A 54 00 BC |;PUNKT GESETZT..|
00000AA0: 12 26 07 4C 44 41 20 53 A4 31 3B 22 4D 45 52 4B |.&.LDA S.1;"MERK|
00000AB0: 45 4E 20 45 52 4C 41 55 42 54 20 3F 00 D8 12 30 |EN ERLAUBT ?...0|
00000AC0: 07 42 4E 45 20 50 4C 39 3B 4D 45 52 4B 45 4E 20 |.BNE PL9;MERKEN |
00000AD0: 56 45 52 42 4F 54 45 4E 00 07 13 3A 07 49 4E 43 |VERBOTEN...:.INC|
00000AE0: 20 53 A4 31 3B 4D 45 52 4B 45 4E 20 45 52 4C 41 | S.1;MERKEN ERLA|
00000AF0: 55 42 54 2C 41 42 45 52 20 5A 55 4B 2E 20 56 45 |UBT,ABER ZUK. VE|
00000B00: 52 42 49 45 54 45 4E 00 0D 13 44 07 3B 00 2A 13 |RBIETEN...D.;.*.|
00000B10: 4E 07 50 4C 37 41 20 4C 44 58 20 53 A4 30 3B 58 |N.PL7A LDX S.0;X|
00000B20: B2 58 AB 28 58 AF 37 29 AB 31 00 35 13 58 07 4C |.X.(X.7).1.5.X.L|
00000B30: 44 41 20 58 4B 00 40 13 62 07 AF 20 23 24 30 37 |DA XK.@.b.. #$07|
00000B40: 00 4D 13 6C 07 53 54 41 20 50 54 52 32 00 55 13 |.M.l.STA PTR2.U.|
00000B50: 76 07 43 4C 43 00 60 13 80 07 4C 44 41 20 58 4B |v.CLC.`...LDA XK|
00000B60: 00 6D 13 8A 07 53 42 43 20 50 54 52 32 00 92 13 |.m...SBC PTR2...|
00000B70: 94 07 53 54 41 20 58 58 4C 2C 58 3B 4C 4F 57 AB |..STA XXL,X;LOW.|
00000B80: 2C 20 48 49 47 48 AB 42 59 54 45 20 55 4E 44 20 |, HIGH.BYTE UND |
00000B90: 59 AB 00 B8 13 9E 07 4C 44 41 20 58 4B AA 31 3B |Y......LDA XK.1;|
00000BA0: 4B 4F B0 44 49 4E 41 54 45 20 41 55 46 20 4D 45 |KO.DINATE AUF ME|
00000BB0: 52 4B 53 54 41 50 45 4C 00 CD 13 A8 07 53 42 43 |RKSTAPEL.....SBC|
00000BC0: 20 23 24 30 30 3B 41 42 4C 45 47 45 4E 00 DB 13 | #$00;ABLEGEN...|
00000BD0: B2 07 53 54 41 20 58 58 48 2C 58 00 E6 13 BC 07 |..STA XXH,X.....|
00000BE0: 4C 44 41 20 59 4B 00 F4 13 C6 07 53 54 41 20 59 |LDA YK.....STA Y|
00000BF0: 59 4B 2C 58 00 1D 14 D0 07 43 50 58 20 23 24 46 |YK,X.....CPX #$F|
00000C00: 46 3B 22 53 43 48 4F 4E 20 32 35 35 20 50 55 4E |F;"SCHON 255 PUN|
00000C10: 4B 54 45 20 47 45 4D 45 52 4B 54 20 3F 00 57 14 |KTE GEMERKT ?.W.|
00000C20: DA 07 42 45 51 20 50 4C 39 3B 4A 41 2C 20 44 41 |..BEQ PL9;JA, DA|
00000C30: 4E 4E 20 5A 45 49 47 45 52 20 41 55 46 20 B8 49 |NN ZEIGER AUF .I|
00000C40: 45 4E 20 50 4C 41 54 5A 20 4E 49 43 48 54 20 45 |EN PLATZ NICHT E|
00000C50: 52 48 4F 45 48 45 4E 00 79 14 E4 07 49 4E 43 20 |RHOEHEN.y...INC |
00000C60: 53 A4 30 3B 5A 45 49 47 45 52 20 4E 41 45 43 48 |S.0;ZEIGER NAECH|
00000C70: 53 54 45 20 B9 49 54 49 91 00 7F 14 EE 07 3B 00 |STE .ITI......;.|
00000C80: 99 14 F8 07 2E 42 59 54 20 24 32 43 3B 52 45 43 |.....BYT $2C;REC|
00000C90: 48 54 45 20 53 45 49 54 45 00 9F 14 02 08 3B 00 |HTE SEITE.....;.|
00000CA0: C6 14 0C 08 50 4C 38 20 53 54 59 20 53 A4 31 3B |....PL8 STY S.1;|
00000CB0: 4D 45 52 4B 45 4E 20 57 49 45 44 45 52 20 45 52 |MERKEN WIEDER ER|
00000CC0: 4C 41 55 42 45 4E 00 CC 14 16 08 3B 00 F2 14 20 |LAUBEN.....;... |
00000CD0: 08 3B 52 45 43 48 54 45 20 53 45 49 54 45 20 42 |.;RECHTE SEITE B|
00000CE0: 45 41 52 42 45 49 54 45 4E 20 AC AC AC AC AC AC |EARBEITEN ......|
00000CF0: AC AC 00 1C 15 2A 08 50 4C 39 20 4C 44 41 20 58 |.....*.PL9 LDA X|
00000D00: 4B AA 31 3B 22 52 45 43 48 54 45 52 20 52 41 4E |K.1;"RECHTER RAN|
00000D10: 44 20 45 52 52 45 49 43 48 54 20 3F 00 36 15 34 |D ERREICHT ?.6.4|
00000D20: 08 42 45 51 20 50 4C 31 30 3B 4E 45 49 4E 20 B1 |.BEQ PL10;NEIN .|
00000D30: B1 20 50 4C 31 30 00 41 15 3E 08 4C 44 41 20 58 |. PL10.A.>.LDA X|
00000D40: 4B 00 4F 15 48 08 43 4D 50 20 23 B3 33 31 32 00 |K.O.H.CMP #.312.|
00000D50: 79 15 52 08 42 43 53 20 50 4C 31 34 3B 4A 41 2C |y.R.BCS PL14;JA,|
00000D60: 4E 41 45 43 48 53 54 45 20 5A 45 49 4C 45 20 42 |NAECHSTE ZEILE B|
00000D70: 45 41 52 42 45 49 54 45 4E 00 7F 15 5C 08 3B 00 |EARBEITEN...\.;.|
00000D80: 99 15 66 08 50 4C 31 30 20 43 4C 43 3B 52 45 43 |..f.PL10 CLC;REC|
00000D90: 48 54 45 53 20 42 59 54 45 00 BC 15 70 08 4C 44 |HTES BYTE...p.LD|
00000DA0: 41 20 50 54 52 31 3B 42 59 54 45 20 52 45 43 48 |A PTR1;BYTE RECH|
00000DB0: 54 53 20 4E 45 42 45 4E 20 44 45 52 00 DE 15 7A |TS NEBEN DER...z|
00000DC0: 08 41 44 43 20 23 24 30 38 3B 50 4C 4F 54 AB B9 |.ADC #$08;PLOT..|
00000DD0: 49 54 49 91 20 45 52 52 45 43 48 4E 45 4E 00 FE |ITI. ERRECHNEN..|
00000DE0: 15 84 08 53 54 41 20 50 54 52 32 3B 28 50 4C 4F |...STA PTR2;(PLO|
00000DF0: 54 AB 41 44 52 45 53 53 45 20 AA 20 38 29 00 0D |T.ADRESSE . 8)..|
00000E00: 16 8E 08 4C 44 41 20 50 54 52 31 AA 31 00 1A 16 |...LDA PTR1.1...|
00000E10: 98 08 41 44 43 20 23 24 30 30 00 29 16 A2 08 53 |..ADC #$00.)...S|
00000E20: 54 41 20 50 54 52 32 AA 31 00 47 16 AC 08 4C 44 |TA PTR2.1.G...LD|
00000E30: 41 20 28 50 54 52 32 29 2C 59 3B 22 42 59 54 45 |A (PTR2),Y;"BYTE|
00000E40: 20 4C 45 45 52 20 3F 00 7C 16 B6 08 42 4E 45 20 | LEER ?.|...BNE |
00000E50: 50 4C 31 32 3B 4B 45 49 4E 20 4C 45 45 52 45 53 |PL12;KEIN LEERES|
00000E60: 20 42 59 54 45 2C 4D 45 52 4B 45 4E 20 57 49 45 | BYTE,MERKEN WIE|
00000E70: 44 45 52 20 45 52 4C 41 55 42 45 4E 00 A7 16 C0 |DER ERLAUBEN....|
00000E80: 08 4C 44 41 20 53 A4 32 3B 22 4C 45 45 52 45 53 |.LDA S.2;"LEERES|
00000E90: 20 42 59 54 45 2C 20 4D 45 52 4B 45 4E 20 45 52 | BYTE, MERKEN ER|
00000EA0: 4C 41 55 42 54 20 3F 00 D0 16 CA 08 42 4E 45 20 |LAUBT ?.....BNE |
00000EB0: 50 4C 31 34 3B 4E 45 49 4E 2C 20 4E 41 45 43 48 |PL14;NEIN, NAECH|
00000EC0: 53 54 45 20 5A 45 49 4C 45 20 42 45 41 52 42 2E |STE ZEILE BEARB.|
00000ED0: 00 F2 16 D4 08 49 4E 43 20 53 A4 32 3B 4D 45 52 |.....INC S.2;MER|
00000EE0: 4B 45 4E 20 5A 55 4B 2E 20 56 45 52 42 49 45 54 |KEN ZUK. VERBIET|
00000EF0: 45 4E 00 F8 16 DE 08 3B 00 06 17 E8 08 4A 4D 50 |EN.....;.....JMP|
00000F00: 20 50 4C 31 32 41 00 0C 17 F2 08 3B 00 3B 17 FC | PL12A.....;.;..|
00000F10: 08 50 4C 31 32 20 41 53 4C 3B 22 42 59 54 45 20 |.PL12 ASL;"BYTE |
00000F20: 4E 49 43 48 54 20 4C 45 45 52 2C 20 42 49 54 20 |NICHT LEER, BIT |
00000F30: 38 20 47 45 53 45 54 5A 54 20 3F 00 6D 17 06 09 |8 GESETZT ?.m...|
00000F40: 42 43 53 20 50 4C 31 33 3B 4A 41 2C 4D 45 52 4B |BCS PL13;JA,MERK|
00000F50: 46 4C 41 47 20 5A 55 52 55 45 43 4B 28 4D 45 52 |FLAG ZURUECK(MER|
00000F60: 4B 45 4E 20 45 52 4C 41 55 42 45 4E 29 00 8C 17 |KEN ERLAUBEN)...|
00000F70: 10 09 4C 44 41 20 53 A4 32 3B 22 4D 45 52 4B 45 |..LDA S.2;"MERKE|
00000F80: 4E 20 56 45 52 42 4F 54 45 4E 20 3F 00 9C 17 1A |N VERBOTEN ?....|
00000F90: 09 42 4E 45 20 50 4C 31 34 3B 4A 41 00 BE 17 24 |.BNE PL14;JA...$|
00000FA0: 09 49 4E 43 20 53 A4 32 3B 4D 45 52 4B 45 4E 20 |.INC S.2;MERKEN |
00000FB0: 5A 55 4B 2E 20 56 45 52 42 49 45 54 45 4E 00 C4 |ZUK. VERBIETEN..|
00000FC0: 17 2E 09 3B 00 E0 17 38 09 50 4C 31 32 41 20 4C |...;...8.PL12A L|
00000FD0: 44 58 20 53 A4 30 3B 58 B2 28 58 B0 37 29 AA 31 |DX S.0;X.(X.7).1|
00000FE0: 00 F7 17 42 09 43 4C 43 3B 41 55 46 20 4D 45 52 |...B.CLC;AUF MER|
00000FF0: 4B 53 54 41 50 45 4C 00 02 18 4C 09 4C 44 41 20 |KSTAPEL...L.LDA |
00001000: 58 4B 00 0E 18 56 09 B0 41 20 23 24 30 37 00 1B |XK...V..A #$07..|
00001010: 18 60 09 41 44 43 20 23 24 30 31 00 29 18 6A 09 |.`.ADC #$01.).j.|
00001020: 53 54 41 20 58 58 4C 2C 58 00 36 18 74 09 4C 44 |STA XXL,X.6.t.LD|
00001030: 41 20 58 4B AA 31 00 43 18 7E 09 41 44 43 20 23 |A XK.1.C.~.ADC #|
00001040: 24 30 30 00 51 18 88 09 53 54 41 20 58 58 48 2C |$00.Q...STA XXH,|
00001050: 58 00 71 18 92 09 4C 44 41 20 59 4B 3B 41 55 43 |X.q...LDA YK;AUC|
00001060: 48 20 44 49 45 20 59 AB 4B 4F B0 44 49 4E 41 54 |H DIE Y.KO.DINAT|
00001070: 45 00 7F 18 9C 09 53 54 41 20 59 59 4B 2C 58 00 |E.....STA YYK,X.|
00001080: A0 18 A6 09 43 50 58 20 23 24 46 46 3B 22 53 43 |....CPX #$FF;"SC|
00001090: 48 4F 4E 20 32 35 35 20 50 55 4E 4B 54 45 20 3F |HON 255 PUNKTE ?|
000010A0: 00 C0 18 B0 09 42 45 51 20 50 4C 31 34 3B 4A 41 |.....BEQ PL14;JA|
000010B0: 2C 20 4E 41 45 43 48 53 54 45 20 5A 45 49 4C 45 |, NAECHSTE ZEILE|
000010C0: 00 E7 18 BA 09 49 4E 43 20 53 A4 30 3B 4E 45 49 |.....INC S.0;NEI|
000010D0: 4E 2C 20 4E 41 45 43 48 53 54 45 52 20 B8 49 45 |N, NAECHSTER .IE|
000010E0: 52 20 50 4C 41 54 5A 00 03 19 C4 09 2E 42 59 54 |R PLATZ......BYT|
000010F0: 20 24 32 43 3B 4E 41 45 43 48 53 54 45 20 5A 45 | $2C;NAECHSTE ZE|
00001100: 49 4C 45 00 09 19 CE 09 3B 00 40 19 D8 09 50 4C |ILE.....;.@...PL|
00001110: 31 33 20 53 54 59 20 53 A4 32 3B 4D 45 52 4B 45 |13 STY S.2;MERKE|
00001120: 4E 20 49 4D 20 4E 41 45 43 48 53 54 45 4E 20 44 |N IM NAECHSTEN D|
00001130: 55 52 43 48 4C 41 55 46 20 45 52 4C 41 55 42 54 |URCHLAUF ERLAUBT|
00001140: 00 46 19 E2 09 3B 00 73 19 EC 09 50 4C 31 34 20 |.F...;.s...PL14 |
00001150: 4A 53 52 20 49 59 4B 3B 59 B2 59 AA 31 20 55 4E |JSR IYK;Y.Y.1 UN|
00001160: 44 20 41 44 52 45 53 53 45 20 4E 41 43 48 20 50 |D ADRESSE NACH P|
00001170: 54 52 31 00 8B 19 F6 09 4C 44 41 20 59 4B 3B 53 |TR1.....LDA YK;S|
00001180: 43 48 91 20 55 4E 54 45 52 45 52 00 A0 19 00 0A |CH. UNTERER.....|
00001190: 43 4D 50 20 23 24 43 38 3B 22 52 41 4E 44 20 3F |CMP #$C8;"RAND ?|
000011A0: 00 C5 19 0A 0A 42 43 53 20 50 4C 31 36 3B 4A 41 |.....BCS PL16;JA|
000011B0: 2C 20 55 4E 54 45 52 45 52 20 52 AF 20 45 52 52 |, UNTERER R. ERR|
000011C0: 45 49 43 48 54 00 E9 19 14 0A 4C 44 41 20 28 50 |EICHT.....LDA (P|
000011D0: 54 52 31 29 2C 59 3B 22 4E 45 49 4E 2C 20 42 59 |TR1),Y;"NEIN, BY|
000011E0: 54 45 20 4C 45 45 52 20 3F 00 0A 1A 1E 0A 42 4E |TE LEER ?.....BN|
000011F0: 45 20 50 4C 31 38 3B 4E 45 49 4E 2C 20 30 AB 42 |E PL18;NEIN, 0.B|
00001200: 49 54 53 20 4D 45 52 4B 45 4E 00 29 1A 28 0A 4A |ITS MERKEN.).(.J|
00001210: 4D 50 20 50 4C 34 3B 5A 55 4D 20 53 43 48 4C 45 |MP PL4;ZUM SCHLE|
00001220: 8B 45 4E 42 45 47 49 4E 4E 00 2F 1A 32 0A 3B 00 |.ENBEGINN./.2.;.|
00001230: 64 1A 3C 0A 50 4C 31 36 20 44 45 43 20 53 A4 30 |d.<.PL16 DEC S.0|
00001240: 3B 5A 45 49 47 54 20 4A 45 54 5A 54 20 41 55 46 |;ZEIGT JETZT AUF|
00001250: 20 88 5A 54 20 47 45 4D 45 52 4B 54 45 4E 20 50 | .ZT GEMERKTEN P|
00001260: 55 4E 4B 54 00 70 1A 46 0A 4C 44 58 20 53 A4 30 |UNKT.p.F.LDX S.0|
00001270: 00 96 1A 50 0A 43 50 58 20 23 24 46 46 3B 4B 45 |...P.CPX #$FF;KE|
00001280: 49 4E 20 50 55 4E 4B 54 20 4D 45 48 52 2C 20 44 |IN PUNKT MEHR, D|
00001290: 41 4E 4E 20 80 45 00 A3 1A 5A 0A 42 4E 45 20 50 |ANN .E...Z.BNE P|
000012A0: 4C 31 37 00 AB 1A 64 0A 52 54 53 00 B1 1A 6E 0A |L17...d.RTS...n.|
000012B0: 3B 00 D3 1A 78 0A 50 4C 31 37 20 4C 44 41 20 58 |;...x.PL17 LDA X|
000012C0: 58 4C 2C 58 3B 4B 4F B0 44 49 4E 41 54 45 4E 20 |XL,X;KO.DINATEN |
000012D0: 48 4F C3 00 DE 1A 82 0A 53 54 41 20 58 4B 00 EC |HO......STA XK..|
000012E0: 1A 8C 0A 4C 44 41 20 58 58 48 2C 58 00 F9 1A 96 |...LDA XXH,X....|
000012F0: 0A 53 54 41 20 58 4B AA 31 00 07 1B A0 0A 4C 44 |.STA XK.1.....LD|
00001300: 41 20 59 59 4B 2C 58 00 12 1B AA 0A 53 54 41 20 |A YYK,X.....STA |
00001310: 59 4B 00 44 1B B4 0A 4A 53 52 20 50 41 44 52 32 |YK.D...JSR PADR2|
00001320: 3B 41 44 52 45 53 53 45 20 55 4E 44 20 4D 41 53 |;ADRESSE UND MAS|
00001330: 4B 45 20 5A 55 20 44 45 4E 20 4B 4F B0 44 49 4E |KE ZU DEN KO.DIN|
00001340: 41 54 45 4E 00 64 1B BE 0A AF 20 28 50 54 52 31 |ATEN.d.... (PTR1|
00001350: 29 2C 59 3B 22 50 55 4E 4B 54 20 47 45 53 45 54 |),Y;"PUNKT GESET|
00001360: 5A 54 20 3F 00 8E 1B C8 0A 42 4E 45 20 50 4C 31 |ZT ?.....BNE PL1|
00001370: 36 3B 4A 41 2C 20 44 41 4E 4E 20 4E 41 45 43 48 |6;JA, DANN NAECH|
00001380: 53 54 45 4E 20 50 55 4E 4B 54 20 48 4F C3 00 94 |STEN PUNKT HO...|
00001390: 1B D2 0A 3B 00 B2 1B DC 0A 4A 4D 50 20 50 4C 31 |...;.....JMP PL1|
000013A0: 3B 5A 55 4D 20 53 43 4C 45 8B 45 4E 42 45 47 49 |;ZUM SCLE.ENBEGI|
000013B0: 4E 4E 00 B8 1B E6 0A 3B 00 DE 1B E7 0A 3B 42 45 |NN.....;.....;BE|
000013C0: 52 45 43 48 4E 45 54 20 41 55 53 20 45 49 4E 45 |RECHNET AUS EINE|
000013D0: 4D 20 42 59 54 45 2C 57 45 4C 43 48 45 53 00 09 |M BYTE,WELCHES..|
000013E0: 1C E8 0A 3B 53 49 43 48 20 49 4D 20 41 4B 4B 55 |...;SICH IM AKKU|
000013F0: 20 42 45 46 49 4E 44 45 54 2C 20 44 49 45 20 4B | BEFINDET, DIE K|
00001400: 4F B0 44 49 4E 41 54 45 4E 00 31 1C E9 0A 3B 4A |O.DINATEN.1...;J|
00001410: 45 44 45 53 20 42 49 54 53 20 55 4E 44 20 53 50 |EDES BITS UND SP|
00001420: 45 49 43 48 45 52 54 20 44 49 45 20 4B 4F B0 44 |EICHERT DIE KO.D|
00001430: 2E 00 46 1C EA 0A 3B 41 4C 4C 45 52 20 30 AB 42 |..F...;ALLER 0.B|
00001440: 49 54 53 20 41 42 00 69 1C F0 0A 50 4C 31 38 20 |ITS AB.i...PL18 |
00001450: 43 4D 50 20 23 24 46 46 3B 47 41 4E 5A 45 53 20 |CMP #$FF;GANZES |
00001460: 42 59 54 45 20 56 4F 4C 4C 00 87 1C FA 0A 42 45 |BYTE VOLL.....BE|
00001470: 51 20 50 4C 31 36 3B 4B 45 49 4E 45 20 30 AB 42 |Q PL16;KEINE 0.B|
00001480: 49 54 53 2C 20 80 45 00 8D 1C 04 0B 3B 00 B2 1C |ITS, .E.....;...|
00001490: 0E 0B 54 41 58 3B 4E 49 43 48 54 20 4C 45 45 52 |..TAX;NICHT LEER|
000014A0: 45 53 20 42 59 54 45 20 42 45 41 52 42 45 49 54 |ES BYTE BEARBEIT|
000014B0: 45 4E 00 E1 1C 18 0B 4C 44 41 20 58 4B 3B 4B 4F |EN.....LDA XK;KO|
000014C0: B0 44 49 4E 41 54 45 4E 20 41 55 46 20 44 41 53 |.DINATEN AUF DAS|
000014D0: 20 38 2E 20 42 49 54 20 44 45 53 20 42 59 54 45 | 8. BIT DES BYTE|
000014E0: 53 00 EC 1C 22 0B AF 20 23 24 46 38 00 F7 1C 2C |S...".. #$F8...,|
000014F0: 0B 53 54 41 20 58 4B 00 31 1D 36 0B 53 54 59 20 |.STA XK.1.6.STY |
00001500: 46 3B 4D 45 52 4B 46 4C 41 47 20 B2 20 30 28 59 |F;MERKFLAG . 0(Y|
00001510: 52 45 47 2E B2 30 21 29 5B 4D 45 52 4B 45 4E 20 |REG..0!)[MERKEN |
00001520: 49 4D 20 42 59 54 45 20 45 52 4C 41 55 42 45 4E |IM BYTE ERLAUBEN|
00001530: 5D 00 3E 1D 40 0B 50 4C 31 39 20 54 58 41 00 6C |].>.@.PL19 TXA.l|
00001540: 1D 4A 0B AF 20 4D 53 4B 31 2C 59 3B 42 49 54 AB |.J.. MSK1,Y;BIT.|
00001550: B9 49 54 49 91 45 4E 20 56 91 20 4C 49 4E 4B 53 |.ITI.EN V. LINKS|
00001560: 20 4E 41 43 48 20 52 45 43 48 54 53 00 87 1D 54 | NACH RECHTS...T|
00001570: 0B 42 4E 45 20 50 4C 32 33 3B 47 45 53 45 54 5A |.BNE PL23;GESETZ|
00001580: 54 45 53 20 42 49 54 00 A2 1D 5E 0B 4C 44 41 20 |TES BIT...^.LDA |
00001590: 46 3B 4D 45 52 4B 45 4E 20 45 52 4C 41 55 42 54 |F;MERKEN ERLAUBT|
000015A0: 20 99 00 B4 1D 68 0B 42 4E 45 20 50 4C 32 31 3B | ....h.BNE PL21;|
000015B0: 4E 45 49 4E 00 D7 1D 72 0B 49 4E 43 20 46 3B 4A |NEIN...r.INC F;J|
000015C0: 41 2C 20 41 42 45 52 20 5A 55 4B 2E 20 4E 49 43 |A, ABER ZUK. NIC|
000015D0: 48 54 20 4D 45 48 52 00 EB 1D 7C 0B 54 58 41 3B |HT MEHR...|.TXA;|
000015E0: 42 59 54 45 20 52 45 54 54 45 4E 00 F3 1D 86 0B |BYTE RETTEN.....|
000015F0: 50 48 41 00 0C 1E 90 0B 4C 44 58 20 53 A4 30 3B |PHA.....LDX S.0;|
00001600: 53 54 41 50 45 4C 5A 45 49 47 45 52 00 2A 1E 9A |STAPELZEIGER.*..|
00001610: 0B 4C 44 41 20 58 4B 3B 4B 4F B0 44 49 4E 41 54 |.LDA XK;KO.DINAT|
00001620: 45 4E 20 41 42 4C 45 47 45 4E 00 38 1E A4 0B 53 |EN ABLEGEN.8...S|
00001630: 54 41 20 58 58 4C 2C 58 00 45 1E AE 0B 4C 44 41 |TA XXL,X.E...LDA|
00001640: 20 58 4B AA 31 00 53 1E B8 0B 53 54 41 20 58 58 | XK.1.S...STA XX|
00001650: 48 2C 58 00 5E 1E C2 0B 4C 44 41 20 59 4B 00 6C |H,X.^...LDA YK.l|
00001660: 1E CC 0B 53 54 41 20 59 59 4B 2C 58 00 8D 1E D6 |...STA YYK,X....|
00001670: 0B 43 50 58 20 23 24 46 46 3B 22 53 43 48 4F 4E |.CPX #$FF;"SCHON|
00001680: 20 32 35 35 20 50 55 4E 4B 54 45 20 3F 00 AE 1E | 255 PUNKTE ?...|
00001690: E0 0B 42 45 51 20 50 4C 32 30 3B 4A 41 2C 20 44 |..BEQ PL20;JA, D|
000016A0: 41 4E 4E 20 55 45 42 45 52 47 45 48 45 4E 00 CE |ANN UEBERGEHEN..|
000016B0: 1E EA 0B 49 4E 43 20 53 A4 30 3B 4D 45 52 4B 5A |...INC S.0;MERKZ|
000016C0: 45 49 47 45 52 20 45 52 48 4F 45 48 45 4E 00 EB |EIGER ERHOEHEN..|
000016D0: 1E F4 0B 50 4C 32 30 20 50 4C 41 3B 42 59 54 45 |...PL20 PLA;BYTE|
000016E0: 20 5A 55 52 55 45 43 4B 48 4F C3 00 02 1F FE 0B | ZURUECKHO......|
000016F0: 54 41 58 3B 55 4E 44 20 49 4E 53 20 58 AB 52 45 |TAX;UND INS X.RE|
00001700: 47 2E 00 27 1F 08 0C 50 4C 32 31 20 49 4E 43 20 |G..'...PL21 INC |
00001710: 58 4B 3B 58 AB 4B 4F B0 44 49 4E 41 54 45 20 45 |XK;X.KO.DINATE E|
00001720: 52 48 4F 45 48 45 4E 00 46 1F 12 0C 49 4E 59 3B |RHOEHEN.F...INY;|
00001730: B9 49 54 49 91 20 49 4D 20 42 59 54 45 20 45 52 |.ITI. IM BYTE ER|
00001740: 48 4F 45 48 45 4E 00 64 1F 1C 0C 43 50 59 20 23 |HOEHEN.d...CPY #|
00001750: 24 30 38 3B 22 53 43 48 4F 4E 20 41 4D 20 45 4E |$08;"SCHON AM EN|
00001760: 44 45 20 3F 00 80 1F 26 0C 42 43 43 20 50 4C 31 |DE ?...&.BCC PL1|
00001770: 39 3B 4E 45 49 4E 20 2C 20 53 43 48 4C 45 8B 45 |9;NEIN , SCHLE.E|
00001780: 00 86 1F 30 0C 3B 00 A9 1F 3A 0C 4C 44 41 20 58 |...0.;...:.LDA X|
00001790: 4B 3B 58 AB 4B 4F B0 44 49 4E 41 54 45 20 45 52 |K;X.KO.DINATE ER|
000017A0: 4E 49 45 44 52 49 47 45 4E 00 CF 1F 44 0C 42 4E |NIEDRIGEN...D.BN|
000017B0: 45 20 50 4C 32 32 3B 28 55 4D 20 57 49 45 44 45 |E PL22;(UM WIEDE|
000017C0: 52 20 49 4D 20 52 49 43 48 54 49 49 47 45 4E 00 |R IM RICHTIIGEN.|
000017D0: EA 1F 4E 0C 44 45 43 20 58 4B AA 31 3B 42 59 54 |..N.DEC XK.1;BYT|
000017E0: 45 20 5A 55 20 53 45 49 4E 29 00 FA 1F 58 0C 50 |E ZU SEIN)...X.P|
000017F0: 4C 32 32 20 44 45 43 20 58 4B 00 1D 20 62 0C 4C |L22 DEC XK.. b.L|
00001800: 44 59 20 23 24 30 30 3B 59 AB 52 45 47 20 57 49 |DY #$00;Y.REG WI|
00001810: 45 44 45 52 20 41 55 46 20 4E 55 4C 4C 00 45 20 |EDER AUF NULL.E |
00001820: 6C 0C 4A 4D 50 20 50 4C 31 36 3B 47 45 4D 45 52 |l.JMP PL16;GEMER|
00001830: 4B 54 45 20 50 55 4E 4B 54 45 20 42 45 41 52 42 |KTE PUNKTE BEARB|
00001840: 45 49 54 45 4E 00 4B 20 76 0C 3B 00 7B 20 80 0C |EITEN.K v.;.{ ..|
00001850: 50 4C 32 33 20 4C 44 41 20 23 24 30 30 3B 4D 45 |PL23 LDA #$00;ME|
00001860: 52 4B 45 4E 20 44 45 52 20 30 AB 42 49 54 53 20 |RKEN DER 0.BITS |
00001870: 57 49 45 44 45 52 20 45 52 4C 2E 00 85 20 8A 0C |WIEDER ERL... ..|
00001880: 53 54 41 20 46 00 9C 20 94 0C 42 45 51 20 50 4C |STA F.. ..BEQ PL|
00001890: 32 31 3B 55 4E 42 45 44 49 4E 47 54 00 A2 20 9E |21;UNBEDINGT.. .|
000018A0: 0C 3B 00 C5 20 A8 0C 3B 20 42 49 54 20 46 55 45 |.;.. ..; BIT FUE|
000018B0: 4C C3 44 20 AC AC AC AC AC AC AC AC AC AC AC AC |L.D ............|
000018C0: AC AC AC AC AC 00 E9 20 A9 0C 3B 57 49 52 44 20 |....... ..;WIRD |
000018D0: 41 4E 47 45 53 50 8A 47 45 4E 2C 20 57 45 4E 4E |ANGESP.GEN, WENN|
000018E0: 20 45 53 20 4E 49 43 48 54 00 11 21 AA 0C 3B 4D | ES NICHT..!..;M|
000018F0: 4F 45 47 4C 49 43 48 20 49 53 54 2C 20 27 42 59 |OEGLICH IST, 'BY|
00001900: 54 45 57 45 49 53 45 27 20 38 20 50 55 4E 4B 54 |TEWEISE' 8 PUNKT|
00001910: 45 00 2B 21 AB 0C 3B 41 55 46 20 45 49 4E 4D 41 |E.+!..;AUF EINMA|
00001920: 4C 20 5A 55 20 53 45 54 5A 45 4E 00 31 21 AC 0C |L ZU SETZEN.1!..|
00001930: 3B 00 57 21 B2 0C 50 4C 32 34 20 53 54 59 20 53 |;.W!..PL24 STY S|
00001940: A4 31 3B 4D 45 52 4B 46 4C 41 47 53 20 46 55 45 |.1;MERKFLAGS FUE|
00001950: 52 20 4C 49 4E 4B 45 00 7C 21 BC 0C 53 54 59 20 |R LINKE.|!..STY |
00001960: 53 A4 32 3B 55 4E 44 20 52 45 43 48 54 45 20 53 |S.2;UND RECHTE S|
00001970: 45 49 54 45 20 5A 55 52 55 45 43 4B 00 82 21 C6 |EITE ZURUECK..!.|
00001980: 0C 3B 00 B2 21 D0 0C 50 4C 32 35 20 4A 53 52 20 |.;..!..PL25 JSR |
00001990: 50 41 44 52 32 3B 41 44 52 45 53 53 45 20 55 4E |PADR2;ADRESSE UN|
000019A0: 44 20 4D 41 53 4B 45 28 49 4D 20 41 4B 4B 55 20 |D MASKE(IM AKKU |
000019B0: 21 29 00 D9 21 DA 0C B0 41 20 28 50 54 52 31 29 |!)..!...A (PTR1)|
000019C0: 2C 59 3B 49 4E 20 24 38 30 30 30 20 47 52 41 46 |,Y;IN $8000 GRAF|
000019D0: 49 4B 20 53 45 54 5A 45 4E 00 EA 21 E4 0C 53 54 |IK SETZEN..!..ST|
000019E0: 41 20 28 50 54 52 31 29 2C 59 00 15 22 EE 0C 43 |A (PTR1),Y.."..C|
000019F0: 4C 43 3B 49 4E 20 41 4B 54 55 45 4C 4C 45 52 20 |LC;IN AKTUELLER |
00001A00: 47 52 41 46 49 4B 20 4D 55 53 54 45 52 20 50 4C |GRAFIK MUSTER PL|
00001A10: 4F 54 54 45 4E 00 38 22 F8 0C 4C 44 41 20 50 54 |OTTEN.8"..LDA PT|
00001A20: 52 31 3B B9 49 54 49 91 20 49 4E 20 4D 55 53 54 |R1;.ITI. IN MUST|
00001A30: 45 52 AB 4D 41 53 4B 45 00 4F 22 02 0D 53 54 41 |ER.MASKE.O"..STA|
00001A40: 20 50 54 52 32 3B 42 45 52 45 43 48 4E 45 4E 00 | PTR2;BERECHNEN.|
00001A50: 5E 22 0C 0D 4C 44 41 20 50 54 52 31 AA 31 00 8F |^"..LDA PTR1.1..|
00001A60: 22 16 0D 4F 46 32 20 41 44 43 20 23 24 43 30 3B |"..OF2 ADC #$C0;|
00001A70: 4F 46 46 53 45 54 20 56 91 20 24 38 30 30 30 20 |OFFSET V. $8000 |
00001A80: 47 52 41 46 49 4B 20 5A 55 52 20 41 4B 54 2E 00 |GRAFIK ZUR AKT..|
00001A90: 9E 22 20 0D 53 54 41 20 50 54 52 32 AA 31 00 A9 |." .STA PTR2.1..|
00001AA0: 22 2A 0D 4C 44 41 20 59 4B 00 B4 22 34 0D AF 20 |"*.LDA YK.."4.. |
00001AB0: 23 24 30 46 00 C1 22 3E 0D 53 54 41 20 50 54 52 |#$0F..">.STA PTR|
00001AC0: 33 00 CC 22 48 0D 4C 44 41 20 58 4B 00 D7 22 52 |3.."H.LDA XK.."R|
00001AD0: 0D AF 20 23 24 30 38 00 DF 22 5C 0D 41 53 4C 00 |.. #$08.."\.ASL.|
00001AE0: EB 22 66 0D B0 41 20 50 54 52 33 00 F3 22 70 0D |."f..A PTR3.."p.|
00001AF0: 54 41 58 00 1C 23 7A 0D 4C 44 41 20 46 4D 53 4B |TAX..#z.LDA FMSK|
00001B00: 2C 58 3B 42 59 54 45 20 41 55 53 20 44 45 52 20 |,X;BYTE AUS DER |
00001B10: 4D 55 53 54 45 52 AB 4D 41 53 4B 45 00 49 23 84 |MUSTER.MASKE.I#.|
00001B20: 0D AF 20 4D 53 4B 3B 4E 49 43 48 54 20 42 45 4E |.. MSK;NICHT BEN|
00001B30: 4F 45 54 49 47 54 45 20 42 49 54 53 20 41 55 53 |OETIGTE BITS AUS|
00001B40: 4D 41 53 4B 49 45 52 45 4E 00 74 23 8E 0D B0 41 |MASKIEREN.t#...A|
00001B50: 20 28 50 54 52 32 29 2C 59 3B 49 4E 20 5A 45 49 | (PTR2),Y;IN ZEI|
00001B60: 43 48 45 4E 47 52 41 46 49 4B 20 53 43 48 52 45 |CHENGRAFIK SCHRE|
00001B70: 49 42 45 4E 00 85 23 98 0D 53 54 41 20 28 50 54 |IBEN..#..STA (PT|
00001B80: 52 32 29 2C 59 00 8B 23 A2 0D 3B 00 A0 23 AC 0D |R2),Y..#..;..#..|
00001B90: 4C 44 41 20 58 4B 3B 22 58 4B 20 3D 20 30 20 3F |LDA XK;"XK = 0 ?|
00001BA0: 00 AC 23 B6 0D B0 41 20 58 4B AA 31 00 DD 23 C0 |..#...A XK.1..#.|
00001BB0: 0D 42 45 51 20 50 4C 32 39 3B 4A 41 2C 20 44 41 |.BEQ PL29;JA, DA|
00001BC0: 4E 4E 20 54 45 53 54 45 4E 20 4C 49 4E 4B 53 20 |NN TESTEN LINKS |
00001BD0: 55 45 42 45 52 53 50 52 49 4E 47 45 4E 00 F4 23 |UEBERSPRINGEN..#|
00001BE0: CA 0D 3B 54 45 53 54 45 4E 20 4C 49 4E 4B 53 20 |..;TESTEN LINKS |
00001BF0: AB AB AB AB 00 0B 24 D4 0D 4C 44 41 20 4D 53 4B |......$..LDA MSK|
00001C00: 3B 50 4C 4F 54 AB 4D 41 53 4B 45 00 2A 24 DE 0D |;PLOT.MASKE.*$..|
00001C10: 41 53 4C 3B 4E 41 43 48 20 4C 49 4E 4B 53 20 56 |ASL;NACH LINKS V|
00001C20: 45 52 53 43 48 49 45 42 45 4E 00 44 24 E8 0D 42 |ERSCHIEBEN.D$..B|
00001C30: 43 43 20 50 4C 32 38 3B 4E 4F 43 48 20 49 4D 20 |CC PL28;NOCH IM |
00001C40: 42 59 54 45 00 4A 24 F2 0D 3B 00 62 24 FC 0D 4C |BYTE.J$..;.b$..L|
00001C50: 44 41 20 50 54 52 31 3B 41 55 53 53 45 52 48 41 |DA PTR1;AUSSERHA|
00001C60: 4C 42 00 8E 24 06 0E 53 42 43 20 23 24 30 38 3B |LB..$..SBC #$08;|
00001C70: 42 59 54 45 B9 49 54 49 91 20 4E 45 42 45 4E 20 |BYTE.ITI. NEBEN |
00001C80: 44 45 4D 20 27 50 4C 4F 54 42 59 54 45 27 00 9B |DEM 'PLOTBYTE'..|
00001C90: 24 10 0E 53 54 41 20 50 54 52 32 00 AA 24 1A 0E |$..STA PTR2..$..|
00001CA0: 4C 44 41 20 50 54 52 31 AA 31 00 B7 24 24 0E 53 |LDA PTR1.1..$$.S|
00001CB0: 42 43 20 23 24 30 30 00 C6 24 2E 0E 53 54 41 20 |BC #$00..$..STA |
00001CC0: 50 54 52 32 AA 31 00 DD 24 38 0E 4C 44 41 20 28 |PTR2.1..$8.LDA (|
00001CD0: 50 54 52 32 29 2C 59 3B 4C 41 44 45 4E 00 F6 24 |PTR2),Y;LADEN..$|
00001CE0: 42 0E 4C 53 52 3B 22 31 2E 42 49 54 20 47 45 53 |B.LSR;"1.BIT GES|
00001CF0: 45 54 5A 54 20 3F 00 1C 25 4C 0E 42 43 53 20 50 |ETZT ?..%L.BCS P|
00001D00: 4C 32 37 3B 4A 41 2C 20 44 41 4E 4E 20 4D 45 52 |L27;JA, DANN MER|
00001D10: 4B 45 4E 20 45 52 4C 41 55 42 45 4E 00 48 25 56 |KEN ERLAUBEN.H%V|
00001D20: 0E 50 4C 32 36 20 4C 44 41 20 53 A4 31 3B 22 4E |.PL26 LDA S.1;"N|
00001D30: 45 49 4E 2C 20 4D 45 52 4B 45 4E 20 4C 49 4E 4B |EIN, MERKEN LINK|
00001D40: 53 20 45 52 4C 2E 20 3F 00 69 25 60 0E 42 4E 45 |S ERL. ?.i%`.BNE|
00001D50: 20 50 4C 32 39 3B 4E 45 49 4E 2C 20 55 45 42 45 | PL29;NEIN, UEBE|
00001D60: 52 53 50 52 49 4E 47 45 4E 00 8F 25 6A 0E 49 4E |RSPRINGEN..%j.IN|
00001D70: 43 20 53 A4 31 3B 4A 41 2C 20 41 42 45 52 20 4A |C S.1;JA, ABER J|
00001D80: 45 54 5A 54 20 4E 49 43 48 54 20 4D 45 48 52 00 |ETZT NICHT MEHR.|
00001D90: 95 25 74 0E 3B 00 AE 25 7E 0E 4C 44 58 20 53 A4 |.%t.;..%~.LDX S.|
00001DA0: 30 3B 53 54 41 50 45 4C 5A 45 49 47 45 52 00 CC |0;STAPELZEIGER..|
00001DB0: 25 88 0E 53 45 43 3B B9 49 54 49 91 20 4C 49 4E |%..SEC;.ITI. LIN|
00001DC0: 4B 53 20 53 50 45 49 43 48 45 52 4E 00 D7 25 92 |KS SPEICHERN..%.|
00001DD0: 0E 4C 44 41 20 58 4B 00 E4 25 9C 0E 53 42 43 20 |.LDA XK..%..SBC |
00001DE0: 23 24 30 31 00 F2 25 A6 0E 53 54 41 20 58 58 4C |#$01..%..STA XXL|
00001DF0: 2C 58 00 FF 25 B0 0E 4C 44 41 20 58 4B AA 31 00 |,X..%..LDA XK.1.|
00001E00: 0C 26 BA 0E 53 42 43 20 23 24 30 30 00 1A 26 C4 |.&..SBC #$00..&.|
00001E10: 0E 53 54 41 20 58 58 48 2C 58 00 25 26 CE 0E 4C |.STA XXH,X.%&..L|
00001E20: 44 41 20 59 4B 00 33 26 D8 0E 53 54 41 20 59 59 |DA YK.3&..STA YY|
00001E30: 4B 2C 58 00 4D 26 E2 0E 43 50 58 20 23 24 46 46 |K,X.M&..CPX #$FF|
00001E40: 3B 22 53 43 48 4F 4E 20 32 35 35 20 3F 00 75 26 |;"SCHON 255 ?.u&|
00001E50: EC 0E 42 45 51 20 50 4C 32 39 3B 4A 41 2C 20 45 |..BEQ PL29;JA, E|
00001E60: 52 48 4F 45 48 45 4E 20 55 45 42 45 52 53 50 52 |RHOEHEN UEBERSPR|
00001E70: 49 4E 47 45 4E 00 8A 26 F6 0E 49 4E 43 20 53 A4 |INGEN..&..INC S.|
00001E80: 30 3B 45 52 48 4F 45 48 45 4E 00 AD 26 00 0F 4A |0;ERHOEHEN..&..J|
00001E90: 4D 50 20 50 4C 32 39 3B 55 4E 44 20 5A 55 52 20 |MP PL29;UND ZUR |
00001EA0: 52 45 43 48 54 45 4E 20 53 45 49 54 45 00 B3 26 |RECHTEN SEITE..&|
00001EB0: 0A 0F 3B 00 D6 26 14 0F 50 4C 32 38 20 AF 20 28 |..;..&..PL28 . (|
00001EC0: 50 54 52 31 29 2C 59 3B 22 42 49 54 20 47 45 53 |PTR1),Y;"BIT GES|
00001ED0: 45 54 5A 54 20 3F 00 06 27 1E 0F 42 45 51 20 50 |ETZT ?..'..BEQ P|
00001EE0: 4C 32 36 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 41 |L26;NEIN, DANN A|
00001EF0: 42 46 52 41 47 45 20 4D 45 52 4B 45 4E 20 45 52 |BFRAGE MERKEN ER|
00001F00: 4C 2E 20 55 53 57 00 0C 27 28 0F 3B 00 33 27 32 |L. USW..'(.;.3'2|
00001F10: 0F 50 4C 32 37 20 53 54 59 20 53 A4 31 3B 4D 45 |.PL27 STY S.1;ME|
00001F20: 52 4B 45 4E 20 4C 49 4E 4B 53 20 45 52 4C 41 55 |RKEN LINKS ERLAU|
00001F30: 42 45 4E 00 39 27 3C 0F 3B 00 4B 27 46 0F 3B 52 |BEN.9'<.;.K'F.;R|
00001F40: 45 43 48 54 45 20 53 45 49 54 45 00 66 27 50 0F |ECHTE SEITE.f'P.|
00001F50: 50 4C 32 39 20 4C 44 41 20 58 4B AA 31 3B 22 58 |PL29 LDA XK.1;"X|
00001F60: 3D 33 31 39 20 3F 00 7C 27 5A 0F 42 45 51 20 50 |=319 ?.|'Z.BEQ P|
00001F70: 4C 33 30 3B 4E 45 49 4E 2C 20 4F 4B 00 87 27 64 |L30;NEIN, OK..'d|
00001F80: 0F 4C 44 41 20 58 4B 00 95 27 6E 0F 43 4D 50 20 |.LDA XK..'n.CMP |
00001F90: 23 B3 33 31 39 00 C9 27 78 0F 42 43 53 20 50 4C |#.319..'x.BCS PL|
00001FA0: 33 34 3B 4A 41 2C 20 44 41 4E 4E 20 52 45 43 48 |34;JA, DANN RECH|
00001FB0: 54 45 20 53 45 49 54 45 20 42 45 41 52 42 2E 20 |TE SEITE BEARB. |
00001FC0: 55 45 42 45 52 53 50 52 2E 00 CF 27 82 0F 3B 00 |UEBERSPR...'..;.|
00001FD0: EB 27 8C 0F 50 4C 33 30 20 4C 44 41 20 4D 53 4B |.'..PL30 LDA MSK|
00001FE0: 3B 50 4C 4F 54 AB 4D 41 53 4B 45 00 01 28 96 0F |;PLOT.MASKE..(..|
00001FF0: 4C 53 52 3B 50 49 58 45 4C 20 44 41 4E 45 42 45 |LSR;PIXEL DANEBE|
00002000: 4E 00 27 28 A0 0F 42 43 43 20 50 4C 33 32 3B 4E |N.'(..BCC PL32;N|
00002010: 4F 43 48 20 49 4E 4E 45 52 48 41 4C 42 20 44 45 |OCH INNERHALB DE|
00002020: 53 20 42 59 54 45 53 00 2D 28 AA 0F 3B 00 56 28 |S BYTES.-(..;.V(|
00002030: B4 0F 4C 44 41 20 50 54 52 31 3B 41 55 53 53 45 |..LDA PTR1;AUSSE|
00002040: 52 48 41 4C 42 2C 20 38 20 41 44 44 49 45 52 45 |RHALB, 8 ADDIERE|
00002050: 4E 28 43 B2 31 29 00 63 28 BE 0F 41 44 43 20 23 |N(C.1).c(..ADC #|
00002060: 24 30 37 00 70 28 C8 0F 53 54 41 20 50 54 52 32 |$07.p(..STA PTR2|
00002070: 00 7F 28 D2 0F 4C 44 41 20 50 54 52 31 AA 31 00 |..(..LDA PTR1.1.|
00002080: 8C 28 DC 0F 41 44 43 20 23 24 30 30 00 9B 28 E6 |.(..ADC #$00..(.|
00002090: 0F 53 54 41 20 50 54 52 32 AA 31 00 B7 28 F0 0F |.STA PTR2.1..(..|
000020A0: 4C 44 41 20 28 50 54 52 32 29 2C 59 3B 42 59 54 |LDA (PTR2),Y;BYT|
000020B0: 45 20 4C 41 44 45 4E 00 D8 28 FA 0F 41 53 4C 3B |E LADEN..(..ASL;|
000020C0: 22 42 49 54 20 38 20 28 50 55 4E 4B 54 29 20 47 |"BIT 8 (PUNKT) G|
000020D0: 45 53 45 54 5A 54 20 3F 00 00 29 04 10 42 43 53 |ESETZT ?..)..BCS|
000020E0: 20 50 4C 33 33 3B 4A 41 2C 20 4D 45 52 4B 45 4E | PL33;JA, MERKEN|
000020F0: 20 52 45 43 48 54 53 20 45 52 4C 41 55 42 45 4E | RECHTS ERLAUBEN|
00002100: 00 2F 29 0E 10 50 4C 33 31 20 4C 44 41 20 53 A4 |./)..PL31 LDA S.|
00002110: 32 3B 22 4E 45 49 4E 2C 20 4C 45 45 52 2E 20 4D |2;"NEIN, LEER. M|
00002120: 45 52 4B 45 4E 20 45 52 4C 41 55 42 54 20 3F 00 |ERKEN ERLAUBT ?.|
00002130: 5C 29 18 10 42 4E 45 20 50 4C 33 34 3B 4E 45 49 |\)..BNE PL34;NEI|
00002140: 4E 2C 20 44 41 4E 4E 20 4D 45 52 4B 45 4E 20 55 |N, DANN MERKEN U|
00002150: 45 42 45 52 53 50 52 49 4E 47 45 4E 00 79 29 22 |EBERSPRINGEN.y)"|
00002160: 10 49 4E 43 20 53 A4 32 3B 4D 45 52 4B 45 4E 20 |.INC S.2;MERKEN |
00002170: 56 45 52 42 49 45 54 45 4E 00 7F 29 2C 10 3B 00 |VERBIETEN..),.;.|
00002180: 98 29 36 10 4C 44 58 20 53 A4 30 3B 53 54 41 50 |.)6.LDX S.0;STAP|
00002190: 45 4C 5A 45 49 47 45 52 00 A0 29 40 10 43 4C 43 |ELZEIGER..)@.CLC|
000021A0: 00 BE 29 4A 10 4C 44 41 20 58 4B 3B B9 49 54 49 |..)J.LDA XK;.ITI|
000021B0: 91 20 52 45 43 48 54 53 20 4E 45 42 45 4E 00 E1 |. RECHTS NEBEN..|
000021C0: 29 54 10 41 44 43 20 23 24 30 31 3B 44 45 4D 20 |)T.ADC #$01;DEM |
000021D0: 5A 55 88 5A 54 20 47 45 50 4C 4F 54 54 45 54 45 |ZU.ZT GEPLOTTETE|
000021E0: 4E 00 03 2A 5E 10 53 54 41 20 58 58 4C 2C 58 3B |N..*^.STA XXL,X;|
000021F0: 50 55 4E 4B 54 20 4C 41 44 45 4E 20 55 4E 44 20 |PUNKT LADEN UND |
00002200: 41 55 46 00 23 2A 68 10 4C 44 41 20 58 4B AA 31 |AUF.#*h.LDA XK.1|
00002210: 3B 44 45 4D 20 53 54 41 50 45 4C 20 41 42 4C 45 |;DEM STAPEL ABLE|
00002220: 47 45 4E 00 30 2A 72 10 41 44 43 20 23 24 30 30 |GEN.0*r.ADC #$00|
00002230: 00 3E 2A 7C 10 53 54 41 20 58 58 48 2C 58 00 49 |.>*|.STA XXH,X.I|
00002240: 2A 86 10 4C 44 41 20 59 4B 00 57 2A 90 10 53 54 |*..LDA YK.W*..ST|
00002250: 41 20 59 59 4B 2C 58 00 6B 2A 9A 10 43 50 58 20 |A YYK,X.k*..CPX |
00002260: 23 24 46 46 3B 22 32 35 35 20 3F 00 8B 2A A4 10 |#$FF;"255 ?..*..|
00002270: 42 45 51 20 50 4C 33 34 3B 4A 41 2C 20 4E 49 43 |BEQ PL34;JA, NIC|
00002280: 48 54 20 45 52 48 4F 45 48 45 4E 00 B0 2A AE 10 |HT ERHOEHEN..*..|
00002290: 49 4E 43 20 53 A4 30 3B 4E 45 49 4E 2C 20 4E 41 |INC S.0;NEIN, NA|
000022A0: 45 43 48 53 54 45 20 B8 49 45 20 B9 49 54 49 91 |ECHSTE .IE .ITI.|
000022B0: 00 CC 2A B8 10 4A 4D 50 20 50 4C 33 34 3B 4E 41 |..*..JMP PL34;NA|
000022C0: 45 43 48 53 54 45 20 5A 45 49 4C 45 00 D2 2A C2 |ECHSTE ZEILE..*.|
000022D0: 10 3B 00 F4 2A CC 10 50 4C 33 32 20 AF 20 28 50 |.;..*..PL32 . (P|
000022E0: 54 52 31 29 2C 59 3B 42 49 54 20 47 45 53 45 54 |TR1),Y;BIT GESET|
000022F0: 5A 54 20 99 00 0E 2B D6 10 42 45 51 20 50 4C 33 |ZT ...+..BEQ PL3|
00002300: 31 3B 4E 45 49 4E 2C 20 B1 B1 50 4C 33 31 00 14 |1;NEIN, ..PL31..|
00002310: 2B E0 10 3B 00 3A 2B EA 10 50 4C 33 33 20 53 54 |+..;.:+..PL33 ST|
00002320: 59 20 53 A4 32 3B 4A 41 2C 20 44 41 4E 4E 20 4D |Y S.2;JA, DANN M|
00002330: 45 52 4B 45 4E 20 45 52 4C 2E 00 40 2B F4 10 3B |ERKEN ERL..@+..;|
00002340: 00 67 2B FE 10 50 4C 33 34 20 4A 53 52 20 49 59 |.g+..PL34 JSR IY|
00002350: 4B 3B 44 4F 57 4E 20 AC AC AC AC AC AC AC AC AC |K;DOWN .........|
00002360: AC AC AC AC AC AC AC 00 72 2B 08 11 4C 44 41 20 |........r+..LDA |
00002370: 59 4B 00 98 2B 12 11 43 4D 50 20 23 24 43 38 3B |YK..+..CMP #$C8;|
00002380: 22 55 4E 54 45 52 45 52 20 52 41 4E 44 20 45 52 |"UNTERER RAND ER|
00002390: 52 45 49 43 48 54 20 3F 00 C3 2B 1C 11 42 43 53 |REICHT ?..+..BCS|
000023A0: 20 50 4C 33 36 3B 4A 41 2C 47 45 4D 45 52 4B 54 | PL36;JA,GEMERKT|
000023B0: 45 20 50 55 4E 4B 54 45 20 42 45 41 52 42 45 49 |E PUNKTE BEARBEI|
000023C0: 54 45 4E 00 E4 2B 26 11 4C 44 41 20 28 50 54 52 |TEN..+&.LDA (PTR|
000023D0: 31 29 2C 59 3B 4E 45 49 4E 2C 42 59 54 45 20 4C |1),Y;NEIN,BYTE L|
000023E0: 41 44 45 4E 00 15 2C 30 11 42 4E 45 20 50 4C 33 |ADEN..,0.BNE PL3|
000023F0: 35 3B 4E 49 43 48 54 20 4C 45 45 52 2C 44 41 4E |5;NICHT LEER,DAN|
00002400: 4E 20 42 49 54 57 45 49 53 45 20 42 45 41 52 42 |N BITWEISE BEARB|
00002410: 45 49 54 45 4E 00 35 2C 3A 11 4A 4D 50 20 50 4C |EITEN.5,:.JMP PL|
00002420: 31 3B 53 91 53 54 20 53 43 48 4C 45 8B 45 4E 42 |1;S.ST SCHLE.ENB|
00002430: 45 47 49 4E 4E 00 3B 2C 44 11 3B 00 5E 2C 4E 11 |EGINN.;,D.;.^,N.|
00002440: 50 4C 33 35 20 AF 20 4D 53 4B 3B 45 4E 54 53 50 |PL35 . MSK;ENTSP|
00002450: 52 2E 20 42 49 54 20 47 45 53 45 54 5A 54 00 82 |R. BIT GESETZT..|
00002460: 2C 58 11 42 4E 45 20 50 4C 33 36 3B 4A 41 2C 47 |,X.BNE PL36;JA,G|
00002470: 45 4D 45 52 4B 54 45 20 50 55 4E 4B 54 45 20 48 |EMERKTE PUNKTE H|
00002480: 4F C3 00 B0 2C 62 11 4A 4D 50 20 50 4C 32 35 3B |O...,b.JMP PL25;|
00002490: 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 49 54 45 |NEIN, DANN WEITE|
000024A0: 52 20 42 49 54 57 45 49 53 45 20 46 55 45 4C C3 |R BITWEISE FUEL.|
000024B0: 00 B6 2C 6C 11 3B 00 E3 2C 76 11 50 4C 33 36 20 |..,l.;..,v.PL36 |
000024C0: 4A 4D 50 20 50 4C 31 36 3B 47 45 4D 45 52 4B 54 |JMP PL16;GEMERKT|
000024D0: 45 20 50 55 4E 4B 54 45 20 42 45 41 52 42 45 49 |E PUNKTE BEARBEI|
000024E0: 54 45 4E 00 E9 2C AC 12 3B 00 EF 2C B6 12 3B 00 |TEN..,..;..,..;.|
000024F0: F5 2C C0 12 3B 00 1F 2D 88 13 50 41 44 52 32 20 |.,..;..-..PADR2 |
00002500: 43 4C 43 3B 41 44 52 45 53 53 45 20 55 4E 44 20 |CLC;ADRESSE UND |
00002510: 4D 41 53 4B 45 20 42 45 52 45 43 48 4E 45 4E 00 |MASKE BERECHNEN.|
00002520: 41 2D 92 13 4C 44 58 20 59 4B 3B 59 AB 4B 4F B0 |A-..LDX YK;Y.KO.|
00002530: 44 49 4E 41 54 45 20 49 4E 53 20 58 AB 52 45 47 |DINATE INS X.REG|
00002540: 2E 00 59 2D 9C 13 4C 44 41 20 58 4B 3B 58 4C 4F |..Y-..LDA XK;XLO|
00002550: 57 20 49 4E 20 41 4B 4B 55 00 79 2D A6 13 AF 20 |W IN AKKU.y-... |
00002560: 23 24 46 38 3B 41 55 46 20 42 45 47 49 4E 4E 20 |#$F8;AUF BEGINN |
00002570: 44 45 53 20 42 59 54 45 53 00 A1 2D B0 13 41 44 |DES BYTES..-..AD|
00002580: 43 20 41 41 44 4C 2C 58 3B 5A 45 49 C3 20 42 45 |C AADL,X;ZEI. BE|
00002590: 47 49 4E 4E 20 4C 4F 57 20 41 44 44 49 45 52 45 |GINN LOW ADDIERE|
000025A0: 4E 00 BC 2D BA 13 53 54 41 20 50 54 52 31 3B B2 |N..-..STA PTR1;.|
000025B0: 20 41 44 52 45 53 53 45 20 4C 4F 57 00 D5 2D C4 | ADRESSE LOW..-.|
000025C0: 13 4C 44 41 20 58 4B AA 31 3B 58 48 49 47 48 20 |.LDA XK.1;XHIGH |
000025D0: 4C 41 44 45 4E 00 FE 2D CE 13 41 44 43 20 41 41 |LADEN..-..ADC AA|
000025E0: 44 48 2C 58 3B 5A 45 49 C3 41 44 52 45 53 53 45 |DH,X;ZEI.ADRESSE|
000025F0: 20 48 49 47 48 20 41 44 44 49 45 52 45 4E 00 1B | HIGH ADDIEREN..|
00002600: 2E D8 13 53 54 41 20 50 54 52 31 AA 31 3B B2 41 |...STA PTR1.1;.A|
00002610: 44 52 45 53 53 45 20 48 49 47 48 00 36 2E E2 13 |DRESSE HIGH.6...|
00002620: 4C 44 41 20 58 4B 3B 4D 41 53 4B 45 20 45 52 52 |LDA XK;MASKE ERR|
00002630: 45 43 48 4E 45 4E 00 51 2E EC 13 AF 20 23 24 30 |ECHNEN.Q.... #$0|
00002640: 37 3B 58 4C 4F 57 20 AF 20 37 20 45 52 47 49 42 |7;XLOW . 7 ERGIB|
00002650: 54 00 6E 2E F6 13 54 41 58 3B 37 AB 50 4F 54 45 |T.n...TAX;7.POTE|
00002660: 4E 5A 20 5A 55 52 20 42 41 53 49 53 20 32 00 8F |NZ ZUR BASIS 2..|
00002670: 2E 00 14 4C 44 41 20 4D 53 4B 31 2C 58 3B 41 55 |...LDA MSK1,X;AU|
00002680: 53 20 54 41 42 45 4C 4C 45 20 4C 41 44 45 4E 00 |S TABELLE LADEN.|
00002690: A8 2E 0A 14 53 54 41 20 4D 53 4B 3B 55 4E 44 20 |....STA MSK;UND |
000026A0: 4E 41 43 48 20 4D 53 4B 00 B0 2E 14 14 52 54 53 |NACH MSK.....RTS|
000026B0: 00 B6 2E 1E 14 3B 00 BC 2E 28 14 3B 00 C2 2E 32 |.....;...(.;...2|
000026C0: 14 3B 00 D1 2E 50 14 44 59 4B 20 44 45 43 20 59 |.;...P.DYK DEC Y|
000026D0: 4B 00 DE 2E 5A 14 4C 44 41 20 50 54 52 31 00 E9 |K...Z.LDA PTR1..|
000026E0: 2E 64 14 AF 20 23 24 30 37 00 F7 2E 6E 14 42 45 |.d.. #$07...n.BE|
000026F0: 51 20 44 59 4B 4C 31 00 04 2F 78 14 44 45 43 20 |Q DYKL1../x.DEC |
00002700: 50 54 52 31 00 0C 2F 82 14 52 54 53 00 1A 2F 8C |PTR1../..RTS../.|
00002710: 14 44 59 4B 4C 31 20 53 45 43 00 27 2F 96 14 4C |.DYKL1 SEC.'/..L|
00002720: 44 41 20 50 54 52 31 00 35 2F A0 14 53 42 43 20 |DA PTR1.5/..SBC |
00002730: 23 B3 33 31 33 00 42 2F AA 14 53 54 41 20 50 54 |#.313.B/..STA PT|
00002740: 52 31 00 51 2F B4 14 4C 44 41 20 50 54 52 31 AA |R1.Q/..LDA PTR1.|
00002750: 31 00 5F 2F BE 14 53 42 43 20 23 B1 33 31 33 00 |1._/..SBC #.313.|
00002760: 6E 2F C8 14 53 54 41 20 50 54 52 31 AA 31 00 76 |n/..STA PTR1.1.v|
00002770: 2F D2 14 52 54 53 00 7C 2F DC 14 3B 00 82 2F E6 |/..RTS.|/..;../.|
00002780: 14 3B 00 91 2F 18 15 49 59 4B 20 49 4E 43 20 59 |.;../..IYK INC Y|
00002790: 4B 00 9E 2F 22 15 4C 44 41 20 50 54 52 31 00 A9 |K../".LDA PTR1..|
000027A0: 2F 2C 15 AF 20 23 24 30 37 00 B6 2F 2D 15 43 4D |/,.. #$07../-.CM|
000027B0: 50 20 23 24 30 37 00 C4 2F 36 15 42 45 51 20 49 |P #$07../6.BEQ I|
000027C0: 59 4B 4C 31 00 D1 2F 40 15 49 4E 43 20 50 54 52 |YKL1../@.INC PTR|
000027D0: 31 00 D9 2F 4A 15 52 54 53 00 E7 2F 54 15 49 59 |1../J.RTS../T.IY|
000027E0: 4B 4C 31 20 43 4C 43 00 F4 2F 5E 15 4C 44 41 20 |KL1 CLC../^.LDA |
000027F0: 50 54 52 31 00 02 30 68 15 41 44 43 20 23 B3 33 |PTR1..0h.ADC #.3|
00002800: 31 33 00 0F 30 72 15 53 54 41 20 50 54 52 31 00 |13..0r.STA PTR1.|
00002810: 1E 30 7C 15 4C 44 41 20 50 54 52 31 AA 31 00 2C |.0|.LDA PTR1.1.,|
00002820: 30 86 15 41 44 43 20 23 B1 33 31 33 00 3B 30 90 |0..ADC #.313.;0.|
00002830: 15 53 54 41 20 50 54 52 31 AA 31 00 43 30 9A 15 |.STA PTR1.1.C0..|
00002840: 52 54 53 00 49 30 A4 15 3B 00 4F 30 AE 15 3B 00 |RTS.I0..;.O0..;.|
00002850: 63 30 70 17 47 58 59 4B 20 4A 53 52 20 43 48 4B |c0p.GXYK JSR CHK|
00002860: 43 4F 4D 00 6F 30 7A 17 4A 53 52 20 A1 43 B0 00 |COM.o0z.JSR .C..|
00002870: 7B 30 84 17 4C 44 41 20 24 31 34 00 87 30 8E 17 |{0..LDA $14..0..|
00002880: 4C 44 59 20 24 31 35 00 92 30 98 17 53 54 41 20 |LDY $15..0..STA |
00002890: 58 4B 00 9F 30 A2 17 53 54 59 20 58 4B AA 31 00 |XK..0..STY XK.1.|
000028A0: AA 30 AC 17 53 54 58 20 59 4B 00 B2 30 B6 17 52 |.0..STX YK..0..R|
000028B0: 54 53 00 D0 30 40 1F 4D 53 4B 31 20 2E 42 59 54 |TS..0@.MSK1 .BYT|
000028C0: 20 24 38 30 2C 24 34 30 2C 24 32 30 2C 24 31 30 | $80,$40,$20,$10|
000028D0: 00 E9 30 4A 1F 2E 42 59 54 20 24 30 38 2C 24 30 |..0J..BYT $08,$0|
000028E0: 34 2C 24 30 32 2C 24 30 31 00 EF 30 54 1F 3B 00 |4,$02,$01..0T.;.|
000028F0: 13 31 5E 1F 46 4D 53 4B 20 2E 42 59 54 20 25 31 |.1^.FMSK .BYT %1|
00002900: 31 31 31 31 31 31 31 3B 4C 49 4E 4B 45 20 53 45 |1111111;LINKE SE|
00002910: 49 54 45 00 2B 31 68 1F AE 20 20 20 20 2E 42 59 |ITE.+1h.. .BY|
00002920: 54 20 25 31 30 30 30 30 30 30 30 00 43 31 72 1F |T %10000000.C1r.|
00002930: AE 20 20 20 20 2E 42 59 54 20 25 31 30 30 30 30 |. .BYT %10000|
00002940: 30 30 30 00 5B 31 7C 1F AE 20 20 20 20 2E 42 59 |000.[1|.. .BY|
00002950: 54 20 25 31 30 30 30 30 30 30 30 00 73 31 86 1F |T %10000000.s1..|
00002960: AE 20 20 20 20 2E 42 59 54 20 25 31 30 30 30 30 |. .BYT %10000|
00002970: 30 30 30 00 8B 31 90 1F AE 20 20 20 20 2E 42 59 |000..1... .BY|
00002980: 54 20 25 31 30 30 30 30 30 30 30 00 A3 31 9A 1F |T %10000000..1..|
00002990: AE 20 20 20 20 2E 42 59 54 20 25 31 30 30 30 30 |. .BYT %10000|
000029A0: 30 30 30 00 BB 31 A4 1F AE 20 20 20 20 2E 42 59 |000..1... .BY|
000029B0: 54 20 25 31 30 30 30 30 30 30 30 00 D3 31 AE 1F |T %10000000..1..|
000029C0: AE 20 20 20 20 2E 42 59 54 20 25 31 31 31 31 31 |. .BYT %11111|
000029D0: 31 31 31 00 EB 31 B8 1F AE 20 20 20 20 2E 42 59 |111..1... .BY|
000029E0: 54 20 25 31 30 30 30 30 30 30 30 00 03 32 C2 1F |T %10000000..2..|
000029F0: AE 20 20 20 20 2E 42 59 54 20 25 31 30 30 30 30 |. .BYT %10000|
00002A00: 30 30 30 00 1B 32 CC 1F AE 20 20 20 20 2E 42 59 |000..2... .BY|
00002A10: 54 20 25 31 30 30 30 30 30 30 30 00 33 32 D6 1F |T %10000000.32..|
00002A20: AE 20 20 20 20 2E 42 59 54 20 25 31 30 30 30 30 |. .BYT %10000|
00002A30: 30 30 30 00 4B 32 E0 1F AE 20 20 20 20 2E 42 59 |000.K2... .BY|
00002A40: 54 20 25 31 30 30 30 30 30 30 30 00 63 32 EA 1F |T %10000000.c2..|
00002A50: AE 20 20 20 20 2E 42 59 54 20 25 31 30 30 30 30 |. .BYT %10000|
00002A60: 30 30 30 00 7B 32 F4 1F AE 20 20 20 20 2E 42 59 |000.{2... .BY|
00002A70: 54 20 25 31 30 30 30 30 30 30 30 00 81 32 FE 1F |T %10000000..2..|
00002A80: 3B 00 A6 32 08 20 AE 20 20 20 20 2E 42 59 54 20 |;..2. . .BYT |
00002A90: 25 31 31 31 31 31 31 31 31 3B 52 45 43 48 54 45 |%11111111;RECHTE|
00002AA0: 20 53 45 49 54 45 00 BE 32 12 20 AE 20 20 20 20 | SEITE..2. . |
00002AB0: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 D6 |.BYT %10000000..|
00002AC0: 32 1C 20 AE 20 20 20 20 2E 42 59 54 20 25 31 30 |2. . .BYT %10|
00002AD0: 30 30 30 30 30 30 00 EE 32 26 20 AE 20 20 20 20 |000000..2& . |
00002AE0: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 06 |.BYT %10000000..|
00002AF0: 33 30 20 AE 20 20 20 20 2E 42 59 54 20 25 31 30 |30 . .BYT %10|
00002B00: 30 30 30 30 30 30 00 1E 33 3A 20 AE 20 20 20 20 |000000..3: . |
00002B10: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 36 |.BYT %10000000.6|
00002B20: 33 44 20 AE 20 20 20 20 2E 42 59 54 20 25 31 30 |3D . .BYT %10|
00002B30: 30 30 30 30 30 30 00 4E 33 4E 20 AE 20 20 20 20 |000000.N3N . |
00002B40: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 66 |.BYT %10000000.f|
00002B50: 33 58 20 AE 20 20 20 20 2E 42 59 54 20 25 31 31 |3X . .BYT %11|
00002B60: 31 31 31 31 31 31 00 7E 33 62 20 AE 20 20 20 20 |111111.~3b . |
00002B70: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 96 |.BYT %10000000..|
00002B80: 33 6C 20 AE 20 20 20 20 2E 42 59 54 20 25 31 30 |3l . .BYT %10|
00002B90: 30 30 30 30 30 30 00 AE 33 76 20 AE 20 20 20 20 |000000..3v . |
00002BA0: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 C6 |.BYT %10000000..|
00002BB0: 33 80 20 AE 20 20 20 20 2E 42 59 54 20 25 31 30 |3. . .BYT %10|
00002BC0: 30 30 30 30 30 30 00 DE 33 8A 20 AE 20 20 20 20 |000000..3. . |
00002BD0: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 F6 |.BYT %10000000..|
00002BE0: 33 94 20 AE 20 20 20 20 2E 42 59 54 20 25 31 30 |3. . .BYT %10|
00002BF0: 30 30 30 30 30 30 00 0E 34 9E 20 AE 20 20 20 20 |000000..4. . |
00002C00: 2E 42 59 54 20 25 31 30 30 30 30 30 30 30 00 14 |.BYT %10000000..|
00002C10: 34 A8 20 3B 00 24 34 C4 22 58 58 4C 20 B2 20 24 |4. ;.$4."XXL . $|
00002C20: 37 42 30 30 00 34 34 CE 22 58 58 48 20 B2 20 24 |7B00.44."XXH . $|
00002C30: 37 43 30 30 00 44 34 D8 22 59 59 4B 20 B2 20 24 |7C00.D4."YYK . $|
00002C40: 37 44 30 30 00 4A 34 E2 22 3B 00 5B 34 EC 22 41 |7D00.J4.";.[4."A|
00002C50: 41 44 4C 20 B2 20 24 37 45 30 30 00 6C 34 F6 22 |ADL . $7E00.l4."|
00002C60: 41 41 44 48 20 B2 20 24 37 46 30 30 00 72 34 00 |AADH . $7F00.r4.|
00002C70: 23 3B 00 85 34 10 27 3B B1 B1 B1 20 50 41 44 52 |#;..4.';... PADR|
00002C80: 32 20 B3 B3 B3 00 AE 34 1A 27 3B 55 4E 54 45 52 |2 .....4.';UNTER|
00002C90: 20 44 49 45 53 45 4D 20 4C 41 42 45 4C 20 57 49 | DIESEM LABEL WI|
00002CA0: 52 44 20 44 49 45 20 41 44 52 45 53 53 45 00 C8 |RD DIE ADRESSE..|
00002CB0: 34 1F 27 3B 49 4E 20 44 45 52 20 24 38 30 30 30 |4.';IN DER $8000|
00002CC0: 20 47 52 41 46 49 4B 2C 00 F1 34 24 27 3B 44 49 | GRAFIK,..4$';DI|
00002CD0: 45 20 5A 55 20 58 4B AD 58 4B AA 31 2C 59 4B 20 |E ZU XK.XK.1,YK |
00002CE0: 47 45 48 4F 45 52 54 2C 45 52 52 45 43 48 4E 45 |GEHOERT,ERRECHNE|
00002CF0: 54 00 13 35 2E 27 3B 55 4E 44 20 49 4E 20 50 54 |T..5.';UND IN PT|
00002D00: 52 31 AD 50 54 52 31 AA 31 20 41 42 47 45 4C 45 |R1.PTR1.1 ABGELE|
00002D10: 47 54 2E 00 3B 35 38 27 3B 44 49 45 20 42 49 54 |GT..;58';DIE BIT|
00002D20: 4D 41 53 4B 45 20 46 55 45 52 20 44 45 4E 20 45 |MASKE FUER DEN E|
00002D30: 4E 54 53 50 52 45 43 48 80 45 4E 00 60 35 42 27 |NTSPRECH.EN.`5B'|
00002D40: 3B 50 55 4E 4B 54 20 57 49 52 44 20 4E 41 43 48 |;PUNKT WIRD NACH|
00002D50: 20 4D 53 4B 20 47 45 53 43 48 52 49 45 42 45 4E | MSK GESCHRIEBEN|
00002D60: 00 85 35 4C 27 3B 55 4E 44 20 42 45 46 49 4E 44 |..5L';UND BEFIND|
00002D70: 45 54 20 53 49 43 48 20 4E 41 43 48 20 41 42 43 |ET SICH NACH ABC|
00002D80: 48 4C 55 53 53 00 AB 35 56 27 3B 49 4D 20 41 4B |HLUSS..5V';IM AK|
00002D90: 4B 55 2E 20 44 41 53 20 43 41 52 52 59 20 49 53 |KU. DAS CARRY IS|
00002DA0: 54 20 5A 55 20 44 49 45 53 45 4D 00 C9 35 60 27 |T ZU DIESEM..5`'|
00002DB0: 3B 5A 45 49 54 50 55 4E 4B 54 20 4E 49 43 48 54 |;ZEITPUNKT NICHT|
00002DC0: 20 47 45 53 45 54 5A 54 2E 00 CF 35 6A 27 3B 00 | GESETZT...5j';.|
00002DD0: E0 35 74 27 3B B1 B1 B1 20 44 59 4B 20 B3 B3 B3 |.5t';... DYK ...|
00002DE0: 00 07 36 7E 27 3B 44 49 45 20 59 AB 4B 4F B0 44 |..6~';DIE Y.KO.D|
00002DF0: 49 4E 41 54 45 20 57 49 52 44 20 55 4D 20 45 49 |INATE WIRD UM EI|
00002E00: 4E 53 20 56 45 52 AB 00 2D 36 88 27 3B 4D 49 4E |NS VER..-6.';MIN|
00002E10: 44 45 52 54 2E 20 44 49 45 20 5A 55 47 45 48 4F |DERT. DIE ZUGEHO|
00002E20: 45 52 49 47 45 20 41 44 52 45 53 53 45 00 40 36 |ERIGE ADRESSE.@6|
00002E30: 92 27 3B 53 54 45 48 54 20 49 4E 20 50 54 52 31 |.';STEHT IN PTR1|
00002E40: 00 46 36 9C 27 3B 00 57 36 A6 27 3B B1 B1 B1 20 |.F6.';.W6.';... |
00002E50: 49 59 4B 20 B3 B3 B3 00 7D 36 B0 27 3B 57 49 45 |IYK ....}6.';WIE|
00002E60: 20 44 59 4B 2E 20 4A 45 44 4F 43 48 20 57 49 52 | DYK. JEDOCH WIR|
00002E70: 44 20 44 49 45 20 59 AB 4B 4F B0 44 2E 00 8A 36 |D DIE Y.KO.D...6|
00002E80: BA 27 3B 45 52 48 4F 45 48 54 00 90 36 C4 27 3B |.';ERHOEHT..6.';|
00002E90: 00 B2 36 F8 2A 3B 22 42 45 4C 45 47 55 4E 47 20 |..6.*;"BELEGUNG |
00002EA0: 44 45 52 20 5A 45 52 4F 50 41 47 45 20 5A 2E 42 |DER ZEROPAGE Z.B|
00002EB0: 2E 3A 00 B8 36 02 2B 3B 00 C8 36 5C 2B 3B 50 54 |.:..6.+;..6\+;PT|
00002EC0: 52 31 20 B2 20 24 46 37 00 D8 36 66 2B 3B 50 54 |R1 . $F7..6f+;PT|
00002ED0: 52 32 20 B2 20 24 46 39 00 E8 36 70 2B 3B 50 54 |R2 . $F9..6p+;PT|
00002EE0: 52 33 20 B2 20 24 46 42 00 EE 36 7A 2B 3B 00 FD |R3 . $FB..6z+;..|
00002EF0: 36 84 2B 3B 53 A4 30 20 B2 20 24 46 44 00 0C 37 |6.+;S.0 . $FD..7|
00002F00: 8E 2B 3B 53 A4 31 20 B2 20 24 46 45 00 1B 37 98 |.+;S.1 . $FE..7.|
00002F10: 2B 3B 53 A4 32 20 B2 20 24 46 46 00 21 37 A2 2B |+;S.2 . $FF.!7.+|
00002F20: 3B 00 46 37 AC 2B 3B 49 4E 20 42 41 44 48 20 53 |;.F7.+;IN BADH S|
00002F30: 54 45 48 54 20 44 41 53 20 48 49 47 48 AB 42 59 |TEHT DAS HIGH.BY|
00002F40: 54 45 20 44 45 53 00 6A 37 B6 2B 3B 5A 45 49 43 |TE DES.j7.+;ZEIC|
00002F50: 48 45 4E 53 50 45 49 43 48 45 52 53 2E 5A 2E 42 |HENSPEICHERS.Z.B|
00002F60: 2E 20 24 34 30 20 46 55 45 52 00 83 37 C0 2B 3B |. $40 FUER..7.+;|
00002F70: 44 49 45 20 47 52 41 46 49 4B 20 41 42 20 24 34 |DIE GRAFIK AB $4|
00002F80: 30 30 30 00 A6 37 CA 2B 3B 22 41 43 48 54 55 4E |000..7.+;"ACHTUN|
00002F90: 47 3A 20 44 49 45 20 47 52 41 46 49 4B 20 41 42 |G: DIE GRAFIK AB|
00002FA0: 20 24 38 30 30 30 00 C9 37 D4 2B 3B 44 41 52 46 | $8000..7.+;DARF|
00002FB0: 20 4E 49 43 48 54 20 42 45 4E 55 54 5A 54 20 57 | NICHT BENUTZT W|
00002FC0: 45 52 44 45 4E 2C 20 44 41 00 ED 37 DE 2B 3B 53 |ERDEN, DA..7.+;S|
00002FD0: 49 45 20 56 4F 4D 20 50 52 4F 47 52 41 4D 4D 20 |IE VOM PROGRAMM |
00002FE0: 41 55 53 20 42 45 4E 4F 45 54 49 47 54 00 F8 37 |AUS BENOETIGT..7|
00002FF0: 24 2C 3B 57 49 52 44 2E 00 FE 37 2E 2C 3B 00 25 |$,;WIRD...7.,;.%|
00003000: 38 38 2C 3B 58 58 4C 2C 58 58 48 20 55 4E 44 20 |88,;XXL,XXH UND |
00003010: 59 59 4B 20 BF 44 20 44 49 45 20 4D 45 52 4B 53 |YYK .D DIE MERKS|
00003020: 54 41 50 45 4C 00 4B 38 42 2C 3B 53 49 45 20 48 |TAPEL.K8B,;SIE H|
00003030: 41 42 45 4E 20 45 49 4E 45 20 4C 41 45 4E 47 45 |ABEN EINE LAENGE|
00003040: 20 56 91 20 4A 45 57 45 49 4C 53 00 6C 38 4C 2C | V. JEWEILS.l8L,|
00003050: 3B 32 35 36 20 42 59 54 45 53 20 28 49 4E 53 47 |;256 BYTES (INSG|
00003060: 45 53 41 4D 4D 54 20 37 36 38 29 2E 00 90 38 56 |ESAMMT 768)...8V|
00003070: 2C 3B 53 49 45 20 44 55 52 46 45 4E 20 49 4D 20 |,;SIE DURFEN IM |
00003080: B8 49 45 4E 20 52 41 4D 20 4C 49 45 47 45 4E 2E |.IEN RAM LIEGEN.|
00003090: 00 B8 38 60 2C 3B 44 41 20 42 45 49 20 48 49 52 |..8`,;DA BEI HIR|
000030A0: 45 53 AB 4D 41 53 54 45 52 20 42 45 49 4D 20 41 |ES.MASTER BEIM A|
000030B0: 55 46 55 45 48 52 45 4E 00 DF 38 6A 2C 3B 44 49 |UFUEHREN..8j,;DI|
000030C0: 45 20 52 41 4D 53 20 4D 49 54 20 53 45 49 3A 4C |E RAMS MIT SEI:L|
000030D0: 44 41 20 23 24 33 30 3A 53 54 41 20 24 30 31 00 |DA #$30:STA $01.|
000030E0: 05 39 74 2C 3B 45 49 4E 47 45 53 43 48 41 4C 54 |.9t,;EINGESCHALT|
000030F0: 45 54 20 57 45 52 44 45 4E 2C 20 4C 49 45 47 45 |ET WERDEN, LIEGE|
00003100: 4E 20 53 49 45 00 31 39 7E 2C 3B 44 B0 54 20 55 |N SIE.19~,;D.T U|
00003110: 4E 54 45 52 20 44 45 4E 20 43 49 41 53 20 49 4D |NTER DEN CIAS IM|
00003120: 20 42 45 52 45 49 43 48 20 41 42 20 24 44 30 30 | BEREICH AB $D00|
00003130: 30 00 37 39 88 2C 3B 00 5D 39 92 2C 3B 44 49 45 |0.79.,;.]9.,;DIE|
00003140: 20 52 4F 55 54 49 4E 45 20 4D 49 54 20 44 45 4D | ROUTINE MIT DEM|
00003150: 20 4C 41 42 45 4C 20 27 47 58 59 4B 27 00 7F 39 | LABEL 'GXYK'..9|
00003160: 9C 2C 3B 48 4F 4C 54 20 44 49 45 20 4B 4F B0 44 |.,;HOLT DIE KO.D|
00003170: 49 4E 41 54 45 4E 20 55 4E 44 20 4C 45 47 54 00 |INATEN UND LEGT.|
00003180: 9A 39 A6 2C 3B 53 49 45 20 49 4E 20 58 4B AD 58 |.9.,;SIE IN XK.X|
00003190: 4B AA 31 2C 59 4B 20 41 42 2E 00 A3 39 5F EA 2E |K.1,YK AB...9_..|
000031A0: 80 3A 80 00 00 00 |.:.... |
.......9.4096......OPT OO.&..... $7000.5
...PTR1 . $F7.D...PTR2 . $F9.S...PTR3 .
$FB.A...S.0 . $FD.O...S.1 . $FE.}...S.2
. $FF.....XK . $55.....YK . $02.....F .
$03.....MSK . $04.D...CHKCOM . $AEFD.T..
..C. . $B7EB...D.;"*********************
**********. .N.;"*
*.F.X.;"* BYTE-PAINT ENTWICKELT A
M *.L...;"*
*.....;"* 25.5.86 VON JESKO SCHWARZER
*.....;"* *
... .;"* FUER HIRES-MASTER. *..
...;"* *.*..
.;"* TEL.: 02234/62542 *.P...;
"* *.V.H.;"*
******************************.....PA. J
SR GXYK;HOLT ANFANGSKO.DINATEN.....LDY #
$00.....LDX #$40;ANFANGSADRESSE(HB) DES
ZEICHENSPEICHERS.....LDA #$80;HB DER 2.
PAGE ($8000).....STY PTR1.....STY PTR2.-
.$.STX PTR1.1.<...STA PTR2.1.I.8.LDX #$2
0;GRAFIKSEITE NACH $8000 KOPIEREN.~.B.PL
0 LDA (PTR1),Y...L.STA (PTR2),Y...V.INY.
..`.BNE PL0...J.INC PTR1.1.A.T.INC PTR2.
1.I.~.DEX.U...BNE PL0.....;.....STY S.0;
STAPELZEIGER FUER GEMERKTE PUNKTE AUF 0.
....JSR PADR2;ADRESSE 1. PUNKT.N.... (PT
R1),Y;"PUNKT GESETZT ?.L...BEQ PL1;NEIN,
DANN WEITER...D.RTS;JA, DANN .E...N.;..
.X.PL1 STY S.1;MERRKFLAG LINKS UND.K...S
TY S.2;RECHTS ZURUECKSETZEN.Q...;.....PL
2 LDA YK;OBERER R. ERREICHT.....BEQ PL3;
JA.+...JSR DYK;NEIN, DANN SCHRITT NACH O
BEN.M...LDA (PTR1),Y;"PUNKT GESETZT ?.W.
... MSK.}.(.BEQ PL2;NEIN, DANN ANFANG SC
HLE.E...2.JSR IYK;AUF .ITI. UNTER GES. P
UNKT...<.;...F.PL3 JSR PADR2;ADRESSE DES
PUNKTES UND MASKE BERECHNEN...P.LDA (PT
R1),Y;"GANZES BYTE LEER ?...Z.BEQ PL4;JA
,.. PL4.I.D.JMP PL24;ZU 'BITWEISE FUELC'
SPRINGEN.O.N.;.V.X.PL4 LDA #$FF;GANZES
BYTE(8 PUNKTE).....STA (PTR1),Y;IN $8000
GRAFIK SETZEN.C...LDA YK;.ITI. IN DER M
USTER.MASKE...... #$0F;BERECHNEN(16.16 B
ITS)... .STA PTR2;(2 REIHEN MIT JE 16 BY
TES).....LDA XK.".... #$08.*...ASL.7.H.A
DC PTR2.?.R.TAX.G...CLC.T...LDA PTR1.A..
.STA PTR2.P...LDA PTR1.1.....OF1 ADC #$C
0;OFFSET ZU $8000 GRAFIK ADDIEREN.H...ST
A PTR2.1;HB FUER AKTUELLE GRAFIK.....LDA
FMSK,X;MASKENBYTE LADEN...".STA (PTR2),
Y;UND IN AKTUELLE GRAFIK SCHREIBEN.@.,.;
LINKE SEITE BEARBEITEN .........A.6.LDA
XK.1;KO.DINATE IN LINKER.~.@.BNE PL5;"A
CHTER SPALTE ?...J.LDA XK...T.CMP #$08..
.^.BCC PL9;LINKER R. ERREICHT...H.;...R.
PL5 SEC;NEIN,LINKES BYTE ERRECHNEN...|.L
DA PTR1;V. ADRESSE DER PLOT..ITI..0...SB
C #$08;8 ABZIEHEN(GLEICHE ZEILE,.T...STA
PTR2;ABER LINKE SPALTE) UND.M...LDA PTR
1.1;NACH PTR2.Z...SBC #$00.....STA PTR2.
1.....LDA (PTR2),Y;LINKS TESTEN.D.B.BNE
PL7;KEIN LEERES BYTE...L.LDA S.1;"LEERES
BYTE, MERKEN ERLAUBT ?...V.BNE PL9;MERK
EN VERBOTEN.@...INC S.1;MERKEN ERLAUBT,A
BER ZUKUENFTIG VERBIETEN.F...;.S...JMP P
L7A.Y...;.X...;MERKEN 1. BIT,LINKE SEITE
.....PL7 LSR.....BCS PL8;PUNKT GESETZT..
.&.LDA S.1;"MERKEN ERLAUBT ?.X.0.BNE PL9
;MERKEN VERBOTEN...:.INC S.1;MERKEN ERLA
UBT,ABER ZUK. VERBIETEN...D.;.*.N.PL7A L
DX S.0;X.X.(X.7).1.5.X.LDA XK.@.B.. #$07
.M.L.STA PTR2.U.V.CLC.`...LDA XK.M...SBC
PTR2.....STA XXL,X;LOW., HIGH.BYTE UND
Y......LDA XK.1;KO.DINATE AUF MERKSTAPEL
.M...SBC #$00;ABLEGEN.....STA XXH,X.....
LDA YK...F.STA YYK,X...P.CPX #$FF;"SCHON
255 PUNKTE GEMERKT ?.W.Z.BEQ PL9;JA, DA
NN ZEIGER AUF .IEN PLATZ NICHT ERHOEHEN.
Y...INC S.0;ZEIGER NAECHSTE .ITI.....;.
.....BYT $2C;RECHTE SEITE.....;.F...PL8
STY S.1;MERKEN WIEDER ERLAUBEN.L...;...
.;RECHTE SEITE BEARBEITEN ...........*.P
L9 LDA XK.1;"RECHTER RAND ERREICHT ?.6.4
.BEQ PL10;NEIN .. PL10.A.>.LDA XK.O.H.CM
P #.312.Y.R.BCS PL14;JA,NAECHSTE ZEILE B
EARBEITEN..\.;...F.PL10 CLC;RECHTES BYT
E...P.LDA PTR1;BYTE RECHTS NEBEN DER...Z
.ADC #$08;PLOT..ITI. ERRECHNEN.....STA P
TR2;(PLOT.ADRESSE . 8).....LDA PTR1.1...
..ADC #$00.)...STA PTR2.1.G...LDA (PTR2)
,Y;"BYTE LEER ?.|...BNE PL12;KEIN LEERES
BYTE,MERKEN WIEDER ERLAUBEN.....LDA S.2
;"LEERES BYTE, MERKEN ERLAUBT ?.P.J.BNE
PL14;NEIN, NAECHSTE ZEILE BEARB....T.INC
S.2;MERKEN ZUK. VERBIETEN.....;.....JMP
PL12A.....;.;...PL12 ASL;"BYTE NICHT LE
ER, BIT 8 GESETZT ?.M...BCS PL13;JA,MERK
FLAG ZURUECK(MERKEN ERLAUBEN).....LDA S.
2;"MERKEN VERBOTEN ?.....BNE PL14;JA...$
.INC S.2;MERKEN ZUK. VERBIETEN.D...;...8
.PL12A LDX S.0;X.(X.7).1...B.CLC;AUF MER
KSTAPEL...L.LDA XK...V..A #$07...`.ADC #
$01.).J.STA XXL,X.6.T.LDA XK.1.C.~.ADC #
$00.Q...STA XXH,X.Q...LDA YK;AUCH DIE Y.
KO.DINATE....STA YYK,X. ...CPX #$FF;"SC
HON 255 PUNKTE ?.....BEQ PL14;JA, NAECHS
TE ZEILE.....INC S.0;NEIN, NAECHSTER .IE
R PLATZ...D..BYT $2C;NAECHSTE ZEILE...N.
;.@.X.PL13 STY S.2;MERKEN IM NAECHSTEN D
URCHLAUF ERLAUBT.F...;.S...PL14 JSR IYK;
Y.Y.1 UND ADRESSE NACH PTR1.....LDA YK;S
CH. UNTERER. ...CMP #$C8;"RAND ?.E...BCS
PL16;JA, UNTERER R. ERREICHT.....LDA (P
TR1),Y;"NEIN, BYTE LEER ?.....BNE PL18;N
EIN, 0.BITS MERKEN.).(.JMP PL4;ZUM SCHLE
.ENBEGINN./.2.;.D.<.PL16 DEC S.0;ZEIGT J
ETZT AUF .ZT GEMERKTEN PUNKT.P.F.LDX S.0
...P.CPX #$FF;KEIN PUNKT MEHR, DANN .E..
.Z.BNE PL17...D.RTS...N.;.S.X.PL17 LDA X
XL,X;KO.DINATEN HOC.....STA XK.....LDA X
XH,X.....STA XK.1... .LDA YYK,X.....STA
YK.D...JSR PADR2;ADRESSE UND MASKE ZU DE
N KO.DINATEN.D.... (PTR1),Y;"PUNKT GESET
ZT ?...H.BNE PL16;JA, DANN NAECHSTEN PUN
KT HOC...R.;.....JMP PL1;ZUM SCLE.ENBEGI
NN.....;.....;BERECHNET AUS EINEM BYTE,W
ELCHES.....;SICH IM AKKU BEFINDET, DIE K
O.DINATEN.1...;JEDES BITS UND SPEICHERT
DIE KO.D..F...;ALLER 0.BITS AB.I...PL18
CMP #$FF;GANZES BYTE VOLL.....BEQ PL16;K
EINE 0.BITS, .E.....;.....TAX;NICHT LEER
ES BYTE BEARBEITEN.....LDA XK;KO.DINATEN
AUF DAS 8. BIT DES BYTES...".. #$F8...,
.STA XK.1.6.STY F;MERKFLAG . 0(YREG..0!)
[MERKEN IM BYTE ERLAUBEN].>.@.PL19 TXA.L
.J.. MSK1,Y;BIT..ITI.EN V. LINKS NACH RE
CHTS...T.BNE PL23;GESETZTES BIT...^.LDA
F;MERKEN ERLAUBT ....H.BNE PL21;NEIN.W.R
.INC F;JA, ABER ZUK. NICHT MEHR...|.TXA;
BYTE RETTEN.....PHA.....LDX S.0;STAPELZE
IGER.*...LDA XK;KO.DINATEN ABLEGEN.8...S
TA XXL,X.E...LDA XK.1.S...STA XXH,X.^.B.
LDA YK.L.L.STA YYK,X...V.CPX #$FF;"SCHON
255 PUNKTE ?.....BEQ PL20;JA, DANN UEBE
RGEHEN.N...INC S.0;MERKZEIGER ERHOEHEN..
...PL20 PLA;BYTE ZURUECKHOC.....TAX;UND
INS X.REG..'...PL21 INC XK;X.KO.DINATE E
RHOEHEN.F...INY;.ITI. IM BYTE ERHOEHEN.D
...CPY #$08;"SCHON AM ENDE ?...&.BCC PL1
9;NEIN , SCHLE.E...0.;...:.LDA XK;X.KO.D
INATE ERNIEDRIGEN.O.D.BNE PL22;(UM WIEDE
R IM RICHTIIGEN...N.DEC XK.1;BYTE ZU SEI
N)...X.PL22 DEC XK.. B.LDY #$00;Y.REG WI
EDER AUF NULL.E L.JMP PL16;GEMERKTE PUNK
TE BEARBEITEN.K V.;.{ ..PL23 LDA #$00;ME
RKEN DER 0.BITS WIEDER ERL... ..STA F..
..BEQ PL21;UNBEDINGT.. ..;.E ..; BIT FUE
LCD ................... ..;WIRD ANGESP.G
EN, WENN ES NICHT..!..;MOEGLICH IST, 'BY
TEWEISE' 8 PUNKTE.+!..;AUF EINMAL ZU SET
ZEN.1!..;.W!..PL24 STY S.1;MERKFLAGS FUE
R LINKE.|!..STY S.2;UND RECHTE SEITE ZUR
UECK..!F.;..!P.PL25 JSR PADR2;ADRESSE UN
D MASKE(IM AKKU !).Y!Z..A (PTR1),Y;IN $8
000 GRAFIK SETZEN..!..STA (PTR1),Y.."..C
LC;IN AKTUELLER GRAFIK MUSTER PLOTTEN.8"
..LDA PTR1;.ITI. IN MUSTER.MASKE.O"..STA
PTR2;BERECHNEN.^"..LDA PTR1.1.."..OF2 A
DC #$C0;OFFSET V. $8000 GRAFIK ZUR AKT..
." .STA PTR2.1.."*.LDA YK.."4.. #$0F.A">
.STA PTR3.L"H.LDA XK.W"R.. #$08.."\.ASL.
."F..A PTR3.."P.TAX..#Z.LDA FMSK,X;BYTE
AUS DER MUSTER.MASKE.I#... MSK;NICHT BEN
OETIGTE BITS AUSMASKIEREN.T#...A (PTR2),
Y;IN ZEICHENGRAFIK SCHREIBEN..#..STA (PT
R2),Y..#..;. #..LDA XK;"XK = 0 ?..#...A
XK.1..#..BEQ PL29;JA, DANN TESTEN LINKS
UEBERSPRINGEN..#J.;TESTEN LINKS ......$T
.LDA MSK;PLOT.MASKE.*$..ASL;NACH LINKS V
ERSCHIEBEN.D$..BCC PL28;NOCH IM BYTE.J$.
.;.B$..LDA PTR1;AUSSERHALB..$..SBC #$08;
BYTE.ITI. NEBEN DEM 'PLOTBYTE'..$..STA P
TR2..$..LDA PTR1.1..$$.SBC #$00.F$..STA
PTR2.1..$8.LDA (PTR2),Y;LADEN..$B.LSR;"1
.BIT GESETZT ?..%L.BCS PL27;JA, DANN MER
KEN ERLAUBEN.H%V.PL26 LDA S.1;"NEIN, MER
KEN LINKS ERL. ?.I%`.BNE PL29;NEIN, UEBE
RSPRINGEN..%J.INC S.1;JA, ABER JETZT NIC
HT MEHR..%T.;..%~.LDX S.0;STAPELZEIGER.L
%..SEC;.ITI. LINKS SPEICHERN.W%..LDA XK.
.%..SBC #$01..%..STA XXL,X..%..LDA XK.1.
.&..SBC #$00..&D.STA XXH,X.%&N.LDA YK.3&
X.STA YYK,X.M&..CPX #$FF;"SCHON 255 ?.U&
..BEQ PL29;JA, ERHOEHEN UEBERSPRINGEN..&
..INC S.0;ERHOEHEN..&..JMP PL29;UND ZUR
RECHTEN SEITE..&..;.V&..PL28 . (PTR1),Y;
"BIT GESETZT ?..'..BEQ PL26;NEIN, DANN A
BFRAGE MERKEN ERL. USW..'(.;.3'2.PL27 ST
Y S.1;MERKEN LINKS ERLAUBEN.9'<.;.K'F.;R
ECHTE SEITE.F'P.PL29 LDA XK.1;"X=319 ?.|
'Z.BEQ PL30;NEIN, OK..'D.LDA XK..'N.CMP
#.319.I'X.BCS PL34;JA, DANN RECHTE SEITE
BEARB. UEBERSPR..O'..;..'..PL30 LDA MSK
;PLOT.MASKE..(..LSR;PIXEL DANEBEN.'( .BC
C PL32;NOCH INNERHALB DES BYTES.-(..;.V(
..LDA PTR1;AUSSERHALB, 8 ADDIEREN(C.1).C
(..ADC #$07.P(H.STA PTR2.(R.LDA PTR1.1.
.(..ADC #$00..(..STA PTR2.1..(..LDA (PTR
2),Y;BYTE LADEN.X(..ASL;"BIT 8 (PUNKT) G
ESETZT ?..)..BCS PL33;JA, MERKEN RECHTS
ERLAUBEN./)..PL31 LDA S.2;"NEIN, LEER. M
ERKEN ERLAUBT ?.\)..BNE PL34;NEIN, DANN
MERKEN UEBERSPRINGEN.Y)".INC S.2;MERKEN
VERBIETEN.),.;..)6.LDX S.0;STAPELZEIGER
. )@.CLC..)J.LDA XK;.ITI. RECHTS NEBEN..
)T.ADC #$01;DEM ZU.ZT GEPLOTTETEN..*^.ST
A XXL,X;PUNKT LADEN UND AUF.#*H.LDA XK.1
;DEM STAPEL ABLEGEN.0*R.ADC #$00.>*|.STA
XXH,X.I*..LDA YK.W*..STA YYK,X.K*..CPX
#$FF;"255 ?..*..BEQ PL34;JA, NICHT ERHOE
HEN..*..INC S.0;NEIN, NAECHSTE .IE .ITI.
.L*..JMP PL34;NAECHSTE ZEILE.R*B.;..*L.P
L32 . (PTR1),Y;BIT GESETZT ...+V.BEQ PL3
1;NEIN, ..PL31..+..;.:+..PL33 STY S.2;JA
, DANN MERKEN ERL..@+..;.G+..PL34 JSR IY
K;DOWN .................R+..LDA YK..+..C
MP #$C8;"UNTERER RAND ERREICHT ?.C+..BCS
PL36;JA,GEMERKTE PUNKTE BEARBEITEN..+&.
LDA (PTR1),Y;NEIN,BYTE LADEN..,0.BNE PL3
5;NICHT LEER,DANN BITWEISE BEARBEITEN.5,
:.JMP PL1;S.ST SCHLE.ENBEGINN.;,D.;.^,N.
PL35 . MSK;ENTSPR. BIT GESETZT..,X.BNE P
L36;JA,GEMERKTE PUNKTE HOC..,B.JMP PL25;
NEIN, DANN WEITER BITWEISE FUELC..,L.;..
,V.PL36 JMP PL16;GEMERKTE PUNKTE BEARBEI
TEN..,..;..,..;..,..;..-..PADR2 CLC;ADRE
SSE UND MASKE BERECHNEN.A-..LDX YK;Y.KO.
DINATE INS X.REG..Y-..LDA XK;XLOW IN AKK
U.Y-... #$F8;AUF BEGINN DES BYTES..-..AD
C AADL,X;ZEIC BEGINN LOW ADDIEREN..-..ST
A PTR1;. ADRESSE LOW.U-D.LDA XK.1;XHIGH
LADEN..-N.ADC AADH,X;ZEICADRESSE HIGH AD
DIEREN...X.STA PTR1.1;.ADRESSE HIGH.6...
LDA XK;MASKE ERRECHNEN.Q.... #$07;XLOW .
7 ERGIBT.N...TAX;7.POTENZ ZUR BASIS 2..
...LDA MSK1,X;AUS TABELLE LADEN.....STA
MSK;UND NACH MSK.....RTS.....;...(.;.B.2
.;.Q.P.DYK DEC YK...Z.LDA PTR1...D.. #$0
7...N.BEQ DYKL1../X.DEC PTR1../..RTS../.
.DYKL1 SEC.'/..LDA PTR1.5/ .SBC #.313.B/
..STA PTR1.Q/..LDA PTR1.1._/..SBC #.313.
N/H.STA PTR1.1.V/R.RTS.|/..;../..;../..I
YK INC YK../".LDA PTR1../,.. #$07../-.CM
P #$07.D/6.BEQ IYKL1.Q/@.INC PTR1.Y/J.RT
S../T.IYKL1 CLC../^.LDA PTR1..0H.ADC #.3
13..0R.STA PTR1..0|.LDA PTR1.1.,0..ADC #
.313.;0..STA PTR1.1.C0..RTS.I0..;.O0..;.
C0P.GXYK JSR CHKCOM.O0Z.JSR .C..{0..LDA
$14..0..LDY $15..0..STA XK..0..STY XK.1.
.0..STX YK..0..RTS.P0@.MSK1 .BYT $80,$40
,$20,$10..0J..BYT $08,$04,$02,$01..0T.;.
.1^.FMSK .BYT %11111111;LINKE SEITE.+1H.
. .BYT %10000000.C1R.. .BYT %10000
000.[1|.. .BYT %10000000.S1... .BY
T %10000000..1... .BYT %10000000..1..
. .BYT %10000000..1... .BYT %10000
000.S1... .BYT %11111111..1... .BY
T %10000000..2B.. .BYT %10000000..2L.
. .BYT %10000000.32V.. .BYT %10000
000.K2... .BYT %10000000.C2... .BY
T %10000000.{2... .BYT %10000000..2..
;..2. . .BYT %11111111;RECHTE SEITE..
2. . .BYT %10000000.V2. . .BYT %10
000000..2& . .BYT %10000000..30 .
.BYT %10000000..3: . .BYT %10000000.6
3D . .BYT %10000000.N3N . .BYT %10
000000.F3X . .BYT %11111111.~3B .
.BYT %10000000..3L . .BYT %10000000..
3V . .BYT %10000000.F3. . .BYT %10
000000..3. . .BYT %10000000..3. .
.BYT %10000000..4. . .BYT %10000000..
4. ;.$4D"XXL . $7B00.44N"XXH . $7C00.D4X
"YYK . $7D00.J4.";.[4."AADL . $7E00.L4."
AADH . $7F00.R4.#;..4.';... PADR2 .....4
.';UNTER DIESEM LABEL WIRD DIE ADRESSE.H
4.';IN DER $8000 GRAFIK,..4$';DIE ZU XK.
XK.1,YK GEHOERT,ERRECHNET..5.';UND IN PT
R1.PTR1.1 ABGELEGT..;58';DIE BITMASKE FU
ER DEN ENTSPRECH.EN.`5B';PUNKT WIRD NACH
MSK GESCHRIEBEN..5L';UND BEFINDET SICH
NACH ABCHLUSS..5V';IM AKKU. DAS CARRY IS
T ZU DIESEM.I5`';ZEITPUNKT NICHT GESETZT
..O5J';..5T';... DYK .....6~';DIE Y.KO.D
INATE WIRD UM EINS VER..-6.';MINDERT. DI
E ZUGEHOERIGE ADRESSE.@6.';STEHT IN PTR1
.F6.';.W6.';... IYK ....}6.';WIE DYK. JE
DOCH WIRD DIE Y.KO.D...6.';ERHOEHT..6D';
..6.*;"BELEGUNG DER ZEROPAGE Z.B.:..6.+;
.H6\+;PTR1 . $F7.X6F+;PTR2 . $F9..6P+;PT
R3 . $FB..6Z+;..6.+;S.0 . $FD..7.+;S.1 .
$FE..7.+;S.2 . $FF.!7.+;.F7.+;IN BADH S
TEHT DAS HIGH.BYTE DES.J7.+;ZEICHENSPEIC
HERS.Z.B. $40 FUER..7.+;DIE GRAFIK AB $4
000..7J+;"ACHTUNG: DIE GRAFIK AB $8000.I
7T+;DARF NICHT BENUTZT WERDEN, DA..7.+;S
IE VOM PROGRAMM AUS BENOETIGT..7$,;WIRD.
..7.,;.%88,;XXL,XXH UND YYK .D DIE MERKS
TAPEL.K8B,;SIE HABEN EINE LAENGE V. JEWE
ILS.L8L,;256 BYTES (INSGESAMMT 768)...8V
,;SIE DURFEN IM .IEN RAM LIEGEN...8`,;DA
BEI HIRES.MASTER BEIM AUFUEHREN..8J,;DI
E RAMS MIT SEI:LDA #$30:STA $01..9T,;EIN
GESCHALTET WERDEN, LIEGEN SIE.19~,;D.T U
NTER DEN CIAS IM BEREICH AB $D000.79.,;.
]9.,;DIE ROUTINE MIT DEM LABEL 'GXYK'.9
.,;HOLT DIE KO.DINATEN UND LEGT..9.,;SIE
IN XK.XK.1,YK AB...9_...:....
> CLICK IMAGE PREVIEW FOR FULL MODAL