RECHTECK
FILE INFORMATION
FILENAME(S): RECHTECK
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
69cb0939cf5870acd60b29fb70dee17665449458a3915e00bf1b762c4c152185
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | RECHTECK | PRG | Treasure Chest - Klaus Der Suhler | 11 | 2 | DOWNLOAD FILE |
| 90571 | RECHTECK | PRG | BrainSkull, Georg Fuchs 1988 | 11 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 22 2D 64 00 3B 52 45 43 48 54 45 43 4B 00 |.-"-d.;RECHTECK.|
00000010: 28 2D 65 00 3B 00 36 2D 66 00 20 2E 42 41 24 36 |(-e.;.6-f. .BA$6|
00000020: 38 35 44 00 3C 2D 67 00 3B 00 62 2D 68 00 20 2E |85D.<-g.;.b-h. .|
00000030: 45 51 4B 4F 4D 4D 41 20 3D 20 24 41 45 46 44 20 |EQKOMMA = $AEFD |
00000040: 20 3B 4B 4F 4D 4D 41 50 52 55 45 46 55 4E 47 00 | ;KOMMAPRUEFUNG.|
00000050: 89 2D 69 00 20 2E 45 51 46 52 4D 4E 55 4D 20 3D |.-i. .EQFRMNUM =|
00000060: 20 24 41 44 38 41 20 3B 41 55 53 44 52 55 43 4B | $AD8A ;AUSDRUCK|
00000070: 20 48 4F 4C 45 4E 00 AC 2D 6A 00 20 2E 45 51 42 | HOLEN..-j. .EQB|
00000080: 59 54 45 20 3D 20 24 42 37 39 45 20 20 20 3B 42 |YTE = $B79E ;B|
00000090: 59 54 45 20 48 4F 4C 45 4E 00 D5 2D 6B 00 20 2E |YTE HOLEN..-k. .|
000000A0: 45 51 58 31 4C 20 3D 20 24 46 41 20 20 20 20 20 |EQX1L = $FA |
000000B0: 20 3B 58 2D 4C 4F 57 20 4C 49 4E 4B 53 20 4F 42 | ;X-LOW LINKS OB|
000000C0: 45 4E 00 FF 2D 6C 00 20 2E 45 51 58 31 48 20 3D |EN..-l. .EQX1H =|
000000D0: 20 24 46 42 20 20 20 20 20 20 3B 58 2D 48 49 47 | $FB ;X-HIG|
000000E0: 48 20 4C 49 4E 4B 53 20 4F 42 45 4E 00 24 2E 6D |H LINKS OBEN.$.m|
000000F0: 00 20 2E 45 51 59 31 20 3D 20 24 46 43 20 20 20 |. .EQY1 = $FC |
00000100: 20 20 20 20 3B 59 2D 4C 49 4E 4B 53 20 4F 42 45 | ;Y-LINKS OBE|
00000110: 4E 00 4F 2E 6E 00 20 2E 45 51 58 32 4C 20 3D 20 |N.O.n. .EQX2L = |
00000120: 24 38 42 20 20 20 20 20 20 3B 58 2D 4C 4F 57 20 |$8B ;X-LOW |
00000130: 52 45 43 48 54 53 20 55 4E 54 45 4E 00 7B 2E 6F |RECHTS UNTEN.{.o|
00000140: 00 20 2E 45 51 58 32 48 20 3D 20 24 38 43 20 20 |. .EQX2H = $8C |
00000150: 20 20 20 20 3B 58 2D 48 49 47 48 20 52 45 43 48 | ;X-HIGH RECH|
00000160: 54 53 20 55 4E 54 45 4E 00 A2 2E 70 00 20 2E 45 |TS UNTEN...p. .E|
00000170: 51 59 32 20 3D 20 24 38 44 20 20 20 20 20 20 20 |QY2 = $8D |
00000180: 3B 59 2D 52 45 43 48 54 53 20 55 4E 54 45 4E 00 |;Y-RECHTS UNTEN.|
00000190: CD 2E 71 00 20 2E 45 51 41 44 52 4C 4F 4C 20 3D |..q. .EQADRLOL =|
000001A0: 20 24 39 45 20 20 20 3B 41 44 52 45 53 53 45 20 | $9E ;ADRESSE |
000001B0: 4C 49 4E 4B 53 20 4F 42 45 4E 00 F2 2E 72 00 20 |LINKS OBEN...r. |
000001C0: 2E 45 51 41 44 52 4C 4F 48 20 3D 20 24 39 46 20 |.EQADRLOH = $9F |
000001D0: 20 20 3B 4C 4F 57 20 55 4E 44 20 48 49 47 48 00 | ;LOW UND HIGH.|
000001E0: 1E 2F 73 00 20 2E 45 51 41 44 52 52 4F 4C 20 3D |./s. .EQADRROL =|
000001F0: 20 24 38 45 20 20 20 3B 41 44 52 45 53 53 45 20 | $8E ;ADRESSE |
00000200: 52 45 43 48 54 53 20 4F 42 45 4E 00 43 2F 74 00 |RECHTS OBEN.C/t.|
00000210: 20 2E 45 51 41 44 52 52 4F 48 20 3D 20 24 38 46 | .EQADRROH = $8F|
00000220: 20 20 20 3B 4C 4F 57 20 55 4E 44 20 48 49 47 48 | ;LOW UND HIGH|
00000230: 00 6F 2F 75 00 20 2E 45 51 41 44 52 4C 55 4C 20 |.o/u. .EQADRLUL |
00000240: 3D 20 24 46 44 20 20 20 3B 41 44 52 45 53 53 45 |= $FD ;ADRESSE|
00000250: 20 4C 49 4E 4B 53 20 55 4E 54 45 4E 00 94 2F 76 | LINKS UNTEN../v|
00000260: 00 20 2E 45 51 41 44 52 4C 55 48 20 3D 20 24 46 |. .EQADRLUH = $F|
00000270: 45 20 20 20 3B 4C 4F 57 20 55 4E 44 20 48 49 47 |E ;LOW UND HIG|
00000280: 48 00 BB 2F 77 00 20 2E 45 51 41 44 52 52 55 4C |H../w. .EQADRRUL|
00000290: 20 3D 20 24 42 35 20 20 20 3B 41 44 52 45 53 53 | = $B5 ;ADRESS|
000002A0: 45 20 52 45 43 48 54 53 00 E6 2F 78 00 20 2E 45 |E RECHTS../x. .E|
000002B0: 51 41 44 52 52 55 48 20 3D 20 24 42 36 20 20 20 |QADRRUH = $B6 |
000002C0: 3B 55 4E 54 45 4E 20 4C 4F 57 20 55 4E 44 20 48 |;UNTEN LOW UND H|
000002D0: 49 47 48 00 0E 30 79 00 20 2E 45 51 42 49 54 4C |IGH..0y. .EQBITL|
000002E0: 49 4E 4B 53 20 3D 20 24 42 37 20 3B 42 49 54 4D |INKS = $B7 ;BITM|
000002F0: 55 53 54 45 52 20 4C 49 4E 4B 53 00 38 30 7A 00 |USTER LINKS.80z.|
00000300: 20 2E 45 51 42 49 54 52 45 43 48 54 53 20 3D 20 | .EQBITRECHTS = |
00000310: 24 42 38 20 3B 42 49 54 4D 55 53 54 45 52 20 52 |$B8 ;BITMUSTER R|
00000320: 45 43 48 54 53 00 5B 30 7C 00 20 2E 45 51 47 52 |ECHTS.[0|. .EQGR|
00000330: 4F 46 46 20 3D 20 24 36 30 31 38 20 20 3B 47 52 |OFF = $6018 ;GR|
00000340: 41 46 49 4B 20 41 55 53 00 80 30 7D 00 20 2E 45 |AFIK AUS..0}. .E|
00000350: 51 49 4E 54 46 41 43 20 3D 20 24 42 31 41 41 20 |QINTFAC = $B1AA |
00000360: 3B 41 2F 59 3D 49 4E 54 28 46 41 43 29 00 AB 30 |;A/Y=INT(FAC)..0|
00000370: 7E 00 20 2E 45 51 4C 4F 57 54 41 42 20 3D 20 24 |~. .EQLOWTAB = $|
00000380: 36 30 43 38 20 3B 5A 45 49 4C 45 4E 41 4E 46 41 |60C8 ;ZEILENANFA|
00000390: 45 4E 47 45 20 4C 4F 57 00 D8 30 7F 00 20 2E 45 |ENGE LOW..0.. .E|
000003A0: 51 48 49 47 48 54 41 42 20 3D 20 24 36 31 39 30 |QHIGHTAB = $6190|
000003B0: 20 3B 5A 45 49 4C 45 4E 41 4E 46 41 45 4E 47 45 | ;ZEILENANFAENGE|
000003C0: 20 48 49 47 48 00 FF 30 80 00 20 2E 45 51 52 45 | HIGH..0.. .EQRE|
000003D0: 43 48 45 4E 20 3D 20 24 42 34 20 20 20 3B 52 45 |CHEN = $B4 ;RE|
000003E0: 43 48 45 4E 52 45 47 49 53 54 45 52 00 24 31 81 |CHENREGISTER.$1.|
000003F0: 00 20 2E 45 51 4D 4F 44 55 53 20 3D 20 24 46 39 |. .EQMODUS = $F9|
00000400: 20 20 20 20 3B 5A 45 49 43 48 45 4E 4D 4F 44 55 | ;ZEICHENMODU|
00000410: 53 00 3B 31 82 00 20 2E 45 51 42 49 54 54 41 42 |S.;1.. .EQBITTAB|
00000420: 20 3D 20 24 36 32 35 38 00 41 31 83 00 3B 00 4C | = $6258.A1..;.L|
00000430: 31 84 00 3B 53 54 41 52 54 00 57 31 85 00 3B 3D |1..;START.W1..;=|
00000440: 3D 3D 3D 3D 00 5D 31 86 00 3B 00 6B 31 87 00 20 |====.]1..;.k1.. |
00000450: 4A 53 52 4B 4F 4D 4D 41 00 91 31 8C 00 20 4A 53 |JSRKOMMA..1.. JS|
00000460: 52 4B 4F 4F 52 20 20 20 20 20 20 20 3B 4B 4F 4F |RKOOR ;KOO|
00000470: 52 44 49 4E 41 54 45 4E 20 48 4F 4C 45 4E 00 9A |RDINATEN HOLEN..|
00000480: 31 91 00 20 53 45 49 00 C0 31 96 00 20 4C 44 41 |1.. SEI..1.. LDA|
00000490: 23 35 32 20 20 20 20 20 20 20 20 3B 50 52 4F 5A |#52 ;PROZ|
000004A0: 45 53 53 4F 52 50 4F 52 54 20 41 55 46 00 E1 31 |ESSORPORT AUF..1|
000004B0: 9B 00 20 53 54 41 24 30 31 20 20 20 20 20 20 20 |.. STA$01 |
000004C0: 20 3B 52 41 4D 20 53 43 48 41 4C 54 45 4E 00 08 | ;RAM SCHALTEN..|
000004D0: 32 A0 00 20 4A 53 52 48 4F 52 49 4C 49 4E 45 20 |2.. JSRHORILINE |
000004E0: 20 20 3B 48 4F 52 49 5A 4F 4E 54 41 4C 45 20 4C | ;HORIZONTALE L|
000004F0: 49 4E 49 45 4E 00 13 32 A5 00 20 49 4E 43 59 31 |INIEN..2.. INCY1|
00000500: 00 1E 32 AA 00 20 44 45 43 59 32 00 29 32 AF 00 |..2.. DECY2.)2..|
00000510: 20 4C 44 41 59 32 00 34 32 B4 00 20 43 4D 50 59 | LDAY2.42.. CMPY|
00000520: 31 00 41 32 B9 00 20 42 43 43 45 4E 44 45 00 66 |1.A2.. BCCENDE.f|
00000530: 32 BD 00 20 4A 53 52 56 45 52 54 49 4C 49 4E 45 |2.. JSRVERTILINE|
00000540: 20 20 3B 56 45 52 54 49 4B 41 4C 45 20 4C 49 4E | ;VERTIKALE LIN|
00000550: 49 45 4E 00 8C 32 BE 00 45 4E 44 45 20 20 4C 44 |IEN..2..ENDE LD|
00000560: 41 20 23 35 35 20 20 3B 50 52 4F 5A 45 53 53 4F |A #55 ;PROZESSO|
00000570: 52 50 4F 52 54 20 41 55 46 00 AD 32 C3 00 20 53 |RPORT AUF..2.. S|
00000580: 54 41 24 30 31 20 20 20 20 20 20 20 20 3B 52 4F |TA$01 ;RO|
00000590: 4D 20 53 43 48 41 4C 54 45 4E 00 B6 32 C8 00 20 |M SCHALTEN..2.. |
000005A0: 43 4C 49 00 D1 32 CD 00 20 52 54 53 20 20 20 20 |CLI..2.. RTS |
000005B0: 20 20 20 20 20 20 20 3B 46 45 52 54 49 47 00 D7 | ;FERTIG..|
000005C0: 32 D2 00 3B 00 EE 32 D7 00 3B 4B 4F 4F 52 44 49 |2..;..2..;KOORDI|
000005D0: 4E 41 54 45 4E 20 48 4F 4C 45 4E 00 05 33 DC 00 |NATEN HOLEN..3..|
000005E0: 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;===============|
000005F0: 3D 3D 00 0B 33 E1 00 3B 00 31 33 E6 00 4B 4F 4F |==..3..;.13..KOO|
00000600: 52 20 20 4A 53 52 20 24 36 33 35 38 3B 58 31 2C |R JSR $6358;X1,|
00000610: 59 31 2C 4D 4F 44 55 53 20 48 4F 4C 45 4E 00 3F |Y1,MODUS HOLEN.?|
00000620: 33 EB 00 20 4A 53 52 4B 4F 4D 4D 41 00 60 33 F0 |3.. JSRKOMMA.`3.|
00000630: 00 20 4A 53 52 46 52 4D 4E 55 4D 20 20 20 20 20 |. JSRFRMNUM |
00000640: 3B 58 2D 41 55 53 44 45 48 4E 55 4E 47 00 81 33 |;X-AUSDEHNUNG..3|
00000650: F5 00 20 4A 53 52 49 4E 54 46 41 43 20 20 20 20 |.. JSRINTFAC |
00000660: 20 3B 4E 41 43 48 20 49 4E 54 45 47 45 52 00 8A | ;NACH INTEGER..|
00000670: 33 FA 00 20 54 41 58 00 AB 33 FF 00 20 54 59 41 |3.. TAX..3.. TYA|
00000680: 20 20 20 20 20 20 20 20 20 20 20 3B 50 4C 55 53 | ;PLUS|
00000690: 20 58 31 20 3D 20 58 32 00 B4 33 04 01 20 43 4C | X1 = X2..3.. CL|
000006A0: 43 00 D4 33 09 01 20 41 44 43 58 31 4C 20 20 20 |C..3.. ADCX1L |
000006B0: 20 20 20 20 20 3B 3E 3D 33 32 30 2C 20 44 41 4E | ;>=320, DAN|
000006C0: 4E 00 E0 33 0E 01 20 53 54 41 58 32 4C 00 E9 33 |N..3.. STAX2L..3|
000006D0: 0F 01 20 54 41 59 00 04 34 13 01 20 54 58 41 20 |.. TAY..4.. TXA |
000006E0: 20 20 20 20 20 20 20 20 20 20 3B 46 45 48 4C 45 | ;FEHLE|
000006F0: 52 00 10 34 18 01 20 41 44 43 58 31 48 00 1C 34 |R..4.. ADCX1H..4|
00000700: 1D 01 20 42 45 51 4F 4B 31 00 28 34 1E 01 20 43 |.. BEQOK1.(4.. C|
00000710: 4D 50 23 30 32 00 36 34 1F 01 20 42 43 53 45 52 |MP#02.64.. BCSER|
00000720: 52 4F 52 00 42 34 27 01 20 43 50 59 23 36 34 00 |ROR.B4'. CPY#64.|
00000730: 50 34 2C 01 20 42 43 53 45 52 52 4F 52 00 61 34 |P4,. BCSERROR.a4|
00000740: 31 01 4F 4B 31 20 20 53 54 41 20 58 32 48 00 6F |1.OK1 STA X2H.o|
00000750: 34 36 01 20 4A 53 52 4B 4F 4D 4D 41 00 90 34 3B |46. JSRKOMMA..4;|
00000760: 01 20 4A 53 52 42 59 54 45 20 20 20 20 20 20 20 |. JSRBYTE |
00000770: 3B 59 2D 41 55 53 44 45 48 4E 55 4E 47 00 99 34 |;Y-AUSDEHNUNG..4|
00000780: 40 01 20 54 58 41 00 BA 34 45 01 20 43 4C 43 20 |@. TXA..4E. CLC |
00000790: 20 20 20 20 20 20 20 20 20 20 3B 50 4C 55 53 20 | ;PLUS |
000007A0: 59 31 20 3D 20 59 32 00 C5 34 4A 01 20 41 44 43 |Y1 = Y2..4J. ADC|
000007B0: 59 31 00 EC 34 4F 01 20 43 4D 50 23 32 30 30 20 |Y1..4O. CMP#200 |
000007C0: 20 20 20 20 20 20 3B 3E 3D 32 30 30 2C 20 44 41 | ;>=200, DA|
000007D0: 4E 4E 20 46 45 48 4C 45 52 00 FA 34 54 01 20 42 |NN FEHLER..4T. B|
000007E0: 43 53 45 52 52 4F 52 00 05 35 59 01 20 53 54 41 |CSERROR..5Y. STA|
000007F0: 59 32 00 0E 35 5E 01 20 52 54 53 00 14 35 63 01 |Y2..5^. RTS..5c.|
00000800: 3B 00 2A 35 68 01 3B 49 4C 4C 45 47 41 4C 20 51 |;.*5h.;ILLEGAL Q|
00000810: 55 41 4E 54 49 54 59 00 40 35 69 01 3B 3D 3D 3D |UANTITY.@5i.;===|
00000820: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 46 35 |=============.F5|
00000830: 6A 01 3B 00 6E 35 6D 01 45 52 52 4F 52 20 20 4A |j.;.n5m.ERROR J|
00000840: 53 52 20 47 52 4F 46 46 20 3B 41 55 46 20 54 45 |SR GROFF ;AUF TE|
00000850: 58 54 20 53 43 48 41 4C 54 45 4E 00 7C 35 72 01 |XT SCHALTEN.|5r.|
00000860: 20 4A 4D 50 24 42 32 34 38 00 82 35 73 01 3B 00 | JMP$B248..5s.;.|
00000870: A2 35 7C 01 3B 48 4F 52 49 5A 4F 4E 54 41 4C 45 |.5|.;HORIZONTALE|
00000880: 20 4C 49 4E 49 45 20 5A 45 49 43 48 4E 45 4E 00 | LINIE ZEICHNEN.|
00000890: C2 35 7D 01 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.5}.;===========|
000008A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000008B0: C8 35 7E 01 3B 00 DD 35 7F 01 48 4F 52 49 4C 49 |.5~.;..5..HORILI|
000008C0: 4E 45 20 20 4C 44 58 20 59 31 00 02 36 86 01 20 |NE LDX Y1..6.. |
000008D0: 4C 44 41 58 31 4C 20 20 20 20 20 20 20 20 20 20 |LDAX1L |
000008E0: 20 3B 28 49 4E 54 28 58 31 2F 38 29 29 2A 38 00 | ;(INT(X1/8))*8.|
000008F0: 0F 36 8B 01 20 41 4E 44 23 24 46 38 00 36 36 90 |.6.. AND#$F8.66.|
00000900: 01 20 54 41 59 20 20 20 20 20 20 20 20 20 20 20 |. TAY |
00000910: 20 20 20 3B 41 29 20 50 4C 55 53 20 5A 45 49 4C | ;A) PLUS ZEIL|
00000920: 45 4E 2D 00 3F 36 95 01 20 43 4C 43 00 60 36 9A |EN-.?6.. CLC.`6.|
00000930: 01 20 41 44 43 4C 4F 57 54 41 42 2C 58 20 20 20 |. ADCLOWTAB,X |
00000940: 20 20 20 3B 41 4E 46 41 4E 47 20 59 31 00 6F 36 | ;ANFANG Y1.o6|
00000950: 9F 01 20 53 54 41 41 44 52 4C 4F 4C 00 97 36 A4 |.. STAADRLOL..6.|
00000960: 01 20 4C 44 41 58 31 48 20 20 20 20 20 20 20 20 |. LDAX1H |
00000970: 20 20 20 3B 3D 20 41 44 52 45 53 53 45 20 4C 49 | ;= ADRESSE LI|
00000980: 4E 4B 45 2C 00 A9 36 A9 01 20 41 44 43 48 49 47 |NKE,..6.. ADCHIG|
00000990: 48 54 41 42 2C 58 00 CB 36 AE 01 20 53 54 41 41 |HTAB,X..6.. STAA|
000009A0: 44 52 4C 4F 48 20 20 20 20 20 20 20 20 3B 4F 42 |DRLOH ;OB|
000009B0: 45 52 45 20 45 43 4B 45 00 D6 36 B3 01 20 4C 44 |ERE ECKE..6.. LD|
000009C0: 58 59 32 00 FD 36 B8 01 20 54 59 41 20 20 20 20 |XY2..6.. TYA |
000009D0: 20 20 20 20 20 20 20 20 20 20 3B 42 29 20 50 4C | ;B) PL|
000009E0: 55 53 20 5A 45 49 4C 45 4E 2D 00 06 37 BD 01 20 |US ZEILEN-..7.. |
000009F0: 43 4C 43 00 27 37 C2 01 20 41 44 43 4C 4F 57 54 |CLC.'7.. ADCLOWT|
00000A00: 41 42 2C 58 20 20 20 20 20 20 3B 41 4E 46 41 4E |AB,X ;ANFAN|
00000A10: 47 20 59 32 00 36 37 C7 01 20 53 54 41 41 44 52 |G Y2.67.. STAADR|
00000A20: 4C 55 4C 00 5E 37 CC 01 20 4C 44 41 58 31 48 20 |LUL.^7.. LDAX1H |
00000A30: 20 20 20 20 20 20 20 20 20 20 3B 3D 20 41 44 52 | ;= ADR|
00000A40: 45 53 53 45 20 4C 49 4E 4B 45 2C 00 70 37 D1 01 |ESSE LINKE,.p7..|
00000A50: 20 41 44 43 48 49 47 48 54 41 42 2C 58 00 93 37 | ADCHIGHTAB,X..7|
00000A60: D6 01 20 53 54 41 41 44 52 4C 55 48 20 20 20 20 |.. STAADRLUH |
00000A70: 20 20 20 20 3B 55 4E 54 45 52 45 20 45 43 4B 45 | ;UNTERE ECKE|
00000A80: 00 9F 37 DB 01 20 4C 44 41 58 31 4C 00 C5 37 E0 |..7.. LDAX1L..7.|
00000A90: 01 20 41 4E 44 23 30 37 20 20 20 20 20 20 20 20 |. AND#07 |
00000AA0: 20 20 20 3B 42 49 54 4D 55 53 54 45 52 20 46 55 | ;BITMUSTER FU|
00000AB0: 45 52 00 CE 37 E5 01 20 54 41 58 00 F1 37 EA 01 |ER..7.. TAX..7..|
00000AC0: 20 4C 44 41 4C 49 4E 4B 53 54 41 42 2C 58 20 20 | LDALINKSTAB,X |
00000AD0: 20 20 3B 4C 49 4E 4B 45 4E 20 52 41 4E 44 00 02 | ;LINKEN RAND..|
00000AE0: 38 EF 01 20 53 54 41 42 49 54 4C 49 4E 4B 53 00 |8.. STABITLINKS.|
00000AF0: 0D 38 F4 01 20 4C 44 58 59 31 00 32 38 F9 01 20 |.8.. LDXY1.28.. |
00000B00: 4C 44 41 58 32 4C 20 20 20 20 20 20 20 20 20 20 |LDAX2L |
00000B10: 20 3B 28 49 4E 54 28 58 32 2F 38 29 29 2A 38 00 | ;(INT(X2/8))*8.|
00000B20: 3F 38 FE 01 20 41 4E 44 23 24 46 38 00 66 38 03 |?8.. AND#$F8.f8.|
00000B30: 02 20 54 41 59 20 20 20 20 20 20 20 20 20 20 20 |. TAY |
00000B40: 20 20 20 3B 41 29 20 50 4C 55 53 20 5A 45 49 4C | ;A) PLUS ZEIL|
00000B50: 45 4E 2D 00 6F 38 08 02 20 43 4C 43 00 90 38 0D |EN-.o8.. CLC..8.|
00000B60: 02 20 41 44 43 4C 4F 57 54 41 42 2C 58 20 20 20 |. ADCLOWTAB,X |
00000B70: 20 20 20 3B 41 4E 46 41 4E 47 20 59 31 00 9F 38 | ;ANFANG Y1..8|
00000B80: 12 02 20 53 54 41 41 44 52 52 4F 4C 00 C7 38 17 |.. STAADRROL..8.|
00000B90: 02 20 4C 44 41 58 32 48 20 20 20 20 20 20 20 20 |. LDAX2H |
00000BA0: 20 20 20 3B 3D 41 44 52 45 53 53 45 20 52 45 43 | ;=ADRESSE REC|
00000BB0: 48 54 45 2C 00 D9 38 1C 02 20 41 44 43 48 49 47 |HTE,..8.. ADCHIG|
00000BC0: 48 54 41 42 2C 58 00 FB 38 21 02 20 53 54 41 41 |HTAB,X..8!. STAA|
00000BD0: 44 52 52 4F 48 20 20 20 20 20 20 20 20 3B 4F 42 |DRROH ;OB|
00000BE0: 45 52 45 20 45 43 4B 45 00 06 39 26 02 20 4C 44 |ERE ECKE..9&. LD|
00000BF0: 58 59 32 00 2D 39 2B 02 20 54 59 41 20 20 20 20 |XY2.-9+. TYA |
00000C00: 20 20 20 20 20 20 20 20 20 20 3B 42 29 20 50 4C | ;B) PL|
00000C10: 55 53 20 5A 45 49 4C 45 4E 2D 00 36 39 30 02 20 |US ZEILEN-.690. |
00000C20: 43 4C 43 00 57 39 35 02 20 41 44 43 4C 4F 57 54 |CLC.W95. ADCLOWT|
00000C30: 41 42 2C 58 20 20 20 20 20 20 3B 41 4E 46 41 4E |AB,X ;ANFAN|
00000C40: 47 20 59 32 00 66 39 3A 02 20 53 54 41 41 44 52 |G Y2.f9:. STAADR|
00000C50: 52 55 4C 00 8E 39 3F 02 20 4C 44 41 58 32 48 20 |RUL..9?. LDAX2H |
00000C60: 20 20 20 20 20 20 20 20 20 20 3B 3D 41 44 52 45 | ;=ADRE|
00000C70: 53 53 45 20 52 45 43 48 54 45 2C 00 A0 39 44 02 |SSE RECHTE,..9D.|
00000C80: 20 41 44 43 48 49 47 48 54 41 42 2C 58 00 C3 39 | ADCHIGHTAB,X..9|
00000C90: 49 02 20 53 54 41 41 44 52 52 55 48 20 20 20 20 |I. STAADRRUH |
00000CA0: 20 20 20 20 3B 55 4E 54 45 52 45 20 45 43 4B 45 | ;UNTERE ECKE|
00000CB0: 00 CF 39 4E 02 20 4C 44 41 58 32 4C 00 F5 39 53 |..9N. LDAX2L..9S|
00000CC0: 02 20 41 4E 44 23 30 37 20 20 20 20 20 20 20 20 |. AND#07 |
00000CD0: 20 20 20 3B 42 49 54 4D 55 53 54 45 52 20 46 55 | ;BITMUSTER FU|
00000CE0: 45 52 00 FE 39 58 02 20 54 41 58 00 22 3A 5D 02 |ER..9X. TAX.":].|
00000CF0: 20 4C 44 41 52 45 43 48 54 53 54 41 42 2C 58 20 | LDARECHTSTAB,X |
00000D00: 20 20 3B 52 45 43 48 54 45 4E 20 52 41 4E 44 00 | ;RECHTEN RAND.|
00000D10: 34 3A 62 02 20 53 54 41 42 49 54 52 45 43 48 54 |4:b. STABITRECHT|
00000D20: 53 00 3A 3A 67 02 3B 00 61 3A 6C 02 20 4C 44 59 |S.::g.;.a:l. LDY|
00000D30: 23 30 30 20 20 20 20 20 20 20 20 20 20 20 3B 41 |#00 ;A|
00000D40: 44 52 45 53 53 45 20 52 45 43 48 54 45 52 00 88 |DRESSE RECHTER..|
00000D50: 3A 71 02 20 4C 44 41 41 44 52 4C 4F 4C 20 20 20 |:q. LDAADRLOL |
00000D60: 20 20 20 20 20 3B 52 41 4E 44 20 55 4E 44 20 4C | ;RAND UND L|
00000D70: 49 4E 4B 45 52 00 AC 3A 76 02 20 43 4D 50 41 44 |INKER..:v. CMPAD|
00000D80: 52 52 4F 4C 20 20 20 20 20 20 20 20 3B 52 41 4E |RROL ;RAN|
00000D90: 44 20 47 4C 45 49 43 48 2C 00 D2 3A 7B 02 20 42 |D GLEICH,..:{. B|
00000DA0: 4E 45 57 45 49 54 45 52 20 20 20 20 20 20 20 20 |NEWEITER |
00000DB0: 3B 44 41 4E 4E 20 4C 49 4E 49 45 20 4E 55 52 00 |;DANN LINIE NUR.|
00000DC0: F8 3A 80 02 20 4C 44 41 41 44 52 4C 4F 48 20 20 |.:.. LDAADRLOH |
00000DD0: 20 20 20 20 20 20 3B 45 49 4E 20 42 59 54 45 20 | ;EIN BYTE |
00000DE0: 42 52 45 49 54 00 07 3B 85 02 20 43 4D 50 41 44 |BREIT..;.. CMPAD|
00000DF0: 52 52 4F 48 00 16 3B 8A 02 20 42 4E 45 57 45 49 |RROH..;.. BNEWEI|
00000E00: 54 45 52 00 1C 3B 8F 02 3B 00 3A 3B 94 02 3B 4C |TER..;..;.:;..;L|
00000E10: 49 4E 49 45 20 4E 55 52 20 45 49 4E 20 42 59 54 |INIE NUR EIN BYT|
00000E20: 45 20 42 52 45 49 54 00 58 3B 99 02 3B 3D 3D 3D |E BREIT.X;..;===|
00000E30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000E40: 3D 3D 3D 3D 3D 00 5E 3B 9E 02 3B 00 85 3B A3 02 |=====.^;..;..;..|
00000E50: 20 4C 44 41 42 49 54 4C 49 4E 4B 53 20 20 20 20 | LDABITLINKS |
00000E60: 20 3B 42 49 54 4D 55 53 54 45 52 20 55 45 42 45 | ;BITMUSTER UEBE|
00000E70: 52 2D 00 A2 3B A8 02 20 41 4E 44 42 49 54 52 45 |R-..;.. ANDBITRE|
00000E80: 43 48 54 53 20 20 20 20 3B 4C 41 47 45 52 4E 00 |CHTS ;LAGERN.|
00000E90: C1 3B AD 02 20 4A 4D 50 50 4C 4F 54 20 20 20 20 |.;.. JMPPLOT |
00000EA0: 20 20 20 20 20 3B 5A 45 49 43 48 4E 45 4E 00 C7 | ;ZEICHNEN..|
00000EB0: 3B B2 02 3B 00 EA 3B B7 02 3B 4C 49 4E 49 45 20 |;..;..;..;LINIE |
00000EC0: 4D 45 48 52 20 41 4C 53 20 45 49 4E 20 42 59 54 |MEHR ALS EIN BYT|
00000ED0: 45 20 42 52 45 49 54 00 0D 3C BC 02 3B 3D 3D 3D |E BREIT..<..;===|
00000EE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000EF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 13 3C C1 02 3B |==========..<..;|
00000F00: 00 33 3C C6 02 57 45 49 54 45 52 20 20 4C 44 41 |.3<..WEITER LDA|
00000F10: 20 41 44 52 52 4F 4C 20 3B 41 44 52 45 53 53 45 | ADRROL ;ADRESSE|
00000F20: 00 3C 3C CB 02 20 53 45 43 00 5F 3C D0 02 20 53 |.<<.. SEC._<.. S|
00000F30: 42 43 41 44 52 4C 4F 4C 20 20 20 20 20 20 20 3B |BCADRLOL ;|
00000F40: 52 45 43 48 54 45 52 20 52 41 4E 44 00 6E 3C D5 |RECHTER RAND.n<.|
00000F50: 02 20 53 54 41 52 45 43 48 45 4E 00 92 3C DA 02 |. STARECHEN..<..|
00000F60: 20 4C 44 41 41 44 52 52 4F 48 20 20 20 20 20 20 | LDAADRROH |
00000F70: 20 3B 4D 49 4E 55 53 20 41 44 52 45 53 53 45 00 | ;MINUS ADRESSE.|
00000F80: A1 3C DF 02 20 53 42 43 41 44 52 4C 4F 48 00 C1 |.<.. SBCADRLOH..|
00000F90: 3C E4 02 20 4C 53 52 20 20 20 20 20 20 20 20 20 |<.. LSR |
00000FA0: 20 20 3B 4C 49 4E 4B 45 52 20 52 41 4E 44 00 D0 | ;LINKER RAND..|
00000FB0: 3C E9 02 20 52 4F 52 52 45 43 48 45 4E 00 F4 3C |<.. RORRECHEN..<|
00000FC0: EE 02 20 4C 53 52 20 20 20 20 20 20 20 20 20 20 |.. LSR |
00000FD0: 20 3B 47 45 54 45 49 4C 54 20 44 55 52 43 48 20 | ;GETEILT DURCH |
00000FE0: 38 00 03 3D F3 02 20 52 4F 52 52 45 43 48 45 4E |8..=.. RORRECHEN|
00000FF0: 00 29 3D F8 02 20 4C 53 52 20 20 20 20 20 20 20 |.)=.. LSR |
00001000: 20 20 20 20 3B 3D 41 4E 5A 41 48 4C 20 5A 57 49 | ;=ANZAHL ZWI|
00001010: 53 43 48 45 4E 2D 00 38 3D FD 02 20 52 4F 52 52 |SCHEN-.8=.. RORR|
00001020: 45 43 48 45 4E 00 54 3D 02 03 20 4C 44 58 52 45 |ECHEN.T=.. LDXRE|
00001030: 43 48 45 4E 20 20 20 20 20 20 20 3B 42 59 54 45 |CHEN ;BYTE|
00001040: 53 00 76 3D 07 03 20 4C 44 41 42 49 54 4C 49 4E |S.v=.. LDABITLIN|
00001050: 4B 53 20 20 20 20 20 3B 4C 49 4E 4B 45 4E 20 52 |KS ;LINKEN R|
00001060: 41 4E 44 00 94 3D 0C 03 20 4A 53 52 50 4C 4F 54 |AND..=.. JSRPLOT|
00001070: 20 20 20 20 20 20 20 20 20 3B 5A 45 49 43 48 45 | ;ZEICHE|
00001080: 4E 00 B2 3D 0D 03 20 4A 4D 50 57 45 49 34 20 20 |N..=.. JMPWEI4 |
00001090: 20 20 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 00 | ;ZEICHEN.|
000010A0: D5 3D 11 03 4C 4F 4F 50 20 20 4C 44 41 20 23 24 |.=..LOOP LDA #$|
000010B0: 46 46 20 20 20 3B 5A 57 49 53 43 48 45 4E 42 59 |FF ;ZWISCHENBY|
000010C0: 54 45 00 F4 3D 16 03 20 4A 53 52 50 4C 4F 54 31 |TE..=.. JSRPLOT1|
000010D0: 20 20 20 20 20 20 20 20 3B 5A 45 49 43 48 4E 45 | ;ZEICHNE|
000010E0: 4E 00 09 3E 1B 03 57 45 49 34 20 20 4C 44 41 20 |N..>..WEI4 LDA |
000010F0: 41 44 52 4C 4F 4C 00 2D 3E 20 03 20 43 4C 43 20 |ADRLOL.-> . CLC |
00001100: 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 49 4E | ;EIN|
00001110: 20 42 59 54 45 20 4E 41 43 48 00 39 3E 25 03 20 | BYTE NACH.9>%. |
00001120: 41 44 43 23 30 38 00 5D 3E 2A 03 20 53 54 41 41 |ADC#08.]>*. STAA|
00001130: 44 52 4C 4F 4C 20 20 20 20 20 20 20 3B 52 45 43 |DRLOL ;REC|
00001140: 48 54 53 2C 20 44 41 4D 49 54 00 6A 3E 2F 03 20 |HTS, DAMIT.j>/. |
00001150: 42 43 43 57 45 49 32 00 90 3E 34 03 20 49 4E 43 |BCCWEI2..>4. INC|
00001160: 41 44 52 4C 4F 48 20 20 20 20 20 20 20 3B 41 44 |ADRLOH ;AD|
00001170: 52 45 53 53 45 20 55 4D 20 41 43 48 54 00 A5 3E |RESSE UM ACHT..>|
00001180: 39 03 57 45 49 32 20 20 4C 44 41 20 41 44 52 4C |9.WEI2 LDA ADRL|
00001190: 55 4C 00 C7 3E 3E 03 20 43 4C 43 20 20 20 20 20 |UL..>>. CLC |
000011A0: 20 20 20 20 20 20 20 20 3B 5A 55 20 45 52 48 4F | ;ZU ERHO|
000011B0: 45 48 45 4E 00 D3 3E 43 03 20 41 44 43 23 30 38 |EHEN..>C. ADC#08|
000011C0: 00 E2 3E 48 03 20 53 54 41 41 44 52 4C 55 4C 00 |..>H. STAADRLUL.|
000011D0: EF 3E 4D 03 20 42 43 43 57 45 49 33 00 0F 3F 52 |.>M. BCCWEI3..?R|
000011E0: 03 20 49 4E 43 41 44 52 4C 55 48 20 20 20 20 20 |. INCADRLUH |
000011F0: 20 20 3B 4E 41 45 43 48 53 54 45 53 00 1D 3F 57 | ;NAECHSTES..?W|
00001200: 03 57 45 49 33 20 20 44 45 58 00 40 3F 5C 03 20 |.WEI3 DEX.@?\. |
00001210: 42 4E 45 4C 4F 4F 50 20 20 20 20 20 20 20 20 20 |BNELOOP |
00001220: 3B 5A 57 49 53 43 48 45 4E 42 59 54 45 00 63 3F |;ZWISCHENBYTE.c?|
00001230: 61 03 20 4C 44 41 42 49 54 52 45 43 48 54 53 20 |a. LDABITRECHTS |
00001240: 20 20 20 3B 52 45 43 48 54 45 4E 20 52 41 4E 44 | ;RECHTEN RAND|
00001250: 00 82 3F 66 03 3B 20 20 20 20 20 20 20 20 20 20 |..?f.; |
00001260: 20 20 20 20 20 20 3B 5A 45 49 43 48 4E 45 4E 00 | ;ZEICHNEN.|
00001270: 88 3F 67 03 3B 00 9F 3F 6B 03 3B 52 41 4E 44 42 |.?g.;..?k.;RANDB|
00001280: 59 54 45 20 5A 45 49 43 48 4E 45 4E 00 B6 3F 70 |YTE ZEICHNEN..?p|
00001290: 03 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.;==============|
000012A0: 3D 3D 3D 00 BC 3F 71 03 3B 00 E0 3F 75 03 50 4C |===..?q.;..?u.PL|
000012B0: 4F 54 20 20 42 49 54 20 4D 4F 44 55 53 20 20 3B |OT BIT MODUS ;|
000012C0: 4D 4F 44 55 53 20 50 52 55 45 46 45 4E 00 FF 3F |MODUS PRUEFEN..?|
000012D0: 7A 03 20 42 56 53 53 45 54 5A 20 20 20 20 20 20 |z. BVSSETZ |
000012E0: 20 20 20 3B 5A 45 49 43 48 4E 45 4E 00 21 40 7F | ;ZEICHNEN.!@.|
000012F0: 03 20 42 4D 49 49 4E 56 20 20 20 20 20 20 20 20 |. BMIINV |
00001300: 20 20 3B 49 4E 56 45 52 54 49 45 52 45 4E 00 40 | ;INVERTIEREN.@|
00001310: 40 84 03 4C 4F 45 53 43 48 20 20 45 4F 52 20 23 |@..LOESCH EOR #|
00001320: 24 46 46 20 3B 4C 4F 45 53 43 48 45 4E 00 49 40 |$FF ;LOESCHEN.I@|
00001330: 85 03 20 50 48 41 00 6C 40 89 03 20 41 4E 44 28 |.. PHA.l@.. AND(|
00001340: 41 44 52 4C 55 4C 29 2C 59 20 20 20 3B 55 4E 54 |ADRLUL),Y ;UNT|
00001350: 45 52 45 20 4C 49 4E 49 45 00 7F 40 8E 03 20 53 |ERE LINIE..@.. S|
00001360: 54 41 28 41 44 52 4C 55 4C 29 2C 59 00 88 40 93 |TA(ADRLUL),Y..@.|
00001370: 03 20 50 4C 41 00 AA 40 98 03 20 41 4E 44 28 41 |. PLA..@.. AND(A|
00001380: 44 52 4C 4F 4C 29 2C 59 20 20 20 3B 4F 42 45 52 |DRLOL),Y ;OBER|
00001390: 45 20 4C 49 4E 49 45 00 BD 40 9D 03 20 53 54 41 |E LINIE..@.. STA|
000013A0: 28 41 44 52 4C 4F 4C 29 2C 59 00 C6 40 A2 03 20 |(ADRLOL),Y..@.. |
000013B0: 52 54 53 00 CC 40 A3 03 3B 00 DA 40 AC 03 53 45 |RTS..@..;..@..SE|
000013C0: 54 5A 20 20 50 48 41 00 FD 40 B1 03 20 4F 52 41 |TZ PHA..@.. ORA|
000013D0: 28 41 44 52 4C 55 4C 29 2C 59 20 20 20 3B 55 4E |(ADRLUL),Y ;UN|
000013E0: 54 45 52 45 20 4C 49 4E 49 45 00 10 41 B6 03 20 |TERE LINIE..A.. |
000013F0: 53 54 41 28 41 44 52 4C 55 4C 29 2C 59 00 19 41 |STA(ADRLUL),Y..A|
00001400: BB 03 20 50 4C 41 00 2C 41 C0 03 20 4F 52 41 28 |.. PLA.,A.. ORA(|
00001410: 41 44 52 4C 4F 4C 29 2C 59 00 4E 41 C5 03 20 53 |ADRLOL),Y.NA.. S|
00001420: 54 41 28 41 44 52 4C 4F 4C 29 2C 59 20 20 20 3B |TA(ADRLOL),Y ;|
00001430: 4F 42 45 52 45 20 4C 49 4E 49 45 00 57 41 CA 03 |OBERE LINIE.WA..|
00001440: 20 52 54 53 00 5D 41 CB 03 3B 00 6A 41 CF 03 49 | RTS.]A..;.jA..I|
00001450: 4E 56 20 20 50 48 41 00 8C 41 D4 03 20 45 4F 52 |NV PHA..A.. EOR|
00001460: 28 41 44 52 4C 4F 4C 29 2C 59 20 20 20 3B 4F 42 |(ADRLOL),Y ;OB|
00001470: 45 52 45 20 4C 49 4E 49 45 00 9F 41 D9 03 20 53 |ERE LINIE..A.. S|
00001480: 54 41 28 41 44 52 4C 4F 4C 29 2C 59 00 A8 41 DE |TA(ADRLOL),Y..A.|
00001490: 03 20 50 4C 41 00 CB 41 E3 03 20 45 4F 52 28 41 |. PLA..A.. EOR(A|
000014A0: 44 52 4C 55 4C 29 2C 59 20 20 20 3B 55 4E 54 45 |DRLUL),Y ;UNTE|
000014B0: 52 45 20 4C 49 4E 49 45 00 DE 41 E8 03 20 53 54 |RE LINIE..A.. ST|
000014C0: 41 28 41 44 52 4C 55 4C 29 2C 59 00 E7 41 E9 03 |A(ADRLUL),Y..A..|
000014D0: 20 52 54 53 00 ED 41 EA 03 3B 00 08 42 EB 03 3B | RTS..A..;..B..;|
000014E0: 5A 57 49 53 43 48 45 4E 42 59 54 45 20 5A 45 49 |ZWISCHENBYTE ZEI|
000014F0: 43 48 4E 45 4E 00 23 42 EC 03 3B 3D 3D 3D 3D 3D |CHNEN.#B..;=====|
00001500: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001510: 00 29 42 ED 03 3B 00 4D 42 F1 03 50 4C 4F 54 31 |.)B..;.MB..PLOT1|
00001520: 20 20 42 49 54 20 4D 4F 44 55 53 20 3B 4D 4F 44 | BIT MODUS ;MOD|
00001530: 55 53 20 50 52 55 45 46 45 4E 00 6A 42 F2 03 20 |US PRUEFEN.jB.. |
00001540: 42 56 53 53 45 54 5A 31 20 20 20 20 20 20 20 20 |BVSSETZ1 |
00001550: 3B 53 45 54 5A 45 4E 00 8C 42 F7 03 20 42 4D 49 |;SETZEN..B.. BMI|
00001560: 49 4E 56 20 20 20 20 20 20 20 20 20 20 3B 49 4E |INV ;IN|
00001570: 56 45 52 54 49 45 52 45 4E 00 92 42 FC 03 3B 00 |VERTIEREN..B..;.|
00001580: A7 42 FD 03 4C 4F 45 53 43 48 31 20 20 4C 44 41 |.B..LOESCH1 LDA|
00001590: 20 23 30 30 00 C1 42 FE 03 53 45 54 5A 31 20 20 | #00..B..SETZ1 |
000015A0: 53 54 41 20 28 41 44 52 4C 4F 4C 29 2C 59 00 D4 |STA (ADRLOL),Y..|
000015B0: 42 FF 03 20 53 54 41 28 41 44 52 4C 55 4C 29 2C |B.. STA(ADRLUL),|
000015C0: 59 00 DD 42 00 04 20 52 54 53 00 E3 42 01 04 3B |Y..B.. RTS..B..;|
000015D0: 00 01 43 06 04 3B 56 45 52 54 49 4B 41 4C 45 20 |..C..;VERTIKALE |
000015E0: 4C 49 4E 49 45 20 5A 45 49 43 48 4E 45 4E 00 1F |LINIE ZEICHNEN..|
000015F0: 43 0B 04 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |C..;============|
00001600: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 25 43 10 |============.%C.|
00001610: 04 3B 00 3B 43 15 04 56 45 52 54 49 4C 49 4E 45 |.;.;C..VERTILINE|
00001620: 20 20 4C 44 41 20 59 31 00 48 43 16 04 20 41 4E | LDA Y1.HC.. AN|
00001630: 44 23 24 46 38 00 51 43 17 04 20 54 41 58 00 5D |D#$F8.QC.. TAX.]|
00001640: 43 1A 04 20 4C 44 41 58 31 4C 00 66 43 1B 04 20 |C.. LDAX1L.fC.. |
00001650: 54 41 59 00 8A 43 1F 04 20 41 4E 44 23 24 46 38 |TAY..C.. AND#$F8|
00001660: 20 20 20 20 20 20 20 20 20 3B 28 49 4E 54 28 58 | ;(INT(X|
00001670: 31 2F 38 29 29 2A 38 00 93 43 24 04 20 43 4C 43 |1/8))*8..C$. CLC|
00001680: 00 B6 43 29 04 20 41 44 43 4C 4F 57 54 41 42 2C |..C). ADCLOWTAB,|
00001690: 58 20 20 20 20 20 3B 50 4C 55 53 20 5A 45 49 4C |X ;PLUS ZEIL|
000016A0: 45 4E 2D 00 C5 43 2E 04 20 53 54 41 41 44 52 4C |EN-..C.. STAADRL|
000016B0: 4F 4C 00 E7 43 33 04 20 4C 44 41 58 31 48 20 20 |OL..C3. LDAX1H |
000016C0: 20 20 20 20 20 20 20 20 3B 41 4E 46 41 4E 47 20 | ;ANFANG |
000016D0: 59 31 20 3D 00 F9 43 38 04 20 41 44 43 48 49 47 |Y1 =..C8. ADCHIG|
000016E0: 48 54 41 42 2C 58 00 1D 44 3D 04 20 53 54 41 41 |HTAB,X..D=. STAA|
000016F0: 44 52 4C 4F 48 20 20 20 20 20 20 20 3B 41 44 52 |DRLOH ;ADR|
00001700: 45 53 53 45 20 4C 49 4E 4B 53 00 43 44 47 04 20 |ESSE LINKS.CDG. |
00001710: 4C 44 41 42 49 54 54 41 42 2C 59 20 20 20 20 20 |LDABITTAB,Y |
00001720: 3B 42 49 54 4D 55 53 54 45 52 20 4C 49 4E 4B 53 |;BITMUSTER LINKS|
00001730: 00 60 44 4C 04 20 53 54 41 42 49 54 4C 49 4E 4B |.`DL. STABITLINK|
00001740: 53 20 20 20 20 20 3B 4D 45 52 4B 45 4E 00 6C 44 |S ;MERKEN.lD|
00001750: 56 04 20 4C 44 41 58 32 4C 00 75 44 57 04 20 54 |V. LDAX2L.uDW. T|
00001760: 41 59 00 99 44 5B 04 20 41 4E 44 23 24 46 38 20 |AY..D[. AND#$F8 |
00001770: 20 20 20 20 20 20 20 20 3B 28 49 4E 54 28 58 32 | ;(INT(X2|
00001780: 2F 38 29 29 2A 38 00 A2 44 60 04 20 43 4C 43 00 |/8))*8..D`. CLC.|
00001790: C5 44 65 04 20 41 44 43 4C 4F 57 54 41 42 2C 58 |.De. ADCLOWTAB,X|
000017A0: 20 20 20 20 20 3B 50 4C 55 53 20 5A 45 49 4C 45 | ;PLUS ZEILE|
000017B0: 4E 2D 00 D4 44 6A 04 20 53 54 41 41 44 52 52 4F |N-..Dj. STAADRRO|
000017C0: 4C 00 F6 44 6F 04 20 4C 44 41 58 32 48 20 20 20 |L..Do. LDAX2H |
000017D0: 20 20 20 20 20 20 20 3B 41 4E 46 41 4E 47 20 59 | ;ANFANG Y|
000017E0: 31 20 3D 00 08 45 74 04 20 41 44 43 48 49 47 48 |1 =..Et. ADCHIGH|
000017F0: 54 41 42 2C 58 00 2C 45 79 04 20 53 54 41 41 44 |TAB,X.,Ey. STAAD|
00001800: 52 52 4F 48 20 20 20 20 20 20 20 3B 41 44 52 45 |RROH ;ADRE|
00001810: 53 53 45 20 4C 49 4E 4B 53 00 53 45 83 04 20 4C |SSE LINKS.SE.. L|
00001820: 44 41 42 49 54 54 41 42 2C 59 20 20 20 20 20 3B |DABITTAB,Y ;|
00001830: 42 49 54 4D 55 53 54 45 52 20 52 45 43 48 54 53 |BITMUSTER RECHTS|
00001840: 00 70 45 88 04 20 53 54 41 42 49 54 52 45 43 48 |.pE.. STABITRECH|
00001850: 54 53 20 20 20 20 3B 4D 45 52 4B 45 4E 00 92 45 |TS ;MERKEN..E|
00001860: 8D 04 20 4C 44 41 59 31 20 20 20 20 20 20 20 20 |.. LDAY1 |
00001870: 20 20 20 3B 50 4F 53 49 54 49 4F 4E 20 49 4D 00 | ;POSITION IM.|
00001880: AE 45 92 04 20 41 4E 44 23 30 37 20 20 20 20 20 |.E.. AND#07 |
00001890: 20 20 20 20 20 3B 42 4C 4F 43 4B 00 B7 45 97 04 | ;BLOCK..E..|
000018A0: 20 54 41 59 00 D5 45 98 04 20 53 54 59 24 30 33 | TAY..E.. STY$03|
000018B0: 33 43 20 20 20 20 3B 41 4C 53 20 5A 41 45 48 4C |3C ;ALS ZAEHL|
000018C0: 45 52 00 E0 45 9C 04 20 4C 44 41 59 32 00 02 46 |ER..E.. LDAY2..F|
000018D0: A1 04 20 53 45 43 20 20 20 20 20 20 20 20 20 20 |.. SEC |
000018E0: 20 20 20 3B 28 59 32 2D 59 31 29 2B 31 20 3D 00 | ;(Y2-Y1)+1 =.|
000018F0: 0D 46 A6 04 20 53 42 43 59 31 00 34 46 AB 04 20 |.F.. SBCY1.4F.. |
00001900: 54 41 58 20 20 20 20 20 20 20 20 20 20 20 20 20 |TAX |
00001910: 3B 41 4E 5A 41 48 4C 20 5A 57 49 53 43 48 45 4E |;ANZAHL ZWISCHEN|
00001920: 2D 00 3D 46 B0 04 20 49 4E 58 00 55 46 B1 04 20 |-.=F.. INX.UF.. |
00001930: 53 54 58 24 30 33 33 44 20 20 20 20 3B 42 59 54 |STX$033D ;BYT|
00001940: 45 53 00 77 46 B5 04 4C 4F 4F 50 31 20 20 4A 53 |ES.wF..LOOP1 JS|
00001950: 52 20 50 4C 4F 54 32 20 3B 4C 49 4E 4B 45 4E 20 |R PLOT2 ;LINKEN |
00001960: 52 41 4E 44 00 80 46 BA 04 20 44 45 58 00 9D 46 |RAND..F.. DEX..F|
00001970: BF 04 20 42 45 51 4F 55 54 20 20 20 20 20 20 20 |.. BEQOUT |
00001980: 20 20 20 3B 46 45 52 54 49 47 00 BF 46 C4 04 20 | ;FERTIG..F.. |
00001990: 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 20 |INY |
000019A0: 3B 47 52 41 46 49 4B 42 4C 4F 43 4B 00 DD 46 C9 |;GRAFIKBLOCK..F.|
000019B0: 04 20 43 50 59 23 30 38 20 20 20 20 20 20 20 20 |. CPY#08 |
000019C0: 20 20 3B 42 45 45 4E 44 45 54 00 00 47 CE 04 20 | ;BEENDET..G.. |
000019D0: 42 43 43 4C 4F 4F 50 31 20 20 20 20 20 20 20 20 |BCCLOOP1 |
000019E0: 3B 4E 45 49 4E 2C 20 57 45 49 54 45 52 00 0F 47 |;NEIN, WEITER..G|
000019F0: D3 04 20 4C 44 41 41 44 52 4C 4F 4C 00 33 47 D8 |.. LDAADRLOL.3G.|
00001A00: 04 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 |. CLC |
00001A10: 20 20 3B 4A 41 2C 20 4E 41 45 43 48 53 54 45 52 | ;JA, NAECHSTER|
00001A20: 00 40 47 DD 04 20 41 44 43 23 24 34 30 00 62 47 |.@G.. ADC#$40.bG|
00001A30: E2 04 20 53 54 41 41 44 52 4C 4F 4C 20 20 20 20 |.. STAADRLOL |
00001A40: 20 20 20 3B 42 4C 4F 43 4B 2C 20 44 2E 48 2E 00 | ;BLOCK, D.H..|
00001A50: 71 47 E7 04 20 4C 44 41 41 44 52 4C 4F 48 00 94 |qG.. LDAADRLOH..|
00001A60: 47 EC 04 20 41 44 43 23 30 31 20 20 20 20 20 20 |G.. ADC#01 |
00001A70: 20 20 20 20 3B 41 44 52 45 53 53 45 20 4D 55 53 | ;ADRESSE MUS|
00001A80: 53 00 A3 47 F1 04 20 53 54 41 41 44 52 4C 4F 48 |S..G.. STAADRLOH|
00001A90: 00 C8 47 F6 04 20 4C 44 41 41 44 52 52 4F 4C 20 |..G.. LDAADRROL |
00001AA0: 20 20 20 20 20 20 3B 55 4D 20 33 32 30 20 45 52 | ;UM 320 ER|
00001AB0: 48 4F 45 48 54 00 D1 47 FB 04 20 43 4C 43 00 EE |HOEHT..G.. CLC..|
00001AC0: 47 00 05 20 41 44 43 23 24 34 30 20 20 20 20 20 |G.. ADC#$40 |
00001AD0: 20 20 20 20 3B 57 45 52 44 45 4E 00 FD 47 05 05 | ;WERDEN..G..|
00001AE0: 20 53 54 41 41 44 52 52 4F 4C 00 0C 48 0A 05 20 | STAADRROL..H.. |
00001AF0: 4C 44 41 41 44 52 52 4F 48 00 18 48 0F 05 20 41 |LDAADRROH..H.. A|
00001B00: 44 43 23 30 31 00 27 48 14 05 20 53 54 41 41 44 |DC#01.'H.. STAAD|
00001B10: 52 52 4F 48 00 33 48 19 05 20 4C 44 59 23 30 30 |RROH.3H.. LDY#00|
00001B20: 00 4F 48 1E 05 20 42 45 51 4C 4F 4F 50 31 20 20 |.OH.. BEQLOOP1 |
00001B30: 20 20 20 20 20 20 3B 49 4D 4D 45 52 00 6A 48 23 | ;IMMER.jH#|
00001B40: 05 4F 55 54 20 20 52 54 53 20 20 20 20 20 20 20 |.OUT RTS |
00001B50: 20 20 3B 45 4E 44 45 00 70 48 28 05 3B 00 84 48 | ;ENDE.pH(.;..H|
00001B60: 2D 05 3B 5A 45 49 43 48 4E 45 54 20 4C 49 4E 49 |-.;ZEICHNET LINI|
00001B70: 45 00 98 48 32 05 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |E..H2.;=========|
00001B80: 3D 3D 3D 3D 3D 00 9E 48 37 05 3B 00 C2 48 3C 05 |=====..H7.;..H<.|
00001B90: 50 4C 4F 54 32 20 20 42 49 54 20 4D 4F 44 55 53 |PLOT2 BIT MODUS|
00001BA0: 20 3B 4D 4F 44 55 53 20 50 52 55 45 46 45 4E 00 | ;MODUS PRUEFEN.|
00001BB0: DF 48 41 05 20 42 56 53 53 45 54 5A 32 20 20 20 |.HA. BVSSETZ2 |
00001BC0: 20 20 20 20 20 3B 53 45 54 5A 45 4E 00 01 49 46 | ;SETZEN..IF|
00001BD0: 05 20 42 4D 49 49 4E 56 32 20 20 20 20 20 20 20 |. BMIINV2 |
00001BE0: 20 20 3B 49 4E 56 45 52 54 49 45 52 45 4E 00 1B | ;INVERTIEREN..|
00001BF0: 49 4B 05 4C 4F 45 53 43 48 32 20 20 4C 44 41 20 |IK.LOESCH2 LDA |
00001C00: 42 49 54 4C 49 4E 4B 53 00 28 49 50 05 20 45 4F |BITLINKS.(IP. EO|
00001C10: 52 23 24 46 46 00 4A 49 55 05 20 41 4E 44 28 41 |R#$FF.JIU. AND(A|
00001C20: 44 52 4C 4F 4C 29 2C 59 20 20 20 3B 4C 49 4E 4B |DRLOL),Y ;LINK|
00001C30: 45 20 4C 49 4E 49 45 00 5D 49 5A 05 20 53 54 41 |E LINIE.]IZ. STA|
00001C40: 28 41 44 52 4C 4F 4C 29 2C 59 00 6F 49 5F 05 20 |(ADRLOL),Y.oI_. |
00001C50: 4C 44 41 42 49 54 52 45 43 48 54 53 00 7C 49 64 |LDABITRECHTS.|Id|
00001C60: 05 20 45 4F 52 23 24 46 46 00 9F 49 69 05 20 41 |. EOR#$FF..Ii. A|
00001C70: 4E 44 28 41 44 52 52 4F 4C 29 2C 59 20 20 20 3B |ND(ADRROL),Y ;|
00001C80: 52 45 43 48 54 45 20 4C 49 4E 49 45 00 B2 49 6E |RECHTE LINIE..In|
00001C90: 05 20 53 54 41 28 41 44 52 52 4F 4C 29 2C 59 00 |. STA(ADRROL),Y.|
00001CA0: BB 49 6F 05 20 52 54 53 00 C1 49 70 05 3B 00 D9 |.Io. RTS..Ip.;..|
00001CB0: 49 73 05 53 45 54 5A 32 20 20 4C 44 41 20 42 49 |Is.SETZ2 LDA BI|
00001CC0: 54 4C 49 4E 4B 53 00 FB 49 78 05 20 4F 52 41 28 |TLINKS..Ix. ORA(|
00001CD0: 41 44 52 4C 4F 4C 29 2C 59 20 20 20 3B 4C 49 4E |ADRLOL),Y ;LIN|
00001CE0: 4B 45 20 4C 49 4E 49 45 00 0E 4A 7D 05 20 53 54 |KE LINIE..J}. ST|
00001CF0: 41 28 41 44 52 4C 4F 4C 29 2C 59 00 20 4A 82 05 |A(ADRLOL),Y. J..|
00001D00: 20 4C 44 41 42 49 54 52 45 43 48 54 53 00 43 4A | LDABITRECHTS.CJ|
00001D10: 87 05 20 4F 52 41 28 41 44 52 52 4F 4C 29 2C 59 |.. ORA(ADRROL),Y|
00001D20: 20 20 20 3B 52 45 43 48 54 45 20 4C 49 4E 49 45 | ;RECHTE LINIE|
00001D30: 00 56 4A 8C 05 20 53 54 41 28 41 44 52 52 4F 4C |.VJ.. STA(ADRROL|
00001D40: 29 2C 59 00 5F 4A 8D 05 20 52 54 53 00 65 4A 8E |),Y._J.. RTS.eJ.|
00001D50: 05 3B 00 7C 4A 91 05 49 4E 56 32 20 20 4C 44 41 |.;.|J..INV2 LDA|
00001D60: 20 42 49 54 4C 49 4E 4B 53 00 9E 4A 96 05 20 45 | BITLINKS..J.. E|
00001D70: 4F 52 28 41 44 52 4C 4F 4C 29 2C 59 20 20 20 3B |OR(ADRLOL),Y ;|
00001D80: 4C 49 4E 4B 45 20 4C 49 4E 49 45 00 B1 4A 9B 05 |LINKE LINIE..J..|
00001D90: 20 53 54 41 28 41 44 52 4C 4F 4C 29 2C 59 00 C3 | STA(ADRLOL),Y..|
00001DA0: 4A A0 05 20 4C 44 41 42 49 54 52 45 43 48 54 53 |J.. LDABITRECHTS|
00001DB0: 00 E6 4A A5 05 20 45 4F 52 28 41 44 52 52 4F 4C |..J.. EOR(ADRROL|
00001DC0: 29 2C 59 20 20 20 3B 52 45 43 48 54 45 20 4C 49 |),Y ;RECHTE LI|
00001DD0: 4E 49 45 00 F9 4A AA 05 20 53 54 41 28 41 44 52 |NIE..J.. STA(ADR|
00001DE0: 52 4F 4C 29 2C 59 00 02 4B AB 05 20 52 54 53 00 |ROL),Y..K.. RTS.|
00001DF0: 08 4B AC 05 3B 00 2A 4B B8 0B 4C 49 4E 4B 53 54 |.K..;.*K..LINKST|
00001E00: 41 42 20 20 2E 42 59 20 24 46 46 2C 24 37 46 2C |AB .BY $FF,$7F,|
00001E10: 24 33 46 2C 24 31 46 00 42 4B B9 0B 20 2E 42 59 |$3F,$1F.BK.. .BY|
00001E20: 24 30 46 2C 24 30 37 2C 24 30 33 2C 24 30 31 00 |$0F,$07,$03,$01.|
00001E30: 63 4B BA 0B 52 45 43 48 54 53 54 41 42 20 2E 42 |cK..RECHTSTAB .B|
00001E40: 59 24 38 30 2C 24 43 30 2C 24 45 30 2C 24 46 30 |Y$80,$C0,$E0,$F0|
00001E50: 00 7B 4B BB 0B 20 2E 42 59 24 46 38 2C 24 46 43 |.{K.. .BY$F8,$FC|
00001E60: 2C 24 46 45 2C 24 46 46 00 00 00 |,$FE,$FF... |
.-"-D.;RECHTECK.(-E.;.6-F. .BA$685D.<-G.
;.B-H. .EQKOMMA = $AEFD ;KOMMAPRUEFUNG.
.-I. .EQFRMNUM = $AD8A ;AUSDRUCK HOLEN..
-J. .EQBYTE = $B79E ;BYTE HOLEN.U-K. .
EQX1L = $FA ;X-LOW LINKS OBEN..-L.
.EQX1H = $FB ;X-HIGH LINKS OBEN.$.M
. .EQY1 = $FC ;Y-LINKS OBEN.O.N. .
EQX2L = $8B ;X-LOW RECHTS UNTEN.{.O
. .EQX2H = $8C ;X-HIGH RECHTS UNTEN
...P. .EQY2 = $8D ;Y-RECHTS UNTEN.
M.Q. .EQADRLOL = $9E ;ADRESSE LINKS OB
EN...R. .EQADRLOH = $9F ;LOW UND HIGH.
./S. .EQADRROL = $8E ;ADRESSE RECHTS O
BEN.C/T. .EQADRROH = $8F ;LOW UND HIGH
.O/U. .EQADRLUL = $FD ;ADRESSE LINKS U
NTEN../V. .EQADRLUH = $FE ;LOW UND HIG
H../W. .EQADRRUL = $B5 ;ADRESSE RECHTS
../X. .EQADRRUH = $B6 ;UNTEN LOW UND H
IGH..0Y. .EQBITLINKS = $B7 ;BITMUSTER LI
NKS.80Z. .EQBITRECHTS = $B8 ;BITMUSTER R
ECHTS.[0|. .EQGROFF = $6018 ;GRAFIK AUS
..0}. .EQINTFAC = $B1AA ;A/Y=INT(FAC)..0
~. .EQLOWTAB = $60C8 ;ZEILENANFAENGE LOW
.X0. .EQHIGHTAB = $6190 ;ZEILENANFAENGE
HIGH..0.. .EQRECHEN = $B4 ;RECHENREGI
STER.$1.. .EQMODUS = $F9 ;ZEICHENMODU
S.;1.. .EQBITTAB = $6258.A1..;.L1..;STAR
T.W1..;=====.]1..;.K1.. JSRKOMMA..1.. JS
RKOOR ;KOORDINATEN HOLEN..1.. SEI.
.1.. LDA#52 ;PROZESSORPORT AUF..1
.. STA$01 ;RAM SCHALTEN..2 . JSRH
ORILINE ;HORIZONTALE LINIEN..2.. INCY1
..2.. DECY2.)2.. LDAY2.42.. CMPY1.A2.. B
CCENDE.F2.. JSRVERTILINE ;VERTIKALE LIN
IEN..2..ENDE LDA #55 ;PROZESSORPORT AU
F..2C. STA$01 ;ROM SCHALTEN..2H.
CLI.Q2M. RTS ;FERTIG.W2R.;..2W
.;KOORDINATEN HOLEN..3..;===============
==..3..;.13..KOOR JSR $6358;X1,Y1,MODUS
HOLEN.?3.. JSRKOMMA.`3.. JSRFRMNUM
;X-AUSDEHNUNG..3.. JSRINTFAC ;NACH I
NTEGER..3.. TAX..3.. TYA ;PLUS
X1 = X2..3.. CLC.T3.. ADCX1L ;>=
320, DANN..3.. STAX2L..3.. TAY..4.. TXA
;FEHLER..4.. ADCX1H..4.. BEQOK
1.(4.. CMP#02.64.. BCSERROR.B4'. CPY#64.
P4,. BCSERROR.A41.OK1 STA X2H.O46. JSRK
OMMA..4;. JSRBYTE ;Y-AUSDEHNUNG..4
@. TXA..4E. CLC ;PLUS Y1 = Y2.
E4J. ADCY1..4O. CMP#200 ;>=200, DA
NN FEHLER..4T. BCSERROR..5Y. STAY2..5^.
RTS..5C.;.*5H.;ILLEGAL QUANTITY.@5I.;===
=============.F5J.;.N5M.ERROR JSR GROFF
;AUF TEXT SCHALTEN.|5R. JMP$B248..5S.;.
.5|.;HORIZONTALE LINIE ZEICHNEN.B5}.;===
=======================.H5~.;..5.HORILI
NE LDX Y1..6.. LDAX1L ;(INT(X
1/8))*8..6.. AND#$F8.66.. TAY
;A) PLUS ZEILEN-.?6.. CLC.`6.. ADCLOW
TAB,X ;ANFANG Y1.O6.. STAADRLOL..6.
. LDAX1H ;= ADRESSE LINKE,..6.
. ADCHIGHTAB,X.K6.. STAADRLOH ;OB
ERE ECKE.V6.. LDXY2..6.. TYA
;B) PLUS ZEILEN-..7.. CLC.'7B. ADCLOWT
AB,X ;ANFANG Y2.67G. STAADRLUL.^7L.
LDAX1H ;= ADRESSE LINKE,.P7Q.
ADCHIGHTAB,X..7V. STAADRLUH ;UNT
ERE ECKE..7.. LDAX1L.E7.. AND#07
;BITMUSTER FUER.N7.. TAX..7.. LDALINK
STAB,X ;LINKEN RAND..8.. STABITLINKS.
.8.. LDXY1.28.. LDAX2L ;(INT(X
2/8))*8.?8.. AND#$F8.F8.. TAY
;A) PLUS ZEILEN-.O8.. CLC..8.. ADCLOW
TAB,X ;ANFANG Y1..8.. STAADRROL.G8.
. LDAX2H ;=ADRESSE RECHTE,.Y8.
. ADCHIGHTAB,X..8!. STAADRROH ;OB
ERE ECKE..9&. LDXY2.-9+. TYA
;B) PLUS ZEILEN-.690. CLC.W95. ADCLOWT
AB,X ;ANFANG Y2.F9:. STAADRRUL..9?.
LDAX2H ;=ADRESSE RECHTE,. 9D.
ADCHIGHTAB,X.C9I. STAADRRUH ;UNT
ERE ECKE.O9N. LDAX2L..9S. AND#07
;BITMUSTER FUER..9X. TAX.":]. LDARECH
TSTAB,X ;RECHTEN RAND.4:B. STABITRECHT
S.::G.;.A:L. LDY#00 ;ADRESSE R
ECHTER..:Q. LDAADRLOL ;RAND UND L
INKER..:V. CMPADRROL ;RAND GLEICH
,.R:{. BNEWEITER ;DANN LINIE NUR.
.:.. LDAADRLOH ;EIN BYTE BREIT..;
.. CMPADRROH..;.. BNEWEITER..;..;.:;..;L
INIE NUR EIN BYTE BREIT.X;..;===========
=============.^;..;..;.. LDABITLINKS
;BITMUSTER UEBER-..;.. ANDBITRECHTS
;LAGERN.A;.. JMPPLOT ;ZEICHNEN.G
;..;..;..;LINIE MEHR ALS EIN BYTE BREIT.
.<..;=============================..<A.;
.3<F.WEITER LDA ADRROL ;ADRESSE.<<K. SE
C._<P. SBCADRLOL ;RECHTER RAND.N<U
. STARECHEN..<Z. LDAADRROH ;MINUS
ADRESSE..<.. SBCADRLOH.A<.. LSR
;LINKER RAND.P<.. RORRECHEN..<.. LSR
;GETEILT DURCH 8..=.. RORRECHEN
.)=.. LSR ;=ANZAHL ZWISCHEN-.8
=.. RORRECHEN.T=.. LDXRECHEN ;BYTE
S.V=.. LDABITLINKS ;LINKEN RAND..=..
JSRPLOT ;ZEICHEN..=.. JMPWEI4
;ZEICHEN.U=..LOOP LDA #$FF ;ZW
ISCHENBYTE..=.. JSRPLOT1 ;ZEICHNE
N..>..WEI4 LDA ADRLOL.-> . CLC
;EIN BYTE NACH.9>%. ADC#08.]>*. STAA
DRLOL ;RECHTS, DAMIT.J>/. BCCWEI2.
.>4. INCADRLOH ;ADRESSE UM ACHT..>
9.WEI2 LDA ADRLUL.G>>. CLC
;ZU ERHOEHEN.S>C. ADC#08..>H. STAADRLUL.
.>M. BCCWEI3..?R. INCADRLUH ;NAECH
STES..?W.WEI3 DEX.@?\. BNELOOP
;ZWISCHENBYTE.C?A. LDABITRECHTS ;RECH
TEN RAND..?F.; ;ZEICHNEN.
.?G.;..?K.;RANDBYTE ZEICHNEN..?P.;======
===========..?Q.;..?U.PLOT BIT MODUS ;
MODUS PRUEFEN..?Z. BVSSETZ ;ZEIC
HNEN.!@. BMIINV ;INVERTIEREN.@
@..LOESCH EOR #$FF ;LOESCHEN.I@.. PHA.L
@.. AND(ADRLUL),Y ;UNTERE LINIE.@.. S
TA(ADRLUL),Y..@.. PLA..@.. AND(ADRLOL),Y
;OBERE LINIE..@.. STA(ADRLOL),Y.F@..
RTS.L@..;.Z@..SETZ PHA..@.. ORA(ADRLUL)
,Y ;UNTERE LINIE..A.. STA(ADRLUL),Y..A
.. PLA.,A.. ORA(ADRLOL),Y.NAE. STA(ADRLO
L),Y ;OBERE LINIE.WAJ. RTS.]AK.;.JAO.I
NV PHA..AT. EOR(ADRLOL),Y ;OBERE LINI
E..AY. STA(ADRLOL),Y..A.. PLA.KA.. EOR(A
DRLUL),Y ;UNTERE LINIE..A.. STA(ADRLUL
),Y..A.. RTS..A..;..B..;ZWISCHENBYTE ZEI
CHNEN.#B..;=====================.)B..;.M
B..PLOT1 BIT MODUS ;MODUS PRUEFEN.JB..
BVSSETZ1 ;SETZEN..B.. BMIINV
;INVERTIEREN..B..;..B..LOESCH1 LDA
#00.AB..SETZ1 STA (ADRLOL),Y.TB.. STA(
ADRLUL),Y..B.. RTS..B..;..C..;VERTIKALE
LINIE ZEICHNEN..C..;====================
====.%C..;.;C..VERTILINE LDA Y1.HC.. AN
D#$F8.QC.. TAX.]C.. LDAX1L.FC.. TAY..C..
AND#$F8 ;(INT(X1/8))*8..C$. CLC
..C). ADCLOWTAB,X ;PLUS ZEILEN-.EC..
STAADRLOL..C3. LDAX1H ;ANFANG
Y1 =..C8. ADCHIGHTAB,X..D=. STAADRLOH
;ADRESSE LINKS.CDG. LDABITTAB,Y
;BITMUSTER LINKS.`DL. STABITLINKS ;M
ERKEN.LDV. LDAX2L.UDW. TAY..D[. AND#$F8
;(INT(X2/8))*8..D`. CLC.EDE. ADC
LOWTAB,X ;PLUS ZEILEN-.TDJ. STAADRRO
L..DO. LDAX2H ;ANFANG Y1 =..ET.
ADCHIGHTAB,X.,EY. STAADRROH ;ADRE
SSE LINKS.SE.. LDABITTAB,Y ;BITMUSTE
R RECHTS.PE.. STABITRECHTS ;MERKEN..E
.. LDAY1 ;POSITION IM..E.. AND
#07 ;BLOCK..E.. TAY.UE.. STY$03
3C ;ALS ZAEHLER..E.. LDAY2..F.. SEC
;(Y2-Y1)+1 =..F.. SBCY1.4F..
TAX ;ANZAHL ZWISCHEN-.=F.. I
NX.UF.. STX$033D ;BYTES.WF..LOOP1 JS
R PLOT2 ;LINKEN RAND..F.. DEX..F.. BEQOU
T ;FERTIG..FD. INY
;GRAFIKBLOCK..FI. CPY#08 ;BEEND
ET..GN. BCCLOOP1 ;NEIN, WEITER..G
S. LDAADRLOL.3GX. CLC ;JA, N
AECHSTER.@G.. ADC#$40.BG.. STAADRLOL
;BLOCK, D.H..QG.. LDAADRLOH..G.. ADC#
01 ;ADRESSE MUSS..G.. STAADRLOH
.HG.. LDAADRROL ;UM 320 ERHOEHT.QG
.. CLC..G.. ADC#$40 ;WERDEN..G..
STAADRROL..H.. LDAADRROH..H.. ADC#01.'H
.. STAADRROH.3H.. LDY#00.OH.. BEQLOOP1
;IMMER.JH#.OUT RTS ;ENDE.
PH(.;..H-.;ZEICHNET LINIE..H2.;=========
=====..H7.;.BH<.PLOT2 BIT MODUS ;MODUS
PRUEFEN..HA. BVSSETZ2 ;SETZEN..IF
. BMIINV2 ;INVERTIEREN..IK.LOESC
H2 LDA BITLINKS.(IP. EOR#$FF.JIU. AND(A
DRLOL),Y ;LINKE LINIE.]IZ. STA(ADRLOL)
,Y.OI_. LDABITRECHTS.|ID. EOR#$FF..II. A
ND(ADRROL),Y ;RECHTE LINIE..IN. STA(AD
RROL),Y..IO. RTS.AIP.;.YIS.SETZ2 LDA BI
TLINKS..IX. ORA(ADRLOL),Y ;LINKE LINIE
..J}. STA(ADRLOL),Y. J.. LDABITRECHTS.CJ
.. ORA(ADRROL),Y ;RECHTE LINIE.VJ.. ST
A(ADRROL),Y._J.. RTS.EJ..;.|J..INV2 LDA
BITLINKS..J.. EOR(ADRLOL),Y ;LINKE LI
NIE..J.. STA(ADRLOL),Y.CJ . LDABITRECHTS
..J.. EOR(ADRROL),Y ;RECHTE LINIE..J..
STA(ADRROL),Y..K.. RTS..K..;.*K..LINKST
AB .BY $FF,$7F,$3F,$1F.BK.. .BY$0F,$07,
$03,$01.CK..RECHTSTAB .BY$80,$C0,$E0,$F0
.{K.. .BY$F8,$FC,$FE,$FF...
> CLICK IMAGE PREVIEW FOR FULL MODAL