KREIS/ELLIPSE
FILE INFORMATION
FILENAME(S): KREIS/ELLIPSE
FILE TYPE(S): PRG
FILE SIZE: 14.7K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
004545b0cf445560ee761bf96d5f67ace4f9f433eda37f721d29adf504a099aa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | KREIS/ELLIPSE | PRG | Treasure Chest - Klaus Der Suhler | 25 | 12 | DOWNLOAD FILE |
| 90571 | KREIS/ELLIPSE | PRG | BrainSkull, Georg Fuchs 1988 | 25 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 27 2D 64 00 3B 4B 52 45 49 53 AD 45 4C 4C |.-'-d.;KREIS.ELL|
00000010: 49 50 53 45 00 46 2D 65 00 2E 4F 42 22 4B 52 45 |IPSE.F-e..OB"KRE|
00000020: 49 53 2F 45 4C 4C 49 50 53 45 2E 4F 42 4A 2C 50 |IS/ELLIPSE.OBJ,P|
00000030: 2C 57 22 00 54 2D 66 00 20 2E 42 41 24 36 33 38 |,W".T-f. .BA$638|
00000040: 42 00 5A 2D 67 00 3B 00 80 2D 68 00 20 2E 45 51 |B.Z-g.;..-h. .EQ|
00000050: 4B 4F 4D 4D 41 20 3D 20 24 41 45 46 44 20 20 3B |KOMMA = $AEFD ;|
00000060: 4B 4F 4D 4D 41 50 52 55 45 46 55 4E 47 00 A7 2D |KOMMAPRUEFUNG..-|
00000070: 69 00 20 2E 45 51 46 52 4D 4E 55 4D 20 3D 20 24 |i. .EQFRMNUM = $|
00000080: 41 44 38 41 20 3B 41 55 53 44 52 55 43 4B 20 48 |AD8A ;AUSDRUCK H|
00000090: 4F 4C 45 4E 00 CA 2D 6A 00 20 2E 45 51 42 59 54 |OLEN..-j. .EQBYT|
000000A0: 45 20 3D 20 24 42 37 39 45 20 20 20 3B 42 59 54 |E = $B79E ;BYT|
000000B0: 45 20 48 4F 4C 45 4E 00 F3 2D 6B 00 20 2E 45 51 |E HOLEN..-k. .EQ|
000000C0: 58 4C 20 3D 20 24 46 41 20 20 20 20 20 20 20 3B |XL = $FA ;|
000000D0: 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 4C 4F 57 |X-KOORDINATE LOW|
000000E0: 00 1D 2E 6C 00 20 2E 45 51 58 48 20 3D 20 24 46 |...l. .EQXH = $F|
000000F0: 42 20 20 20 20 20 20 20 3B 58 2D 4B 4F 4F 52 44 |B ;X-KOORD|
00000100: 49 4E 41 54 45 20 48 49 47 48 00 42 2E 6D 00 20 |INATE HIGH.B.m. |
00000110: 2E 45 51 59 20 3D 20 24 46 43 20 20 20 20 20 20 |.EQY = $FC |
00000120: 20 20 3B 59 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 | ;Y-KOORDINATE.|
00000130: 63 2E 6E 00 20 2E 45 51 58 52 20 3D 20 24 46 44 |c.n. .EQXR = $FD|
00000140: 20 20 20 20 20 20 20 3B 58 2D 52 41 44 49 55 53 | ;X-RADIUS|
00000150: 00 84 2E 6F 00 20 2E 45 51 59 52 20 3D 20 24 38 |...o. .EQYR = $8|
00000160: 42 20 20 20 20 20 20 20 3B 59 2D 52 41 44 49 55 |B ;Y-RADIU|
00000170: 53 00 A5 2E 70 00 20 2E 45 51 58 4F 46 46 20 3D |S...p. .EQXOFF =|
00000180: 20 24 38 43 20 20 20 20 20 3B 58 2D 4F 46 46 53 | $8C ;X-OFFS|
00000190: 45 54 00 C6 2E 71 00 20 2E 45 51 59 4F 46 46 20 |ET...q. .EQYOFF |
000001A0: 3D 20 24 38 44 20 20 20 20 20 3B 59 2D 4F 46 46 |= $8D ;Y-OFF|
000001B0: 53 45 54 00 EF 2E 72 00 20 2E 45 51 5A 41 45 48 |SET...r. .EQZAEH|
000001C0: 4C 20 3D 20 24 46 45 20 20 20 20 3B 53 43 48 4C |L = $FE ;SCHL|
000001D0: 45 49 46 45 4E 5A 41 45 48 4C 45 52 00 19 2F 73 |EIFENZAEHLER../s|
000001E0: 00 20 2E 45 51 58 31 20 3D 20 24 38 45 20 20 20 |. .EQX1 = $8E |
000001F0: 20 20 20 20 3B 4D 49 54 54 45 4C 50 55 4E 4B 54 | ;MITTELPUNKT|
00000200: 20 58 2D 4C 4F 57 00 44 2F 74 00 20 2E 45 51 58 | X-LOW.D/t. .EQX|
00000210: 32 20 3D 20 24 38 46 20 20 20 20 20 20 20 3B 4D |2 = $8F ;M|
00000220: 49 54 54 45 4C 50 55 4E 4B 54 20 58 2D 48 49 47 |ITTELPUNKT X-HIG|
00000230: 48 00 6B 2F 75 00 20 2E 45 51 4D 55 20 3D 20 24 |H.k/u. .EQMU = $|
00000240: 37 31 20 20 20 20 20 20 20 3B 52 45 43 48 45 4E |71 ;RECHEN|
00000250: 52 45 47 49 53 54 45 52 00 93 2F 76 00 20 2E 45 |REGISTER../v. .E|
00000260: 51 41 4E 51 55 41 20 3D 20 24 42 34 20 20 20 20 |QANQUA = $B4 |
00000270: 3B 41 4E 46 41 4E 47 53 51 55 41 44 52 41 4E 54 |;ANFANGSQUADRANT|
00000280: 00 B7 2F 77 00 20 2E 45 51 45 4E 44 51 55 41 20 |../w. .EQENDQUA |
00000290: 3D 20 24 42 35 20 20 20 3B 45 4E 44 51 55 41 44 |= $B5 ;ENDQUAD|
000002A0: 52 41 4E 54 00 DC 2F 78 00 20 2E 45 51 41 4E 50 |RANT../x. .EQANP|
000002B0: 55 4E 4B 54 20 3D 20 24 42 36 20 20 3B 41 4E 46 |UNKT = $B6 ;ANF|
000002C0: 41 4E 47 53 50 55 4E 4B 54 00 FD 2F 79 00 20 2E |ANGSPUNKT../y. .|
000002D0: 45 51 45 4E 44 50 55 4E 4B 54 20 3D 20 24 37 32 |EQENDPUNKT = $72|
000002E0: 20 3B 45 4E 44 50 55 4E 4B 54 00 22 30 7A 00 20 | ;ENDPUNKT."0z. |
000002F0: 2E 45 51 50 4C 4F 54 20 3D 20 24 36 30 39 43 20 |.EQPLOT = $609C |
00000300: 20 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 4E 00 | ;PUNKT SETZEN.|
00000310: 45 30 7B 00 20 2E 45 51 47 52 4F 46 46 20 3D 20 |E0{. .EQGROFF = |
00000320: 24 36 30 31 38 20 20 3B 47 52 41 46 49 4B 20 41 |$6018 ;GRAFIK A|
00000330: 55 53 00 65 30 7C 00 20 2E 45 51 46 41 43 41 52 |US.e0|. .EQFACAR|
00000340: 47 20 3D 20 24 42 43 30 43 20 3B 41 52 47 3D 46 |G = $BC0C ;ARG=F|
00000350: 41 43 00 8D 30 7D 00 20 2E 45 51 4D 45 4D 4D 55 |AC..0}. .EQMEMMU|
00000360: 4C 54 20 3D 20 24 42 41 32 38 20 3B 46 41 43 3D |LT = $BA28 ;FAC=|
00000370: 4B 4F 4E 53 54 2E 2A 46 41 43 00 B2 30 7E 00 20 |KONST.*FAC..0~. |
00000380: 2E 45 51 49 4E 54 46 41 43 20 3D 20 24 42 31 41 |.EQINTFAC = $B1A|
00000390: 41 20 3B 41 2F 59 3D 49 4E 54 28 46 41 43 29 00 |A ;A/Y=INT(FAC).|
000003A0: D8 30 7F 00 20 2E 45 51 4D 45 4D 46 41 43 20 3D |.0.. .EQMEMFAC =|
000003B0: 20 24 42 42 41 32 20 3B 46 41 43 3D 4B 4F 4E 53 | $BBA2 ;FAC=KONS|
000003C0: 54 41 4E 54 45 00 FF 30 80 00 20 2E 45 51 4D 45 |TANTE..0.. .EQME|
000003D0: 4D 4D 49 4E 20 3D 20 24 42 38 35 30 20 3B 46 41 |MMIN = $B850 ;FA|
000003E0: 43 3D 4B 4F 4E 53 54 2E 2D 46 41 43 00 27 31 81 |C=KONST.-FAC.'1.|
000003F0: 00 20 2E 45 51 46 41 43 4D 45 4D 20 3D 20 24 42 |. .EQFACMEM = $B|
00000400: 42 44 34 20 3B 4B 4F 4E 53 54 41 4E 54 45 20 3D |BD4 ;KONSTANTE =|
00000410: 20 46 41 43 00 2D 31 82 00 3B 00 38 31 83 00 3B | FAC.-1..;.81..;|
00000420: 53 54 41 52 54 00 43 31 84 00 3B 3D 3D 3D 3D 3D |START.C1..;=====|
00000430: 00 49 31 85 00 3B 00 57 31 86 00 20 4A 53 52 4B |.I1..;.W1.. JSRK|
00000440: 4F 4D 4D 41 00 7D 31 87 00 20 4A 53 52 4B 4F 4F |OMMA.}1.. JSRKOO|
00000450: 52 20 20 20 20 20 20 20 3B 4B 4F 4F 52 44 49 4E |R ;KOORDIN|
00000460: 41 54 45 4E 20 48 4F 4C 45 4E 00 A1 31 88 00 20 |ATEN HOLEN..1.. |
00000470: 4C 44 41 41 4E 51 55 41 20 20 20 20 20 20 3B 53 |LDAANQUA ;S|
00000480: 54 41 52 54 20 49 4D 20 45 52 53 54 45 4E 00 C0 |TART IM ERSTEN..|
00000490: 31 89 00 20 43 4D 50 23 30 31 20 20 20 20 20 20 |1.. CMP#01 |
000004A0: 20 20 3B 51 55 41 44 52 41 4E 54 45 4E 00 E5 31 | ;QUADRANTEN..1|
000004B0: 8A 00 20 42 4E 45 41 55 53 53 43 48 4E 49 54 54 |.. BNEAUSSCHNITT|
000004C0: 20 3B 4D 49 54 20 45 52 53 54 45 4D 20 50 55 4E | ;MIT ERSTEM PUN|
000004D0: 4B 54 00 F5 31 8B 00 20 4C 44 41 41 4E 50 55 4E |KT..1.. LDAANPUN|
000004E0: 4B 54 00 1A 32 8C 00 20 43 4D 50 23 30 31 20 20 |KT..2.. CMP#01 |
000004F0: 20 20 20 20 20 20 3B 4E 45 49 4E 2C 20 4E 55 52 | ;NEIN, NUR|
00000500: 20 4B 52 45 49 53 2D 00 38 32 8D 00 20 42 4E 45 | KREIS-.82.. BNE|
00000510: 41 55 53 53 43 48 4E 49 54 54 20 3B 41 42 53 43 |AUSSCHNITT ;ABSC|
00000520: 48 4E 49 54 54 00 5C 32 8E 00 20 4C 44 41 45 4E |HNITT.\2.. LDAEN|
00000530: 44 51 55 41 20 20 20 20 20 3B 45 4E 44 45 20 49 |DQUA ;ENDE I|
00000540: 4D 20 4C 45 54 5A 54 45 4E 00 7F 32 8F 00 20 43 |M LETZTEN..2.. C|
00000550: 4D 50 23 30 34 20 20 20 20 20 20 20 20 3B 51 55 |MP#04 ;QU|
00000560: 41 44 52 41 4E 54 45 4E 20 4D 49 54 00 A1 32 90 |ADRANTEN MIT..2.|
00000570: 00 20 42 4E 45 41 55 53 53 43 48 4E 49 54 54 20 |. BNEAUSSCHNITT |
00000580: 3B 4C 45 54 5A 54 45 4D 20 50 55 4E 4B 54 00 B2 |;LETZTEM PUNKT..|
00000590: 32 91 00 20 4C 44 41 45 4E 44 50 55 4E 4B 54 00 |2.. LDAENDPUNKT.|
000005A0: D7 32 92 00 20 43 4D 50 23 31 39 35 20 20 20 20 |.2.. CMP#195 |
000005B0: 20 20 20 3B 4E 45 49 4E 2C 20 4E 55 52 20 4B 52 | ;NEIN, NUR KR|
000005C0: 45 49 53 2D 00 F5 32 93 00 20 42 4E 45 41 55 53 |EIS-..2.. BNEAUS|
000005D0: 53 43 48 4E 49 54 54 20 3B 41 42 53 43 48 4E 49 |SCHNITT ;ABSCHNI|
000005E0: 54 54 00 1C 33 94 00 20 42 45 51 47 41 4E 5A 20 |TT..3.. BEQGANZ |
000005F0: 20 20 20 20 20 20 3B 4A 41 2C 20 47 41 4E 5A 45 | ;JA, GANZE|
00000600: 52 20 4B 52 45 49 53 20 21 00 22 33 95 00 3B 00 |R KREIS !."3..;.|
00000610: 3D 33 96 00 41 55 53 53 43 48 4E 49 54 54 20 20 |=3..AUSSCHNITT |
00000620: 4A 4D 50 20 41 55 53 53 43 48 00 43 33 97 00 3B |JMP AUSSCH.C3..;|
00000630: 00 65 33 98 00 3B 47 41 4E 5A 45 4E 20 4B 52 45 |.e3..;GANZEN KRE|
00000640: 49 53 2F 45 4C 4C 49 50 53 45 20 5A 45 49 43 48 |IS/ELLIPSE ZEICH|
00000650: 45 4E 00 87 33 99 00 3B 3D 3D 3D 3D 3D 3D 3D 3D |EN..3..;========|
00000660: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000670: 3D 3D 3D 3D 00 8D 33 9A 00 3B 00 9E 33 9B 00 47 |====..3..;..3..G|
00000680: 41 4E 5A 20 20 4C 44 41 20 58 4C 00 BE 33 9C 00 |ANZ LDA XL..3..|
00000690: 20 53 54 41 58 31 20 20 20 20 20 20 20 20 20 3B | STAX1 ;|
000006A0: 4D 49 49 54 45 4C 50 55 4E 4B 54 00 E3 33 9D 00 |MIITELPUNKT..3..|
000006B0: 20 4C 44 41 58 48 20 20 20 20 20 20 20 20 20 3B | LDAXH ;|
000006C0: 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 49 4E 20 58 |KOORDINATEN IN X|
000006D0: 00 FE 33 9E 00 20 53 54 41 58 32 20 20 20 20 20 |..3.. STAX2 |
000006E0: 20 20 20 20 3B 4D 45 52 4B 45 4E 00 0A 34 9F 00 | ;MERKEN..4..|
000006F0: 20 4C 44 41 23 30 31 00 1A 34 A0 00 20 53 54 41 | LDA#01..4.. STA|
00000700: 5A 41 45 48 4C 2B 31 00 27 34 A1 00 20 4C 44 41 |ZAEHL+1.'4.. LDA|
00000710: 23 31 39 35 00 4A 34 A2 00 20 53 54 41 5A 41 45 |#195.J4.. STAZAE|
00000720: 48 4C 20 20 20 20 20 20 3B 5A 41 45 48 4C 45 52 |HL ;ZAEHLER|
00000730: 20 53 45 54 5A 45 4E 00 53 34 A3 00 20 53 45 49 | SETZEN.S4.. SEI|
00000740: 00 75 34 A4 00 20 4C 44 41 23 35 32 20 20 20 20 |.u4.. LDA#52 |
00000750: 20 20 20 20 3B 50 52 4F 5A 45 53 53 4F 52 50 4F | ;PROZESSORPO|
00000760: 52 54 00 9A 34 A5 00 20 53 54 41 24 30 31 20 20 |RT..4.. STA$01 |
00000770: 20 20 20 20 20 20 3B 41 55 46 20 52 41 4D 20 53 | ;AUF RAM S|
00000780: 43 48 41 4C 54 45 4E 00 A0 34 A6 00 3B 00 C1 34 |CHALTEN..4..;..4|
00000790: A7 00 3B 42 45 52 45 43 48 4E 55 4E 47 20 56 4F |..;BERECHNUNG VO|
000007A0: 4E 20 4A 45 20 34 20 50 55 4E 4B 54 45 4E 00 E2 |N JE 4 PUNKTEN..|
000007B0: 34 A8 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |4..;============|
000007C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000007D0: E8 34 A9 00 3B 00 09 35 AA 00 4C 4F 4F 50 20 4C |.4..;..5..LOOP L|
000007E0: 44 58 5A 41 45 48 4C 20 3B 5A 41 45 48 4C 45 52 |DXZAEHL ;ZAEHLER|
000007F0: 20 48 4F 4C 45 4E 00 30 35 AB 00 20 4C 44 41 43 | HOLEN.05.. LDAC|
00000800: 4F 53 2D 31 2C 58 20 20 20 20 3B 43 4F 53 49 4E |OS-1,X ;COSIN|
00000810: 55 53 2D 57 45 52 54 20 48 4F 4C 45 4E 00 3B 35 |US-WERT HOLEN.;5|
00000820: AC 00 20 4C 44 58 58 52 00 61 35 AD 00 20 4A 53 |.. LDXXR.a5.. JS|
00000830: 52 4D 55 4C 54 20 20 20 20 20 20 20 3B 2A 58 52 |RMULT ;*XR|
00000840: 2F 31 32 38 20 42 45 52 45 43 48 4E 45 4E 00 7F |/128 BERECHNEN..|
00000850: 35 AE 00 20 53 54 41 58 4F 46 46 20 20 20 20 20 |5.. STAXOFF |
00000860: 20 20 3B 3D 58 2D 4F 46 46 53 45 54 00 A1 35 AF | ;=X-OFFSET..5.|
00000870: 00 20 4C 44 58 5A 41 45 48 4C 2B 31 20 20 20 20 |. LDXZAEHL+1 |
00000880: 3B 5A 41 45 48 4C 45 52 20 48 4F 4C 45 4E 00 C6 |;ZAEHLER HOLEN..|
00000890: 35 B0 00 20 4C 44 41 43 4F 53 2D 31 2C 58 20 20 |5.. LDACOS-1,X |
000008A0: 20 20 3B 53 49 4E 55 53 20 57 45 52 54 20 48 4F | ;SINUS WERT HO|
000008B0: 4C 45 4E 00 D1 35 B1 00 20 4C 44 58 59 52 00 F6 |LEN..5.. LDXYR..|
000008C0: 35 B2 00 20 4A 53 52 4D 55 4C 54 20 20 20 20 20 |5.. JSRMULT |
000008D0: 20 20 3B 2A 59 52 2F 31 32 38 20 42 52 45 43 48 | ;*YR/128 BRECH|
000008E0: 4E 45 4E 00 14 36 B3 00 20 53 54 41 59 4F 46 46 |NEN..6.. STAYOFF|
000008F0: 20 20 20 20 20 20 20 3B 3D 59 2D 4F 46 46 53 45 | ;=Y-OFFSE|
00000900: 54 00 36 36 B4 00 20 4C 44 41 58 31 20 20 20 20 |T.66.. LDAX1 |
00000910: 20 20 20 20 20 3B 4D 49 54 54 45 4C 50 55 4E 4B | ;MITTELPUNK|
00000920: 54 53 2D 00 5C 36 B5 00 20 4C 44 59 58 32 20 20 |TS-.\6.. LDYX2 |
00000930: 20 20 20 20 20 20 20 3B 4B 4F 4F 52 44 49 4E 41 | ;KOORDINA|
00000940: 54 45 4E 20 48 4F 4C 45 4E 00 79 36 B6 00 20 43 |TEN HOLEN.y6.. C|
00000950: 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 31 2E |LC ;1.|
00000960: 20 50 55 4E 4B 54 00 96 36 B7 00 20 41 44 43 58 | PUNKT..6.. ADCX|
00000970: 4F 46 46 20 20 20 20 20 20 20 3B 58 3D 58 2B 58 |OFF ;X=X+X|
00000980: 4F 46 46 00 A1 36 B8 00 20 42 43 43 4C 31 00 AA |OFF..6.. BCCL1..|
00000990: 36 B9 00 20 49 4E 59 00 CE 36 BA 00 4C 31 20 20 |6.. INY..6..L1 |
000009A0: 43 50 59 20 23 30 30 20 20 20 20 3B 58 48 3D 30 |CPY #00 ;XH=0|
000009B0: 2C 20 44 41 4E 4E 20 4F 2E 4B 2E 00 D9 36 BB 00 |, DANN O.K...6..|
000009C0: 20 42 45 51 4C 33 00 FD 36 BC 00 20 43 50 59 23 | BEQL3..6.. CPY#|
000009D0: 30 32 20 20 20 20 20 20 20 20 3B 58 48 3E 31 2C |02 ;XH>1,|
000009E0: 20 44 41 4E 4E 20 4B 45 49 4E 00 1E 37 BD 00 20 | DANN KEIN..7.. |
000009F0: 42 43 53 4C 34 20 20 20 20 20 20 20 20 20 3B 50 |BCSL4 ;P|
00000A00: 55 4E 4B 54 20 53 45 54 5A 45 4E 00 43 37 BE 00 |UNKT SETZEN.C7..|
00000A10: 20 43 4D 50 23 36 34 20 20 20 20 20 20 20 20 3B | CMP#64 ;|
00000A20: 58 48 3D 31 20 55 4E 44 20 58 4C 3E 3D 36 34 2C |XH=1 UND XL>=64,|
00000A30: 00 6C 37 BF 00 20 42 43 53 4C 34 20 20 20 20 20 |.l7.. BCSL4 |
00000A40: 20 20 20 20 3B 44 41 4E 4E 20 41 55 43 48 20 4B | ;DANN AUCH K|
00000A50: 45 49 4E 20 50 55 4E 4B 54 00 7B 37 C0 00 4C 33 |EIN PUNKT.{7..L3|
00000A60: 20 20 53 54 41 20 58 4C 00 86 37 C1 00 20 53 54 | STA XL..7.. ST|
00000A70: 59 58 48 00 A3 37 C2 00 20 4C 44 41 59 20 20 20 |YXH..7.. LDAY |
00000A80: 20 20 20 20 20 20 20 3B 59 3D 59 2B 59 4F 46 46 | ;Y=Y+YOFF|
00000A90: 00 AC 37 C3 00 20 43 4C 43 00 B9 37 C4 00 20 41 |..7.. CLC..7.. A|
00000AA0: 44 43 59 4F 46 46 00 C4 37 C5 00 20 42 43 53 4C |DCYOFF..7.. BCSL|
00000AB0: 32 00 EA 37 C6 00 20 43 4D 50 23 32 30 30 20 20 |2..7.. CMP#200 |
00000AC0: 20 20 20 20 20 3B 59 3E 3D 32 30 30 2C 20 44 41 | ;Y>=200, DA|
00000AD0: 4E 4E 20 4B 45 49 4E 00 0B 38 C7 00 20 42 43 53 |NN KEIN..8.. BCS|
00000AE0: 4C 32 20 20 20 20 20 20 20 20 20 3B 50 55 4E 4B |L2 ;PUNK|
00000AF0: 54 20 53 45 54 5A 45 4E 00 2C 38 C8 00 20 54 41 |T SETZEN.,8.. TA|
00000B00: 58 20 20 20 20 20 20 20 20 20 20 20 3B 59 2D 4B |X ;Y-K|
00000B10: 4F 4F 52 44 49 4E 41 54 45 00 51 38 C9 00 20 4C |OORDINATE.Q8.. L|
00000B20: 44 59 58 4C 20 20 20 20 20 20 20 20 20 3B 58 2D |DYXL ;X-|
00000B30: 4B 4F 4F 52 44 49 4E 41 54 45 20 4C 4F 57 00 72 |KOORDINATE LOW.r|
00000B40: 38 CA 00 20 4A 53 52 50 4C 4F 54 20 20 20 20 20 |8.. JSRPLOT |
00000B50: 20 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 4E 00 | ;PUNKT SETZEN.|
00000B60: 80 38 CB 00 4C 32 20 20 4C 44 41 20 59 00 9C 38 |.8..L2 LDA Y..8|
00000B70: CC 00 20 53 45 43 20 20 20 20 20 20 20 20 20 20 |.. SEC |
00000B80: 20 3B 32 2E 50 55 4E 4B 54 00 A9 38 CD 00 20 53 | ;2.PUNKT..8.. S|
00000B90: 42 43 59 4F 46 46 00 C6 38 CE 00 20 42 43 43 4C |BCYOFF..8.. BCCL|
00000BA0: 34 20 20 20 20 20 20 20 20 20 3B 59 3D 59 2D 59 |4 ;Y=Y-Y|
00000BB0: 4F 46 46 00 E7 38 CF 00 20 54 41 58 20 20 20 20 |OFF..8.. TAX |
00000BC0: 20 20 20 20 20 20 20 3B 59 2D 4B 4F 4F 52 44 49 | ;Y-KOORDI|
00000BD0: 4E 41 54 45 00 0C 39 D0 00 20 4C 44 59 58 4C 20 |NATE..9.. LDYXL |
00000BE0: 20 20 20 20 20 20 20 20 3B 58 2D 4B 4F 4F 52 44 | ;X-KOORD|
00000BF0: 49 4E 41 54 45 20 4C 4F 57 00 2D 39 D1 00 20 4A |INATE LOW.-9.. J|
00000C00: 53 52 50 4C 4F 54 20 20 20 20 20 20 20 3B 50 55 |SRPLOT ;PU|
00000C10: 4E 4B 54 20 53 45 54 5A 45 4E 00 4F 39 D2 00 4C |NKT SETZEN.O9..L|
00000C20: 34 20 20 4C 44 41 20 58 31 20 20 20 20 20 3B 4D |4 LDA X1 ;M|
00000C30: 49 54 54 45 4C 50 55 4E 4B 54 53 2D 00 75 39 D3 |ITTELPUNKTS-.u9.|
00000C40: 00 20 4C 44 59 58 32 20 20 20 20 20 20 20 20 20 |. LDYX2 |
00000C50: 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 48 4F 4C |;KOORDINATEN HOL|
00000C60: 45 4E 00 7E 39 D4 00 20 53 45 43 00 9B 39 D5 00 |EN.~9.. SEC..9..|
00000C70: 20 53 42 43 58 4F 46 46 20 20 20 20 20 20 20 3B | SBCXOFF ;|
00000C80: 33 2E 20 50 55 4E 4B 54 00 B8 39 D6 00 20 42 43 |3. PUNKT..9.. BC|
00000C90: 53 4C 35 20 20 20 20 20 20 20 20 20 3B 58 3D 58 |SL5 ;X=X|
00000CA0: 2D 58 4F 46 46 00 C1 39 D7 00 20 44 45 59 00 E5 |-XOFF..9.. DEY..|
00000CB0: 39 D8 00 4C 35 20 20 43 50 59 20 23 30 30 20 20 |9..L5 CPY #00 |
00000CC0: 20 20 3B 58 48 3D 30 2C 20 44 41 4E 4E 20 4F 2E | ;XH=0, DANN O.|
00000CD0: 4B 2E 00 F0 39 D9 00 20 42 45 51 4C 36 00 14 3A |K...9.. BEQL6..:|
00000CE0: DA 00 20 43 50 59 23 30 32 20 20 20 20 20 20 20 |.. CPY#02 |
00000CF0: 20 3B 58 48 3E 31 2C 20 44 41 4E 4E 20 4B 45 49 | ;XH>1, DANN KEI|
00000D00: 4E 00 35 3A DB 00 20 42 43 53 4C 37 20 20 20 20 |N.5:.. BCSL7 |
00000D10: 20 20 20 20 20 3B 50 55 4E 4B 54 20 53 45 54 5A | ;PUNKT SETZ|
00000D20: 45 4E 00 59 3A DC 00 20 43 4D 50 23 36 34 20 20 |EN.Y:.. CMP#64 |
00000D30: 20 20 20 20 20 3B 58 48 3D 31 20 55 4E 44 20 58 | ;XH=1 UND X|
00000D40: 4C 3E 3D 36 34 2C 00 81 3A DD 00 20 42 43 53 4C |L>=64,..:.. BCSL|
00000D50: 37 20 20 20 20 20 20 20 20 3B 44 41 4E 4E 20 41 |7 ;DANN A|
00000D60: 55 43 48 20 4B 45 49 4E 20 50 55 4E 4B 54 00 90 |UCH KEIN PUNKT..|
00000D70: 3A DE 00 4C 36 20 20 53 54 41 20 58 4C 00 9B 3A |:..L6 STA XL..:|
00000D80: DF 00 20 53 54 59 58 48 00 B7 3A E0 00 20 4C 44 |.. STYXH..:.. LD|
00000D90: 41 59 20 20 20 20 20 20 20 20 20 3B 59 3D 59 2B |AY ;Y=Y+|
00000DA0: 59 4F 46 46 00 C0 3A E1 00 20 43 4C 43 00 CD 3A |YOFF..:.. CLC..:|
00000DB0: E2 00 20 41 44 43 59 4F 46 46 00 D8 3A E3 00 20 |.. ADCYOFF..:.. |
00000DC0: 42 43 53 4C 38 00 FD 3A E4 00 20 43 4D 50 23 32 |BCSL8..:.. CMP#2|
00000DD0: 30 30 20 20 20 20 20 20 3B 59 3E 3D 32 30 30 2C |00 ;Y>=200,|
00000DE0: 20 44 41 4E 4E 20 4B 45 49 4E 00 1D 3B E5 00 20 | DANN KEIN..;.. |
00000DF0: 42 43 53 4C 38 20 20 20 20 20 20 20 20 3B 50 55 |BCSL8 ;PU|
00000E00: 4E 4B 54 20 53 45 54 5A 45 4E 00 3D 3B E6 00 20 |NKT SETZEN.=;.. |
00000E10: 54 41 58 20 20 20 20 20 20 20 20 20 20 3B 59 2D |TAX ;Y-|
00000E20: 4B 4F 4F 52 44 49 4E 41 54 45 00 61 3B E7 00 20 |KOORDINATE.a;.. |
00000E30: 4C 44 59 58 4C 20 20 20 20 20 20 20 20 3B 58 2D |LDYXL ;X-|
00000E40: 4B 4F 4F 52 44 49 4E 41 54 45 20 4C 4F 57 00 81 |KOORDINATE LOW..|
00000E50: 3B E8 00 20 4A 53 52 50 4C 4F 54 20 20 20 20 20 |;.. JSRPLOT |
00000E60: 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 4E 00 8F | ;PUNKT SETZEN..|
00000E70: 3B E9 00 4C 38 20 20 4C 44 41 20 59 00 AA 3B EA |;..L8 LDA Y..;.|
00000E80: 00 20 53 45 43 20 20 20 20 20 20 20 20 20 20 3B |. SEC ;|
00000E90: 34 2E 50 55 4E 4B 54 00 B7 3B EB 00 20 53 42 43 |4.PUNKT..;.. SBC|
00000EA0: 59 4F 46 46 00 D9 3B EC 00 20 42 43 43 4C 37 20 |YOFF..;.. BCCL7 |
00000EB0: 20 20 20 20 20 20 20 3B 3C 30 2C 20 4B 45 49 4E | ;<0, KEIN|
00000EC0: 20 50 55 4E 4B 54 00 F9 3B ED 00 20 54 41 58 20 | PUNKT..;.. TAX |
00000ED0: 20 20 20 20 20 20 20 20 20 3B 59 2D 4B 4F 4F 52 | ;Y-KOOR|
00000EE0: 44 49 4E 41 54 45 00 1D 3C EE 00 20 4C 44 59 58 |DINATE..<.. LDYX|
00000EF0: 4C 20 20 20 20 20 20 20 20 3B 58 2D 4B 4F 4F 52 |L ;X-KOOR|
00000F00: 44 49 4E 41 54 45 20 4C 4F 57 00 2A 3C EF 00 20 |DINATE LOW.*<.. |
00000F10: 4A 53 52 50 4C 4F 54 00 3E 3C F0 00 4C 37 20 20 |JSRPLOT.><..L7 |
00000F20: 49 4E 43 20 5A 41 45 48 4C 2B 31 00 4C 3C F1 00 |INC ZAEHL+1.L<..|
00000F30: 20 44 45 43 5A 41 45 48 4C 00 66 3C F2 00 20 42 | DECZAEHL.f<.. B|
00000F40: 45 51 4F 55 54 20 20 20 20 20 20 20 3B 46 45 52 |EQOUT ;FER|
00000F50: 54 49 47 00 8B 3C F3 00 20 4A 4D 50 4C 4F 4F 50 |TIG..<.. JMPLOOP|
00000F60: 20 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 20 | ;NAECHSTE |
00000F70: 34 20 50 55 4E 4B 54 45 00 9A 3C F4 00 4F 55 54 |4 PUNKTE..<..OUT|
00000F80: 20 4C 44 41 23 35 35 00 BE 3C F5 00 20 53 54 41 | LDA#55..<.. STA|
00000F90: 24 30 31 20 20 20 20 20 20 20 3B 41 55 46 20 52 |$01 ;AUF R|
00000FA0: 4F 4D 20 53 43 48 41 4C 54 45 4E 00 C7 3C F6 00 |OM SCHALTEN..<..|
00000FB0: 20 43 4C 49 00 D0 3C F7 00 20 52 54 53 00 D6 3C | CLI..<.. RTS..<|
00000FC0: F8 00 3B 00 FC 3C F9 00 3B 4B 52 45 49 53 2F 45 |..;..<..;KREIS/E|
00000FD0: 4C 4C 49 50 53 45 4E 41 42 53 43 48 4E 49 54 54 |LLIPSENABSCHNITT|
00000FE0: 20 5A 45 49 43 48 4E 45 4E 00 22 3D FA 00 3B 3D | ZEICHNEN."=..;=|
00000FF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001000: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00001010: 28 3D FB 00 3B 00 3D 3D FC 00 41 55 53 53 43 48 |(=..;.==..AUSSCH|
00001020: 20 20 4C 44 58 20 23 31 39 35 00 4B 3D FD 00 20 | LDX #195.K=.. |
00001030: 53 54 58 5A 41 45 48 4C 00 6C 3D FE 00 20 4C 44 |STXZAEHL.l=.. LD|
00001040: 58 23 30 31 20 20 20 20 20 20 20 20 20 20 20 20 |X#01 |
00001050: 20 3B 54 41 42 45 4C 4C 45 00 7C 3D FF 00 20 53 | ;TABELLE.|=.. S|
00001060: 54 58 5A 41 45 48 4C 2B 31 00 A3 3D 00 01 20 53 |TXZAEHL+1..=.. S|
00001070: 45 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EI |
00001080: 20 20 3B 50 52 4F 5A 45 53 53 4F 52 50 4F 52 54 | ;PROZESSORPORT|
00001090: 00 C4 3D 01 01 20 4C 44 41 23 35 32 20 20 20 20 |..=.. LDA#52 |
000010A0: 20 20 20 20 20 20 20 20 20 3B 41 55 46 20 52 41 | ;AUF RA|
000010B0: 4D 00 D0 3D 02 01 20 53 54 41 24 30 31 00 F5 3D |M..=.. STA$01..=|
000010C0: 03 01 41 55 53 4C 4F 4F 50 20 20 4C 44 58 20 5A |..AUSLOOP LDX Z|
000010D0: 41 45 48 4C 20 20 3B 44 45 52 20 4F 46 46 53 45 |AEHL ;DER OFFSE|
000010E0: 54 53 00 05 3E 04 01 20 4C 44 41 43 4F 53 2D 31 |TS..>.. LDACOS-1|
000010F0: 2C 58 00 24 3E 05 01 20 4C 44 58 58 52 20 20 20 |,X.$>.. LDXXR |
00001100: 20 20 20 20 20 20 20 20 20 20 20 3B 49 4E 20 58 | ;IN X|
00001110: 2D 00 31 3E 06 01 20 4A 53 52 4D 55 4C 54 00 51 |-.1>.. JSRMULT.Q|
00001120: 3E 07 01 20 4C 44 58 5A 41 45 48 4C 2B 31 20 20 |>.. LDXZAEHL+1 |
00001130: 20 20 20 20 20 20 20 3B 55 4E 44 20 59 2D 00 61 | ;UND Y-.a|
00001140: 3E 08 01 20 53 54 41 24 44 30 30 30 2C 58 00 83 |>.. STA$D000,X..|
00001150: 3E 09 01 20 4C 44 41 43 4F 53 2D 31 2C 58 20 20 |>.. LDACOS-1,X |
00001160: 20 20 20 20 20 20 20 3B 52 49 43 48 54 55 4E 47 | ;RICHTUNG|
00001170: 00 8E 3E 0A 01 20 4C 44 58 59 52 00 B0 3E 0B 01 |..>.. LDXYR..>..|
00001180: 20 4A 53 52 4D 55 4C 54 20 20 20 20 20 20 20 20 | JSRMULT |
00001190: 20 20 20 20 3B 41 55 46 42 41 55 45 4E 00 C0 3E | ;AUFBAUEN..>|
000011A0: 0C 01 20 4C 44 58 5A 41 45 48 4C 2B 31 00 D0 3E |.. LDXZAEHL+1..>|
000011B0: 0D 01 20 53 54 41 24 44 31 30 30 2C 58 00 E0 3E |.. STA$D100,X..>|
000011C0: 0E 01 20 49 4E 43 5A 41 45 48 4C 2B 31 00 EE 3E |.. INCZAEHL+1..>|
000011D0: 0F 01 20 44 45 43 5A 41 45 48 4C 00 FE 3E 10 01 |.. DECZAEHL..>..|
000011E0: 20 42 4E 45 41 55 53 4C 4F 4F 50 00 04 3F 11 01 | BNEAUSLOOP..?..|
000011F0: 3B 00 2A 3F 12 01 20 4C 44 41 45 4E 44 50 55 4E |;.*?.. LDAENDPUN|
00001200: 4B 54 20 20 20 20 3B 57 45 4E 4E 20 45 4E 44 50 |KT ;WENN ENDP|
00001210: 55 4E 4B 54 3D 31 2C 00 4D 3F 13 01 20 43 4D 50 |UNKT=1,.M?.. CMP|
00001220: 23 30 31 20 20 20 20 20 20 20 20 20 3B 3D 32 20 |#01 ;=2 |
00001230: 53 45 54 5A 45 4E 2C 20 44 41 00 6F 3F 14 01 20 |SETZEN, DA.o?.. |
00001240: 42 4E 45 57 45 49 54 45 52 20 20 20 20 20 20 3B |BNEWEITER ;|
00001250: 53 4F 4E 53 54 20 46 45 48 4C 45 52 00 8E 3F 15 |SONST FEHLER..?.|
00001260: 01 20 4C 44 41 23 30 32 20 20 20 20 20 20 20 20 |. LDA#02 |
00001270: 20 3B 41 55 46 54 52 45 54 45 4E 00 A7 3F 16 01 | ;AUFTRETEN..?..|
00001280: 57 45 49 54 45 52 20 20 53 54 41 20 45 4E 44 50 |WEITER STA ENDP|
00001290: 55 4E 4B 54 00 B2 3F 17 01 20 4C 44 41 58 4C 00 |UNKT..?.. LDAXL.|
000012A0: BD 3F 18 01 20 53 54 41 58 31 00 C8 3F 19 01 20 |.?.. STAX1..?.. |
000012B0: 4C 44 41 58 48 00 D3 3F 1A 01 20 53 54 41 58 32 |LDAXH..?.. STAX2|
000012C0: 00 F8 3F 1B 01 20 4C 44 41 41 4E 51 55 41 20 20 |..?.. LDAANQUA |
000012D0: 20 20 20 20 20 3B 41 4E 46 41 4E 47 53 51 55 41 | ;ANFANGSQUA|
000012E0: 44 52 41 4E 54 00 01 40 1C 01 20 41 53 4C 00 17 |DRANT..@.. ASL..|
000012F0: 40 1D 01 20 41 53 4C 20 20 20 20 20 20 20 20 20 |@.. ASL |
00001300: 20 3B 2A 34 00 20 40 1E 01 20 43 4C 43 00 46 40 | ;*4. @.. CLC.F@|
00001310: 1F 01 20 41 44 43 45 4E 44 51 55 41 20 20 20 20 |.. ADCENDQUA |
00001320: 20 20 3B 50 4C 55 53 20 45 4E 44 51 55 41 44 52 | ;PLUS ENDQUADR|
00001330: 41 4E 54 00 6B 40 20 01 20 54 41 58 20 20 20 20 |ANT.k@ . TAX |
00001340: 20 20 20 20 20 20 20 20 3B 3D 54 41 42 45 4C 4C | ;=TABELL|
00001350: 45 4E 4F 46 46 53 45 54 00 7C 40 21 01 20 4C 44 |ENOFFSET.|@!. LD|
00001360: 41 4C 4F 57 54 41 42 2C 58 00 9E 40 22 01 20 53 |ALOWTAB,X..@". S|
00001370: 54 41 53 54 41 52 54 2B 31 20 20 20 20 20 3B 53 |TASTART+1 ;S|
00001380: 54 41 52 54 41 44 52 45 53 53 45 00 B0 40 23 01 |TARTADRESSE..@#.|
00001390: 20 4C 44 41 48 49 47 48 54 41 42 2C 58 00 CB 40 | LDAHIGHTAB,X..@|
000013A0: 24 01 20 53 54 41 53 54 41 52 54 2B 32 20 20 20 |$. STASTART+2 |
000013B0: 20 20 3B 48 4F 4C 45 4E 00 DE 40 25 01 53 54 41 | ;HOLEN..@%.STA|
000013C0: 52 54 20 4A 53 52 24 30 30 30 30 00 01 41 26 01 |RT JSR$0000..A&.|
000013D0: 20 4C 44 41 23 35 35 20 20 20 20 20 20 20 20 20 | LDA#55 |
000013E0: 3B 50 52 4F 5A 45 53 53 4F 52 50 4F 52 54 00 27 |;PROZESSORPORT.'|
000013F0: 41 27 01 20 53 54 41 24 30 31 20 20 20 20 20 20 |A'. STA$01 |
00001400: 20 20 20 3B 41 55 46 20 52 4F 4D 20 53 43 48 41 | ;AUF ROM SCHA|
00001410: 4C 54 45 4E 00 30 41 28 01 20 43 4C 49 00 4A 41 |LTEN.0A(. CLI.JA|
00001420: 29 01 20 52 54 53 20 20 20 20 20 20 20 20 20 20 |). RTS |
00001430: 20 20 3B 45 4E 44 45 00 50 41 2A 01 3B 00 56 41 | ;ENDE.PA*.;.VA|
00001440: 2B 01 3B 00 7D 41 2C 01 3B 53 54 41 52 54 20 49 |+.;.}A,.;START I|
00001450: 4D 20 31 2E 2C 20 45 4E 44 45 20 49 4D 20 31 2E |M 1., ENDE IM 1.|
00001460: 51 55 41 44 52 41 4E 54 45 4E 00 83 41 2D 01 3B |QUADRANTEN..A-.;|
00001470: 00 99 41 2E 01 53 31 45 31 20 20 4C 44 41 20 41 |..A..S1E1 LDA A|
00001480: 4E 50 55 4E 4B 54 00 AA 41 2F 01 20 43 4D 50 45 |NPUNKT..A/. CMPE|
00001490: 4E 44 50 55 4E 4B 54 00 B8 41 30 01 20 42 43 43 |NDPUNKT..A0. BCC|
000014A0: 53 31 45 31 31 00 C5 41 31 01 20 4C 44 58 23 31 |S1E11..A1. LDX#1|
000014B0: 39 35 00 D4 41 32 01 20 4A 53 52 45 52 53 54 45 |95..A2. JSRERSTE|
000014C0: 52 00 E0 41 33 01 20 4C 44 41 23 30 31 00 EF 41 |R..A3. LDA#01..A|
000014D0: 34 01 20 4A 4D 50 53 32 45 31 2B 32 00 07 42 35 |4. JMPS2E1+2..B5|
000014E0: 01 53 31 45 31 31 20 20 4C 44 58 20 45 4E 44 50 |.S1E11 LDX ENDP|
000014F0: 55 4E 4B 54 00 16 42 36 01 20 4A 4D 50 45 52 53 |UNKT..B6. JMPERS|
00001500: 54 45 52 00 1C 42 37 01 3B 00 43 42 38 01 3B 53 |TER..B7.;.CB8.;S|
00001510: 54 41 52 54 20 49 4D 20 31 2E 2C 20 45 4E 44 45 |TART IM 1., ENDE|
00001520: 20 49 4D 20 32 2E 51 55 41 44 52 41 4E 54 45 4E | IM 2.QUADRANTEN|
00001530: 00 49 42 39 01 3B 00 5F 42 3A 01 53 31 45 32 20 |.IB9.;._B:.S1E2 |
00001540: 20 4C 44 41 20 41 4E 50 55 4E 4B 54 00 6C 42 3B | LDA ANPUNKT.lB;|
00001550: 01 20 4C 44 58 23 31 39 35 00 7B 42 3C 01 20 4A |. LDX#195.{B<. J|
00001560: 53 52 45 52 53 54 45 52 00 87 42 3D 01 20 4C 44 |SRERSTER..B=. LD|
00001570: 41 23 30 31 00 98 42 3E 01 20 4C 44 58 45 4E 44 |A#01..B>. LDXEND|
00001580: 50 55 4E 4B 54 00 A8 42 3F 01 20 4A 4D 50 5A 57 |PUNKT..B?. JMPZW|
00001590: 45 49 54 45 52 00 AE 42 40 01 3B 00 D5 42 41 01 |EITER..B@.;..BA.|
000015A0: 3B 53 54 41 52 54 20 49 4D 20 31 2E 2C 20 45 4E |;START IM 1., EN|
000015B0: 44 45 20 49 4D 20 33 2E 51 55 41 44 52 41 4E 54 |DE IM 3.QUADRANT|
000015C0: 45 4E 00 DB 42 42 01 3B 00 F1 42 43 01 53 31 45 |EN..BB.;..BC.S1E|
000015D0: 33 20 20 4C 44 41 20 41 4E 50 55 4E 4B 54 00 FE |3 LDA ANPUNKT..|
000015E0: 42 44 01 20 4C 44 58 23 31 39 35 00 0D 43 45 01 |BD. LDX#195..CE.|
000015F0: 20 4A 53 52 45 52 53 54 45 52 00 19 43 46 01 20 | JSRERSTER..CF. |
00001600: 4C 44 41 23 30 31 00 26 43 47 01 20 4C 44 58 23 |LDA#01.&CG. LDX#|
00001610: 31 39 35 00 36 43 48 01 20 4A 53 52 5A 57 45 49 |195.6CH. JSRZWEI|
00001620: 54 45 52 00 42 43 49 01 20 4C 44 41 23 30 31 00 |TER.BCI. LDA#01.|
00001630: 53 43 4A 01 20 4C 44 58 45 4E 44 50 55 4E 4B 54 |SCJ. LDXENDPUNKT|
00001640: 00 63 43 4B 01 20 4A 4D 50 44 52 49 54 54 45 52 |.cCK. JMPDRITTER|
00001650: 00 69 43 4C 01 3B 00 90 43 4D 01 3B 53 54 41 52 |.iCL.;..CM.;STAR|
00001660: 54 20 49 4D 20 31 2E 2C 20 45 4E 44 45 20 49 4D |T IM 1., ENDE IM|
00001670: 20 34 2E 51 55 41 44 52 41 4E 54 45 4E 00 96 43 | 4.QUADRANTEN..C|
00001680: 4E 01 3B 00 AC 43 4F 01 53 31 45 34 20 20 4C 44 |N.;..CO.S1E4 LD|
00001690: 41 20 41 4E 50 55 4E 4B 54 00 B9 43 50 01 20 4C |A ANPUNKT..CP. L|
000016A0: 44 58 23 31 39 35 00 C8 43 51 01 20 4A 53 52 45 |DX#195..CQ. JSRE|
000016B0: 52 53 54 45 52 00 D4 43 52 01 20 4C 44 41 23 30 |RSTER..CR. LDA#0|
000016C0: 31 00 E1 43 53 01 20 4C 44 58 23 31 39 35 00 F1 |1..CS. LDX#195..|
000016D0: 43 54 01 20 4A 53 52 5A 57 45 49 54 45 52 00 FD |CT. JSRZWEITER..|
000016E0: 43 55 01 20 4C 44 41 23 30 31 00 0A 44 56 01 20 |CU. LDA#01..DV. |
000016F0: 4C 44 58 23 31 39 35 00 1A 44 57 01 20 4A 53 52 |LDX#195..DW. JSR|
00001700: 44 52 49 54 54 45 52 00 26 44 58 01 20 4C 44 41 |DRITTER.&DX. LDA|
00001710: 23 30 31 00 37 44 59 01 20 4C 44 58 45 4E 44 50 |#01.7DY. LDXENDP|
00001720: 55 4E 4B 54 00 47 44 5A 01 20 4A 4D 50 56 49 45 |UNKT.GDZ. JMPVIE|
00001730: 52 54 45 52 00 4D 44 5B 01 3B 00 74 44 5C 01 3B |RTER.MD[.;.tD\.;|
00001740: 53 54 41 52 54 20 49 4D 20 32 2E 2C 20 45 4E 44 |START IM 2., END|
00001750: 45 20 49 4D 20 31 2E 51 55 41 44 52 41 4E 54 45 |E IM 1.QUADRANTE|
00001760: 4E 00 7A 44 5D 01 3B 00 90 44 5E 01 53 32 45 31 |N.zD].;..D^.S2E1|
00001770: 20 20 4C 44 41 20 41 4E 50 55 4E 4B 54 00 9D 44 | LDA ANPUNKT..D|
00001780: 5F 01 20 4C 44 58 23 31 39 35 00 AD 44 60 01 20 |_. LDX#195..D`. |
00001790: 4A 53 52 5A 57 45 49 54 45 52 00 B9 44 61 01 20 |JSRZWEITER..Da. |
000017A0: 4C 44 41 23 30 31 00 C6 44 62 01 20 4C 44 58 23 |LDA#01..Db. LDX#|
000017B0: 31 39 35 00 D6 44 63 01 20 4A 53 52 44 52 49 54 |195..Dc. JSRDRIT|
000017C0: 54 45 52 00 E2 44 64 01 20 4C 44 41 23 30 31 00 |TER..Dd. LDA#01.|
000017D0: EF 44 65 01 20 4C 44 58 23 31 39 35 00 FF 44 66 |.De. LDX#195..Df|
000017E0: 01 20 4A 53 52 56 49 45 52 54 45 52 00 0B 45 67 |. JSRVIERTER..Eg|
000017F0: 01 20 4C 44 41 23 30 31 00 1B 45 68 01 20 4A 4D |. LDA#01..Eh. JM|
00001800: 50 53 31 45 31 2B 31 36 00 21 45 69 01 3B 00 48 |PS1E1+16.!Ei.;.H|
00001810: 45 6A 01 3B 53 54 41 52 54 20 49 4D 20 32 2E 2C |Ej.;START IM 2.,|
00001820: 20 45 4E 44 45 20 49 4D 20 32 2E 51 55 41 44 52 | ENDE IM 2.QUADR|
00001830: 41 4E 54 45 4E 00 4E 45 6B 01 3B 00 64 45 6C 01 |ANTEN.NEk.;.dEl.|
00001840: 53 32 45 32 20 20 4C 44 41 20 41 4E 50 55 4E 4B |S2E2 LDA ANPUNK|
00001850: 54 00 75 45 6D 01 20 43 4D 50 45 4E 44 50 55 4E |T.uEm. CMPENDPUN|
00001860: 4B 54 00 83 45 6E 01 20 42 43 43 53 32 45 32 32 |KT..En. BCCS2E22|
00001870: 00 90 45 6F 01 20 4C 44 58 23 31 39 35 00 A0 45 |..Eo. LDX#195..E|
00001880: 70 01 20 4A 53 52 5A 57 45 49 54 45 52 00 AC 45 |p. JSRZWEITER..E|
00001890: 71 01 20 4C 44 41 23 30 31 00 BB 45 72 01 20 4A |q. LDA#01..Er. J|
000018A0: 4D 50 53 33 45 32 2B 32 00 D1 45 73 01 53 32 45 |MPS3E2+2..Es.S2E|
000018B0: 32 32 20 20 4A 4D 50 20 53 31 45 32 2B 39 00 D7 |22 JMP S1E2+9..|
000018C0: 45 74 01 3B 00 FE 45 75 01 3B 53 54 41 52 54 20 |Et.;..Eu.;START |
000018D0: 49 4D 20 32 2E 2C 20 45 4E 44 45 20 49 4D 20 33 |IM 2., ENDE IM 3|
000018E0: 2E 51 55 41 44 52 41 4E 54 45 4E 00 04 46 76 01 |.QUADRANTEN..Fv.|
000018F0: 3B 00 1A 46 77 01 53 32 45 33 20 20 4C 44 41 20 |;..Fw.S2E3 LDA |
00001900: 41 4E 50 55 4E 4B 54 00 29 46 78 01 20 4A 4D 50 |ANPUNKT.)Fx. JMP|
00001910: 53 31 45 33 2B 39 00 2F 46 79 01 3B 00 56 46 7A |S1E3+9./Fy.;.VFz|
00001920: 01 3B 53 54 41 52 54 20 49 4D 20 32 2E 2C 20 45 |.;START IM 2., E|
00001930: 4E 44 45 20 49 4D 20 34 2E 51 55 41 44 52 41 4E |NDE IM 4.QUADRAN|
00001940: 54 45 4E 00 5C 46 7B 01 3B 00 72 46 7C 01 53 32 |TEN.\F{.;.rF|.S2|
00001950: 45 34 20 20 4C 44 41 20 41 4E 50 55 4E 4B 54 00 |E4 LDA ANPUNKT.|
00001960: 81 46 7D 01 20 4A 4D 50 53 31 45 34 2B 39 00 87 |.F}. JMPS1E4+9..|
00001970: 46 7E 01 3B 00 AE 46 7F 01 3B 53 54 41 52 54 20 |F~.;..F..;START |
00001980: 49 4D 20 33 2E 2C 20 45 4E 44 45 20 49 4D 20 31 |IM 3., ENDE IM 1|
00001990: 2E 51 55 41 44 52 41 4E 54 45 4E 00 B4 46 80 01 |.QUADRANTEN..F..|
000019A0: 3B 00 CA 46 81 01 53 33 45 31 20 20 4C 44 41 20 |;..F..S3E1 LDA |
000019B0: 41 4E 50 55 4E 4B 54 00 D9 46 82 01 20 4A 4D 50 |ANPUNKT..F.. JMP|
000019C0: 53 32 45 31 2B 39 00 DF 46 83 01 3B 00 06 47 84 |S2E1+9..F..;..G.|
000019D0: 01 3B 53 54 41 52 54 20 49 4D 20 33 2E 2C 20 45 |.;START IM 3., E|
000019E0: 4E 44 45 20 49 4D 20 32 2E 51 55 41 44 52 41 4E |NDE IM 2.QUADRAN|
000019F0: 54 45 4E 00 0C 47 85 01 3B 00 22 47 86 01 53 33 |TEN..G..;."G..S3|
00001A00: 45 32 20 20 4C 44 41 20 41 4E 50 55 4E 4B 54 00 |E2 LDA ANPUNKT.|
00001A10: 2F 47 87 01 20 4C 44 58 23 31 39 35 00 3F 47 88 |/G.. LDX#195.?G.|
00001A20: 01 20 4A 53 52 44 52 49 54 54 45 52 00 4B 47 89 |. JSRDRITTER.KG.|
00001A30: 01 20 4C 44 41 23 30 31 00 58 47 8A 01 20 4C 44 |. LDA#01.XG.. LD|
00001A40: 58 23 31 39 35 00 68 47 8B 01 20 4A 53 52 56 49 |X#195.hG.. JSRVI|
00001A50: 45 52 54 45 52 00 74 47 8C 01 20 4C 44 41 23 30 |ERTER.tG.. LDA#0|
00001A60: 31 00 83 47 8D 01 20 4A 4D 50 53 31 45 32 2B 32 |1..G.. JMPS1E2+2|
00001A70: 00 89 47 8E 01 3B 00 B0 47 8F 01 3B 53 54 41 52 |..G..;..G..;STAR|
00001A80: 54 20 49 4D 20 33 2E 2C 20 45 4E 44 45 20 49 4D |T IM 3., ENDE IM|
00001A90: 20 33 2E 51 55 41 44 52 41 4E 54 45 4E 00 B6 47 | 3.QUADRANTEN..G|
00001AA0: 90 01 3B 00 CC 47 91 01 53 33 45 33 20 20 4C 44 |..;..G..S3E3 LD|
00001AB0: 41 20 41 4E 50 55 4E 4B 54 00 DD 47 92 01 20 43 |A ANPUNKT..G.. C|
00001AC0: 4D 50 45 4E 44 50 55 4E 4B 54 00 EB 47 93 01 20 |MPENDPUNKT..G.. |
00001AD0: 42 43 43 53 33 45 33 33 00 F8 47 94 01 20 4C 44 |BCCS3E33..G.. LD|
00001AE0: 58 23 31 39 35 00 08 48 95 01 20 4A 53 52 44 52 |X#195..H.. JSRDR|
00001AF0: 49 54 54 45 52 00 14 48 96 01 20 4C 44 41 23 30 |ITTER..H.. LDA#0|
00001B00: 31 00 23 48 97 01 20 4A 4D 50 53 34 45 33 2B 32 |1.#H.. JMPS4E3+2|
00001B10: 00 3A 48 98 01 53 33 45 33 33 20 20 4A 4D 50 20 |.:H..S3E33 JMP |
00001B20: 53 31 45 33 2B 31 36 00 40 48 99 01 3B 00 67 48 |S1E3+16.@H..;.gH|
00001B30: 9A 01 3B 53 54 41 52 54 20 49 4D 20 33 2E 2C 20 |..;START IM 3., |
00001B40: 45 4E 44 45 20 49 4D 20 34 2E 51 55 41 44 52 41 |ENDE IM 4.QUADRA|
00001B50: 4E 54 45 4E 00 6D 48 9B 01 3B 00 83 48 9C 01 53 |NTEN.mH..;..H..S|
00001B60: 33 45 34 20 20 4C 44 41 20 41 4E 50 55 4E 4B 54 |3E4 LDA ANPUNKT|
00001B70: 00 93 48 9D 01 20 4A 4D 50 53 31 45 34 2B 31 36 |..H.. JMPS1E4+16|
00001B80: 00 99 48 9E 01 3B 00 C0 48 9F 01 3B 53 54 41 52 |..H..;..H..;STAR|
00001B90: 54 20 49 4D 20 34 2E 2C 20 45 4E 44 45 20 49 4D |T IM 4., ENDE IM|
00001BA0: 20 31 2E 51 55 41 44 52 41 4E 54 45 4E 00 C6 48 | 1.QUADRANTEN..H|
00001BB0: A0 01 3B 00 DC 48 A1 01 53 34 45 31 20 20 4C 44 |..;..H..S4E1 LD|
00001BC0: 41 20 41 4E 50 55 4E 4B 54 00 EC 48 A2 01 20 4A |A ANPUNKT..H.. J|
00001BD0: 4D 50 53 32 45 31 2B 31 36 00 F2 48 A3 01 3B 00 |MPS2E1+16..H..;.|
00001BE0: 19 49 A4 01 3B 53 54 41 52 54 20 49 4D 20 34 2E |.I..;START IM 4.|
00001BF0: 2C 20 45 4E 44 45 20 49 4D 20 32 2E 51 55 41 44 |, ENDE IM 2.QUAD|
00001C00: 52 41 4E 54 45 4E 00 1F 49 A5 01 3B 00 35 49 A6 |RANTEN..I..;.5I.|
00001C10: 01 53 34 45 32 20 20 4C 44 41 20 41 4E 50 55 4E |.S4E2 LDA ANPUN|
00001C20: 4B 54 00 44 49 A7 01 20 4A 4D 50 53 33 45 32 2B |KT.DI.. JMPS3E2+|
00001C30: 39 00 4A 49 A8 01 3B 00 71 49 A9 01 3B 53 54 41 |9.JI..;.qI..;STA|
00001C40: 52 54 20 49 4D 20 34 2E 2C 20 45 4E 44 45 20 49 |RT IM 4., ENDE I|
00001C50: 4D 20 33 2E 51 55 41 44 52 41 4E 54 45 4E 00 77 |M 3.QUADRANTEN.w|
00001C60: 49 AA 01 3B 00 8D 49 AB 01 53 34 45 33 20 20 4C |I..;..I..S4E3 L|
00001C70: 44 41 20 41 4E 50 55 4E 4B 54 00 9A 49 AC 01 20 |DA ANPUNKT..I.. |
00001C80: 4C 44 58 23 31 39 35 00 AA 49 AD 01 20 4A 53 52 |LDX#195..I.. JSR|
00001C90: 56 49 45 52 54 45 52 00 B6 49 AE 01 20 4C 44 41 |VIERTER..I.. LDA|
00001CA0: 23 30 31 00 C5 49 AF 01 20 4A 4D 50 53 31 45 33 |#01..I.. JMPS1E3|
00001CB0: 2B 32 00 CB 49 B0 01 3B 00 F2 49 B1 01 3B 53 54 |+2..I..;..I..;ST|
00001CC0: 41 52 54 20 49 4D 20 34 2E 2C 20 45 4E 44 45 20 |ART IM 4., ENDE |
00001CD0: 49 4D 20 34 2E 51 55 41 44 52 41 4E 54 45 4E 00 |IM 4.QUADRANTEN.|
00001CE0: F8 49 B2 01 3B 00 0E 4A B3 01 53 34 45 34 20 20 |.I..;..J..S4E4 |
00001CF0: 4C 44 41 20 41 4E 50 55 4E 4B 54 00 1F 4A B4 01 |LDA ANPUNKT..J..|
00001D00: 20 43 4D 50 45 4E 44 50 55 4E 4B 54 00 2D 4A B5 | CMPENDPUNKT.-J.|
00001D10: 01 20 42 43 43 53 34 45 34 34 00 3A 4A B6 01 20 |. BCCS4E44.:J.. |
00001D20: 4C 44 58 23 31 39 35 00 4A 4A B7 01 20 4A 53 52 |LDX#195.JJ.. JSR|
00001D30: 56 49 45 52 54 45 52 00 56 4A B8 01 20 4C 44 41 |VIERTER.VJ.. LDA|
00001D40: 23 30 31 00 65 4A B9 01 20 4A 4D 50 53 31 45 34 |#01.eJ.. JMPS1E4|
00001D50: 2B 32 00 7C 4A BA 01 53 34 45 34 34 20 20 4A 4D |+2.|J..S4E44 JM|
00001D60: 50 20 53 31 45 34 2B 32 33 00 82 4A BB 01 3B 00 |P S1E4+23..J..;.|
00001D70: 9C 4A BC 01 4C 4F 57 54 41 42 20 20 2E 42 59 20 |.J..LOWTAB .BY |
00001D80: 30 2C 30 2C 30 2C 30 2C 30 00 C4 4A BD 01 20 2E |0,0,0,0,0..J.. .|
00001D90: 42 59 3C 28 53 31 45 31 29 2C 3C 28 53 31 45 32 |BY<(S1E1),<(S1E2|
00001DA0: 29 2C 3C 28 53 31 45 33 29 2C 3C 28 53 31 45 34 |),<(S1E3),<(S1E4|
00001DB0: 29 00 EC 4A BE 01 20 2E 42 59 3C 28 53 32 45 31 |)..J.. .BY<(S2E1|
00001DC0: 29 2C 3C 28 53 32 45 32 29 2C 3C 28 53 32 45 33 |),<(S2E2),<(S2E3|
00001DD0: 29 2C 3C 28 53 32 45 34 29 00 14 4B BF 01 20 2E |),<(S2E4)..K.. .|
00001DE0: 42 59 3C 28 53 33 45 31 29 2C 3C 28 53 33 45 32 |BY<(S3E1),<(S3E2|
00001DF0: 29 2C 3C 28 53 33 45 33 29 2C 3C 28 53 33 45 34 |),<(S3E3),<(S3E4|
00001E00: 29 00 3C 4B C0 01 20 2E 42 59 3C 28 53 34 45 31 |).<K.. .BY<(S4E1|
00001E10: 29 2C 3C 28 53 34 45 32 29 2C 3C 28 53 34 45 33 |),<(S4E2),<(S4E3|
00001E20: 29 2C 3C 28 53 34 45 34 29 00 55 4B C1 01 48 49 |),<(S4E4).UK..HI|
00001E30: 47 48 54 41 42 20 2E 42 59 30 2C 30 2C 30 2C 30 |GHTAB .BY0,0,0,0|
00001E40: 2C 30 00 7D 4B C2 01 20 2E 42 59 3E 28 53 31 45 |,0.}K.. .BY>(S1E|
00001E50: 31 29 2C 3E 28 53 31 45 32 29 2C 3E 28 53 31 45 |1),>(S1E2),>(S1E|
00001E60: 33 29 2C 3E 28 53 31 45 34 29 00 A5 4B C3 01 20 |3),>(S1E4)..K.. |
00001E70: 2E 42 59 3E 28 53 32 45 31 29 2C 3E 28 53 32 45 |.BY>(S2E1),>(S2E|
00001E80: 32 29 2C 3E 28 53 32 45 33 29 2C 3E 28 53 32 45 |2),>(S2E3),>(S2E|
00001E90: 34 29 00 CD 4B C4 01 20 2E 42 59 3E 28 53 33 45 |4)..K.. .BY>(S3E|
00001EA0: 31 29 2C 3E 28 53 33 45 32 29 2C 3E 28 53 33 45 |1),>(S3E2),>(S3E|
00001EB0: 33 29 2C 3E 28 53 33 45 34 29 00 F5 4B C5 01 20 |3),>(S3E4)..K.. |
00001EC0: 2E 42 59 3E 28 53 34 45 31 29 2C 3E 28 53 34 45 |.BY>(S4E1),>(S4E|
00001ED0: 32 29 2C 3E 28 53 34 45 33 29 2C 3E 28 53 34 45 |2),>(S4E3),>(S4E|
00001EE0: 34 29 00 FB 4B C6 01 3B 00 1B 4C C7 01 3B 45 52 |4)..K..;..L..;ER|
00001EF0: 53 54 45 4E 20 51 55 41 44 52 41 4E 54 45 4E 20 |STEN QUADRANTEN |
00001F00: 5A 45 49 43 48 4E 45 4E 00 3B 4C C8 01 3B 3D 3D |ZEICHNEN.;L..;==|
00001F10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001F20: 3D 3D 3D 3D 3D 3D 3D 3D 00 41 4C C9 01 3B 00 55 |========.AL..;.U|
00001F30: 4C CA 01 45 52 53 54 45 52 20 53 54 41 5A 41 45 |L..ERSTER STAZAE|
00001F40: 48 4C 00 65 4C CB 01 20 53 54 58 5A 41 45 48 4C |HL.eL.. STXZAEHL|
00001F50: 2B 31 00 89 4C CC 01 20 4C 44 41 23 31 39 35 20 |+1..L.. LDA#195 |
00001F60: 20 20 20 20 20 20 20 3B 5A 41 45 48 4C 45 52 20 | ;ZAEHLER |
00001F70: 53 45 54 5A 45 4E 00 92 4C CD 01 20 53 45 43 00 |SETZEN..L.. SEC.|
00001F80: B7 4C CE 01 20 53 42 43 5A 41 45 48 4C 20 20 20 |.L.. SBCZAEHL |
00001F90: 20 20 20 20 3B 55 4E 44 20 49 4E 56 45 52 54 49 | ;UND INVERTI|
00001FA0: 45 52 45 4E 00 C5 4C CF 01 20 53 54 41 5A 41 45 |EREN..L.. STAZAE|
00001FB0: 48 4C 00 D2 4C D0 01 20 4C 44 41 23 31 39 35 00 |HL..L.. LDA#195.|
00001FC0: DB 4C D1 01 20 53 45 43 00 EB 4C D2 01 20 53 42 |.L.. SEC..L.. SB|
00001FD0: 43 5A 41 45 48 4C 2B 31 00 FB 4C D3 01 20 53 54 |CZAEHL+1..L.. ST|
00001FE0: 41 5A 41 45 48 4C 2B 31 00 20 4D D4 01 4C 4F 4F |AZAEHL+1. M..LOO|
00001FF0: 50 51 31 20 4C 44 58 5A 41 45 48 4C 2B 31 20 3B |PQ1 LDXZAEHL+1 ;|
00002000: 5A 41 45 48 4C 45 52 20 48 4F 4C 45 4E 00 44 4D |ZAEHLER HOLEN.DM|
00002010: D5 01 20 4C 44 41 24 44 30 30 30 2C 58 20 20 20 |.. LDA$D000,X |
00002020: 20 3B 58 2D 4F 44 46 46 53 45 54 20 48 4F 4C 45 | ;X-ODFFSET HOLE|
00002030: 4E 00 5F 4D D6 01 20 53 54 41 58 4F 46 46 20 20 |N._M.. STAXOFF |
00002040: 20 20 20 20 20 3B 4D 45 52 4B 45 4E 00 82 4D D7 | ;MERKEN..M.|
00002050: 01 20 4C 44 41 24 44 31 30 30 2C 58 20 20 20 20 |. LDA$D100,X |
00002060: 3B 59 2D 4F 46 46 53 45 54 20 48 4F 4C 45 4E 00 |;Y-OFFSET HOLEN.|
00002070: 9D 4D D8 01 20 53 54 41 59 4F 46 46 20 20 20 20 |.M.. STAYOFF |
00002080: 20 20 20 3B 4D 45 52 4B 45 4E 00 BF 4D D9 01 20 | ;MERKEN..M.. |
00002090: 4C 44 41 58 31 20 20 20 20 20 20 20 20 20 3B 4D |LDAX1 ;M|
000020A0: 49 54 54 45 4C 50 55 4E 4B 54 53 2D 00 E5 4D DA |ITTELPUNKTS-..M.|
000020B0: 01 20 4C 44 59 58 32 20 20 20 20 20 20 20 20 20 |. LDYX2 |
000020C0: 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 48 4F 4C |;KOORDINATEN HOL|
000020D0: 45 4E 00 EE 4D DB 01 20 43 4C 43 00 0B 4E DC 01 |EN..M.. CLC..N..|
000020E0: 20 41 44 43 58 4F 46 46 20 20 20 20 20 20 20 3B | ADCXOFF ;|
000020F0: 58 3D 58 2B 58 4F 46 46 00 18 4E DD 01 20 42 43 |X=X+XOFF..N.. BC|
00002100: 43 4C 51 31 31 00 21 4E DE 01 20 49 4E 59 00 45 |CLQ11.!N.. INY.E|
00002110: 4E DF 01 4C 51 31 31 20 20 43 50 59 20 23 30 30 |N..LQ11 CPY #00|
00002120: 20 20 3B 58 48 3D 30 2C 20 44 41 4E 4E 20 4F 2E | ;XH=0, DANN O.|
00002130: 4B 2E 00 52 4E E0 01 20 42 45 51 4C 51 31 33 00 |K..RN.. BEQLQ13.|
00002140: 76 4E E1 01 20 43 50 59 23 30 32 20 20 20 20 20 |vN.. CPY#02 |
00002150: 20 20 20 3B 58 48 3E 31 2C 20 44 41 4E 4E 20 4B | ;XH>1, DANN K|
00002160: 45 49 4E 00 97 4E E2 01 20 42 43 53 4C 51 31 32 |EIN..N.. BCSLQ12|
00002170: 20 20 20 20 20 20 20 3B 50 55 4E 4B 54 20 53 45 | ;PUNKT SE|
00002180: 54 5A 45 4E 00 BC 4E E3 01 20 43 4D 50 23 36 34 |TZEN..N.. CMP#64|
00002190: 20 20 20 20 20 20 20 20 3B 58 48 3D 31 20 55 4E | ;XH=1 UN|
000021A0: 44 20 58 4C 3E 3D 36 34 2C 00 E5 4E E4 01 20 42 |D XL>=64,..N.. B|
000021B0: 43 53 4C 51 31 32 20 20 20 20 20 20 20 3B 44 41 |CSLQ12 ;DA|
000021C0: 4E 4E 20 41 55 43 48 20 4B 45 49 4E 20 50 55 4E |NN AUCH KEIN PUN|
000021D0: 4B 54 00 F6 4E E5 01 4C 51 31 33 20 20 53 54 41 |KT..N..LQ13 STA|
000021E0: 20 58 4C 00 01 4F E6 01 20 53 54 59 58 48 00 1E | XL..O.. STYXH..|
000021F0: 4F E7 01 20 4C 44 41 59 20 20 20 20 20 20 20 20 |O.. LDAY |
00002200: 20 20 3B 59 3D 59 2D 59 4F 46 46 00 27 4F E8 01 | ;Y=Y-YOFF.'O..|
00002210: 20 53 45 43 00 4A 4F E9 01 20 53 42 43 59 4F 46 | SEC.JO.. SBCYOF|
00002220: 46 20 20 20 20 20 20 20 3B 59 3C 30 2C 20 44 41 |F ;Y<0, DA|
00002230: 4E 4E 20 4B 45 49 4E 00 6B 4F EA 01 20 42 43 43 |NN KEIN.kO.. BCC|
00002240: 4C 51 31 32 20 20 20 20 20 20 20 3B 50 55 4E 4B |LQ12 ;PUNK|
00002250: 54 20 53 45 54 5A 45 4E 00 8C 4F EB 01 20 54 41 |T SETZEN..O.. TA|
00002260: 58 20 20 20 20 20 20 20 20 20 20 20 3B 59 2D 4B |X ;Y-K|
00002270: 4F 4F 52 44 49 4E 41 54 45 00 B1 4F EC 01 20 4C |OORDINATE..O.. L|
00002280: 44 59 58 4C 20 20 20 20 20 20 20 20 20 3B 58 2D |DYXL ;X-|
00002290: 4B 4F 4F 52 44 49 4E 41 54 45 20 4C 4F 57 00 D2 |KOORDINATE LOW..|
000022A0: 4F ED 01 20 4A 53 52 50 4C 4F 54 20 20 20 20 20 |O.. JSRPLOT |
000022B0: 20 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 4E 00 | ;PUNKT SETZEN.|
000022C0: E8 4F EE 01 4C 51 31 32 20 20 49 4E 43 20 5A 41 |.O..LQ12 INC ZA|
000022D0: 45 48 4C 2B 31 00 F8 4F EF 01 20 4C 44 41 5A 41 |EHL+1..O.. LDAZA|
000022E0: 45 48 4C 2B 31 00 18 50 F0 01 20 43 4D 50 5A 41 |EHL+1..P.. CMPZA|
000022F0: 45 48 4C 20 20 20 20 20 20 3B 41 4C 4C 45 20 50 |EHL ;ALLE P|
00002300: 55 4E 4B 54 45 00 3A 50 F1 01 20 42 4E 45 4C 4F |UNKTE.:P.. BNELO|
00002310: 4F 50 51 31 20 20 20 20 20 3B 47 45 53 45 54 5A |OPQ1 ;GESETZ|
00002320: 54 2C 20 44 41 4E 4E 00 55 50 F2 01 20 52 54 53 |T, DANN.UP.. RTS|
00002330: 20 20 20 20 20 20 20 20 20 20 20 3B 46 45 52 54 | ;FERT|
00002340: 49 47 00 5B 50 F3 01 3B 00 61 50 F4 01 3B 00 82 |IG.[P..;.aP..;..|
00002350: 50 F5 01 3B 5A 57 45 49 54 45 4E 20 51 55 41 44 |P..;ZWEITEN QUAD|
00002360: 52 41 4E 54 45 4E 20 5A 45 49 43 48 4E 45 4E 00 |RANTEN ZEICHNEN.|
00002370: A3 50 F6 01 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.P..;===========|
00002380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002390: 00 A9 50 F7 01 3B 00 CE 50 F8 01 5A 57 45 49 54 |..P..;..P..ZWEIT|
000023A0: 45 52 20 53 54 41 5A 41 45 48 4C 20 3B 5A 41 45 |ER STAZAEHL ;ZAE|
000023B0: 48 4C 45 52 20 53 45 54 5A 45 4E 00 DE 50 F9 01 |HLER SETZEN..P..|
000023C0: 20 53 54 58 5A 41 45 48 4C 2B 31 00 01 51 FA 01 | STXZAEHL+1..Q..|
000023D0: 4C 4F 4F 50 51 32 20 4C 44 58 5A 41 45 48 4C 20 |LOOPQ2 LDXZAEHL |
000023E0: 3B 5A 41 45 48 4C 45 52 20 48 4F 4C 45 4E 00 25 |;ZAEHLER HOLEN.%|
000023F0: 51 FB 01 20 4C 44 41 24 44 30 30 30 2C 58 20 20 |Q.. LDA$D000,X |
00002400: 20 20 3B 58 2D 4F 44 46 46 53 45 54 20 48 4F 4C | ;X-ODFFSET HOL|
00002410: 45 4E 00 40 51 FC 01 20 53 54 41 58 4F 46 46 20 |EN.@Q.. STAXOFF |
00002420: 20 20 20 20 20 20 3B 4D 45 52 4B 45 4E 00 63 51 | ;MERKEN.cQ|
00002430: FD 01 20 4C 44 41 24 44 31 30 30 2C 58 20 20 20 |.. LDA$D100,X |
00002440: 20 3B 59 2D 4F 46 46 53 45 54 20 48 4F 4C 45 4E | ;Y-OFFSET HOLEN|
00002450: 00 7E 51 FE 01 20 53 54 41 59 4F 46 46 20 20 20 |.~Q.. STAYOFF |
00002460: 20 20 20 20 3B 4D 45 52 4B 45 4E 00 A0 51 FF 01 | ;MERKEN..Q..|
00002470: 20 4C 44 41 58 31 20 20 20 20 20 20 20 20 20 3B | LDAX1 ;|
00002480: 4D 49 54 54 45 4C 50 55 4E 4B 54 53 2D 00 C6 51 |MITTELPUNKTS-..Q|
00002490: 00 02 20 4C 44 59 58 32 20 20 20 20 20 20 20 20 |.. LDYX2 |
000024A0: 20 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 48 4F | ;KOORDINATEN HO|
000024B0: 4C 45 4E 00 CF 51 01 02 20 43 4C 43 00 EC 51 02 |LEN..Q.. CLC..Q.|
000024C0: 02 20 41 44 43 58 4F 46 46 20 20 20 20 20 20 20 |. ADCXOFF |
000024D0: 3B 58 3D 58 2B 58 4F 46 46 00 F9 51 03 02 20 42 |;X=X+XOFF..Q.. B|
000024E0: 43 43 4C 51 32 31 00 02 52 04 02 20 49 4E 59 00 |CCLQ21..R.. INY.|
000024F0: 26 52 05 02 4C 51 32 31 20 20 43 50 59 20 23 30 |&R..LQ21 CPY #0|
00002500: 30 20 20 3B 58 48 3D 30 2C 20 44 41 4E 4E 20 4F |0 ;XH=0, DANN O|
00002510: 2E 4B 2E 00 33 52 06 02 20 42 45 51 4C 51 32 33 |.K..3R.. BEQLQ23|
00002520: 00 57 52 07 02 20 43 50 59 23 30 32 20 20 20 20 |.WR.. CPY#02 |
00002530: 20 20 20 20 3B 58 48 3E 31 2C 20 44 41 4E 4E 20 | ;XH>1, DANN |
00002540: 4B 45 49 4E 00 78 52 08 02 20 42 43 53 4C 51 32 |KEIN.xR.. BCSLQ2|
00002550: 32 20 20 20 20 20 20 20 3B 50 55 4E 4B 54 20 53 |2 ;PUNKT S|
00002560: 45 54 5A 45 4E 00 9D 52 09 02 20 43 4D 50 23 36 |ETZEN..R.. CMP#6|
00002570: 34 20 20 20 20 20 20 20 20 3B 58 48 3D 31 20 55 |4 ;XH=1 U|
00002580: 4E 44 20 58 4C 3E 3D 36 34 2C 00 C6 52 0A 02 20 |ND XL>=64,..R.. |
00002590: 42 43 53 4C 51 32 32 20 20 20 20 20 20 20 3B 44 |BCSLQ22 ;D|
000025A0: 41 4E 4E 20 41 55 43 48 20 4B 45 49 4E 20 50 55 |ANN AUCH KEIN PU|
000025B0: 4E 4B 54 00 D7 52 0B 02 4C 51 32 33 20 20 53 54 |NKT..R..LQ23 ST|
000025C0: 41 20 58 4C 00 E2 52 0C 02 20 53 54 59 58 48 00 |A XL..R.. STYXH.|
000025D0: FF 52 0D 02 20 4C 44 41 59 20 20 20 20 20 20 20 |.R.. LDAY |
000025E0: 20 20 20 3B 59 3D 59 2D 59 4F 46 46 00 08 53 0E | ;Y=Y-YOFF..S.|
000025F0: 02 20 43 4C 43 00 2D 53 0F 02 20 41 44 43 59 4F |. CLC.-S.. ADCYO|
00002600: 46 46 20 20 20 20 20 20 20 3B 59 3E 32 30 30 2C |FF ;Y>200,|
00002610: 20 44 41 4E 4E 20 4B 45 49 4E 00 3A 53 10 02 20 | DANN KEIN.:S.. |
00002620: 42 43 53 4C 51 32 32 00 5B 53 11 02 20 43 4D 50 |BCSLQ22.[S.. CMP|
00002630: 23 32 30 30 20 20 20 20 20 20 20 3B 50 55 4E 4B |#200 ;PUNK|
00002640: 54 20 53 45 54 5A 45 4E 00 68 53 12 02 20 42 43 |T SETZEN.hS.. BC|
00002650: 53 4C 51 32 32 00 89 53 13 02 20 54 41 58 20 20 |SLQ22..S.. TAX |
00002660: 20 20 20 20 20 20 20 20 20 3B 59 2D 4B 4F 4F 52 | ;Y-KOOR|
00002670: 44 49 4E 41 54 45 00 AE 53 14 02 20 4C 44 59 58 |DINATE..S.. LDYX|
00002680: 4C 20 20 20 20 20 20 20 20 20 3B 58 2D 4B 4F 4F |L ;X-KOO|
00002690: 52 44 49 4E 41 54 45 20 4C 4F 57 00 CF 53 15 02 |RDINATE LOW..S..|
000026A0: 20 4A 53 52 50 4C 4F 54 20 20 20 20 20 20 20 3B | JSRPLOT ;|
000026B0: 50 55 4E 4B 54 20 53 45 54 5A 45 4E 00 E3 53 16 |PUNKT SETZEN..S.|
000026C0: 02 4C 51 32 32 20 20 49 4E 43 20 5A 41 45 48 4C |.LQ22 INC ZAEHL|
000026D0: 00 F1 53 17 02 20 4C 44 41 5A 41 45 48 4C 00 11 |..S.. LDAZAEHL..|
000026E0: 54 18 02 20 43 4D 50 5A 41 45 48 4C 2B 31 20 20 |T.. CMPZAEHL+1 |
000026F0: 20 20 3B 41 4C 4C 45 20 50 55 4E 4B 54 45 00 33 | ;ALLE PUNKTE.3|
00002700: 54 19 02 20 42 4E 45 4C 4F 4F 50 51 32 20 20 20 |T.. BNELOOPQ2 |
00002710: 20 20 3B 47 45 53 45 54 5A 54 2C 20 44 41 4E 4E | ;GESETZT, DANN|
00002720: 00 4E 54 1A 02 20 52 54 53 20 20 20 20 20 20 20 |.NT.. RTS |
00002730: 20 20 20 20 3B 46 45 52 54 49 47 00 54 54 1B 02 | ;FERTIG.TT..|
00002740: 3B 00 5A 54 1C 02 3B 00 7B 54 1D 02 3B 44 52 49 |;.ZT..;.{T..;DRI|
00002750: 54 54 45 4E 20 51 55 41 44 52 41 4E 54 45 4E 20 |TTEN QUADRANTEN |
00002760: 5A 45 49 43 48 4E 45 4E 00 9C 54 1E 02 3B 3D 3D |ZEICHNEN..T..;==|
00002770: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002780: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 A2 54 1F 02 3B 00 |=========..T..;.|
00002790: B7 54 20 02 44 52 49 54 54 45 52 20 53 54 41 5A |.T .DRITTER STAZ|
000027A0: 41 45 48 4C 00 C7 54 21 02 20 53 54 58 5A 41 45 |AEHL..T!. STXZAE|
000027B0: 48 4C 2B 31 00 EB 54 22 02 20 4C 44 41 23 31 39 |HL+1..T". LDA#19|
000027C0: 35 20 20 20 20 20 20 20 20 3B 5A 41 45 48 4C 45 |5 ;ZAEHLE|
000027D0: 52 20 53 45 54 5A 45 4E 00 F4 54 23 02 20 53 45 |R SETZEN..T#. SE|
000027E0: 43 00 19 55 24 02 20 53 42 43 5A 41 45 48 4C 20 |C..U$. SBCZAEHL |
000027F0: 20 20 20 20 20 20 3B 55 4E 44 20 49 4E 56 45 52 | ;UND INVER|
00002800: 54 49 45 52 45 4E 00 27 55 25 02 20 53 54 41 5A |TIEREN.'U%. STAZ|
00002810: 41 45 48 4C 00 34 55 26 02 20 4C 44 41 23 31 39 |AEHL.4U&. LDA#19|
00002820: 35 00 3D 55 27 02 20 53 45 43 00 4D 55 28 02 20 |5.=U'. SEC.MU(. |
00002830: 53 42 43 5A 41 45 48 4C 2B 31 00 5D 55 29 02 20 |SBCZAEHL+1.]U). |
00002840: 53 54 41 5A 41 45 48 4C 2B 31 00 82 55 2A 02 4C |STAZAEHL+1..U*.L|
00002850: 4F 4F 50 51 33 20 4C 44 58 5A 41 45 48 4C 2B 31 |OOPQ3 LDXZAEHL+1|
00002860: 20 3B 5A 41 45 48 4C 45 52 20 48 4F 4C 45 4E 00 | ;ZAEHLER HOLEN.|
00002870: A6 55 2B 02 20 4C 44 41 24 44 30 30 30 2C 58 20 |.U+. LDA$D000,X |
00002880: 20 20 20 3B 58 2D 4F 44 46 46 53 45 54 20 48 4F | ;X-ODFFSET HO|
00002890: 4C 45 4E 00 C1 55 2C 02 20 53 54 41 58 4F 46 46 |LEN..U,. STAXOFF|
000028A0: 20 20 20 20 20 20 20 3B 4D 45 52 4B 45 4E 00 E4 | ;MERKEN..|
000028B0: 55 2D 02 20 4C 44 41 24 44 31 30 30 2C 58 20 20 |U-. LDA$D100,X |
000028C0: 20 20 3B 59 2D 4F 46 46 53 45 54 20 48 4F 4C 45 | ;Y-OFFSET HOLE|
000028D0: 4E 00 FF 55 2E 02 20 53 54 41 59 4F 46 46 20 20 |N..U.. STAYOFF |
000028E0: 20 20 20 20 20 3B 4D 45 52 4B 45 4E 00 21 56 2F | ;MERKEN.!V/|
000028F0: 02 20 4C 44 41 58 31 20 20 20 20 20 20 20 20 20 |. LDAX1 |
00002900: 3B 4D 49 54 54 45 4C 50 55 4E 4B 54 53 2D 00 47 |;MITTELPUNKTS-.G|
00002910: 56 30 02 20 4C 44 59 58 32 20 20 20 20 20 20 20 |V0. LDYX2 |
00002920: 20 20 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 48 | ;KOORDINATEN H|
00002930: 4F 4C 45 4E 00 50 56 31 02 20 53 45 43 00 5D 56 |OLEN.PV1. SEC.]V|
00002940: 32 02 20 53 42 43 58 4F 46 46 00 7A 56 33 02 20 |2. SBCXOFF.zV3. |
00002950: 42 43 53 4C 51 33 35 20 20 20 20 20 20 20 3B 58 |BCSLQ35 ;X|
00002960: 3D 58 2D 58 4F 46 46 00 83 56 34 02 20 44 45 59 |=X-XOFF..V4. DEY|
00002970: 00 A7 56 35 02 4C 51 33 35 20 20 43 50 59 20 23 |..V5.LQ35 CPY #|
00002980: 30 30 20 20 3B 58 48 3D 30 2C 20 44 41 4E 4E 20 |00 ;XH=0, DANN |
00002990: 4F 2E 4B 2E 00 B4 56 36 02 20 42 45 51 4C 51 33 |O.K...V6. BEQLQ3|
000029A0: 36 00 D8 56 37 02 20 43 50 59 23 30 32 20 20 20 |6..V7. CPY#02 |
000029B0: 20 20 20 20 20 3B 58 48 3E 31 2C 20 44 41 4E 4E | ;XH>1, DANN|
000029C0: 20 4B 45 49 4E 00 F9 56 38 02 20 42 43 53 4C 51 | KEIN..V8. BCSLQ|
000029D0: 33 38 20 20 20 20 20 20 20 3B 50 55 4E 4B 54 20 |38 ;PUNKT |
000029E0: 53 45 54 5A 45 4E 00 1E 57 39 02 20 43 4D 50 23 |SETZEN..W9. CMP#|
000029F0: 36 34 20 20 20 20 20 20 20 20 3B 58 48 3D 31 20 |64 ;XH=1 |
00002A00: 55 4E 44 20 58 4C 3E 3D 36 34 2C 00 47 57 3A 02 |UND XL>=64,.GW:.|
00002A10: 20 42 43 53 4C 51 33 38 20 20 20 20 20 20 20 3B | BCSLQ38 ;|
00002A20: 44 41 4E 4E 20 41 55 43 48 20 4B 45 49 4E 20 50 |DANN AUCH KEIN P|
00002A30: 55 4E 4B 54 00 58 57 3B 02 4C 51 33 36 20 20 53 |UNKT.XW;.LQ36 S|
00002A40: 54 41 20 58 4C 00 63 57 3C 02 20 53 54 59 58 48 |TA XL.cW<. STYXH|
00002A50: 00 7F 57 3D 02 20 4C 44 41 59 20 20 20 20 20 20 |..W=. LDAY |
00002A60: 20 20 20 3B 59 3D 59 2B 59 4F 46 46 00 88 57 3E | ;Y=Y+YOFF..W>|
00002A70: 02 20 43 4C 43 00 95 57 3F 02 20 41 44 43 59 4F |. CLC..W?. ADCYO|
00002A80: 46 46 00 A2 57 40 02 20 42 43 53 4C 51 33 38 00 |FF..W@. BCSLQ38.|
00002A90: C7 57 41 02 20 43 4D 50 23 32 30 30 20 20 20 20 |.WA. CMP#200 |
00002AA0: 20 20 3B 59 3E 3D 32 30 30 2C 20 44 41 4E 4E 20 | ;Y>=200, DANN |
00002AB0: 4B 45 49 4E 00 E7 57 42 02 20 42 43 53 4C 51 33 |KEIN..WB. BCSLQ3|
00002AC0: 38 20 20 20 20 20 20 3B 50 55 4E 4B 54 20 53 45 |8 ;PUNKT SE|
00002AD0: 54 5A 45 4E 00 07 58 43 02 20 54 41 58 20 20 20 |TZEN..XC. TAX |
00002AE0: 20 20 20 20 20 20 20 3B 59 2D 4B 4F 4F 52 44 49 | ;Y-KOORDI|
00002AF0: 4E 41 54 45 00 2B 58 44 02 20 4C 44 59 58 4C 20 |NATE.+XD. LDYXL |
00002B00: 20 20 20 20 20 20 20 3B 58 2D 4B 4F 4F 52 44 49 | ;X-KOORDI|
00002B10: 4E 41 54 45 20 4C 4F 57 00 4B 58 45 02 20 4A 53 |NATE LOW.KXE. JS|
00002B20: 52 50 4C 4F 54 20 20 20 20 20 20 3B 50 55 4E 4B |RPLOT ;PUNK|
00002B30: 54 20 53 45 54 5A 45 4E 00 61 58 46 02 4C 51 33 |T SETZEN.aXF.LQ3|
00002B40: 38 20 20 49 4E 43 20 5A 41 45 48 4C 2B 31 00 71 |8 INC ZAEHL+1.q|
00002B50: 58 47 02 20 4C 44 41 5A 41 45 48 4C 2B 31 00 91 |XG. LDAZAEHL+1..|
00002B60: 58 48 02 20 43 4D 50 5A 41 45 48 4C 20 20 20 20 |XH. CMPZAEHL |
00002B70: 20 20 3B 41 4C 4C 45 20 50 55 4E 4B 54 45 00 B3 | ;ALLE PUNKTE..|
00002B80: 58 49 02 20 42 4E 45 4C 4F 4F 50 51 33 20 20 20 |XI. BNELOOPQ3 |
00002B90: 20 20 3B 47 45 53 45 54 5A 54 2C 20 44 41 4E 4E | ;GESETZT, DANN|
00002BA0: 00 CE 58 4A 02 20 52 54 53 20 20 20 20 20 20 20 |..XJ. RTS |
00002BB0: 20 20 20 20 3B 46 45 52 54 49 47 00 D4 58 4B 02 | ;FERTIG..XK.|
00002BC0: 3B 00 DA 58 4C 02 3B 00 FB 58 4D 02 3B 56 49 45 |;..XL.;..XM.;VIE|
00002BD0: 52 54 45 4E 20 51 55 41 44 52 41 4E 54 45 4E 20 |RTEN QUADRANTEN |
00002BE0: 5A 45 49 43 48 4E 45 4E 00 1C 59 4E 02 3B 3D 3D |ZEICHNEN..YN.;==|
00002BF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002C00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 22 59 4F 02 3B 00 |=========."YO.;.|
00002C10: 47 59 50 02 56 49 45 52 54 45 52 20 53 54 41 5A |GYP.VIERTER STAZ|
00002C20: 41 45 48 4C 20 3B 5A 41 45 48 4C 45 52 20 53 45 |AEHL ;ZAEHLER SE|
00002C30: 54 5A 45 4E 00 57 59 51 02 20 53 54 58 5A 41 45 |TZEN.WYQ. STXZAE|
00002C40: 48 4C 2B 31 00 7A 59 52 02 4C 4F 4F 50 51 34 20 |HL+1.zYR.LOOPQ4 |
00002C50: 4C 44 58 5A 41 45 48 4C 20 3B 5A 41 45 48 4C 45 |LDXZAEHL ;ZAEHLE|
00002C60: 52 20 48 4F 4C 45 4E 00 9E 59 53 02 20 4C 44 41 |R HOLEN..YS. LDA|
00002C70: 24 44 30 30 30 2C 58 20 20 20 20 3B 58 2D 4F 44 |$D000,X ;X-OD|
00002C80: 46 46 53 45 54 20 48 4F 4C 45 4E 00 B9 59 54 02 |FFSET HOLEN..YT.|
00002C90: 20 53 54 41 58 4F 46 46 20 20 20 20 20 20 20 3B | STAXOFF ;|
00002CA0: 4D 45 52 4B 45 4E 00 DC 59 55 02 20 4C 44 41 24 |MERKEN..YU. LDA$|
00002CB0: 44 31 30 30 2C 58 20 20 20 20 3B 59 2D 4F 46 46 |D100,X ;Y-OFF|
00002CC0: 53 45 54 20 48 4F 4C 45 4E 00 F7 59 56 02 20 53 |SET HOLEN..YV. S|
00002CD0: 54 41 59 4F 46 46 20 20 20 20 20 20 20 3B 4D 45 |TAYOFF ;ME|
00002CE0: 52 4B 45 4E 00 19 5A 57 02 20 4C 44 41 58 31 20 |RKEN..ZW. LDAX1 |
00002CF0: 20 20 20 20 20 20 20 20 3B 4D 49 54 54 45 4C 50 | ;MITTELP|
00002D00: 55 4E 4B 54 53 2D 00 3F 5A 58 02 20 4C 44 59 58 |UNKTS-.?ZX. LDYX|
00002D10: 32 20 20 20 20 20 20 20 20 20 3B 4B 4F 4F 52 44 |2 ;KOORD|
00002D20: 49 4E 41 54 45 4E 20 48 4F 4C 45 4E 00 48 5A 59 |INATEN HOLEN.HZY|
00002D30: 02 20 53 45 43 00 55 5A 5A 02 20 53 42 43 58 4F |. SEC.UZZ. SBCXO|
00002D40: 46 46 00 72 5A 5B 02 20 42 43 53 4C 51 34 35 20 |FF.rZ[. BCSLQ45 |
00002D50: 20 20 20 20 20 20 3B 58 3D 58 2D 58 4F 46 46 00 | ;X=X-XOFF.|
00002D60: 7B 5A 5C 02 20 44 45 59 00 9F 5A 5D 02 4C 51 34 |{Z\. DEY..Z].LQ4|
00002D70: 35 20 20 43 50 59 20 23 30 30 20 20 3B 58 48 3D |5 CPY #00 ;XH=|
00002D80: 30 2C 20 44 41 4E 4E 20 4F 2E 4B 2E 00 AC 5A 5E |0, DANN O.K...Z^|
00002D90: 02 20 42 45 51 4C 51 34 36 00 D0 5A 5F 02 20 43 |. BEQLQ46..Z_. C|
00002DA0: 50 59 23 30 32 20 20 20 20 20 20 20 20 3B 58 48 |PY#02 ;XH|
00002DB0: 3E 31 2C 20 44 41 4E 4E 20 4B 45 49 4E 00 F1 5A |>1, DANN KEIN..Z|
00002DC0: 60 02 20 42 43 53 4C 51 34 38 20 20 20 20 20 20 |`. BCSLQ48 |
00002DD0: 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 4E 00 16 | ;PUNKT SETZEN..|
00002DE0: 5B 61 02 20 43 4D 50 23 36 34 20 20 20 20 20 20 |[a. CMP#64 |
00002DF0: 20 20 3B 58 48 3D 31 20 55 4E 44 20 58 4C 3E 3D | ;XH=1 UND XL>=|
00002E00: 36 34 2C 00 3F 5B 62 02 20 42 43 53 4C 51 34 38 |64,.?[b. BCSLQ48|
00002E10: 20 20 20 20 20 20 20 3B 44 41 4E 4E 20 41 55 43 | ;DANN AUC|
00002E20: 48 20 4B 45 49 4E 20 50 55 4E 4B 54 00 50 5B 63 |H KEIN PUNKT.P[c|
00002E30: 02 4C 51 34 36 20 20 53 54 41 20 58 4C 00 5B 5B |.LQ46 STA XL.[[|
00002E40: 64 02 20 53 54 59 58 48 00 77 5B 65 02 20 4C 44 |d. STYXH.w[e. LD|
00002E50: 41 59 20 20 20 20 20 20 20 20 20 3B 59 3D 59 2D |AY ;Y=Y-|
00002E60: 59 4F 46 46 00 80 5B 66 02 20 53 45 43 00 A2 5B |YOFF..[f. SEC..[|
00002E70: 67 02 20 53 42 43 59 4F 46 46 20 20 20 20 20 20 |g. SBCYOFF |
00002E80: 3B 59 3C 30 2C 20 44 41 4E 4E 20 4B 45 49 4E 00 |;Y<0, DANN KEIN.|
00002E90: C2 5B 68 02 20 42 43 43 4C 51 33 38 20 20 20 20 |.[h. BCCLQ38 |
00002EA0: 20 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 4E 00 | ;PUNKT SETZEN.|
00002EB0: E2 5B 69 02 20 54 41 58 20 20 20 20 20 20 20 20 |.[i. TAX |
00002EC0: 20 20 3B 59 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 | ;Y-KOORDINATE.|
00002ED0: 06 5C 6A 02 20 4C 44 59 58 4C 20 20 20 20 20 20 |.\j. LDYXL |
00002EE0: 20 20 3B 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 | ;X-KOORDINATE |
00002EF0: 4C 4F 57 00 26 5C 6B 02 20 4A 53 52 50 4C 4F 54 |LOW.&\k. JSRPLOT|
00002F00: 20 20 20 20 20 20 3B 50 55 4E 4B 54 20 53 45 54 | ;PUNKT SET|
00002F10: 5A 45 4E 00 3A 5C 6C 02 4C 51 34 38 20 20 49 4E |ZEN.:\l.LQ48 IN|
00002F20: 43 20 5A 41 45 48 4C 00 48 5C 6D 02 20 4C 44 41 |C ZAEHL.H\m. LDA|
00002F30: 5A 41 45 48 4C 00 68 5C 6E 02 20 43 4D 50 5A 41 |ZAEHL.h\n. CMPZA|
00002F40: 45 48 4C 2B 31 20 20 20 20 3B 41 4C 4C 45 20 50 |EHL+1 ;ALLE P|
00002F50: 55 4E 4B 54 45 00 8A 5C 6F 02 20 42 4E 45 4C 4F |UNKTE..\o. BNELO|
00002F60: 4F 50 51 34 20 20 20 20 20 3B 47 45 53 45 54 5A |OPQ4 ;GESETZ|
00002F70: 54 2C 20 44 41 4E 4E 00 A5 5C 70 02 20 52 54 53 |T, DANN..\p. RTS|
00002F80: 20 20 20 20 20 20 20 20 20 20 20 3B 46 45 52 54 | ;FERT|
00002F90: 49 47 00 AB 5C 71 02 3B 00 C2 5C 72 02 3B 4B 4F |IG..\q.;..\r.;KO|
00002FA0: 4F 52 44 49 4E 41 54 45 4E 20 48 4F 4C 45 4E 00 |ORDINATEN HOLEN.|
00002FB0: D9 5C 73 02 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.\s.;===========|
00002FC0: 3D 3D 3D 3D 3D 3D 00 DF 5C 74 02 3B 00 04 5D 75 |======..\t.;..]u|
00002FD0: 02 4B 4F 4F 52 20 4A 53 52 24 36 33 35 38 20 3B |.KOOR JSR$6358 ;|
00002FE0: 4D 49 54 54 45 4C 50 55 4E 4B 54 20 48 4F 4C 45 |MITTELPUNKT HOLE|
00002FF0: 4E 00 12 5D 76 02 20 4A 53 52 4B 4F 4D 4D 41 00 |N..]v. JSRKOMMA.|
00003000: 35 5D 77 02 20 4A 53 52 42 59 54 45 20 20 20 20 |5]w. JSRBYTE |
00003010: 20 20 20 3B 58 2D 52 41 44 49 55 53 20 48 4F 4C | ;X-RADIUS HOL|
00003020: 45 4E 00 50 5D 78 02 20 43 50 58 23 31 32 39 20 |EN.P]x. CPX#129 |
00003030: 20 20 20 20 20 20 3B 3E 3D 20 31 32 39 00 6F 5D | ;>= 129.o]|
00003040: 79 02 20 42 43 53 45 52 52 4F 52 20 20 20 20 20 |y. BCSERROR |
00003050: 20 3B 4A 41 2C 20 46 45 48 4C 45 52 00 7A 5D 7A | ;JA, FEHLER.z]z|
00003060: 02 20 53 54 58 58 52 00 88 5D 7B 02 20 4A 53 52 |. STXXR..]{. JSR|
00003070: 4B 4F 4D 4D 41 00 AB 5D 7C 02 20 4A 53 52 42 59 |KOMMA..]|. JSRBY|
00003080: 54 45 20 20 20 20 20 20 20 3B 59 2D 52 41 44 49 |TE ;Y-RADI|
00003090: 55 53 20 48 4F 4C 45 4E 00 C6 5D 7D 02 20 43 50 |US HOLEN..]}. CP|
000030A0: 58 23 31 32 39 20 20 20 20 20 20 20 3B 3E 3D 20 |X#129 ;>= |
000030B0: 31 32 39 00 E5 5D 7E 02 20 42 43 53 45 52 52 4F |129..]~. BCSERRO|
000030C0: 52 20 20 20 20 20 20 3B 4A 41 2C 20 46 45 48 4C |R ;JA, FEHL|
000030D0: 45 52 00 F0 5D 7F 02 20 53 54 58 59 52 00 FE 5D |ER..].. STXYR..]|
000030E0: 80 02 20 4A 53 52 4B 4F 4D 4D 41 00 23 5E 81 02 |.. JSRKOMMA.#^..|
000030F0: 20 4A 53 52 52 45 43 48 4E 45 20 20 20 20 20 3B | JSRRECHNE ;|
00003100: 41 4E 46 41 4E 47 53 57 49 4E 4B 45 4C 20 49 4E |ANFANGSWINKEL IN|
00003110: 00 46 5E 82 02 20 53 54 41 41 4E 51 55 41 20 20 |.F^.. STAANQUA |
00003120: 20 20 20 20 3B 51 55 41 44 52 41 4E 54 45 4E 20 | ;QUADRANTEN |
00003130: 55 4E 44 00 6A 5E 83 02 20 53 54 59 41 4E 50 55 |UND.j^.. STYANPU|
00003140: 4E 4B 54 20 20 20 20 3B 50 55 4E 4B 54 20 55 4D |NKT ;PUNKT UM|
00003150: 52 45 43 48 4E 45 4E 00 78 5E 84 02 20 4A 53 52 |RECHNEN.x^.. JSR|
00003160: 4B 4F 4D 4D 41 00 99 5E 85 02 20 4A 53 52 52 45 |KOMMA..^.. JSRRE|
00003170: 43 48 4E 45 20 20 20 20 20 3B 45 4E 44 57 49 4E |CHNE ;ENDWIN|
00003180: 4B 45 4C 20 49 4E 00 BC 5E 86 02 20 53 54 41 45 |KEL IN..^.. STAE|
00003190: 4E 44 51 55 41 20 20 20 20 20 3B 51 55 41 44 52 |NDQUA ;QUADR|
000031A0: 41 4E 54 45 4E 20 55 4E 44 00 E0 5E 87 02 20 53 |ANTEN UND..^.. S|
000031B0: 54 59 45 4E 44 50 55 4E 4B 54 20 20 20 3B 50 55 |TYENDPUNKT ;PU|
000031C0: 4E 4B 54 20 55 4D 52 45 43 48 4E 45 4E 00 E9 5E |NKT UMRECHNEN..^|
000031D0: 88 02 20 52 54 53 00 EF 5E 89 02 3B 00 17 5F 8A |.. RTS..^..;.._.|
000031E0: 02 3B 55 4D 52 45 43 48 4E 55 4E 47 20 57 49 4E |.;UMRECHNUNG WIN|
000031F0: 4B 45 4C 2D 51 55 41 44 52 41 4E 54 45 4E 2F 50 |KEL-QUADRANTEN/P|
00003200: 55 4E 4B 54 00 3F 5F 8B 02 3B 3D 3D 3D 3D 3D 3D |UNKT.?_..;======|
00003210: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003220: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 45 5F 8C |============.E_.|
00003230: 02 3B 00 6D 5F 8D 02 52 45 43 48 4E 45 20 20 4A |.;.m_..RECHNE J|
00003240: 53 52 20 46 52 4D 4E 55 4D 20 20 3B 41 55 53 44 |SR FRMNUM ;AUSD|
00003250: 52 55 43 4B 20 48 4F 4C 45 4E 00 80 5F 8E 02 20 |RUCK HOLEN.._.. |
00003260: 4C 44 58 23 3C 28 42 55 46 46 45 52 29 00 93 5F |LDX#<(BUFFER).._|
00003270: 8F 02 20 4C 44 59 23 3E 28 42 55 46 46 45 52 29 |.. LDY#>(BUFFER)|
00003280: 00 B6 5F 90 02 20 4A 53 52 46 41 43 4D 45 4D 20 |.._.. JSRFACMEM |
00003290: 20 20 20 20 20 20 3B 57 45 52 54 20 53 49 43 48 | ;WERT SICH|
000032A0: 45 52 4E 00 CB 5F 91 02 20 4C 44 41 23 3C 28 4D |ERN.._.. LDA#<(M|
000032B0: 55 4C 54 54 41 42 31 29 00 E0 5F 92 02 20 4C 44 |ULTTAB1).._.. LD|
000032C0: 59 23 3E 28 4D 55 4C 54 54 41 42 31 29 00 06 60 |Y#>(MULTTAB1)..`|
000032D0: 93 02 20 4A 53 52 4D 45 4D 4D 55 4C 54 20 20 20 |.. JSRMEMMULT |
000032E0: 20 20 20 3B 46 41 43 3D 46 41 43 2A 28 34 2F 32 | ;FAC=FAC*(4/2|
000032F0: 2A FF 29 00 29 60 94 02 20 4A 53 52 49 4E 54 46 |*.).)`.. JSRINTF|
00003300: 41 43 20 20 20 20 20 20 20 3B 41 2F 59 3D 49 4E |AC ;A/Y=IN|
00003310: 54 28 46 41 43 29 00 32 60 95 02 20 49 4E 59 00 |T(FAC).2`.. INY.|
00003320: 51 60 96 02 20 54 59 41 20 20 20 20 20 20 20 20 |Q`.. TYA |
00003330: 20 20 20 20 20 3B 50 4C 55 53 20 31 20 3D 00 5A | ;PLUS 1 =.Z|
00003340: 60 97 02 20 50 48 41 00 63 60 98 02 20 54 41 58 |`.. PHA.c`.. TAX|
00003350: 00 85 60 99 02 20 44 45 58 20 20 20 20 20 20 20 |..`.. DEX |
00003360: 20 20 3B 51 55 41 44 52 41 4E 54 20 4D 45 52 4B | ;QUADRANT MERK|
00003370: 45 4E 00 97 60 99 02 20 4C 44 41 51 55 41 54 41 |EN..`.. LDAQUATA|
00003380: 42 48 2C 58 00 B5 60 9A 02 20 54 41 59 20 20 20 |BH,X..`.. TAY |
00003390: 20 20 20 20 20 20 20 20 20 20 3B 46 41 43 20 4D | ;FAC M|
000033A0: 49 54 00 D9 60 9B 02 20 4C 44 41 51 55 41 54 41 |IT..`.. LDAQUATA|
000033B0: 42 4C 2C 58 20 20 20 20 3B 28 51 55 41 44 52 41 |BL,X ;(QUADRA|
000033C0: 4E 54 2D 31 29 2A 00 FB 60 9C 02 20 4A 53 52 4D |NT-1)*..`.. JSRM|
000033D0: 45 4D 46 41 43 20 20 20 20 20 20 20 3B 28 FF 2F |EMFAC ;(./|
000033E0: 32 29 20 4C 41 44 45 4E 00 0E 61 9D 02 20 4C 44 |2) LADEN..a.. LD|
000033F0: 41 23 3C 28 42 55 46 46 45 52 29 00 21 61 9E 02 |A#<(BUFFER).!a..|
00003400: 20 4C 44 59 23 3E 28 42 55 46 46 45 52 29 00 44 | LDY#>(BUFFER).D|
00003410: 61 9F 02 20 4A 53 52 4D 45 4D 4D 49 4E 20 20 20 |a.. JSRMEMMIN |
00003420: 20 20 20 20 3B 46 41 43 3D 57 45 52 54 2D 46 41 | ;FAC=WERT-FA|
00003430: 43 00 59 61 A0 02 20 4C 44 41 23 3C 28 4D 55 4C |C.Ya.. LDA#<(MUL|
00003440: 54 54 41 42 32 29 00 6E 61 A1 02 20 4C 44 59 23 |TTAB2).na.. LDY#|
00003450: 3E 28 4D 55 4C 54 54 41 42 32 29 00 96 61 A2 02 |>(MULTTAB2)..a..|
00003460: 20 4A 53 52 4D 45 4D 4D 55 4C 54 20 20 20 20 20 | JSRMEMMULT |
00003470: 20 3B 46 41 43 3D 46 41 43 2A 28 31 39 35 2A 32 | ;FAC=FAC*(195*2|
00003480: 2F FF 29 00 B9 61 A3 02 20 4A 53 52 49 4E 54 46 |/.)..a.. JSRINTF|
00003490: 41 43 20 20 20 20 20 20 20 3B 41 2F 59 3D 49 4E |AC ;A/Y=IN|
000034A0: 54 28 46 41 43 29 00 C2 61 A4 02 20 49 4E 59 00 |T(FAC)..a.. INY.|
000034B0: CB 61 A5 02 20 50 4C 41 00 E6 61 A6 02 20 52 54 |.a.. PLA..a.. RT|
000034C0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A |S ;Z|
000034D0: 41 48 4C 00 EC 61 A7 02 3B 00 FB 61 A8 02 45 52 |AHL..a..;..a..ER|
000034E0: 52 4F 52 20 20 50 4C 41 00 04 62 A9 02 20 50 4C |ROR PLA..b.. PL|
000034F0: 41 00 23 62 AA 02 20 4A 53 52 47 52 4F 46 46 20 |A.#b.. JSRGROFF |
00003500: 20 20 20 20 20 3B 47 52 41 46 49 4B 20 41 55 53 | ;GRAFIK AUS|
00003510: 00 48 62 AB 02 20 4A 4D 50 24 42 32 34 38 20 20 |.Hb.. JMP$B248 |
00003520: 20 20 20 20 3B 49 4C 4C 45 47 41 4C 20 51 55 41 | ;ILLEGAL QUA|
00003530: 4E 54 49 54 59 00 4E 62 AC 02 3B 00 72 62 AD 02 |NTITY.Nb..;.rb..|
00003540: 4D 55 4C 54 54 41 42 31 20 2E 42 59 20 31 32 38 |MULTTAB1 .BY 128|
00003550: 2C 33 34 2C 32 34 39 2C 31 33 31 2C 31 30 39 00 |,34,249,131,109.|
00003560: 94 62 AE 02 4D 55 4C 54 54 41 42 32 20 2E 42 59 |.b..MULTTAB2 .BY|
00003570: 20 31 33 35 2C 31 32 30 2C 37 32 2C 33 30 2C 35 | 135,120,72,30,5|
00003580: 36 00 C3 62 AF 02 51 55 41 54 41 42 4C 20 2E 42 |6..b..QUATABL .B|
00003590: 59 3C 28 45 49 4E 53 29 2C 3C 28 5A 57 45 49 29 |Y<(EINS),<(ZWEI)|
000035A0: 2C 3C 28 44 52 45 49 29 2C 3C 28 56 49 45 52 29 |,<(DREI),<(VIER)|
000035B0: 00 F2 62 B0 02 51 55 41 54 41 42 48 20 2E 42 59 |..b..QUATABH .BY|
000035C0: 3E 28 45 49 4E 53 29 2C 3E 28 5A 57 45 49 29 2C |>(EINS),>(ZWEI),|
000035D0: 3E 28 44 52 45 49 29 2C 3E 28 56 49 45 52 29 00 |>(DREI),>(VIER).|
000035E0: 0A 63 B1 02 45 49 4E 53 20 20 2E 42 59 20 30 2C |.c..EINS .BY 0,|
000035F0: 30 2C 30 2C 30 2C 30 00 2A 63 B2 02 5A 57 45 49 |0,0,0,0.*c..ZWEI|
00003600: 20 20 2E 42 59 20 31 32 39 2C 37 33 2C 31 35 2C | .BY 129,73,15,|
00003610: 32 31 38 2C 31 36 32 00 4A 63 B3 02 44 52 45 49 |218,162.Jc..DREI|
00003620: 20 20 2E 42 59 20 31 33 30 2C 37 33 2C 31 35 2C | .BY 130,73,15,|
00003630: 32 31 38 2C 31 36 32 00 6B 63 B4 02 56 49 45 52 |218,162.kc..VIER|
00003640: 20 20 2E 42 59 20 31 33 31 2C 32 32 2C 32 30 33 | .BY 131,22,203|
00003650: 2C 32 32 37 2C 32 35 30 00 87 63 B5 02 42 55 46 |,227,250..c..BUF|
00003660: 46 45 52 20 20 2E 42 59 20 30 2C 30 2C 30 2C 30 |FER .BY 0,0,0,0|
00003670: 2C 30 2C 30 00 8D 63 B6 02 3B 00 AC 63 B7 02 3B |,0,0..c..;..c..;|
00003680: 42 45 52 45 43 48 4E 55 4E 47 20 56 4F 4E 20 41 |BERECHNUNG VON A|
00003690: 4B 4B 55 2A 58 2F 31 32 38 00 CB 63 B8 02 3B 3D |KKU*X/128..c..;=|
000036A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000036B0: 3D 3D 3D 3D 3D 3D 3D 3D 00 D1 63 B9 02 3B 00 E2 |========..c..;..|
000036C0: 63 BA 02 4D 55 4C 54 20 20 53 54 41 20 4D 55 00 |c..MULT STA MU.|
000036D0: F2 63 BB 02 20 53 54 58 4D 55 4C 54 31 2B 31 00 |.c.. STXMULT1+1.|
000036E0: FE 63 BC 02 20 4C 44 58 23 30 37 00 0A 64 BD 02 |.c.. LDX#07..d..|
000036F0: 20 4C 44 41 23 30 30 00 17 64 BE 02 4D 31 20 4C | LDA#00..d..M1 L|
00003700: 53 52 4D 55 00 22 64 BF 02 20 42 43 43 4D 32 00 |SRMU."d.. BCCM2.|
00003710: 33 64 C0 02 4D 55 4C 54 31 20 41 44 43 23 30 30 |3d..MULT1 ADC#00|
00003720: 00 3E 64 C1 02 4D 32 20 52 4F 52 00 47 64 C2 02 |.>d..M2 ROR.Gd..|
00003730: 20 44 45 58 00 52 64 C3 02 20 42 4E 45 4D 31 00 | DEX.Rd.. BNEM1.|
00003740: 5B 64 C4 02 20 52 54 53 00 61 64 C5 02 3B 00 7C |[d.. RTS.ad..;.||
00003750: 64 C6 02 3B 43 4F 53 49 4E 55 53 2D 53 49 4E 55 |d..;COSINUS-SINU|
00003760: 53 2D 54 41 42 45 4C 4C 45 00 97 64 C7 02 3B 3D |S-TABELLE..d..;=|
00003770: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003780: 3D 3D 3D 3D 00 9D 64 C8 02 3B 00 C1 64 C9 02 43 |====..d..;..d..C|
00003790: 4F 53 20 20 2E 42 59 20 30 2C 31 2C 32 2C 33 2C |OS .BY 0,1,2,3,|
000037A0: 34 2C 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 00 E7 |4,5,6,7,8,9,10..|
000037B0: 64 CA 02 20 2E 42 59 31 31 2C 31 32 2C 31 33 2C |d.. .BY11,12,13,|
000037C0: 31 34 2C 31 35 2C 31 36 2C 31 37 2C 31 38 2C 31 |14,15,16,17,18,1|
000037D0: 39 2C 32 30 00 0D 65 CB 02 20 2E 42 59 32 31 2C |9,20..e.. .BY21,|
000037E0: 32 32 2C 32 33 2C 32 34 2C 32 35 2C 32 36 2C 32 |22,23,24,25,26,2|
000037F0: 37 2C 32 38 2C 32 39 2C 33 30 00 33 65 CC 02 20 |7,28,29,30.3e.. |
00003800: 2E 42 59 33 31 2C 33 32 2C 33 33 2C 33 34 2C 33 |.BY31,32,33,34,3|
00003810: 35 2C 33 36 2C 33 37 2C 33 38 2C 33 39 2C 34 30 |5,36,37,38,39,40|
00003820: 00 59 65 CD 02 20 2E 42 59 34 31 2C 34 32 2C 34 |.Ye.. .BY41,42,4|
00003830: 33 2C 34 34 2C 34 35 2C 34 36 2C 34 37 2C 34 38 |3,44,45,46,47,48|
00003840: 2C 34 39 2C 35 30 00 7F 65 CE 02 20 2E 42 59 35 |,49,50..e.. .BY5|
00003850: 31 2C 35 32 2C 35 33 2C 35 33 2C 35 34 2C 35 35 |1,52,53,53,54,55|
00003860: 2C 35 36 2C 35 37 2C 35 38 2C 35 39 00 A5 65 CF |,56,57,58,59..e.|
00003870: 02 20 2E 42 59 36 30 2C 36 31 2C 36 32 2C 36 33 |. .BY60,61,62,63|
00003880: 2C 36 34 2C 36 34 2C 36 35 2C 36 36 2C 36 37 2C |,64,64,65,66,67,|
00003890: 36 38 00 CB 65 D0 02 20 2E 42 59 36 39 2C 37 30 |68..e.. .BY69,70|
000038A0: 2C 37 31 2C 37 31 2C 37 32 2C 37 33 2C 37 34 2C |,71,71,72,73,74,|
000038B0: 37 35 2C 37 36 2C 37 36 00 F1 65 D1 02 20 2E 42 |75,76,76..e.. .B|
000038C0: 59 37 37 2C 37 38 2C 37 39 2C 38 30 2C 38 30 2C |Y77,78,79,80,80,|
000038D0: 38 31 2C 38 32 2C 38 33 2C 38 34 2C 38 34 00 17 |81,82,83,84,84..|
000038E0: 66 D2 02 20 2E 42 59 38 35 2C 38 36 2C 38 37 2C |f.. .BY85,86,87,|
000038F0: 38 37 2C 38 38 2C 38 39 2C 39 30 2C 39 30 2C 39 |87,88,89,90,90,9|
00003900: 31 2C 39 32 00 3D 66 D3 02 20 2E 42 59 39 33 2C |1,92.=f.. .BY93,|
00003910: 39 33 2C 39 34 2C 39 35 2C 39 35 2C 39 36 2C 39 |93,94,95,95,96,9|
00003920: 37 2C 39 37 2C 39 38 2C 39 39 00 6D 66 D4 02 20 |7,97,98,99.mf.. |
00003930: 2E 42 59 30 39 39 2C 31 30 30 2C 31 30 31 2C 31 |.BY099,100,101,1|
00003940: 30 31 2C 31 30 32 2C 31 30 32 2C 31 30 33 2C 31 |01,102,102,103,1|
00003950: 30 34 2C 31 30 34 2C 31 30 35 00 9D 66 D5 02 20 |04,104,105..f.. |
00003960: 2E 42 59 31 30 35 2C 31 30 36 2C 31 30 37 2C 31 |.BY105,106,107,1|
00003970: 30 37 2C 31 30 38 2C 31 30 38 2C 31 30 39 2C 31 |07,108,108,109,1|
00003980: 30 39 2C 31 31 30 2C 31 31 30 00 CD 66 D6 02 20 |09,110,110..f.. |
00003990: 2E 42 59 31 31 31 2C 31 31 31 2C 31 31 32 2C 31 |.BY111,111,112,1|
000039A0: 31 32 2C 31 31 33 2C 31 31 33 2C 31 31 34 2C 31 |12,113,113,114,1|
000039B0: 31 34 2C 31 31 35 2C 31 31 35 00 FD 66 D7 02 20 |14,115,115..f.. |
000039C0: 2E 42 59 31 31 36 2C 31 31 36 2C 31 31 36 2C 31 |.BY116,116,116,1|
000039D0: 31 37 2C 31 31 37 2C 31 31 38 2C 31 31 38 2C 31 |17,117,118,118,1|
000039E0: 31 38 2C 31 31 39 2C 31 31 39 00 2D 67 D8 02 20 |18,119,119.-g.. |
000039F0: 2E 42 59 31 32 30 2C 31 32 30 2C 31 32 30 2C 31 |.BY120,120,120,1|
00003A00: 32 31 2C 31 32 31 2C 31 32 31 2C 31 32 32 2C 31 |21,121,121,122,1|
00003A10: 32 32 2C 31 32 32 2C 31 32 32 00 5D 67 D9 02 20 |22,122,122.]g.. |
00003A20: 2E 42 59 31 32 33 2C 31 32 33 2C 31 32 33 2C 31 |.BY123,123,123,1|
00003A30: 32 34 2C 31 32 34 2C 31 32 34 2C 31 32 34 2C 31 |24,124,124,124,1|
00003A40: 32 34 2C 31 32 35 2C 31 32 35 00 8D 67 DA 02 20 |24,125,125..g.. |
00003A50: 2E 42 59 31 32 35 2C 31 32 35 2C 31 32 35 2C 31 |.BY125,125,125,1|
00003A60: 32 36 2C 31 32 36 2C 31 32 36 2C 31 32 36 2C 31 |26,126,126,126,1|
00003A70: 32 36 2C 31 32 36 2C 31 32 37 00 BD 67 DB 02 20 |26,126,127..g.. |
00003A80: 2E 42 59 31 32 37 2C 31 32 37 2C 31 32 37 2C 31 |.BY127,127,127,1|
00003A90: 32 37 2C 31 32 37 2C 31 32 37 2C 31 32 37 2C 31 |27,127,127,127,1|
00003AA0: 32 37 2C 31 32 37 2C 31 32 37 00 D5 67 DC 02 20 |27,127,127..g.. |
00003AB0: 2E 42 59 31 32 37 2C 31 32 37 2C 31 32 37 2C 31 |.BY127,127,127,1|
00003AC0: 32 37 00 00 00 |27... |
.-'-D.;KREIS.ELLIPSE.F-E..OB"KREIS/ELLIP
SE.OBJ,P,W".T-F. .BA$638B.Z-G.;..-H. .EQ
KOMMA = $AEFD ;KOMMAPRUEFUNG..-I. .EQFR
MNUM = $AD8A ;AUSDRUCK HOLEN.J-J. .EQBYT
E = $B79E ;BYTE HOLEN..-K. .EQXL = $FA
;X-KOORDINATE LOW...L. .EQXH = $F
B ;X-KOORDINATE HIGH.B.M. .EQY = $
FC ;Y-KOORDINATE.C.N. .EQXR = $FD
;X-RADIUS...O. .EQYR = $8B
;Y-RADIUS...P. .EQXOFF = $8C ;X-OFFS
ET.F.Q. .EQYOFF = $8D ;Y-OFFSET...R.
.EQZAEHL = $FE ;SCHLEIFENZAEHLER../S
. .EQX1 = $8E ;MITTELPUNKT X-LOW.D
/T. .EQX2 = $8F ;MITTELPUNKT X-HIG
H.K/U. .EQMU = $71 ;RECHENREGISTER
../V. .EQANQUA = $B4 ;ANFANGSQUADRANT
../W. .EQENDQUA = $B5 ;ENDQUADRANT../X
. .EQANPUNKT = $B6 ;ANFANGSPUNKT../Y. .
EQENDPUNKT = $72 ;ENDPUNKT."0Z. .EQPLOT
= $609C ;PUNKT SETZEN.E0{. .EQGROFF =
$6018 ;GRAFIK AUS.E0|. .EQFACARG = $BC0
C ;ARG=FAC..0}. .EQMEMMULT = $BA28 ;FAC=
KONST.*FAC..0~. .EQINTFAC = $B1AA ;A/Y=I
NT(FAC).X0. .EQMEMFAC = $BBA2 ;FAC=KONS
TANTE..0.. .EQMEMMIN = $B850 ;FAC=KONST.
-FAC.'1.. .EQFACMEM = $BBD4 ;KONSTANTE =
FAC.-1..;.81..;START.C1..;=====.I1..;.W
1.. JSRKOMMA.}1.. JSRKOOR ;KOORDIN
ATEN HOLEN..1.. LDAANQUA ;START IM
ERSTEN..1.. CMP#01 ;QUADRANTEN..1
.. BNEAUSSCHNITT ;MIT ERSTEM PUNKT..1..
LDAANPUNKT..2.. CMP#01 ;NEIN, NUR
KREIS-.82.. BNEAUSSCHNITT ;ABSCHNITT.\2
.. LDAENDQUA ;ENDE IM LETZTEN.2.. C
MP#04 ;QUADRANTEN MIT..2.. BNEAUS
SCHNITT ;LETZTEM PUNKT..2.. LDAENDPUNKT.
W2.. CMP#195 ;NEIN, NUR KREIS-..2.
. BNEAUSSCHNITT ;ABSCHNITT..3.. BEQGANZ
;JA, GANZER KREIS !."3..;.=3..AUSS
CHNITT JMP AUSSCH.C3..;.E3..;GANZEN KRE
IS/ELLIPSE ZEICHEN..3..;================
============..3..;..3..GANZ LDA XL..3..
STAX1 ;MIITELPUNKT..3.. LDAXH
;KOORDINATEN IN X..3.. STAX2
;MERKEN..4.. LDA#01..4 . STAZAEHL+1.
'4.. LDA#195.J4.. STAZAEHL ;ZAEHLER
SETZEN.S4.. SEI.U4.. LDA#52 ;PRO
ZESSORPORT..4.. STA$01 ;AUF RAM S
CHALTEN. 4..;.A4..;BERECHNUNG VON JE 4 P
UNKTEN..4..;===========================.
.4..;..5..LOOP LDXZAEHL ;ZAEHLER HOLEN.0
5.. LDACOS-1,X ;COSINUS-WERT HOLEN.;5
.. LDXXR.A5.. JSRMULT ;*XR/128 BER
ECHNEN.5.. STAXOFF ;=X-OFFSET..5.
. LDXZAEHL+1 ;ZAEHLER HOLEN.F5.. LDAC
OS-1,X ;SINUS WERT HOLEN.Q5.. LDXYR..
5.. JSRMULT ;*YR/128 BRECHNEN..6..
STAYOFF ;=Y-OFFSET.66.. LDAX1
;MITTELPUNKTS-.\6.. LDYX2 ;
KOORDINATEN HOLEN.Y6.. CLC ;1.
PUNKT..6.. ADCXOFF ;X=X+XOFF..6..
BCCL1..6.. INY.N6..L1 CPY #00 ;XH=0
, DANN O.K..Y6.. BEQL3..6.. CPY#02
;XH>1, DANN KEIN..7.. BCSL4 ;P
UNKT SETZEN.C7.. CMP#64 ;XH=1 UND
XL>=64,.L7.. BCSL4 ;DANN AUCH K
EIN PUNKT.{7..L3 STA XL..7A. STYXH..7B.
LDAY ;Y=Y+YOFF..7C. CLC..7D. A
DCYOFF.D7E. BCSL2..7F. CMP#200 ;Y>
=200, DANN KEIN..8G. BCSL2 ;PUNK
T SETZEN.,8H. TAX ;Y-KOORDINAT
E.Q8I. LDYXL ;X-KOORDINATE LOW.R
8J. JSRPLOT ;PUNKT SETZEN..8K.L2
LDA Y..8L. SEC ;2.PUNKT..8M. S
BCYOFF.F8N. BCCL4 ;Y=Y-YOFF..8O.
TAX ;Y-KOORDINATE..9P. LDYXL
;X-KOORDINATE LOW.-9Q. JSRPLOT
;PUNKT SETZEN.O9R.L4 LDA X1 ;M
ITTELPUNKTS-.U9S. LDYX2 ;KOORDIN
ATEN HOLEN.~9T. SEC..9U. SBCXOFF ;
3. PUNKT..9V. BCSL5 ;X=X-XOFF.A9
W. DEY..9X.L5 CPY #00 ;XH=0, DANN O.
K...9Y. BEQL6..:Z. CPY#02 ;XH>1,
DANN KEIN.5:.. BCSL7 ;PUNKT SETZ
EN.Y:.. CMP#64 ;XH=1 UND XL>=64,..
:.. BCSL7 ;DANN AUCH KEIN PUNKT..
:..L6 STA XL..:.. STYXH..:.. LDAY
;Y=Y+YOFF..:.. CLC.M:.. ADCYOFF.X:..
BCSL8..:.. CMP#200 ;Y>=200, DANN KE
IN..;.. BCSL8 ;PUNKT SETZEN.=;..
TAX ;Y-KOORDINATE.A;.. LDYXL
;X-KOORDINATE LOW..;.. JSRPLOT
;PUNKT SETZEN..;..L8 LDA Y..;.. SEC
;4.PUNKT..;.. SBCYOFF.Y;.. BCCL7
;<0, KEIN PUNKT..;.. TAX
;Y-KOORDINATE..<.. LDYXL ;X-KOOR
DINATE LOW.*<.. JSRPLOT.><..L7 INC ZAEH
L+1.L<.. DECZAEHL.F<.. BEQOUT ;FER
TIG..<.. JMPLOOP ;NAECHSTE 4 PUNKTE
..<..OUT LDA#55..<.. STA$01 ;AUF R
OM SCHALTEN.G<.. CLI.P<.. RTS.V<..;..<..
;KREIS/ELLIPSENABSCHNITT ZEICHNEN."=..;=
===============================.(=..;.==
..AUSSCH LDX #195.K=.. STXZAEHL.L=.. LD
X#01 ;TABELLE.|=.. STXZAEHL+
1..=.. SEI ;PROZESSORPORT
.D=.. LDA#52 ;AUF RAM.P=.. S
TA$01..=..AUSLOOP LDX ZAEHL ;DER OFFSE
TS..>.. LDACOS-1,X.$>.. LDXXR
;IN X-.1>.. JSRMULT.Q>.. LDXZAEHL+1
;UND Y-.A>.. STA$D000,X..>.. LDAC
OS-1,X ;RICHTUNG..>.. LDXYR..>..
JSRMULT ;AUFBAUEN..>.. LDXZA
EHL+1.P>.. STA$D100,X..>.. INCZAEHL+1..>
.. DECZAEHL..>.. BNEAUSLOOP..?..;.*?.. L
DAENDPUNKT ;WENN ENDPUNKT=1,.M?.. CMP
#01 ;=2 SETZEN, DA.O?.. BNEWEITE
R ;SONST FEHLER..?.. LDA#02
;AUFTRETEN..?..WEITER STA ENDPUNKT..?.
. LDAXL..?.. STAX1.H?.. LDAXH.S?.. STAX2
..?.. LDAANQUA ;ANFANGSQUADRANT..@
.. ASL..@.. ASL ;*4. @.. CLC.F@
.. ADCENDQUA ;PLUS ENDQUADRANT.K@ .
TAX ;=TABELLENOFFSET.|@!. LD
ALOWTAB,X..@". STASTART+1 ;STARTADRE
SSE..@#. LDAHIGHTAB,X.K@$. STASTART+2
;HOLEN..@%.START JSR$0000..A&. LDA#55
;PROZESSORPORT.'A'. STA$01
;AUF ROM SCHALTEN.0A(. CLI.JA). RTS
;ENDE.PA*.;.VA+.;.}A,.;START I
M 1., ENDE IM 1.QUADRANTEN..A-.;..A..S1E
1 LDA ANPUNKT..A/. CMPENDPUNKT..A0. BCC
S1E11.EA1. LDX#195.TA2. JSRERSTER..A3. L
DA#01..A4. JMPS2E1+2..B5.S1E11 LDX ENDP
UNKT..B6. JMPERSTER..B7.;.CB8.;START IM
1., ENDE IM 2.QUADRANTEN.IB9.;._B:.S1E2
LDA ANPUNKT.LB;. LDX#195.{B<. JSRERSTER
..B=. LDA#01..B>. LDXENDPUNKT..B?. JMPZW
EITER..B@.;.UBA.;START IM 1., ENDE IM 3.
QUADRANTEN..BB.;..BC.S1E3 LDA ANPUNKT..
BD. LDX#195..CE. JSRERSTER..CF. LDA#01.&
CG. LDX#195.6CH. JSRZWEITER.BCI. LDA#01.
SCJ. LDXENDPUNKT.CCK. JMPDRITTER.ICL.;..
CM.;START IM 1., ENDE IM 4.QUADRANTEN..C
N.;..CO.S1E4 LDA ANPUNKT..CP. LDX#195.H
CQ. JSRERSTER.TCR. LDA#01..CS. LDX#195..
CT. JSRZWEITER..CU. LDA#01..DV. LDX#195.
.DW. JSRDRITTER.&DX. LDA#01.7DY. LDXENDP
UNKT.GDZ. JMPVIERTER.MD[.;.TD\.;START IM
2., ENDE IM 1.QUADRANTEN.ZD].;..D^.S2E1
LDA ANPUNKT..D_. LDX#195..D`. JSRZWEIT
ER..DA. LDA#01.FDB. LDX#195.VDC. JSRDRIT
TER..DD. LDA#01..DE. LDX#195..DF. JSRVIE
RTER..EG. LDA#01..EH. JMPS1E1+16.!EI.;.H
EJ.;START IM 2., ENDE IM 2.QUADRANTEN.NE
K.;.DEL.S2E2 LDA ANPUNKT.UEM. CMPENDPUN
KT..EN. BCCS2E22..EO. LDX#195. EP. JSRZW
EITER..EQ. LDA#01..ER. JMPS3E2+2.QES.S2E
22 JMP S1E2+9.WET.;..EU.;START IM 2., E
NDE IM 3.QUADRANTEN..FV.;..FW.S2E3 LDA
ANPUNKT.)FX. JMPS1E3+9./FY.;.VFZ.;START
IM 2., ENDE IM 4.QUADRANTEN.\F{.;.RF|.S2
E4 LDA ANPUNKT..F}. JMPS1E4+9..F~.;..F
.;START IM 3., ENDE IM 1.QUADRANTEN..F..
;.JF..S3E1 LDA ANPUNKT.YF.. JMPS2E1+9..
F..;..G..;START IM 3., ENDE IM 2.QUADRAN
TEN..G..;."G..S3E2 LDA ANPUNKT./G.. LDX
#195.?G.. JSRDRITTER.KG.. LDA#01.XG.. LD
X#195.HG.. JSRVIERTER.TG.. LDA#01..G.. J
MPS1E2+2..G..;..G..;START IM 3., ENDE IM
3.QUADRANTEN..G..;.LG..S3E3 LDA ANPUNK
T..G.. CMPENDPUNKT..G.. BCCS3E33..G.. LD
X#195..H.. JSRDRITTER..H.. LDA#01.#H.. J
MPS4E3+2.:H..S3E33 JMP S1E3+16.@H..;.GH
..;START IM 3., ENDE IM 4.QUADRANTEN.MH.
.;..H..S3E4 LDA ANPUNKT..H.. JMPS1E4+16
..H..;..H..;START IM 4., ENDE IM 1.QUADR
ANTEN.FH .;..H..S4E1 LDA ANPUNKT..H.. J
MPS2E1+16..H..;..I..;START IM 4., ENDE I
M 2.QUADRANTEN..I..;.5I..S4E2 LDA ANPUN
KT.DI.. JMPS3E2+9.JI..;.QI..;START IM 4.
, ENDE IM 3.QUADRANTEN.WI..;..I..S4E3 L
DA ANPUNKT..I.. LDX#195..I.. JSRVIERTER.
.I.. LDA#01.EI.. JMPS1E3+2.KI..;..I..;ST
ART IM 4., ENDE IM 4.QUADRANTEN..I..;..J
..S4E4 LDA ANPUNKT..J.. CMPENDPUNKT.-J.
. BCCS4E44.:J.. LDX#195.JJ.. JSRVIERTER.
VJ.. LDA#01.EJ.. JMPS1E4+2.|J..S4E44 JM
P S1E4+23..J..;..J..LOWTAB .BY 0,0,0,0,
0.DJ.. .BY<(S1E1),<(S1E2),<(S1E3),<(S1E4
)..J.. .BY<(S2E1),<(S2E2),<(S2E3),<(S2E4
)..K.. .BY<(S3E1),<(S3E2),<(S3E3),<(S3E4
).<K.. .BY<(S4E1),<(S4E2),<(S4E3),<(S4E4
).UKA.HIGHTAB .BY0,0,0,0,0.}KB. .BY>(S1E
1),>(S1E2),>(S1E3),>(S1E4)..KC. .BY>(S2E
1),>(S2E2),>(S2E3),>(S2E4).MKD. .BY>(S3E
1),>(S3E2),>(S3E3),>(S3E4)..KE. .BY>(S4E
1),>(S4E2),>(S4E3),>(S4E4)..KF.;..LG.;ER
STEN QUADRANTEN ZEICHNEN.;LH.;==========
================.ALI.;.ULJ.ERSTER STAZAE
HL.ELK. STXZAEHL+1..LL. LDA#195 ;
ZAEHLER SETZEN..LM. SEC..LN. SBCZAEHL
;UND INVERTIEREN.ELO. STAZAEHL.RLP.
LDA#195..LQ. SEC..LR. SBCZAEHL+1..LS. ST
AZAEHL+1. MT.LOOPQ1 LDXZAEHL+1 ;ZAEHLER
HOLEN.DMU. LDA$D000,X ;X-ODFFSET HOLE
N._MV. STAXOFF ;MERKEN..MW. LDA$D1
00,X ;Y-OFFSET HOLEN..MX. STAYOFF
;MERKEN..MY. LDAX1 ;MITTELPUN
KTS-..MZ. LDYX2 ;KOORDINATEN HOL
EN..M.. CLC..N.. ADCXOFF ;X=X+XOFF
..N.. BCCLQ11.!N.. INY.EN..LQ11 CPY #00
;XH=0, DANN O.K..RN.. BEQLQ13.VN.. CPY
#02 ;XH>1, DANN KEIN..N.. BCSLQ12
;PUNKT SETZEN..N.. CMP#64
;XH=1 UND XL>=64,..N.. BCSLQ12 ;DA
NN AUCH KEIN PUNKT..N..LQ13 STA XL..O..
STYXH..O.. LDAY ;Y=Y-YOFF.'O..
SEC.JO.. SBCYOFF ;Y<0, DANN KEIN.
KO.. BCCLQ12 ;PUNKT SETZEN..O.. TA
X ;Y-KOORDINATE..O.. LDYXL
;X-KOORDINATE LOW.RO.. JSRPLOT
;PUNKT SETZEN..O..LQ12 INC ZAEHL+1..O
.. LDAZAEHL+1..P.. CMPZAEHL ;ALLE P
UNKTE.:P.. BNELOOPQ1 ;GESETZT, DANN.
UP.. RTS ;FERTIG.[P..;.AP..;..
P..;ZWEITEN QUADRANTEN ZEICHNEN..P..;===
========================..P..;.NP..ZWEIT
ER STAZAEHL ;ZAEHLER SETZEN..P.. STXZAEH
L+1..Q..LOOPQ2 LDXZAEHL ;ZAEHLER HOLEN.%
Q.. LDA$D000,X ;X-ODFFSET HOLEN.@Q..
STAXOFF ;MERKEN.CQ.. LDA$D100,X
;Y-OFFSET HOLEN.~Q.. STAYOFF ;MER
KEN. Q.. LDAX1 ;MITTELPUNKTS-.FQ
.. LDYX2 ;KOORDINATEN HOLEN.OQ..
CLC..Q.. ADCXOFF ;X=X+XOFF..Q.. B
CCLQ21..R.. INY.&R..LQ21 CPY #00 ;XH=0
, DANN O.K..3R.. BEQLQ23.WR.. CPY#02
;XH>1, DANN KEIN.XR.. BCSLQ22
;PUNKT SETZEN..R.. CMP#64 ;XH=1 U
ND XL>=64,.FR.. BCSLQ22 ;DANN AUCH
KEIN PUNKT.WR..LQ23 STA XL..R.. STYXH.
.R.. LDAY ;Y=Y-YOFF..S.. CLC.-S
.. ADCYOFF ;Y>200, DANN KEIN.:S..
BCSLQ22.[S.. CMP#200 ;PUNKT SETZEN
.HS.. BCSLQ22..S.. TAX ;Y-KOOR
DINATE..S.. LDYXL ;X-KOORDINATE
LOW.OS.. JSRPLOT ;PUNKT SETZEN..S.
.LQ22 INC ZAEHL..S.. LDAZAEHL..T.. CMPZ
AEHL+1 ;ALLE PUNKTE.3T.. BNELOOPQ2
;GESETZT, DANN.NT.. RTS ;FER
TIG.TT..;.ZT..;.{T..;DRITTEN QUADRANTEN
ZEICHNEN..T..;==========================
=..T..;..T .DRITTER STAZAEHL.GT!. STXZAE
HL+1..T". LDA#195 ;ZAEHLER SETZEN
..T#. SEC..U$. SBCZAEHL ;UND INVER
TIEREN.'U%. STAZAEHL.4U&. LDA#195.=U'. S
EC.MU(. SBCZAEHL+1.]U). STAZAEHL+1..U*.L
OOPQ3 LDXZAEHL+1 ;ZAEHLER HOLEN..U+. LDA
$D000,X ;X-ODFFSET HOLEN.AU,. STAXOFF
;MERKEN..U-. LDA$D100,X ;Y-OFF
SET HOLEN..U.. STAYOFF ;MERKEN.!V/
. LDAX1 ;MITTELPUNKTS-.GV0. LDYX
2 ;KOORDINATEN HOLEN.PV1. SEC.]V
2. SBCXOFF.ZV3. BCSLQ35 ;X=X-XOFF.
.V4. DEY..V5.LQ35 CPY #00 ;XH=0, DANN
O.K...V6. BEQLQ36.XV7. CPY#02 ;XH
>1, DANN KEIN..V8. BCSLQ38 ;PUNKT
SETZEN..W9. CMP#64 ;XH=1 UND XL>=
64,.GW:. BCSLQ38 ;DANN AUCH KEIN P
UNKT.XW;.LQ36 STA XL.CW<. STYXH.W=. LD
AY ;Y=Y+YOFF..W>. CLC..W?. ADCYO
FF..W@. BCSLQ38.GWA. CMP#200 ;Y>=20
0, DANN KEIN..WB. BCSLQ38 ;PUNKT SE
TZEN..XC. TAX ;Y-KOORDINATE.+XD
. LDYXL ;X-KOORDINATE LOW.KXE. JS
RPLOT ;PUNKT SETZEN.AXF.LQ38 INC Z
AEHL+1.QXG. LDAZAEHL+1..XH. CMPZAEHL
;ALLE PUNKTE..XI. BNELOOPQ3 ;GESET
ZT, DANN.NXJ. RTS ;FERTIG.TXK.
;.ZXL.;..XM.;VIERTEN QUADRANTEN ZEICHNEN
..YN.;===========================."YO.;.
GYP.VIERTER STAZAEHL ;ZAEHLER SETZEN.WYQ
. STXZAEHL+1.ZYR.LOOPQ4 LDXZAEHL ;ZAEHLE
R HOLEN..YS. LDA$D000,X ;X-ODFFSET HO
LEN..YT. STAXOFF ;MERKEN..YU. LDA$
D100,X ;Y-OFFSET HOLEN..YV. STAYOFF
;MERKEN..ZW. LDAX1 ;MITTELP
UNKTS-.?ZX. LDYX2 ;KOORDINATEN H
OLEN.HZY. SEC.UZZ. SBCXOFF.RZ[. BCSLQ45
;X=X-XOFF.{Z\. DEY..Z].LQ45 CPY #
00 ;XH=0, DANN O.K...Z^. BEQLQ46.PZ_. C
PY#02 ;XH>1, DANN KEIN..Z`. BCSLQ
48 ;PUNKT SETZEN..[A. CMP#64
;XH=1 UND XL>=64,.?[B. BCSLQ48 ;
DANN AUCH KEIN PUNKT.P[C.LQ46 STA XL.[[
D. STYXH.W[E. LDAY ;Y=Y-YOFF..[F
. SEC..[G. SBCYOFF ;Y<0, DANN KEIN.
B[H. BCCLQ38 ;PUNKT SETZEN..[I. TAX
;Y-KOORDINATE..\J. LDYXL
;X-KOORDINATE LOW.&\K. JSRPLOT ;P
UNKT SETZEN.:\L.LQ48 INC ZAEHL.H\M. LDA
ZAEHL.H\N. CMPZAEHL+1 ;ALLE PUNKTE..\
O. BNELOOPQ4 ;GESETZT, DANN..\P. RTS
;FERTIG..\Q.;.B\R.;KOORDINATE
N HOLEN.Y\S.;=================..\T.;..]U
.KOOR JSR$6358 ;MITTELPUNKT HOLEN..]V. J
SRKOMMA.5]W. JSRBYTE ;X-RADIUS HOL
EN.P]X. CPX#129 ;>= 129.O]Y. BCSER
ROR ;JA, FEHLER.Z]Z. STXXR..]{. JSR
KOMMA..]|. JSRBYTE ;Y-RADIUS HOLEN
.F]}. CPX#129 ;>= 129..]~. BCSERRO
R ;JA, FEHLER..]. STXYR..].. JSRKO
MMA.#^.. JSRRECHNE ;ANFANGSWINKEL IN
.F^.. STAANQUA ;QUADRANTEN UND.J^..
STYANPUNKT ;PUNKT UMRECHNEN.X^.. JSR
KOMMA..^.. JSRRECHNE ;ENDWINKEL IN..
^.. STAENDQUA ;QUADRANTEN UND..^.. S
TYENDPUNKT ;PUNKT UMRECHNEN..^.. RTS..
^..;.._..;UMRECHNUNG WINKEL-QUADRANTEN/P
UNKT.?_..;==============================
====.E_..;.M_..RECHNE JSR FRMNUM ;AUSD
RUCK HOLEN.._.. LDX#<(BUFFER).._.. LDY#>
(BUFFER).._.. JSRFACMEM ;WERT SICH
ERN.K_.. LDA#<(MULTTAB1).._.. LDY#>(MULT
TAB1)..`.. JSRMEMMULT ;FAC=FAC*(4/2
*.).)`.. JSRINTFAC ;A/Y=INT(FAC).2
`.. INY.Q`.. TYA ;PLUS 1 =.Z
`.. PHA.C`.. TAX..`.. DEX ;QUADR
ANT MERKEN..`.. LDAQUATABH,X..`.. TAY
;FAC MIT.Y`.. LDAQUATABL,X
;(QUADRANT-1)*..`.. JSRMEMFAC ;(./
2) LADEN..A.. LDA#<(BUFFER).!A.. LDY#>(B
UFFER).DA.. JSRMEMMIN ;FAC=WERT-FA
C.YA . LDA#<(MULTTAB2).NA.. LDY#>(MULTTA
B2)..A.. JSRMEMMULT ;FAC=FAC*(195*2
/.)..A.. JSRINTFAC ;A/Y=INT(FAC).B
A.. INY.KA.. PLA..A.. RTS ;Z
AHL..A..;..A..ERROR PLA..B.. PLA.#B.. J
SRGROFF ;GRAFIK AUS.HB.. JMP$B248
;ILLEGAL QUANTITY.NB..;.RB..MULTTAB1
.BY 128,34,249,131,109..B..MULTTAB2 .BY
135,120,72,30,56.CB..QUATABL .BY<(EINS)
,<(ZWEI),<(DREI),<(VIER)..B..QUATABH .BY
>(EINS),>(ZWEI),>(DREI),>(VIER)..C..EINS
.BY 0,0,0,0,0.*C..ZWEI .BY 129,73,15,
218,162.JC..DREI .BY 130,73,15,218,162.
KC..VIER .BY 131,22,203,227,250..C..BUF
FER .BY 0,0,0,0,0,0..C..;..C..;BERECHNU
NG VON AKKU*X/128.KC..;=================
========.QC..;..C..MULT STA MU..C.. STX
MULT1+1..C.. LDX#07..D.. LDA#00..D..M1 L
SRMU."D.. BCCM2.3D..MULT1 ADC#00.>DA.M2
ROR.GDB. DEX.RDC. BNEM1.[DD. RTS.ADE.;.|
DF.;COSINUS-SINUS-TABELLE..DG.;=========
============..DH.;.ADI.COS .BY 0,1,2,3,
4,5,6,7,8,9,10..DJ. .BY11,12,13,14,15,16
,17,18,19,20..EK. .BY21,22,23,24,25,26,2
7,28,29,30.3EL. .BY31,32,33,34,35,36,37,
38,39,40.YEM. .BY41,42,43,44,45,46,47,48
,49,50.EN. .BY51,52,53,53,54,55,56,57,5
8,59..EO. .BY60,61,62,63,64,64,65,66,67,
68.KEP. .BY69,70,71,71,72,73,74,75,76,76
..EQ. .BY77,78,79,80,80,81,82,83,84,84..
FR. .BY85,86,87,87,88,89,90,90,91,92.=FS
. .BY93,93,94,95,95,96,97,97,98,99.MFT.
.BY099,100,101,101,102,102,103,104,104,1
05..FU. .BY105,106,107,107,108,108,109,1
09,110,110.MFV. .BY111,111,112,112,113,1
13,114,114,115,115..FW. .BY116,116,116,1
17,117,118,118,118,119,119.-GX. .BY120,1
20,120,121,121,121,122,122,122,122.]GY.
.BY123,123,123,124,124,124,124,124,125,1
25..GZ. .BY125,125,125,126,126,126,126,1
26,126,127..G.. .BY127,127,127,127,127,1
27,127,127,127,127.UG.. .BY127,127,127,1
27...
> CLICK IMAGE PREVIEW FOR FULL MODAL