QUELLTEXT
FILE INFORMATION
FILENAME(S): QUELLTEXT
FILE TYPE(S): PRG
FILE SIZE: 15.1K
FIRST SEEN: 2025-11-02 16:39:36
APPEARS ON: 3 disk(s)
FILE HASH
8f9a6de365ea68779de8e8e8ea55633219f88ae68e1a650450fd3d0165d00514
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15827 SEITE D | QUELLTEXT | PRG | Treasure Chest - Plattfuss | 4 | 7 | DOWNLOAD FILE |
| 15827 SEITE D | QUELLTEXT | PRG | C64er, Treasure Chest - ralf | 4 | 7 | DOWNLOAD FILE |
| 15827 SEITE D | QUELLTEXT | PRG | DuncanTwain | 4 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 00 00 8F 20 43 4C 52 3A 41 24 3D 22 |..H.... CLR:A$="|
00000010: 56 45 52 5A 45 52 52 45 52 22 3A 4F 50 45 4E 31 |VERZERRER":OPEN1|
00000020: 2C 38 2C 31 35 2C 22 53 3A 22 2B 41 24 3A 43 4C |,8,15,"S:"+A$:CL|
00000030: 4F 53 45 31 3A 53 41 56 45 41 24 2C 38 3A 56 45 |OSE1:SAVEA$,8:VE|
00000040: 52 49 46 59 41 24 2C 38 00 5B 08 64 00 97 35 36 |RIFYA$,8.[.d..56|
00000050: 2C 38 30 3A 9C 3A 9E 32 AE 31 35 00 61 08 65 00 |,80:.:.2.15.a.e.|
00000060: 3B 00 85 08 66 00 3B 20 56 45 52 5A 45 52 52 45 |;...f.; VERZERRE|
00000070: 52 20 56 91 20 4A 2E 53 43 48 57 41 52 5A 45 52 |R V. J.SCHWARZER|
00000080: 20 31 39 38 37 00 8B 08 67 00 3B 00 C1 08 68 00 | 1987...g.;...h.|
00000090: 3B 20 54 45 53 54 45 44 2C 20 52 45 56 49 53 45 |; TESTED, REVISE|
000000A0: 44 20 AF 20 57 B0 4B 45 44 20 4F 55 54 20 42 59 |D . W.KED OUT BY|
000000B0: 20 4E 49 4B 4F 4C 41 55 53 20 48 45 55 53 4C 45 | NIKOLAUS HEUSLE|
000000C0: 52 00 C7 08 69 00 3B 00 D3 08 6E 00 2E 4F 50 54 |R...i.;...n..OPT|
000000D0: 20 4F 4F 00 E0 08 78 00 AC B2 20 24 35 30 30 30 | OO...x... $5000|
000000E0: 00 E6 08 82 00 3B 00 0B 09 A0 00 43 4F 4C 4E 41 |.....;.....COLNA|
000000F0: 43 48 20 B2 20 24 35 43 30 30 3B 46 41 52 42 45 |CH . $5C00;FARBE|
00000100: 20 50 4C 4F 54 47 52 41 46 49 4B 00 11 09 AA 00 | PLOTGRAFIK.....|
00000110: 3B 00 32 09 B4 00 58 31 20 B2 20 24 41 34 20 3B |;.2...X1 . $A4 ;|
00000120: 20 53 50 45 49 43 48 45 52 5A 45 4C C3 20 46 55 | SPEICHERZEL. FU|
00000130: 45 52 00 57 09 BE 00 59 31 20 B2 20 24 41 36 20 |ER.W...Y1 . $A6 |
00000140: 3B 20 41 55 53 53 43 48 4E 49 54 54 53 4B 4F B0 |; AUSSCHNITTSKO.|
00000150: 44 49 4E 41 54 45 4E 00 64 09 C8 00 58 32 20 B2 |DINATEN.d...X2 .|
00000160: 20 24 41 37 00 71 09 D2 00 59 32 20 B2 20 24 41 | $A7.q...Y2 . $A|
00000170: 39 00 7E 09 DC 00 58 33 20 B2 20 24 41 41 00 8B |9.~...X3 . $AA..|
00000180: 09 E6 00 59 33 20 B2 20 24 41 43 00 98 09 F0 00 |...Y3 . $AC.....|
00000190: 58 34 20 B2 20 24 41 44 00 A5 09 FA 00 59 34 20 |X4 . $AD.....Y4 |
000001A0: B2 20 24 41 46 00 AB 09 04 01 3B 00 D1 09 0E 01 |. $AF.....;.....|
000001B0: 44 31 20 B2 20 24 46 37 20 3B 20 44 8B 46 45 52 |D1 . $F7 ; D.FER|
000001C0: 45 4E 5A 45 4E 20 44 45 52 20 45 49 4E 5A 45 4C |ENZEN DER EINZEL|
000001D0: AB 00 EF 09 18 01 44 32 20 B2 20 24 46 39 20 3B |......D2 . $F9 ;|
000001E0: 20 4E 45 4E 20 4B 4F B0 44 49 4E 41 54 45 4E 00 | NEN KO.DINATEN.|
000001F0: FC 09 22 01 44 33 20 B2 20 24 46 41 00 09 0A 2C |..".D3 . $FA...,|
00000200: 01 44 34 20 B2 20 24 46 43 00 0F 0A 36 01 3B 00 |.D4 . $FC...6.;.|
00000210: 35 0A 40 01 41 31 20 B2 20 24 36 31 20 3B 20 50 |5.@.A1 . $61 ; P|
00000220: 55 4E 4B 54 45 41 4E 5A 41 48 4C 20 26 20 5A 41 |UNKTEANZAHL & ZA|
00000230: 45 48 4C 45 52 00 42 0A 4A 01 41 32 20 B2 20 24 |EHLER.B.J.A2 . $|
00000240: 31 32 00 4F 0A 54 01 41 41 20 B2 20 24 36 33 00 |12.O.T.AA . $63.|
00000250: 55 0A 5E 01 3B 00 77 0A 68 01 46 31 20 B2 20 24 |U.^.;.w.h.F1 . $|
00000260: 39 45 20 3B 20 41 50 50 52 4F 58 49 4D 41 54 49 |9E ; APPROXIMATI|
00000270: 91 53 57 45 52 54 45 00 84 0A 72 01 46 32 20 B2 |.SWERTE...r.F2 .|
00000280: 20 24 42 42 00 91 0A 7C 01 46 46 20 B2 20 24 38 | $BB...|.FF . $8|
00000290: 42 00 97 0A 86 01 3B 00 BA 0A 90 01 58 41 20 B2 |B.....;.....XA .|
000002A0: 20 24 38 44 20 3B 20 4B 4F B0 44 49 4E 41 54 45 | $8D ; KO.DINATE|
000002B0: 4E 5A 57 49 53 43 48 45 4E AB 00 D2 0A 9A 01 58 |NZWISCHEN......X|
000002C0: 42 20 B2 20 24 38 46 20 3B 20 53 50 45 49 43 48 |B . $8F ; SPEICH|
000002D0: 45 52 00 DF 0A A4 01 58 43 20 B2 20 24 34 37 00 |ER.....XC . $47.|
000002E0: EC 0A AE 01 58 44 20 B2 20 24 31 34 00 F2 0A B8 |....XD . $14....|
000002F0: 01 3B 00 0F 0B C2 01 58 43 4D 53 4B 20 B2 20 24 |.;.....XCMSK . $|
00000300: 41 30 20 3B 20 50 4C 4F 54 4D 41 53 4B 45 4E 00 |A0 ; PLOTMASKEN.|
00000310: 1F 0B CC 01 58 44 4D 53 4B 20 B2 20 24 41 31 00 |....XDMSK . $A1.|
00000320: 25 0B D6 01 3B 00 49 0B E0 01 50 54 52 31 20 B2 |%...;.I...PTR1 .|
00000330: 20 24 33 46 20 3B 20 5A 45 49 47 45 52 20 44 45 | $3F ; ZEIGER DE|
00000340: 53 54 49 4E 41 54 49 91 2C 00 6F 0B EA 01 50 54 |STINATI.,.o...PT|
00000350: 52 32 20 B2 20 24 34 31 20 3B 20 5A 45 49 47 45 |R2 . $41 ; ZEIGE|
00000360: 52 20 53 4F 55 52 43 45 20 47 52 41 46 49 4B 00 |R SOURCE GRAFIK.|
00000370: 75 0B F4 01 3B 00 A1 0B FE 01 50 54 41 42 4C 20 |u...;.....PTABL |
00000380: 20 B2 20 AC 20 AA 20 24 38 30 30 20 3B 20 54 41 | . . . $800 ; TA|
00000390: 42 45 4C C3 20 46 55 45 52 20 47 52 41 46 49 4B |BEL. FUER GRAFIK|
000003A0: AB 00 C6 0B 08 02 50 54 41 42 48 31 20 B2 20 AC |......PTABH1 . .|
000003B0: 20 AA 20 24 39 30 30 20 3B 20 5A 45 49 C3 41 4E | . $900 ; ZEI.AN|
000003C0: 46 41 45 4E 47 45 00 ED 0B 12 02 50 54 41 42 48 |FAENGE.....PTABH|
000003D0: 32 20 B2 20 AC 20 AA 20 24 41 30 30 20 3B 20 44 |2 . . . $A00 ; D|
000003E0: 45 53 54 2E 20 26 20 53 4F 55 52 43 45 00 13 0C |EST. & SOURCE...|
000003F0: 1C 02 4D 54 41 42 20 20 20 B2 20 AC 20 AA 20 24 |..MTAB . . . $|
00000400: 42 30 30 20 3B 20 4D 41 53 4B 45 4E 54 41 42 45 |B00 ; MASKENTABE|
00000410: 4C 4C 45 00 19 0C 26 02 3B 00 4A 0C 30 02 43 48 |LLE...&.;.J.0.CH|
00000420: 4B 43 4F 4D 20 B2 20 24 41 45 46 44 20 3B 20 45 |KCOM . $AEFD ; E|
00000430: 52 57 41 52 54 45 54 20 4B 4F 4D 4D 41 20 49 4D |RWARTET KOMMA IM|
00000440: 20 42 41 53 49 43 54 45 58 54 00 72 0C 3A 02 A1 | BASICTEXT.r.:..|
00000450: 43 B0 20 B2 20 24 42 37 45 42 20 3B 20 48 4F 4C |C. . $B7EB ; HOL|
00000460: 54 20 31 36 AB 20 26 20 38 AB 42 49 54 20 57 45 |T 16. & 8.BIT WE|
00000470: 52 54 00 95 0C 44 02 A1 42 59 54 20 B2 20 24 42 |RT...D..BYT . $B|
00000480: 37 39 45 20 3B 20 48 4F 4C 54 20 38 AB 42 49 54 |79E ; HOLT 8.BIT|
00000490: 20 57 45 52 54 00 9B 0C 4E 02 3B 00 AB 0C E8 03 | WERT...N.;.....|
000004A0: 3B 20 4D 41 43 52 4F 53 20 21 21 00 D1 0C F2 03 |; MACROS !!.....|
000004B0: 3B 20 45 52 48 4F 45 48 54 20 53 4F 55 52 43 45 |; ERHOEHT SOURCE|
000004C0: 20 50 49 58 45 4C 5A 45 49 47 45 52 20 55 4D 20 | PIXELZEIGER UM |
000004D0: 31 00 E1 0C FC 03 49 4E 43 2E 58 43 20 2E 4D 41 |1.....INC.XC .MA|
000004E0: 43 00 EF 0C 06 04 4C 53 52 20 58 43 4D 53 4B 00 |C.....LSR XCMSK.|
000004F0: 01 0D 10 04 42 43 43 20 2E 49 4E 43 2E 58 43 4C |....BCC .INC.XCL|
00000500: 31 00 0E 0D 1A 04 52 B0 20 58 43 4D 53 4B 00 1B |1.....R. XCMSK..|
00000510: 0D 24 04 4C 44 41 20 50 54 52 32 00 28 0D 2E 04 |.$.LDA PTR2.(...|
00000520: 41 44 43 20 23 24 30 38 00 35 0D 38 04 53 54 41 |ADC #$08.5.8.STA|
00000530: 20 50 54 52 32 00 47 0D 42 04 42 43 43 20 2E 49 | PTR2.G.B.BCC .I|
00000540: 4E 43 2E 58 43 4C 31 00 56 0D 4C 04 49 4E 43 20 |NC.XCL1.V.L.INC |
00000550: 50 54 52 32 AA 31 00 5E 0D 56 04 43 4C 43 00 70 |PTR2.1.^.V.CLC.p|
00000560: 0D 60 04 49 4E 43 2E 58 43 4C 31 20 2E 4D 45 4E |.`.INC.XCL1 .MEN|
00000570: 00 95 0D 6A 04 3B 20 45 52 48 4F 45 48 54 20 44 |...j.; ERHOEHT D|
00000580: 45 53 54 2E 20 50 49 58 45 4C 5A 45 49 47 45 52 |EST. PIXELZEIGER|
00000590: 20 55 4D 20 31 00 A5 0D 74 04 49 4E 43 2E 58 44 | UM 1...t.INC.XD|
000005A0: 20 2E 4D 41 43 00 B3 0D 7E 04 4C 53 52 20 58 44 | .MAC...~.LSR XD|
000005B0: 4D 53 4B 00 C5 0D 88 04 42 43 43 20 2E 49 4E 43 |MSK.....BCC .INC|
000005C0: 2E 58 44 4C 31 00 D2 0D 92 04 52 B0 20 58 44 4D |.XDL1.....R. XDM|
000005D0: 53 4B 00 DF 0D 9C 04 4C 44 41 20 50 54 52 31 00 |SK.....LDA PTR1.|
000005E0: EC 0D A6 04 41 44 43 20 23 24 30 38 00 F9 0D B0 |....ADC #$08....|
000005F0: 04 53 54 41 20 50 54 52 31 00 0B 0E BA 04 42 43 |.STA PTR1.....BC|
00000600: 43 20 2E 49 4E 43 2E 58 44 4C 31 00 1A 0E C4 04 |C .INC.XDL1.....|
00000610: 49 4E 43 20 50 54 52 31 AA 31 00 22 0E CE 04 43 |INC PTR1.1."...C|
00000620: 4C 43 00 34 0E D8 04 49 4E 43 2E 58 44 4C 31 20 |LC.4...INC.XDL1 |
00000630: 2E 4D 45 4E 00 5B 0E E2 04 3B 20 53 45 54 5A 54 |.MEN.[...; SETZT|
00000640: 20 49 4E 20 41 42 48 41 45 4E 47 49 47 4B 45 49 | IN ABHAENGIGKEI|
00000650: 54 20 56 91 20 53 4F 55 52 43 45 00 7B 0E E3 04 |T V. SOURCE.{...|
00000660: 3B 20 49 4E 20 44 45 53 54 49 4E 41 54 49 91 20 |; IN DESTINATI. |
00000670: 45 49 4E 45 4E 20 50 55 4E 4B 54 00 89 0E EC 04 |EINEN PUNKT.....|
00000680: 54 45 50 4C 20 2E 4D 41 43 00 96 0E ED 04 4C 44 |TEPL .MAC.....LD|
00000690: 59 20 23 24 30 30 00 A7 0E F6 04 4C 44 41 20 28 |Y #$00.....LDA (|
000006A0: 50 54 52 32 29 2C 59 00 B3 0E 00 05 AF 20 58 43 |PTR2),Y...... XC|
000006B0: 4D 53 4B 00 C2 0E 0A 05 42 45 51 20 2E 54 45 50 |MSK.....BEQ .TEP|
000006C0: 4C 31 00 D3 0E 14 05 4C 44 41 20 28 50 54 52 31 |L1.....LDA (PTR1|
000006D0: 29 2C 59 00 E0 0E 1E 05 B0 41 20 58 44 4D 53 4B |),Y......A XDMSK|
000006E0: 00 EF 0E 28 05 42 4E 45 20 2E 54 45 50 4C 32 00 |...(.BNE .TEPL2.|
000006F0: 03 0F 32 05 54 45 50 4C 31 20 4C 44 41 20 58 44 |..2.TEPL1 LDA XD|
00000700: 4D 53 4B 00 0F 0F 3C 05 45 B0 20 23 24 46 46 00 |MSK...<.E. #$FF.|
00000710: 1E 0F 46 05 AF 20 28 50 54 52 31 29 2C 59 00 35 |..F.. (PTR1),Y.5|
00000720: 0F 50 05 54 45 50 4C 32 20 53 54 41 20 28 50 54 |.P.TEPL2 STA (PT|
00000730: 52 31 29 2C 59 00 3E 0F 5A 05 2E 4D 45 4E 00 44 |R1),Y.>.Z..MEN.D|
00000740: 0F 64 05 3B 00 6B 0F CF 07 3B AB AB AB AB AB AB |.d.;.k...;......|
00000750: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000760: AB AB AB AB AB AB AB AB AB AB AB 00 88 0F D0 07 |................|
00000770: 4A 4D 50 20 49 4E 49 54 20 3B 20 49 4E 49 54 49 |JMP INIT ; INITI|
00000780: 41 4C 49 53 49 45 8A 47 00 8E 0F DA 07 3B 00 B6 |ALISIE.G.....;..|
00000790: 0F E4 07 4A 53 52 20 43 48 4B 43 4F 4D 20 3B 20 |...JSR CHKCOM ; |
000007A0: 48 4F 4C 54 20 4B 4F B0 44 49 4E 41 54 45 4E 20 |HOLT KO.DINATEN |
000007B0: 53 4F 55 52 43 45 00 D5 0F EE 07 4A 53 52 20 A1 |SOURCE.....JSR .|
000007C0: 43 B0 20 3B 20 4C 49 4E 4B 45 20 4F 42 45 52 45 |C. ; LINKE OBERE|
000007D0: 20 45 43 4B 45 00 E1 0F F8 07 4C 44 41 20 24 31 | ECKE.....LDA $1|
000007E0: 34 00 ED 0F 02 08 4C 44 59 20 24 31 35 00 F8 0F |4.....LDY $15...|
000007F0: 0C 08 53 54 41 20 58 31 00 05 10 16 08 53 54 59 |..STA X1.....STY|
00000800: 20 58 31 AA 31 00 10 10 20 08 53 54 58 20 59 31 | X1.1... .STX Y1|
00000810: 00 1F 10 2A 08 4A 53 52 20 43 48 4B 43 4F 4D 00 |...*.JSR CHKCOM.|
00000820: 40 10 34 08 4A 53 52 20 A1 43 B0 20 3B 20 52 45 |@.4.JSR .C. ; RE|
00000830: 43 48 54 45 20 55 4E 54 45 52 45 20 45 43 4B 45 |CHTE UNTERE ECKE|
00000840: 00 4C 10 3E 08 4C 44 41 20 24 31 34 00 58 10 48 |.L.>.LDA $14.X.H|
00000850: 08 4C 44 59 20 24 31 35 00 63 10 52 08 53 54 41 |.LDY $15.c.R.STA|
00000860: 20 58 32 00 70 10 5C 08 53 54 59 20 58 32 AA 31 | X2.p.\.STY X2.1|
00000870: 00 7B 10 66 08 53 54 58 20 59 32 00 A2 10 70 08 |.{.f.STX Y2...p.|
00000880: 4A 53 52 20 43 48 4B 43 4F 4D 20 3B 20 48 4F 4C |JSR CHKCOM ; HOL|
00000890: 54 20 4B 4F B0 44 49 4E 41 54 45 4E 20 44 45 53 |T KO.DINATEN DES|
000008A0: 54 2E 00 C1 10 7A 08 4A 53 52 20 A1 43 B0 20 3B |T....z.JSR .C. ;|
000008B0: 20 4C 49 4E 4B 45 20 4F 42 45 52 45 20 45 43 4B | LINKE OBERE ECK|
000008C0: 45 00 CD 10 84 08 4C 44 41 20 24 31 34 00 D9 10 |E.....LDA $14...|
000008D0: 8E 08 4C 44 59 20 24 31 35 00 E4 10 98 08 53 54 |..LDY $15.....ST|
000008E0: 41 20 58 33 00 F1 10 A2 08 53 54 59 20 58 33 AA |A X3.....STY X3.|
000008F0: 31 00 FC 10 AC 08 53 54 58 20 59 33 00 0B 11 B6 |1.....STX Y3....|
00000900: 08 4A 53 52 20 43 48 4B 43 4F 4D 00 2C 11 C0 08 |.JSR CHKCOM.,...|
00000910: 4A 53 52 20 A1 43 B0 20 3B 20 52 45 43 48 54 45 |JSR .C. ; RECHTE|
00000920: 20 55 4E 54 45 52 45 20 45 43 4B 45 00 38 11 CA | UNTERE ECKE.8..|
00000930: 08 4C 44 41 20 24 31 34 00 44 11 D4 08 4C 44 59 |.LDA $14.D...LDY|
00000940: 20 24 31 35 00 4F 11 DE 08 53 54 41 20 58 34 00 | $15.O...STA X4.|
00000950: 5C 11 E8 08 53 54 59 20 58 34 AA 31 00 67 11 F2 |\...STY X4.1.g..|
00000960: 08 53 54 58 20 59 34 00 6D 11 FC 08 3B 00 83 11 |.STX Y4.m...;...|
00000970: 06 09 53 45 49 20 3B 20 B5 45 52 52 55 50 54 20 |..SEI ; .ERRUPT |
00000980: 41 55 53 00 A9 11 10 09 4C 44 41 20 23 22 30 22 |AUS.....LDA #"0"|
00000990: 20 3B 20 41 4C 4C 45 20 52 4F 4D 27 53 20 55 4E | ; ALLE ROM'S UN|
000009A0: 44 20 49 AD 4F 20 41 55 53 00 C1 11 1A 09 53 54 |D I.O AUS.....ST|
000009B0: 41 20 31 20 3B 20 28 20 4E 55 52 20 52 41 4D 20 |A 1 ; ( NUR RAM |
000009C0: 29 00 C7 11 24 09 3B 00 EC 11 B8 0B 53 45 43 20 |)...$.;.....SEC |
000009D0: 3B 44 8B 46 45 52 45 4E 5A 20 44 45 52 20 53 4F |;D.FERENZ DER SO|
000009E0: 55 52 43 45 20 58 AB 4B 4F B0 44 2E 00 F7 11 C2 |URCE X.KO.D.....|
000009F0: 0B 4C 44 41 20 58 32 00 02 12 CC 0B 53 42 43 20 |.LDA X2.....SBC |
00000A00: 58 31 00 0D 12 D6 0B 53 54 41 20 44 31 00 1A 12 |X1.....STA D1...|
00000A10: E0 0B 4C 44 41 20 58 32 AA 31 00 27 12 EA 0B 53 |..LDA X2.1.'...S|
00000A20: 42 43 20 58 31 AA 31 00 34 12 F4 0B 53 54 41 20 |BC X1.1.4...STA |
00000A30: 44 31 AA 31 00 3A 12 FE 0B 3B 00 5F 12 08 0C 53 |D1.1.:...;._...S|
00000A40: 45 43 20 3B 44 8B 46 45 52 45 4E 5A 20 44 45 52 |EC ;D.FERENZ DER|
00000A50: 20 53 4F 55 52 43 45 20 59 AB 4B 4F B0 44 2E 00 | SOURCE Y.KO.D..|
00000A60: 6A 12 12 0C 4C 44 41 20 59 32 00 75 12 1C 0C 53 |j...LDA Y2.u...S|
00000A70: 42 43 20 59 31 00 80 12 26 0C 53 54 41 20 44 32 |BC Y1...&.STA D2|
00000A80: 00 86 12 30 0C 3B 00 AA 12 3A 0C 53 45 43 20 3B |...0.;...:.SEC ;|
00000A90: 44 8B 46 45 52 45 4E 5A 20 44 45 52 20 44 45 53 |D.FERENZ DER DES|
00000AA0: 54 2E 20 58 AB 4B 4F B0 44 2E 00 B5 12 44 0C 4C |T. X.KO.D....D.L|
00000AB0: 44 41 20 58 34 00 C0 12 4E 0C 53 42 43 20 58 33 |DA X4...N.SBC X3|
00000AC0: 00 CB 12 58 0C 53 54 41 20 44 33 00 D8 12 62 0C |...X.STA D3...b.|
00000AD0: 4C 44 41 20 58 34 AA 31 00 E5 12 6C 0C 53 42 43 |LDA X4.1...l.SBC|
00000AE0: 20 58 33 AA 31 00 F2 12 76 0C 53 54 41 20 44 33 | X3.1...v.STA D3|
00000AF0: AA 31 00 F8 12 80 0C 3B 00 1C 13 8A 0C 53 45 43 |.1.....;.....SEC|
00000B00: 20 3B 44 8B 46 45 52 45 4E 5A 20 44 45 52 20 44 | ;D.FERENZ DER D|
00000B10: 45 53 54 2E 20 59 AB 4B 4F B0 44 2E 00 27 13 94 |EST. Y.KO.D..'..|
00000B20: 0C 4C 44 41 20 59 34 00 32 13 9E 0C 53 42 43 20 |.LDA Y4.2...SBC |
00000B30: 59 33 00 3D 13 A8 0C 53 54 41 20 44 34 00 64 13 |Y3.=...STA D4.d.|
00000B40: A9 0C 3B AC AC AC AC AC AC AC AC AC AC AC AC AC |..;.............|
00000B50: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000B60: AC AC AC AC 00 8B 13 B2 0C 3B 49 4E 53 47 45 53 |.........;INSGES|
00000B70: 41 4D 4D 54 20 47 49 42 54 20 45 53 20 56 49 45 |AMMT GIBT ES VIE|
00000B80: 52 20 4D 4F 45 47 4C 49 43 48 AB 00 99 13 B3 0C |R MOEGLICH......|
00000B90: 3B 4B 45 49 54 45 4E 20 3A 00 9F 13 B4 0C 3B 00 |;KEITEN :.....;.|
00000BA0: C3 13 B5 0C 3B 31 2E 29 20 56 45 52 47 52 4F 45 |....;1.) VERGROE|
00000BB0: 53 53 45 8A 47 20 49 4E 20 58 AB 52 49 43 48 54 |SSE.G IN X.RICHT|
00000BC0: 55 4E 47 00 E7 13 B6 0C 3B 20 20 20 20 56 45 52 |UNG.....; VER|
00000BD0: 47 52 4F 45 53 53 45 8A 47 20 49 4E 20 59 AB 52 |GROESSE.G IN Y.R|
00000BE0: 49 43 48 54 55 4E 47 00 FB 13 B7 0C 3B 5A 45 49 |ICHTUNG.....;ZEI|
00000BF0: 4C 45 20 31 30 30 30 30 20 46 46 00 01 14 B8 0C |LE 10000 FF.....|
00000C00: 3B 00 25 14 B9 0C 3B 32 2E 29 20 56 45 52 47 52 |;.%...;2.) VERGR|
00000C10: 4F 45 53 53 45 8A 47 20 49 4E 20 58 AB 52 49 43 |OESSE.G IN X.RIC|
00000C20: 48 54 55 4E 47 00 49 14 BA 0C 3B 20 20 20 20 56 |HTUNG.I...; V|
00000C30: 45 52 4B 4C 45 49 4E 45 8A 47 20 20 49 4E 20 59 |ERKLEINE.G IN Y|
00000C40: AB 52 49 43 48 54 55 4E 47 00 5D 14 BB 0C 3B 5A |.RICHTUNG.]...;Z|
00000C50: 45 49 4C 45 20 32 30 30 30 30 20 46 46 00 63 14 |EILE 20000 FF.c.|
00000C60: BC 0C 3B 00 87 14 BD 0C 3B 33 2E 29 20 56 45 52 |..;.....;3.) VER|
00000C70: 4B 4C 45 49 4E 45 8A 47 20 20 49 4E 20 58 AB 52 |KLEINE.G IN X.R|
00000C80: 49 43 48 54 55 4E 47 00 AB 14 BE 0C 3B 20 20 20 |ICHTUNG.....; |
00000C90: 20 56 45 52 47 52 4F 45 53 53 45 8A 47 20 49 4E | VERGROESSE.G IN|
00000CA0: 20 59 AB 52 49 43 48 54 55 4E 47 00 BF 14 BF 0C | Y.RICHTUNG.....|
00000CB0: 3B 5A 45 49 4C 45 20 33 30 30 30 30 20 46 46 00 |;ZEILE 30000 FF.|
00000CC0: C5 14 C0 0C 3B 00 E9 14 C1 0C 3B 34 2E 29 20 56 |....;.....;4.) V|
00000CD0: 45 52 4B 4C 45 49 4E 45 8A 47 20 20 49 4E 20 58 |ERKLEINE.G IN X|
00000CE0: AB 52 49 43 48 54 55 4E 47 00 0D 15 C2 0C 3B 20 |.RICHTUNG.....; |
00000CF0: 20 20 20 56 45 52 4B 4C 45 49 4E 45 8A 47 20 20 | VERKLEINE.G |
00000D00: 49 4E 20 59 AB 52 49 43 48 54 55 4E 47 00 21 15 |IN Y.RICHTUNG.!.|
00000D10: C3 0C 3B 5A 45 49 4C 45 20 34 30 30 30 30 20 46 |..;ZEILE 40000 F|
00000D20: 46 00 27 15 C4 0C 3B 00 4E 15 C7 0C 3B AC AC AC |F.'...;.N...;...|
00000D30: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000D40: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 54 |...............T|
00000D50: 15 C8 0C 3B 00 74 15 D0 0C 4C 44 41 20 44 31 AA |...;.t...LDA D1.|
00000D60: 31 3B 44 58 53 4F 55 52 43 45 20 B3 20 44 58 44 |1;DXSOURCE . DXD|
00000D70: 45 53 54 2E 00 81 15 DA 0C 43 4D 50 20 44 33 AA |EST......CMP D3.|
00000D80: 31 00 8C 15 E4 0C 42 4E 45 20 4C 31 00 97 15 EE |1.....BNE L1....|
00000D90: 0C 4C 44 41 20 44 31 00 A2 15 F8 0C 43 4D 50 20 |.LDA D1.....CMP |
00000DA0: 44 33 00 BB 15 02 0D 4C 31 20 42 43 43 20 4C 33 |D3.....L1 BCC L3|
00000DB0: 3B 20 4A 41 2C AB AB B1 20 4C 33 00 C1 15 0C 0D |; JA,... L3.....|
00000DC0: 3B 00 E0 15 2A 0D 4C 44 41 20 44 34 3B 44 59 44 |;...*.LDA D4;DYD|
00000DD0: 45 53 54 2E 20 B1 B2 20 44 59 53 4F 55 52 43 45 |EST. .. DYSOURCE|
00000DE0: 00 EB 15 34 0D 43 4D 50 20 44 32 00 00 16 3E 0D |...4.CMP D2...>.|
00000DF0: 42 43 53 20 4C 32 3B 4A 41 2C AB AB B1 20 4C 32 |BCS L2;JA,... L2|
00000E00: 00 1F 16 48 0D 4A 4D 50 20 4C 34 30 30 30 30 3B |...H.JMP L40000;|
00000E10: 5A 55 52 20 5A 45 49 4C 45 20 34 30 30 30 30 00 |ZUR ZEILE 40000.|
00000E20: 25 16 52 0D 3B 00 48 16 70 0D 4C 32 20 4A 4D 50 |%.R.;.H.p.L2 JMP|
00000E30: 20 4C 33 30 30 30 30 3B 20 5A 55 52 20 5A 45 49 | L30000; ZUR ZEI|
00000E40: 4C 45 20 33 30 30 30 30 00 4E 16 7A 0D 3B 00 6E |LE 30000.N.z.;.n|
00000E50: 16 98 0D 4C 33 20 4C 44 41 20 44 34 3B 44 58 44 |...L3 LDA D4;DXD|
00000E60: 45 53 54 20 B1 B2 20 44 58 44 45 53 54 2E 00 79 |EST .. DXDEST..y|
00000E70: 16 A2 0D 43 4D 50 20 44 32 00 9C 16 AC 0D 42 43 |...CMP D2.....BC|
00000E80: 53 20 4C 31 30 30 30 30 3B 4A 41 2C 20 AB AB B1 |S L10000;JA, ...|
00000E90: 20 5A 45 49 4C 45 20 31 30 30 30 30 00 C0 16 B6 | ZEILE 10000....|
00000EA0: 0D 4A 4D 50 20 4C 32 30 30 30 30 3B 41 4E 53 91 |.JMP L20000;ANS.|
00000EB0: 53 54 45 4E 20 5A 45 49 4C 45 20 32 30 30 30 30 |STEN ZEILE 20000|
00000EC0: 00 C6 16 C0 0D 3B 00 EC 16 10 27 3B AB AB AB AB |.....;....';....|
00000ED0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000EE0: AB AB AB AB AB AB AB AB AB AB AB AB 00 04 17 1A |................|
00000EF0: 27 3B 58 20 26 20 59 20 56 45 52 47 52 4F 45 53 |';X & Y VERGROES|
00000F00: 53 45 52 4E 00 16 17 24 27 3B 20 5A 45 49 4C 45 |SERN...$'; ZEILE|
00000F10: 20 31 30 30 30 30 00 1C 17 2E 27 3B 00 41 17 38 | 10000....';.A.8|
00000F20: 27 4C 31 30 30 30 30 20 4C 44 41 20 44 33 AA 31 |'L10000 LDA D3.1|
00000F30: 3B 41 50 52 4F 58 49 4D 41 54 49 91 53 57 45 52 |;APROXIMATI.SWER|
00000F40: 54 00 64 17 42 27 53 54 41 20 41 41 AA 31 3B 55 |T.d.B'STA AA.1;U|
00000F50: 4E 44 20 41 4E 5A 41 48 4C 20 44 45 52 20 50 55 |ND ANZAHL DER PU|
00000F60: 4E 4B 54 45 00 7B 17 4C 27 53 54 41 20 41 31 AA |NKTE.{.L'STA A1.|
00000F70: 31 3B 50 52 4F 20 5A 45 49 4C 45 00 89 17 56 27 |1;PRO ZEILE...V'|
00000F80: 4C 53 52 3B 4D 53 42 27 53 00 96 17 60 27 53 54 |LSR;MSB'S...`'ST|
00000F90: 41 20 46 31 AA 31 00 A3 17 6A 27 53 54 41 20 46 |A F1.1...j'STA F|
00000FA0: 46 AA 31 00 A9 17 7E 27 3B 00 BA 17 88 27 4C 44 |F.1...~';....'LD|
00000FB0: 41 20 44 33 3B 4C 53 42 27 53 00 C5 17 92 27 53 |A D3;LSB'S....'S|
00000FC0: 54 41 20 41 41 00 CD 17 9C 27 54 41 58 00 D4 17 |TA AA....'TAX...|
00000FD0: A6 27 52 B0 00 DF 17 B0 27 53 54 41 20 46 31 00 |.'R.....'STA F1.|
00000FE0: EA 17 BA 27 53 54 41 20 46 46 00 F0 17 C4 27 3B |...'STA FF....';|
00000FF0: 00 07 18 CE 27 4C 44 41 20 44 34 3B 41 4E 5A 41 |....'LDA D4;ANZA|
00001000: 48 4C 20 5A 45 49 C3 00 12 18 D8 27 53 54 41 20 |HL ZEI.....'STA |
00001010: 41 32 00 18 18 E2 27 3B 00 20 18 00 28 4C 53 52 |A2....';. ..(LSR|
00001020: 00 3A 18 0A 28 53 54 41 20 46 32 3B 5A 45 49 C3 |.:..(STA F2;ZEI.|
00001030: 20 41 50 52 2E 20 57 45 52 54 00 40 18 14 28 3B | APR. WERT.@..(;|
00001040: 00 62 18 32 28 4C 44 41 20 58 31 3B 53 54 41 52 |.b.2(LDA X1;STAR|
00001050: 54 20 58 AB 57 45 52 54 20 53 50 45 49 43 48 45 |T X.WERT SPEICHE|
00001060: 52 4E 00 86 18 3C 28 4C 44 59 20 58 31 AA 31 3B |RN...<(LDY X1.1;|
00001070: 44 41 20 53 49 43 48 20 44 49 45 20 4B 4F B0 44 |DA SICH DIE KO.D|
00001080: 49 4E 41 54 45 4E 00 A5 18 46 28 53 54 41 20 58 |INATEN...F(STA X|
00001090: 41 3B 41 80 45 52 4E 20 4D 55 45 53 53 45 4E 20 |A;A.ERN MUESSEN |
000010A0: 44 49 45 53 45 00 C4 18 50 28 53 54 59 20 58 41 |DIESE...P(STY XA|
000010B0: AA 31 3B 57 45 52 54 45 20 52 45 53 54 41 55 52 |.1;WERTE RESTAUR|
000010C0: 49 45 52 54 00 D6 18 5A 28 53 54 41 20 58 43 3B |IERT...Z(STA XC;|
000010D0: 57 45 52 44 45 4E 00 EC 18 64 28 53 54 59 20 58 |WERDEN...d(STY X|
000010E0: 43 AA 31 3B 28 53 4F 55 52 43 45 29 00 F2 18 6E |C.1;(SOURCE)...n|
000010F0: 28 3B 00 0A 19 78 28 4C 44 41 20 58 33 3B 28 44 |(;...x(LDA X3;(D|
00001100: 45 53 54 49 4E 41 54 49 91 29 00 17 19 82 28 4C |ESTINATI.)....(L|
00001110: 44 59 20 58 33 AA 31 00 22 19 8C 28 53 54 41 20 |DY X3.1."..(STA |
00001120: 58 42 00 2F 19 96 28 53 54 59 20 58 42 AA 31 00 |XB./..(STY XB.1.|
00001130: 3A 19 A0 28 53 54 41 20 58 44 00 47 19 AA 28 53 |:..(STA XD.G..(S|
00001140: 54 59 20 58 44 AA 31 00 4D 19 B4 28 3B 00 76 19 |TY XD.1.M..(;.v.|
00001150: BE 28 4C 31 30 30 31 31 41 20 4A 53 52 20 41 44 |.(L10011A JSR AD|
00001160: 52 3B 53 54 41 52 54 41 44 52 45 53 53 45 20 31 |R;STARTADRESSE 1|
00001170: 2E 50 55 4E 4B 54 00 7C 19 C8 28 3B 00 A0 19 D2 |.PUNKT.|..(;....|
00001180: 28 3B 20 54 45 53 54 50 4C 4F 54 20 53 45 54 5A |(; TESTPLOT SETZ|
00001190: 54 20 45 4E 54 53 50 52 45 43 48 80 20 44 45 52 |T ENTSPRECH. DER|
000011A0: 00 C7 19 DC 28 3B 20 53 4F 55 52 43 45 20 49 4E |....(; SOURCE IN|
000011B0: 20 44 45 53 54 49 4E 41 54 49 91 20 45 49 4E 45 | DESTINATI. EINE|
000011C0: 4E 20 50 55 4E 4B 54 00 D8 19 E6 28 4C 31 30 30 |N PUNKT....(L100|
000011D0: 33 30 20 27 54 45 50 4C 00 DE 19 F0 28 3B 00 F6 |30 'TEPL....(;..|
000011E0: 19 FA 28 3B 20 4C 49 4E 45 20 31 20 41 4C CB 52 |..(; LINE 1 AL.R|
000011F0: 49 54 48 4D 55 53 00 FC 19 04 29 3B 00 20 1A 0E |ITHMUS....);. ..|
00001200: 29 4C 31 30 30 34 30 20 4C 44 41 20 46 31 3B 41 |)L10040 LDA F1;A|
00001210: 50 50 52 2E 20 AA 20 44 58 20 53 4F 55 52 43 45 |PPR. . DX SOURCE|
00001220: 00 2B 1A 18 29 41 44 43 20 44 31 00 36 1A 22 29 |.+..)ADC D1.6.")|
00001230: 53 54 41 20 46 31 00 43 1A 2C 29 4C 44 41 20 46 |STA F1.C.,)LDA F|
00001240: 31 AA 31 00 50 1A 36 29 41 44 43 20 44 31 AA 31 |1.1.P.6)ADC D1.1|
00001250: 00 5D 1A 40 29 53 54 41 20 46 31 AA 31 00 63 1A |.].@)STA F1.1.c.|
00001260: 4A 29 3B 00 7D 1A 54 29 3B 22 20 41 50 50 52 2E |J);.}.T);" APPR.|
00001270: 20 3C 20 44 58 20 44 45 53 54 2E 20 3F 00 83 1A | < DX DEST. ?...|
00001280: 5E 29 3B 00 97 1A 68 29 4C 31 30 30 35 30 20 4C |^);...h)L10050 L|
00001290: 44 59 20 46 31 AA 31 00 A4 1A 72 29 43 50 59 20 |DY F1.1...r)CPY |
000012A0: 44 33 AA 31 00 B4 1A 7C 29 42 4E 45 20 4C 31 30 |D3.1...|)BNE L10|
000012B0: 30 35 30 41 00 BF 1A 86 29 4C 44 41 20 46 31 00 |050A....)LDA F1.|
000012C0: CA 1A 90 29 43 4D 50 20 44 33 00 E9 1A 9A 29 4C |...)CMP D3....)L|
000012D0: 31 30 30 35 30 41 20 42 43 43 20 4C 31 30 31 30 |10050A BCC L1010|
000012E0: 30 3B 20 4A 41 2C 20 4F 4B 00 EF 1A A4 29 3B 00 |0; JA, OK....);.|
000012F0: 12 1B B8 29 3B 20 41 50 50 52 4F 58 49 4D 41 54 |...); APPROXIMAT|
00001300: 49 91 53 57 45 52 54 20 4B B0 52 49 47 49 45 52 |I.SWERT K.RIGIER|
00001310: 45 4E 00 2E 1B C2 29 4C 44 41 20 46 31 3B 46 31 |EN....)LDA F1;F1|
00001320: B2 46 31 20 AB 20 44 58 20 44 45 53 54 2E 00 39 |.F1 . DX DEST..9|
00001330: 1B CC 29 53 42 43 20 44 33 00 44 1B D6 29 53 54 |..)SBC D3.D..)ST|
00001340: 41 20 46 31 00 4C 1B E0 29 54 59 41 00 59 1B EA |A F1.L..)TYA.Y..|
00001350: 29 53 42 43 20 44 33 AA 31 00 66 1B F4 29 53 54 |)SBC D3.1.f..)ST|
00001360: 41 20 46 31 AA 31 00 6C 1B FE 29 3B 00 89 1B 08 |A F1.1.l..);....|
00001370: 2A 3B 20 4E 41 45 43 48 53 54 45 52 20 50 49 58 |*; NAECHSTER PIX|
00001380: 45 4C 20 53 4F 55 52 43 45 00 8F 1B 12 2A 3B 00 |EL SOURCE....*;.|
00001390: 9B 1B 1C 2A 27 49 4E 43 2E 58 43 00 A1 1B 26 2A |...*'INC.XC...&*|
000013A0: 3B 00 C2 1B 30 2A 3B 20 4E 41 45 43 48 53 54 45 |;...0*; NAECHSTE|
000013B0: 52 20 50 49 58 45 4C 20 44 45 53 54 49 4E 41 54 |R PIXEL DESTINAT|
000013C0: 49 91 00 C8 1B 3A 2A 3B 00 DB 1B 44 2A 4C 31 30 |I....:*;...D*L10|
000013D0: 31 30 30 20 27 49 4E 43 2E 58 44 00 E1 1B 4E 2A |100 'INC.XD...N*|
000013E0: 3B 00 F7 1B 58 2A 3B 22 20 5A 45 49 4C 45 20 46 |;...X*;" ZEILE F|
000013F0: 45 52 54 49 47 20 3F 00 FD 1B 62 2A 3B 00 05 1C |ERTIG ?...b*;...|
00001400: 6C 2A 54 58 41 00 15 1C 76 2A 42 4E 45 20 4C 31 |l*TXA...v*BNE L1|
00001410: 30 31 32 30 41 00 22 1C 80 2A 44 45 43 20 41 31 |0120A."..*DEC A1|
00001420: AA 31 00 31 1C 8A 2A 42 4E 45 20 4C 31 30 31 34 |.1.1..*BNE L1014|
00001430: 30 00 41 1C 94 2A 4C 31 30 31 32 30 41 20 44 45 |0.A..*L10120A DE|
00001440: 58 00 47 1C 9E 2A 3B 00 56 1C A8 2A 42 43 43 20 |X.G..*;.V..*BCC |
00001450: 4C 31 30 30 33 30 00 5C 1C B2 2A 3B 00 75 1C BC |L10030.\..*;.u..|
00001460: 2A 3B 20 4A 41 2C 20 4E 41 45 43 48 53 54 45 20 |*; JA, NAECHSTE |
00001470: 5A 45 49 4C 45 00 8D 1C C6 2A 3B 20 4C 49 4E 45 |ZEILE....*; LINE|
00001480: 20 32 20 41 4C CB 52 49 54 48 4D 55 53 00 B5 1C | 2 AL.RITHMUS...|
00001490: D0 2A 4C 31 30 31 34 30 20 4C 44 41 20 46 32 3B |.*L10140 LDA F2;|
000014A0: 41 50 50 52 2E 57 45 52 54 20 AA 20 44 59 20 53 |APPR.WERT . DY S|
000014B0: 4F 55 52 43 45 00 C0 1C DA 2A 41 44 43 20 44 32 |OURCE....*ADC D2|
000014C0: 00 C6 1C E4 2A 3B 00 E3 1C EE 2A 3B 22 41 50 50 |....*;....*;"APP|
000014D0: 52 2E 57 45 52 54 20 3C 20 44 59 20 44 45 53 54 |R.WERT < DY DEST|
000014E0: 2E 20 3F 00 E9 1C F8 2A 3B 00 F8 1C 02 2B 42 43 |. ?....*;....+BC|
000014F0: 53 20 4C 31 30 31 36 30 00 03 1D 0C 2B 43 4D 50 |S L10160....+CMP|
00001500: 20 44 34 00 20 1D 16 2B 42 43 43 20 4C 31 30 32 | D4. ..+BCC L102|
00001510: 30 30 3B 20 4A 41 2C 20 41 4C 4C 45 53 20 4F 4B |00; JA, ALLES OK|
00001520: 00 26 1D 20 2B 3B 00 3D 1D 2A 2B 3B 20 4E 45 49 |.&. +;.=.*+; NEI|
00001530: 4E 2C 20 4B B0 52 49 47 49 45 52 45 4E 00 43 1D |N, K.RIGIEREN.C.|
00001540: 34 2B 3B 00 55 1D 3E 2B 4C 31 30 31 36 30 20 53 |4+;.U.>+L10160 S|
00001550: 42 43 20 44 34 00 5B 1D 48 2B 3B 00 77 1D 52 2B |BC D4.[.H+;.w.R+|
00001560: 3B 20 5A 45 49 4C 45 20 53 4F 55 52 43 45 20 45 |; ZEILE SOURCE E|
00001570: 52 48 4F 45 48 45 4E 00 7D 1D 5C 2B 3B 00 88 1D |RHOEHEN.}.\+;...|
00001580: 66 2B 49 4E 43 20 59 31 00 8E 1D 70 2B 3B 00 AE |f+INC Y1...p+;..|
00001590: 1D 7A 2B 3B 20 5A 45 49 4C 45 20 44 45 53 54 49 |.z+; ZEILE DESTI|
000015A0: 4E 41 54 49 91 20 45 52 48 4F 45 48 45 4E 00 B4 |NATI. ERHOEHEN..|
000015B0: 1D 84 2B 3B 00 C6 1D 8E 2B 4C 31 30 32 30 30 20 |..+;....+L10200 |
000015C0: 53 54 41 20 46 32 00 D1 1D 98 2B 49 4E 43 20 59 |STA F2....+INC Y|
000015D0: 33 00 D7 1D A2 2B 3B 00 F8 1D AC 2B 3B 20 41 4C |3....+;....+; AL|
000015E0: 4C 45 53 20 41 55 46 20 41 4E 46 41 4E 47 53 5A |LES AUF ANFANGSZ|
000015F0: 55 53 C0 44 20 42 49 53 00 0E 1E B6 2B 3B 20 41 |US.D BIS....+; A|
00001600: 55 46 20 5A 45 49 C3 4E 55 4D 4D 45 52 4E 00 20 |UF ZEI.NUMMERN. |
00001610: 1E C0 2B 4C 31 30 32 32 30 20 4C 44 58 20 41 41 |..+L10220 LDX AA|
00001620: 00 2D 1E CA 2B 4C 44 41 20 41 41 AA 31 00 3A 1E |.-..+LDA AA.1.:.|
00001630: D4 2B 53 54 41 20 41 31 AA 31 00 40 1E E8 2B 3B |.+STA A1.1.@..+;|
00001640: 00 4B 1E F2 2B 4C 44 41 20 46 46 00 58 1E FC 2B |.K..+LDA FF.X..+|
00001650: 4C 44 59 20 46 46 AA 31 00 63 1E 06 2C 53 54 41 |LDY FF.1.c..,STA|
00001660: 20 46 31 00 70 1E 10 2C 53 54 59 20 46 31 AA 31 | F1.p..,STY F1.1|
00001670: 00 76 1E 1A 2C 3B 00 81 1E 24 2C 4C 44 41 20 58 |.v..,;...$,LDA X|
00001680: 41 00 8E 1E 2E 2C 4C 44 59 20 58 41 AA 31 00 99 |A....,LDY XA.1..|
00001690: 1E 38 2C 53 54 41 20 58 43 00 A6 1E 42 2C 53 54 |.8,STA XC...B,ST|
000016A0: 59 20 58 43 AA 31 00 AC 1E 4C 2C 3B 00 B7 1E 56 |Y XC.1...L,;...V|
000016B0: 2C 4C 44 41 20 58 42 00 C4 1E 60 2C 4C 44 59 20 |,LDA XB...`,LDY |
000016C0: 58 42 AA 31 00 CF 1E 6A 2C 53 54 41 20 58 44 00 |XB.1...j,STA XD.|
000016D0: DC 1E 74 2C 53 54 59 20 58 44 AA 31 00 E2 1E 7E |..t,STY XD.1...~|
000016E0: 2C 3B 00 FC 1E 88 2C 3B 22 53 43 48 4F 4E 20 41 |,;....,;"SCHON A|
000016F0: 4C 4C 45 20 5A 45 49 4C 45 4E 20 3F 00 02 1F 92 |LLE ZEILEN ?....|
00001700: 2C 3B 00 14 1F 9C 2C 4C 31 30 32 33 30 20 4C 44 |,;....,L10230 LD|
00001710: 59 20 41 32 00 1F 1F A6 2C 42 45 51 20 80 31 00 |Y A2....,BEQ .1.|
00001720: 27 1F B0 2C 44 45 59 00 32 1F BA 2C 53 54 59 20 |'..,DEY.2..,STY |
00001730: 41 32 00 38 1F C4 2C 3B 00 57 1F CE 2C 4A 4D 50 |A2.8..,;.W..,JMP|
00001740: 20 4C 31 30 30 31 31 41 3B 20 4E 45 49 4E 2C 20 | L10011A; NEIN, |
00001750: 53 43 48 4C 45 8B 45 00 5D 1F D8 2C 3B 00 7A 1F |SCHLE.E.]..,;.z.|
00001760: E2 2C 80 31 20 4C 44 41 20 23 22 37 22 3B 20 4A |.,.1 LDA #"7"; J|
00001770: 41 2C 52 4F 4D 53 20 45 49 4E 00 84 1F EC 2C 53 |A,ROMS EIN....,S|
00001780: 54 41 20 31 00 9D 1F F6 2C 43 4C 49 3B B5 45 52 |TA 1....,CLI;.ER|
00001790: 52 55 50 54 20 5A 55 4C 41 53 53 45 4E 00 A8 1F |RUPT ZULASSEN...|
000017A0: 00 2D 52 54 53 3B 80 45 00 AE 1F 0A 2D 3B 00 D4 |.-RTS;.E....-;..|
000017B0: 1F 20 4E 3B AB AB AB AB AB AB AB AB AB AB AB AB |. N;............|
000017C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000017D0: AB AB AB AB 00 EC 1F 2A 4E 3B 58 20 56 45 52 47 |.......*N;X VERG|
000017E0: 2E 20 AD 20 59 20 56 45 52 4B 4C 2E 00 FE 1F 34 |. . Y VERKL....4|
000017F0: 4E 3B 20 5A 45 49 4C 45 20 32 30 30 30 30 00 04 |N; ZEILE 20000..|
00001800: 20 3E 4E 3B 00 26 20 48 4E 4C 32 30 30 30 30 20 | >N;.& HNL20000 |
00001810: 4C 44 41 20 44 33 AA 31 3B 41 50 50 52 2E 57 45 |LDA D3.1;APPR.WE|
00001820: 52 54 20 55 4E 44 00 49 20 52 4E 53 54 41 20 41 |RT UND.I RNSTA A|
00001830: 31 AA 31 3B 41 4E 5A 41 48 4C 20 44 45 52 20 50 |1.1;ANZAHL DER P|
00001840: 55 4E 4B 54 45 20 50 52 4F 00 5C 20 5C 4E 53 54 |UNKTE PRO.\ \NST|
00001850: 41 20 41 41 AA 31 3B 5A 45 49 4C 45 00 6A 20 66 |A AA.1;ZEILE.j f|
00001860: 4E 4C 53 52 3B 4D 53 42 27 53 00 77 20 70 4E 53 |NLSR;MSB'S.w pNS|
00001870: 54 41 20 46 31 AA 31 00 84 20 7A 4E 53 54 41 20 |TA F1.1.. zNSTA |
00001880: 46 46 AA 31 00 8A 20 8E 4E 3B 00 9B 20 98 4E 4C |FF.1.. .N;.. .NL|
00001890: 44 41 20 44 33 3B 4C 53 42 27 53 00 A3 20 A2 4E |DA D3;LSB'S.. .N|
000018A0: 54 41 58 00 AE 20 AC 4E 53 54 41 20 41 41 00 B5 |TAX.. .NSTA AA..|
000018B0: 20 B6 4E 52 B0 00 C0 20 C0 4E 53 54 41 20 46 31 | .NR... .NSTA F1|
000018C0: 00 CB 20 CA 4E 53 54 41 20 46 46 00 D1 20 D4 4E |.. .NSTA FF.. .N|
000018D0: 3B 00 E8 20 DE 4E 4C 44 41 20 44 32 3B 41 4E 5A |;.. .NLDA D2;ANZ|
000018E0: 41 48 4C 20 5A 45 49 C3 00 F3 20 E8 4E 53 54 41 |AHL ZEI... .NSTA|
000018F0: 20 41 32 00 F9 20 F2 4E 3B 00 01 21 10 4F 4C 53 | A2.. .N;..!.OLS|
00001900: 52 00 1E 21 1A 4F 53 54 41 20 46 32 3B 4C 49 4E |R..!.OSTA F2;LIN|
00001910: 45 20 32 20 41 50 50 52 2E 20 57 45 52 54 00 24 |E 2 APPR. WERT.$|
00001920: 21 24 4F 3B 00 45 21 42 4F 4C 44 41 20 58 31 3B |!$O;.E!BOLDA X1;|
00001930: 50 49 58 45 4C 42 45 47 49 4E 4E 20 50 52 4F 20 |PIXELBEGINN PRO |
00001940: 5A 45 49 4C 45 00 5C 21 4C 4F 4C 44 59 20 58 31 |ZEILE.\!LOLDY X1|
00001950: AA 31 3B 53 50 45 49 43 48 45 52 4E 00 73 21 56 |.1;SPEICHERN.s!V|
00001960: 4F 53 54 41 20 58 41 3B 46 55 45 52 20 53 4F 55 |OSTA XA;FUER SOU|
00001970: 52 43 45 00 80 21 60 4F 53 54 59 20 58 41 AA 31 |RCE..!`OSTY XA.1|
00001980: 00 8B 21 6A 4F 53 54 41 20 58 43 00 98 21 74 4F |..!jOSTA XC..!tO|
00001990: 53 54 59 20 58 43 AA 31 00 9E 21 7E 4F 3B 00 B8 |STY XC.1..!~O;..|
000019A0: 21 88 4F 4C 44 41 20 58 33 3B 55 4E 44 20 44 45 |!.OLDA X3;UND DE|
000019B0: 53 54 49 4E 41 54 49 91 00 C5 21 92 4F 4C 44 59 |STINATI...!.OLDY|
000019C0: 20 58 33 AA 31 00 D0 21 9C 4F 53 54 41 20 58 42 | X3.1..!.OSTA XB|
000019D0: 00 DD 21 A6 4F 53 54 59 20 58 42 AA 31 00 E8 21 |..!.OSTY XB.1..!|
000019E0: B0 4F 53 54 41 20 58 44 00 F5 21 BA 4F 53 54 59 |.OSTA XD..!.OSTY|
000019F0: 20 58 44 AA 31 00 FB 21 C4 4F 3B 00 22 22 CE 4F | XD.1..!.O;."".O|
00001A00: 4C 32 30 30 31 31 41 20 4A 53 52 20 41 44 52 3B |L20011A JSR ADR;|
00001A10: 41 44 52 45 53 53 45 4E 20 42 45 52 45 43 48 4E |ADRESSEN BERECHN|
00001A20: 45 4E 00 47 22 D8 4F 3B 20 54 45 53 54 50 4C 4F |EN.G".O; TESTPLO|
00001A30: 54 20 53 45 54 5A 54 20 50 55 4E 4B 54 45 20 49 |T SETZT PUNKTE I|
00001A40: 4E 20 44 45 53 54 2E 00 6A 22 E2 4F 3B 20 47 52 |N DEST..j".O; GR|
00001A50: 41 46 49 4B 20 49 4E 20 44 45 52 20 47 4C 45 49 |AFIK IN DER GLEI|
00001A60: 43 48 45 4E 20 46 41 52 42 45 00 81 22 EC 4F 3B |CHEN FARBE..".O;|
00001A70: 20 57 49 45 20 53 4F 55 52 43 45 47 52 41 46 49 | WIE SOURCEGRAFI|
00001A80: 4B 00 92 22 F6 4F 4C 32 30 30 33 30 20 27 54 45 |K..".OL20030 'TE|
00001A90: 50 4C 00 98 22 00 50 3B 00 B0 22 0A 50 3B 20 4C |PL..".P;..".P; L|
00001AA0: 49 4E 45 20 31 20 41 4C CB 52 49 54 48 4D 55 53 |INE 1 AL.RITHMUS|
00001AB0: 00 B6 22 14 50 3B 00 DA 22 1E 50 4C 32 30 30 34 |..".P;..".PL2004|
00001AC0: 30 20 4C 44 41 20 46 31 3B 41 50 50 52 2E 20 AA |0 LDA F1;APPR. .|
00001AD0: 20 44 58 20 53 4F 55 52 43 45 00 E5 22 28 50 41 | DX SOURCE.."(PA|
00001AE0: 44 43 20 44 31 00 F0 22 32 50 53 54 41 20 46 31 |DC D1.."2PSTA F1|
00001AF0: 00 FD 22 3C 50 4C 44 41 20 46 31 AA 31 00 0A 23 |.."<PLDA F1.1..#|
00001B00: 46 50 41 44 43 20 44 31 AA 31 00 17 23 50 50 53 |FPADC D1.1..#PPS|
00001B10: 54 41 20 46 31 AA 31 00 1D 23 5A 50 3B 00 37 23 |TA F1.1..#ZP;.7#|
00001B20: 64 50 3B 22 20 41 50 50 52 2E 20 3C 20 44 58 20 |dP;" APPR. < DX |
00001B30: 44 45 53 54 2E 20 3F 00 3D 23 6E 50 3B 00 4A 23 |DEST. ?.=#nP;.J#|
00001B40: 78 50 4C 44 59 20 46 31 AA 31 00 57 23 82 50 43 |xPLDY F1.1.W#.PC|
00001B50: 50 59 20 44 33 AA 31 00 67 23 8C 50 42 4E 45 20 |PY D3.1.g#.PBNE |
00001B60: 4C 32 30 30 35 30 41 00 72 23 96 50 4C 44 41 20 |L20050A.r#.PLDA |
00001B70: 46 31 00 7D 23 A0 50 43 4D 50 20 44 33 00 A0 23 |F1.}#.PCMP D3..#|
00001B80: AA 50 4C 32 30 30 35 30 41 20 42 43 43 20 4C 32 |.PL20050A BCC L2|
00001B90: 30 31 30 30 3B 4A 41 2C 20 44 41 4E 4E 20 4F 4B |0100;JA, DANN OK|
00001BA0: 00 A6 23 B4 50 3B 00 BD 23 BE 50 3B 20 4E 45 49 |..#.P;..#.P; NEI|
00001BB0: 4E 2C 20 4B B0 52 49 47 49 45 52 45 4E 00 C3 23 |N, K.RIGIEREN..#|
00001BC0: C8 50 3B 00 CE 23 D2 50 4C 44 41 20 46 31 00 D9 |.P;..#.PLDA F1..|
00001BD0: 23 DC 50 53 42 43 20 44 33 00 E4 23 E6 50 53 54 |#.PSBC D3..#.PST|
00001BE0: 41 20 46 31 00 EC 23 F0 50 54 59 41 00 F9 23 FA |A F1..#.PTYA..#.|
00001BF0: 50 53 42 43 20 44 33 AA 31 00 06 24 04 51 53 54 |PSBC D3.1..$.QST|
00001C00: 41 20 46 31 AA 31 00 0C 24 0E 51 3B 00 29 24 18 |A F1.1..$.Q;.)$.|
00001C10: 51 3B 20 4E 41 45 43 48 53 54 45 52 20 50 55 4E |Q; NAECHSTER PUN|
00001C20: 4B 54 20 53 4F 55 52 43 45 00 2F 24 22 51 3B 00 |KT SOURCE./$"Q;.|
00001C30: 3B 24 2C 51 27 49 4E 43 2E 58 43 00 41 24 36 51 |;$,Q'INC.XC.A$6Q|
00001C40: 3B 00 62 24 40 51 3B 20 4E 41 45 43 48 53 54 45 |;.b$@Q; NAECHSTE|
00001C50: 52 20 50 55 4E 4B 54 20 44 45 53 54 49 4E 41 54 |R PUNKT DESTINAT|
00001C60: 49 91 00 68 24 4A 51 3B 00 7B 24 54 51 4C 32 30 |I..h$JQ;.{$TQL20|
00001C70: 31 30 30 20 27 49 4E 43 2E 58 44 00 81 24 5E 51 |100 'INC.XD..$^Q|
00001C80: 3B 00 A2 24 68 51 3B 22 20 41 4C 4C 45 20 50 55 |;..$hQ;" ALLE PU|
00001C90: 4E 4B 54 45 20 45 49 4E 45 52 20 5A 45 49 4C 45 |NKTE EINER ZEILE|
00001CA0: 20 3F 00 A8 24 72 51 3B 00 B0 24 7C 51 54 58 41 | ?..$rQ;..$|QTXA|
00001CB0: 00 C0 24 86 51 42 4E 45 20 4C 32 30 31 32 30 41 |..$.QBNE L20120A|
00001CC0: 00 CD 24 90 51 44 45 43 20 41 31 AA 31 00 DC 24 |..$.QDEC A1.1..$|
00001CD0: 9A 51 42 4E 45 20 4C 32 30 31 34 30 00 EC 24 A4 |.QBNE L20140..$.|
00001CE0: 51 4C 32 30 31 32 30 41 20 44 45 58 00 F2 24 AE |QL20120A DEX..$.|
00001CF0: 51 3B 00 0F 25 B8 51 42 43 43 20 4C 32 30 30 33 |Q;..%.QBCC L2003|
00001D00: 30 3B 4E 45 49 4E 2C 20 53 43 48 4C 45 8B 45 00 |0;NEIN, SCHLE.E.|
00001D10: 15 25 C2 51 3B 00 2E 25 CC 51 3B 20 4A 41 2C 20 |.%.Q;..%.Q; JA, |
00001D20: 4E 41 45 43 48 53 54 45 20 5A 45 49 4C 45 00 46 |NAECHSTE ZEILE.F|
00001D30: 25 D6 51 3B 20 4C 49 4E 45 20 32 20 41 4C CB 52 |%.Q; LINE 2 AL.R|
00001D40: 49 54 48 4D 55 53 00 69 25 E0 51 4C 32 30 31 34 |ITHMUS.i%.QL2014|
00001D50: 30 20 4C 44 41 20 46 32 3B 41 50 50 52 2E 20 AA |0 LDA F2;APPR. .|
00001D60: 20 44 59 20 44 45 53 54 2E 00 74 25 EA 51 41 44 | DY DEST..t%.QAD|
00001D70: 43 20 44 34 00 7A 25 F4 51 3B 00 92 25 FE 51 3B |C D4.z%.Q;..%.Q;|
00001D80: 22 41 50 50 52 2E 20 3C 20 44 59 20 53 4F 55 52 |"APPR. < DY SOUR|
00001D90: 43 45 00 98 25 08 52 3B 00 A7 25 12 52 42 43 53 |CE..%.R;..%.RBCS|
00001DA0: 20 4C 32 30 31 36 30 00 B2 25 13 52 53 54 41 20 | L20160..%.RSTA |
00001DB0: 46 32 00 BD 25 1C 52 43 4D 50 20 44 32 00 D3 25 |F2..%.RCMP D2..%|
00001DC0: 26 52 42 43 43 20 4C 32 30 32 30 30 3B 4A 41 2C |&RBCC L20200;JA,|
00001DD0: 20 4F 4B 00 D9 25 30 52 3B 00 F0 25 3A 52 3B 20 | OK..%0R;..%:R; |
00001DE0: 4E 45 49 4E 2C 20 4B B0 52 49 47 49 45 52 45 4E |NEIN, K.RIGIEREN|
00001DF0: 00 F6 25 44 52 3B 00 08 26 4E 52 4C 32 30 31 36 |..%DR;..&NRL2016|
00001E00: 30 20 53 42 43 20 44 32 00 13 26 4F 52 53 54 41 |0 SBC D2..&ORSTA|
00001E10: 20 46 32 00 19 26 58 52 3B 00 37 26 62 52 3B 20 | F2..&XR;.7&bR; |
00001E20: 5A 45 49 4C 45 20 49 4E 20 44 45 53 54 2E 20 45 |ZEILE IN DEST. E|
00001E30: 52 48 4F 45 48 45 4E 00 3D 26 6C 52 3B 00 48 26 |RHOEHEN.=&lR;.H&|
00001E40: 76 52 49 4E 43 20 59 33 00 4E 26 80 52 3B 00 6D |vRINC Y3.N&.R;.m|
00001E50: 26 9E 52 4C 32 30 31 38 31 20 4C 44 41 20 23 B3 |&.RL20181 LDA #.|
00001E60: 4C 32 30 30 33 30 3B 5A 45 49 47 45 52 00 87 26 |L20030;ZEIGER..&|
00001E70: A8 52 4C 44 59 20 23 B1 4C 32 30 30 33 30 3B 56 |.RLDY #.L20030;V|
00001E80: 45 52 4C 45 47 45 4E 00 AD 26 B2 52 42 4E 45 20 |ERLEGEN..&.RBNE |
00001E90: 4C 32 30 32 30 30 41 3B 53 4F 55 52 43 45 20 5A |L20200A;SOURCE Z|
00001EA0: 45 49 4C 45 20 5A 45 49 43 48 4E 45 4E 00 B3 26 |EILE ZEICHNEN..&|
00001EB0: BC 52 3B 00 D6 26 C6 52 3B 20 5A 45 49 47 45 52 |.R;..&.R; ZEIGER|
00001EC0: 20 56 45 52 42 49 45 47 45 4E 2C 53 4F 55 52 43 | VERBIEGEN,SOURC|
00001ED0: 45 20 5A 45 49 C3 00 EA 26 D0 52 3B 20 55 45 42 |E ZEI...&.R; UEB|
00001EE0: 45 52 53 50 52 49 4E 47 45 4E 00 02 27 DA 52 4C |ERSPRINGEN..'.RL|
00001EF0: 32 30 32 30 30 20 4C 44 41 20 23 B3 4C 32 30 31 |20200 LDA #.L201|
00001F00: 34 30 00 13 27 E4 52 4C 44 59 20 23 B1 4C 32 30 |40..'.RLDY #.L20|
00001F10: 31 34 30 00 19 27 EE 52 3B 00 30 27 F8 52 4C 32 |140..'.R;.0'.RL2|
00001F20: 30 32 30 30 41 20 53 54 41 20 4A 4D 50 31 AA 31 |0200A STA JMP1.1|
00001F30: 00 3F 27 02 53 53 54 59 20 4A 4D 50 31 AA 32 00 |.?'.SSTY JMP1.2.|
00001F40: 45 27 0C 53 3B 00 52 27 16 53 4C 44 59 20 23 24 |E'.S;.R'.SLDY #$|
00001F50: 30 30 00 58 27 20 53 3B 00 7A 27 34 53 49 4E 43 |00.X' S;.z'4SINC|
00001F60: 20 59 31 3B 20 53 4F 55 52 43 45 20 5A 45 49 4C | Y1; SOURCE ZEIL|
00001F70: 45 20 45 52 48 4F 45 48 45 4E 00 80 27 3E 53 3B |E ERHOEHEN..'>S;|
00001F80: 00 92 27 48 53 3B 20 5A 45 49 4C 45 20 32 30 32 |..'HS; ZEILE 202|
00001F90: 32 30 00 98 27 52 53 3B 00 B7 27 5C 53 4C 44 58 |20..'RS;..'\SLDX|
00001FA0: 20 41 41 3B 41 4C 4C 45 53 20 5A 55 52 55 45 43 | AA;ALLES ZURUEC|
00001FB0: 4B 53 45 54 5A 45 4E 00 C4 27 66 53 4C 44 41 20 |KSETZEN..'fSLDA |
00001FC0: 41 41 AA 31 00 D1 27 7A 53 53 54 41 20 41 31 AA |AA.1..'zSSTA A1.|
00001FD0: 31 00 D7 27 84 53 3B 00 E2 27 8E 53 4C 44 41 20 |1..'.S;..'.SLDA |
00001FE0: 46 46 00 EF 27 98 53 4C 44 59 20 46 46 AA 31 00 |FF..'.SLDY FF.1.|
00001FF0: FA 27 A2 53 53 54 41 20 46 31 00 07 28 AC 53 53 |.'.SSTA F1..(.SS|
00002000: 54 59 20 46 31 AA 31 00 0D 28 B6 53 3B 00 18 28 |TY F1.1..(.S;..(|
00002010: C0 53 4C 44 41 20 58 41 00 25 28 CA 53 4C 44 59 |.SLDA XA.%(.SLDY|
00002020: 20 58 41 AA 31 00 30 28 D4 53 53 54 41 20 58 43 | XA.1.0(.SSTA XC|
00002030: 00 3D 28 DE 53 53 54 59 20 58 43 AA 31 00 43 28 |.=(.SSTY XC.1.C(|
00002040: E8 53 3B 00 4E 28 F2 53 4C 44 41 20 58 42 00 5B |.S;.N(.SLDA XB.[|
00002050: 28 FC 53 4C 44 59 20 58 42 AA 31 00 66 28 06 54 |(.SLDY XB.1.f(.T|
00002060: 53 54 41 20 58 44 00 73 28 10 54 53 54 59 20 58 |STA XD.s(.TSTY X|
00002070: 44 AA 31 00 79 28 1A 54 3B 00 9E 28 24 54 3B 22 |D.1.y(.T;..($T;"|
00002080: 41 4E 5A 41 48 4C 20 5A 45 49 4C 45 4E 20 44 45 |ANZAHL ZEILEN DE|
00002090: 53 54 2E 20 45 52 52 45 49 43 48 54 20 3F 00 A4 |ST. ERREICHT ?..|
000020A0: 28 2E 54 3B 00 AF 28 38 54 4C 44 59 20 41 32 00 |(.T;..(8TLDY A2.|
000020B0: C0 28 42 54 42 45 51 20 80 32 3B 4A 41 2C 80 45 |.(BTBEQ .2;JA,.E|
000020C0: 00 D9 28 4C 54 44 45 59 3B 4E 45 49 4E 2C 45 52 |..(LTDEY;NEIN,ER|
000020D0: 4E 49 45 44 52 49 47 45 4E 00 E4 28 56 54 53 54 |NIEDRIGEN..(VTST|
000020E0: 59 20 41 32 00 EA 28 60 54 3B 00 0A 29 6A 54 4A |Y A2..(`T;..)jTJ|
000020F0: 53 52 20 41 44 52 3B 4E 45 55 45 20 41 4E 46 41 |SR ADR;NEUE ANFA|
00002100: 4E 47 53 41 44 52 45 53 53 45 00 10 29 74 54 3B |NGSADRESSE..)tT;|
00002110: 00 36 29 7E 54 4A 4D 50 31 20 4A 4D 50 20 24 46 |.6)~TJMP1 JMP $F|
00002120: 46 46 46 3B 53 50 52 49 4E 47 45 4E 20 57 49 45 |FFF;SPRINGEN WIE|
00002130: 20 42 45 46 4F C3 00 3C 29 88 54 3B 00 53 29 92 | BEFO..<).T;.S).|
00002140: 54 80 32 20 4C 44 41 20 23 22 37 22 3B 46 45 52 |T.2 LDA #"7";FER|
00002150: 54 49 47 00 5D 29 9C 54 53 54 41 20 31 00 65 29 |TIG.]).TSTA 1.e)|
00002160: A6 54 43 4C 49 00 6D 29 B0 54 52 54 53 00 73 29 |.TCLI.m).TRTS.s)|
00002170: BA 54 3B 00 99 29 30 75 3B AB AB AB AB AB AB AB |.T;..)0u;.......|
00002180: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002190: AB AB AB AB AB AB AB AB AB 00 B2 29 3A 75 3B 58 |...........):u;X|
000021A0: 20 56 45 52 4B 4C 2E 20 AD 20 59 20 56 45 52 47 | VERKL. . Y VERG|
000021B0: 52 2E 00 C4 29 44 75 3B 20 5A 45 49 4C 45 20 33 |R...)Du; ZEILE 3|
000021C0: 30 30 30 30 00 CA 29 4E 75 3B 00 ED 29 58 75 4C |0000..)Nu;..)XuL|
000021D0: 33 30 30 30 30 20 4C 44 41 20 44 31 AA 31 3B 41 |30000 LDA D1.1;A|
000021E0: 50 50 52 2E 20 57 45 52 54 20 55 4E 44 00 16 2A |PPR. WERT UND..*|
000021F0: 62 75 53 54 41 20 41 31 AA 31 3B 41 4E 5A 41 48 |buSTA A1.1;ANZAH|
00002200: 4C 20 44 45 52 20 50 55 4E 4B 54 45 20 50 52 4F |L DER PUNKTE PRO|
00002210: 20 5A 45 49 4C 45 00 33 2A 6C 75 53 54 41 20 41 | ZEILE.3*luSTA A|
00002220: 41 AA 31 3B 53 50 45 49 43 48 45 52 4E 20 28 4D |A.1;SPEICHERN (M|
00002230: 53 42 29 00 3B 2A 76 75 4C 53 52 00 48 2A 80 75 |SB).;*vuLSR.H*.u|
00002240: 53 54 41 20 46 31 AA 31 00 55 2A 8A 75 53 54 41 |STA F1.1.U*.uSTA|
00002250: 20 46 46 AA 31 00 5B 2A 9E 75 3B 00 6F 2A A8 75 | FF.1.[*.u;.o*.u|
00002260: 4C 44 41 20 44 31 3B 48 49 45 52 20 4C 53 42 00 |LDA D1;HIER LSB.|
00002270: 77 2A B2 75 54 41 58 00 82 2A BC 75 53 54 41 20 |w*.uTAX..*.uSTA |
00002280: 41 41 00 89 2A C6 75 52 B0 00 94 2A D0 75 53 54 |AA..*.uR...*.uST|
00002290: 41 20 46 31 00 9F 2A DA 75 53 54 41 20 46 46 00 |A F1..*.uSTA FF.|
000022A0: A5 2A E4 75 3B 00 C2 2A EE 75 4C 44 41 20 44 34 |.*.u;..*.uLDA D4|
000022B0: 3B 41 4E 5A 41 48 4C 20 5A 45 49 C3 20 44 45 53 |;ANZAHL ZEI. DES|
000022C0: 54 2E 00 CD 2A F8 75 53 54 41 20 41 32 00 D3 2A |T...*.uSTA A2..*|
000022D0: 02 76 3B 00 DB 2A 20 76 4C 53 52 00 F8 2A 2A 76 |.v;..* vLSR..**v|
000022E0: 53 54 41 20 46 32 3B 4C 49 4E 45 20 32 20 41 50 |STA F2;LINE 2 AP|
000022F0: 50 52 2E 20 57 45 52 54 00 FE 2A 34 76 3B 00 28 |PR. WERT..*4v;.(|
00002300: 2B 52 76 4C 44 41 20 58 31 3B 41 4C 4C 45 20 58 |+RvLDA X1;ALLE X|
00002310: AB 57 45 52 54 45 20 5A 57 49 53 43 48 45 4E 53 |.WERTE ZWISCHENS|
00002320: 50 45 49 43 48 45 52 4E 00 3C 2B 5C 76 4C 44 59 |PEICHERN.<+\vLDY|
00002330: 20 58 31 AA 31 3B 53 4F 55 52 43 45 00 47 2B 66 | X1.1;SOURCE.G+f|
00002340: 76 53 54 41 20 58 41 00 54 2B 70 76 53 54 59 20 |vSTA XA.T+pvSTY |
00002350: 58 41 AA 31 00 5F 2B 7A 76 53 54 41 20 58 43 00 |XA.1._+zvSTA XC.|
00002360: 6C 2B 84 76 53 54 59 20 58 43 AA 31 00 72 2B 8E |l+.vSTY XC.1.r+.|
00002370: 76 3B 00 88 2B 98 76 4C 44 41 20 58 33 3B 44 45 |v;..+.vLDA X3;DE|
00002380: 53 54 49 4E 41 54 49 91 00 95 2B A2 76 4C 44 59 |STINATI...+.vLDY|
00002390: 20 58 33 AA 31 00 A0 2B AC 76 53 54 41 20 58 42 | X3.1..+.vSTA XB|
000023A0: 00 AD 2B B6 76 53 54 59 20 58 42 AA 31 00 B8 2B |..+.vSTY XB.1..+|
000023B0: C0 76 53 54 41 20 58 44 00 C5 2B CA 76 53 54 59 |.vSTA XD..+.vSTY|
000023C0: 20 58 44 AA 31 00 CB 2B D4 76 3B 00 F0 2B DE 76 | XD.1..+.v;..+.v|
000023D0: 4C 33 30 30 31 31 41 20 4A 53 52 20 41 44 52 3B |L30011A JSR ADR;|
000023E0: 41 44 52 45 53 53 45 20 5F 0A 45 43 48 4E 45 4E |ADRESSE _.ECHNEN|
000023F0: 00 15 2C E8 76 3B 20 53 45 54 5A 54 20 49 4E 20 |..,.v; SETZT IN |
00002400: 44 45 53 54 20 45 49 4E 45 4E 20 50 55 4E 4B 54 |DEST EINEN PUNKT|
00002410: 2C 57 45 4E 4E 00 3B 2C F2 76 3B 20 50 55 4E 4B |,WENN.;,.v; PUNK|
00002420: 54 20 49 4E 20 53 4F 55 52 43 45 20 47 45 53 45 |T IN SOURCE GESE|
00002430: 54 5A 54 20 57 41 52 2C 41 4E AB 00 57 2C FC 76 |TZT WAR,AN..W,.v|
00002440: 3B 20 53 91 53 54 45 4E 20 4C 4F 45 53 43 48 54 |; S.STEN LOESCHT|
00002450: 20 45 52 20 49 48 4E 00 68 2C 06 77 4C 33 30 30 | ER IHN.h,.wL300|
00002460: 33 30 20 27 54 45 50 4C 00 6E 2C 10 77 3B 00 86 |30 'TEPL.n,.w;..|
00002470: 2C 1A 77 3B 20 4C 49 4E 45 20 31 20 41 4C CB 52 |,.w; LINE 1 AL.R|
00002480: 49 54 48 4D 55 53 00 8C 2C 24 77 3B 00 B0 2C 2E |ITHMUS..,$w;..,.|
00002490: 77 4C 33 30 30 34 30 20 43 4C 43 3B 41 50 50 52 |wL30040 CLC;APPR|
000024A0: 2E 57 45 52 54 20 AA 20 44 58 20 44 45 53 54 2E |.WERT . DX DEST.|
000024B0: 00 BB 2C 38 77 4C 44 41 20 46 31 00 C6 2C 42 77 |..,8wLDA F1..,Bw|
000024C0: 41 44 43 20 44 33 00 D1 2C 4C 77 53 54 41 20 46 |ADC D3..,LwSTA F|
000024D0: 31 00 DE 2C 56 77 4C 44 41 20 46 31 AA 31 00 EB |1..,VwLDA F1.1..|
000024E0: 2C 60 77 41 44 43 20 44 33 AA 31 00 F8 2C 6A 77 |,`wADC D3.1..,jw|
000024F0: 53 54 41 20 46 31 AA 31 00 FE 2C 74 77 3B 00 1B |STA F1.1..,tw;..|
00002500: 2D 7E 77 3B 22 20 41 50 50 52 2E 57 45 52 54 20 |-~w;" APPR.WERT |
00002510: 3C 20 44 58 20 53 4F 55 52 43 45 00 21 2D 88 77 |< DX SOURCE.!-.w|
00002520: 3B 00 2E 2D 92 77 4C 44 59 20 46 31 AA 31 00 3B |;..-.wLDY F1.1.;|
00002530: 2D 9C 77 43 50 59 20 44 31 AA 31 00 4B 2D A6 77 |-.wCPY D1.1.K-.w|
00002540: 42 4E 45 20 4C 33 30 30 35 30 41 00 56 2D B0 77 |BNE L30050A.V-.w|
00002550: 4C 44 41 20 46 31 00 61 2D BA 77 43 4D 50 20 44 |LDA F1.a-.wCMP D|
00002560: 31 00 87 2D C4 77 4C 33 30 30 35 30 41 20 42 43 |1..-.wL30050A BC|
00002570: 43 20 4C 33 30 31 30 30 3B 4A 41 2C 20 41 4C 4C |C L30100;JA, ALL|
00002580: 45 53 20 4B 4C 41 52 00 8D 2D CE 77 3B 00 A3 2D |ES KLAR..-.w;..-|
00002590: D8 77 3B 20 4E 45 49 4E 2C 4B B0 52 49 47 49 45 |.w; NEIN,K.RIGIE|
000025A0: 52 45 4E 00 A9 2D E2 77 3B 00 C6 2D EC 77 4C 44 |REN..-.w;..-.wLD|
000025B0: 41 20 46 31 3B 41 50 50 52 2E 20 AB 20 44 58 20 |A F1;APPR. . DX |
000025C0: 53 4F 55 52 43 45 00 D1 2D F6 77 53 42 43 20 44 |SOURCE..-.wSBC D|
000025D0: 31 00 DC 2D 00 78 53 54 41 20 46 31 00 E4 2D 0A |1..-.xSTA F1..-.|
000025E0: 78 54 59 41 00 F1 2D 14 78 53 42 43 20 44 31 AA |xTYA..-.xSBC D1.|
000025F0: 31 00 FE 2D 1E 78 53 54 41 20 46 31 AA 31 00 04 |1..-.xSTA F1.1..|
00002600: 2E 28 78 3B 00 1D 2E 32 78 3B 20 58 4B 20 53 4F |.(x;...2x; XK SO|
00002610: 55 52 43 45 20 45 52 48 4F 45 48 45 4E 00 23 2E |URCE ERHOEHEN.#.|
00002620: 3C 78 3B 00 2F 2E 46 78 27 49 4E 43 2E 58 43 00 |<x;./.Fx'INC.XC.|
00002630: 35 2E 50 78 3B 00 4D 2E 5A 78 3B 20 58 4B 20 44 |5.Px;.M.Zx; XK D|
00002640: 45 53 54 2E 20 45 52 48 4F 45 48 45 4E 00 53 2E |EST. ERHOEHEN.S.|
00002650: 64 78 3B 00 5F 2E 6E 78 27 49 4E 43 2E 58 44 00 |dx;._.nx'INC.XD.|
00002660: 65 2E 78 78 3B 00 88 2E 82 78 3B 22 41 4C 4C 45 |e.xx;....x;"ALLE|
00002670: 20 50 55 4E 4B 54 45 20 49 4E 20 44 45 53 54 2E | PUNKTE IN DEST.|
00002680: 20 5A 45 49 4C 45 20 3F 00 8E 2E 8C 78 3B 00 96 | ZEILE ?....x;..|
00002690: 2E 96 78 54 58 41 00 A6 2E A0 78 42 4E 45 20 4C |..xTXA....xBNE L|
000026A0: 33 30 30 38 33 41 00 B3 2E AA 78 44 45 43 20 41 |30083A....xDEC A|
000026B0: 31 AA 31 00 D8 2E B4 78 42 4E 45 20 4C 33 30 31 |1.1....xBNE L301|
000026C0: 34 30 3B 4A 41 2C 20 4C 49 4E 45 20 32 20 41 4C |40;JA, LINE 2 AL|
000026D0: CB 52 49 54 48 4D 55 53 00 E8 2E BE 78 4C 33 30 |.RITHMUS....xL30|
000026E0: 30 38 33 41 20 44 45 58 00 EE 2E C8 78 3B 00 0B |083A DEX....x;..|
000026F0: 2F D2 78 4A 4D 50 20 4C 33 30 30 33 30 3B 4E 45 |/.xJMP L30030;NE|
00002700: 49 4E 2C 20 53 43 48 4C 45 8B 45 00 11 2F DC 78 |IN, SCHLE.E../.x|
00002710: 3B 00 2A 2F E6 78 3B 20 58 4B 20 53 4F 55 52 43 |;.*/.x; XK SOURC|
00002720: 45 20 45 52 48 4F 45 48 45 4E 00 30 2F F0 78 3B |E ERHOEHEN.0/.x;|
00002730: 00 43 2F FA 78 4C 33 30 31 30 30 20 27 49 4E 43 |.C/.xL30100 'INC|
00002740: 2E 58 43 00 49 2F 04 79 3B 00 6C 2F 0E 79 3B 22 |.XC.I/.y;.l/.y;"|
00002750: 41 4C 4C 45 20 50 55 4E 4B 54 45 20 49 4E 20 44 |ALLE PUNKTE IN D|
00002760: 45 53 54 2E 20 5A 45 49 4C 45 20 3F 00 72 2F 18 |EST. ZEILE ?.r/.|
00002770: 79 3B 00 81 2F 22 79 4C 33 30 31 32 30 20 54 58 |y;../"yL30120 TX|
00002780: 41 00 91 2F 2C 79 42 4E 45 20 4C 33 30 31 32 30 |A../,yBNE L30120|
00002790: 41 00 9E 2F 36 79 44 45 43 20 41 31 AA 31 00 C3 |A../6yDEC A1.1..|
000027A0: 2F 40 79 42 4E 45 20 4C 33 30 31 34 30 3B 4A 41 |/@yBNE L30140;JA|
000027B0: 2C 20 4C 49 4E 45 20 32 20 41 4C CB 52 49 54 48 |, LINE 2 AL.RITH|
000027C0: 4D 55 53 00 D3 2F 4A 79 4C 33 30 31 32 30 41 20 |MUS../JyL30120A |
000027D0: 44 45 58 00 D9 2F 54 79 3B 00 F6 2F 5E 79 4A 4D |DEX../Ty;../^yJM|
000027E0: 50 20 4C 33 30 30 34 30 3B 4E 45 49 4E 2C 20 53 |P L30040;NEIN, S|
000027F0: 43 48 4C 45 8B 45 00 FC 2F 68 79 3B 00 14 30 72 |CHLE.E../hy;..0r|
00002800: 79 3B 20 4C 49 4E 45 20 32 20 41 4C CB 52 49 54 |y; LINE 2 AL.RIT|
00002810: 48 4D 55 53 00 1A 30 7C 79 3B 00 42 30 86 79 4C |HMUS..0|y;.B0.yL|
00002820: 33 30 31 34 30 20 4C 44 41 20 46 32 3B 41 50 50 |30140 LDA F2;APP|
00002830: 52 2E 57 45 52 54 20 AA 20 44 59 20 53 4F 55 52 |R.WERT . DY SOUR|
00002840: 43 45 00 4D 30 90 79 41 44 43 20 44 32 00 53 30 |CE.M0.yADC D2.S0|
00002850: 9A 79 3B 00 6E 30 A4 79 3B 22 41 50 50 52 2E 57 |.y;.n0.y;"APPR.W|
00002860: 45 52 54 20 3C 20 44 59 20 44 45 53 54 2E 00 74 |ERT < DY DEST..t|
00002870: 30 AE 79 3B 00 83 30 B8 79 42 43 53 20 4C 33 30 |0.y;..0.yBCS L30|
00002880: 31 36 30 00 8E 30 C2 79 43 4D 50 20 44 34 00 B6 |160..0.yCMP D4..|
00002890: 30 CC 79 42 43 43 20 4C 33 30 32 30 30 3B 4A 41 |0.yBCC L30200;JA|
000028A0: 2C 20 4E 55 52 20 44 45 53 54 2E 20 5A 45 49 4C |, NUR DEST. ZEIL|
000028B0: 45 20 45 52 48 2E 00 BC 30 D6 79 3B 00 CD 30 E0 |E ERH...0.y;..0.|
000028C0: 79 3B 20 4B B0 52 49 47 49 45 52 45 4E 00 D3 30 |y; K.RIGIEREN..0|
000028D0: EA 79 3B 00 E5 30 F4 79 4C 33 30 31 36 30 20 53 |.y;..0.yL30160 S|
000028E0: 42 43 20 44 34 00 EB 30 FE 79 3B 00 0C 31 08 7A |BC D4..0.y;..1.z|
000028F0: 3B 20 53 4F 55 52 43 45 20 5A 45 49 C3 4E 55 4D |; SOURCE ZEI.NUM|
00002900: 4D 45 52 20 45 52 48 4F 45 48 45 4E 00 12 31 12 |MER ERHOEHEN..1.|
00002910: 7A 3B 00 1D 31 1C 7A 49 4E 43 20 59 31 00 23 31 |z;..1.zINC Y1.#1|
00002920: 26 7A 3B 00 43 31 30 7A 3B 20 44 45 53 54 2E 20 |&z;.C10z; DEST. |
00002930: 5A 45 49 C3 4E 55 4D 4D 45 52 20 45 52 48 4F 45 |ZEI.NUMMER ERHOE|
00002940: 48 45 4E 00 49 31 3A 7A 3B 00 70 31 44 7A 4C 33 |HEN.I1:z;.p1DzL3|
00002950: 30 32 30 30 20 53 54 41 20 46 32 3B 41 50 50 52 |0200 STA F2;APPR|
00002960: 2E 20 57 45 52 54 20 53 50 45 49 43 48 45 52 4E |. WERT SPEICHERN|
00002970: 00 7B 31 4E 7A 49 4E 43 20 59 33 00 81 31 58 7A |.{1NzINC Y3..1Xz|
00002980: 3B 00 9D 31 62 7A 3B 20 41 4C 4C 20 58 4B 20 AF |;..1bz; ALL XK .|
00002990: 20 58 41 50 50 52 2E 20 52 45 53 45 54 00 A3 31 | XAPPR. RESET..1|
000029A0: 6C 7A 3B 00 B5 31 76 7A 4C 33 30 32 32 30 20 4C |lz;..1vzL30220 L|
000029B0: 44 58 20 41 41 00 C2 31 80 7A 4C 44 41 20 41 41 |DX AA..1.zLDA AA|
000029C0: AA 31 00 CF 31 94 7A 53 54 41 20 41 31 AA 31 00 |.1..1.zSTA A1.1.|
000029D0: D5 31 9E 7A 3B 00 E0 31 A8 7A 4C 44 41 20 46 46 |.1.z;..1.zLDA FF|
000029E0: 00 ED 31 B2 7A 4C 44 59 20 46 46 AA 31 00 F8 31 |..1.zLDY FF.1..1|
000029F0: BC 7A 53 54 41 20 46 31 00 05 32 C6 7A 53 54 59 |.zSTA F1..2.zSTY|
00002A00: 20 46 31 AA 31 00 0B 32 D0 7A 3B 00 16 32 DA 7A | F1.1..2.z;..2.z|
00002A10: 4C 44 41 20 58 41 00 23 32 E4 7A 4C 44 59 20 58 |LDA XA.#2.zLDY X|
00002A20: 41 AA 31 00 2E 32 EE 7A 53 54 41 20 58 43 00 3B |A.1..2.zSTA XC.;|
00002A30: 32 F8 7A 53 54 59 20 58 43 AA 31 00 41 32 02 7B |2.zSTY XC.1.A2.{|
00002A40: 3B 00 4C 32 0C 7B 4C 44 41 20 58 42 00 59 32 16 |;.L2.{LDA XB.Y2.|
00002A50: 7B 4C 44 59 20 58 42 AA 31 00 64 32 20 7B 53 54 |{LDY XB.1.d2 {ST|
00002A60: 41 20 58 44 00 71 32 2A 7B 53 54 59 20 58 44 AA |A XD.q2*{STY XD.|
00002A70: 31 00 77 32 34 7B 3B 00 8C 32 3E 7B 3B 22 20 41 |1.w24{;..2>{;" A|
00002A80: 4C 4C 45 20 5A 45 49 4C 45 4E 20 3F 00 92 32 48 |LLE ZEILEN ?..2H|
00002A90: 7B 3B 00 A4 32 52 7B 4C 33 30 32 33 30 20 4C 44 |{;..2R{L30230 LD|
00002AA0: 59 20 41 32 00 B6 32 5C 7B 42 45 51 20 80 33 3B |Y A2..2\{BEQ .3;|
00002AB0: 4A 41 2C 20 80 45 00 BE 32 66 7B 44 45 59 00 C9 |JA, .E..2f{DEY..|
00002AC0: 32 70 7B 53 54 59 20 41 32 00 CF 32 7A 7B 3B 00 |2p{STY A2..2z{;.|
00002AD0: ED 32 84 7B 4A 4D 50 20 4C 33 30 30 31 31 41 3B |.2.{JMP L30011A;|
00002AE0: 4E 45 49 4E 2C 20 53 43 48 4C 45 8B 45 00 F3 32 |NEIN, SCHLE.E..2|
00002AF0: 8E 7B 3B 00 03 33 98 7B 80 33 20 4C 44 41 20 23 |.{;..3.{.3 LDA #|
00002B00: 22 37 22 00 0D 33 A2 7B 53 54 41 20 31 00 15 33 |"7"..3.{STA 1..3|
00002B10: AC 7B 43 4C 49 00 1D 33 B6 7B 52 54 53 00 23 33 |.{CLI..3.{RTS.#3|
00002B20: C0 7B 3B 00 49 33 40 9C 3B AB AB AB AB AB AB AB |.{;.I3@.;.......|
00002B30: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002B40: AB AB AB AB AB AB AB AB AB 00 62 33 4A 9C 3B 58 |..........b3J.;X|
00002B50: 20 56 45 52 4B 4C 2E 20 AD 20 59 20 56 45 52 4B | VERKL. . Y VERK|
00002B60: 4C 2E 00 74 33 54 9C 3B 20 5A 45 49 4C 45 20 34 |L..t3T.; ZEILE 4|
00002B70: 30 30 30 30 00 7A 33 5E 9C 3B 00 9A 33 68 9C 4C |0000.z3^.;..3h.L|
00002B80: 34 30 30 30 30 20 4C 44 41 20 44 31 AA 31 3B 41 |40000 LDA D1.1;A|
00002B90: 50 50 52 2E 57 45 52 54 20 AA 00 BD 33 72 9C 53 |PPR.WERT ...3r.S|
00002BA0: 54 41 20 41 31 AA 31 3B 41 4E 5A 41 48 4C 20 44 |TA A1.1;ANZAHL D|
00002BB0: 45 52 20 50 55 4E 4B 54 45 20 50 52 4F 00 D6 33 |ER PUNKTE PRO..3|
00002BC0: 7C 9C 53 54 41 20 41 41 AA 31 3B 44 45 53 54 2E ||.STA AA.1;DEST.|
00002BD0: 20 5A 45 49 4C 45 00 DE 33 86 9C 4C 53 52 00 EF | ZEILE..3..LSR..|
00002BE0: 33 90 9C 53 54 41 20 46 31 AA 31 3B 4D 53 42 00 |3..STA F1.1;MSB.|
00002BF0: FC 33 9A 9C 53 54 41 20 46 46 AA 31 00 02 34 A4 |.3..STA FF.1..4.|
00002C00: 9C 3B 00 1B 34 AE 9C 4C 44 41 20 44 31 3B 41 55 |.;..4..LDA D1;AU|
00002C10: 43 48 20 46 55 45 52 20 4C 53 42 00 23 34 B8 9C |CH FUER LSB.#4..|
00002C20: 54 41 58 00 2E 34 C2 9C 53 54 41 20 41 41 00 35 |TAX..4..STA AA.5|
00002C30: 34 CC 9C 52 B0 00 40 34 D6 9C 53 54 41 20 46 31 |4..R..@4..STA F1|
00002C40: 00 4B 34 E0 9C 53 54 41 20 46 46 00 51 34 EA 9C |.K4..STA FF.Q4..|
00002C50: 3B 00 6E 34 F4 9C 4C 44 41 20 44 32 3B 41 4E 5A |;.n4..LDA D2;ANZ|
00002C60: 41 48 4C 20 44 45 53 54 2E 20 5A 45 49 C3 00 79 |AHL DEST. ZEI..y|
00002C70: 34 FE 9C 53 54 41 20 41 32 00 7F 34 08 9D 3B 00 |4..STA A2..4..;.|
00002C80: 87 34 26 9D 4C 53 52 00 A3 34 30 9D 53 54 41 20 |.4&.LSR..40.STA |
00002C90: 46 32 3B 4C 49 4E 45 20 32 20 41 50 50 52 2E 57 |F2;LINE 2 APPR.W|
00002CA0: 45 52 54 00 A9 34 3A 9D 3B 00 C3 34 44 9D 3B 20 |ERT..4:.;..4D.; |
00002CB0: 41 4C 4C 20 58 4B 20 AF 20 58 41 50 50 52 2E 20 |ALL XK . XAPPR. |
00002CC0: 53 45 54 00 C9 34 4E 9D 3B 00 D4 34 58 9D 4C 44 |SET..4N.;..4X.LD|
00002CD0: 41 20 58 31 00 E1 34 62 9D 4C 44 59 20 58 31 AA |A X1..4b.LDY X1.|
00002CE0: 31 00 EC 34 6C 9D 53 54 41 20 58 41 00 F9 34 76 |1..4l.STA XA..4v|
00002CF0: 9D 53 54 59 20 58 41 AA 31 00 04 35 80 9D 53 54 |.STY XA.1..5..ST|
00002D00: 41 20 58 43 00 11 35 8A 9D 53 54 59 20 58 43 AA |A XC..5..STY XC.|
00002D10: 31 00 17 35 94 9D 3B 00 22 35 9E 9D 4C 44 41 20 |1..5..;."5..LDA |
00002D20: 58 33 00 2F 35 A8 9D 4C 44 59 20 58 33 AA 31 00 |X3./5..LDY X3.1.|
00002D30: 3A 35 B2 9D 53 54 41 20 58 42 00 47 35 BC 9D 53 |:5..STA XB.G5..S|
00002D40: 54 59 20 58 42 AA 31 00 52 35 C6 9D 53 54 41 20 |TY XB.1.R5..STA |
00002D50: 58 44 00 5F 35 D0 9D 53 54 59 20 58 44 AA 31 00 |XD._5..STY XD.1.|
00002D60: 65 35 DA 9D 3B 00 93 35 E4 9D 4C 34 30 30 31 31 |e5..;..5..L40011|
00002D70: 41 20 4A 53 52 20 41 44 52 3B 41 44 52 45 53 53 |A JSR ADR;ADRESS|
00002D80: 45 20 31 2E 50 55 4E 4B 54 20 50 52 4F 20 5A 45 |E 1.PUNKT PRO ZE|
00002D90: 49 4C 45 00 99 35 EE 9D 3B 00 BE 35 F8 9D 3B 20 |ILE..5..;..5..; |
00002DA0: 50 4C 4F 54 54 45 4E 20 4E 41 43 48 20 42 45 57 |PLOTTEN NACH BEW|
00002DB0: 41 45 48 52 54 45 4D 20 53 43 48 45 4D 41 00 C4 |AEHRTEM SCHEMA..|
00002DC0: 35 02 9E 3B 00 D5 35 0C 9E 4C 34 30 30 33 30 20 |5..;..5..L40030 |
00002DD0: 27 54 45 50 4C 00 DB 35 16 9E 3B 00 02 36 20 9E |'TEPL..5..;..6 .|
00002DE0: 3B 20 4C 49 4E 45 20 31 20 41 4C CB 52 49 54 48 |; LINE 1 AL.RITH|
00002DF0: 4D 55 53 20 28 5A 45 49 4C 45 20 42 45 41 52 42 |MUS (ZEILE BEARB|
00002E00: 2E 29 00 08 36 2A 9E 3B 00 2C 36 34 9E 4C 34 30 |.)..6*.;.,64.L40|
00002E10: 30 34 30 20 4C 44 41 20 46 31 3B 41 50 50 52 2E |040 LDA F1;APPR.|
00002E20: 57 45 52 54 AA 44 58 20 44 45 53 54 00 37 36 3E |WERT.DX DEST.76>|
00002E30: 9E 41 44 43 20 44 33 00 42 36 48 9E 53 54 41 20 |.ADC D3.B6H.STA |
00002E40: 46 31 00 4F 36 52 9E 4C 44 41 20 46 31 AA 31 00 |F1.O6R.LDA F1.1.|
00002E50: 5C 36 5C 9E 41 44 43 20 44 33 AA 31 00 69 36 66 |\6\.ADC D3.1.i6f|
00002E60: 9E 53 54 41 20 46 31 AA 31 00 6F 36 70 9E 3B 00 |.STA F1.1.o6p.;.|
00002E70: 8B 36 7A 9E 3B 22 41 50 50 52 2E 57 45 52 54 20 |.6z.;"APPR.WERT |
00002E80: 3C 20 44 58 20 53 4F 55 52 43 45 00 91 36 84 9E |< DX SOURCE..6..|
00002E90: 3B 00 A5 36 8E 9E 4C 34 30 30 35 30 20 4C 44 59 |;..6..L40050 LDY|
00002EA0: 20 46 31 AA 31 00 B2 36 98 9E 43 50 59 20 44 31 | F1.1..6..CPY D1|
00002EB0: AA 31 00 C2 36 A2 9E 42 4E 45 20 4C 34 30 30 35 |.1..6..BNE L4005|
00002EC0: 30 41 00 CD 36 AC 9E 4C 44 41 20 46 31 00 D8 36 |0A..6..LDA F1..6|
00002ED0: B6 9E 43 4D 50 20 44 31 00 03 37 C0 9E 4C 34 30 |..CMP D1..7..L40|
00002EE0: 30 35 30 41 20 42 43 43 20 4C 34 30 31 30 30 3B |050A BCC L40100;|
00002EF0: 4A 41 2C 20 53 4F 55 52 43 45 20 45 52 48 4F 45 |JA, SOURCE ERHOE|
00002F00: 48 45 4E 00 09 37 CA 9E 3B 00 1A 37 D4 9E 3B 20 |HEN..7..;..7..; |
00002F10: 4B B0 52 49 47 49 45 52 45 4E 00 20 37 DE 9E 3B |K.RIGIEREN. 7..;|
00002F20: 00 32 37 E8 9E 4C 34 30 30 36 30 20 4C 44 41 20 |.27..L40060 LDA |
00002F30: 46 31 00 3D 37 F2 9E 53 42 43 20 44 31 00 48 37 |F1.=7..SBC D1.H7|
00002F40: FC 9E 53 54 41 20 46 31 00 50 37 06 9F 54 59 41 |..STA F1.P7..TYA|
00002F50: 00 5D 37 10 9F 53 42 43 20 44 31 AA 31 00 6A 37 |.]7..SBC D1.1.j7|
00002F60: 1A 9F 53 54 41 20 46 31 AA 31 00 70 37 24 9F 3B |..STA F1.1.p7$.;|
00002F70: 00 88 37 2E 9F 3B 20 58 4B 20 44 45 53 54 2E 20 |..7..; XK DEST. |
00002F80: 45 52 48 4F 45 48 45 4E 00 8E 37 38 9F 3B 00 A1 |ERHOEHEN..78.;..|
00002F90: 37 42 9F 4C 34 30 30 38 30 20 27 49 4E 43 2E 58 |7B.L40080 'INC.X|
00002FA0: 44 00 A7 37 4C 9F 3B 00 C0 37 56 9F 3B 20 58 4B |D..7L.;..7V.; XK|
00002FB0: 20 53 4F 55 52 43 45 20 45 52 48 4F 45 48 45 4E | SOURCE ERHOEHEN|
00002FC0: 00 C6 37 60 9F 3B 00 D9 37 6A 9F 4C 34 30 30 38 |..7`.;..7j.L4008|
00002FD0: 31 20 27 49 4E 43 2E 58 43 00 DF 37 74 9F 3B 00 |1 'INC.XC..7t.;.|
00002FE0: F3 37 7E 9F 3B 22 41 4C 4C 45 20 50 55 4E 4B 54 |.7~.;"ALLE PUNKT|
00002FF0: 45 20 3F 00 F9 37 88 9F 3B 00 08 38 92 9F 4C 34 |E ?..7..;..8..L4|
00003000: 30 30 38 33 20 54 58 41 00 18 38 9C 9F 42 4E 45 |0083 TXA..8..BNE|
00003010: 20 4C 34 30 30 38 33 41 00 25 38 A6 9F 44 45 43 | L40083A.%8..DEC|
00003020: 20 41 31 AA 31 00 47 38 B0 9F 42 4E 45 20 4C 34 | A1.1.G8..BNE L4|
00003030: 30 31 34 30 3B 4A 41 2C 20 4E 41 45 43 48 53 54 |0140;JA, NAECHST|
00003040: 45 20 5A 45 49 4C 45 00 57 38 BA 9F 4C 34 30 30 |E ZEILE.W8..L400|
00003050: 38 33 41 20 44 45 58 00 5D 38 C4 9F 3B 00 74 38 |83A DEX.]8..;.t8|
00003060: CE 9F 4A 4D 50 20 4C 34 30 30 33 30 3B 53 43 48 |..JMP L40030;SCH|
00003070: 4C 45 8B 45 00 7A 38 D8 9F 3B 00 93 38 E2 9F 3B |LE.E.z8..;..8..;|
00003080: 20 58 4B 20 53 4F 55 52 43 45 20 45 52 48 4F 45 | XK SOURCE ERHOE|
00003090: 48 45 4E 00 AF 38 EC 9F 3B 20 50 4C 4F 54 54 45 |HEN..8..; PLOTTE|
000030A0: 4E 20 55 45 42 45 52 53 50 52 49 4E 47 45 4E 00 |N UEBERSPRINGEN.|
000030B0: C2 38 F6 9F 4C 34 30 31 30 30 20 27 49 4E 43 2E |.8..L40100 'INC.|
000030C0: 58 43 00 C8 38 00 A0 3B 00 DA 38 0A A0 3B 22 41 |XC..8..;..8..;"A|
000030D0: 4C 4C 45 20 50 55 4E 4B 54 45 00 E0 38 14 A0 3B |LLE PUNKTE..8..;|
000030E0: 00 EF 38 1E A0 4C 34 30 31 32 30 20 54 58 41 00 |..8..L40120 TXA.|
000030F0: FF 38 28 A0 42 4E 45 20 4C 34 30 31 32 30 41 00 |.8(.BNE L40120A.|
00003100: 0C 39 32 A0 44 45 43 20 41 31 AA 31 00 2C 39 3C |.92.DEC A1.1.,9<|
00003110: A0 42 4E 45 20 4C 34 30 31 34 30 3B 46 45 52 54 |.BNE L40140;FERT|
00003120: 49 47 20 4D 49 54 20 5A 45 49 4C 45 00 3C 39 46 |IG MIT ZEILE.<9F|
00003130: A0 4C 34 30 31 32 30 41 20 44 45 58 00 42 39 50 |.L40120A DEX.B9P|
00003140: A0 3B 00 61 39 5A A0 4A 4D 50 20 4C 34 30 30 34 |.;.a9Z.JMP L4004|
00003150: 30 3B 4E 41 45 43 48 53 54 45 52 20 50 49 58 45 |0;NAECHSTER PIXE|
00003160: 4C 00 67 39 64 A0 3B 00 7C 39 6E A0 3B 20 4E 41 |L.g9d.;.|9n.; NA|
00003170: 45 43 48 53 54 45 20 5A 45 49 4C 45 00 82 39 78 |ECHSTE ZEILE..9x|
00003180: A0 3B 00 A8 39 82 A0 4C 34 30 31 34 30 20 4C 44 |.;..9..L40140 LD|
00003190: 41 20 46 32 3B 41 50 50 52 2E 57 45 52 54 20 42 |A F2;APPR.WERT B|
000031A0: 45 52 45 43 48 4E 45 4E 00 B3 39 8C A0 41 44 43 |ERECHNEN..9..ADC|
000031B0: 20 44 34 00 B9 39 96 A0 3B 00 CA 39 A0 A0 3B 22 | D4..9..;..9..;"|
000031C0: 20 57 45 52 54 20 4F 4B 20 3F 00 D0 39 AA A0 3B | WERT OK ?..9..;|
000031D0: 00 DF 39 B4 A0 42 43 53 20 4C 34 30 31 36 30 00 |..9..BCS L40160.|
000031E0: EA 39 B5 A0 53 54 41 20 46 32 00 F5 39 BE A0 43 |.9..STA F2..9..C|
000031F0: 4D 50 20 44 32 00 1F 3A C8 A0 42 43 43 20 4C 34 |MP D2..:..BCC L4|
00003200: 30 32 30 30 3B 20 4A 41 2C 20 4E 41 45 43 48 53 |0200; JA, NAECHS|
00003210: 54 45 20 53 4F 55 52 43 45 20 5A 45 49 4C 45 00 |TE SOURCE ZEILE.|
00003220: 25 3A D2 A0 3B 00 37 3A DC A0 3B 22 4B 4F 52 52 |%:..;.7:..;"KORR|
00003230: 49 47 49 45 52 45 4E 00 3D 3A E6 A0 3B 00 4F 3A |IGIEREN.=:..;.O:|
00003240: F0 A0 4C 34 30 31 36 30 20 53 42 43 20 44 32 00 |..L40160 SBC D2.|
00003250: 5A 3A F1 A0 53 54 41 20 46 32 00 60 3A 04 A1 3B |Z:..STA F2.`:..;|
00003260: 00 77 3A 0E A1 3B 20 59 4B 20 44 45 53 54 20 45 |.w:..; YK DEST E|
00003270: 52 48 4F 45 48 45 4E 00 7D 3A 18 A1 3B 00 88 3A |RHOEHEN.}:..;..:|
00003280: 22 A1 49 4E 43 20 59 33 00 8E 3A 2C A1 3B 00 AD |".INC Y3..:,.;..|
00003290: 3A EA A1 4C 44 41 20 23 B3 4C 34 30 30 33 30 3B |:..LDA #.L40030;|
000032A0: 5A 45 49 4C 45 20 50 4C 4F 54 54 45 4E 00 BE 3A |ZEILE PLOTTEN..:|
000032B0: F4 A1 4C 44 59 20 23 B1 4C 34 30 30 33 30 00 CE |..LDY #.L40030..|
000032C0: 3A FE A1 42 4E 45 20 4C 34 30 32 30 30 41 00 D4 |:..BNE L40200A..|
000032D0: 3A 08 A2 3B 00 00 3B 12 A2 4C 34 30 32 30 30 20 |:..;..;..L40200 |
000032E0: 4C 44 41 20 23 B3 4C 34 30 31 34 30 3B 5A 45 49 |LDA #.L40140;ZEI|
000032F0: 4C 45 20 4E 49 43 48 54 20 50 4C 4F 54 54 45 4E |LE NICHT PLOTTEN|
00003300: 00 11 3B 1C A2 4C 44 59 20 23 B1 4C 34 30 31 34 |..;..LDY #.L4014|
00003310: 30 00 17 3B 26 A2 3B 00 2E 3B A8 A2 4C 34 30 32 |0..;&.;..;..L402|
00003320: 30 30 41 20 53 54 41 20 4A 4D 50 32 AA 31 00 3D |00A STA JMP2.1.=|
00003330: 3B A9 A2 53 54 59 20 4A 4D 50 32 AA 32 00 43 3B |;..STY JMP2.2.C;|
00003340: AA A2 3B 00 61 3B B2 A2 49 4E 43 20 59 31 3B 59 |..;.a;..INC Y1;Y|
00003350: 4B 20 53 4F 55 52 43 45 20 45 52 48 4F 45 48 45 |K SOURCE ERHOEHE|
00003360: 4E 00 67 3B BC A2 3B 00 85 3B C6 A2 3B 20 58 4B |N.g;..;..;..; XK|
00003370: 20 55 4E 44 20 58 41 50 50 52 2E 57 45 52 54 20 | UND XAPPR.WERT |
00003380: 52 45 53 45 54 00 8B 3B D0 A2 3B 00 9D 3B DA A2 |RESET..;..;..;..|
00003390: 4C 34 30 32 32 30 20 4C 44 58 20 41 41 00 AA 3B |L40220 LDX AA..;|
000033A0: EE A2 4C 44 41 20 41 41 AA 31 00 B7 3B F8 A2 53 |..LDA AA.1..;..S|
000033B0: 54 41 20 41 31 AA 31 00 BD 3B 02 A3 3B 00 CA 3B |TA A1.1..;..;..;|
000033C0: 0C A3 4C 44 41 20 46 46 AA 31 00 D5 3B 16 A3 4C |..LDA FF.1..;..L|
000033D0: 44 59 20 46 46 00 E2 3B 20 A3 53 54 41 20 46 31 |DY FF..; .STA F1|
000033E0: AA 31 00 ED 3B 2A A3 53 54 59 20 46 31 00 F3 3B |.1..;*.STY F1..;|
000033F0: 34 A3 3B 00 FE 3B 3E A3 4C 44 41 20 58 41 00 0B |4.;..;>.LDA XA..|
00003400: 3C 48 A3 4C 44 59 20 58 41 AA 31 00 16 3C 52 A3 |<H.LDY XA.1..<R.|
00003410: 53 54 41 20 58 43 00 23 3C 5C A3 53 54 59 20 58 |STA XC.#<\.STY X|
00003420: 43 AA 31 00 29 3C 66 A3 3B 00 34 3C 70 A3 4C 44 |C.1.)<f.;.4<p.LD|
00003430: 41 20 58 42 00 41 3C 7A A3 4C 44 59 20 58 42 AA |A XB.A<z.LDY XB.|
00003440: 31 00 4C 3C 84 A3 53 54 41 20 58 44 00 59 3C 8E |1.L<..STA XD.Y<.|
00003450: A3 53 54 59 20 58 44 AA 31 00 5F 3C 98 A3 3B 00 |.STY XD.1._<..;.|
00003460: 73 3C A2 A3 3B 22 41 4C 4C 45 20 5A 45 49 4C 45 |s<..;"ALLE ZEILE|
00003470: 4E 20 3F 00 79 3C AC A3 3B 00 8B 3C B6 A3 4C 34 |N ?.y<..;..<..L4|
00003480: 30 32 33 30 20 4C 44 59 20 41 32 00 9C 3C C0 A3 |0230 LDY A2..<..|
00003490: 42 45 51 20 80 34 3B 4A 41 2C 80 45 00 A4 3C CA |BEQ .4;JA,.E..<.|
000034A0: A3 44 45 59 00 AF 3C D4 A3 53 54 59 20 41 32 00 |.DEY..<..STY A2.|
000034B0: B5 3C DE A3 3B 00 D8 3C E8 A3 4A 53 52 20 41 44 |.<..;..<..JSR AD|
000034C0: 52 3B 4E 45 49 4E 2C 20 4E 45 55 45 20 5A 45 49 |R;NEIN, NEUE ZEI|
000034D0: C3 41 44 52 45 53 53 45 00 DE 3C F2 A3 3B 00 09 |.ADRESSE..<..;..|
000034E0: 3D FC A3 4A 4D 50 32 20 4A 4D 50 20 24 46 46 46 |=..JMP2 JMP $FFF|
000034F0: 46 3B 53 50 52 49 4E 47 45 4E 20 57 49 45 20 46 |F;SPRINGEN WIE F|
00003500: 45 53 54 47 45 4C 45 47 54 00 0F 3D 06 A4 3B 00 |ESTGELEGT..=..;.|
00003510: 22 3D 10 A4 80 34 20 4C 44 41 20 23 22 37 22 3B |"=...4 LDA #"7";|
00003520: 80 45 00 2C 3D 1A A4 53 54 41 20 31 00 34 3D 24 |.E.,=..STA 1.4=$|
00003530: A4 43 4C 49 00 3C 3D 2E A4 52 54 53 00 42 3D 38 |.CLI.<=..RTS.B=8|
00003540: A4 3B 00 68 3D 42 A4 3B AB AB AB AB AB AB AB AB |.;.h=B.;........|
00003550: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003560: AB AB AB AB AB AB AB AB 00 6E 3D 4C A4 3B 00 90 |.........n=L.;..|
00003570: 3D 50 C3 41 44 52 20 43 4C 43 3B 41 44 52 45 53 |=P.ADR CLC;ADRES|
00003580: 53 45 20 55 4E 44 20 4D 41 53 4B 45 20 41 55 53 |SE UND MASKE AUS|
00003590: 00 AB 3D 5A C3 4C 44 59 20 59 33 3B 22 44 45 52 |..=Z.LDY Y3;"DER|
000035A0: 20 50 4C 4F 54 47 52 41 46 49 4B 00 B6 3D 6E C3 | PLOTGRAFIK..=n.|
000035B0: 4C 44 41 20 58 44 00 C1 3D 78 C3 AF 20 23 24 46 |LDA XD..=x.. #$F|
000035C0: 38 00 D1 3D 82 C3 41 44 43 20 50 54 41 42 4C 2C |8..=..ADC PTABL,|
000035D0: 59 00 DE 3D 8C C3 53 54 41 20 50 54 52 31 00 EB |Y..=..STA PTR1..|
000035E0: 3D 96 C3 4C 44 41 20 58 44 AA 31 00 FC 3D A0 C3 |=..LDA XD.1..=..|
000035F0: 41 44 43 20 50 54 41 42 48 31 2C 59 00 0B 3E AA |ADC PTABH1,Y..>.|
00003600: C3 53 54 41 20 50 54 52 31 AA 31 00 16 3E B4 C3 |.STA PTR1.1..>..|
00003610: 4C 44 59 20 58 44 00 25 3E BE C3 4C 44 41 20 4D |LDY XD.%>..LDA M|
00003620: 54 41 42 2C 59 00 33 3E C8 C3 53 54 41 20 58 44 |TAB,Y.3>..STA XD|
00003630: 4D 53 4B 00 39 3E D2 C3 3B 00 58 3E DC C3 3B 41 |MSK.9>..;.X>..;A|
00003640: 44 52 45 53 53 45 20 55 4E 44 20 4D 41 53 4B 45 |DRESSE UND MASKE|
00003650: 20 41 55 53 20 44 45 52 00 72 3E E6 C3 4C 44 59 | AUS DER.r>..LDY|
00003660: 20 59 31 3B 41 55 53 47 41 4E 47 53 47 52 41 46 | Y1;AUSGANGSGRAF|
00003670: 49 4B 00 7D 3E F0 C3 4C 44 41 20 58 43 00 88 3E |IK.}>..LDA XC..>|
00003680: FA C3 AF 20 23 24 46 38 00 98 3E 04 C4 41 44 43 |... #$F8..>..ADC|
00003690: 20 50 54 41 42 4C 2C 59 00 A5 3E 0E C4 53 54 41 | PTABL,Y..>..STA|
000036A0: 20 50 54 52 32 00 B2 3E 18 C4 4C 44 41 20 58 43 | PTR2..>..LDA XC|
000036B0: AA 31 00 C3 3E 22 C4 41 44 43 20 50 54 41 42 48 |.1..>".ADC PTABH|
000036C0: 32 2C 59 00 D2 3E 2C C4 53 54 41 20 50 54 52 32 |2,Y..>,.STA PTR2|
000036D0: AA 31 00 DD 3E 36 C4 4C 44 59 20 58 43 00 EC 3E |.1..>6.LDY XC..>|
000036E0: 40 C4 4C 44 41 20 4D 54 41 42 2C 59 00 FA 3E 4A |@.LDA MTAB,Y..>J|
000036F0: C4 53 54 41 20 58 43 4D 53 4B 00 00 3F 54 C4 3B |.STA XCMSK..?T.;|
00003700: 00 08 3F 5E C4 52 54 53 00 0E 3F 68 C4 3B 00 21 |..?^.RTS..?h.;.!|
00003710: 3F 5F EA 3B 49 4E 49 54 49 41 4C 49 53 49 45 8A |?_.;INITIALISIE.|
00003720: 47 00 35 3F 60 EA 49 4E 49 54 20 4A 53 52 20 43 |G.5?`.INIT JSR C|
00003730: 48 4B 43 4F 4D 00 42 3F 6A EA 4A 53 52 20 A1 42 |HKCOM.B?j.JSR .B|
00003740: 59 54 00 4A 3F 74 EA 54 58 41 00 52 3F 7E EA 41 |YT.J?t.TXA.R?~.A|
00003750: 53 4C 00 5A 3F 88 EA 41 53 4C 00 62 3F 92 EA 41 |SL.Z?..ASL.b?..A|
00003760: 53 4C 00 6A 3F 9C EA 41 53 4C 00 72 3F A6 EA 41 |SL.j?..ASL.r?..A|
00003770: 53 4C 00 8B 3F B0 EA 53 54 41 20 50 54 52 32 AA |SL..?..STA PTR2.|
00003780: 31 3B 53 4F 55 52 43 45 20 48 42 00 9A 3F C4 EA |1;SOURCE HB..?..|
00003790: 4A 53 52 20 43 48 4B 43 4F 4D 00 A7 3F CE EA 4A |JSR CHKCOM..?..J|
000037A0: 53 52 20 A1 42 59 54 00 AF 3F D8 EA 54 58 41 00 |SR .BYT..?..TXA.|
000037B0: B7 3F E2 EA 41 53 4C 00 BF 3F EC EA 41 53 4C 00 |.?..ASL..?..ASL.|
000037C0: C7 3F F6 EA 41 53 4C 00 CF 3F 00 EB 41 53 4C 00 |.?..ASL..?..ASL.|
000037D0: D7 3F 0A EB 41 53 4C 00 EF 3F 14 EB 53 54 41 20 |.?..ASL..?..STA |
000037E0: 50 54 52 31 AA 31 3B 44 45 53 54 2E 20 48 42 00 |PTR1.1;DEST. HB.|
000037F0: 17 40 48 EE 4C 44 59 20 23 24 30 30 3B 47 52 41 |.@H.LDY #$00;GRA|
00003800: 46 49 4B 20 5A 45 49 C3 41 4E 46 41 4E 47 53 41 |FIK ZEI.ANFANGSA|
00003810: 44 52 45 53 53 45 4E 00 24 40 66 EE 53 54 59 20 |DRESSEN.$@f.STY |
00003820: 50 54 52 31 00 31 40 7A EE 53 54 59 20 50 54 52 |PTR1.1@z.STY PTR|
00003830: 32 00 37 40 8E EE 3B 00 44 40 98 EE 4C 44 58 20 |2.7@..;.D@..LDX |
00003840: 23 24 30 30 00 4A 40 AC EE 3B 00 52 40 B6 EE 43 |#$00.J@..;.R@..C|
00003850: 4C 43 00 58 40 C0 EE 3B 00 65 40 CA EE 49 4E 4C |LC.X@..;.e@..INL|
00003860: 31 20 54 59 41 00 72 40 D4 EE 41 44 43 20 50 54 |1 TYA.r@..ADC PT|
00003870: 52 31 00 82 40 DE EE 53 54 41 20 50 54 41 42 4C |R1..@..STA PTABL|
00003880: 2C 58 00 8A 40 E8 EE 50 48 50 00 99 40 F2 EE 4C |,X..@..PHP..@..L|
00003890: 44 41 20 50 54 52 31 AA 31 00 A6 40 FC EE 41 44 |DA PTR1.1..@..AD|
000038A0: 43 20 23 24 30 30 00 B7 40 06 EF 53 54 41 20 50 |C #$00..@..STA P|
000038B0: 54 41 42 48 31 2C 58 00 BF 40 10 EF 50 4C 50 00 |TABH1,X..@..PLP.|
000038C0: CE 40 1A EF 4C 44 41 20 50 54 52 32 AA 31 00 DB |.@..LDA PTR2.1..|
000038D0: 40 24 EF 41 44 43 20 23 24 30 30 00 EC 40 2E EF |@$.ADC #$00..@..|
000038E0: 53 54 41 20 50 54 41 42 48 32 2C 58 00 F4 40 38 |STA PTABH2,X..@8|
000038F0: EF 49 4E 58 00 FC 40 42 EF 49 4E 59 00 09 41 4C |.INX..@B.INY..AL|
00003900: EF 43 50 59 20 23 24 30 38 00 16 41 56 EF 42 43 |.CPY #$08..AV.BC|
00003910: 43 20 49 4E 4C 31 00 1C 41 60 EF 3B 00 29 41 6A |C INL1..A`.;.)Aj|
00003920: EF 4C 44 59 20 23 24 30 30 00 2F 41 74 EF 3B 00 |.LDY #$00./At.;.|
00003930: 3C 41 7E EF 4C 44 41 20 50 54 52 31 00 4A 41 88 |<A~.LDA PTR1.JA.|
00003940: EF 41 44 43 20 23 B3 33 31 39 00 57 41 92 EF 53 |.ADC #.319.WA..S|
00003950: 54 41 20 50 54 52 31 00 66 41 9C EF 4C 44 41 20 |TA PTR1.fA..LDA |
00003960: 50 54 52 31 AA 31 00 74 41 A6 EF 41 44 43 20 23 |PTR1.1.tA..ADC #|
00003970: B1 33 31 39 00 83 41 B0 EF 53 54 41 20 50 54 52 |.319..A..STA PTR|
00003980: 31 AA 31 00 89 41 BA EF 3B 00 96 41 C4 EF 4C 44 |1.1..A..;..A..LD|
00003990: 41 20 50 54 52 32 00 A4 41 CE EF 41 44 43 20 23 |A PTR2..A..ADC #|
000039A0: B3 33 32 30 00 B1 41 D8 EF 53 54 41 20 50 54 52 |.320..A..STA PTR|
000039B0: 32 00 C0 41 E2 EF 4C 44 41 20 50 54 52 32 AA 31 |2..A..LDA PTR2.1|
000039C0: 00 CE 41 EC EF 41 44 43 20 23 B1 33 32 30 00 DD |..A..ADC #.320..|
000039D0: 41 F6 EF 53 54 41 20 50 54 52 32 AA 31 00 E3 41 |A..STA PTR2.1..A|
000039E0: 00 F0 3B 00 F0 41 0A F0 43 50 58 20 23 24 43 38 |..;..A..CPX #$C8|
000039F0: 00 FD 41 14 F0 42 43 43 20 49 4E 4C 31 00 21 42 |..A..BCC INL1.!B|
00003A00: 1E F0 3B 20 4D 41 53 4B 45 4E 54 41 42 45 4C 4C |..; MASKENTABELL|
00003A10: 45 20 24 38 30 2C 24 34 30 2C 24 32 30 2C 24 31 |E $80,$40,$20,$1|
00003A20: 30 00 4C 42 1F F0 3B 20 20 20 20 20 20 20 20 20 |0.LB..; |
00003A30: 20 20 20 20 20 20 24 30 38 2C 24 30 34 2C 24 30 | $08,$04,$0|
00003A40: 32 2C 24 30 31 20 55 2E 53 2E 57 2E 00 5E 42 28 |2,$01 U.S.W..^B(|
00003A50: F0 49 4E 4C 32 20 4C 44 41 20 23 24 38 30 00 72 |.INL2 LDA #$80.r|
00003A60: 42 32 F0 49 4E 4C 33 20 53 54 41 20 4D 54 41 42 |B2.INL3 STA MTAB|
00003A70: 2C 59 00 7A 42 3C F0 49 4E 59 00 82 42 46 F0 4C |,Y.zB<.INY..BF.L|
00003A80: 53 52 00 8F 42 50 F0 42 43 43 20 49 4E 4C 33 00 |SR..BP.BCC INL3.|
00003A90: 97 42 5A F0 54 59 41 00 A4 42 64 F0 42 4E 45 20 |.BZ.TYA..Bd.BNE |
00003AA0: 49 4E 4C 32 00 C3 42 6E F0 3B 20 47 52 41 46 49 |INL2..Bn.; GRAFI|
00003AB0: 4B 20 41 42 20 24 36 30 30 30 20 4C 4F 45 53 43 |K AB $6000 LOESC|
00003AC0: 48 45 4E 00 D3 42 78 F0 4C 44 41 20 23 B3 24 36 |HEN..Bx.LDA #.$6|
00003AD0: 30 30 30 00 E3 42 82 F0 4C 44 59 20 23 B1 24 36 |000..B..LDY #.$6|
00003AE0: 30 30 30 00 F0 42 8C F0 4C 44 58 20 23 24 32 30 |000..B..LDX #$20|
00003AF0: 00 FD 42 96 F0 53 54 41 20 50 54 52 31 00 0C 43 |..B..STA PTR1..C|
00003B00: A0 F0 53 54 59 20 50 54 52 31 AA 31 00 14 43 AA |..STY PTR1.1..C.|
00003B10: F0 54 41 59 00 1A 43 B4 F0 3B 00 2F 43 BE F0 43 |.TAY..C..;./C..C|
00003B20: 4C 31 20 53 54 41 20 28 50 54 52 31 29 2C 59 00 |L1 STA (PTR1),Y.|
00003B30: 37 43 C8 F0 49 4E 59 00 43 43 D2 F0 42 4E 45 20 |7C..INY.CC..BNE |
00003B40: 43 4C 31 00 52 43 DC F0 49 4E 43 20 50 54 52 31 |CL1.RC..INC PTR1|
00003B50: AA 31 00 5A 43 E6 F0 44 45 58 00 66 43 F0 F0 42 |.1.ZC..DEX.fC..B|
00003B60: 4E 45 20 43 4C 31 00 83 43 FA F0 3B 20 46 41 52 |NE CL1..C..; FAR|
00003B70: 42 45 20 42 45 49 20 24 35 43 30 30 20 53 45 54 |BE BEI $5C00 SET|
00003B80: 5A 45 4E 00 93 43 04 F1 4C 44 59 20 23 B3 24 35 |ZEN..C..LDY #.$5|
00003B90: 43 30 30 00 A3 43 0E F1 4C 44 41 20 23 B1 24 35 |C00..C..LDA #.$5|
00003BA0: 43 30 30 00 B0 43 18 F1 4C 44 58 20 23 24 30 34 |C00..C..LDX #$04|
00003BB0: 00 BD 43 22 F1 53 54 59 20 50 54 52 31 00 CC 43 |..C".STY PTR1..C|
00003BC0: 2C F1 53 54 41 20 50 54 52 31 AA 31 00 D9 43 36 |,.STA PTR1.1..C6|
00003BD0: F1 4C 44 41 20 23 24 31 30 00 DF 43 40 F1 3B 00 |.LDA #$10..C@.;.|
00003BE0: F4 43 4A F1 43 4C 32 20 53 54 41 20 28 50 54 52 |.CJ.CL2 STA (PTR|
00003BF0: 31 29 2C 59 00 FC 43 54 F1 49 4E 59 00 08 44 5E |1),Y..CT.INY..D^|
00003C00: F1 42 4E 45 20 43 4C 32 00 17 44 68 F1 49 4E 43 |.BNE CL2..Dh.INC|
00003C10: 20 50 54 52 31 AA 31 00 1F 44 72 F1 44 45 58 00 | PTR1.1..Dr.DEX.|
00003C20: 2B 44 7C F1 42 4E 45 20 43 4C 32 00 31 44 86 F1 |+D|.BNE CL2.1D..|
00003C30: 3B 00 39 44 90 F1 52 54 53 00 3F 44 9A F1 3B 00 |;.9D..RTS.?D..;.|
00003C40: 00 00 |.. |
..H.... CLR:A$="VERZERRER":OPEN1,8,15,"S
:"+A$:CLOSE1:SAVEA$,8:VERIFYA$,8.[.D..56
,80:.:.2.15.A.E.;...F.; VERZERRER V. J.S
CHWARZER 1987...G.;.A.H.; TESTED, REVISE
D . W.KED OUT BY NIKOLAUS HEUSLER.G.I.;.
S.N..OPT OO...X... $5000.....;... .COLNA
CH . $5C00;FARBE PLOTGRAFIK.....;.2...X1
. $A4 ; SPEICHERZELC FUER.W...Y1 . $A6
; AUSSCHNITTSKO.DINATEN.D.H.X2 . $A7.Q.R
.Y2 . $A9.~...X3 . $AA.....Y3 . $AC.....
X4 . $AD.....Y4 . $AF.....;.Q...D1 . $F7
; D.FERENZEN DER EINZEL......D2 . $F9 ;
NEN KO.DINATEN...".D3 . $FA...,.D4 . $F
C...6.;.5.@.A1 . $61 ; PUNKTEANZAHL & ZA
EHLER.B.J.A2 . $12.O.T.AA . $63.U.^.;.W.
H.F1 . $9E ; APPROXIMATI.SWERTE...R.F2 .
$BB...|.FF . $8B.....;.....XA . $8D ; K
O.DINATENZWISCHEN..R...XB . $8F ; SPEICH
ER.....XC . $47.....XD . $14.....;...B.X
CMSK . $A0 ; PLOTMASKEN...L.XDMSK . $A1.
%.V.;.I...PTR1 . $3F ; ZEIGER DESTINATI.
,.O...PTR2 . $41 ; ZEIGER SOURCE GRAFIK.
U...;.....PTABL . . . $800 ; TABELC FUE
R GRAFIK..F...PTABH1 . . . $900 ; ZEICAN
FAENGE.....PTABH2 . . . $A00 ; DEST. & S
OURCE.....MTAB . . . $B00 ; MASKENTABE
LLE...&.;.J.0.CHKCOM . $AEFD ; ERWARTET
KOMMA IM BASICTEXT.R.:..C. . $B7EB ; HOL
T 16. & 8.BIT WERT...D..BYT . $B79E ; HO
LT 8.BIT WERT...N.;.....; MACROS !!.Q...
; ERHOEHT SOURCE PIXELZEIGER UM 1.....IN
C.XC .MAC.....LSR XCMSK.....BCC .INC.XCL
1.....R. XCMSK...$.LDA PTR2.(...ADC #$08
.5.8.STA PTR2.G.B.BCC .INC.XCL1.V.L.INC
PTR2.1.^.V.CLC.P.`.INC.XCL1 .MEN...J.; E
RHOEHT DEST. PIXELZEIGER UM 1...T.INC.XD
.MAC...~.LSR XDMSK.E...BCC .INC.XDL1.R.
..R. XDMSK.....LDA PTR1.....ADC #$08....
.STA PTR1.....BCC .INC.XDL1...D.INC PTR1
.1.".N.CLC.4.X.INC.XDL1 .MEN.[...; SETZT
IN ABHAENGIGKEIT V. SOURCE.{...; IN DES
TINATI. EINEN PUNKT.....TEPL .MAC.....LD
Y #$00.....LDA (PTR2),Y...... XCMSK.B...
BEQ .TEPL1.S...LDA (PTR1),Y......A XDMSK
...(.BNE .TEPL2...2.TEPL1 LDA XDMSK...<.
E. #$FF...F.. (PTR1),Y.5.P.TEPL2 STA (PT
R1),Y.>.Z..MEN.D.D.;.K.O.;..............
......................P.JMP INIT ; INITI
ALISIE.G...Z.;.....JSR CHKCOM ; HOLT KO.
DINATEN SOURCE.U...JSR .C. ; LINKE OBERE
ECKE.....LDA $14.....LDY $15.....STA X1
.....STY X1.1... .STX Y1...*.JSR CHKCOM.
@.4.JSR .C. ; RECHTE UNTERE ECKE.L.>.LDA
$14.X.H.LDY $15.C.R.STA X2.P.\.STY X2.1
.{.F.STX Y2...P.JSR CHKCOM ; HOLT KO.DIN
ATEN DEST..A.Z.JSR .C. ; LINKE OBERE ECK
E.M...LDA $14.Y...LDY $15.....STA X3....
.STY X3.1.....STX Y3.....JSR CHKCOM.,...
JSR .C. ; RECHTE UNTERE ECKE.8.J.LDA $14
.D.T.LDY $15.O...STA X4.\...STY X4.1.G..
.STX Y4.M...;.....SEI ; .ERRUPT AUS.....
LDA #"0" ; ALLE ROM'S UND I.O AUS.A...ST
A 1 ; ( NUR RAM ).G.$.;.....SEC ;D.FEREN
Z DER SOURCE X.KO.D....B.LDA X2...L.SBC
X1...V.STA D1.....LDA X2.1.'...SBC X1.1.
4...STA D1.1.:...;._...SEC ;D.FERENZ DER
SOURCE Y.KO.D..J...LDA Y2.U...SBC Y1...
&.STA D2...0.;...:.SEC ;D.FERENZ DER DES
T. X.KO.D....D.LDA X4...N.SBC X3.K.X.STA
D3.X.B.LDA X4.1...L.SBC X3.1...V.STA D3
.1.....;.....SEC ;D.FERENZ DER DEST. Y.K
O.D..'...LDA Y4.2...SBC Y3.=...STA D4.D.
..;.....................................
.;INSGESAMMT GIBT ES VIER MOEGLICH......
;KEITEN :.....;.C...;1.) VERGROESSE.G IN
X.RICHTUNG.....; VERGROESSE.G IN Y.R
ICHTUNG.....;ZEILE 10000 FF.....;.%...;2
.) VERGROESSE.G IN X.RICHTUNG.I...; V
ERKLEINE.G IN Y.RICHTUNG.]...;ZEILE 200
00 FF.C...;.....;3.) VERKLEINE.G IN X.R
ICHTUNG.....; VERGROESSE.G IN Y.RICHT
UNG.....;ZEILE 30000 FF.E...;...A.;4.) V
ERKLEINE.G IN X.RICHTUNG...B.; VERKL
EINE.G IN Y.RICHTUNG.!.C.;ZEILE 40000 F
F.'.D.;.N.G.;...........................
.......T.H.;.T.P.LDA D1.1;DXSOURCE . DXD
EST....Z.CMP D3.1.....BNE L1.....LDA D1.
....CMP D3.....L1 BCC L3; JA,... L3.A...
;...*.LDA D4;DYDEST. .. DYSOURCE...4.CMP
D2...>.BCS L2;JA,... L2...H.JMP L40000;
ZUR ZEILE 40000.%.R.;.H.P.L2 JMP L30000;
ZUR ZEILE 30000.N.Z.;.N...L3 LDA D4;DXD
EST .. DXDEST..Y...CMP D2.....BCS L10000
;JA, ... ZEILE 10000.....JMP L20000;ANS.
STEN ZEILE 20000.F...;....';............
........................';X & Y VERGROES
SERN...$'; ZEILE 10000....';.A.8'L10000
LDA D3.1;APROXIMATI.SWERT.D.B'STA AA.1;U
ND ANZAHL DER PUNKTE.{.L'STA A1.1;PRO ZE
ILE...V'LSR;MSB'S...`'STA F1.1...J'STA F
F.1...~';....'LDA D3;LSB'S.E..'STA AA.M.
.'TAX.T..'R.....'STA F1....'STA FF...D';
...N'LDA D4;ANZAHL ZEIC...X'STA A2....';
. ..(LSR.:..(STA F2;ZEIC APR. WERT.@..(;
.B.2(LDA X1;START X.WERT SPEICHERN...<(L
DY X1.1;DA SICH DIE KO.DINATEN...F(STA X
A;A.ERN MUESSEN DIESE.D.P(STY XA.1;WERTE
RESTAURIERT.V.Z(STA XC;WERDEN...D(STY X
C.1;(SOURCE)...N(;...X(LDA X3;(DESTINATI
.)....(LDY X3.1."..(STA XB./..(STY XB.1.
:. (STA XD.G..(STY XD.1.M..(;.V..(L10011
A JSR ADR;STARTADRESSE 1.PUNKT.|.H(;. .R
(; TESTPLOT SETZT ENTSPRECH. DER.G..(; S
OURCE IN DESTINATI. EINEN PUNKT.X..(L100
30 'TEPL....(;....(; LINE 1 ALKRITHMUS..
..);. ..)L10040 LDA F1;APPR. . DX SOURCE
.+..)ADC D1.6.")STA F1.C.,)LDA F1.1.P.6)
ADC D1.1.].@)STA F1.1.C.J);.}.T);" APPR.
< DX DEST. ?...^);...H)L10050 LDY F1.1.
..R)CPY D3.1...|)BNE L10050A....)LDA F1.
J..)CMP D3....)L10050A BCC L10100; JA, O
K....);....); APPROXIMATI.SWERT K.RIGIER
EN...B)LDA F1;F1.F1 . DX DEST..9.L)SBC D
3.D.V)STA F1.L..)TYA.Y..)SBC D3.1.F..)ST
A F1.1.L..);....*; NAECHSTER PIXEL SOURC
E....*;....*'INC.XC...&*;.B.0*; NAECHSTE
R PIXEL DESTINATI..H.:*;...D*L10100 'INC
.XD...N*;...X*;" ZEILE FERTIG ?...B*;...
L*TXA...V*BNE L10120A."..*DEC A1.1.1..*B
NE L10140.A..*L10120A DEX.G..*;.V..*BCC
L10030.\..*;.U..*; JA, NAECHSTE ZEILE...
F*; LINE 2 ALKRITHMUS...P*L10140 LDA F2;
APPR.WERT . DY SOURCE...Z*ADC D2.F..*;..
..*;"APPR.WERT < DY DEST. ?....*;....+BC
S L10160....+CMP D4. ..+BCC L10200; JA,
ALLES OK.&. +;.=.*+; NEIN, K.RIGIEREN.C.
4+;.U.>+L10160 SBC D4.[.H+;.W.R+; ZEILE
SOURCE ERHOEHEN.}.\+;...F+INC Y1...P+;..
.Z+; ZEILE DESTINATI. ERHOEHEN....+;.F..
+L10200 STA F2.Q..+INC Y3.W..+;....+; AL
LES AUF ANFANGSZUS.D BIS....+; AUF ZEICN
UMMERN. ..+L10220 LDX AA.-.J+LDA AA.1.:.
T+STA A1.1.@..+;.K..+LDA FF.X..+LDY FF.1
.C..,STA F1.P..,STY F1.1.V..,;...$,LDA X
A....,LDY XA.1...8,STA XC...B,STY XC.1..
.L,;...V,LDA XB.D.`,LDY XB.1.O.J,STA XD.
..T,STY XD.1...~,;....,;"SCHON ALLE ZEIL
EN ?....,;....,L10230 LDY A2....,BEQ .1.
'..,DEY.2..,STY A2.8.D,;.W.N,JMP L10011A
; NEIN, SCHLE.E.].X,;.Z..,.1 LDA #"7"; J
A,ROMS EIN....,STA 1....,CLI;.ERRUPT ZUL
ASSEN....-RTS;.E....-;.T. N;............
.......................*N;X VERG. . Y VE
RKL....4N; ZEILE 20000.. >N;.& HNL20000
LDA D3.1;APPR.WERT UND.I RNSTA A1.1;ANZA
HL DER PUNKTE PRO.\ \NSTA AA.1;ZEILE.J F
NLSR;MSB'S.W PNSTA F1.1.. ZNSTA FF.1.. .
N;.. .NLDA D3;LSB'S.. .NTAX.. .NSTA AA..
.NR... .NSTA F1.K JNSTA FF.Q TN;.. .NLD
A D2;ANZAHL ZEIC.. .NSTA A2.. .N;..!.OLS
R..!.OSTA F2;LINE 2 APPR. WERT.$!$O;.E!B
OLDA X1;PIXELBEGINN PRO ZEILE.\!LOLDY X1
.1;SPEICHERN.S!VOSTA XA;FUER SOURCE..!`O
STY XA.1..!JOSTA XC..!TOSTY XC.1..!~O;..
!.OLDA X3;UND DESTINATI..E!.OLDY X3.1.P!
.OSTA XB..!.OSTY XB.1..!.OSTA XD..!.OSTY
XD.1..!DO;.""NOL20011A JSR ADR;ADRESSEN
BERECHNEN.G"XO; TESTPLOT SETZT PUNKTE I
N DEST..J".O; GRAFIK IN DER GLEICHEN FAR
BE..".O; WIE SOURCEGRAFIK..".OL20030 'TE
PL..".P;..".P; LINE 1 ALKRITHMUS..".P;.Z
".PL20040 LDA F1;APPR. . DX SOURCE.."(PA
DC D1.."2PSTA F1.."<PLDA F1.1..#FPADC D1
.1..#PPSTA F1.1..#ZP;.7#DP;" APPR. < DX
DEST. ?.=#NP;.J#XPLDY F1.1.W#.PCPY D3.1.
G#.PBNE L20050A.R#.PLDA F1.}# PCMP D3. #
.PL20050A BCC L20100;JA, DANN OK..#.P;..
#.P; NEIN, K.RIGIEREN.C#HP;.N#RPLDA F1.Y
#.PSBC D3..#.PSTA F1..#.PTYA..#.PSBC D3.
1..$.QSTA F1.1..$.Q;.)$.Q; NAECHSTER PUN
KT SOURCE./$"Q;.;$,Q'INC.XC.A$6Q;.B$@Q;
NAECHSTER PUNKT DESTINATI..H$JQ;.{$TQL20
100 'INC.XD..$^Q;..$HQ;" ALLE PUNKTE EIN
ER ZEILE ?..$RQ;..$|QTXA..$.QBNE L20120A
.M$.QDEC A1.1..$.QBNE L20140..$.QL20120A
DEX..$.Q;..%.QBCC L20030;NEIN, SCHLE.E.
.%BQ;..%LQ; JA, NAECHSTE ZEILE.F%VQ; LIN
E 2 ALKRITHMUS.I%.QL20140 LDA F2;APPR. .
DY DEST..T%.QADC D4.Z%.Q;..%.Q;"APPR. <
DY SOURCE..%.R;..%.RBCS L20160..%.RSTA
F2..%.RCMP D2.S%&RBCC L20200;JA, OK.Y%0R
;..%:R; NEIN, K.RIGIEREN..%DR;..&NRL2016
0 SBC D2..&ORSTA F2..&XR;.7&BR; ZEILE IN
DEST. ERHOEHEN.=&LR;.H&VRINC Y3.N&.R;.M
&.RL20181 LDA #.L20030;ZEIGER..&.RLDY #.
L20030;VERLEGEN..&.RBNE L20200A;SOURCE Z
EILE ZEICHNEN..&.R;.V&FR; ZEIGER VERBIEG
EN,SOURCE ZEIC..&PR; UEBERSPRINGEN..'ZRL
20200 LDA #.L20140..'.RLDY #.L20140..'.R
;.0'.RL20200A STA JMP1.1.?'.SSTY JMP1.2.
E'.S;.R'.SLDY #$00.X' S;.Z'4SINC Y1; SOU
RCE ZEILE ERHOEHEN..'>S;..'HS; ZEILE 202
20..'RS;..'\SLDX AA;ALLES ZURUECKSETZEN.
D'FSLDA AA.1.Q'ZSSTA A1.1.W'.S;..'.SLDA
FF..'.SLDY FF.1..'.SSTA F1..(.SSTY F1.1.
.(.S;..(.SLDA XA.%(JSLDY XA.1.0(TSSTA XC
.=(.SSTY XC.1.C(.S;.N(.SLDA XB.[(.SLDY X
B.1.F(.TSTA XD.S(.TSTY XD.1.Y(.T;..($T;"
ANZAHL ZEILEN DEST. ERREICHT ?..(.T;..(8
TLDY A2..(BTBEQ .2;JA,.E.Y(LTDEY;NEIN,ER
NIEDRIGEN..(VTSTY A2..(`T;..)JTJSR ADR;N
EUE ANFANGSADRESSE..)TT;.6)~TJMP1 JMP $F
FFF;SPRINGEN WIE BEFOC.<).T;.S).T.2 LDA
#"7";FERTIG.]).TSTA 1.E).TCLI.M).TRTS.S)
.T;..)0U;...............................
...):U;X VERKL. . Y VERGR..D)DU; ZEILE 3
0000.J)NU;..)XUL30000 LDA D1.1;APPR. WER
T UND..*BUSTA A1.1;ANZAHL DER PUNKTE PRO
ZEILE.3*LUSTA AA.1;SPEICHERN (MSB).;*VU
LSR.H*.USTA F1.1.U*.USTA FF.1.[*.U;.O*.U
LDA D1;HIER LSB.W*.UTAX..*.USTA AA..*FUR
...*PUSTA F1..*ZUSTA FF..*.U;.B*.ULDA D4
;ANZAHL ZEIC DEST..M*.USTA A2.S*.V;..* V
LSR..**VSTA F2;LINE 2 APPR. WERT..*4V;.(
+RVLDA X1;ALLE X.WERTE ZWISCHENSPEICHERN
.<+\VLDY X1.1;SOURCE.G+FVSTA XA.T+PVSTY
XA.1._+ZVSTA XC.L+.VSTY XC.1.R+.V;..+.VL
DA X3;DESTINATI...+.VLDY X3.1. +.VSTA XB
..+.VSTY XB.1..+.VSTA XD.E+JVSTY XD.1.K+
TV;..+.VL30011A JSR ADR;ADRESSE _.ECHNEN
..,.V; SETZT IN DEST EINEN PUNKT,WENN.;,
.V; PUNKT IN SOURCE GESETZT WAR,AN..W,.V
; S.STEN LOESCHT ER IHN.H,.WL30030 'TEPL
.N,.W;..,.W; LINE 1 ALKRITHMUS..,$W;..,.
WL30040 CLC;APPR.WERT . DX DEST...,8WLDA
F1.F,BWADC D3.Q,LWSTA F1..,VWLDA F1.1..
,`WADC D3.1..,JWSTA F1.1..,TW;..-~W;" AP
PR.WERT < DX SOURCE.!-.W;..-.WLDY F1.1.;
-.WCPY D1.1.K-.WBNE L30050A.V-.WLDA F1.A
-.WCMP D1..-DWL30050A BCC L30100;JA, ALL
ES KLAR..-NW;..-XW; NEIN,K.RIGIEREN..-.W
;.F-.WLDA F1;APPR. . DX SOURCE.Q-.WSBC D
1..-.XSTA F1..-.XTYA..-.XSBC D1.1..-.XST
A F1.1...(X;...2X; XK SOURCE ERHOEHEN.#.
<X;./.FX'INC.XC.5.PX;.M.ZX; XK DEST. ERH
OEHEN.S.DX;._.NX'INC.XD.E.XX;....X;"ALLE
PUNKTE IN DEST. ZEILE ?....X;....XTXA..
. XBNE L30083A....XDEC A1.1.X..XBNE L301
40;JA, LINE 2 ALKRITHMUS....XL30083A DEX
...HX;../RXJMP L30030;NEIN, SCHLE.E../.X
;.*/.X; XK SOURCE ERHOEHEN.0/.X;.C/.XL30
100 'INC.XC.I/.Y;.L/.Y;"ALLE PUNKTE IN D
EST. ZEILE ?.R/.Y;../"YL30120 TXA../,YBN
E L30120A../6YDEC A1.1.C/@YBNE L30140;JA
, LINE 2 ALKRITHMUS.S/JYL30120A DEX.Y/TY
;../^YJMP L30040;NEIN, SCHLE.E../HY;..0R
Y; LINE 2 ALKRITHMUS..0|Y;.B0.YL30140 LD
A F2;APPR.WERT . DY SOURCE.M0.YADC D2.S0
.Y;.N0.Y;"APPR.WERT < DY DEST..T0.Y;..0.
YBCS L30160..0BYCMP D4..0LYBCC L30200;JA
, NUR DEST. ZEILE ERH...0VY;.M0.Y; K.RIG
IEREN.S0.Y;..0.YL30160 SBC D4..0.Y;..1.Z
; SOURCE ZEICNUMMER ERHOEHEN..1.Z;..1.ZI
NC Y1.#1&Z;.C10Z; DEST. ZEICNUMMER ERHOE
HEN.I1:Z;.P1DZL30200 STA F2;APPR. WERT S
PEICHERN.{1NZINC Y3..1XZ;..1BZ; ALL XK .
XAPPR. RESET..1LZ;..1VZL30220 LDX AA.B1
.ZLDA AA.1.O1.ZSTA A1.1.U1.Z;..1.ZLDA FF
..1.ZLDY FF.1..1.ZSTA F1..2FZSTY F1.1..2
PZ;..2ZZLDA XA.#2.ZLDY XA.1..2.ZSTA XC.;
2.ZSTY XC.1.A2.{;.L2.{LDA XB.Y2.{LDY XB.
1.D2 {STA XD.Q2*{STY XD.1.W24{;..2>{;" A
LLE ZEILEN ?..2H{;..2R{L30230 LDY A2..2\
{BEQ .3;JA, .E..2F{DEY.I2P{STY A2.O2Z{;.
.2.{JMP L30011A;NEIN, SCHLE.E..2.{;..3.{
.3 LDA #"7"..3.{STA 1..3.{CLI..3.{RTS.#3
.{;.I3@.;...............................
..B3J.;X VERKL. . Y VERKL..T3T.; ZEILE 4
0000.Z3^.;..3H.L40000 LDA D1.1;APPR.WERT
...3R.STA A1.1;ANZAHL DER PUNKTE PRO.V3
|.STA AA.1;DEST. ZEILE..3..LSR..3..STA F
1.1;MSB..3..STA FF.1..4..;..4..LDA D1;AU
CH FUER LSB.#4..TAX..4B.STA AA.54L.R..@4
V.STA F1.K4..STA FF.Q4..;.N4..LDA D2;ANZ
AHL DEST. ZEIC.Y4..STA A2.4..;..4&.LSR.
.40.STA F2;LINE 2 APPR.WERT..4:.;.C4D.;
ALL XK . XAPPR. SET.I4N.;.T4X.LDA X1..4B
.LDY X1.1..4L.STA XA..4V.STY XA.1..5..ST
A XC..5..STY XC.1..5..;."5..LDA X3./5..L
DY X3.1.:5..STA XB.G5..STY XB.1.R5F.STA
XD._5P.STY XD.1.E5Z.;..5..L40011A JSR AD
R;ADRESSE 1.PUNKT PRO ZEILE..5..;..5..;
PLOTTEN NACH BEWAEHRTEM SCHEMA.D5..;.U5.
.L40030 'TEPL..5..;..6 .; LINE 1 ALKRITH
MUS (ZEILE BEARB.)..6*.;.,64.L40040 LDA
F1;APPR.WERT.DX DEST.76>.ADC D3.B6H.STA
F1.O6R.LDA F1.1.\6\.ADC D3.1.I6F.STA F1.
1.O6P.;..6Z.;"APPR.WERT < DX SOURCE..6..
;..6..L40050 LDY F1.1..6..CPY D1.1.B6..B
NE L40050A.M6..LDA F1.X6..CMP D1..7..L40
050A BCC L40100;JA, SOURCE ERHOEHEN..7J.
;..7T.; K.RIGIEREN. 7..;.27..L40060 LDA
F1.=7..SBC D1.H7..STA F1.P7..TYA.]7..SBC
D1.1.J7..STA F1.1.P7$.;..7..; XK DEST.
ERHOEHEN..78.;..7B.L40080 'INC.XD..7L.;.
.7V.; XK SOURCE ERHOEHEN.F7`.;.Y7J.L4008
1 'INC.XC..7T.;..7~.;"ALLE PUNKTE ?..7..
;..8..L40083 TXA..8..BNE L40083A.%8..DEC
A1.1.G8..BNE L40140;JA, NAECHSTE ZEILE.
W8..L40083A DEX.]8D.;.T8N.JMP L40030;SCH
LE.E.Z8X.;..8..; XK SOURCE ERHOEHEN..8..
; PLOTTEN UEBERSPRINGEN.B8..L40100 'INC.
XC.H8. ;.Z8. ;"ALLE PUNKTE..8. ;..8. L40
120 TXA..8( BNE L40120A..92 DEC A1.1.,9<
BNE L40140;FERTIG MIT ZEILE.<9F L40120A
DEX.B9P ;.A9Z JMP L40040;NAECHSTER PIXE
L.G9D ;.|9N ; NAECHSTE ZEILE..9X ;..9. L
40140 LDA F2;APPR.WERT BERECHNEN..9. ADC
D4..9. ;.J9 ;" WERT OK ?.P9. ;..9. BCS
L40160..9. STA F2..9. CMP D2..:H BCC L4
0200; JA, NAECHSTE SOURCE ZEILE.%:R ;.7:
. ;"KORRIGIEREN.=:. ;.O:. L40160 SBC D2.
Z:. STA F2.`:..;.W:..; YK DEST ERHOEHEN.
}:..;..:".INC Y3..:,.;..:..LDA #.L40030;
ZEILE PLOTTEN..:..LDY #.L40030.N:..BNE L
40200A.T:..;..;..L40200 LDA #.L40140;ZEI
LE NICHT PLOTTEN..;..LDY #.L40140..;&.;.
.;..L40200A STA JMP2.1.=;..STY JMP2.2.C;
..;.A;..INC Y1;YK SOURCE ERHOEHEN.G;..;.
.;F.; XK UND XAPPR.WERT RESET..;P.;..;Z.
L40220 LDX AA..;..LDA AA.1..;..STA A1.1.
.;..;.J;..LDA FF.1.U;..LDY FF..; .STA F1
.1..;*.STY F1..;4.;..;>.LDA XA..<H.LDY X
A.1..<R.STA XC.#<\.STY XC.1.)<F.;.4<P.LD
A XB.A<Z.LDY XB.1.L<..STA XD.Y<..STY XD.
1._<..;.S<..;"ALLE ZEILEN ?.Y<..;..<..L4
0230 LDY A2..<..BEQ .4;JA,.E..<J.DEY..<T
.STY A2..<..;.X<..JSR ADR;NEIN, NEUE ZEI
CADRESSE..<..;..=..JMP2 JMP $FFFF;SPRING
EN WIE FESTGELEGT..=..;."=...4 LDA #"7";
.E.,=..STA 1.4=$.CLI.<=..RTS.B=8.;.H=B.;
.................................N=L.;..
=PCADR CLC;ADRESSE UND MASKE AUS..=ZCLDY
Y3;"DER PLOTGRAFIK..=NCLDA XD.A=XC. #$F
8.Q=.CADC PTABL,Y..=.CSTA PTR1..=.CLDA X
D.1..= CADC PTABH1,Y..>.CSTA PTR1.1..>.C
LDY XD.%>.CLDA MTAB,Y.3>HCSTA XDMSK.9>RC
;.X>.C;ADRESSE UND MASKE AUS DER.R>.CLDY
Y1;AUSGANGSGRAFIK.}>.CLDA XC..>.C. #$F8
..>.DADC PTABL,Y..>.DSTA PTR2..>.DLDA XC
.1.C>"DADC PTABH2,Y.R>,DSTA PTR2.1..>6DL
DY XC..>@DLDA MTAB,Y..>JDSTA XCMSK..?TD;
..?^DRTS..?HD;.!?_.;INITIALISIE.G.5?`.IN
IT JSR CHKCOM.B?J.JSR .BYT.J?T.TXA.R?~.A
SL.Z?..ASL.B?..ASL.J?..ASL.R?..ASL..?..S
TA PTR2.1;SOURCE HB..?D.JSR CHKCOM..?N.J
SR .BYT..?X.TXA..?..ASL..?..ASL.G?..ASL.
O?..ASL.W?..ASL..?..STA PTR1.1;DEST. HB.
.@H.LDY #$00;GRAFIK ZEICANFANGSADRESSEN.
$@F.STY PTR1.1@Z.STY PTR2.7@..;.D@..LDX
#$00.J@..;.R@..CLC.X@..;.E@J.INL1 TYA.R@
T.ADC PTR1..@..STA PTABL,X..@..PHP..@..L
DA PTR1.1..@..ADC #$00..@..STA PTABH1,X.
.@..PLP.N@..LDA PTR2.1..@$.ADC #$00..@..
STA PTABH2,X..@8.INX..@B.INY..AL.CPY #$0
8..AV.BCC INL1..A`.;.)AJ.LDY #$00./AT.;.
<A~.LDA PTR1.JA..ADC #.319.WA..STA PTR1.
FA..LDA PTR1.1.TA..ADC #.319..A..STA PTR
1.1..A..;..AD.LDA PTR2..AN.ADC #.320..AX
.STA PTR2..A..LDA PTR2.1.NA..ADC #.320..
A..STA PTR2.1..A..;..A..CPX #$C8..A..BCC
INL1.!B..; MASKENTABELLE $80,$40,$20,$1
0.LB..; $08,$04,$02,$01 U.
S.W..^B(.INL2 LDA #$80.RB2.INL3 STA MTAB
,Y.ZB<.INY..BF.LSR..BP.BCC INL3..BZ.TYA.
.BD.BNE INL2.CBN.; GRAFIK AB $6000 LOESC
HEN.SBX.LDA #.$6000..B..LDY #.$6000..B..
LDX #$20..B..STA PTR1..C .STY PTR1.1..C.
.TAY..C..;./C..CL1 STA (PTR1),Y.7CH.INY.
CCR.BNE CL1.RC..INC PTR1.1.ZC..DEX.FC..B
NE CL1..C..; FARBE BEI $5C00 SETZEN..C..
LDY #.$5C00..C..LDA #.$5C00..C..LDX #$04
..C".STY PTR1.LC,.STA PTR1.1.YC6.LDA #$1
0..C@.;..CJ.CL2 STA (PTR1),Y..CT.INY..D^
.BNE CL2..DH.INC PTR1.1..DR.DEX.+D|.BNE
CL2.1D..;.9D..RTS.?D..;...
> CLICK IMAGE PREVIEW FOR FULL MODAL