HIRES4.QUELL
FILE INFORMATION
FILENAME(S): HIRES4.QUELL
FILE TYPE(S): PRG
FILE SIZE: 18.1K
FIRST SEEN: 2025-11-30 01:12:57
APPEARS ON: 3 disk(s)
FILE HASH
76c6240a9a6e237e04954ea44b9f5e2f53358e19cf4d39d8a8b331c52c420bc8
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15945 SEITE A | HIRES4.QUELL | PRG | C64er | 20 | 4 | DOWNLOAD FILE |
| 15720 SEITE A | HIRES4.QUELL | PRG | C64er | 24 | 0 | DOWNLOAD FILE |
| 15945 SEITE A | HIRES4.QUELL | PRG | BrainSkull, Sammlung | 20 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 0A 00 3B 00 2D 08 14 00 3B 2A 2A 2A |......;.-...;***| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 08 |*************.S.| 00000030: 1E 00 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |..;* | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 20 20 2A 00 79 08 28 00 3B 2A 20 20 20 20 20 C7 | *.y.(.;* .| 00000060: 52 41 46 49 4B 20 49 4E 20 C1 53 53 45 4D 42 4C |RAFIK IN .SSEMBL| 00000070: 45 52 20 20 20 20 20 20 2A 00 9F 08 32 00 3B 2A |ER *...2.;*| 00000080: 20 20 20 D0 52 4F 47 52 41 4D 4D 20 49 4E 20 20 | .ROGRAMM IN | 00000090: 39 20 CD 4F 44 55 4C 45 4E 20 20 20 20 20 2A 00 |9 .ODULEN *.| 000000A0: C5 08 3C 00 3B 2A 20 C7 52 41 46 49 4B 2D C2 41 |..<.;* .RAFIK-.A| 000000B0: 53 49 43 2D C5 52 57 45 49 54 45 52 55 4E 47 20 |SIC-.RWEITERUNG | 000000C0: C3 36 34 20 2A 00 EB 08 46 00 3B 2A 20 20 20 20 |.64 *...F.;* | 000000D0: 20 20 20 20 20 C8 C9 D2 C5 D3 2D 34 20 20 20 20 | .....-4 | 000000E0: 20 20 20 20 20 20 20 20 20 20 2A 00 11 09 50 00 | *...P.| 000000F0: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 2A 00 37 09 5A 00 3B 2A 20 20 C8 45 49 4D 4F 20 |*.7.Z.;* .EIMO | 00000120: D0 4F 4E 4E 41 54 48 20 C8 41 4D 42 55 52 47 20 |.ONNATH .AMBURG | 00000130: 31 39 38 36 20 20 2A 00 5D 09 64 00 3B 2A 20 20 |1986 *.].d.;* | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 83 09 | *...| 00000160: 6E 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |n.;*************| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 2A 2A 00 89 09 78 00 3B 00 AB 09 82 00 3B 2A |***...x.;.....;*| 00000190: 2A 2A 20 CD 4F 44 55 4C 20 30 3A 20 DA 55 57 45 |** .ODUL 0: .UWE| 000001A0: 49 53 55 4E 47 45 4E 20 2A 2A 2A 00 B1 09 8C 00 |ISUNGEN ***.....| 000001B0: 3B 00 BF 09 96 00 20 2E 42 41 24 43 30 30 30 00 |;..... .BA$C000.| 000001C0: C5 09 A0 00 3B 00 E4 09 AA 00 3B 2D 2D 2D 20 46 |....;.....;--- F| 000001D0: 45 53 54 45 20 DA 55 4F 52 44 4E 55 4E 47 45 4E |ESTE .UORDNUNGEN| 000001E0: 20 2D 2D 2D 00 EA 09 B4 00 3B 00 0E 0A BE 00 20 | ---.....;..... | 000001F0: 2E 45 51 58 4B 4F 3D 24 31 34 3B 32 2D C2 59 54 |.EQXKO=$14;2-.YT| 00000200: 45 20 D8 2D CB 4F 4F 52 44 49 4E 41 54 45 00 38 |E .-.OORDINATE.8| 00000210: 0A C8 00 20 2E 45 51 46 52 45 54 4F 50 3D 24 33 |... .EQFRETOP=$3| 00000220: 34 3B D3 54 52 49 4E 47 53 54 41 52 54 41 44 52 |4;.TRINGSTARTADR| 00000230: 45 53 53 45 20 CD D3 C2 00 65 0A D2 00 20 2E 45 |ESSE ....e... .E| 00000240: 51 4D 45 4D 53 49 5A 3D 24 33 38 3B C8 4F 45 43 |QMEMSIZ=$38;.OEC| 00000250: 48 53 54 45 20 C2 41 53 49 43 41 44 52 45 53 53 |HSTE .ASICADRESS| 00000260: 45 20 CD D3 C2 00 87 0A DC 00 20 2E 45 51 43 48 |E ........ .EQCH| 00000270: 52 47 45 54 3D 24 37 33 3B C3 C8 D2 C7 C5 D4 2D |RGET=$73;......-| 00000280: D2 4F 55 54 49 4E 45 00 A9 0A E6 00 20 2E 45 51 |.OUTINE..... .EQ| 00000290: 43 48 52 47 4F 54 3D 24 37 39 3B C3 C8 D2 C7 CF |CHRGOT=$79;.....| 000002A0: D4 2D D2 4F 55 54 49 4E 45 00 CA 0A F0 00 20 2E |.-.OUTINE..... .| 000002B0: 45 51 54 58 54 50 54 52 3D 24 37 41 3B C3 C8 D2 |EQTXTPTR=$7A;...| 000002C0: C7 C5 D4 2D DA 45 49 47 45 52 00 04 0B FA 00 20 |...-.EIGER..... | 000002D0: 2E 45 51 48 42 41 53 45 3D 24 30 32 38 38 3B CD |.EQHBASE=$0288;.| 000002E0: D3 C2 20 C2 49 4C 44 53 43 48 49 52 4D 53 54 41 |.. .ILDSCHIRMSTA| 000002F0: 52 54 20 41 4E 20 C2 45 54 52 49 45 42 53 53 59 |RT AN .ETRIEBSSY| 00000300: 53 54 45 4D 00 32 0B 04 01 20 2E 45 51 49 47 4F |STEM.2... .EQIGO| 00000310: 4E 45 3D 24 30 33 30 38 3B D6 45 4B 54 4F 52 20 |NE=$0308;.EKTOR | 00000320: 5A 55 4D 20 D2 4F 55 54 49 4E 45 4E 41 55 46 52 |ZUM .OUTINENAUFR| 00000330: 55 46 00 5C 0B 0E 01 20 2E 45 51 42 49 4C 44 3D |UF.\... .EQBILD=| 00000340: 24 35 43 30 30 3B 42 49 4C 44 53 43 48 49 52 4D |$5C00;BILDSCHIRM| 00000350: 53 54 41 52 54 41 44 52 45 53 53 45 00 85 0B 18 |STARTADRESSE....| 00000360: 01 20 2E 45 51 42 49 54 4D 41 50 3D 24 36 30 30 |. .EQBITMAP=$600| 00000370: 30 3B D3 54 41 52 54 41 44 52 45 53 53 45 20 C2 |0;.TARTADRESSE .| 00000380: 49 54 4D 41 50 00 B0 0B 22 01 20 2E 45 51 47 4F |ITMAP...". .EQGO| 00000390: 4E 45 31 3D 24 41 37 45 34 3B C1 4C 54 45 52 20 |NE1=$A7E4;.LTER | 000003A0: C9 4E 48 41 4C 54 20 56 4F 4E 20 49 47 4F 4E 45 |.NHALT VON IGONE| 000003B0: 00 E2 0B 2C 01 20 2E 45 51 49 4E 54 45 4E 44 3D |...,. .EQINTEND=| 000003C0: 24 41 37 45 37 3B C5 4E 44 45 20 44 45 52 20 C9 |$A7E7;.NDE DER .| 000003D0: 4E 54 45 52 50 52 45 54 45 52 53 43 48 4C 45 49 |NTERPRETERSCHLEI| 000003E0: 46 45 00 17 0C 36 01 20 2E 45 51 4C 49 4E 47 45 |FE...6. .EQLINGE| 000003F0: 54 3D 24 41 39 36 42 3B 48 4F 4C 54 20 32 2D C2 |T=$A96B;HOLT 2-.| 00000400: 59 54 45 2D C9 4E 54 45 47 45 52 20 4E 41 43 48 |YTE-.NTEGER NACH| 00000410: 20 24 31 34 2F 31 35 00 51 0C 40 01 20 2E 45 51 | $14/15.Q.@. .EQ| 00000420: 46 52 4D 4E 55 4D 3D 24 41 44 38 41 3B 48 4F 4C |FRMNUM=$AD8A;HOL| 00000430: 54 20 42 45 4C 49 45 42 49 47 45 4E 20 4E 55 4D |T BELIEBIGEN NUM| 00000440: 45 52 49 53 43 48 45 4E 20 C1 55 53 44 52 55 43 |ERISCHEN .USDRUC| 00000450: 4B 00 78 0C 4A 01 20 2E 45 51 43 48 4B 43 4F 4D |K.x.J. .EQCHKCOM| 00000460: 3D 24 41 45 46 44 3B 41 55 46 20 CB 4F 4D 4D 41 |=$AEFD;AUF .OMMA| 00000470: 20 50 52 55 45 46 45 4E 00 A3 0C 54 01 20 2E 45 | PRUEFEN...T. .E| 00000480: 51 46 41 43 49 4E 58 3D 24 42 31 41 41 3B C6 C1 |QFACINX=$B1AA;..| 00000490: C3 20 2D 3E 20 C9 4E 54 45 47 45 52 20 49 4E 20 |. -> .NTEGER IN | 000004A0: C1 2F D9 00 D9 0C 5E 01 20 2E 45 51 47 45 54 41 |./....^. .EQGETA| 000004B0: 44 52 3D 24 42 37 46 37 3B C6 C1 C3 20 2D 3E 20 |DR=$B7F7;... -> | 000004C0: C9 4E 54 45 47 45 52 20 49 4E 20 D9 2F C1 20 55 |.NTEGER IN ./. U| 000004D0: 4E 44 20 24 31 34 2F 31 35 00 1B 0D 68 01 20 2E |ND $14/15...h. .| 000004E0: 45 51 47 45 54 4E 55 4D 3D 24 42 37 45 42 3B 48 |EQGETNUM=$B7EB;H| 000004F0: 4F 4C 54 20 C1 44 52 45 53 53 45 20 4E 41 43 48 |OLT .DRESSE NACH| 00000500: 20 24 31 34 2F 31 35 20 55 4E 44 20 C2 59 54 45 | $14/15 UND .YTE| 00000510: 20 49 4E 53 20 D8 2D D2 45 47 2E 00 40 0D 72 01 | INS .-.EG..@.r.| 00000520: 20 2E 45 51 46 53 55 42 3D 24 42 38 35 30 3B C6 | .EQFSUB=$B850;.| 00000530: C1 C3 20 3D 20 28 C1 2F D9 29 20 2D 20 C6 C1 C3 |.. = (./.) - ...| 00000540: 00 64 0D 7C 01 20 2E 45 51 46 4D 55 4C 54 3D 24 |.d.|. .EQFMULT=$| 00000550: 42 41 32 38 3B C6 C1 C3 20 3D 20 28 C1 2F D9 29 |BA28;... = (./.)| 00000560: 2A C6 C1 C3 00 89 0D 86 01 20 2E 45 51 46 44 49 |*........ .EQFDI| 00000570: 56 3D 24 42 42 30 46 3B C6 C1 C3 20 3D 20 28 C1 |V=$BB0F;... = (.| 00000580: 2F D9 29 20 2F 20 C6 C1 C3 00 B4 0D 90 01 20 2E |/.) / ........ .| 00000590: 45 51 4D 4F 56 46 4D 3D 24 42 42 41 32 3B 4C 41 |EQMOVFM=$BBA2;LA| 000005A0: 45 44 54 20 C6 C1 C3 20 41 55 53 20 D3 50 45 49 |EDT ... AUS .PEI| 000005B0: 43 48 45 52 00 DF 0D 9A 01 20 2E 45 51 4D 4F 56 |CHER..... .EQMOV| 000005C0: 4D 46 3D 24 42 42 44 34 3B 4C 41 45 44 54 20 D3 |MF=$BBD4;LAEDT .| 000005D0: 50 45 49 43 48 45 52 20 41 55 53 20 C6 C1 C3 00 |PEICHER AUS ....| 000005E0: 18 0E A4 01 20 2E 45 51 56 49 43 31 37 3D 24 44 |.... .EQVIC17=$D| 000005F0: 30 31 31 3B C2 49 54 20 35 20 53 43 48 41 4C 54 |011;.IT 5 SCHALT| 00000600: 45 54 20 C2 49 54 2D CD 41 50 2D CD 4F 44 55 53 |ET .IT-.AP-.ODUS| 00000610: 20 45 49 4E 2F 41 55 53 00 54 0E AE 01 20 2E 45 | EIN/AUS.T... .E| 00000620: 51 56 49 43 32 34 3D 24 44 30 31 38 3B D3 54 45 |QVIC24=$D018;.TE| 00000630: 55 45 52 54 20 C2 49 4C 44 53 43 48 49 52 4D 4F |UERT .ILDSCHIRMO| 00000640: 52 54 20 55 4E 44 20 C2 49 54 2D CD 41 50 2D D3 |RT UND .IT-.AP-.| 00000650: 54 41 52 54 00 88 0E B8 01 20 2E 45 51 43 49 41 |TART..... .EQCIA| 00000660: 32 3D 24 44 44 30 30 3B C3 C9 C1 32 20 D0 4F 52 |2=$DD00;...2 .OR| 00000670: 54 C1 3A D3 54 45 55 45 52 54 20 D6 C9 C3 2D C1 |T.:.TEUERT ...-.| 00000680: 42 53 43 48 4E 49 54 54 00 C3 0E C2 01 20 2E 45 |BSCHNITT..... .E| 00000690: 51 43 4F 4D 42 59 54 3D 24 45 32 30 30 3B D0 52 |QCOMBYT=$E200;.R| 000006A0: 55 45 46 54 20 41 55 46 20 CB 4F 4D 4D 41 20 55 |UEFT AUF .OMMA U| 000006B0: 4E 44 20 48 4F 4C 54 20 31 20 C2 59 54 45 20 49 |ND HOLT 1 .YTE I| 000006C0: 4E 20 D8 00 C9 0E CC 01 3B 00 E1 0E D6 01 3B 2D |N ......;.....;-| 000006D0: 2D 2D 20 D6 41 52 49 41 42 4C 45 20 2D 2D 2D 2D |-- .ARIABLE ----| 000006E0: 2D 00 E7 0E E0 01 3B 00 15 0F EA 01 20 2E 45 51 |-.....;..... .EQ| 000006F0: 4D 4F 44 45 3D 24 30 32 3B CD 4F 44 55 53 20 30 |MODE=$02;.ODUS 0| 00000700: 3D 4C 4F 45 53 43 48 45 4E 2C 20 31 3D 5A 45 49 |=LOESCHEN, 1=ZEI| 00000710: 43 48 4E 45 4E 00 32 0F F4 01 20 2E 45 51 59 4B |CHNEN.2... .EQYK| 00000720: 4F 3D 24 30 39 3B 59 2D CB 4F 4F 52 44 49 4E 41 |O=$09;Y-.OORDINA| 00000730: 54 45 00 55 0F FE 01 20 2E 45 51 59 4B 31 3D 24 |TE.U... .EQYK1=$| 00000740: 30 41 3B CB 4F 4F 52 44 49 4E 41 54 45 4E 57 45 |0A;.OORDINATENWE| 00000750: 52 54 20 59 31 00 72 0F 08 02 20 2E 45 51 44 59 |RT Y1.r... .EQDY| 00000760: 3D 24 31 31 3B C1 42 53 54 41 4E 44 20 59 31 2D |=$11;.BSTAND Y1-| 00000770: 59 30 00 8F 0F 12 02 20 2E 45 51 49 59 3D 24 31 |Y0..... .EQIY=$1| 00000780: 39 3B C9 4E 4B 52 45 4D 45 4E 54 57 45 52 54 00 |9;.NKREMENTWERT.| 00000790: A5 0F 1C 02 20 2E 45 51 41 59 3D 24 31 41 3B 20 |.... .EQAY=$1A; | 000007A0: 20 20 2D 22 2D 00 BB 0F 26 02 20 2E 45 51 41 58 | -"-...&. .EQAX| 000007B0: 3D 24 31 42 3B 20 20 20 2D 22 2D 00 D1 0F 30 02 |=$1B; -"-...0.| 000007C0: 20 2E 45 51 49 58 3D 24 31 43 3B 20 20 20 2D 22 | .EQIX=$1C; -"| 000007D0: 2D 00 FA 0F 3A 02 20 2E 45 51 59 50 4C 55 53 59 |-...:. .EQYPLUSY| 000007E0: 3D 24 35 37 3B CB 52 45 49 53 50 55 4E 4B 54 53 |=$57;.REISPUNKTS| 000007F0: 50 49 45 47 45 4C 57 45 52 54 00 13 10 44 02 20 |PIEGELWERT...D. | 00000800: 2E 45 51 59 4D 49 4E 59 3D 24 35 39 3B 20 20 20 |.EQYMINY=$59; | 00000810: 2D 22 2D 00 2D 10 4E 02 20 2E 45 51 59 50 4C 55 |-"-.-.N. .EQYPLU| 00000820: 53 58 3D 24 35 42 3B 20 20 20 2D 22 2D 00 46 10 |SX=$5B; -"-.F.| 00000830: 58 02 20 2E 45 51 59 4D 49 4E 58 3D 24 35 44 3B |X. .EQYMINX=$5D;| 00000840: 20 20 20 2D 22 2D 00 68 10 62 02 20 2E 45 51 48 | -"-.h.b. .EQH| 00000850: 45 4C 50 3D 24 46 42 3B 32 2D C2 59 54 45 20 C8 |ELP=$FB;2-.YTE .| 00000860: 49 4C 46 53 57 45 52 54 00 83 10 6C 02 20 2E 45 |ILFSWERT...l. .E| 00000870: 51 5A 57 53 50 3D 48 45 4C 50 2B 32 3B 20 20 20 |QZWSP=HELP+2; | 00000880: 2D 22 2D 00 A1 10 76 02 20 2E 45 51 43 54 3D 24 |-"-...v. .EQCT=$| 00000890: 39 33 3B 32 2D C2 59 54 45 2D DA 41 45 48 4C 45 |93;2-.YTE-.AEHLE| 000008A0: 52 00 BD 10 80 02 20 2E 45 51 52 41 44 3D 24 39 |R..... .EQRAD=$9| 000008B0: 35 3B 4B 52 45 49 53 52 41 44 49 55 53 00 E6 10 |5;KREISRADIUS...| 000008C0: 8A 02 20 2E 45 51 58 50 4C 55 53 58 3D 24 35 46 |.. .EQXPLUSX=$5F| 000008D0: 3B CB 52 45 49 53 50 55 4E 4B 54 53 50 49 45 47 |;.REISPUNKTSPIEG| 000008E0: 45 4C 57 45 52 54 00 FF 10 94 02 20 2E 45 51 58 |ELWERT..... .EQX| 000008F0: 4D 49 4E 58 3D 24 39 42 3B 20 20 20 2D 22 2D 00 |MINX=$9B; -"-.| 00000900: 19 11 9E 02 20 2E 45 51 58 50 4C 55 53 59 3D 24 |.... .EQXPLUSY=$| 00000910: 39 45 3B 20 20 20 2D 22 2D 00 32 11 A8 02 20 2E |9E; -"-.2... .| 00000920: 45 51 58 4D 49 4E 59 3D 24 41 33 3B 20 20 20 2D |EQXMINY=$A3; -| 00000930: 22 2D 00 50 11 B2 02 20 2E 45 51 58 4B 31 3D 24 |"-.P... .EQXK1=$| 00000940: 38 42 3B CB 4F 4F 52 44 49 4E 41 54 45 20 58 31 |8B;.OORDINATE X1| 00000950: 00 72 11 BC 02 20 2E 45 51 59 4D 3D 24 38 44 3B |.r... .EQYM=$8D;| 00000960: CB 52 45 49 53 4D 49 54 54 45 4C 50 55 4E 4B 54 |.REISMITTELPUNKT| 00000970: 20 D9 00 78 11 C6 02 3B 00 9F 11 D0 02 3B 2D 2D | ..x...;.....;--| 00000980: 2D 20 C4 4F 50 50 45 4C 54 20 47 45 4E 55 54 5A |- .OPPELT GENUTZ| 00000990: 54 45 20 D6 41 52 49 41 42 4C 45 20 2D 2D 2D 00 |TE .ARIABLE ---.| 000009A0: A5 11 DA 02 3B 00 C7 11 E4 02 20 2E 45 51 4F 46 |....;..... .EQOF| 000009B0: 3D 58 4B 31 3B C1 50 50 52 4F 58 49 4D 41 54 49 |=XK1;.PPROXIMATI| 000009C0: 4F 4E 53 57 45 52 54 00 E5 11 EE 02 20 2E 45 51 |ONSWERT..... .EQ| 000009D0: 44 58 3D 48 45 4C 50 3B C1 42 53 54 41 4E 44 20 |DX=HELP;.BSTAND | 000009E0: 58 31 2D 58 30 00 07 12 F8 02 20 2E 45 51 58 4D |X1-X0..... .EQXM| 000009F0: 3D 58 4B 31 3B CB 52 45 49 53 4D 49 54 54 45 4C |=XK1;.REISMITTEL| 00000A00: 50 55 4E 4B 54 20 D8 00 0D 12 02 03 3B 00 36 12 |PUNKT ......;.6.| 00000A10: 0C 03 3B 2A 2A 2A 20 4D 4F 44 55 4C 20 31 3A 20 |..;*** MODUL 1: | 00000A20: C2 45 46 45 48 4C 53 45 52 57 45 49 54 45 52 55 |.EFEHLSERWEITERU| 00000A30: 4E 47 20 2A 2A 2A 00 3C 12 16 03 3B 00 63 12 20 |NG ***.<...;.c. | 00000A40: 03 3B C5 52 57 45 49 54 45 52 54 20 44 49 45 20 |.;.RWEITERT DIE | 00000A50: C9 4E 54 45 52 50 52 45 54 45 52 53 43 48 4C 45 |.NTERPRETERSCHLE| 00000A60: 49 46 45 00 85 12 2A 03 3B 55 4D 20 45 49 4E 45 |IFE...*.;UM EINE| 00000A70: 4E 20 D4 45 49 4C 2C 20 44 45 52 20 44 49 45 20 |N .EIL, DER DIE | 00000A80: 4E 45 55 45 4E 00 A6 12 34 03 3B C2 41 53 49 43 |NEUEN...4.;.ASIC| 00000A90: 42 45 46 45 48 4C 45 20 50 52 55 45 46 54 20 55 |BEFEHLE PRUEFT U| 00000AA0: 4E 44 20 5A 55 52 00 CC 12 3E 03 3B C1 55 53 46 |ND ZUR...>.;.USF| 00000AB0: 55 45 48 52 55 4E 47 20 42 52 49 4E 47 54 2E 20 |UEHRUNG BRINGT. | 00000AC0: C1 42 20 C9 CE C9 D4 20 57 49 52 44 00 F3 12 48 |.B .... WIRD...H| 00000AD0: 03 3B 44 49 45 53 45 20 4E 45 55 45 20 D3 43 48 |.;DIESE NEUE .CH| 00000AE0: 4C 45 49 46 45 20 45 49 4E 47 45 52 49 43 48 54 |LEIFE EINGERICHT| 00000AF0: 45 54 2C 00 1D 13 52 03 3B 41 42 20 C1 D5 D3 20 |ET,...R.;AB ... | 00000B00: 4B 41 4E 4E 20 53 49 45 20 41 42 47 45 53 43 48 |KANN SIE ABGESCH| 00000B10: 41 4C 54 45 54 20 57 45 52 44 45 4E 2E 00 41 13 |ALTET WERDEN..A.| 00000B20: 5C 03 3B C1 42 20 D3 D4 C1 D2 D4 20 4C 49 45 47 |\.;.B ..... LIEG| 00000B30: 54 20 44 49 45 20 45 49 47 45 4E 54 4C 49 43 48 |T DIE EIGENTLICH| 00000B40: 45 00 5E 13 66 03 3B C9 4E 54 45 52 50 52 45 54 |E.^.f.;.NTERPRET| 00000B50: 45 52 45 52 57 45 49 54 45 52 55 4E 47 2E 00 64 |ERERWEITERUNG..d| 00000B60: 13 70 03 3B 00 6A 13 7A 03 3B 00 8E 13 84 03 3B |.p.;.j.z.;.....;| 00000B70: 2D 2D 2D 2D 2D 2D 20 C9 4E 49 54 49 41 4C 49 53 |------ .NITIALIS| 00000B80: 49 45 52 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D 00 94 |IERUNG -------..| 00000B90: 13 8E 03 3B 00 BD 13 98 03 49 4E 49 54 20 4C 44 |...;.....INIT LD| 00000BA0: 41 23 3C 28 53 54 41 52 54 29 3B 4C 53 42 20 45 |A#<(START);LSB E| 00000BB0: 49 47 45 4E 45 20 D2 4F 55 54 49 4E 45 00 DF 13 |IGENE .OUTINE...| 00000BC0: A2 03 20 53 54 41 49 47 4F 4E 45 3B 49 4E 20 56 |.. STAIGONE;IN V| 00000BD0: 45 4B 54 4F 52 20 53 43 48 52 45 49 42 45 4E 00 |EKTOR SCHREIBEN.| 00000BE0: F5 13 AC 03 20 4C 44 41 23 3E 28 53 54 41 52 54 |.... LDA#>(START| 00000BF0: 29 3B 4D 53 42 00 05 14 B6 03 20 53 54 41 49 47 |);MSB..... STAIG| 00000C00: 4F 4E 45 2B 31 00 0E 14 C0 03 20 52 54 53 00 14 |ONE+1..... RTS..| 00000C10: 14 CA 03 3B 00 38 14 D4 03 3B 2D 2D 2D 2D 2D 2D |...;.8...;------| 00000C20: 20 C1 42 53 43 48 41 4C 54 45 4E 20 2D 2D 2D 2D | .BSCHALTEN ----| 00000C30: 2D 2D 2D 2D 2D 2D 2D 2D 00 3E 14 DE 03 3B 00 5E |--------.>...;.^| 00000C40: 14 E8 03 41 55 53 20 4C 44 41 23 3C 28 47 4F 4E |...AUS LDA#<(GON| 00000C50: 45 31 29 3B 56 45 4B 54 4F 52 20 41 55 46 00 77 |E1);VEKTOR AUF.w| 00000C60: 14 F2 03 20 53 54 41 49 47 4F 4E 45 3B CE 4F 52 |... STAIGONE;.OR| 00000C70: 4D 41 4C 57 45 52 54 00 98 14 FC 03 20 4C 44 41 |MALWERT..... LDA| 00000C80: 23 3E 28 47 4F 4E 45 31 29 3B 5A 55 52 55 45 43 |#>(GONE1);ZURUEC| 00000C90: 4B 53 54 45 4C 4C 45 4E 00 A8 14 06 04 20 53 54 |KSTELLEN..... ST| 00000CA0: 41 49 47 4F 4E 45 2B 31 00 B1 14 10 04 20 52 54 |AIGONE+1..... RT| 00000CB0: 53 00 B7 14 1A 04 3B 00 DD 14 24 04 3B 2D C5 52 |S.....;...$.;-.R| 00000CC0: 57 45 49 54 45 52 54 45 20 C9 4E 54 45 52 50 52 |WEITERTE .NTERPR| 00000CD0: 45 54 45 52 53 43 48 4C 45 49 46 45 2D 00 E3 14 |ETERSCHLEIFE-...| 00000CE0: 2E 04 3B 00 05 15 38 04 53 54 41 52 54 20 4A 53 |..;...8.START JS| 00000CF0: 52 43 48 52 47 45 54 3B DA 45 49 43 48 45 4E 20 |RCHRGET;.EICHEN | 00000D00: 48 4F 4C 45 4E 00 1D 15 42 04 20 43 4D 50 23 24 |HOLEN...B. CMP#$| 00000D10: 36 30 3B C2 55 43 48 53 54 41 42 45 3F 00 35 15 |60;.UCHSTABE?.5.| 00000D20: 4C 04 20 42 43 53 45 4E 44 45 3B C2 41 53 49 43 |L. BCSENDE;.ASIC| 00000D30: 2D C3 4F 44 45 00 50 15 56 04 20 43 4D 50 23 24 |-.ODE.P.V. CMP#$| 00000D40: 34 31 3B C2 55 43 48 53 54 41 42 45 20 C1 20 3F |41;.UCHSTABE . ?| 00000D50: 00 6B 15 60 04 20 42 43 43 45 4E 44 45 3B D3 4F |.k.`. BCCENDE;.O| 00000D60: 4E 44 45 52 5A 45 49 43 48 45 4E 00 85 15 6A 04 |NDERZEICHEN...j.| 00000D70: 20 53 54 41 41 4B 4B 55 3B C1 4B 4B 55 20 53 49 | STAAKKU;.KKU SI| 00000D80: 43 48 45 52 4E 00 92 15 74 04 20 4C 44 58 23 24 |CHERN...t. LDX#$| 00000D90: 30 30 00 B1 15 7E 04 20 53 54 58 42 45 46 4E 52 |00...~. STXBEFNR| 00000DA0: 3B C2 45 46 45 48 4C 53 4E 52 2E 20 41 55 46 20 |;.EFEHLSNR. AUF | 00000DB0: 30 00 C2 15 88 04 49 4E 54 31 20 4C 44 59 23 24 |0.....INT1 LDY#$| 00000DC0: 30 30 00 DF 15 92 04 20 49 4E 43 42 45 46 4E 52 |00..... INCBEFNR| 00000DD0: 3B C2 45 46 45 48 4C 53 4E 52 2E 20 2B 20 31 00 |;.EFEHLSNR. + 1.| 00000DE0: 0B 16 9C 04 20 4C 44 41 42 45 46 54 41 42 2C 58 |.... LDABEFTAB,X| 00000DF0: 3B DA 45 49 43 48 45 4E 20 41 55 53 20 C2 45 46 |;.EICHEN AUS .EF| 00000E00: 45 48 4C 53 54 41 42 45 4C 4C 45 00 2A 16 A6 04 |EHLSTABELLE.*...| 00000E10: 20 42 4E 45 49 4E 54 32 3B 4B 45 49 4E 20 D4 52 | BNEINT2;KEIN .R| 00000E20: 45 4E 4E 5A 45 49 43 48 45 4E 00 30 16 B0 04 3B |ENNZEICHEN.0...;| 00000E30: 00 49 16 BA 04 20 4C 44 41 41 4B 4B 55 3B DA 55 |.I... LDAAKKU;.U| 00000E40: 52 55 45 43 4B 20 49 4E 53 00 6A 16 C4 04 45 4E |RUECK INS.j...EN| 00000E50: 44 45 20 4A 53 52 43 48 52 47 4F 54 3B 4E 4F 52 |DE JSRCHRGOT;NOR| 00000E60: 4D 41 4C 45 20 C2 41 53 49 43 00 82 16 CE 04 20 |MALE .ASIC..... | 00000E70: 4A 4D 50 49 4E 54 45 4E 44 3B 53 50 52 49 4E 47 |JMPINTEND;SPRING| 00000E80: 45 4E 00 88 16 D8 04 3B 00 AC 16 E2 04 3B 2D 2D |EN.....;.....;--| 00000E90: 2D 20 C1 44 52 45 53 53 45 20 53 55 43 48 45 4E |- .DRESSE SUCHEN| 00000EA0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B2 16 EC | -----------....| 00000EB0: 04 3B 00 E1 16 F6 04 49 4E 54 32 20 43 4D 50 28 |.;.....INT2 CMP(| 00000EC0: 54 58 54 50 54 52 29 2C 59 3B D6 45 52 47 4C 45 |TXTPTR),Y;.ERGLE| 00000ED0: 49 43 48 20 4D 49 54 20 C2 41 53 49 43 54 45 58 |ICH MIT .ASICTEX| 00000EE0: 54 00 F7 16 00 05 20 42 4E 45 52 45 53 54 3B 55 |T..... BNEREST;U| 00000EF0: 4E 47 4C 45 49 43 48 00 11 17 0A 05 20 49 4E 59 |NGLEICH..... INY| 00000F00: 3B C2 41 53 49 43 54 45 58 54 49 4E 44 45 58 2B |;.ASICTEXTINDEX+| 00000F10: 31 00 2D 17 14 05 20 49 4E 58 3B C2 45 46 45 48 |1.-... INX;.EFEH| 00000F20: 4C 54 41 42 2E 2D C9 4E 44 45 58 2B 31 00 50 17 |LTAB.-.NDEX+1.P.| 00000F30: 1E 05 20 4C 44 41 42 45 46 54 41 42 2C 58 3B 4E |.. LDABEFTAB,X;N| 00000F40: 41 45 43 48 53 54 45 53 20 DA 45 49 43 48 45 4E |AECHSTES .EICHEN| 00000F50: 00 65 17 28 05 20 42 4E 45 49 4E 54 32 3B 50 52 |.e.(. BNEINT2;PR| 00000F60: 55 45 46 45 4E 00 6E 17 32 05 20 43 4C 43 00 87 |UEFEN.n.2. CLC..| 00000F70: 17 3C 05 20 54 59 41 3B C2 45 46 45 48 4C 53 49 |.<. TYA;.EFEHLSI| 00000F80: 4E 44 45 58 20 55 4D 00 A4 17 46 05 20 41 44 43 |NDEX UM...F. ADC| 00000F90: 54 58 54 50 54 52 3B C2 45 46 45 48 4C 53 4C 41 |TXTPTR;.EFEHLSLA| 00000FA0: 45 4E 47 45 00 BC 17 50 05 20 53 54 41 54 58 54 |ENGE...P. STATXT| 00000FB0: 50 54 52 3B 45 52 48 4F 45 48 45 4E 00 D4 17 5A |PTR;ERHOEHEN...Z| 00000FC0: 05 20 42 43 43 4C 41 42 31 3B D5 45 42 45 52 54 |. BCCLAB1;.EBERT| 00000FD0: 52 41 47 3F 00 F2 17 64 05 20 49 4E 43 54 58 54 |RAG?...d. INCTXT| 00000FE0: 50 54 52 2B 31 3B 4D 53 42 20 45 52 48 4F 45 48 |PTR+1;MSB ERHOEH| 00000FF0: 45 4E 00 0F 18 6E 05 4C 41 42 31 20 4C 44 41 42 |EN...n.LAB1 LDAB| 00001000: 45 46 4E 52 3B C2 45 46 45 48 4C 53 4E 52 2E 00 |EFNR;.EFEHLSNR..| 00001010: 23 18 78 05 20 41 53 4C 3B 56 45 52 44 4F 50 50 |#.x. ASL;VERDOPP| 00001020: 45 4C 4E 00 3D 18 82 05 20 54 41 58 3B 55 4E 44 |ELN.=... TAX;UND| 00001030: 20 41 4C 53 20 C9 4E 44 45 58 20 49 4E 00 5C 18 | ALS .NDEX IN.\.| 00001040: 8C 05 20 4C 44 41 53 50 52 54 41 42 2C 58 3B D3 |.. LDASPRTAB,X;.| 00001050: 50 52 55 4E 47 54 41 42 45 4C 4C 45 00 78 18 96 |PRUNGTABELLE.x..| 00001060: 05 20 53 54 41 53 50 52 55 4E 47 2B 31 3B 4C 53 |. STASPRUNG+1;LS| 00001070: 42 20 D3 50 52 55 4E 47 00 94 18 A0 05 20 4C 44 |B .PRUNG..... LD| 00001080: 41 53 50 52 54 41 42 31 2C 58 3B 4D 53 42 20 4C |ASPRTAB1,X;MSB L| 00001090: 45 53 45 4E 00 A9 18 AA 05 20 53 54 41 53 50 52 |ESEN..... STASPR| 000010A0: 55 4E 47 2B 32 3B 4D 53 42 00 AF 18 B4 05 3B 00 |UNG+2;MSB.....;.| 000010B0: D5 18 BE 05 3B 2D 2D 20 D3 45 4C 42 53 54 4D 4F |....;-- .ELBSTMO| 000010C0: 44 49 46 49 5A 49 45 52 45 4E 44 45 52 20 D4 45 |DIFIZIERENDER .E| 000010D0: 49 4C 20 2D 2D 00 DB 18 C8 05 3B 00 F5 18 D2 05 |IL --.....;.....| 000010E0: 53 50 52 55 4E 47 20 4A 53 52 24 46 46 46 46 3B |SPRUNG JSR$FFFF;| 000010F0: C4 55 4D 4D 59 00 FB 18 DC 05 3B 00 21 19 E6 05 |.UMMY.....;.!...| 00001100: 3B 2D 2D 20 DA 55 52 55 45 43 4B 20 5A 55 4D 20 |;-- .URUECK ZUM | 00001110: C9 4E 54 45 52 50 52 45 54 45 52 20 2D 2D 2D 2D |.NTERPRETER ----| 00001120: 2D 00 27 19 F0 05 3B 00 34 19 FA 05 20 4A 4D 50 |-.'...;.4... JMP| 00001130: 45 4E 44 45 00 3A 19 04 06 3B 00 60 19 0E 06 3B |ENDE.:...;.`...;| 00001140: 2D 52 45 53 54 4C 2E 20 C2 45 46 45 48 4C 53 54 |-RESTL. .EFEHLST| 00001150: 45 58 54 20 55 45 42 45 52 4C 45 53 45 4E 2D 2D |EXT UEBERLESEN--| 00001160: 00 66 19 18 06 3B 00 73 19 22 06 52 45 53 54 20 |.f...;.s.".REST | 00001170: 49 4E 58 00 84 19 2C 06 20 4C 44 41 42 45 46 54 |INX...,. LDABEFT| 00001180: 41 42 2C 58 00 A2 19 36 06 20 42 4E 45 52 45 53 |AB,X...6. BNERES| 00001190: 54 3B 42 49 53 20 D4 52 45 4E 4E 5A 45 49 43 48 |T;BIS .RENNZEICH| 000011A0: 45 4E 00 AB 19 40 06 20 49 4E 58 00 C9 19 4A 06 |EN...@. INX...J.| 000011B0: 20 4A 4D 50 49 4E 54 31 3B 4E 41 45 43 48 53 54 | JMPINT1;NAECHST| 000011C0: 45 52 20 C2 45 46 45 48 4C 00 CF 19 54 06 3B 00 |ER .EFEHL...T.;.| 000011D0: F2 19 D0 07 3B 2A 2A 2A 2A 20 4D 4F 44 55 4C 20 |....;**** MODUL | 000011E0: 32 3A 20 47 52 41 46 49 4B 20 45 49 4E 20 2A 2A |2: GRAFIK EIN **| 000011F0: 2A 2A 00 F8 19 DA 07 3B 00 1E 1A E4 07 3B 4C 45 |**.....;.....;LE| 00001200: 47 54 20 47 52 41 46 49 4B 42 49 4C 44 53 43 48 |GT GRAFIKBILDSCH| 00001210: 49 52 4D 20 4E 41 43 48 20 24 35 43 30 30 00 3A |IRM NACH $5C00.:| 00001220: 1A EE 07 3B 55 4E 44 20 42 49 54 2D 4D 41 50 20 |...;UND BIT-MAP | 00001230: 4E 41 43 48 20 24 36 30 30 30 00 5C 1A F8 07 3B |NACH $6000.\...;| 00001240: 53 43 48 41 4C 54 45 54 20 49 4E 20 42 49 54 2D |SCHALTET IN BIT-| 00001250: 4D 41 50 2D 4D 4F 44 55 53 20 55 4D 00 7E 1A 02 |MAP-MODUS UM.~..| 00001260: 08 3B 55 4E 44 20 42 45 47 52 45 4E 5A 54 20 42 |.;UND BEGRENZT B| 00001270: 41 53 49 43 20 42 49 53 20 24 35 43 30 30 00 84 |ASIC BIS $5C00..| 00001280: 1A 0C 08 3B 00 A7 1A 16 08 48 41 4E 20 4C 44 41 |...;.....HAN LDA| 00001290: 23 24 37 44 3B 4F 52 54 20 42 49 4C 44 53 43 48 |#$7D;ORT BILDSCH| 000012A0: 49 52 4D 20 55 4E 44 00 C6 1A 20 08 20 53 54 41 |IRM UND... . STA| 000012B0: 56 49 43 32 34 3B 42 49 54 4D 41 50 20 46 45 53 |VIC24;BITMAP FES| 000012C0: 54 4C 45 47 45 4E 00 E7 1A 2A 08 20 4C 44 41 23 |TLEGEN...*. LDA#| 000012D0: 24 43 36 3B 56 49 43 20 41 55 46 20 41 42 53 43 |$C6;VIC AUF ABSC| 000012E0: 48 4E 49 54 54 20 31 00 FC 1A 34 08 20 53 54 41 |HNITT 1...4. STA| 000012F0: 43 49 41 32 3B 52 49 43 48 54 45 4E 00 1D 1B 3E |CIA2;RICHTEN...>| 00001300: 08 20 4C 44 41 23 24 35 43 3B 4D 53 42 20 42 49 |. LDA#$5C;MSB BI| 00001310: 4C 44 53 43 48 49 52 4D 53 54 41 52 54 00 3D 1B |LDSCHIRMSTART.=.| 00001320: 48 08 20 53 54 41 48 42 41 53 45 3B 41 4E 20 42 |H. STAHBASE;AN B| 00001330: 45 54 52 49 45 42 53 53 59 53 54 45 4D 00 59 1B |ETRIEBSSYSTEM.Y.| 00001340: 52 08 20 53 54 41 46 52 45 54 4F 50 3B 55 4E 44 |R. STAFRETOP;UND| 00001350: 20 53 50 45 49 43 48 45 52 00 72 1B 5C 08 20 53 | SPEICHER.r.\. S| 00001360: 54 41 4D 45 4D 53 49 5A 3B 42 45 47 52 45 4E 5A |TAMEMSIZ;BEGRENZ| 00001370: 45 4E 00 8C 1B 66 08 20 4C 44 41 56 49 43 31 37 |EN...f. LDAVIC17| 00001380: 3B 42 49 54 4D 41 50 4D 4F 44 55 53 00 A5 1B 70 |;BITMAPMODUS...p| 00001390: 08 20 4F 52 41 23 24 32 30 3B 45 49 4E 53 43 48 |. ORA#$20;EINSCH| 000013A0: 41 4C 54 45 4E 00 B3 1B 7A 08 20 53 54 41 56 49 |ALTEN...z. STAVI| 000013B0: 43 31 37 00 BC 1B 84 08 20 52 54 53 00 E4 1B B8 |C17..... RTS....| 000013C0: 0B 3B 2A 2A 2A 2A 20 4D 4F 44 55 4C 20 33 3A 20 |.;**** MODUL 3: | 000013D0: 42 49 54 4D 41 50 20 4C 4F 45 53 43 48 45 4E 20 |BITMAP LOESCHEN | 000013E0: 2A 2A 2A 2A 00 EA 1B C2 0B 3B 00 0C 1C CC 0B 3B |****.....;.....;| 000013F0: 4C 4F 45 53 43 48 54 20 41 4C 4C 45 20 42 49 54 |LOESCHT ALLE BIT| 00001400: 53 20 49 4E 20 44 45 52 20 42 45 49 00 2B 1C D6 |S IN DER BEI.+..| 00001410: 0B 3B 24 36 30 30 30 20 42 45 47 49 4E 4E 45 4E |.;$6000 BEGINNEN| 00001420: 44 45 4E 20 42 49 54 2D 4D 41 50 00 31 1C E0 0B |DEN BIT-MAP.1...| 00001430: 3B 00 58 1C EA 0B 47 43 4C 52 20 4C 44 41 23 3E |;.X...GCLR LDA#>| 00001440: 28 42 49 54 4D 41 50 29 3B 4D 53 42 20 42 49 54 |(BITMAP);MSB BIT| 00001450: 4D 41 50 53 54 41 52 54 00 6E 1C F4 0B 20 53 54 |MAPSTART.n... ST| 00001460: 41 48 45 4C 50 2B 31 3B 4D 45 52 4B 45 4E 00 94 |AHELP+1;MERKEN..| 00001470: 1C FE 0B 20 4C 44 59 23 24 30 30 3B 4C 53 42 20 |... LDY#$00;LSB | 00001480: 42 49 54 4D 41 50 53 54 41 52 54 20 49 53 54 20 |BITMAPSTART IST | 00001490: 4E 55 4C 4C 00 A1 1C 08 0C 20 53 54 59 48 45 4C |NULL..... STYHEL| 000014A0: 50 00 B4 1C 12 0C 20 54 59 41 3B 4E 55 4C 4C 42 |P..... TYA;NULLB| 000014B0: 59 54 45 53 00 D7 1C 1C 0C 20 4C 44 58 23 24 32 |YTES..... LDX#$2| 000014C0: 30 3B 44 45 5A 2E 33 32 20 41 4E 5A 41 48 4C 20 |0;DEZ.32 ANZAHL | 000014D0: 42 4C 4F 45 43 4B 45 00 FB 1C 26 0C 43 4C 4F 4F |BLOECKE...&.CLOO| 000014E0: 50 20 53 54 41 28 48 45 4C 50 29 2C 59 3B 42 59 |P STA(HELP),Y;BY| 000014F0: 54 45 20 4C 4F 45 53 43 48 45 4E 00 13 1D 30 0C |TE LOESCHEN...0.| 00001500: 20 49 4E 59 3B 4E 41 45 43 48 53 54 45 53 20 42 | INY;NAECHSTES B| 00001510: 59 54 45 00 21 1D 3A 0C 20 42 4E 45 43 4C 4F 4F |YTE.!.:. BNECLOO| 00001520: 50 00 44 1D 44 0C 20 49 4E 43 48 45 4C 50 2B 31 |P.D.D. INCHELP+1| 00001530: 3B 4D 53 42 20 5A 45 49 47 45 52 20 45 52 48 4F |;MSB ZEIGER ERHO| 00001540: 45 48 45 4E 00 5E 1D 4E 0C 20 44 45 58 3B 42 4C |EHEN.^.N. DEX;BL| 00001550: 4F 43 4B 5A 41 45 48 4C 45 52 20 2D 20 31 00 6C |OCKZAEHLER - 1.l| 00001560: 1D 58 0C 20 42 4E 45 43 4C 4F 4F 50 00 75 1D 62 |.X. BNECLOOP.u.b| 00001570: 0C 20 52 54 53 00 98 1D A0 0F 3B 2A 2A 2A 2A 20 |. RTS.....;**** | 00001580: 4D 4F 44 55 4C 20 34 3A 20 46 41 52 42 47 45 42 |MODUL 4: FARBGEB| 00001590: 55 4E 47 20 2A 2A 2A 2A 00 9E 1D AA 0F 3B 00 BF |UNG ****.....;..| 000015A0: 1D B4 0F 3B 4C 49 45 53 54 20 41 55 53 20 44 45 |...;LIEST AUS DE| 000015B0: 4D 20 42 41 53 49 43 54 45 58 54 20 44 49 45 00 |M BASICTEXT DIE.| 000015C0: DE 1D BE 0F 3B 5A 45 49 43 48 45 4E 46 41 52 42 |....;ZEICHENFARB| 000015D0: 45 20 28 5A 46 29 20 55 4E 44 20 44 49 45 00 04 |E (ZF) UND DIE..| 000015E0: 1E C8 0F 3B 48 49 4E 54 45 52 47 52 55 4E 44 46 |...;HINTERGRUNDF| 000015F0: 41 52 42 45 20 28 48 46 29 20 55 4E 44 20 42 45 |ARBE (HF) UND BE| 00001600: 4C 45 47 54 00 27 1E D2 0F 3B 44 45 4E 20 46 41 |LEGT.'...;DEN FA| 00001610: 52 42 53 50 45 49 43 48 45 52 20 41 42 20 24 35 |RBSPEICHER AB $5| 00001620: 43 30 30 20 4D 49 54 00 4A 1E DC 0F 3B 44 49 45 |C00 MIT.J...;DIE| 00001630: 53 45 52 20 46 41 52 42 4B 4F 4D 42 49 4E 41 54 |SER FARBKOMBINAT| 00001640: 49 4F 4E 2E 20 44 41 42 45 49 00 64 1E E6 0F 3B |ION. DABEI.d...;| 00001650: 49 53 54 20 46 41 52 42 45 20 3D 20 31 36 2A 5A |IST FARBE = 16*Z| 00001660: 46 2B 48 46 00 6A 1E F0 0F 3B 00 8F 1E FA 0F 43 |F+HF.j...;.....C| 00001670: 4F 4C 4F 52 20 4A 53 52 43 4F 4D 42 59 54 3B 5A |OLOR JSRCOMBYT;Z| 00001680: 46 20 49 4E 20 58 2D 52 45 47 49 53 54 45 52 00 |F IN X-REGISTER.| 00001690: A7 1E 04 10 20 53 54 58 48 45 4C 50 3B 55 4E 44 |.... STXHELP;UND| 000016A0: 20 4D 45 52 4B 45 4E 00 C7 1E 0E 10 20 4A 53 52 | MERKEN..... JSR| 000016B0: 43 4F 4D 42 59 54 3B 48 46 20 49 4E 20 58 2D 52 |COMBYT;HF IN X-R| 000016C0: 45 47 49 53 54 45 52 00 E1 1E 18 10 20 53 54 58 |EGISTER..... STX| 000016D0: 48 45 4C 50 2B 31 3B 55 4E 44 20 4D 45 52 4B 45 |HELP+1;UND MERKE| 000016E0: 4E 00 E7 1E 22 10 3B 00 01 1F 2C 10 20 4C 44 41 |N...".;...,. LDA| 000016F0: 48 45 4C 50 3B 5A 45 49 43 48 45 4E 46 41 52 42 |HELP;ZEICHENFARB| 00001700: 45 00 11 1F 36 10 20 41 53 4C 3B 4D 41 4C 20 31 |E...6. ASL;MAL 1| 00001710: 36 00 1A 1F 40 10 20 41 53 4C 00 23 1F 4A 10 20 |6...@. ASL.#.J. | 00001720: 41 53 4C 00 2C 1F 54 10 20 41 53 4C 00 41 1F 5E |ASL.,.T. ASL.A.^| 00001730: 10 20 43 4C 43 3B 48 46 20 41 44 44 49 45 52 45 |. CLC;HF ADDIERE| 00001740: 4E 00 50 1F 68 10 20 41 44 43 48 45 4C 50 2B 31 |N.P.h. ADCHELP+1| 00001750: 00 56 1F 72 10 3B 00 81 1F 7C 10 43 4F 4C 32 20 |.V.r.;...|.COL2 | 00001760: 4C 44 58 23 3E 28 42 49 4C 44 29 3B 4D 53 42 20 |LDX#>(BILD);MSB | 00001770: 42 49 4C 44 53 43 48 49 52 4D 41 44 52 45 53 53 |BILDSCHIRMADRESS| 00001780: 45 00 97 1F 86 10 20 53 54 58 48 45 4C 50 2B 31 |E..... STXHELP+1| 00001790: 3B 4D 45 52 4B 45 4E 00 BC 1F 90 10 20 4C 44 59 |;MERKEN..... LDY| 000017A0: 23 24 30 30 3B 4C 53 42 20 42 49 4C 44 53 43 48 |#$00;LSB BILDSCH| 000017B0: 49 52 4D 20 49 53 54 20 4E 55 4C 4C 00 D0 1F 9A |IRM IST NULL....| 000017C0: 10 20 53 54 59 48 45 4C 50 3B 4D 45 52 4B 45 4E |. STYHELP;MERKEN| 000017D0: 00 EF 1F A4 10 20 4C 44 58 23 24 30 34 3B 34 20 |..... LDX#$04;4 | 000017E0: 42 4C 4F 45 43 4B 45 20 46 55 45 4C 4C 45 4E 00 |BLOECKE FUELLEN.| 000017F0: 15 20 AE 10 48 4C 4F 4F 50 20 53 54 41 28 48 45 |. ..HLOOP STA(HE| 00001800: 4C 50 29 2C 59 3B 46 41 52 42 45 20 45 49 4E 54 |LP),Y;FARBE EINT| 00001810: 52 41 47 45 4E 00 2D 20 B8 10 20 49 4E 59 3B 4E |RAGEN.- .. INY;N| 00001820: 41 45 43 48 53 54 45 53 20 42 59 54 45 00 3B 20 |AECHSTES BYTE.; | 00001830: C2 10 20 42 4E 45 48 4C 4F 4F 50 00 5A 20 CC 10 |.. BNEHLOOP.Z ..| 00001840: 20 49 4E 43 48 45 4C 50 2B 31 3B 4E 41 45 43 48 | INCHELP+1;NAECH| 00001850: 53 54 45 52 20 42 4C 4F 43 4B 00 63 20 D6 10 20 |STER BLOCK.c .. | 00001860: 44 45 58 00 71 20 E0 10 20 42 4E 45 48 4C 4F 4F |DEX.q .. BNEHLOO| 00001870: 50 00 7A 20 EA 10 20 52 54 53 00 A0 20 88 13 3B |P.z .. RTS.. ..;| 00001880: 2A 2A 2A 2A 20 4D 4F 44 55 4C 20 35 3A 20 54 45 |**** MODUL 5: TE| 00001890: 58 54 4D 4F 44 55 53 20 45 49 4E 20 2A 2A 2A 2A |XTMODUS EIN ****| 000018A0: 00 A6 20 92 13 3B 00 CA 20 9C 13 3B 53 4F 52 47 |.. ..;.. ..;SORG| 000018B0: 54 20 44 41 46 55 45 52 2C 20 44 41 53 53 20 44 |T DAFUER, DASS D| 000018C0: 45 52 20 4E 4F 52 4D 41 4C 45 00 EC 20 A6 13 3B |ER NORMALE.. ..;| 000018D0: 54 45 58 54 4D 4F 44 55 53 20 41 4B 54 49 56 20 |TEXTMODUS AKTIV | 000018E0: 57 49 52 44 2E 20 47 52 41 46 49 4B 00 07 21 B0 |WIRD. GRAFIK..!.| 000018F0: 13 3B 42 4C 45 49 42 54 20 41 42 45 52 20 45 52 |.;BLEIBT ABER ER| 00001900: 48 41 4C 54 45 4E 2E 00 0D 21 BA 13 3B 00 32 21 |HALTEN...!..;.2!| 00001910: C4 13 4E 4F 52 4D 20 4C 44 41 23 24 31 35 3B 4E |..NORM LDA#$15;N| 00001920: 4F 52 4D 41 4C 45 52 20 42 49 4C 44 53 43 48 49 |ORMALER BILDSCHI| 00001930: 52 4D 00 40 21 CE 13 20 53 54 41 56 49 43 32 34 |RM.@!.. STAVIC24| 00001940: 00 61 21 D8 13 20 4C 44 41 23 24 43 37 3B 56 49 |.a!.. LDA#$C7;VI| 00001950: 43 20 41 55 46 20 41 42 53 43 48 4E 49 54 54 20 |C AUF ABSCHNITT | 00001960: 30 00 6E 21 E2 13 20 53 54 41 43 49 41 32 00 8E |0.n!.. STACIA2..| 00001970: 21 EC 13 20 4C 44 41 23 24 30 34 3B 4D 53 42 20 |!.. LDA#$04;MSB | 00001980: 54 45 58 54 42 49 4C 44 53 43 48 49 52 4D 00 AE |TEXTBILDSCHIRM..| 00001990: 21 F6 13 20 53 54 41 48 42 41 53 45 3B 41 4E 20 |!.. STAHBASE;AN | 000019A0: 42 45 54 52 49 45 42 53 53 59 53 54 45 4D 00 C6 |BETRIEBSSYSTEM..| 000019B0: 21 00 14 20 4C 44 41 56 49 43 31 37 3B 54 45 58 |!.. LDAVIC17;TEX| 000019C0: 54 4D 4F 44 55 53 00 DF 21 0A 14 20 41 4E 44 23 |TMODUS..!.. AND#| 000019D0: 24 44 46 3B 45 49 4E 53 43 48 41 4C 54 45 4E 00 |$DF;EINSCHALTEN.| 000019E0: ED 21 14 14 20 53 54 41 56 49 43 31 37 00 F6 21 |.!.. STAVIC17..!| 000019F0: 1E 14 20 52 54 53 00 23 22 70 17 3B 2A 2A 2A 2A |.. RTS.#"p.;****| 00001A00: 20 4D 4F 44 55 4C 20 36 3A 50 55 4E 4B 54 20 53 | MODUL 6:PUNKT S| 00001A10: 45 54 5A 45 4E 2F 4C 4F 45 53 43 48 45 4E 20 2A |ETZEN/LOESCHEN *| 00001A20: 2A 2A 2A 00 29 22 7A 17 3B 00 4B 22 84 17 3B 53 |***.)"z.;.K"..;S| 00001A30: 45 54 5A 54 20 49 4E 20 44 45 52 20 42 49 54 4D |ETZT IN DER BITM| 00001A40: 41 50 20 41 42 20 24 36 30 30 30 00 6D 22 8E 17 |AP AB $6000.m"..| 00001A50: 3B 45 49 4E 45 4E 20 50 55 4E 4B 54 20 4F 44 45 |;EINEN PUNKT ODE| 00001A60: 52 20 4C 4F 45 53 43 48 54 20 49 48 4E 00 92 22 |R LOESCHT IHN.."| 00001A70: 98 17 3B 4A 45 20 4E 41 43 48 20 4D 4F 44 55 53 |..;JE NACH MODUS| 00001A80: 2E 20 31 2E 45 49 4E 53 50 52 55 4E 47 20 48 4F |. 1.EINSPRUNG HO| 00001A90: 4C 54 00 B8 22 A2 17 3B 41 55 53 20 42 41 53 49 |LT.."..;AUS BASI| 00001AA0: 43 54 45 58 54 20 50 41 52 41 4D 45 54 45 52 20 |CTEXT PARAMETER | 00001AB0: 58 2C 59 2C 4D 4F 44 45 00 DC 22 AC 17 3B 32 2E |X,Y,MODE.."..;2.| 00001AC0: 45 49 4E 53 50 52 55 4E 47 20 53 45 54 5A 54 20 |EINSPRUNG SETZT | 00001AD0: 47 45 53 50 45 49 43 48 45 52 54 45 00 F3 22 B6 |GESPEICHERTE..".| 00001AE0: 17 3B 50 41 52 41 4D 45 54 45 52 20 56 4F 52 41 |.;PARAMETER VORA| 00001AF0: 55 53 2E 00 F9 22 C0 17 3B 00 17 23 CA 17 3B 2D |US..."..;..#..;-| 00001B00: 2D 2D 20 50 41 52 41 4D 45 54 45 52 20 48 4F 4C |-- PARAMETER HOL| 00001B10: 45 4E 20 2D 2D 2D 2D 00 1D 23 D4 17 3B 00 40 23 |EN ----..#..;.@#| 00001B20: DE 17 50 55 4E 4B 54 31 20 4A 53 52 47 45 54 4E |..PUNKT1 JSRGETN| 00001B30: 55 4D 3B 58 20 55 4E 44 20 59 20 48 4F 4C 45 4E |UM;X UND Y HOLEN| 00001B40: 00 5F 23 E8 17 20 53 54 58 59 4B 4F 3B 59 20 4D |._#.. STXYKO;Y M| 00001B50: 45 52 4B 45 4E 2C 20 58 20 49 4E 20 58 4B 4F 00 |ERKEN, X IN XKO.| 00001B60: 7A 23 F2 17 20 4A 53 52 43 4F 4D 42 59 54 3B 4D |z#.. JSRCOMBYT;M| 00001B70: 4F 44 55 53 20 48 4F 4C 45 4E 00 92 23 FC 17 20 |ODUS HOLEN..#.. | 00001B80: 53 54 58 4D 4F 44 45 3B 55 4E 44 20 4D 45 52 4B |STXMODE;UND MERK| 00001B90: 45 4E 00 98 23 06 18 3B 00 B7 23 10 18 3B 2D 2D |EN..#..;..#..;--| 00001BA0: 2D 20 50 41 52 41 4D 45 54 45 52 20 50 52 55 45 |- PARAMETER PRUE| 00001BB0: 46 45 4E 20 2D 2D 2D 00 BD 23 1A 18 3B 00 D9 23 |FEN ---..#..;..#| 00001BC0: 24 18 50 55 4E 4B 54 32 20 4C 44 41 59 4B 4F 3B |$.PUNKT2 LDAYKO;| 00001BD0: 59 20 50 52 55 45 46 45 4E 00 F8 23 2E 18 20 43 |Y PRUEFEN..#.. C| 00001BE0: 4D 50 23 24 43 37 3B 47 52 4F 45 53 53 45 52 20 |MP#$C7;GROESSER | 00001BF0: 41 4C 53 20 32 30 30 3F 00 1B 24 38 18 20 42 43 |ALS 200?..$8. BC| 00001C00: 53 4E 4F 50 4C 4F 54 3B 57 45 4E 4E 20 4A 41 2C |SNOPLOT;WENN JA,| 00001C10: 20 4B 45 49 4E 20 50 55 4E 4B 54 00 37 24 42 18 | KEIN PUNKT.7$B.| 00001C20: 20 4C 44 59 58 4B 4F 2B 31 3B 4D 53 42 20 58 20 | LDYXKO+1;MSB X | 00001C30: 50 52 55 45 46 45 4E 00 52 24 4C 18 20 42 45 51 |PRUEFEN.R$L. BEQ| 00001C40: 4F 4B 3B 4B 4C 45 49 4E 45 52 20 41 4C 53 20 32 |OK;KLEINER ALS 2| 00001C50: 35 35 00 67 24 56 18 20 44 45 59 3B 4A 45 54 5A |55.g$V. DEY;JETZ| 00001C60: 54 20 4E 55 4C 4C 3F 00 8B 24 60 18 20 42 4E 45 |T NULL?..$`. BNE| 00001C70: 4E 4F 50 4C 4F 54 3B 4D 53 42 20 58 20 3E 20 31 |NOPLOT;MSB X > 1| 00001C80: 2C 4B 45 49 4E 20 50 55 4E 4B 54 00 A5 24 6A 18 |,KEIN PUNKT..$j.| 00001C90: 20 4C 44 41 58 4B 4F 3B 4C 53 42 20 58 20 50 52 | LDAXKO;LSB X PR| 00001CA0: 55 45 46 45 4E 00 CC 24 74 18 20 43 4D 50 23 24 |UEFEN..$t. CMP#$| 00001CB0: 34 30 3B 47 52 4F 45 53 53 45 52 20 41 4C 53 20 |40;GROESSER ALS | 00001CC0: 4C 53 42 20 56 4F 4E 20 33 32 30 3F 00 EB 24 7E |LSB VON 320?..$~| 00001CD0: 18 20 42 43 53 4E 4F 50 4C 4F 54 3B 44 41 4E 4E |. BCSNOPLOT;DANN| 00001CE0: 20 4B 45 49 4E 20 50 55 4E 4B 54 00 F1 24 88 18 | KEIN PUNKT..$..| 00001CF0: 3B 00 15 25 92 18 3B 2D 2D 2D 20 42 45 52 45 43 |;..%..;--- BEREC| 00001D00: 48 4E 45 4E 20 42 59 54 45 20 55 4E 44 20 42 49 |HNEN BYTE UND BI| 00001D10: 54 20 2D 2D 2D 00 1B 25 9C 18 3B 00 29 25 A6 18 |T ---..%..;.)%..| 00001D20: 4F 4B 20 4C 44 41 59 4B 4F 00 4B 25 B0 18 20 54 |OK LDAYKO.K%.. T| 00001D30: 41 58 3B 59 20 49 4E 20 41 4B 4B 55 20 55 4E 44 |AX;Y IN AKKU UND| 00001D40: 20 58 2D 52 45 47 49 53 54 45 52 00 62 25 BA 18 | X-REGISTER.b%..| 00001D50: 20 4C 53 52 3B 42 45 52 45 43 48 4E 45 4E 20 59 | LSR;BERECHNEN Y| 00001D60: 2F 38 00 6B 25 C4 18 20 4C 53 52 00 74 25 CE 18 |/8.k%.. LSR.t%..| 00001D70: 20 4C 53 52 00 92 25 D8 18 20 54 41 59 3B 49 4D | LSR..%.. TAY;IM| 00001D80: 20 59 2D 52 45 47 49 53 54 45 52 20 4D 45 52 4B | Y-REGISTER MERK| 00001D90: 45 4E 00 9B 25 E2 18 20 43 4C 43 00 AE 25 EC 18 |EN..%.. CLC..%..| 00001DA0: 20 54 58 41 3B 4E 4F 43 48 4D 41 4C 20 59 00 C5 | TXA;NOCHMAL Y..| 00001DB0: 25 F6 18 20 41 4E 44 23 24 30 37 3B 28 59 20 41 |%.. AND#$07;(Y A| 00001DC0: 4E 44 20 37 29 00 E3 25 00 19 20 41 44 43 4D 41 |ND 7)..%.. ADCMA| 00001DD0: 4C 54 41 42 2C 59 3B 2B 33 32 30 2A 59 2F 38 20 |LTAB,Y;+320*Y/8 | 00001DE0: 4C 53 42 00 F0 25 0A 19 20 53 54 41 5A 57 53 50 |LSB..%.. STAZWSP| 00001DF0: 00 FC 25 14 19 20 4C 44 41 58 4B 4F 00 17 26 1E |..%.. LDAXKO..&.| 00001E00: 19 20 41 4E 44 23 24 46 38 3B 4C 53 42 20 58 20 |. AND#$F8;LSB X | 00001E10: 41 4E 44 20 32 34 38 00 24 26 28 19 20 41 44 43 |AND 248.$&(. ADC| 00001E20: 5A 57 53 50 00 3C 26 32 19 20 53 54 41 5A 57 53 |ZWSP.<&2. STAZWS| 00001E30: 50 3B 4D 45 52 4B 45 4E 20 4C 53 42 00 5A 26 3C |P;MERKEN LSB.Z&<| 00001E40: 19 20 4C 44 41 4D 41 4C 54 41 42 31 2C 59 3B 33 |. LDAMALTAB1,Y;3| 00001E50: 32 30 2A 59 2F 38 20 4D 53 42 00 68 26 46 19 20 |20*Y/8 MSB.h&F. | 00001E60: 41 44 43 58 4B 4F 2B 31 00 82 26 50 19 20 53 54 |ADCXKO+1..&P. ST| 00001E70: 41 5A 57 53 50 2B 31 3B 4D 53 42 20 4D 45 52 4B |AZWSP+1;MSB MERK| 00001E80: 45 4E 00 A4 26 5A 19 20 4C 44 41 58 4B 4F 3B 42 |EN..&Z. LDAXKO;B| 00001E90: 49 54 50 4F 53 49 54 49 4F 4E 20 42 45 52 45 43 |ITPOSITION BEREC| 00001EA0: 48 4E 45 4E 00 B1 26 64 19 20 41 4E 44 23 24 30 |HNEN..&d. AND#$0| 00001EB0: 37 00 BA 26 6E 19 20 54 41 59 00 CC 26 78 19 20 |7..&n. TAY..&x. | 00001EC0: 4C 44 41 48 4F 43 48 54 41 42 2C 59 00 D2 26 82 |LDAHOCHTAB,Y..&.| 00001ED0: 19 3B 00 EC 26 8C 19 3B 2D 2D 2D 20 4D 4F 44 45 |.;..&..;--- MODE| 00001EE0: 20 50 52 55 45 46 45 4E 20 2D 2D 2D 00 F2 26 96 | PRUEFEN ---..&.| 00001EF0: 19 3B 00 FF 26 A0 19 20 4C 44 59 23 24 30 30 00 |.;..&.. LDY#$00.| 00001F00: 0C 27 AA 19 20 4C 44 58 4D 4F 44 45 00 1B 27 B4 |.'.. LDXMODE..'.| 00001F10: 19 20 42 45 51 4C 4F 45 53 43 48 00 21 27 BE 19 |. BEQLOESCH.!'..| 00001F20: 3B 00 3B 27 C8 19 3B 2D 2D 2D 20 50 55 4E 4B 54 |;.;'..;--- PUNKT| 00001F30: 20 53 45 54 5A 45 4E 20 2D 2D 2D 00 41 27 D2 19 | SETZEN ---.A'..| 00001F40: 3B 00 52 27 DC 19 20 4F 52 41 28 5A 57 53 50 29 |;.R'.. ORA(ZWSP)| 00001F50: 2C 59 00 6E 27 E6 19 20 42 4E 45 53 54 4F 52 45 |,Y.n'.. BNESTORE| 00001F60: 3B 53 50 52 49 4E 47 54 20 49 4D 4D 45 52 00 74 |;SPRINGT IMMER.t| 00001F70: 27 F0 19 3B 00 90 27 FA 19 3B 2D 2D 2D 20 50 55 |'..;..'..;--- PU| 00001F80: 4E 4B 54 20 4C 4F 45 53 43 48 45 4E 20 2D 2D 2D |NKT LOESCHEN ---| 00001F90: 00 96 27 04 1A 3B 00 B2 27 0E 1A 4C 4F 45 53 43 |..'..;..'..LOESC| 00001FA0: 48 20 45 4F 52 23 24 46 46 3B 4C 4F 45 53 43 48 |H EOR#$FF;LOESCH| 00001FB0: 45 4E 00 C3 27 18 1A 20 41 4E 44 28 5A 57 53 50 |EN..'.. AND(ZWSP| 00001FC0: 29 2C 59 00 ED 27 22 1A 53 54 4F 52 45 20 53 54 |),Y..'".STORE ST| 00001FD0: 41 28 5A 57 53 50 29 2C 59 3B 45 49 4E 54 52 41 |A(ZWSP),Y;EINTRA| 00001FE0: 47 45 4E 20 49 4E 20 42 49 54 4D 41 50 00 F3 27 |GEN IN BITMAP..'| 00001FF0: 2C 1A 3B 00 0C 28 36 1A 3B 2D 2D 2D 20 52 55 45 |,.;..(6.;--- RUE| 00002000: 43 4B 53 50 52 55 4E 47 20 2D 2D 2D 00 12 28 40 |CKSPRUNG ---..(@| 00002010: 1A 3B 00 21 28 4A 1A 4E 4F 50 4C 4F 54 20 52 54 |.;.!(J.NOPLOT RT| 00002020: 53 00 47 28 58 1B 3B 2A 2A 2A 2A 20 4D 4F 44 55 |S.G(X.;**** MODU| 00002030: 4C 20 37 3A 20 4C 49 4E 49 45 4E 20 5A 49 45 48 |L 7: LINIEN ZIEH| 00002040: 45 4E 20 2A 2A 2A 2A 00 4D 28 62 1B 3B 00 73 28 |EN ****.M(b.;.s(| 00002050: 6C 1B 3B 5A 45 49 43 48 4E 45 54 20 4F 44 45 52 |l.;ZEICHNET ODER| 00002060: 20 4C 4F 45 53 43 48 54 20 45 49 4E 45 20 4C 49 | LOESCHT EINE LI| 00002070: 4E 49 45 00 99 28 76 1B 3B 5A 57 49 53 43 48 45 |NIE..(v.;ZWISCHE| 00002080: 4E 20 44 45 4E 20 50 55 4E 4B 54 45 4E 20 28 58 |N DEN PUNKTEN (X| 00002090: 30 2C 59 30 29 20 55 4E 44 00 BD 28 80 1B 3B 28 |0,Y0) UND..(..;(| 000020A0: 58 31 2C 59 31 29 2E 20 45 49 4E 53 50 52 55 4E |X1,Y1). EINSPRUN| 000020B0: 47 20 44 52 57 4C 49 4E 20 48 4F 4C 54 00 E2 28 |G DRWLIN HOLT..(| 000020C0: 8A 1B 3B 41 55 53 20 42 41 53 49 43 54 45 58 54 |..;AUS BASICTEXT| 000020D0: 20 44 49 45 20 50 41 52 41 4D 45 54 45 52 20 55 | DIE PARAMETER U| 000020E0: 4E 44 00 08 29 94 1B 3B 50 52 55 45 46 54 20 53 |ND..)..;PRUEFT S| 000020F0: 49 45 2E 20 45 49 4E 53 50 52 55 4E 47 20 53 45 |IE. EINSPRUNG SE| 00002100: 54 50 41 52 20 45 52 2D 00 29 29 9E 1B 3B 57 41 |TPAR ER-.))..;WA| 00002110: 52 54 45 54 20 44 49 45 20 50 41 52 41 4D 45 54 |RTET DIE PARAMET| 00002120: 45 52 20 49 4E 20 44 45 4E 00 4D 29 A8 1B 3B 52 |ER IN DEN.M)..;R| 00002130: 49 43 48 54 49 47 45 4E 20 53 50 45 49 43 48 45 |ICHTIGEN SPEICHE| 00002140: 52 53 54 45 4C 4C 45 4E 20 58 4B 4F 2C 00 71 29 |RSTELLEN XKO,.q)| 00002150: B2 1B 3B 59 4B 4F 2C 58 4B 31 2C 59 4B 31 2C 4D |..;YKO,XK1,YK1,M| 00002160: 4F 44 45 2E 20 55 45 42 45 52 47 41 42 45 20 41 |ODE. UEBERGABE A| 00002170: 4E 00 94 29 BC 1B 3B 4D 4F 44 55 4C 20 36 20 4D |N..)..;MODUL 6 M| 00002180: 49 54 54 45 4C 53 20 58 4B 4F 2C 59 4B 4F 2C 4D |ITTELS XKO,YKO,M| 00002190: 4F 44 45 2E 00 9A 29 C6 1B 3B 00 B9 29 D0 1B 49 |ODE...)..;..)..I| 000021A0: 4C 4C 20 52 54 53 3B 5A 55 52 55 45 43 4B 20 42 |LL RTS;ZURUECK B| 000021B0: 45 49 20 46 45 48 4C 45 52 00 BF 29 DA 1B 3B 00 |EI FEHLER..)..;.| 000021C0: D8 29 E4 1B 3B 2D 2D 2D 20 45 49 4E 53 50 52 55 |.)..;--- EINSPRU| 000021D0: 4E 47 20 31 20 2D 2D 2D 00 DE 29 EE 1B 3B 00 0D |NG 1 ---..)..;..| 000021E0: 2A F8 1B 44 52 57 4C 49 4E 20 4A 53 52 47 43 4F |*..DRWLIN JSRGCO| 000021F0: 4F 52 44 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 |ORD;KOORDINATEN | 00002200: 31 2E 50 55 4E 4B 54 20 48 4F 4C 45 4E 00 27 2A |1.PUNKT HOLEN.'*| 00002210: 02 1C 20 42 43 53 49 4C 4C 3B 46 41 4C 53 43 48 |.. BCSILL;FALSCH| 00002220: 45 52 20 57 45 52 54 00 3D 2A 0C 1C 20 53 54 58 |ER WERT.=*.. STX| 00002230: 59 4B 4F 3B 59 30 20 4D 45 52 4B 45 4E 00 58 2A |YKO;Y0 MERKEN.X*| 00002240: 16 1C 20 53 54 41 43 54 2B 31 3B 4D 53 42 20 58 |.. STACT+1;MSB X| 00002250: 30 20 4D 45 52 4B 45 4E 00 75 2A 20 1C 20 53 54 |0 MERKEN.u* . ST| 00002260: 59 43 54 3B 55 4E 44 20 4C 53 42 20 45 42 45 4E |YCT;UND LSB EBEN| 00002270: 46 41 4C 4C 53 00 9E 2A 2A 1C 20 4A 53 52 47 43 |FALLS..**. JSRGC| 00002280: 4F 4F 52 44 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E |OORD;KOORDINATEN| 00002290: 20 32 2E 50 55 4E 4B 54 20 48 4F 4C 45 4E 00 B8 | 2.PUNKT HOLEN..| 000022A0: 2A 34 1C 20 42 43 53 49 4C 4C 3B 46 41 4C 53 43 |*4. BCSILL;FALSC| 000022B0: 48 45 52 20 57 45 52 54 00 CE 2A 3E 1C 20 53 54 |HER WERT..*>. ST| 000022C0: 58 59 4B 31 3B 59 31 20 4D 45 52 4B 45 4E 00 E8 |XYK1;Y1 MERKEN..| 000022D0: 2A 48 1C 20 53 54 59 58 4B 31 3B 4C 53 42 20 58 |*H. STYXK1;LSB X| 000022E0: 31 20 4D 45 52 4B 45 4E 00 02 2B 52 1C 20 4C 44 |1 MERKEN..+R. LD| 000022F0: 59 43 54 3B 4C 53 42 20 58 30 20 55 4D 4C 41 44 |YCT;LSB X0 UMLAD| 00002300: 45 4E 00 0E 2B 5C 1C 20 53 54 59 58 4B 4F 00 2A |EN..+\. STYXKO.*| 00002310: 2B 66 1C 20 53 54 41 58 4B 31 2B 31 3B 4D 53 42 |+f. STAXK1+1;MSB| 00002320: 20 58 31 20 4D 45 52 4B 45 4E 00 46 2B 70 1C 20 | X1 MERKEN.F+p. | 00002330: 4C 44 41 43 54 2B 31 3B 4D 53 42 20 58 30 20 55 |LDACT+1;MSB X0 U| 00002340: 4D 4C 41 44 45 4E 00 54 2B 7A 1C 20 53 54 41 58 |MLADEN.T+z. STAX| 00002350: 4B 4F 2B 31 00 6F 2B 84 1C 20 4A 53 52 43 4F 4D |KO+1.o+.. JSRCOM| 00002360: 42 59 54 3B 4D 4F 44 55 53 20 48 4F 4C 45 4E 00 |BYT;MODUS HOLEN.| 00002370: 87 2B 8E 1C 20 53 54 58 4D 4F 44 45 3B 55 4E 44 |.+.. STXMODE;UND| 00002380: 20 4D 45 52 4B 45 4E 00 8D 2B 98 1C 3B 00 A6 2B | MERKEN..+..;..+| 00002390: A2 1C 3B 2D 2D 2D 20 45 49 4E 53 50 52 55 4E 47 |..;--- EINSPRUNG| 000023A0: 20 32 20 2D 2D 2D 00 AC 2B AC 1C 3B 00 BF 2B B6 | 2 ---..+..;..+.| 000023B0: 1C 53 45 54 50 41 52 20 4C 44 59 23 24 30 31 00 |.SETPAR LDY#$01.| 000023C0: D9 2B C0 1C 20 53 54 59 49 58 3B 49 4E 4B 52 45 |.+.. STYIX;INKRE| 000023D0: 4D 45 4E 54 45 20 55 4E 44 00 FB 2B CA 1C 20 53 |MENTE UND..+.. S| 000023E0: 54 59 49 59 3B 5A 41 45 48 4C 45 52 20 49 4E 49 |TYIY;ZAEHLER INI| 000023F0: 54 49 41 4C 49 53 49 45 52 45 4E 00 06 2C D4 1C |TIALISIEREN..,..| 00002400: 20 53 54 59 43 54 00 0F 2C DE 1C 20 44 45 59 00 | STYCT..,.. DEY.| 00002410: 1C 2C E8 1C 20 53 54 59 43 54 2B 31 00 27 2C F2 |.,.. STYCT+1.',.| 00002420: 1C 20 53 54 59 41 58 00 32 2C FC 1C 20 53 54 59 |. STYAX.2,.. STY| 00002430: 41 59 00 3B 2C 06 1D 20 44 45 59 00 41 2C 10 1D |AY.;,.. DEY.A,..| 00002440: 3B 00 5B 2C 1A 1D 3B 2D 2D 2D 20 44 58 20 42 45 |;.[,..;--- DX BE| 00002450: 52 45 43 48 4E 45 4E 20 2D 2D 2D 00 61 2C 24 1D |RECHNEN ---.a,$.| 00002460: 3B 00 80 2C 2E 1D 42 45 47 49 4E 20 4C 44 41 58 |;..,..BEGIN LDAX| 00002470: 4B 31 2B 31 3B 49 53 54 20 58 31 3E 3D 58 30 3F |K1+1;IST X1>=X0?| 00002480: 00 92 2C 38 1D 20 43 4D 50 58 4B 4F 2B 31 3B 4D |..,8. CMPXKO+1;M| 00002490: 53 42 00 AD 2C 42 1D 20 42 43 43 44 52 41 57 30 |SB..,B. BCCDRAW0| 000024A0: 31 3B 4E 45 49 4E 2C 53 50 52 55 4E 47 00 C9 2C |1;NEIN,SPRUNG..,| 000024B0: 4C 1D 20 42 4E 45 44 52 41 57 30 32 3B 58 31 3E |L. BNEDRAW02;X1>| 000024C0: 58 30 2C 53 50 52 55 4E 47 00 EE 2C 56 1D 20 4C |X0,SPRUNG..,V. L| 000024D0: 44 41 58 4B 31 3B 42 45 49 44 45 20 47 4C 45 49 |DAXK1;BEIDE GLEI| 000024E0: 43 48 2C 4C 53 42 20 50 52 55 45 46 45 4E 00 FA |CH,LSB PRUEFEN..| 000024F0: 2C 60 1D 20 43 4D 50 58 4B 4F 00 13 2D 6A 1D 20 |,`. CMPXKO..-j. | 00002500: 42 43 53 44 52 41 57 30 32 3B 4A 41 2C 53 50 52 |BCSDRAW02;JA,SPR| 00002510: 55 4E 47 00 2B 2D 74 1D 44 52 41 57 30 31 20 53 |UNG.+-t.DRAW01 S| 00002520: 45 43 3B 44 58 3D 58 30 2D 58 31 00 37 2D 7E 1D |EC;DX=X0-X1.7-~.| 00002530: 20 4C 44 41 58 4B 4F 00 43 2D 88 1D 20 53 42 43 | LDAXKO.C-.. SBC| 00002540: 58 4B 31 00 4E 2D 92 1D 20 53 54 41 44 58 00 5C |XK1.N-.. STADX.\| 00002550: 2D 9C 1D 20 4C 44 41 58 4B 4F 2B 31 00 6A 2D A6 |-.. LDAXKO+1.j-.| 00002560: 1D 20 53 42 43 58 4B 31 2B 31 00 77 2D B0 1D 20 |. SBCXK1+1.w-.. | 00002570: 53 54 41 44 58 2B 31 00 8C 2D BA 1D 20 53 54 59 |STADX+1..-.. STY| 00002580: 49 58 3B 49 58 20 49 53 54 20 2D 31 00 9B 2D C4 |IX;IX IST -1..-.| 00002590: 1D 20 4A 4D 50 44 52 41 57 30 33 00 B3 2D CE 1D |. JMPDRAW03..-..| 000025A0: 44 52 41 57 30 32 20 53 45 43 3B 44 58 3D 58 31 |DRAW02 SEC;DX=X1| 000025B0: 2D 58 30 00 BF 2D D8 1D 20 4C 44 41 58 4B 31 00 |-X0..-.. LDAXK1.| 000025C0: CB 2D E2 1D 20 53 42 43 58 4B 4F 00 D6 2D EC 1D |.-.. SBCXKO..-..| 000025D0: 20 53 54 41 44 58 00 E4 2D F6 1D 20 4C 44 41 58 | STADX..-.. LDAX| 000025E0: 4B 31 2B 31 00 F2 2D 00 1E 20 53 42 43 58 4B 4F |K1+1..-.. SBCXKO| 000025F0: 2B 31 00 FF 2D 0A 1E 20 53 54 41 44 58 2B 31 00 |+1..-.. STADX+1.| 00002600: 05 2E 14 1E 3B 00 23 2E 1E 1E 3B 2D 2D 2D 20 42 |....;.#...;--- B| 00002610: 45 52 45 43 48 4E 45 4E 20 56 4F 4E 20 44 59 20 |ERECHNEN VON DY | 00002620: 2D 2D 2D 00 29 2E 28 1E 3B 00 47 2E 32 1E 44 52 |---.).(.;.G.2.DR| 00002630: 41 57 30 33 20 4C 44 41 59 4B 31 3B 49 53 54 20 |AW03 LDAYK1;IST | 00002640: 59 31 3E 3D 59 30 3F 00 53 2E 3C 1E 20 43 4D 50 |Y1>=Y0?.S.<. CMP| 00002650: 59 4B 4F 00 6C 2E 46 1E 20 42 43 53 44 52 41 57 |YKO.l.F. BCSDRAW| 00002660: 30 34 3B 4A 41 2C 53 50 52 55 4E 47 00 72 2E 50 |04;JA,SPRUNG.r.P| 00002670: 1E 3B 00 8A 2E 5A 1E 20 53 45 43 3B 53 4F 4E 53 |.;...Z. SEC;SONS| 00002680: 54 20 44 59 3D 59 30 2D 59 31 00 96 2E 64 1E 20 |T DY=Y0-Y1...d. | 00002690: 4C 44 41 59 4B 4F 00 A2 2E 6E 1E 20 53 42 43 59 |LDAYKO...n. SBCY| 000026A0: 4B 31 00 AD 2E 78 1E 20 53 54 41 44 59 00 C2 2E |K1...x. STADY...| 000026B0: 82 1E 20 53 54 59 49 59 3B 49 59 20 49 53 54 20 |.. STYIY;IY IST | 000026C0: 2D 31 00 D1 2E 8C 1E 20 4A 4D 50 44 52 41 57 30 |-1..... JMPDRAW0| 000026D0: 35 00 EC 2E 96 1E 44 52 41 57 30 34 20 53 42 43 |5.....DRAW04 SBC| 000026E0: 59 4B 4F 3B 44 59 3D 59 31 2D 59 30 00 F7 2E A0 |YKO;DY=Y1-Y0....| 000026F0: 1E 20 53 54 41 44 59 00 FD 2E AA 1E 3B 00 17 2F |. STADY.....;../| 00002700: B4 1E 44 52 41 57 30 35 20 4C 44 41 44 58 2B 31 |..DRAW05 LDADX+1| 00002710: 3B 44 58 3C 44 59 3F 00 32 2F BE 1E 20 42 4E 45 |;DX<DY?.2/.. BNE| 00002720: 44 52 41 57 30 37 3B 4E 45 49 4E 2C 53 50 52 55 |DRAW07;NEIN,SPRU| 00002730: 4E 47 00 49 2F C8 1E 20 4C 44 41 44 58 3B 4C 53 |NG.I/.. LDADX;LS| 00002740: 42 20 50 52 55 45 46 45 4E 00 54 2F D2 1E 20 43 |B PRUEFEN.T/.. C| 00002750: 4D 50 44 59 00 71 2F DC 1E 20 42 43 53 44 52 41 |MPDY.q/.. BCSDRA| 00002760: 57 30 37 3B 44 58 3E 3D 44 59 2C 53 50 52 55 4E |W07;DX>=DY,SPRUN| 00002770: 47 00 8C 2F E6 1E 20 4C 44 58 44 59 3B 41 43 48 |G../.. LDXDY;ACH| 00002780: 53 45 4E 20 54 41 55 53 43 48 45 4E 00 A2 2F F0 |SEN TAUSCHEN../.| 00002790: 1E 20 53 54 41 44 59 3B 44 58 20 4E 41 43 48 20 |. STADY;DX NACH | 000027A0: 44 59 00 B8 2F FA 1E 20 53 54 58 44 58 3B 44 59 |DY../.. STXDX;DY| 000027B0: 20 4E 41 43 48 20 44 58 00 C9 2F 04 1F 20 4C 44 | NACH DX../.. LD| 000027C0: 41 49 58 3B 41 59 3D 49 58 00 D4 2F 0E 1F 20 53 |AIX;AY=IX../.. S| 000027D0: 54 41 41 59 00 E5 2F 18 1F 20 4C 44 41 49 59 3B |TAAY../.. LDAIY;| 000027E0: 41 58 3D 49 59 00 F0 2F 22 1F 20 53 54 41 41 58 |AX=IY../". STAAX| 000027F0: 00 F9 2F 2C 1F 20 49 4E 59 00 09 30 36 1F 20 53 |../,. INY..06. S| 00002800: 54 59 49 58 3B 49 58 3D 30 00 19 30 40 1F 20 53 |TYIX;IX=0..0@. S| 00002810: 54 59 49 59 3B 49 59 3D 30 00 1F 30 4A 1F 3B 00 |TYIY;IY=0..0J.;.| 00002820: 3A 30 54 1F 44 52 41 57 30 37 20 4C 44 41 44 58 |:0T.DRAW07 LDADX| 00002830: 2B 31 3B 4F 46 3D 44 58 2F 32 00 43 30 5E 1F 20 |+1;OF=DX/2.C0^. | 00002840: 4C 53 52 00 5B 30 68 1F 20 53 54 41 4F 46 2B 31 |LSR.[0h. STAOF+1| 00002850: 3B 49 53 54 20 41 4C 53 4F 20 30 00 66 30 72 1F |;IST ALSO 0.f0r.| 00002860: 20 4C 44 41 44 58 00 6F 30 7C 1F 20 52 4F 52 00 | LDADX.o0|. ROR.| 00002870: 7A 30 86 1F 20 53 54 41 4F 46 00 98 30 90 1F 20 |z0.. STAOF..0.. | 00002880: 4A 4D 50 50 4C 4F 54 49 54 3B 31 2E 50 55 4E 4B |JMPPLOTIT;1.PUNK| 00002890: 54 20 53 45 54 5A 45 4E 00 9E 30 9A 1F 3B 00 B9 |T SETZEN..0..;..| 000028A0: 30 A4 1F 3B 2D 2D 2D 20 41 50 50 52 4F 58 49 4D |0..;--- APPROXIM| 000028B0: 41 54 49 4F 4E 20 2D 2D 2D 00 BF 30 AE 1F 3B 00 |ATION ---..0..;.| 000028C0: DB 30 B8 1F 44 52 57 4C 4F 50 20 4C 44 41 49 58 |.0..DRWLOP LDAIX| 000028D0: 3B 49 53 54 20 49 58 3D 2D 31 3F 00 F4 30 C2 1F |;IST IX=-1?..0..| 000028E0: 20 42 4D 49 44 52 41 57 30 38 3B 4A 41 2C 53 50 | BMIDRAW08;JA,SP| 000028F0: 52 55 4E 47 00 06 31 CC 1F 20 43 4C 43 3B 58 30 |RUNG..1.. CLC;X0| 00002900: 3D 58 30 2B 49 58 00 12 31 D6 1F 20 41 44 43 58 |=X0+IX..1.. ADCX| 00002910: 4B 4F 00 1E 31 E0 1F 20 53 54 41 58 4B 4F 00 2C |KO..1.. STAXKO.,| 00002920: 31 EA 1F 20 4C 44 41 58 4B 4F 2B 31 00 39 31 F4 |1.. LDAXKO+1.91.| 00002930: 1F 20 41 44 43 23 24 30 30 00 47 31 FE 1F 20 53 |. ADC#$00.G1.. S| 00002940: 54 41 58 4B 4F 2B 31 00 56 31 08 20 20 4A 4D 50 |TAXKO+1.V1. JMP| 00002950: 44 52 41 57 31 31 00 6E 31 12 20 44 52 41 57 30 |DRAW11.n1. DRAW0| 00002960: 38 20 53 45 43 3B 58 30 3D 58 30 2D 49 58 00 7A |8 SEC;X0=X0-IX.z| 00002970: 31 1C 20 20 4C 44 41 58 4B 4F 00 87 31 26 20 20 |1. LDAXKO..1& | 00002980: 53 42 43 23 24 30 31 00 93 31 30 20 20 53 54 41 |SBC#$01..10 STA| 00002990: 58 4B 4F 00 A1 31 3A 20 20 4C 44 41 58 4B 4F 2B |XKO..1: LDAXKO+| 000029A0: 31 00 AE 31 44 20 20 53 42 43 23 24 30 30 00 BC |1..1D SBC#$00..| 000029B0: 31 4E 20 20 53 54 41 58 4B 4F 2B 31 00 D4 31 58 |1N STAXKO+1..1X| 000029C0: 20 44 52 41 57 31 31 20 43 4C 43 3B 59 30 3D 59 | DRAW11 CLC;Y0=Y| 000029D0: 30 2B 41 58 00 E0 31 62 20 20 4C 44 41 59 4B 4F |0+AX..1b LDAYKO| 000029E0: 00 EB 31 6C 20 20 41 44 43 41 58 00 F7 31 76 20 |..1l ADCAX..1v | 000029F0: 20 53 54 41 59 4B 4F 00 09 32 80 20 20 43 4C 43 | STAYKO..2. CLC| 00002A00: 3B 4F 46 3D 4F 46 2B 44 59 00 14 32 8A 20 20 4C |;OF=OF+DY..2. L| 00002A10: 44 41 4F 46 00 1F 32 94 20 20 41 44 43 44 59 00 |DAOF..2. ADCDY.| 00002A20: 2A 32 9E 20 20 53 54 41 4F 46 00 37 32 A8 20 20 |*2. STAOF.72. | 00002A30: 4C 44 41 4F 46 2B 31 00 44 32 B2 20 20 41 44 43 |LDAOF+1.D2. ADC| 00002A40: 23 24 30 30 00 51 32 BC 20 20 53 54 41 4F 46 2B |#$00.Q2. STAOF+| 00002A50: 31 00 64 32 C6 20 20 49 4E 43 43 54 3B 43 54 3D |1.d2. INCCT;CT=| 00002A60: 43 54 2B 31 00 73 32 D0 20 20 42 4E 45 44 52 41 |CT+1.s2. BNEDRA| 00002A70: 57 30 36 00 80 32 DA 20 20 49 4E 43 43 54 2B 31 |W06..2. INCCT+1| 00002A80: 00 9B 32 E4 20 44 52 41 57 30 36 20 4C 44 41 4F |..2. DRAW06 LDAO| 00002A90: 46 2B 31 3B 4F 46 3C 3D 44 58 3F 00 A8 32 EE 20 |F+1;OF<=DX?..2. | 00002AA0: 20 43 4D 50 44 58 2B 31 00 C3 32 F8 20 20 42 43 | CMPDX+1..2. BC| 00002AB0: 43 50 4C 4F 54 49 54 3B 4A 41 2C 5A 45 49 43 48 |CPLOTIT;JA,ZEICH| 00002AC0: 4E 45 4E 00 E2 32 02 21 20 42 4E 45 44 52 41 57 |NEN..2.! BNEDRAW| 00002AD0: 30 39 3B 47 52 4F 45 53 53 45 52 2C 53 50 52 55 |09;GROESSER,SPRU| 00002AE0: 4E 47 00 ED 32 0C 21 20 4C 44 41 44 58 00 F8 32 |NG..2.! LDADX..2| 00002AF0: 16 21 20 43 4D 50 4F 46 00 13 33 20 21 20 42 43 |.! CMPOF..3 ! BC| 00002B00: 53 50 4C 4F 54 49 54 3B 4A 41 2C 5A 45 49 43 48 |SPLOTIT;JA,ZEICH| 00002B10: 4E 45 4E 00 2B 33 2A 21 44 52 41 57 30 39 20 53 |NEN.+3*!DRAW09 S| 00002B20: 45 43 3B 4F 46 3D 4F 46 2D 44 58 00 36 33 34 21 |EC;OF=OF-DX.634!| 00002B30: 20 4C 44 41 4F 46 00 41 33 3E 21 20 53 42 43 44 | LDAOF.A3>! SBCD| 00002B40: 58 00 4C 33 48 21 20 53 54 41 4F 46 00 59 33 52 |X.L3H! STAOF.Y3R| 00002B50: 21 20 4C 44 41 4F 46 2B 31 00 66 33 5C 21 20 53 |! LDAOF+1.f3\! S| 00002B60: 42 43 44 58 2B 31 00 73 33 66 21 20 53 54 41 4F |BCDX+1.s3f! STAO| 00002B70: 46 2B 31 00 89 33 70 21 20 4C 44 41 41 59 3B 49 |F+1..3p! LDAAY;I| 00002B80: 53 54 20 41 59 3D 2D 31 3F 00 A2 33 7A 21 20 42 |ST AY=-1?..3z! B| 00002B90: 4D 49 44 52 41 57 31 30 3B 4A 41 2C 53 50 52 55 |MIDRAW10;JA,SPRU| 00002BA0: 4E 47 00 B4 33 84 21 20 43 4C 43 3B 58 30 3D 58 |NG..3.! CLC;X0=X| 00002BB0: 30 2B 41 59 00 C0 33 8E 21 20 41 44 43 58 4B 4F |0+AY..3.! ADCXKO| 00002BC0: 00 CC 33 98 21 20 53 54 41 58 4B 4F 00 DA 33 A2 |..3.! STAXKO..3.| 00002BD0: 21 20 4C 44 41 58 4B 4F 2B 31 00 E7 33 AC 21 20 |! LDAXKO+1..3.! | 00002BE0: 41 44 43 23 24 30 30 00 F5 33 B6 21 20 53 54 41 |ADC#$00..3.! STA| 00002BF0: 58 4B 4F 2B 31 00 04 34 C0 21 20 4A 4D 50 44 52 |XKO+1..4.! JMPDR| 00002C00: 41 57 31 32 00 1C 34 CA 21 44 52 41 57 31 30 20 |AW12..4.!DRAW10 | 00002C10: 53 45 43 3B 58 30 3D 58 30 2D 41 59 00 28 34 D4 |SEC;X0=X0-AY.(4.| 00002C20: 21 20 4C 44 41 58 4B 4F 00 35 34 DE 21 20 53 42 |! LDAXKO.54.! SB| 00002C30: 43 23 24 30 31 00 41 34 E8 21 20 53 54 41 58 4B |C#$01.A4.! STAXK| 00002C40: 4F 00 4F 34 F2 21 20 4C 44 41 58 4B 4F 2B 31 00 |O.O4.! LDAXKO+1.| 00002C50: 5C 34 FC 21 20 53 42 43 23 24 30 30 00 6A 34 06 |\4.! SBC#$00.j4.| 00002C60: 22 20 53 54 41 58 4B 4F 2B 31 00 82 34 10 22 44 |" STAXKO+1..4."D| 00002C70: 52 41 57 31 32 20 43 4C 43 3B 59 30 3D 59 30 2B |RAW12 CLC;Y0=Y0+| 00002C80: 49 59 00 8E 34 1A 22 20 4C 44 41 59 4B 4F 00 99 |IY..4." LDAYKO..| 00002C90: 34 24 22 20 41 44 43 49 59 00 A5 34 2E 22 20 53 |4$" ADCIY..4." S| 00002CA0: 54 41 59 4B 4F 00 AB 34 38 22 3B 00 CF 34 42 22 |TAYKO..48";..4B"| 00002CB0: 3B 2D 2D 2D 20 5A 45 49 43 48 4E 45 4E 2C 53 43 |;--- ZEICHNEN,SC| 00002CC0: 48 4C 45 49 46 45 4E 45 4E 44 45 20 2D 2D 2D 00 |HLEIFENENDE ---.| 00002CD0: D5 34 4C 22 3B 00 FD 34 56 22 50 4C 4F 54 49 54 |.4L";..4V"PLOTIT| 00002CE0: 20 4A 53 52 4F 4B 3B 45 49 4E 53 50 52 55 4E 47 | JSROK;EINSPRUNG| 00002CF0: 20 33 20 49 4E 20 4D 4F 44 55 4C 20 36 00 12 35 | 3 IN MODUL 6..5| 00002D00: 60 22 20 4C 44 41 43 54 2B 31 3B 43 54 3C 3D 44 |`" LDACT+1;CT<=D| 00002D10: 58 3F 00 1F 35 6A 22 20 43 4D 50 44 58 2B 31 00 |X?..5j" CMPDX+1.| 00002D20: 3B 35 74 22 20 42 43 43 4E 45 58 50 4E 54 3B 43 |;5t" BCCNEXPNT;C| 00002D30: 54 3C 44 58 2C 53 50 52 55 4E 47 00 46 35 7E 22 |T<DX,SPRUNG.F5~"| 00002D40: 20 4C 44 41 44 58 00 51 35 88 22 20 43 4D 50 43 | LDADX.Q5." CMPC| 00002D50: 54 00 6E 35 92 22 20 42 43 53 4E 45 58 50 4E 54 |T.n5." BCSNEXPNT| 00002D60: 3B 43 54 3C 3D 44 58 2C 53 50 52 55 4E 47 00 88 |;CT<=DX,SPRUNG..| 00002D70: 35 9C 22 20 52 54 53 3B 4C 49 4E 49 45 20 49 53 |5." RTS;LINIE IS| 00002D80: 54 20 46 45 52 54 49 47 00 8E 35 A6 22 3B 00 B3 |T FERTIG..5.";..| 00002D90: 35 B0 22 4E 45 58 50 4E 54 20 4A 4D 50 44 52 57 |5."NEXPNT JMPDRW| 00002DA0: 4C 4F 50 3B 4E 41 45 43 48 53 54 45 52 20 50 55 |LOP;NAECHSTER PU| 00002DB0: 4E 4B 54 00 B9 35 BA 22 3B 00 D6 35 C4 22 3B 2D |NKT..5.";..5.";-| 00002DC0: 2D 2D 20 50 41 52 41 4D 45 54 45 52 20 48 4F 4C |-- PARAMETER HOL| 00002DD0: 45 4E 20 2D 2D 2D 00 DC 35 CE 22 3B 00 03 36 D8 |EN ---..5.";..6.| 00002DE0: 22 47 43 4F 4F 52 44 20 4A 53 52 43 48 4B 43 4F |"GCOORD JSRCHKCO| 00002DF0: 4D 3B 41 55 46 20 4B 4F 4D 4D 41 20 50 52 55 45 |M;AUF KOMMA PRUE| 00002E00: 46 45 4E 00 20 36 E2 22 20 4A 53 52 47 45 54 4E |FEN. 6." JSRGETN| 00002E10: 55 4D 3B 58 20 55 4E 44 20 59 20 4C 45 53 45 4E |UM;X UND Y LESEN| 00002E20: 00 38 36 EC 22 20 43 50 58 23 24 43 38 3B 49 53 |.86." CPX#$C8;IS| 00002E30: 54 20 59 3E 32 30 30 3F 00 55 36 F6 22 20 42 43 |T Y>200?.U6." BC| 00002E40: 53 46 49 4E 49 53 48 3B 59 3E 3D 32 30 30 2C 53 |SFINISH;Y>=200,S| 00002E50: 50 52 55 4E 47 00 6E 36 00 23 20 4C 44 41 58 4B |PRUNG.n6.# LDAXK| 00002E60: 4F 2B 31 3B 49 53 54 20 58 3E 33 32 30 3F 00 85 |O+1;IST X>320?..| 00002E70: 36 0A 23 20 43 4D 50 23 24 30 31 3B 4D 53 42 20 |6.# CMP#$01;MSB | 00002E80: 56 4F 4E 20 58 00 9E 36 14 23 20 42 43 43 46 49 |VON X..6.# BCCFI| 00002E90: 4E 49 53 3B 4D 53 42 20 49 53 54 20 3C 31 00 B8 |NIS;MSB IST <1..| 00002EA0: 36 1E 23 20 42 4E 45 46 49 4E 49 53 48 3B 4D 53 |6.# BNEFINISH;MS| 00002EB0: 42 20 49 53 54 20 3E 31 00 CE 36 28 23 20 4C 44 |B IST >1..6(# LD| 00002EC0: 59 58 4B 4F 3B 4C 53 42 20 56 4F 4E 20 58 00 E7 |YXKO;LSB VON X..| 00002ED0: 36 32 23 20 43 50 59 23 24 34 30 3B 4C 53 42 20 |62# CPY#$40;LSB | 00002EE0: 56 4F 4E 20 33 32 30 00 23 37 3C 23 46 49 4E 49 |VON 320.#7<#FINI| 00002EF0: 53 48 20 52 54 53 3B 57 45 4E 4E 20 43 41 52 52 |SH RTS;WENN CARR| 00002F00: 59 3D 31 2C 4E 41 43 48 20 52 55 45 43 4B 4B 45 |Y=1,NACH RUECKKE| 00002F10: 48 52 20 41 55 53 53 54 49 45 47 20 42 45 49 20 |HR AUSSTIEG BEI | 00002F20: 49 4C 4C 00 34 37 46 23 46 49 4E 49 53 20 4C 44 |ILL.47F#FINIS LD| 00002F30: 59 58 4B 4F 00 4B 37 50 23 20 52 54 53 3B 59 3D |YXKO.K7P# RTS;Y=| 00002F40: 58 4B 4F 2C 41 3D 58 4B 4F 2B 31 00 72 37 10 27 |XKO,A=XKO+1.r7.'| 00002F50: 3B 2A 2A 2A 2A 20 4D 4F 44 55 4C 20 39 3A 4B 52 |;**** MODUL 9:KR| 00002F60: 45 49 53 45 20 5A 45 49 43 48 4E 45 4E 20 2A 2A |EISE ZEICHNEN **| 00002F70: 2A 2A 00 78 37 1A 27 3B 00 9F 37 24 27 3B 5A 45 |**.x7.';..7$';ZE| 00002F80: 49 43 48 4E 45 54 20 4F 44 45 52 20 4C 4F 45 53 |ICHNET ODER LOES| 00002F90: 43 48 54 20 45 49 4E 45 4E 20 4B 52 45 49 53 00 |CHT EINEN KREIS.| 00002FA0: C5 37 2E 27 3B 55 4D 20 44 45 4E 20 4D 49 54 54 |.7.';UM DEN MITT| 00002FB0: 45 4C 50 55 4E 4B 54 20 58 4D 2C 59 4D 20 55 4E |ELPUNKT XM,YM UN| 00002FC0: 44 20 4D 49 54 00 EA 37 38 27 3B 44 45 4D 20 52 |D MIT..78';DEM R| 00002FD0: 41 44 49 55 53 20 52 2E 20 41 4C 4C 45 20 45 49 |ADIUS R. ALLE EI| 00002FE0: 4E 47 41 42 45 4E 20 56 4F 4E 00 10 38 42 27 3B |NGABEN VON..8B';| 00002FF0: 30 20 42 49 53 20 4D 41 58 49 4D 41 4C 20 33 32 |0 BIS MAXIMAL 32| 00003000: 37 36 37 20 28 3F 29 20 45 52 4C 41 55 42 54 2E |767 (?) ERLAUBT.| 00003010: 00 36 38 4C 27 3B 42 45 49 4D 20 45 52 53 54 45 |.68L';BEIM ERSTE| 00003020: 4E 20 45 49 4E 53 50 52 55 4E 47 53 50 55 4E 4B |N EINSPRUNGSPUNK| 00003030: 54 20 57 45 52 2D 00 59 38 56 27 3B 44 45 4E 20 |T WER-.Y8V';DEN | 00003040: 44 49 45 20 50 41 52 41 4D 45 54 45 52 20 47 45 |DIE PARAMETER GE| 00003050: 4C 45 53 45 4E 20 55 4E 44 00 7F 38 60 27 3B 47 |LESEN UND..8`';G| 00003060: 45 50 52 55 45 46 54 2E 20 42 45 49 4D 20 5A 57 |EPRUEFT. BEIM ZW| 00003070: 45 49 54 45 4E 20 45 49 4E 53 50 52 55 4E 47 00 |EITEN EINSPRUNG.| 00003080: A3 38 6A 27 3B 45 52 57 41 52 54 45 54 20 50 52 |.8j';ERWARTET PR| 00003090: 4F 47 52 41 4D 4D 20 50 41 52 41 4D 45 54 45 52 |OGRAMM PARAMETER| 000030A0: 20 49 4E 00 C6 38 74 27 3B 44 45 4E 20 52 49 43 | IN..8t';DEN RIC| 000030B0: 48 54 49 47 45 4E 20 53 50 45 49 43 48 45 52 53 |HTIGEN SPEICHERS| 000030C0: 54 45 4C 4C 45 4E 00 EA 38 7E 27 3B 58 4D 2C 59 |TELLEN..8~';XM,Y| 000030D0: 4D 2C 52 20 55 4E 44 20 4D 4F 44 45 2E 20 55 45 |M,R UND MODE. UE| 000030E0: 42 45 52 47 41 42 45 20 41 4E 00 11 39 88 27 3B |BERGABE AN..9.';| 000030F0: 4D 4F 44 55 4C 20 36 20 4D 49 54 54 45 4C 53 20 |MODUL 6 MITTELS | 00003100: 58 4B 4F 2C 59 4B 4F 20 55 4E 44 20 4D 4F 44 45 |XKO,YKO UND MODE| 00003110: 2E 00 17 39 92 27 3B 00 3F 39 9C 27 45 52 52 20 |...9.';.?9.'ERR | 00003120: 52 54 53 3B 52 55 45 43 4B 53 50 52 55 4E 47 20 |RTS;RUECKSPRUNG | 00003130: 42 45 49 20 46 45 48 4C 45 49 4E 47 41 42 45 00 |BEI FEHLEINGABE.| 00003140: 45 39 A6 27 3B 00 72 39 B0 27 3B 2D 2D 2D 20 50 |E9.';.r9.';--- P| 00003150: 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E 2C 50 |ARAMETER HOLEN,P| 00003160: 52 55 45 46 45 4E 2C 41 42 4C 45 47 45 4E 20 2D |RUEFEN,ABLEGEN -| 00003170: 2D 2D 00 78 39 BA 27 3B 00 99 39 C4 27 48 4F 4C |--.x9.';..9.'HOL| 00003180: 45 20 4A 53 52 43 48 4B 43 4F 4D 3B 4B 4F 4D 4D |E JSRCHKCOM;KOMM| 00003190: 41 20 50 52 55 45 46 45 4E 00 B1 39 CE 27 20 4A |A PRUEFEN..9.' J| 000031A0: 53 52 46 52 4D 4E 55 4D 3B 58 4D 20 4C 45 53 45 |SRFRMNUM;XM LESE| 000031B0: 4E 00 C0 39 D8 27 20 4A 53 52 47 45 54 41 44 52 |N..9.' JSRGETADR| 000031C0: 00 DA 39 E2 27 20 4C 44 41 58 4B 4F 2B 31 3B 4D |..9.' LDAXKO+1;M| 000031D0: 53 42 20 50 52 55 45 46 45 4E 00 F6 39 EC 27 20 |SB PRUEFEN..9.' | 000031E0: 42 4D 49 45 52 52 3B 5A 55 20 47 52 4F 53 53 2C |BMIERR;ZU GROSS,| 000031F0: 53 50 52 55 4E 47 00 0A 3A F6 27 20 53 54 41 58 |SPRUNG..:.' STAX| 00003200: 4D 2B 31 3B 4D 45 52 4B 45 4E 00 1A 3A 00 28 20 |M+1;MERKEN..:.( | 00003210: 4C 44 41 58 4B 4F 3B 4C 53 42 00 2C 3A 0A 28 20 |LDAXKO;LSB.,:.( | 00003220: 53 54 41 58 4D 3B 4D 45 52 4B 45 4E 00 32 3A 14 |STAXM;MERKEN.2:.| 00003230: 28 3B 00 51 3A 1E 28 20 4A 53 52 43 48 4B 43 4F |(;.Q:.( JSRCHKCO| 00003240: 4D 3B 4E 41 45 43 48 53 54 45 53 20 4B 4F 4D 4D |M;NAECHSTES KOMM| 00003250: 41 00 69 3A 28 28 20 4A 53 52 46 52 4D 4E 55 4D |A.i:(( JSRFRMNUM| 00003260: 3B 59 4D 20 4C 45 53 45 4E 00 78 3A 32 28 20 4A |;YM LESEN.x:2( J| 00003270: 53 52 47 45 54 41 44 52 00 92 3A 3C 28 20 4C 44 |SRGETADR..:<( LD| 00003280: 41 58 4B 4F 2B 31 3B 4D 53 42 20 50 52 55 45 46 |AXKO+1;MSB PRUEF| 00003290: 45 4E 00 AA 3A 46 28 20 42 4D 49 45 52 52 3B 46 |EN..:F( BMIERR;F| 000032A0: 45 48 4C 45 49 4E 47 41 42 45 00 BE 3A 50 28 20 |EHLEINGABE..:P( | 000032B0: 53 54 41 59 4D 2B 31 3B 4D 45 52 4B 45 4E 00 CE |STAYM+1;MERKEN..| 000032C0: 3A 5A 28 20 4C 44 41 58 4B 4F 3B 4C 53 42 00 E0 |:Z( LDAXKO;LSB..| 000032D0: 3A 64 28 20 53 54 41 59 4D 3B 4D 45 52 4B 45 4E |:d( STAYM;MERKEN| 000032E0: 00 E6 3A 6E 28 3B 00 02 3B 78 28 20 4A 53 52 43 |..:n(;..;x( JSRC| 000032F0: 48 4B 43 4F 4D 3B 4B 4F 4D 4D 41 20 54 45 53 54 |HKCOM;KOMMA TEST| 00003300: 45 4E 00 1E 3B 82 28 20 4A 53 52 46 52 4D 4E 55 |EN..;.( JSRFRMNU| 00003310: 4D 3B 52 41 44 49 55 53 20 4C 45 53 45 4E 00 2D |M;RADIUS LESEN.-| 00003320: 3B 8C 28 20 4A 53 52 47 45 54 41 44 52 00 47 3B |;.( JSRGETADR.G;| 00003330: 96 28 20 4C 44 41 58 4B 4F 2B 31 3B 4D 53 42 20 |.( LDAXKO+1;MSB | 00003340: 50 52 55 45 46 45 4E 00 63 3B A0 28 20 42 4D 49 |PRUEFEN.c;.( BMI| 00003350: 45 52 52 3B 5A 55 20 47 52 4F 53 53 2C 53 50 52 |ERR;ZU GROSS,SPR| 00003360: 55 4E 47 00 78 3B AA 28 20 53 54 41 52 41 44 2B |UNG.x;.( STARAD+| 00003370: 31 3B 4D 45 52 4B 45 4E 00 88 3B B4 28 20 4C 44 |1;MERKEN..;.( LD| 00003380: 41 58 4B 4F 3B 4C 53 42 00 9B 3B BE 28 20 53 54 |AXKO;LSB..;.( ST| 00003390: 41 52 41 44 3B 4D 45 52 4B 45 4E 00 A1 3B C8 28 |ARAD;MERKEN..;.(| 000033A0: 3B 00 BC 3B D2 28 20 4A 53 52 43 4F 4D 42 59 54 |;..;.( JSRCOMBYT| 000033B0: 3B 4D 4F 44 55 53 20 48 4F 4C 45 4E 00 D4 3B DC |;MODUS HOLEN..;.| 000033C0: 28 20 53 54 58 4D 4F 44 45 3B 55 4E 44 20 4D 45 |( STXMODE;UND ME| 000033D0: 52 4B 45 4E 00 DA 3B E6 28 3B 00 FB 3B F0 28 3B |RKEN..;.(;..;.(;| 000033E0: 2D 2D 2D 20 41 4E 46 41 4E 47 53 57 45 52 54 45 |--- ANFANGSWERTE| 000033F0: 20 53 45 54 5A 45 4E 20 2D 2D 2D 00 01 3C FA 28 | SETZEN ---..<.(| 00003400: 3B 00 21 3C 04 29 4B 52 45 49 53 31 20 4C 44 41 |;.!<.)KREIS1 LDA| 00003410: 23 24 30 30 3B 56 41 52 49 41 42 4C 45 20 58 3D |#$00;VARIABLE X=| 00003420: 30 00 2D 3C 0E 29 20 53 54 41 58 4B 4F 00 3B 3C |0.-<.) STAXKO.;<| 00003430: 18 29 20 53 54 41 58 4B 4F 2B 31 00 54 3C 22 29 |.) STAXKO+1.T<")| 00003440: 20 4C 44 41 52 41 44 3B 56 41 52 49 41 42 4C 45 | LDARAD;VARIABLE| 00003450: 20 59 3D 52 00 61 3C 2C 29 20 53 54 41 48 45 4C | Y=R.a<,) STAHEL| 00003460: 50 00 6F 3C 36 29 20 4C 44 41 52 41 44 2B 31 00 |P.o<6) LDARAD+1.| 00003470: 7E 3C 40 29 20 53 54 41 48 45 4C 50 2B 31 00 9D |~<@) STAHELP+1..| 00003480: 3C 4A 29 20 53 45 43 3B 56 41 52 49 41 42 4C 45 |<J) SEC;VARIABLE| 00003490: 20 44 20 42 45 52 45 43 48 4E 45 4E 3A 00 AF 3C | D BERECHNEN:..<| 000034A0: 54 29 20 4C 44 41 52 41 44 3B 44 3D 52 2D 31 00 |T) LDARAD;D=R-1.| 000034B0: BC 3C 5E 29 20 53 42 43 23 24 30 31 00 C7 3C 68 |.<^) SBC#$01..<h| 000034C0: 29 20 53 54 41 43 54 00 D5 3C 72 29 20 4C 44 41 |) STACT..<r) LDA| 000034D0: 52 41 44 2B 31 00 E2 3C 7C 29 20 53 42 43 23 24 |RAD+1..<|) SBC#$| 000034E0: 30 30 00 EF 3C 86 29 20 53 54 41 43 54 2B 31 00 |00..<.) STACT+1.| 000034F0: F5 3C 90 29 3B 00 10 3D 9A 29 3B 2D 2D 2D 20 48 |.<.);..=.);--- H| 00003500: 41 55 50 54 53 43 48 4C 45 49 46 45 20 2D 2D 2D |AUPTSCHLEIFE ---| 00003510: 00 16 3D A4 29 3B 00 33 3D AE 29 4B 52 45 49 53 |..=.);.3=.)KREIS| 00003520: 4C 50 20 4C 44 41 43 54 2B 31 3B 49 53 54 20 44 |LP LDACT+1;IST D| 00003530: 3C 30 3F 00 4E 3D B8 29 20 42 50 4C 4B 52 45 49 |<0?.N=.) BPLKREI| 00003540: 53 32 3B 4E 45 49 4E 2C 53 50 52 55 4E 47 00 63 |S2;NEIN,SPRUNG.c| 00003550: 3D C2 29 20 53 45 43 3B 53 55 42 54 52 41 4B 54 |=.) SEC;SUBTRAKT| 00003560: 49 4F 4E 00 76 3D CC 29 20 4C 44 41 48 45 4C 50 |ION.v=.) LDAHELP| 00003570: 3B 59 3D 59 2D 31 00 83 3D D6 29 20 53 42 43 23 |;Y=Y-1..=.) SBC#| 00003580: 24 30 31 00 90 3D E0 29 20 53 54 41 48 45 4C 50 |$01..=.) STAHELP| 00003590: 00 9F 3D EA 29 20 4C 44 41 48 45 4C 50 2B 31 00 |..=.) LDAHELP+1.| 000035A0: AC 3D F4 29 20 53 42 43 23 24 30 30 00 BB 3D FE |.=.) SBC#$00..=.| 000035B0: 29 20 53 54 41 48 45 4C 50 2B 31 00 CF 3D 08 2A |) STAHELP+1..=.*| 000035C0: 20 43 4C 43 3B 41 44 44 49 54 49 4F 4E 45 4E 00 | CLC;ADDITIONEN.| 000035D0: E2 3D 12 2A 20 4C 44 41 43 54 3B 44 3D 44 2B 59 |.=.* LDACT;D=D+Y| 000035E0: 2B 59 00 EF 3D 1C 2A 20 41 44 43 48 45 4C 50 00 |+Y..=.* ADCHELP.| 000035F0: FA 3D 26 2A 20 53 54 41 43 54 00 07 3E 30 2A 20 |.=&* STACT..>0* | 00003600: 4C 44 41 43 54 2B 31 00 16 3E 3A 2A 20 41 44 43 |LDACT+1..>:* ADC| 00003610: 48 45 4C 50 2B 31 00 23 3E 44 2A 20 53 54 41 43 |HELP+1.#>D* STAC| 00003620: 54 2B 31 00 2C 3E 4E 2A 20 43 4C 43 00 37 3E 58 |T+1.,>N* CLC.7>X| 00003630: 2A 20 4C 44 41 43 54 00 44 3E 62 2A 20 41 44 43 |* LDACT.D>b* ADC| 00003640: 48 45 4C 50 00 4F 3E 6C 2A 20 53 54 41 43 54 00 |HELP.O>l* STACT.| 00003650: 5C 3E 76 2A 20 4C 44 41 43 54 2B 31 00 6B 3E 80 |\>v* LDACT+1.k>.| 00003660: 2A 20 41 44 43 48 45 4C 50 2B 31 00 78 3E 8A 2A |* ADCHELP+1.x>.*| 00003670: 20 53 54 41 43 54 2B 31 00 7E 3E 94 2A 3B 00 B9 | STACT+1.~>.*;..| 00003680: 3E 9E 2A 4B 52 45 49 53 32 20 4A 53 52 43 49 52 |>.*KREIS2 JSRCIR| 00003690: 43 4C 45 3B 55 50 20 5A 55 4D 20 50 52 55 45 46 |CLE;UP ZUM PRUEF| 000036A0: 45 4E 20 44 45 52 20 57 45 52 54 45 20 55 4E 44 |EN DER WERTE UND| 000036B0: 20 5A 45 49 43 48 4E 45 4E 00 BF 3E A8 2A 3B 00 | ZEICHNEN..>.*;.| 000036C0: D6 3E B2 2A 20 53 45 43 3B 53 55 42 54 52 41 4B |.>.* SEC;SUBTRAK| 000036D0: 54 49 4F 4E 45 4E 00 EB 3E BC 2A 20 4C 44 41 43 |TIONEN..>.* LDAC| 000036E0: 54 3B 44 3D 44 2D 58 2D 58 2D 31 00 F7 3E C6 2A |T;D=D-X-X-1..>.*| 000036F0: 20 53 42 43 58 4B 4F 00 02 3F D0 2A 20 53 54 41 | SBCXKO..?.* STA| 00003700: 43 54 00 0F 3F DA 2A 20 4C 44 41 43 54 2B 31 00 |CT..?.* LDACT+1.| 00003710: 1D 3F E4 2A 20 53 42 43 58 4B 4F 2B 31 00 2A 3F |.?.* SBCXKO+1.*?| 00003720: EE 2A 20 53 54 41 43 54 2B 31 00 33 3F F8 2A 20 |.* STACT+1.3?.* | 00003730: 53 45 43 00 3E 3F 02 2B 20 4C 44 41 43 54 00 4A |SEC.>?.+ LDACT.J| 00003740: 3F 0C 2B 20 53 42 43 58 4B 4F 00 55 3F 16 2B 20 |?.+ SBCXKO.U?.+ | 00003750: 53 54 41 43 54 00 62 3F 20 2B 20 4C 44 41 43 54 |STACT.b? + LDACT| 00003760: 2B 31 00 70 3F 2A 2B 20 53 42 43 58 4B 4F 2B 31 |+1.p?*+ SBCXKO+1| 00003770: 00 7D 3F 34 2B 20 53 54 41 43 54 2B 31 00 86 3F |.}?4+ STACT+1..?| 00003780: 3E 2B 20 53 45 43 00 91 3F 48 2B 20 4C 44 41 43 |>+ SEC..?H+ LDAC| 00003790: 54 00 9E 3F 52 2B 20 53 42 43 23 24 30 31 00 A9 |T..?R+ SBC#$01..| 000037A0: 3F 5C 2B 20 53 54 41 43 54 00 B6 3F 66 2B 20 4C |?\+ STACT..?f+ L| 000037B0: 44 41 43 54 2B 31 00 C3 3F 70 2B 20 53 42 43 23 |DACT+1..?p+ SBC#| 000037C0: 24 30 30 00 D0 3F 7A 2B 20 53 54 41 43 54 2B 31 |$00..?z+ STACT+1| 000037D0: 00 E8 3F 84 2B 20 43 4C 43 3B 41 44 44 49 54 49 |..?.+ CLC;ADDITI| 000037E0: 4F 4E 20 58 3D 58 2B 31 00 F4 3F 8E 2B 20 4C 44 |ON X=X+1..?.+ LD| 000037F0: 41 58 4B 4F 00 01 40 98 2B 20 41 44 43 23 24 30 |AXKO..@.+ ADC#$0| 00003800: 31 00 0D 40 A2 2B 20 53 54 41 58 4B 4F 00 1B 40 |1..@.+ STAXKO..@| 00003810: AC 2B 20 4C 44 41 58 4B 4F 2B 31 00 28 40 B6 2B |.+ LDAXKO+1.(@.+| 00003820: 20 41 44 43 23 24 30 30 00 36 40 C0 2B 20 53 54 | ADC#$00.6@.+ ST| 00003830: 41 58 4B 4F 2B 31 00 3C 40 CA 2B 3B 00 54 40 D4 |AXKO+1.<@.+;.T@.| 00003840: 2B 20 43 4D 50 48 45 4C 50 2B 31 3B 49 53 54 20 |+ CMPHELP+1;IST | 00003850: 58 3C 3D 59 00 6E 40 DE 2B 20 42 43 43 4B 52 45 |X<=Y.n@.+ BCCKRE| 00003860: 49 53 4C 50 3B 4A 41 2C 53 50 52 55 4E 47 00 8B |ISLP;JA,SPRUNG..| 00003870: 40 E8 2B 20 42 4E 45 45 4E 44 3B 58 3E 59 2C 4B |@.+ BNEEND;X>Y,K| 00003880: 52 45 49 53 20 46 45 52 54 49 47 00 98 40 F2 2B |REIS FERTIG..@.+| 00003890: 20 4C 44 41 48 45 4C 50 00 A4 40 FC 2B 20 43 4D | LDAHELP..@.+ CM| 000038A0: 50 58 4B 4F 00 BF 40 06 2C 20 42 43 53 53 43 48 |PXKO..@., BCSSCH| 000038B0: 4C 45 49 46 45 3B 4A 41 2C 53 50 52 55 4E 47 00 |LEIFE;JA,SPRUNG.| 000038C0: D8 40 10 2C 45 4E 44 20 52 54 53 3B 4B 52 45 49 |.@.,END RTS;KREI| 000038D0: 53 20 46 45 52 54 49 47 00 F0 40 1A 2C 53 43 48 |S FERTIG..@.,SCH| 000038E0: 4C 45 49 46 45 20 4A 4D 50 4B 52 45 49 53 4C 50 |LEIFE JMPKREISLP| 000038F0: 00 F6 40 24 2C 3B 00 1A 41 2E 2C 3B 2D 2D 2D 20 |..@$,;..A.,;--- | 00003900: 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 5A 45 |UNTERPROGRAMM ZE| 00003910: 49 43 48 4E 45 4E 20 2D 2D 2D 00 20 41 38 2C 3B |ICHNEN ---. A8,;| 00003920: 00 44 41 42 2C 3B 42 45 52 45 43 48 4E 45 54 20 |.DAB,;BERECHNET | 00003930: 44 49 45 20 4B 4F 4E 4B 52 45 54 45 4E 20 50 55 |DIE KONKRETEN PU| 00003940: 4E 4B 54 45 00 69 41 4C 2C 3B 44 55 52 43 48 20 |NKTE.iAL,;DURCH | 00003950: 53 59 4D 4D 45 54 52 49 45 4E 2C 20 50 52 55 45 |SYMMETRIEN, PRUE| 00003960: 46 54 20 4F 42 20 44 49 45 00 8F 41 56 2C 3B 53 |FT OB DIE..AV,;S| 00003970: 49 43 48 20 45 52 47 45 42 45 4E 44 45 4E 20 57 |ICH ERGEBENDEN W| 00003980: 45 52 54 45 20 46 55 45 52 20 58 20 55 4E 44 00 |ERTE FUER X UND.| 00003990: B2 41 60 2C 3B 59 20 4B 4C 45 49 4E 45 52 20 41 |.A`,;Y KLEINER A| 000039A0: 4C 53 20 30 20 53 49 4E 44 20 55 4E 44 20 4F 42 |LS 0 SIND UND OB| 000039B0: 20 59 00 D5 41 6A 2C 3B 47 52 4F 45 53 53 45 52 | Y..Aj,;GROESSER| 000039C0: 20 41 4C 53 20 32 35 35 2E 20 49 4E 20 44 45 4D | ALS 255. IN DEM| 000039D0: 20 46 41 4C 4C 00 F6 41 74 2C 3B 57 49 52 44 20 | FALL..At,;WIRD | 000039E0: 4E 49 43 48 54 20 47 45 5A 45 49 43 48 4E 45 54 |NICHT GEZEICHNET| 000039F0: 2E 20 41 4C 4C 45 00 1B 42 7E 2C 3B 41 4E 44 45 |. ALLE..B~,;ANDE| 00003A00: 52 45 4E 20 50 52 55 45 46 55 4E 47 45 4E 20 47 |REN PRUEFUNGEN G| 00003A10: 45 53 43 48 45 48 45 4E 20 49 4D 00 29 42 88 2C |ESCHEHEN IM.)B.,| 00003A20: 3B 4D 4F 44 55 4C 20 36 2E 00 2F 42 92 2C 3B 00 |;MODUL 6../B.,;.| 00003A30: 4C 42 9C 2C 43 49 52 43 4C 45 20 43 4C 43 3B 42 |LB.,CIRCLE CLC;B| 00003A40: 45 52 45 43 48 4E 45 20 58 4D 2B 58 00 57 42 A6 |ERECHNE XM+X.WB.| 00003A50: 2C 20 4C 44 41 58 4D 00 63 42 B0 2C 20 41 44 43 |, LDAXM.cB., ADC| 00003A60: 58 4B 4F 00 72 42 BA 2C 20 53 54 41 58 50 4C 55 |XKO.rB., STAXPLU| 00003A70: 53 58 00 7F 42 C4 2C 20 4C 44 41 58 4D 2B 31 00 |SX..B., LDAXM+1.| 00003A80: 8D 42 CE 2C 20 41 44 43 58 4B 4F 2B 31 00 9E 42 |.B., ADCXKO+1..B| 00003A90: D8 2C 20 53 54 41 58 50 4C 55 53 58 2B 31 00 B5 |., STAXPLUSX+1..| 00003AA0: 42 E2 2C 20 53 45 43 3B 42 45 52 45 43 48 4E 45 |B., SEC;BERECHNE| 00003AB0: 20 58 4D 2D 58 00 C0 42 EC 2C 20 4C 44 41 58 4D | XM-X..B., LDAXM| 00003AC0: 00 CC 42 F6 2C 20 53 42 43 58 4B 4F 00 DA 42 00 |..B., SBCXKO..B.| 00003AD0: 2D 20 53 54 41 58 4D 49 4E 58 00 E7 42 0A 2D 20 |- STAXMINX..B.- | 00003AE0: 4C 44 41 58 4D 2B 31 00 F5 42 14 2D 20 53 42 43 |LDAXM+1..B.- SBC| 00003AF0: 58 4B 4F 2B 31 00 05 43 1E 2D 20 53 54 41 58 4D |XKO+1..C.- STAXM| 00003B00: 49 4E 58 2B 31 00 1C 43 28 2D 20 43 4C 43 3B 42 |INX+1..C(- CLC;B| 00003B10: 45 52 45 43 48 4E 45 20 58 4D 2B 59 00 27 43 32 |ERECHNE XM+Y.'C2| 00003B20: 2D 20 4C 44 41 58 4D 00 34 43 3C 2D 20 41 44 43 |- LDAXM.4C<- ADC| 00003B30: 48 45 4C 50 00 43 43 46 2D 20 53 54 41 58 50 4C |HELP.CCF- STAXPL| 00003B40: 55 53 59 00 50 43 50 2D 20 4C 44 41 58 4D 2B 31 |USY.PCP- LDAXM+1| 00003B50: 00 5F 43 5A 2D 20 41 44 43 48 45 4C 50 2B 31 00 |._CZ- ADCHELP+1.| 00003B60: 70 43 64 2D 20 53 54 41 58 50 4C 55 53 59 2B 31 |pCd- STAXPLUSY+1| 00003B70: 00 87 43 6E 2D 20 53 45 43 3B 42 45 52 45 43 48 |..Cn- SEC;BERECH| 00003B80: 4E 45 20 58 4D 2D 59 00 92 43 78 2D 20 4C 44 41 |NE XM-Y..Cx- LDA| 00003B90: 58 4D 00 9F 43 82 2D 20 53 42 43 48 45 4C 50 00 |XM..C.- SBCHELP.| 00003BA0: AD 43 8C 2D 20 53 54 41 58 4D 49 4E 59 00 BA 43 |.C.- STAXMINY..C| 00003BB0: 96 2D 20 4C 44 41 58 4D 2B 31 00 C9 43 A0 2D 20 |.- LDAXM+1..C.- | 00003BC0: 53 42 43 48 45 4C 50 2B 31 00 D9 43 AA 2D 20 53 |SBCHELP+1..C.- S| 00003BD0: 54 41 58 4D 49 4E 59 2B 31 00 F0 43 B4 2D 20 43 |TAXMINY+1..C.- C| 00003BE0: 4C 43 3B 42 45 52 45 43 48 4E 45 20 59 4D 2B 59 |LC;BERECHNE YM+Y| 00003BF0: 00 FB 43 BE 2D 20 4C 44 41 59 4D 00 08 44 C8 2D |..C.- LDAYM..D.-| 00003C00: 20 41 44 43 48 45 4C 50 00 17 44 D2 2D 20 53 54 | ADCHELP..D.- ST| 00003C10: 41 59 50 4C 55 53 59 00 24 44 DC 2D 20 4C 44 41 |AYPLUSY.$D.- LDA| 00003C20: 59 4D 2B 31 00 33 44 E6 2D 20 41 44 43 48 45 4C |YM+1.3D.- ADCHEL| 00003C30: 50 2B 31 00 44 44 F0 2D 20 53 54 41 59 50 4C 55 |P+1.DD.- STAYPLU| 00003C40: 53 59 2B 31 00 5B 44 FA 2D 20 53 45 43 3B 42 45 |SY+1.[D.- SEC;BE| 00003C50: 52 45 43 48 4E 45 20 59 4D 2D 59 00 66 44 04 2E |RECHNE YM-Y.fD..| 00003C60: 20 4C 44 41 59 4D 00 73 44 0E 2E 20 53 42 43 48 | LDAYM.sD.. SBCH| 00003C70: 45 4C 50 00 81 44 18 2E 20 53 54 41 59 4D 49 4E |ELP..D.. STAYMIN| 00003C80: 59 00 8E 44 22 2E 20 4C 44 41 59 4D 2B 31 00 9D |Y..D". LDAYM+1..| 00003C90: 44 2C 2E 20 53 42 43 48 45 4C 50 2B 31 00 AD 44 |D,. SBCHELP+1..D| 00003CA0: 36 2E 20 53 54 41 59 4D 49 4E 59 2B 31 00 C4 44 |6. STAYMINY+1..D| 00003CB0: 40 2E 20 43 4C 43 3B 42 45 52 45 43 48 4E 45 20 |@. CLC;BERECHNE | 00003CC0: 59 4D 2B 58 00 CF 44 4A 2E 20 4C 44 41 59 4D 00 |YM+X..DJ. LDAYM.| 00003CD0: DB 44 54 2E 20 41 44 43 58 4B 4F 00 EA 44 5E 2E |.DT. ADCXKO..D^.| 00003CE0: 20 53 54 41 59 50 4C 55 53 58 00 F7 44 68 2E 20 | STAYPLUSX..Dh. | 00003CF0: 4C 44 41 59 4D 2B 31 00 05 45 72 2E 20 41 44 43 |LDAYM+1..Er. ADC| 00003D00: 58 4B 4F 2B 31 00 16 45 7C 2E 20 53 54 41 59 50 |XKO+1..E|. STAYP| 00003D10: 4C 55 53 58 2B 31 00 2D 45 86 2E 20 53 45 43 3B |LUSX+1.-E.. SEC;| 00003D20: 42 45 52 45 43 48 4E 45 20 59 4D 2D 58 00 38 45 |BERECHNE YM-X.8E| 00003D30: 90 2E 20 4C 44 41 59 4D 00 44 45 9A 2E 20 53 42 |.. LDAYM.DE.. SB| 00003D40: 43 58 4B 4F 00 52 45 A4 2E 20 53 54 41 59 4D 49 |CXKO.RE.. STAYMI| 00003D50: 4E 58 00 5F 45 AE 2E 20 4C 44 41 59 4D 2B 31 00 |NX._E.. LDAYM+1.| 00003D60: 6D 45 B8 2E 20 53 42 43 58 4B 4F 2B 31 00 7D 45 |mE.. SBCXKO+1.}E| 00003D70: C2 2E 20 53 54 41 59 4D 49 4E 58 2B 31 00 92 45 |.. STAYMINX+1..E| 00003D80: CC 2E 20 4C 44 41 58 4B 4F 3B 58 20 52 45 54 54 |.. LDAXKO;X RETT| 00003D90: 45 4E 00 9B 45 D6 2E 20 50 48 41 00 A9 45 E0 2E |EN..E.. PHA..E..| 00003DA0: 20 4C 44 41 58 4B 4F 2B 31 00 B2 45 EA 2E 20 50 | LDAXKO+1..E.. P| 00003DB0: 48 41 00 C9 45 F4 2E 20 4C 44 41 58 50 4C 55 53 |HA..E.. LDAXPLUS| 00003DC0: 58 3B 31 2E 50 55 4E 4B 54 00 D5 45 FE 2E 20 53 |X;1.PUNKT..E.. S| 00003DD0: 54 41 58 4B 4F 00 E6 45 08 2F 20 4C 44 41 58 50 |TAXKO..E./ LDAXP| 00003DE0: 4C 55 53 58 2B 31 00 F4 45 12 2F 20 53 54 41 58 |LUSX+1..E./ STAX| 00003DF0: 4B 4F 2B 31 00 03 46 1C 2F 20 4C 44 41 59 50 4C |KO+1..F./ LDAYPL| 00003E00: 55 53 59 00 0F 46 26 2F 20 53 54 41 59 4B 4F 00 |USY..F&/ STAYKO.| 00003E10: 20 46 30 2F 20 4C 44 59 59 50 4C 55 53 59 2B 31 | F0/ LDYYPLUSY+1| 00003E20: 00 2E 46 3A 2F 20 4A 53 52 53 45 54 5A 45 00 44 |..F:/ JSRSETZE.D| 00003E30: 46 44 2F 20 4C 44 41 59 4D 49 4E 59 3B 32 2E 50 |FD/ LDAYMINY;2.P| 00003E40: 55 4E 4B 54 00 50 46 4E 2F 20 53 54 41 59 4B 4F |UNKT.PFN/ STAYKO| 00003E50: 00 60 46 58 2F 20 4C 44 59 59 4D 49 4E 59 2B 31 |.`FX/ LDYYMINY+1| 00003E60: 00 6E 46 62 2F 20 4A 53 52 53 45 54 5A 45 00 84 |.nFb/ JSRSETZE..| 00003E70: 46 6C 2F 20 4C 44 41 58 4D 49 4E 58 3B 33 2E 50 |Fl/ LDAXMINX;3.P| 00003E80: 55 4E 4B 54 00 90 46 76 2F 20 53 54 41 58 4B 4F |UNKT..Fv/ STAXKO| 00003E90: 00 A0 46 80 2F 20 4C 44 41 58 4D 49 4E 58 2B 31 |..F./ LDAXMINX+1| 00003EA0: 00 B0 46 8A 2F 20 4C 44 59 59 4D 49 4E 59 2B 31 |..F./ LDYYMINY+1| 00003EB0: 00 BE 46 94 2F 20 4A 53 52 53 45 54 5A 45 00 D5 |..F./ JSRSETZE..| 00003EC0: 46 9E 2F 20 4C 44 41 59 50 4C 55 53 59 3B 34 2E |F./ LDAYPLUSY;4.| 00003ED0: 50 55 4E 4B 54 00 E1 46 A8 2F 20 53 54 41 59 4B |PUNKT..F./ STAYK| 00003EE0: 4F 00 F2 46 B2 2F 20 4C 44 59 59 50 4C 55 53 59 |O..F./ LDYYPLUSY| 00003EF0: 2B 31 00 00 47 BC 2F 20 4A 53 52 53 45 54 5A 45 |+1..G./ JSRSETZE| 00003F00: 00 17 47 C6 2F 20 4C 44 41 58 50 4C 55 53 59 3B |..G./ LDAXPLUSY;| 00003F10: 35 2E 50 55 4E 4B 54 00 23 47 D0 2F 20 53 54 41 |5.PUNKT.#G./ STA| 00003F20: 58 4B 4F 00 34 47 DA 2F 20 4C 44 41 58 50 4C 55 |XKO.4G./ LDAXPLU| 00003F30: 53 59 2B 31 00 42 47 E4 2F 20 53 54 41 58 4B 4F |SY+1.BG./ STAXKO| 00003F40: 2B 31 00 51 47 EE 2F 20 4C 44 41 59 50 4C 55 53 |+1.QG./ LDAYPLUS| 00003F50: 58 00 5D 47 F8 2F 20 53 54 41 59 4B 4F 00 6E 47 |X.]G./ STAYKO.nG| 00003F60: 02 30 20 4C 44 59 59 50 4C 55 53 58 2B 31 00 7C |.0 LDYYPLUSX+1.|| 00003F70: 47 0C 30 20 4A 53 52 53 45 54 5A 45 00 92 47 16 |G.0 JSRSETZE..G.| 00003F80: 30 20 4C 44 41 59 4D 49 4E 58 3B 36 2E 50 55 4E |0 LDAYMINX;6.PUN| 00003F90: 4B 54 00 9E 47 20 30 20 53 54 41 59 4B 4F 00 AE |KT..G 0 STAYKO..| 00003FA0: 47 2A 30 20 4C 44 59 59 4D 49 4E 58 2B 31 00 BC |G*0 LDYYMINX+1..| 00003FB0: 47 34 30 20 4A 53 52 53 45 54 5A 45 00 D2 47 3E |G40 JSRSETZE..G>| 00003FC0: 30 20 4C 44 41 58 4D 49 4E 59 3B 37 2E 50 55 4E |0 LDAXMINY;7.PUN| 00003FD0: 4B 54 00 DE 47 48 30 20 53 54 41 58 4B 4F 00 EE |KT..GH0 STAXKO..| 00003FE0: 47 52 30 20 4C 44 41 58 4D 49 4E 59 2B 31 00 FC |GR0 LDAXMINY+1..| 00003FF0: 47 5C 30 20 53 54 41 58 4B 4F 2B 31 00 0C 48 66 |G\0 STAXKO+1..Hf| 00004000: 30 20 4C 44 59 59 4D 49 4E 58 2B 31 00 1A 48 70 |0 LDYYMINX+1..Hp| 00004010: 30 20 4A 53 52 53 45 54 5A 45 00 31 48 7A 30 20 |0 JSRSETZE.1Hz0 | 00004020: 4C 44 41 59 50 4C 55 53 58 3B 38 2E 50 55 4E 4B |LDAYPLUSX;8.PUNK| 00004030: 54 00 3D 48 84 30 20 53 54 41 59 4B 4F 00 4E 48 |T.=H.0 STAYKO.NH| 00004040: 8E 30 20 4C 44 59 59 50 4C 55 53 58 2B 31 00 5C |.0 LDYYPLUSX+1.\| 00004050: 48 98 30 20 4A 53 52 53 45 54 5A 45 00 76 48 A2 |H.0 JSRSETZE.vH.| 00004060: 30 20 50 4C 41 3B 58 4B 4F 20 5A 55 52 55 45 43 |0 PLA;XKO ZURUEC| 00004070: 4B 48 4F 4C 45 4E 00 84 48 AC 30 20 53 54 41 58 |KHOLEN..H.0 STAX| 00004080: 4B 4F 2B 31 00 8D 48 B6 30 20 50 4C 41 00 99 48 |KO+1..H.0 PLA..H| 00004090: C0 30 20 53 54 41 58 4B 4F 00 BC 48 CA 30 20 52 |.0 STAXKO..H.0 R| 000040A0: 54 53 3B 5A 55 52 55 45 43 4B 20 5A 55 52 20 48 |TS;ZURUECK ZUR H| 000040B0: 41 55 50 54 53 43 48 4C 45 49 46 45 00 C2 48 D4 |AUPTSCHLEIFE..H.| 000040C0: 30 3B 00 E2 48 DE 30 3B 2D 2D 2D 20 50 52 55 45 |0;..H.0;--- PRUE| 000040D0: 46 45 4E 20 55 4E 44 20 53 45 54 5A 45 4E 20 2D |FEN UND SETZEN -| 000040E0: 2D 2D 00 E8 48 E8 30 3B 00 0B 49 F2 30 53 45 54 |--..H.0;..I.0SET| 000040F0: 5A 45 20 42 4E 45 46 49 4E 49 3B 59 3E 32 35 35 |ZE BNEFINI;Y>255| 00004100: 2C 4B 45 49 4E 20 50 55 4E 4B 54 00 28 49 FC 30 |,KEIN PUNKT.(I.0| 00004110: 20 4C 44 41 58 4B 4F 2B 31 3B 49 53 54 20 58 20 | LDAXKO+1;IST X | 00004120: 4E 45 47 41 54 49 56 3F 00 43 49 06 31 20 42 4D |NEGATIV?.CI.1 BM| 00004130: 49 46 49 4E 49 3B 4A 41 2C 4B 45 49 4E 20 50 55 |IFINI;JA,KEIN PU| 00004140: 4E 4B 54 00 6B 49 10 31 20 4A 53 52 50 55 4E 4B |NKT.kI.1 JSRPUNK| 00004150: 54 32 3B 5A 55 4D 20 4D 4F 44 55 4C 20 36 3A 50 |T2;ZUM MODUL 6:P| 00004160: 55 4E 4B 54 20 53 45 54 5A 45 4E 00 89 49 1A 31 |UNKT SETZEN..I.1| 00004170: 46 49 4E 49 20 52 54 53 3B 57 45 49 54 45 52 20 |FINI RTS;WEITER | 00004180: 49 4E 20 43 49 52 43 4C 45 00 AB 49 C8 32 3B 2A |IN CIRCLE..I.2;*| 00004190: 2A 2A 2A 20 CD 4F 44 55 4C 20 31 32 3A 20 D4 41 |*** .ODUL 12: .A| 000041A0: 42 45 4C 4C 45 4E 20 2A 2A 2A 2A 00 B1 49 D2 32 |BELLEN ****..I.2| 000041B0: 3B 00 C9 49 DC 32 3B 2D 2D 2D 20 CB 4F 4E 53 54 |;..I.2;--- .ONST| 000041C0: 41 4E 54 45 4E 20 2D 2D 2D 00 CF 49 E6 32 3B 00 |ANTEN ---..I.2;.| 000041D0: 04 4A F0 32 46 4C 31 39 39 20 2E 42 59 24 38 38 |.J.2FL199 .BY$88| 000041E0: 2C 24 34 37 2C 24 30 30 2C 24 30 30 2C 24 30 30 |,$47,$00,$00,$00| 000041F0: 3B 31 39 39 20 49 4D 20 CD C6 CC D0 D4 2D C6 4F |;199 IM .....-.O| 00004200: 52 4D 41 54 00 39 4A FA 32 46 4C 33 31 39 20 2E |RMAT.9J.2FL319 .| 00004210: 42 59 24 38 39 2C 24 31 46 2C 24 38 30 2C 24 30 |BY$89,$1F,$80,$0| 00004220: 30 2C 24 30 30 3B 33 31 39 20 49 4D 20 CD C6 CC |0,$00;319 IM ...| 00004230: D0 D4 2D C6 4F 52 4D 41 54 00 60 4A 04 33 4B 31 |..-.ORMAT.`J.3K1| 00004240: 39 39 20 2E 42 59 24 43 37 3B 31 39 39 20 41 4C |99 .BY$C7;199 AL| 00004250: 53 20 31 2D C2 59 54 45 2D C9 4E 54 45 47 45 52 |S 1-.YTE-.NTEGER| 00004260: 00 66 4A 0E 33 3B 00 7C 4A 18 33 3B 2D 2D 2D 20 |.fJ.3;.|J.3;--- | 00004270: D6 41 52 49 41 42 4C 45 20 2D 2D 2D 00 82 4A 22 |.ARIABLE ---..J"| 00004280: 33 3B 00 B3 4A 2C 33 58 55 20 2E 42 59 24 30 30 |3;..J,3XU .BY$00| 00004290: 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 |,$00,$00,$00,$00| 000042A0: 3B D8 D5 20 49 4D 20 CD C6 CC D0 D4 2D C6 4F 52 |;.. IM .....-.OR| 000042B0: 4D 41 54 00 E4 4A 36 33 59 55 20 2E 42 59 24 30 |MAT..J63YU .BY$0| 000042C0: 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 |0,$00,$00,$00,$0| 000042D0: 30 3B D9 D5 20 49 4D 20 CD C6 CC D0 D4 2D C6 4F |0;.. IM .....-.O| 000042E0: 52 4D 41 54 00 15 4B 40 33 58 4F 20 2E 42 59 24 |RMAT..K@3XO .BY$| 000042F0: 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |00,$00,$00,$00,$| 00004300: 30 30 3B D8 CF 20 49 4D 20 CD C6 CC D0 D4 2D C6 |00;.. IM .....-.| 00004310: 4F 52 4D 41 54 00 46 4B 4A 33 59 4F 20 2E 42 59 |ORMAT.FKJ3YO .BY| 00004320: 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C |$00,$00,$00,$00,| 00004330: 24 30 30 3B D9 CF 20 49 4D 20 CD C6 CC D0 D4 2D |$00;.. IM .....-| 00004340: C6 4F 52 4D 41 54 00 65 4B 54 33 42 45 46 4E 52 |.ORMAT.eKT3BEFNR| 00004350: 20 2E 42 59 24 30 30 3B C2 45 46 45 48 4C 53 4E | .BY$00;.EFEHLSN| 00004360: 55 4D 4D 45 52 00 97 4B 5E 33 41 4B 4B 55 20 2E |UMMER..K^3AKKU .| 00004370: 42 59 24 30 30 3B DA 57 49 53 43 48 45 4E 53 50 |BY$00;.WISCHENSP| 00004380: 45 49 43 48 45 52 20 46 55 45 52 20 C1 4B 4B 55 |EICHER FUER .KKU| 00004390: 2D C9 4E 48 41 4C 54 00 9D 4B 68 33 3B 00 C3 4B |-.NHALT..Kh3;..K| 000043A0: 72 33 3B 2D 2D 2D 2D 20 D3 50 52 55 4E 47 54 41 |r3;---- .PRUNGTA| 000043B0: 42 45 4C 4C 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |BELLE ----------| 000043C0: 2D 2D 2D 00 C9 4B 7C 33 3B 00 DB 4B 86 33 53 50 |---..K|3;..K.3SP| 000043D0: 52 54 41 42 20 2E 42 59 24 45 37 00 EE 4B 90 33 |RTAB .BY$E7..K.3| 000043E0: 53 50 52 54 41 42 31 20 2E 42 59 24 41 37 00 FA |SPRTAB1 .BY$A7..| 000043F0: 4B 9A 33 20 2E 57 4F 41 55 53 00 06 4C A4 33 20 |K.3 .WOAUS..L.3 | 00004400: 2E 57 4F 48 41 4E 00 13 4C AE 33 20 2E 57 4F 47 |.WOHAN..L.3 .WOG| 00004410: 43 4C 52 00 21 4C B8 33 20 2E 57 4F 43 4F 4C 4F |CLR.!L.3 .WOCOLO| 00004420: 52 00 2E 4C C2 33 20 2E 57 4F 4E 4F 52 4D 00 3D |R..L.3 .WONORM.=| 00004430: 4C CC 33 20 2E 57 4F 50 55 4E 4B 54 31 00 4C 4C |L.3 .WOPUNKT1.LL| 00004440: D6 33 20 2E 57 4F 44 52 57 4C 49 4E 00 59 4C E0 |.3 .WODRWLIN.YL.| 00004450: 33 20 2E 57 4F 48 4F 4C 45 00 65 4C EA 33 20 2E |3 .WOHOLE.eL.3 .| 00004460: 42 59 30 2C 30 00 71 4C F4 33 20 2E 42 59 30 2C |BY0,0.qL.3 .BY0,| 00004470: 30 00 99 4C FE 33 20 2E 42 59 30 2C 30 2C 30 2C |0..L.3 .BY0,0,0,| 00004480: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 00004490: 30 2C 30 2C 30 2C 30 2C 30 00 9F 4C 08 34 3B 00 |0,0,0,0,0..L.4;.| 000044A0: C5 4C 12 34 3B 2D 2D 2D 2D 20 C2 45 46 45 48 4C |.L.4;---- .EFEHL| 000044B0: 53 54 41 42 45 4C 4C 45 20 2D 2D 2D 2D 2D 2D 2D |STABELLE -------| 000044C0: 2D 2D 2D 2D 2D 00 CB 4C 1C 34 3B 00 DF 4C 26 34 |-----..L.4;..L&4| 000044D0: 42 45 46 54 41 42 20 2E 54 58 22 41 55 53 22 00 |BEFTAB .TX"AUS".| 000044E0: E9 4C 30 34 20 2E 42 59 30 00 F7 4C 3A 34 20 2E |.L04 .BY0..L:4 .| 000044F0: 54 58 22 48 41 4E 22 00 01 4D 44 34 20 2E 42 59 |TX"HAN"..MD4 .BY| 00004500: 30 00 0F 4D 4E 34 20 2E 54 58 22 4C 4F 45 22 00 |0..MN4 .TX"LOE".| 00004510: 19 4D 58 34 20 2E 42 59 30 00 27 4D 62 34 20 2E |.MX4 .BY0.'Mb4 .| 00004520: 54 58 22 46 41 52 22 00 31 4D 6C 34 20 2E 42 59 |TX"FAR".1Ml4 .BY| 00004530: 30 00 3F 4D 76 34 20 2E 54 58 22 48 4F 46 22 00 |0.?Mv4 .TX"HOF".| 00004540: 49 4D 80 34 20 2E 42 59 30 00 57 4D 8A 34 20 2E |IM.4 .BY0.WM.4 .| 00004550: 54 58 22 50 4B 54 22 00 61 4D 94 34 20 2E 42 59 |TX"PKT".aM.4 .BY| 00004560: 30 00 6F 4D 9E 34 20 2E 54 58 22 4C 49 4E 22 00 |0.oM.4 .TX"LIN".| 00004570: 79 4D A8 34 20 2E 42 59 30 00 87 4D B2 34 20 2E |yM.4 .BY0..M.4 .| 00004580: 54 58 22 43 49 52 22 00 91 4D BC 34 20 2E 42 59 |TX"CIR"..M.4 .BY| 00004590: 30 00 9D 4D C6 34 20 2E 42 59 30 2C 30 00 A7 4D |0..M.4 .BY0,0..M| 000045A0: D0 34 20 2E 42 59 30 00 B3 4D DA 34 20 2E 42 59 |.4 .BY0..M.4 .BY| 000045B0: 30 2C 30 00 BF 4D E4 34 20 2E 42 59 30 2C 30 00 |0,0..M.4 .BY0,0.| 000045C0: C5 4D EE 34 3B 00 ED 4D F8 34 3B 2D 2D 2D 20 D0 |.M.4;..M.4;--- .| 000045D0: 4C 41 54 5A 20 46 55 45 52 20 57 45 49 54 45 52 |LATZ FUER WEITER| 000045E0: 45 20 C2 45 46 45 48 4C 45 20 2D 2D 2D 00 F3 4D |E .EFEHLE ---..M| 000045F0: 02 35 3B 00 0F 4E 0C 35 20 2E 42 59 30 2C 30 2C |.5;..N.5 .BY0,0,| 00004600: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 |0,0,0,0,0,0,0,0.| 00004610: 2B 4E 16 35 20 2E 42 59 30 2C 30 2C 30 2C 30 2C |+N.5 .BY0,0,0,0,| 00004620: 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 47 4E 20 35 |0,0,0,0,0,0.GN 5| 00004630: 20 2E 42 59 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C | .BY0,0,0,0,0,0,| 00004640: 30 2C 30 2C 30 2C 30 00 63 4E 2A 35 20 2E 42 59 |0,0,0,0.cN*5 .BY| 00004650: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 00004660: 30 2C 30 00 7F 4E 34 35 20 2E 42 59 30 2C 30 2C |0,0..N45 .BY0,0,| 00004670: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 |0,0,0,0,0,0,0,0.| 00004680: 85 4E 3E 35 3B 00 AA 4E 48 35 3B 2D 2D 2D 20 CD |.N>5;..NH5;--- .| 00004690: 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E 53 54 41 |ULTIPLIKATIONSTA| 000046A0: 42 45 4C 4C 45 4E 20 2D 2D 2D 00 B0 4E 52 35 3B |BELLEN ---..NR5;| 000046B0: 00 D2 4E 5C 35 4D 41 4C 54 41 42 20 2E 42 59 24 |..N\5MALTAB .BY$| 000046C0: 30 30 2C 24 34 30 2C 24 38 30 2C 24 43 30 3B CC |00,$40,$80,$C0;.| 000046D0: D3 C2 00 EA 4E 66 35 20 2E 42 59 24 30 30 2C 24 |....Nf5 .BY$00,$| 000046E0: 34 30 2C 24 38 30 2C 24 43 30 00 02 4F 70 35 20 |40,$80,$C0..Op5 | 000046F0: 2E 42 59 24 30 30 2C 24 34 30 2C 24 38 30 2C 24 |.BY$00,$40,$80,$| 00004700: 43 30 00 1A 4F 7A 35 20 2E 42 59 24 30 30 2C 24 |C0..Oz5 .BY$00,$| 00004710: 34 30 2C 24 38 30 2C 24 43 30 00 32 4F 84 35 20 |40,$80,$C0.2O.5 | 00004720: 2E 42 59 24 30 30 2C 24 34 30 2C 24 38 30 2C 24 |.BY$00,$40,$80,$| 00004730: 43 30 00 4A 4F 8E 35 20 2E 42 59 24 30 30 2C 24 |C0.JO.5 .BY$00,$| 00004740: 34 30 2C 24 38 30 2C 24 43 30 00 56 4F 98 35 20 |40,$80,$C0.VO.5 | 00004750: 2E 42 59 24 30 30 00 5C 4F A2 35 3B 00 7F 4F AC |.BY$00.\O.5;..O.| 00004760: 35 4D 41 4C 54 41 42 31 20 2E 42 59 24 36 30 2C |5MALTAB1 .BY$60,| 00004770: 24 36 31 2C 24 36 32 2C 24 36 33 3B CD D3 C2 00 |$61,$62,$63;....| 00004780: 97 4F B6 35 20 2E 42 59 24 36 35 2C 24 36 36 2C |.O.5 .BY$65,$66,| 00004790: 24 36 37 2C 24 36 38 00 AF 4F C0 35 20 2E 42 59 |$67,$68..O.5 .BY| 000047A0: 24 36 41 2C 24 36 42 2C 24 36 43 2C 24 36 44 00 |$6A,$6B,$6C,$6D.| 000047B0: C7 4F CA 35 20 2E 42 59 24 36 46 2C 24 37 30 2C |.O.5 .BY$6F,$70,| 000047C0: 24 37 31 2C 24 37 32 00 DF 4F D4 35 20 2E 42 59 |$71,$72..O.5 .BY| 000047D0: 24 37 34 2C 24 37 35 2C 24 37 36 2C 24 37 37 00 |$74,$75,$76,$77.| 000047E0: F7 4F DE 35 20 2E 42 59 24 37 39 2C 24 37 41 2C |.O.5 .BY$79,$7A,| 000047F0: 24 37 42 2C 24 37 43 00 03 50 E8 35 20 2E 42 59 |$7B,$7C..P.5 .BY| 00004800: 24 37 45 00 09 50 F2 35 3B 00 37 50 FC 35 48 4F |$7E..P.5;.7P.5HO| 00004810: 43 48 54 41 42 20 2E 42 59 24 38 30 2C 24 34 30 |CHTAB .BY$80,$40| 00004820: 2C 24 32 30 2C 24 31 30 3B DA 57 45 49 45 52 50 |,$20,$10;.WEIERP| 00004830: 4F 54 45 4E 5A 45 4E 00 4F 50 06 36 20 2E 42 59 |OTENZEN.OP.6 .BY| 00004840: 24 30 38 2C 24 30 34 2C 24 30 32 2C 24 30 31 00 |$08,$04,$02,$01.| 00004850: 55 50 10 36 3B 00 5E 50 1A 36 54 45 53 54 00 64 |UP.6;.^P.6TEST.d| 00004860: 50 24 36 3B 00 00 00 59 |P$6;...Y |
......;.-...;***************************
*****.S...;*
*.Y.(.;* GRAFIK IN ASSEMBLER
*...2.;* PROGRAMM IN 9 MODULEN *.
E.<.;* GRAFIK-BASIC-ERWEITERUNG C64 *...
F.;* HIRES-4 *...P.
;* *.7.Z.;*
HEIMO PONNATH HAMBURG 1986 *.].D.;*
*...N.;*****
***************************...X.;.....;*
** MODUL 0: ZUWEISUNGEN ***.....;..... .
BA$C000.E. .;.....;--- FESTE ZUORDNUNGEN
---.....;..... .EQXKO=$14;2-BYTE X-KOOR
DINATE.8.H. .EQFRETOP=$34;STRINGSTARTADR
ESSE MSB.E.R. .EQMEMSIZ=$38;HOECHSTE BAS
ICADRESSE MSB..... .EQCHRGET=$73;CHRGET-
ROUTINE..... .EQCHRGOT=$79;CHRGOT-ROUTIN
E.J... .EQTXTPTR=$7A;CHRGET-ZEIGER.....
.EQHBASE=$0288;MSB BILDSCHIRMSTART AN BE
TRIEBSSYSTEM.2... .EQIGONE=$0308;VEKTOR
ZUM ROUTINENAUFRUF.\... .EQBILD=$5C00;BI
LDSCHIRMSTARTADRESSE..... .EQBITMAP=$600
0;STARTADRESSE BITMAP...". .EQGONE1=$A7E
4;ALTER INHALT VON IGONE...,. .EQINTEND=
$A7E7;ENDE DER INTERPRETERSCHLEIFE...6.
.EQLINGET=$A96B;HOLT 2-BYTE-INTEGER NACH
$14/15.Q.@. .EQFRMNUM=$AD8A;HOLT BELIEB
IGEN NUMERISCHEN AUSDRUCK.X.J. .EQCHKCOM
=$AEFD;AUF KOMMA PRUEFEN...T. .EQFACINX=
$B1AA;FAC -> INTEGER IN A/Y.Y.^. .EQGETA
DR=$B7F7;FAC -> INTEGER IN Y/A UND $14/1
5...H. .EQGETNUM=$B7EB;HOLT ADRESSE NACH
$14/15 UND BYTE INS X-REG..@.R. .EQFSUB
=$B850;FAC = (A/Y) - FAC.D.|. .EQFMULT=$
BA28;FAC = (A/Y)*FAC..... .EQFDIV=$BB0F;
FAC = (A/Y) / FAC..... .EQMOVFM=$BBA2;LA
EDT FAC AUS SPEICHER..... .EQMOVMF=$BBD4
;LAEDT SPEICHER AUS FAC..... .EQVIC17=$D
011;BIT 5 SCHALTET BIT-MAP-MODUS EIN/AUS
.T... .EQVIC24=$D018;STEUERT BILDSCHIRMO
RT UND BIT-MAP-START..... .EQCIA2=$DD00;
CIA2 PORTA:STEUERT VIC-ABSCHNITT.C.B. .E
QCOMBYT=$E200;PRUEFT AUF KOMMA UND HOLT
1 BYTE IN X.I.L.;...V.;--- VARIABLE ----
-.....;..... .EQMODE=$02;MODUS 0=LOESCHE
N, 1=ZEICHNEN.2... .EQYKO=$09;Y-KOORDINA
TE.U... .EQYK1=$0A;KOORDINATENWERT Y1.R.
.. .EQDY=$11;ABSTAND Y1-Y0..... .EQIY=$1
9;INKREMENTWERT..... .EQAY=$1A; -"-...
&. .EQAX=$1B; -"-.Q.0. .EQIX=$1C; -"
-...:. .EQYPLUSY=$57;KREISPUNKTSPIEGELWE
RT...D. .EQYMINY=$59; -"-.-.N. .EQYPLU
SX=$5B; -"-.F.X. .EQYMINX=$5D; -"-.H
.B. .EQHELP=$FB;2-BYTE HILFSWERT...L. .E
QZWSP=HELP+2; -"-...V. .EQCT=$93;2-BYT
E-ZAEHLER..... .EQRAD=$95;KREISRADIUS...
.. .EQXPLUSX=$5F;KREISPUNKTSPIEGELWERT..
... .EQXMINX=$9B; -"-..... .EQXPLUSY=$
9E; -"-.2... .EQXMINY=$A3; -"-.P...
.EQXK1=$8B;KOORDINATE X1.R... .EQYM=$8D;
KREISMITTELPUNKT Y.X.F.;...P.;--- DOPPEL
T GENUTZTE VARIABLE ---...Z.;.G... .EQOF
=XK1;APPROXIMATIONSWERT..... .EQDX=HELP;
ABSTAND X1-X0..... .EQXM=XK1;KREISMITTEL
PUNKT X.....;.6...;*** MODUL 1: BEFEHLSE
RWEITERUNG ***.<...;.C. .;ERWEITERT DIE
INTERPRETERSCHLEIFE...*.;UM EINEN TEIL,
DER DIE NEUEN...4.;BASICBEFEHLE PRUEFT U
ND ZUR.L.>.;AUSFUEHRUNG BRINGT. AB INIT
WIRD...H.;DIESE NEUE SCHLEIFE EINGERICHT
ET,...R.;AB AUS KANN SIE ABGESCHALTET WE
RDEN..A.\.;AB START LIEGT DIE EIGENTLICH
E.^.F.;INTERPRETERERWEITERUNG..D.P.;.J.Z
.;.....;------ INITIALISIERUNG -------..
...;.....INIT LDA#<(START);LSB EIGENE RO
UTINE..... STAIGONE;IN VEKTOR SCHREIBEN.
.... LDA#>(START);MSB..... STAIGONE+1...
.. RTS...J.;.8.T.;------ ABSCHALTEN ----
--------.>...;.^...AUS LDA#<(GONE1);VEKT
OR AUF.W... STAIGONE;NORMALWERT..... LDA
#>(GONE1);ZURUECKSTELLEN..... STAIGONE+1
..... RTS.....;...$.;-ERWEITERTE INTERPR
ETERSCHLEIFE-.....;...8.START JSRCHRGET;
ZEICHEN HOLEN...B. CMP#$60;BUCHSTABE?.5.
L. BCSENDE;BASIC-CODE.P.V. CMP#$41;BUCHS
TABE A ?.K.`. BCCENDE;SONDERZEICHEN...J.
STAAKKU;AKKU SICHERN...T. LDX#$00...~.
STXBEFNR;BEFEHLSNR. AUF 0.B...INT1 LDY#$
00..... INCBEFNR;BEFEHLSNR. + 1..... LDA
BEFTAB,X;ZEICHEN AUS BEFEHLSTABELLE.*...
BNEINT2;KEIN TRENNZEICHEN.0...;.I... LD
AAKKU;ZURUECK INS.J.D.ENDE JSRCHRGOT;NOR
MALE BASIC...N. JMPINTEND;SPRINGEN...X.;
.....;--- ADRESSE SUCHEN -----------....
.;.....INT2 CMP(TXTPTR),Y;VERGLEICH MIT
BASICTEXT..... BNEREST;UNGLEICH..... INY
;BASICTEXTINDEX+1.-... INX;BEFEHLTAB.-IN
DEX+1.P... LDABEFTAB,X;NAECHSTES ZEICHEN
.E.(. BNEINT2;PRUEFEN.N.2. CLC...<. TYA;
BEFEHLSINDEX UM...F. ADCTXTPTR;BEFEHLSLA
ENGE...P. STATXTPTR;ERHOEHEN.T.Z. BCCLAB
1;UEBERTRAG?...D. INCTXTPTR+1;MSB ERHOEH
EN...N.LAB1 LDABEFNR;BEFEHLSNR..#.X. ASL
;VERDOPPELN.=... TAX;UND ALS INDEX IN.\.
.. LDASPRTAB,X;SPRUNGTABELLE.X... STASPR
UNG+1;LSB SPRUNG... . LDASPRTAB1,X;MSB L
ESEN..... STASPRUNG+2;MSB.....;.U...;--
SELBSTMODIFIZIERENDER TEIL --...H.;...R.
SPRUNG JSR$FFFF;DUMMY.....;.!...;-- ZURU
ECK ZUM INTERPRETER -----.'...;.4... JMP
ENDE.:...;.`...;-RESTL. BEFEHLSTEXT UEBE
RLESEN--.F...;.S.".REST INX...,. LDABEFT
AB,X...6. BNEREST;BIS TRENNZEICHEN...@.
INX.I.J. JMPINT1;NAECHSTER BEFEHL.O.T.;.
..P.;**** MODUL 2: GRAFIK EIN ****...Z.;
.....;LEGT GRAFIKBILDSCHIRM NACH $5C00.:
...;UND BIT-MAP NACH $6000.\...;SCHALTET
IN BIT-MAP-MODUS UM.~...;UND BEGRENZT B
ASIC BIS $5C00.....;.....HAN LDA#$7D;ORT
BILDSCHIRM UND.F. . STAVIC24;BITMAP FES
TLEGEN...*. LDA#$C6;VIC AUF ABSCHNITT 1.
..4. STACIA2;RICHTEN...>. LDA#$5C;MSB BI
LDSCHIRMSTART.=.H. STAHBASE;AN BETRIEBSS
YSTEM.Y.R. STAFRETOP;UND SPEICHER.R.\. S
TAMEMSIZ;BEGRENZEN...F. LDAVIC17;BITMAPM
ODUS...P. ORA#$20;EINSCHALTEN...Z. STAVI
C17..... RTS.....;**** MODUL 3: BITMAP L
OESCHEN ****...B.;...L.;LOESCHT ALLE BIT
S IN DER BEI.+.V.;$6000 BEGINNENDEN BIT-
MAP.1...;.X...GCLR LDA#>(BITMAP);MSB BIT
MAPSTART.N... STAHELP+1;MERKEN..... LDY#
$00;LSB BITMAPSTART IST NULL..... STYHEL
P..... TYA;NULLBYTES.W... LDX#$20;DEZ.32
ANZAHL BLOECKE...&.CLOOP STA(HELP),Y;BY
TE LOESCHEN...0. INY;NAECHSTES BYTE.!.:.
BNECLOOP.D.D. INCHELP+1;MSB ZEIGER ERHO
EHEN.^.N. DEX;BLOCKZAEHLER - 1.L.X. BNEC
LOOP.U.B. RTS... .;**** MODUL 4: FARBGEB
UNG ****.....;.....;LIEST AUS DEM BASICT
EXT DIE.....;ZEICHENFARBE (ZF) UND DIE..
.H.;HINTERGRUNDFARBE (HF) UND BELEGT.'.R
.;DEN FARBSPEICHER AB $5C00 MIT.J...;DIE
SER FARBKOMBINATION. DABEI.D...;IST FARB
E = 16*ZF+HF.J...;.....COLOR JSRCOMBYT;Z
F IN X-REGISTER..... STXHELP;UND MERKEN.
G... JSRCOMBYT;HF IN X-REGISTER..... STX
HELP+1;UND MERKEN...".;...,. LDAHELP;ZEI
CHENFARBE...6. ASL;MAL 16...@. ASL.#.J.
ASL.,.T. ASL.A.^. CLC;HF ADDIEREN.P.H. A
DCHELP+1.V.R.;...|.COL2 LDX#>(BILD);MSB
BILDSCHIRMADRESSE..... STXHELP+1;MERKEN.
.... LDY#$00;LSB BILDSCHIRM IST NULL.P..
. STYHELP;MERKEN..... LDX#$04;4 BLOECKE
FUELLEN.. ..HLOOP STA(HELP),Y;FARBE EINT
RAGEN.- .. INY;NAECHSTES BYTE.; B. BNEHL
OOP.Z L. INCHELP+1;NAECHSTER BLOCK.C V.
DEX.Q .. BNEHLOOP.Z .. RTS. ..;**** MOD
UL 5: TEXTMODUS EIN ****.. ..;.J ..;SORG
T DAFUER, DASS DER NORMALE.. ..;TEXTMODU
S AKTIV WIRD. GRAFIK..!..;BLEIBT ABER ER
HALTEN...!..;.2!D.NORM LDA#$15;NORMALER
BILDSCHIRM.@!N. STAVIC24.A!X. LDA#$C7;VI
C AUF ABSCHNITT 0.N!.. STACIA2..!.. LDA#
$04;MSB TEXTBILDSCHIRM..!.. STAHBASE;AN
BETRIEBSSYSTEM.F!.. LDAVIC17;TEXTMODUS..
!.. AND#$DF;EINSCHALTEN..!.. STAVIC17..!
.. RTS.#"P.;**** MODUL 6:PUNKT SETZEN/LO
ESCHEN ****.)"Z.;.K"..;SETZT IN DER BITM
AP AB $6000.M"..;EINEN PUNKT ODER LOESCH
T IHN.."..;JE NACH MODUS. 1.EINSPRUNG HO
LT.."..;AUS BASICTEXT PARAMETER X,Y,MODE
.."..;2.EINSPRUNG SETZT GESPEICHERTE..".
.;PARAMETER VORAUS..."..;..#J.;--- PARAM
ETER HOLEN ----..#T.;.@#..PUNKT1 JSRGETN
UM;X UND Y HOLEN._#.. STXYKO;Y MERKEN, X
IN XKO.Z#.. JSRCOMBYT;MODUS HOLEN..#..
STXMODE;UND MERKEN..#..;..#..;--- PARAME
TER PRUEFEN ---..#..;.Y#$.PUNKT2 LDAYKO;
Y PRUEFEN..#.. CMP#$C7;GROESSER ALS 200?
..$8. BCSNOPLOT;WENN JA, KEIN PUNKT.7$B.
LDYXKO+1;MSB X PRUEFEN.R$L. BEQOK;KLEIN
ER ALS 255.G$V. DEY;JETZT NULL?..$`. BNE
NOPLOT;MSB X > 1,KEIN PUNKT..$J. LDAXKO;
LSB X PRUEFEN.L$T. CMP#$40;GROESSER ALS
LSB VON 320?..$~. BCSNOPLOT;DANN KEIN PU
NKT..$..;..%..;--- BERECHNEN BYTE UND BI
T ---..%..;.)%..OK LDAYKO.K%.. TAX;Y IN
AKKU UND X-REGISTER.B%.. LSR;BERECHNEN Y
/8.K%D. LSR.T%N. LSR..%X. TAY;IM Y-REGIS
TER MERKEN..%.. CLC..%.. TXA;NOCHMAL Y.E
%.. AND#$07;(Y AND 7)..%.. ADCMALTAB,Y;+
320*Y/8 LSB..%.. STAZWSP..%.. LDAXKO..&.
. AND#$F8;LSB X AND 248.$&(. ADCZWSP.<&2
. STAZWSP;MERKEN LSB.Z&<. LDAMALTAB1,Y;3
20*Y/8 MSB.H&F. ADCXKO+1..&P. STAZWSP+1;
MSB MERKEN..&Z. LDAXKO;BITPOSITION BEREC
HNEN..&D. AND#$07..&N. TAY.L&X. LDAHOCHT
AB,Y.R&..;..&..;--- MODE PRUEFEN ---..&.
.;..& . LDY#$00..'.. LDXMODE..'.. BEQLOE
SCH.!'..;.;'H.;--- PUNKT SETZEN ---.A'R.
;.R'.. ORA(ZWSP),Y.N'.. BNESTORE;SPRINGT
IMMER.T'..;..'..;--- PUNKT LOESCHEN ---
..'..;..'..LOESCH EOR#$FF;LOESCHEN.C'..
AND(ZWSP),Y..'".STORE STA(ZWSP),Y;EINTRA
GEN IN BITMAP..',.;..(6.;--- RUECKSPRUNG
---..(@.;.!(J.NOPLOT RTS.G(X.;**** MODU
L 7: LINIEN ZIEHEN ****.M(B.;.S(L.;ZEICH
NET ODER LOESCHT EINE LINIE..(V.;ZWISCHE
N DEN PUNKTEN (X0,Y0) UND..(..;(X1,Y1).
EINSPRUNG DRWLIN HOLT..(..;AUS BASICTEXT
DIE PARAMETER UND..)..;PRUEFT SIE. EINS
PRUNG SETPAR ER-.))..;WARTET DIE PARAMET
ER IN DEN.M)..;RICHTIGEN SPEICHERSTELLEN
XKO,.Q)..;YKO,XK1,YK1,MODE. UEBERGABE A
N..)..;MODUL 6 MITTELS XKO,YKO,MODE...)F
.;..)P.ILL RTS;ZURUECK BEI FEHLER..)Z.;.
X)..;--- EINSPRUNG 1 ---..)..;..*..DRWLI
N JSRGCOORD;KOORDINATEN 1.PUNKT HOLEN.'*
.. BCSILL;FALSCHER WERT.=*.. STXYKO;Y0 M
ERKEN.X*.. STACT+1;MSB X0 MERKEN.U* . ST
YCT;UND LSB EBENFALLS..**. JSRGCOORD;KOO
RDINATEN 2.PUNKT HOLEN..*4. BCSILL;FALSC
HER WERT.N*>. STXYK1;Y1 MERKEN..*H. STYX
K1;LSB X1 MERKEN..+R. LDYCT;LSB X0 UMLAD
EN..+\. STYXKO.*+F. STAXK1+1;MSB X1 MERK
EN.F+P. LDACT+1;MSB X0 UMLADEN.T+Z. STAX
KO+1.O+.. JSRCOMBYT;MODUS HOLEN..+.. STX
MODE;UND MERKEN..+..;..+..;--- EINSPRUNG
2 ---..+..;..+..SETPAR LDY#$01.Y+.. STY
IX;INKREMENTE UND..+J. STYIY;ZAEHLER INI
TIALISIEREN..,T. STYCT..,.. DEY..,.. STY
CT+1.',.. STYAX.2,.. STYAY.;,.. DEY.A,..
;.[,..;--- DX BERECHNEN ---.A,$.;..,..BE
GIN LDAXK1+1;IST X1>=X0?..,8. CMPXKO+1;M
SB..,B. BCCDRAW01;NEIN,SPRUNG.I,L. BNEDR
AW02;X1>X0,SPRUNG..,V. LDAXK1;BEIDE GLEI
CH,LSB PRUEFEN..,`. CMPXKO..-J. BCSDRAW0
2;JA,SPRUNG.+-T.DRAW01 SEC;DX=X0-X1.7-~.
LDAXKO.C-.. SBCXK1.N-.. STADX.\-.. LDAX
KO+1.J-.. SBCXK1+1.W-.. STADX+1..-.. STY
IX;IX IST -1..-D. JMPDRAW03..-N.DRAW02 S
EC;DX=X1-X0..-X. LDAXK1.K-.. SBCXKO.V-..
STADX..-.. LDAXK1+1..-.. SBCXKO+1..-..
STADX+1.....;.#...;--- BERECHNEN VON DY
---.).(.;.G.2.DRAW03 LDAYK1;IST Y1>=Y0?.
S.<. CMPYKO.L.F. BCSDRAW04;JA,SPRUNG.R.P
.;...Z. SEC;SONST DY=Y0-Y1...D. LDAYKO..
.N. SBCYK1...X. STADY.B... STYIY;IY IST
-1.Q... JMPDRAW05.....DRAW04 SBCYKO;DY=Y
1-Y0... . STADY.....;../..DRAW05 LDADX+1
;DX<DY?.2/.. BNEDRAW07;NEIN,SPRUNG.I/H.
LDADX;LSB PRUEFEN.T/R. CMPDY.Q/.. BCSDRA
W07;DX>=DY,SPRUNG../.. LDXDY;ACHSEN TAUS
CHEN../.. STADY;DX NACH DY../.. STXDX;DY
NACH DX.I/.. LDAIX;AY=IX.T/.. STAAY../.
. LDAIY;AX=IY../". STAAX../,. INY..06. S
TYIX;IX=0..0@. STYIY;IY=0..0J.;.:0T.DRAW
07 LDADX+1;OF=DX/2.C0^. LSR.[0H. STAOF+1
;IST ALSO 0.F0R. LDADX.O0|. ROR.Z0.. STA
OF..0.. JMPPLOTIT;1.PUNKT SETZEN..0..;..
0..;--- APPROXIMATION ---..0..;..0..DRWL
OP LDAIX;IST IX=-1?..0B. BMIDRAW08;JA,SP
RUNG..1L. CLC;X0=X0+IX..1V. ADCXKO..1..
STAXKO.,1.. LDAXKO+1.91.. ADC#$00.G1.. S
TAXKO+1.V1. JMPDRAW11.N1. DRAW08 SEC;X0
=X0-IX.Z1. LDAXKO..1& SBC#$01..10 STA
XKO..1: LDAXKO+1..1D SBC#$00..1N STAX
KO+1.T1X DRAW11 CLC;Y0=Y0+AX..1B LDAYKO
..1L ADCAX..1V STAYKO..2. CLC;OF=OF+D
Y..2. LDAOF..2. ADCDY.*2. STAOF.72.
LDAOF+1.D2. ADC#$00.Q2. STAOF+1.D2F I
NCCT;CT=CT+1.S2P BNEDRAW06..2Z INCCT+1
..2. DRAW06 LDAOF+1;OF<=DX?..2. CMPDX+1
.C2. BCCPLOTIT;JA,ZEICHNEN..2.! BNEDRAW
09;GROESSER,SPRUNG..2.! LDADX..2.! CMPOF
..3 ! BCSPLOTIT;JA,ZEICHNEN.+3*!DRAW09 S
EC;OF=OF-DX.634! LDAOF.A3>! SBCDX.L3H! S
TAOF.Y3R! LDAOF+1.F3\! SBCDX+1.S3F! STAO
F+1..3P! LDAAY;IST AY=-1?..3Z! BMIDRAW10
;JA,SPRUNG..3.! CLC;X0=X0+AY..3.! ADCXKO
.L3.! STAXKO.Z3.! LDAXKO+1..3.! ADC#$00.
.3.! STAXKO+1..4.! JMPDRAW12..4J!DRAW10
SEC;X0=X0-AY.(4T! LDAXKO.54.! SBC#$01.A4
.! STAXKO.O4.! LDAXKO+1.\4.! SBC#$00.J4.
" STAXKO+1..4."DRAW12 CLC;Y0=Y0+IY..4."
LDAYKO..4$" ADCIY..4." STAYKO..48";.O4B"
;--- ZEICHNEN,SCHLEIFENENDE ---.U4L";..4
V"PLOTIT JSROK;EINSPRUNG 3 IN MODUL 6..5
`" LDACT+1;CT<=DX?..5J" CMPDX+1.;5T" BCC
NEXPNT;CT<DX,SPRUNG.F5~" LDADX.Q5." CMPC
T.N5." BCSNEXPNT;CT<=DX,SPRUNG..5." RTS;
LINIE IST FERTIG..5.";..5."NEXPNT JMPDRW
LOP;NAECHSTER PUNKT..5.";.V5D";--- PARAM
ETER HOLEN ---..5N";..6X"GCOORD JSRCHKCO
M;AUF KOMMA PRUEFEN. 6." JSRGETNUM;X UND
Y LESEN.86." CPX#$C8;IST Y>200?.U6." BC
SFINISH;Y>=200,SPRUNG.N6.# LDAXKO+1;IST
X>320?..6.# CMP#$01;MSB VON X..6.# BCCFI
NIS;MSB IST <1..6.# BNEFINISH;MSB IST >1
.N6(# LDYXKO;LSB VON X..62# CPY#$40;LSB
VON 320.#7<#FINISH RTS;WENN CARRY=1,NACH
RUECKKEHR AUSSTIEG BEI ILL.47F#FINIS LD
YXKO.K7P# RTS;Y=XKO,A=XKO+1.R7.';**** MO
DUL 9:KREISE ZEICHNEN ****.X7.';..7$';ZE
ICHNET ODER LOESCHT EINEN KREIS.E7.';UM
DEN MITTELPUNKT XM,YM UND MIT..78';DEM R
ADIUS R. ALLE EINGABEN VON..8B';0 BIS MA
XIMAL 32767 (?) ERLAUBT..68L';BEIM ERSTE
N EINSPRUNGSPUNKT WER-.Y8V';DEN DIE PARA
METER GELESEN UND.8`';GEPRUEFT. BEIM ZW
EITEN EINSPRUNG..8J';ERWARTET PROGRAMM P
ARAMETER IN.F8T';DEN RICHTIGEN SPEICHERS
TELLEN..8~';XM,YM,R UND MODE. UEBERGABE
AN..9.';MODUL 6 MITTELS XKO,YKO UND MODE
...9.';.?9.'ERR RTS;RUECKSPRUNG BEI FEHL
EINGABE.E9.';.R9.';--- PARAMETER HOLEN,P
RUEFEN,ABLEGEN ---.X9.';..9D'HOLE JSRCHK
COM;KOMMA PRUEFEN..9N' JSRFRMNUM;XM LESE
N..9X' JSRGETADR.Z9.' LDAXKO+1;MSB PRUEF
EN..9.' BMIERR;ZU GROSS,SPRUNG..:.' STAX
M+1;MERKEN..:.( LDAXKO;LSB.,:.( STAXM;ME
RKEN.2:.(;.Q:.( JSRCHKCOM;NAECHSTES KOMM
A.I:(( JSRFRMNUM;YM LESEN.X:2( JSRGETADR
..:<( LDAXKO+1;MSB PRUEFEN..:F( BMIERR;F
EHLEINGABE..:P( STAYM+1;MERKEN.N:Z( LDAX
KO;LSB..:D( STAYM;MERKEN..:N(;..;X( JSRC
HKCOM;KOMMA TESTEN..;.( JSRFRMNUM;RADIUS
LESEN.-;.( JSRGETADR.G;.( LDAXKO+1;MSB
PRUEFEN.C; ( BMIERR;ZU GROSS,SPRUNG.X;.(
STARAD+1;MERKEN..;.( LDAXKO;LSB..;.( ST
ARAD;MERKEN..;H(;..;R( JSRCOMBYT;MODUS H
OLEN.T;.( STXMODE;UND MERKEN.Z;.(;..;.(;
--- ANFANGSWERTE SETZEN ---..<.(;.!<.)KR
EIS1 LDA#$00;VARIABLE X=0.-<.) STAXKO.;<
.) STAXKO+1.T<") LDARAD;VARIABLE Y=R.A<,
) STAHELP.O<6) LDARAD+1.~<@) STAHELP+1..
<J) SEC;VARIABLE D BERECHNEN:..<T) LDARA
D;D=R-1..<^) SBC#$01.G<H) STACT.U<R) LDA
RAD+1..<|) SBC#$00..<.) STACT+1..<.);..=
.);--- HAUPTSCHLEIFE ---..=.);.3=.)KREIS
LP LDACT+1;IST D<0?.N=.) BPLKREIS2;NEIN,
SPRUNG.C=B) SEC;SUBTRAKTION.V=L) LDAHELP
;Y=Y-1..=V) SBC#$01..=.) STAHELP..=.) LD
AHELP+1..=.) SBC#$00..=.) STAHELP+1.O=.*
CLC;ADDITIONEN..=.* LDACT;D=D+Y+Y..=.*
ADCHELP..=&* STACT..>0* LDACT+1..>:* ADC
HELP+1.#>D* STACT+1.,>N* CLC.7>X* LDACT.
D>B* ADCHELP.O>L* STACT.\>V* LDACT+1.K>.
* ADCHELP+1.X>.* STACT+1.~>.*;..>.*KREIS
2 JSRCIRCLE;UP ZUM PRUEFEN DER WERTE UND
ZEICHNEN..>.*;.V>.* SEC;SUBTRAKTIONEN..
>.* LDACT;D=D-X-X-1..>F* SBCXKO..?P* STA
CT..?Z* LDACT+1..?.* SBCXKO+1.*?.* STACT
+1.3?.* SEC.>?.+ LDACT.J?.+ SBCXKO.U?.+
STACT.B? + LDACT+1.P?*+ SBCXKO+1.}?4+ ST
ACT+1..?>+ SEC..?H+ LDACT..?R+ SBC#$01..
?\+ STACT..?F+ LDACT+1.C?P+ SBC#$00.P?Z+
STACT+1..?.+ CLC;ADDITION X=X+1..?.+ LD
AXKO..@.+ ADC#$01..@.+ STAXKO..@.+ LDAXK
O+1.(@.+ ADC#$00.6@.+ STAXKO+1.<@J+;.T@T
+ CMPHELP+1;IST X<=Y.N@.+ BCCKREISLP;JA,
SPRUNG..@.+ BNEEND;X>Y,KREIS FERTIG..@.+
LDAHELP..@.+ CMPXKO..@., BCSSCHLEIFE;JA
,SPRUNG.X@.,END RTS;KREIS FERTIG..@.,SCH
LEIFE JMPKREISLP..@$,;..A.,;--- UNTERPRO
GRAMM ZEICHNEN ---. A8,;.DAB,;BERECHNET
DIE KONKRETEN PUNKTE.IAL,;DURCH SYMMETRI
EN, PRUEFT OB DIE..AV,;SICH ERGEBENDEN W
ERTE FUER X UND..A`,;Y KLEINER ALS 0 SIN
D UND OB Y.UAJ,;GROESSER ALS 255. IN DEM
FALL..AT,;WIRD NICHT GEZEICHNET. ALLE..
B~,;ANDEREN PRUEFUNGEN GESCHEHEN IM.)B.,
;MODUL 6../B.,;.LB.,CIRCLE CLC;BERECHNE
XM+X.WB., LDAXM.CB., ADCXKO.RB., STAXPLU
SX.BD, LDAXM+1..BN, ADCXKO+1..BX, STAXP
LUSX+1..B., SEC;BERECHNE XM-X..B., LDAXM
.LB., SBCXKO.ZB.- STAXMINX..B.- LDAXM+1.
.B.- SBCXKO+1..C.- STAXMINX+1..C(- CLC;B
ERECHNE XM+Y.'C2- LDAXM.4C<- ADCHELP.CCF
- STAXPLUSY.PCP- LDAXM+1._CZ- ADCHELP+1.
PCD- STAXPLUSY+1..CN- SEC;BERECHNE XM-Y.
.CX- LDAXM..C.- SBCHELP..C.- STAXMINY..C
.- LDAXM+1.IC - SBCHELP+1.YC.- STAXMINY+
1..C.- CLC;BERECHNE YM+Y..C.- LDAYM..DH-
ADCHELP..DR- STAYPLUSY.$D.- LDAYM+1.3D.
- ADCHELP+1.DD.- STAYPLUSY+1.[D.- SEC;BE
RECHNE YM-Y.FD.. LDAYM.SD.. SBCHELP..D..
STAYMINY..D". LDAYM+1..D,. SBCHELP+1..D
6. STAYMINY+1.DD@. CLC;BERECHNE YM+X.ODJ
. LDAYM..DT. ADCXKO..D^. STAYPLUSX..DH.
LDAYM+1..ER. ADCXKO+1..E|. STAYPLUSX+1.-
E.. SEC;BERECHNE YM-X.8E.. LDAYM.DE.. SB
CXKO.RE.. STAYMINX._E.. LDAYM+1.ME.. SBC
XKO+1.}EB. STAYMINX+1..EL. LDAXKO;X RETT
EN..EV. PHA..E.. LDAXKO+1..E.. PHA.IE..
LDAXPLUSX;1.PUNKT.UE.. STAXKO..E./ LDAXP
LUSX+1..E./ STAXKO+1..F./ LDAYPLUSY..F&/
STAYKO. F0/ LDYYPLUSY+1..F:/ JSRSETZE.D
FD/ LDAYMINY;2.PUNKT.PFN/ STAYKO.`FX/ LD
YYMINY+1.NFB/ JSRSETZE..FL/ LDAXMINX;3.P
UNKT..FV/ STAXKO. F./ LDAXMINX+1..F./ LD
YYMINY+1..F./ JSRSETZE.UF./ LDAYPLUSY;4.
PUNKT..F./ STAYKO..F./ LDYYPLUSY+1..G./
JSRSETZE..GF/ LDAXPLUSY;5.PUNKT.#GP/ STA
XKO.4GZ/ LDAXPLUSY+1.BG./ STAXKO+1.QG./
LDAYPLUSX.]G./ STAYKO.NG.0 LDYYPLUSX+1.|
G.0 JSRSETZE..G.0 LDAYMINX;6.PUNKT..G 0
STAYKO..G*0 LDYYMINX+1..G40 JSRSETZE.RG>
0 LDAXMINY;7.PUNKT..GH0 STAXKO..GR0 LDAX
MINY+1..G\0 STAXKO+1..HF0 LDYYMINX+1..HP
0 JSRSETZE.1HZ0 LDAYPLUSX;8.PUNKT.=H.0 S
TAYKO.NH.0 LDYYPLUSX+1.\H.0 JSRSETZE.VH.
0 PLA;XKO ZURUECKHOLEN..H.0 STAXKO+1..H.
0 PLA..H.0 STAXKO..HJ0 RTS;ZURUECK ZUR H
AUPTSCHLEIFE.BHT0;..H.0;--- PRUEFEN UND
SETZEN ---..H.0;..I.0SETZE BNEFINI;Y>255
,KEIN PUNKT.(I.0 LDAXKO+1;IST X NEGATIV?
.CI.1 BMIFINI;JA,KEIN PUNKT.KI.1 JSRPUNK
T2;ZUM MODUL 6:PUNKT SETZEN..I.1FINI RTS
;WEITER IN CIRCLE..IH2;**** MODUL 12: TA
BELLEN ****..IR2;.II.2;--- KONSTANTEN --
-.OI.2;..J.2FL199 .BY$88,$47,$00,$00,$00
;199 IM MFLPT-FORMAT.9J.2FL319 .BY$89,$1
F,$80,$00,$00;319 IM MFLPT-FORMAT.`J.3K1
99 .BY$C7;199 ALS 1-BYTE-INTEGER.FJ.3;.|
J.3;--- VARIABLE ---..J"3;..J,3XU .BY$00
,$00,$00,$00,$00;XU IM MFLPT-FORMAT..J63
YU .BY$00,$00,$00,$00,$00;YU IM MFLPT-FO
RMAT..K@3XO .BY$00,$00,$00,$00,$00;XO IM
MFLPT-FORMAT.FKJ3YO .BY$00,$00,$00,$00,
$00;YO IM MFLPT-FORMAT.EKT3BEFNR .BY$00;
BEFEHLSNUMMER..K^3AKKU .BY$00;ZWISCHENSP
EICHER FUER AKKU-INHALT..KH3;.CKR3;----
SPRUNGTABELLE -------------.IK|3;..K.3SP
RTAB .BY$E7..K.3SPRTAB1 .BY$A7..K.3 .WOA
US..L.3 .WOHAN..L.3 .WOGCLR.!L.3 .WOCOLO
R..LB3 .WONORM.=LL3 .WOPUNKT1.LLV3 .WODR
WLIN.YL.3 .WOHOLE.EL.3 .BY0,0.QL.3 .BY0,
0..L.3 .BY0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0..L.4;.EL.4;---- BEFEHLSTABELLE -------
-----.KL.4;..L&4BEFTAB .TX"AUS"..L04 .BY
0..L:4 .TX"HAN"..MD4 .BY0..MN4 .TX"LOE".
.MX4 .BY0.'MB4 .TX"FAR".1ML4 .BY0.?MV4 .
TX"HOF".IM.4 .BY0.WM.4 .TX"PKT".AM.4 .BY
0.OM.4 .TX"LIN".YM.4 .BY0..M.4 .TX"CIR".
.M.4 .BY0..MF4 .BY0,0..MP4 .BY0..MZ4 .BY
0,0..M.4 .BY0,0.EM.4;..M.4;--- PLATZ FUE
R WEITERE BEFEHLE ---..M.5;..N.5 .BY0,0,
0,0,0,0,0,0,0,0.+N.5 .BY0,0,0,0,0,0,0,0,
0,0.GN 5 .BY0,0,0,0,0,0,0,0,0,0.CN*5 .BY
0,0,0,0,0,0,0,0,0,0.N45 .BY0,0,0,0,0,0,
0,0,0,0..N>5;..NH5;--- MULTIPLIKATIONSTA
BELLEN ---..NR5;.RN\5MALTAB .BY$00,$40,$
80,$C0;LSB..NF5 .BY$00,$40,$80,$C0..OP5
.BY$00,$40,$80,$C0..OZ5 .BY$00,$40,$80,$
C0.2O.5 .BY$00,$40,$80,$C0.JO.5 .BY$00,$
40,$80,$C0.VO.5 .BY$00.\O.5;.O.5MALTAB1
.BY$60,$61,$62,$63;MSB..O.5 .BY$65,$66,
$67,$68..O.5 .BY$6A,$6B,$6C,$6D.GOJ5 .BY
$6F,$70,$71,$72..OT5 .BY$74,$75,$76,$77.
.O.5 .BY$79,$7A,$7B,$7C..P.5 .BY$7E..P.5
;.7P.5HOCHTAB .BY$80,$40,$20,$10;ZWEIERP
OTENZEN.OP.6 .BY$08,$04,$02,$01.UP.6;.^P
.6TEST.DP$6;...Y
> CLICK IMAGE PREVIEW FOR FULL MODAL