CHARACTER-80.A
FILE INFORMATION
FILENAME(S): CHARACTER-80.A
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-11-30 01:12:39
APPEARS ON: 1 disk(s)
FILE HASH
7232d65f407bfe151afecc9d24d708e4006b1707a1c3150ead65c6defc926610
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 10 86 | CHARACTER-80.A | PRG | C64er, DuncanTwain | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1F 1C 01 00 8F 20 22 20 20 20 20 20 20 20 |....... " |
00000010: 20 C3 48 41 52 41 43 54 45 52 2D 38 30 2E 41 00 | .HARACTER-80.A.|
00000020: 25 1C 02 00 3A 00 4D 1C 03 00 8F 20 22 48 4F 4C |%...:.M.... "HOL|
00000030: 54 20 C3 48 41 52 41 43 54 45 52 20 41 55 53 20 |T .HARACTER AUS |
00000040: D2 CF CD 20 41 55 46 20 C8 49 52 45 53 00 53 1C |... AUF .IRES.S.|
00000050: 04 00 3A 00 6E 1C 05 00 8F 20 22 20 20 20 20 20 |..:.n.... " |
00000060: 20 20 20 20 28 43 29 20 42 59 20 CB D2 D7 00 74 | (C) BY ....t|
00000070: 1C 06 00 3A 00 8C 1C 07 00 8F 20 22 20 20 20 20 |...:...... " |
00000080: 20 20 20 20 20 20 20 20 31 39 38 35 00 92 1C 08 | 1985....|
00000090: 00 3A 00 AE 1C 09 00 8F 20 22 20 20 20 20 20 20 |.:...... " |
000000A0: 20 20 20 56 45 52 53 49 4F 4E 20 31 2E 32 00 B4 | VERSION 1.2..|
000000B0: 1C 0A 00 3A 00 BA 1C 0B 00 3A 00 D4 1C 0C 00 8F |...:.....:......|
000000C0: 20 22 2A 2A 2A 20 DD 42 45 52 47 41 42 45 3A 20 | "*** .BERGABE: |
000000D0: 2A 2A 2A 22 00 DA 1C 0D 00 3A 00 06 1D 0E 00 8F |***".....:......|
000000E0: 20 22 CD 49 54 54 45 4C 50 55 4E 4B 54 20 44 45 | ".ITTELPUNKT DE|
000000F0: 53 20 5A 55 20 53 45 54 5A 45 4E 44 45 4E 20 D0 |S ZU SETZENDEN .|
00000100: 55 4E 4B 54 45 53 00 2E 1D 0F 00 8F 20 22 49 4E |UNKTES...... "IN|
00000110: 20 24 31 31 35 30 2F 35 31 20 28 58 29 20 55 4E | $1150/51 (X) UN|
00000120: 44 20 24 31 31 35 32 2F 35 33 20 28 59 29 00 34 |D $1152/53 (Y).4|
00000130: 1D 14 00 3A 00 49 1D 1E 00 4E 24 B2 22 43 48 41 |...:.I...N$."CHA|
00000140: 52 41 43 54 45 52 2E 4D 22 00 69 1D 28 00 9F 20 |RACTER.M".i.(.. |
00000150: 31 35 2C 38 2C 31 35 2C 22 53 30 3A 22 AA 4E 24 |15,8,15,"S0:".N$|
00000160: 3A 20 8D 20 36 30 31 30 30 00 88 1D 32 00 9F 20 |: . 60100...2.. |
00000170: 32 2C 38 2C 32 2C 4E 24 AA 22 2C 50 2C 57 22 3A |2,8,2,N$.",P,W":|
00000180: 20 8D 20 36 30 31 30 30 00 8E 1D 3C 00 3A 00 9B | . 60100...<.:..|
00000190: 1D 46 00 9E 20 39 AC 34 30 39 36 00 A1 1D 50 00 |.F.. 9.4096...P.|
000001A0: 3B 00 AD 1D 5A 00 2E 4F 50 54 20 4F 32 00 B3 1D |;...Z..OPT O2...|
000001B0: 64 00 3B 00 CC 1D 6E 00 3B 20 22 2A 2A 2A 20 D6 |d.;...n.; "*** .|
000001C0: 41 52 49 41 42 4C 45 20 2A 2A 2A 22 00 D2 1D 78 |ARIABLE ***"...x|
000001D0: 00 3B 00 14 1E 82 00 56 41 52 41 44 52 20 20 B2 |.;.....VARADR .|
000001E0: 20 24 32 34 20 20 20 20 20 20 20 20 20 20 20 3B | $24 ;|
000001F0: 20 22 C1 44 52 45 53 53 45 20 44 45 52 20 DA 45 | ".DRESSE DER .E|
00000200: 49 43 48 45 4E 4B 45 54 54 45 20 49 4E 20 C2 41 |ICHENKETTE IN .A|
00000210: 4E 4B 20 31 00 3F 1E 8C 00 43 4E 54 42 59 54 20 |NK 1.?...CNTBYT |
00000220: 20 B2 20 24 36 41 20 20 20 20 20 20 20 20 20 20 | . $6A |
00000230: 20 3B 20 22 C2 59 54 45 2D DA BB 48 4C 45 52 00 | ; ".YTE-..HLER.|
00000240: 69 1E 96 00 42 49 54 53 20 20 20 20 B2 20 24 36 |i...BITS . $6|
00000250: 42 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 C2 |B ; ".|
00000260: 49 54 2D DA BB 48 4C 45 52 00 9D 1E A0 00 5A 45 |IT-..HLER.....ZE|
00000270: 52 4F 20 20 20 20 B2 20 24 36 43 20 20 20 20 20 |RO . $6C |
00000280: 20 20 20 20 20 20 3B 20 22 32 2D C2 59 54 45 2D | ; "2-.YTE-|
00000290: C1 52 42 45 49 54 53 5A 45 49 47 45 52 00 E1 1E |.RBEITSZEIGER...|
000002A0: AA 00 C3 47 54 48 20 20 B2 20 24 37 30 20 20 20 |...GTH . $70 |
000002B0: 20 20 20 20 20 20 20 20 3B 20 22 CC BB 4E 47 45 | ; "..NGE|
000002C0: 20 44 45 52 20 44 41 52 5A 55 53 54 45 4C 4C 45 | DER DARZUSTELLE|
000002D0: 4E 44 45 4E 20 DA 45 49 43 48 45 4E 4B 45 54 54 |NDEN .EICHENKETT|
000002E0: 45 00 2B 1F B4 00 B9 49 20 20 20 20 B2 20 24 37 |E.+....I . $7|
000002F0: 31 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 DA |1 ; ".|
00000300: 45 49 47 45 52 20 41 55 46 20 41 4B 54 2E 20 C2 |EIGER AUF AKT. .|
00000310: 55 43 48 53 54 41 42 45 4E 20 49 2E 44 2E 20 DA |UCHSTABEN I.D. .|
00000320: 45 49 43 48 45 4E 4B 45 54 54 45 00 6B 1F BE 00 |EICHENKETTE.k...|
00000330: 52 56 53 46 4C 41 47 20 B2 20 24 46 33 20 20 20 |RVSFLAG . $F3 |
00000340: 20 20 20 20 20 20 20 20 3B 20 22 C6 4C 41 47 20 | ; ".LAG |
00000350: 46 BD 52 20 49 4E 56 45 52 54 49 45 52 54 45 20 |F.R INVERTIERTE |
00000360: C4 41 52 53 54 45 4C 4C 55 4E 47 00 B0 1F C8 00 |.ARSTELLUNG.....|
00000370: 58 B9 20 20 20 20 B2 20 24 31 31 36 30 20 20 20 |X. . $1160 |
00000380: 20 20 20 20 20 20 3B 20 22 52 45 4C 41 54 49 56 | ; "RELATIV|
00000390: 45 20 D0 4F 53 49 54 49 4F 4E 20 44 45 53 20 C2 |E .OSITION DES .|
000003A0: 55 43 48 53 54 41 42 45 4E 43 55 52 53 4F 52 53 |UCHSTABENCURSORS|
000003B0: 00 E5 1F D2 00 59 B9 20 20 20 20 B2 20 24 31 31 |.....Y. . $11|
000003C0: 36 32 20 20 20 20 20 20 20 20 20 3B 20 22 5A 55 |62 ; "ZU|
000003D0: 4D 20 C1 55 53 47 41 4E 47 53 50 55 4E 4B 54 20 |M .USGANGSPUNKT |
000003E0: 28 58 2F 59 29 00 EB 1F DC 00 3B 00 06 20 E6 00 |(X/Y).....;.. ..|
000003F0: 3B 20 22 2A 2A 2A 20 CB 4F 4E 53 54 41 4E 54 45 |; "*** .ONSTANTE|
00000400: 4E 20 2A 2A 2A 22 00 0C 20 F0 00 3B 00 56 20 FA |N ***".. ..;.V .|
00000410: 00 43 45 4E 54 52 58 20 20 B2 20 34 20 20 20 20 |.CENTRX . 4 |
00000420: 20 20 20 20 20 20 20 20 20 3B 20 22 DA 45 4E 54 | ; ".ENT|
00000430: 52 49 45 52 55 4E 47 3A 20 C1 42 53 54 41 4E 44 |RIERUNG: .BSTAND|
00000440: 20 44 45 53 20 CD 49 54 54 45 4C 50 55 4E 4B 54 | DES .ITTELPUNKT|
00000450: 45 53 20 56 4F 4E 00 8A 20 04 01 43 45 4E 54 52 |ES VON.. ..CENTR|
00000460: 59 20 20 B2 20 34 20 20 20 20 20 20 20 20 20 20 |Y . 4 |
00000470: 20 20 20 3B 20 22 44 45 4E 20 C5 43 4B 50 55 4E | ; "DEN .CKPUN|
00000480: 4B 54 45 4E 20 28 58 2F 59 29 00 D9 20 0E 01 43 |KTEN (X/Y).. ..C|
00000490: 48 52 52 4F 4D 20 20 B2 20 24 44 30 30 30 20 20 |HRROM . $D000 |
000004A0: 20 20 20 20 20 20 20 3B 20 22 C1 4E 46 41 4E 47 | ; ".NFANG|
000004B0: 20 44 45 53 20 C3 48 41 52 41 43 54 45 52 2D D2 | DES .HARACTER-.|
000004C0: CF CD 53 2C 20 C7 52 4F BE 2D 2F C7 52 41 50 48 |..S, .RO.-/.RAPH|
000004D0: 49 4B 53 43 48 52 49 46 54 00 26 21 18 01 43 48 |IKSCHRIFT.&!..CH|
000004E0: 52 52 4F 4D 32 20 B2 20 24 44 38 30 30 20 20 20 |RROM2 . $D800 |
000004F0: 20 20 20 20 20 20 3B 20 22 C1 4E 46 41 4E 47 20 | ; ".NFANG |
00000500: 44 45 53 20 C3 48 41 52 41 43 54 45 52 2D D2 CF |DES .HARACTER-..|
00000510: CD 53 2C 20 C7 52 4F BE 2D 2F CB 4C 45 49 4E 53 |.S, .RO.-/.LEINS|
00000520: 43 48 52 49 46 54 00 2C 21 22 01 3B 00 52 21 2C |CHRIFT.,!".;.R!,|
00000530: 01 3B 20 22 2A 2A 2A 20 D5 4E 54 45 52 50 52 4F |.; "*** .NTERPRO|
00000540: 47 52 41 4D 4D 41 44 52 45 53 53 45 4E 20 2A 2A |GRAMMADRESSEN **|
00000550: 2A 22 00 58 21 36 01 3B 00 95 21 40 01 52 4F 54 |*".X!6.;..!@.ROT|
00000560: 41 54 45 20 20 B2 20 24 31 33 39 45 20 20 20 20 |ATE . $139E |
00000570: 20 20 20 20 20 3B 20 22 C4 52 45 48 55 4E 47 20 | ; ".REHUNG |
00000580: 41 55 53 46 BD 48 52 45 4E 20 28 D5 D0 20 53 2E |AUSF.HREN (.. S.|
00000590: 55 2E 20 21 29 00 DF 21 4A 01 53 45 54 50 4E 54 |U. !)..!J.SETPNT|
000005A0: 20 20 B2 20 24 31 34 30 30 20 20 20 20 20 20 20 | . $1400 |
000005B0: 20 20 3B 20 22 D0 55 4E 4B 54 20 53 45 54 5A 45 | ; ".UNKT SETZE|
000005C0: 4E 2F 20 4C BC 53 43 48 45 4E 20 28 D5 D0 20 49 |N/ L.SCHEN (.. I|
000005D0: 4E 20 27 C7 52 41 50 48 49 4B 2D 38 30 27 29 00 |N '.RAPHIK-80').|
000005E0: 1F 22 54 01 43 48 52 4F 4C 44 20 20 B2 20 24 36 |."T.CHROLD . $6|
000005F0: 37 44 37 20 20 20 20 20 20 20 20 20 3B 20 22 27 |7D7 ; "'|
00000600: 41 4C 54 45 52 27 20 C3 C8 C1 D2 2D C2 45 46 45 |ALTER' ....-.EFE|
00000610: 48 4C 20 49 4D 20 C2 C1 D3 C9 C3 2D D2 CF CD 00 |HL IM .....-....|
00000620: 4F 22 5E 01 43 48 4B 43 4F 4D 20 20 B2 20 24 37 |O"^.CHKCOM . $7|
00000630: 39 35 43 20 20 20 20 20 20 20 20 20 3B 20 22 50 |95C ; "P|
00000640: 52 BD 46 45 4E 2C 20 4F 42 20 CB 4F 4D 4D 41 00 |R.FEN, OB .OMMA.|
00000650: 90 22 68 01 46 45 54 56 41 52 20 20 B2 20 24 38 |."h.FETVAR . $8|
00000660: 37 37 42 20 20 20 20 20 20 20 20 20 3B 20 22 C1 |77B ; ".|
00000670: 44 52 45 53 53 45 20 44 45 52 20 DA 45 49 43 48 |DRESSE DER .EICH|
00000680: 45 4E 4B 45 54 54 45 20 4E 41 43 48 20 24 36 34 |ENKETTE NACH $64|
00000690: 00 BA 22 72 01 46 45 C0 47 20 20 B2 20 24 39 45 |.."r.FE.G . $9E|
000006A0: 30 36 20 20 20 20 20 20 20 20 20 3B 20 22 D7 49 |06 ; ".I|
000006B0: 4E 4B 45 4C 20 48 4F 4C 45 4E 00 ED 22 7C 01 46 |NKEL HOLEN.."|.F|
000006C0: 45 54 43 4F 4C 20 20 B2 20 24 39 45 33 32 20 20 |ETCOL . $9E32 |
000006D0: 20 20 20 20 20 20 20 3B 20 22 C6 41 52 42 50 41 | ; ".ARBPA|
000006E0: 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E 00 1D 23 |RAMETER HOLEN..#|
000006F0: 86 01 46 45 54 43 B0 20 20 B2 20 24 39 45 35 32 |..FETC. . $9E52|
00000700: 20 20 20 20 20 20 20 20 20 3B 20 22 CB 4F 4F 52 | ; ".OOR|
00000710: 44 49 4E 41 54 45 4E 20 48 4F 4C 45 4E 00 66 23 |DINATEN HOLEN.f#|
00000720: 90 01 46 45 54 56 44 43 20 20 B2 20 24 43 44 44 |..FETVDC . $CDD|
00000730: 41 20 20 20 20 20 20 20 20 20 3B 20 22 C9 4E 48 |A ; ".NH|
00000740: 41 4C 54 20 44 45 53 20 38 35 36 33 28 D6 C4 C3 |ALT DES 8563(...|
00000750: 29 2D D2 45 47 49 53 54 45 52 53 20 49 4E 20 D8 |)-.EGISTERS IN .|
00000760: 20 48 4F 4C 45 4E 00 6C 23 9A 01 3B 00 79 23 A4 | HOLEN.l#..;.y#.|
00000770: 01 AC B2 20 24 31 41 42 37 00 7F 23 E8 03 3B 00 |... $1AB7..#..;.|
00000780: C4 23 F2 03 3B 20 22 20 2A 2A 2A 20 27 C8 41 55 |.#..; " *** '.AU|
00000790: 50 54 53 43 48 4C 45 49 46 45 27 3A 20 C1 55 53 |PTSCHLEIFE': .US|
000007A0: 57 45 52 54 55 4E 47 20 44 45 53 20 C2 C1 D3 C9 |WERTUNG DES ....|
000007B0: C3 2D C2 45 46 45 48 4C 53 20 C3 C8 C1 D2 20 2A |.-.EFEHLS .... *|
000007C0: 2A 2A 20 22 00 CA 23 FC 03 3B 00 DF 23 06 04 AE |** "..#..;..#...|
000007D0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 00 | LDA #$00.|
000007E0: 10 24 10 04 AE 20 20 20 20 20 20 20 53 54 41 20 |.$... STA |
000007F0: 24 46 46 30 30 20 20 20 20 20 3B 20 22 D2 CF CD |$FF00 ; "...|
00000800: 2B C9 2F CF 20 45 49 4E 53 43 48 41 4C 54 45 4E |+./. EINSCHALTEN|
00000810: 00 25 24 1A 04 AE 20 20 20 20 20 20 20 4C 44 58 |.%$... LDX|
00000820: 20 23 24 31 39 00 67 24 24 04 AE 20 20 20 20 20 | #$19.g$$.. |
00000830: 20 20 4A 53 52 20 46 45 54 56 44 43 20 20 20 20 | JSR FETVDC |
00000840: 3B 20 22 C9 4E 48 41 4C 54 20 44 45 53 20 D2 45 |; ".NHALT DES .E|
00000850: 47 49 53 54 45 52 53 20 32 35 20 49 4D 20 D6 C4 |GISTERS 25 IM ..|
00000860: C3 20 48 4F 4C 45 4E 00 A7 24 2E 04 AE 20 20 20 |. HOLEN..$... |
00000870: 20 20 20 20 42 4D 49 20 43 48 52 A2 20 20 20 20 | BMI CHR. |
00000880: 3B 20 22 C7 52 41 50 48 49 4B 4D 4F 44 55 53 2C |; ".RAPHIKMODUS,|
00000890: 20 44 41 4E 4E 20 4E 45 55 45 20 C3 C8 C1 D2 2D | DANN NEUE ....-|
000008A0: D2 4F 55 54 49 4E 45 00 EB 24 38 04 AE 20 20 20 |.OUTINE..$8.. |
000008B0: 20 20 20 20 4A 4D 50 20 43 48 52 4F 4C 44 20 20 | JMP CHROLD |
000008C0: 20 20 3B 20 22 D4 45 58 54 4D 4F 44 55 53 2C 20 | ; ".EXTMODUS, |
000008D0: 44 41 4E 4E 20 27 4E 4F 52 4D 41 4C 45 27 20 C3 |DANN 'NORMALE' .|
000008E0: C8 C1 D2 2D D2 4F 55 54 49 4E 45 00 1A 25 42 04 |...-.OUTINE..%B.|
000008F0: 43 48 52 A2 20 20 4A 53 52 20 46 45 54 43 4F 4C |CHR. JSR FETCOL|
00000900: 20 20 20 20 3B 20 22 C6 41 52 42 50 41 52 41 4D | ; ".ARBPARAM|
00000910: 45 54 45 52 20 48 4F 4C 45 4E 00 2F 25 4C 04 AE |ETER HOLEN./%L..|
00000920: 20 20 20 20 20 20 20 4C 44 58 20 23 24 31 46 00 | LDX #$1F.|
00000930: 6D 25 56 04 AE 20 20 20 20 20 20 20 4A 53 52 20 |m%V.. JSR |
00000940: 46 45 54 43 B0 20 20 20 20 3B 20 22 CB 4F 4F 52 |FETC. ; ".OOR|
00000950: 44 49 4E 41 54 45 4E 20 4E 41 43 48 20 24 31 31 |DINATEN NACH $11|
00000960: 35 30 2D 31 31 35 33 20 48 4F 4C 45 4E 00 93 25 |50-1153 HOLEN..%|
00000970: 60 04 AE 20 20 20 20 20 20 20 4A 53 52 20 46 45 |`.. JSR FE|
00000980: C0 47 20 20 20 20 3B 20 22 C4 52 45 48 57 49 4E |.G ; ".REHWIN|
00000990: 4B 45 4C 00 C4 25 6A 04 AE 20 20 20 20 20 20 20 |KEL..%j.. |
000009A0: 53 54 59 20 24 31 31 35 43 20 20 20 20 20 3B 20 |STY $115C ; |
000009B0: 22 4E 41 43 48 20 24 31 31 35 43 2F 35 44 20 48 |"NACH $115C/5D H|
000009C0: 4F 4C 45 4E 00 DA 25 74 04 AE 20 20 20 20 20 20 |OLEN..%t.. |
000009D0: 20 53 54 41 20 24 31 31 35 44 00 EF 25 7E 04 AE | STA $115D..%~..|
000009E0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 00 | LDA #$00.|
000009F0: 04 26 88 04 AE 20 20 20 20 20 20 20 4C 44 58 20 |.&... LDX |
00000A00: 23 24 30 37 00 42 26 92 04 4C 45 45 52 20 20 20 |#$07.B&..LEER |
00000A10: 20 53 54 41 20 58 B9 2C 58 20 20 20 20 3B 20 22 | STA X.,X ; "|
00000A20: C2 45 52 45 49 43 48 20 56 4F 4E 20 24 31 31 36 |.EREICH VON $116|
00000A30: 30 20 42 49 53 20 31 31 36 37 20 4C BC 53 43 48 |0 BIS 1167 L.SCH|
00000A40: 45 4E 00 52 26 9C 04 AE 20 20 20 20 20 20 20 44 |EN.R&... D|
00000A50: 45 58 00 67 26 A6 04 AE 20 20 20 20 20 20 20 42 |EX.g&... B|
00000A60: 50 4C 20 4C 45 45 52 00 B1 26 B0 04 AE 20 20 20 |PL LEER..&... |
00000A70: 20 20 20 20 53 54 41 20 B9 49 20 20 20 20 20 20 | STA .I |
00000A80: 3B 20 22 DA 45 49 47 45 52 20 41 4B 54 2E 20 D0 |; ".EIGER AKT. .|
00000A90: 4F 53 49 54 49 4F 4E 20 49 4E 20 44 45 52 20 DA |OSITION IN DER .|
00000AA0: 45 49 43 48 45 4E 4B 45 54 54 45 20 41 55 46 20 |EICHENKETTE AUF |
00000AB0: 30 00 DF 26 BA 04 AE 20 20 20 20 20 20 20 4A 53 |0..&... JS|
00000AC0: 52 20 43 48 4B 43 4F 4D 20 20 20 20 3B 20 22 41 |R CHKCOM ; "A|
00000AD0: 55 46 20 CB 4F 4D 4D 41 20 54 45 53 54 45 4E 00 |UF .OMMA TESTEN.|
00000AE0: 1B 27 C4 04 AE 20 20 20 20 20 20 20 4A 53 52 20 |.'... JSR |
00000AF0: 46 45 54 56 41 52 20 20 20 20 3B 20 22 C1 44 52 |FETVAR ; ".DR|
00000B00: 45 53 53 45 20 44 45 52 20 DA 45 49 43 48 45 4E |ESSE DER .EICHEN|
00000B10: 4B 45 54 54 45 20 48 4F 4C 45 4E 00 43 27 CE 04 |KETTE HOLEN.C'..|
00000B20: AE 20 20 20 20 20 20 20 53 54 41 20 C3 47 54 48 |. STA .GTH|
00000B30: 20 20 20 20 3B 20 22 CC BB 4E 47 45 20 4D 45 52 | ; "..NGE MER|
00000B40: 4B 45 4E 00 7F 27 D8 04 43 48 52 4F 4B 20 20 20 |KEN..'..CHROK |
00000B50: 4C 44 59 20 B9 49 20 20 20 20 20 20 3B 20 22 41 |LDY .I ; "A|
00000B60: 4B 54 2E 20 DA 45 49 43 48 45 4E 20 49 4E 20 44 |KT. .EICHEN IN D|
00000B70: 45 52 20 DA 45 49 43 48 45 4E 4B 45 54 54 45 00 |ER .EICHENKETTE.|
00000B80: A5 27 E2 04 AE 20 20 20 20 20 20 20 43 50 59 20 |.'... CPY |
00000B90: C3 47 54 48 20 20 20 20 3B 20 22 53 43 48 4F 4E |.GTH ; "SCHON|
00000BA0: 20 C5 4E 44 45 00 D7 27 EC 04 AE 20 20 20 20 20 | .NDE..'... |
00000BB0: 20 20 42 45 51 20 46 45 52 54 49 47 20 20 20 20 | BEQ FERTIG |
00000BC0: 3B 20 22 4A 41 20 3D 3E 20 D2 4F 55 54 49 4E 45 |; "JA => .OUTINE|
00000BD0: 20 46 45 52 54 49 47 00 EC 27 F6 04 AE 20 20 20 | FERTIG..'... |
00000BE0: 20 20 20 20 4C 44 41 20 23 24 37 46 00 1C 28 00 | LDA #$7F..(.|
00000BF0: 05 AE 20 20 20 20 20 20 20 53 54 41 20 24 46 46 |.. STA $FF|
00000C00: 30 30 20 20 20 20 20 3B 20 22 C2 41 4E 4B 20 31 |00 ; ".ANK 1|
00000C10: 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 4F 28 0A | EINSCHALTEN.O(.|
00000C20: 05 AE 20 20 20 20 20 20 20 4C 44 41 20 28 56 41 |.. LDA (VA|
00000C30: 52 41 44 52 29 2C 59 3B 20 22 4E 45 49 4E 20 3D |RADR),Y; "NEIN =|
00000C40: 3E 20 DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 |> .EICHEN HOLEN.|
00000C50: 64 28 14 05 AE 20 20 20 20 20 20 20 4C 44 58 20 |d(... LDX |
00000C60: 23 24 30 30 00 95 28 1E 05 AE 20 20 20 20 20 20 |#$00..(... |
00000C70: 20 53 54 58 20 24 46 46 30 30 20 20 20 20 20 3B | STX $FF00 ;|
00000C80: 20 22 C2 41 4E 4B 20 31 35 20 45 49 4E 53 43 48 | ".ANK 15 EINSCH|
00000C90: 41 4C 54 45 4E 00 CE 28 28 05 AE 20 20 20 20 20 |ALTEN..((.. |
00000CA0: 20 20 4A 53 52 20 43 48 52 30 20 20 20 20 20 20 | JSR CHR0 |
00000CB0: 3B 20 22 DA 45 49 43 48 45 4E 20 41 55 53 57 45 |; ".EICHEN AUSWE|
00000CC0: 52 54 45 4E 2F 20 41 55 53 47 45 42 45 4E 00 FC |RTEN/ AUSGEBEN..|
00000CD0: 28 32 05 AE 20 20 20 20 20 20 20 49 4E 43 20 B9 |(2.. INC .|
00000CE0: 49 20 20 20 20 20 20 3B 20 22 45 49 4E 20 DA 45 |I ; "EIN .E|
00000CF0: 49 43 48 45 4E 20 57 45 49 54 45 52 00 28 29 3C |ICHEN WEITER.()<|
00000D00: 05 AE 20 20 20 20 20 20 20 42 4E 45 20 43 48 52 |.. BNE CHR|
00000D10: 4F 4B 20 20 20 20 20 3B 20 22 D3 43 48 4C 45 49 |OK ; ".CHLEI|
00000D20: 46 45 20 2D 2D 2D 2D 3E 00 38 29 46 05 46 45 52 |FE ---->.8)F.FER|
00000D30: 54 49 47 20 20 52 54 53 00 3E 29 50 05 3B 00 70 |TIG RTS.>)P.;.p|
00000D40: 29 5A 05 3B 20 22 20 2A 2A 2A 20 DA 45 49 43 48 |)Z.; " *** .EICH|
00000D50: 45 4E 20 41 55 53 47 45 42 45 4E 20 4F 44 45 52 |EN AUSGEBEN ODER|
00000D60: 20 41 55 53 57 45 52 54 45 4E 20 2A 2A 2A 20 22 | AUSWERTEN *** "|
00000D70: 00 76 29 64 05 3B 00 A8 29 6E 05 43 48 52 30 20 |.v)d.;..)n.CHR0 |
00000D80: 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 20 | TAY |
00000D90: 20 20 3B 20 22 DA 45 49 43 48 45 4E 20 49 4E 20 | ; ".EICHEN IN |
00000DA0: D9 20 4D 45 52 4B 45 4E 00 F8 29 78 05 AE 20 20 |. MERKEN..)x.. |
00000DB0: 20 20 20 20 20 43 4D 50 20 23 22 12 22 20 20 20 | CMP #"." |
00000DC0: 20 20 20 20 3B 20 22 C9 53 54 20 DA 45 49 43 48 | ; ".ST .EICH|
00000DD0: 45 4E 20 56 4F 4E 20 C3 C8 C1 D2 20 56 45 52 57 |EN VON .... VERW|
00000DE0: 45 52 54 42 41 52 45 53 20 D3 54 45 55 45 52 5A |ERTBARES .TEUERZ|
00000DF0: 45 49 43 48 45 4E 20 3F 00 0E 2A 82 05 AE 20 20 |EICHEN ?..*... |
00000E00: 20 20 20 20 20 42 4E 45 20 49 4E 53 54 32 00 40 | BNE INST2.@|
00000E10: 2A 8C 05 AE 20 20 20 20 20 20 20 4C 44 41 20 23 |*... LDA #|
00000E20: 24 30 34 20 20 20 20 20 20 20 3B 20 22 D2 45 56 |$04 ; ".EV|
00000E30: 45 52 53 45 2D C6 4C 41 47 20 53 45 54 5A 45 4E |ERSE-.LAG SETZEN|
00000E40: 00 57 2A 96 05 AE 20 20 20 20 20 20 20 42 4E 45 |.W*... BNE|
00000E50: 20 49 4E 53 54 32 41 00 6C 2A A0 05 49 4E 53 54 | INST2A.l*..INST|
00000E60: 32 20 20 20 43 4D 50 20 23 22 92 22 00 82 2A AA |2 CMP #"."..*.|
00000E70: 05 AE 20 20 20 20 20 20 20 42 4E 45 20 49 4E 53 |.. BNE INS|
00000E80: 54 33 00 B5 2A B4 05 AE 20 20 20 20 20 20 20 4C |T3..*... L|
00000E90: 44 41 20 23 24 30 30 20 20 20 20 20 20 20 3B 20 |DA #$00 ; |
00000EA0: 22 D2 45 56 45 52 53 45 2D C6 4C 41 47 20 4C BC |".EVERSE-.LAG L.|
00000EB0: 53 43 48 45 4E 00 CD 2A BE 05 49 4E 53 54 32 41 |SCHEN..*..INST2A|
00000EC0: 20 20 53 54 41 20 52 56 53 46 4C 41 47 00 DD 2A | STA RVSFLAG..*|
00000ED0: C8 05 AE 20 20 20 20 20 20 20 52 54 53 00 0D 2B |... RTS..+|
00000EE0: D2 05 49 4E 53 54 33 20 20 20 43 4D 50 20 23 22 |..INST3 CMP #"|
00000EF0: 91 22 20 20 20 20 20 20 20 3B 20 22 C8 41 4C 42 |." ; ".ALB|
00000F00: 53 43 48 52 49 54 54 20 48 BC 48 45 52 00 23 2B |SCHRITT H.HER.#+|
00000F10: DC 05 AE 20 20 20 20 20 20 20 42 4E 45 20 49 4E |... BNE IN|
00000F20: 53 54 34 00 33 2B E6 05 48 4F 43 48 20 20 20 20 |ST4.3+..HOCH |
00000F30: 53 45 43 00 46 2B F0 05 AE 20 20 20 20 20 20 20 |SEC.F+... |
00000F40: 4C 44 41 20 59 B9 00 94 2B FA 05 AE 20 20 20 20 |LDA Y...+... |
00000F50: 20 20 20 53 42 43 20 23 43 45 4E 54 52 59 20 20 | SBC #CENTRY |
00000F60: 20 20 3B 20 22 C8 41 4C 42 53 43 48 52 49 54 54 | ; ".ALBSCHRITT|
00000F70: 20 48 BC 48 45 52 20 3D 20 41 4B 54 2E 20 59 2D | H.HER = AKT. Y-|
00000F80: D0 4F 53 2E 2D 31 2F 32 2A DA 45 49 43 48 45 4E |.OS.-1/2*.EICHEN|
00000F90: 48 BC 48 45 00 A7 2B 04 06 AE 20 20 20 20 20 20 |H.HE..+... |
00000FA0: 20 53 54 41 20 59 B9 00 BD 2B 0E 06 AE 20 20 20 | STA Y...+... |
00000FB0: 20 20 20 20 42 43 53 20 48 4F 43 48 31 00 D2 2B | BCS HOCH1..+|
00000FC0: 18 06 AE 20 20 20 20 20 20 20 44 45 43 20 59 B9 |... DEC Y.|
00000FD0: AA 31 00 E2 2B 22 06 48 4F 43 48 31 20 20 20 52 |.1..+".HOCH1 R|
00000FE0: 54 53 00 13 2C 2C 06 49 4E 53 54 34 20 20 20 43 |TS..,,.INST4 C|
00000FF0: 4D 50 20 23 22 11 22 20 20 20 20 20 20 20 3B 20 |MP #"." ; |
00001000: 22 C8 41 4C 42 53 43 48 52 49 54 54 20 54 49 45 |".ALBSCHRITT TIE|
00001010: 46 45 52 00 28 2C 36 06 AE 20 20 20 20 20 20 20 |FER.(,6.. |
00001020: 42 4E 45 20 43 4F 44 45 00 38 2C 40 06 54 49 45 |BNE CODE.8,@.TIE|
00001030: 46 20 20 20 20 43 4C 43 00 4B 2C 4A 06 AE 20 20 |F CLC.K,J.. |
00001040: 20 20 20 20 20 4C 44 41 20 59 B9 00 9A 2C 54 06 | LDA Y...,T.|
00001050: AE 20 20 20 20 20 20 20 41 44 43 20 23 43 45 4E |. ADC #CEN|
00001060: 54 52 59 20 20 20 20 3B 20 22 C8 41 4C 42 53 43 |TRY ; ".ALBSC|
00001070: 48 52 49 54 54 20 54 49 45 46 45 52 20 3D 20 41 |HRITT TIEFER = A|
00001080: 4B 54 2E 20 59 2D D0 4F 53 2E 2B 31 2F 32 2A DA |KT. Y-.OS.+1/2*.|
00001090: 45 49 43 48 45 4E 48 BC 48 45 00 AD 2C 5E 06 AE |EICHENH.HE..,^..|
000010A0: 20 20 20 20 20 20 20 53 54 41 20 59 B9 00 C3 2C | STA Y...,|
000010B0: 68 06 AE 20 20 20 20 20 20 20 42 43 43 20 54 49 |h.. BCC TI|
000010C0: 45 46 31 00 D8 2C 72 06 AE 20 20 20 20 20 20 20 |EF1..,r.. |
000010D0: 49 4E 43 20 59 B9 AA 31 00 E8 2C 7C 06 54 49 45 |INC Y..1..,|.TIE|
000010E0: 46 31 20 20 20 52 54 53 00 EE 2C 86 06 3B 00 2E |F1 RTS..,..;..|
000010F0: 2D 90 06 3B 20 22 20 2A 2A 2A 20 DA 45 49 43 48 |-..; " *** .EICH|
00001100: 45 4E 20 56 4F 4E 20 D3 54 52 49 4E 47 2D 20 49 |EN VON .TRING- I|
00001110: 4E 20 C2 49 4C 44 53 43 48 49 52 4D 43 4F 44 45 |N .ILDSCHIRMCODE|
00001120: 20 57 41 4E 44 45 4C 4E 20 2A 2A 2A 20 22 00 34 | WANDELN *** ".4|
00001130: 2D 9A 06 3B 00 70 2D A4 06 43 4F 44 45 20 20 20 |-..;.p-..CODE |
00001140: 20 AF 20 23 24 37 46 20 20 20 20 20 20 20 3B 20 | . #$7F ; |
00001150: 22 C3 4F 44 45 20 31 32 38 2D 32 35 35 20 4E 41 |".ODE 128-255 NA|
00001160: 43 48 20 30 2D 31 32 37 20 57 41 4E 44 45 4C 4E |CH 0-127 WANDELN|
00001170: 00 A3 2D AE 06 AE 20 20 20 20 20 20 20 43 4D 50 |..-... CMP|
00001180: 20 23 22 20 22 20 20 20 20 20 20 20 3B 20 22 44 | #" " ; "D|
00001190: 52 55 43 4B 42 41 52 45 53 20 DA 45 49 43 48 45 |RUCKBARES .EICHE|
000011A0: 4E 20 3F 00 D3 2D B8 06 AE 20 20 20 20 20 20 20 |N ?..-... |
000011B0: 42 43 43 20 46 45 52 54 49 47 20 20 20 20 20 3B |BCC FERTIG ;|
000011C0: 20 22 4E 45 49 4E 2C 20 44 41 4E 4E 20 46 45 52 | "NEIN, DANN FER|
000011D0: 54 49 47 00 F9 2D C2 06 AE 20 20 20 20 20 20 20 |TIG..-... |
000011E0: 54 59 41 20 20 20 20 20 20 20 20 20 20 20 20 3B |TYA ;|
000011F0: 20 22 DA 45 49 43 48 45 4E 00 28 2E CC 06 AE 20 | ".EICHEN.(.... |
00001200: 20 20 20 20 20 20 43 4D 50 20 23 24 38 30 20 20 | CMP #$80 |
00001210: 20 20 20 20 20 3B 20 22 47 52 BC BE 45 52 20 41 | ; "GR..ER A|
00001220: 4C 53 20 31 32 37 20 3F 00 4D 2E D6 06 AE 20 20 |LS 127 ?.M.... |
00001230: 20 20 20 20 20 42 43 53 20 43 48 52 39 39 20 20 | BCS CHR99 |
00001240: 20 20 20 20 3B 20 22 4A 41 20 2D 2D 3E 00 7C 2E | ; "JA -->.|.|
00001250: E0 06 AE 20 20 20 20 20 20 20 43 4D 50 20 23 24 |... CMP #$|
00001260: 36 30 20 20 20 20 20 20 20 3B 20 22 4B 4C 45 49 |60 ; "KLEI|
00001270: 4E 45 52 20 41 4C 53 20 39 36 20 3F 00 A1 2E EA |NER ALS 96 ?....|
00001280: 06 AE 20 20 20 20 20 20 20 42 43 43 20 43 48 52 |.. BCC CHR|
00001290: 39 37 20 20 20 20 20 20 3B 20 22 4A 41 20 2D 2D |97 ; "JA --|
000012A0: 3E 00 DF 2E F4 06 AE 20 20 20 20 20 20 20 AF 20 |>...... . |
000012B0: 23 25 31 31 30 31 31 31 31 31 20 3B 20 22 DA 45 |#%11011111 ; ".E|
000012C0: 49 43 48 45 4E 20 39 36 2D 31 32 37 20 4E 41 43 |ICHEN 96-127 NAC|
000012D0: 48 20 36 34 2D 39 35 20 57 41 4E 44 45 4C 4E 00 |H 64-95 WANDELN.|
000012E0: 03 2F FE 06 AE 20 20 20 20 20 20 20 42 43 53 20 |./... BCS |
000012F0: 43 48 52 39 38 20 20 20 20 20 20 3B 20 22 49 4D |CHR98 ; "IM|
00001300: 4D 45 52 00 4E 2F 08 07 43 48 52 39 37 20 20 20 |MER.N/..CHR97 |
00001310: AF 20 23 25 31 30 31 31 31 31 31 31 20 3B 20 22 |. #%10111111 ; "|
00001320: DA 45 49 43 48 45 4E 20 36 34 2D 39 35 20 4E 41 |.EICHEN 64-95 NA|
00001330: 43 48 20 30 2D 33 31 20 57 41 4E 44 45 4C 4E 2C |CH 0-31 WANDELN,|
00001340: 20 DA 45 49 43 48 45 4E 20 33 32 2D 36 33 00 92 | .EICHEN 32-63..|
00001350: 2F 12 07 AE 20 20 20 20 20 20 20 42 43 43 20 43 |/... BCC C|
00001360: 48 52 39 38 20 20 20 20 20 20 3B 20 22 42 4C 45 |HR98 ; "BLE|
00001370: 49 42 45 4E 20 55 4E 56 45 52 BB 4E 44 45 52 54 |IBEN UNVER.NDERT|
00001380: 2C 20 57 45 49 54 45 52 20 42 45 49 20 43 48 52 |, WEITER BEI CHR|
00001390: 39 38 00 DE 2F 1C 07 43 48 52 39 39 20 20 20 AF |98../..CHR99 .|
000013A0: 20 23 25 30 31 31 31 31 31 31 31 20 3B 20 22 DA | #%01111111 ; ".|
000013B0: 45 49 43 48 45 4E 20 31 39 32 2D 32 32 33 20 4E |EICHEN 192-223 N|
000013C0: 41 43 48 20 36 34 2D 39 35 2C 20 31 36 30 2D 31 |ACH 64-95, 160-1|
000013D0: 39 31 20 55 4E 44 20 32 32 34 2D 32 35 35 00 0F |91 UND 224-255..|
000013E0: 30 26 07 AE 20 20 20 20 20 20 20 B0 41 20 23 25 |0&.. .A #%|
000013F0: 30 31 30 30 30 30 30 30 20 3B 20 22 4E 41 43 48 |01000000 ; "NACH|
00001400: 20 39 36 2D 31 32 37 20 57 41 4E 44 45 4C 4E 00 | 96-127 WANDELN.|
00001410: 55 30 30 07 43 48 52 39 38 20 20 20 4C 44 58 20 |U00.CHR98 LDX |
00001420: 23 24 30 30 20 20 20 20 20 20 20 3B 20 22 C3 C8 |#$00 ; "..|
00001430: C1 D2 D2 CF CD 2D C1 44 52 45 53 53 45 20 44 45 |.....-.DRESSE DE|
00001440: 53 20 DA 45 49 43 48 45 4E 53 20 45 52 52 45 43 |S .EICHENS ERREC|
00001450: 48 4E 45 4E 3A 00 7C 30 3A 07 AE 20 20 20 20 20 |HNEN:.|0:.. |
00001460: 20 20 4C 44 59 20 23 24 30 33 20 20 20 20 20 20 | LDY #$03 |
00001470: 20 3B 20 22 C3 4F 44 45 20 2A 20 38 00 91 30 44 | ; ".ODE * 8..0D|
00001480: 07 AE 20 20 20 20 20 20 20 53 54 41 20 5A 45 52 |.. STA ZER|
00001490: 4F 00 A8 30 4E 07 AE 20 20 20 20 20 20 20 53 54 |O..0N.. ST|
000014A0: 58 20 5A 45 52 4F AA 31 00 E0 30 58 07 43 48 52 |X ZERO.1..0X.CHR|
000014B0: 30 31 20 20 20 41 53 4C 20 5A 45 52 4F 20 20 20 |01 ASL ZERO |
000014C0: 20 20 20 20 3B 20 22 33 20 4D 41 4C 20 4E 41 43 | ; "3 MAL NAC|
000014D0: 48 20 4C 49 4E 4B 53 20 53 43 48 49 45 42 45 4E |H LINKS SCHIEBEN|
000014E0: 00 15 31 62 07 AE 20 20 20 20 20 20 20 52 4F 4C |..1b.. ROL|
000014F0: 20 5A 45 52 4F AA 31 20 20 20 20 20 3B 20 22 45 | ZERO.1 ; "E|
00001500: 4E 54 53 50 52 49 43 48 54 20 5A 45 52 4F 3D 5A |NTSPRICHT ZERO=Z|
00001510: 45 52 4F 2A 38 00 25 31 6C 07 AE 20 20 20 20 20 |ERO*8.%1l.. |
00001520: 20 20 44 45 59 00 3B 31 76 07 AE 20 20 20 20 20 | DEY.;1v.. |
00001530: 20 20 42 4E 45 20 43 48 52 30 31 00 4B 31 80 07 | BNE CHR01.K1..|
00001540: AE 20 20 20 20 20 20 20 43 4C 43 00 60 31 8A 07 |. CLC.`1..|
00001550: AE 20 20 20 20 20 20 20 4C 44 41 20 5A 45 52 4F |. LDA ZERO|
00001560: 00 A1 31 94 07 AE 20 20 20 20 20 20 20 41 44 43 |..1... ADC|
00001570: 20 23 B3 43 48 52 52 4F 4D 20 20 20 3B 20 22 5A | #.CHRROM ; "Z|
00001580: 55 52 20 C3 C8 C1 D2 2D D2 CF CD 2D D3 54 41 52 |UR ....-...-.TAR|
00001590: 54 41 44 52 45 53 53 45 20 41 44 44 49 45 52 45 |TADRESSE ADDIERE|
000015A0: 4E 00 E1 31 9E 07 AE 20 20 20 20 20 20 20 53 54 |N..1... ST|
000015B0: 41 20 5A 45 52 4F 20 20 20 20 20 20 20 3B 20 22 |A ZERO ; "|
000015C0: 41 4C 53 20 DA 45 49 47 45 52 20 49 4E 20 44 45 |ALS .EIGER IN DE|
000015D0: 52 20 DA 45 52 4F 50 41 47 45 20 4D 45 52 4B 45 |R .EROPAGE MERKE|
000015E0: 4E 00 F8 31 A8 07 AE 20 20 20 20 20 20 20 4C 44 |N..1... LD|
000015F0: 41 20 5A 45 52 4F AA 31 00 24 32 B2 07 AE 20 20 |A ZERO.1.$2... |
00001600: 20 20 20 20 20 4C 44 58 20 24 46 31 20 20 20 20 | LDX $F1 |
00001610: 20 20 20 20 3B 20 22 C1 54 54 52 49 42 55 54 2D | ; ".TTRIBUT-|
00001620: C6 4C 41 47 00 71 32 BC 07 AE 20 20 20 20 20 20 |.LAG.q2... |
00001630: 20 42 4D 49 20 55 50 4C 4F 57 20 20 20 20 20 20 | BMI UPLOW |
00001640: 3B 20 22 C2 49 54 20 37 20 47 45 53 45 54 5A 54 |; ".IT 7 GESETZT|
00001650: 2C 20 57 45 4E 4E 20 C7 52 4F BE 2D 2F CB 4C 45 |, WENN .RO.-/.LE|
00001660: 49 4E 53 43 48 52 49 46 54 20 47 45 57 BB 48 4C |INSCHRIFT GEW.HL|
00001670: 54 00 BF 32 C6 07 AE 20 20 20 20 20 20 20 41 44 |T..2... AD|
00001680: 43 20 23 B1 43 48 52 52 4F 4D 20 20 20 3B 20 22 |C #.CHRROM ; "|
00001690: 48 49 47 48 2D C2 59 54 45 20 44 45 52 20 C3 C8 |HIGH-.YTE DER ..|
000016A0: C1 D2 D2 CF CD 2D C1 44 52 45 53 53 45 20 46 BD |.....-.DRESSE F.|
000016B0: 52 20 C7 52 4F BE 2D 2F C7 52 41 50 48 49 4B 00 |R .RO.-/.RAPHIK.|
000016C0: D4 32 D0 07 AE 20 20 20 20 20 20 20 2E 42 59 54 |.2... .BYT|
000016D0: 20 24 32 43 00 20 33 DA 07 55 50 4C 4F 57 20 20 | $2C. 3..UPLOW |
000016E0: 20 41 44 43 20 23 B1 43 48 52 52 4F 4D 32 20 20 | ADC #.CHRROM2 |
000016F0: 3B 20 22 48 49 47 48 2D C2 59 54 45 20 44 45 52 |; "HIGH-.YTE DER|
00001700: 20 C3 C8 C1 D2 D2 CF CD 2D C1 44 52 45 53 53 45 | .......-.DRESSE|
00001710: 20 46 BD 52 20 C7 52 4F BE 2D 2F CB 4C 45 49 4E | F.R .RO.-/.LEIN|
00001720: 00 6C 33 E4 07 AE 20 20 20 20 20 20 20 41 44 43 |.l3... ADC|
00001730: 20 52 56 53 46 4C 41 47 20 20 20 20 3B 20 22 57 | RVSFLAG ; "W|
00001740: 45 4E 4E 20 D2 45 56 45 52 53 45 2D CD 4F 44 55 |ENN .EVERSE-.ODU|
00001750: 53 20 45 49 4E 47 45 53 43 48 41 4C 54 45 54 2C |S EINGESCHALTET,|
00001760: 20 4E 4F 43 48 20 34 20 44 41 5A 55 00 83 33 EE | NOCH 4 DAZU..3.|
00001770: 07 AE 20 20 20 20 20 20 20 53 54 41 20 5A 45 52 |.. STA ZER|
00001780: 4F AA 31 00 9A 33 F8 07 AE 20 20 20 20 20 20 20 |O.1..3... |
00001790: 4A 53 52 20 43 48 52 41 44 44 00 E5 33 02 08 AE |JSR CHRADD..3...|
000017A0: 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 31 20 | LDX #$01 |
000017B0: 20 20 20 20 20 20 3B 20 22 C2 59 54 45 53 20 44 | ; ".YTES D|
000017C0: 45 53 20 47 45 57 BD 4E 53 43 48 54 45 4E 20 DA |ES GEW.NSCHTEN .|
000017D0: 45 49 43 48 45 4E 53 20 41 55 53 20 D2 CF CD 20 |EICHENS AUS ... |
000017E0: 48 4F 4C 45 4E 00 18 34 0C 08 AE 20 20 20 20 20 |HOLEN..4... |
000017F0: 20 20 53 54 58 20 24 46 46 30 30 20 20 20 20 20 | STX $FF00 |
00001800: 20 3B 20 22 C3 C8 C1 D2 2D D2 CF CD 20 45 49 4E | ; "....-... EIN|
00001810: 53 43 48 41 4C 54 45 4E 00 44 34 16 08 AE 20 20 |SCHALTEN.D4... |
00001820: 20 20 20 20 20 4C 44 59 20 23 37 20 20 20 20 20 | LDY #7 |
00001830: 20 20 20 20 3B 20 22 38 20 C2 59 54 45 53 20 48 | ; "8 .YTES H|
00001840: 4F 4C 45 4E 00 70 34 20 08 43 48 52 31 20 20 20 |OLEN.p4 .CHR1 |
00001850: 20 4C 44 41 20 28 5A 45 52 4F 29 2C 59 20 20 20 | LDA (ZERO),Y |
00001860: 3B 20 22 55 4E 44 20 41 55 46 20 D3 54 41 43 4B |; "UND AUF .TACK|
00001870: 00 97 34 2A 08 AE 20 20 20 20 20 20 20 50 48 41 |..4*.. PHA|
00001880: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 53 | ; "S|
00001890: 43 48 49 45 42 45 4E 00 A7 34 34 08 AE 20 20 20 |CHIEBEN..44.. |
000018A0: 20 20 20 20 44 45 59 00 BC 34 3E 08 AE 20 20 20 | DEY..4>.. |
000018B0: 20 20 20 20 42 50 4C 20 43 48 52 31 00 F8 34 48 | BPL CHR1..4H|
000018C0: 08 AE 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 |.. LDX #$0|
000018D0: 30 20 20 20 20 20 20 20 3B 20 22 41 4C 54 45 20 |0 ; "ALTE |
000018E0: D2 C1 CD 2D CB 4F 4E 46 49 47 55 52 41 54 49 4F |...-.ONFIGURATIO|
000018F0: 4E 20 5A 55 52 BD 43 4B 00 0E 35 52 08 AE 20 20 |N ZUR.CK..5R.. |
00001900: 20 20 20 20 20 53 54 58 20 24 46 46 30 30 00 21 | STX $FF00.!|
00001910: 35 5C 08 AE 20 20 20 20 20 20 20 4C 44 58 20 23 |5\.. LDX #|
00001920: 38 00 53 35 66 08 AE 20 20 20 20 20 20 20 53 54 |8.S5f.. ST|
00001930: 58 20 43 4E 54 42 59 54 20 20 20 20 20 3B 20 22 |X CNTBYT ; "|
00001940: C2 59 54 45 2D DA BB 48 4C 45 52 20 38 20 C2 59 |.YTE-..HLER 8 .Y|
00001950: 54 45 53 00 7E 35 70 08 43 48 52 32 20 20 20 20 |TES.~5p.CHR2 |
00001960: 53 54 58 20 42 49 54 53 20 20 20 20 20 20 20 3B |STX BITS ;|
00001970: 20 22 5A 55 20 4A 45 20 38 20 C2 49 54 53 00 AE | "ZU JE 8 .ITS..|
00001980: 35 7A 08 43 48 52 33 20 20 20 20 50 4C 41 20 20 |5z.CHR3 PLA |
00001990: 20 20 20 20 20 20 20 20 20 20 3B 20 22 41 55 53 | ; "AUS|
000019A0: 5A 55 47 45 42 45 4E 44 45 53 20 C2 49 54 00 E0 |ZUGEBENDES .IT..|
000019B0: 35 84 08 AE 20 20 20 20 20 20 20 52 4F 4C 20 20 |5... ROL |
000019C0: 20 20 20 20 20 20 20 20 20 20 3B 20 22 49 4E 53 | ; "INS|
000019D0: 20 43 41 52 52 59 2D C2 49 54 20 48 4F 4C 45 4E | CARRY-.IT HOLEN|
000019E0: 00 F0 35 8E 08 AE 20 20 20 20 20 20 20 50 48 41 |..5... PHA|
000019F0: 00 28 36 98 08 AE 20 20 20 20 20 20 20 42 43 43 |.(6... BCC|
00001A00: 20 43 48 52 33 41 20 20 20 20 20 20 3B 20 22 27 | CHR3A ; "'|
00001A10: CC 45 45 52 2D D0 55 4E 4B 54 27 20 BD 42 45 52 |.EER-.UNKT' .BER|
00001A20: 53 50 52 49 4E 47 45 4E 00 58 36 A2 08 AE 20 20 |SPRINGEN.X6... |
00001A30: 20 20 20 20 20 4A 53 52 20 52 4F 54 41 54 45 20 | JSR ROTATE |
00001A40: 20 20 20 20 3B 20 22 C4 52 45 48 55 4E 47 20 41 | ; ".REHUNG A|
00001A50: 55 53 46 BD 48 52 45 4E 00 8C 36 AC 08 AE 20 20 |USF.HREN..6... |
00001A60: 20 20 20 20 20 4A 53 52 20 53 45 54 50 4E 54 20 | JSR SETPNT |
00001A70: 20 20 20 20 3B 20 22 D0 55 4E 4B 54 20 53 45 54 | ; ".UNKT SET|
00001A80: 5A 45 4E 2F 20 4C BC 53 43 48 45 4E 00 9F 36 B6 |ZEN/ L.SCHEN..6.|
00001A90: 08 43 48 52 33 41 20 20 20 49 4E 43 20 58 B9 00 |.CHR3A INC X..|
00001AA0: B4 36 C0 08 AE 20 20 20 20 20 20 20 42 4E 45 20 |.6... BNE |
00001AB0: 43 48 52 34 00 C9 36 CA 08 AE 20 20 20 20 20 20 |CHR4..6... |
00001AC0: 20 49 4E 43 20 58 B9 AA 31 00 DE 36 D4 08 43 48 | INC X..1..6..CH|
00001AD0: 52 34 20 20 20 20 44 45 43 20 42 49 54 53 00 F3 |R4 DEC BITS..|
00001AE0: 36 DE 08 AE 20 20 20 20 20 20 20 42 4E 45 20 43 |6... BNE C|
00001AF0: 48 52 33 00 03 37 E8 08 AE 20 20 20 20 20 20 20 |HR3..7... |
00001B00: 43 4C 43 00 18 37 F2 08 AE 20 20 20 20 20 20 20 |CLC..7... |
00001B10: 4C 44 41 20 23 24 30 31 00 52 37 FC 08 AE 20 20 |LDA #$01.R7... |
00001B20: 20 20 20 20 20 41 44 43 20 59 B9 20 20 20 20 20 | ADC Y. |
00001B30: 20 20 3B 20 22 4E BB 43 48 53 54 45 53 20 C2 59 | ; "N.CHSTES .Y|
00001B40: 54 45 20 C1 20 DA 45 49 4C 45 4E 20 54 49 45 46 |TE . .EILEN TIEF|
00001B50: 45 52 00 65 37 06 09 AE 20 20 20 20 20 20 20 53 |ER.e7... S|
00001B60: 54 41 20 59 B9 00 7A 37 10 09 AE 20 20 20 20 20 |TA Y..z7... |
00001B70: 20 20 42 43 43 20 43 48 52 39 00 8F 37 1A 09 AE | BCC CHR9..7...|
00001B80: 20 20 20 20 20 20 20 49 4E 43 20 59 B9 AA 31 00 | INC Y..1.|
00001B90: C1 37 24 09 43 48 52 39 20 20 20 20 50 4C 41 20 |.7$.CHR9 PLA |
00001BA0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 41 42 | ; "AB|
00001BB0: 47 45 41 52 42 45 49 54 45 54 45 53 20 C2 59 54 |GEARBEITETES .YT|
00001BC0: 45 00 FD 37 2E 09 AE 20 20 20 20 20 20 20 53 45 |E..7... SE|
00001BD0: 43 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 |C ; "|
00001BE0: 58 2D CB 4F 4F 52 44 49 4E 41 54 45 20 57 49 45 |X-.OORDINATE WIE|
00001BF0: 44 45 52 48 45 52 53 54 45 4C 4C 45 4E 00 10 38 |DERHERSTELLEN..8|
00001C00: 38 09 AE 20 20 20 20 20 20 20 4C 44 41 20 58 B9 |8.. LDA X.|
00001C10: 00 23 38 42 09 AE 20 20 20 20 20 20 20 53 42 43 |.#8B.. SBC|
00001C20: 20 23 38 00 36 38 4C 09 AE 20 20 20 20 20 20 20 | #8.68L.. |
00001C30: 53 54 41 20 58 B9 00 4C 38 56 09 AE 20 20 20 20 |STA X..L8V.. |
00001C40: 20 20 20 42 43 53 20 43 48 52 31 31 00 61 38 60 | BCS CHR11.a8`|
00001C50: 09 AE 20 20 20 20 20 20 20 44 45 43 20 58 B9 AA |.. DEC X..|
00001C60: 31 00 94 38 6A 09 43 48 52 31 31 20 20 20 4C 44 |1..8j.CHR11 LD|
00001C70: 58 20 23 38 20 20 20 20 20 20 20 20 20 3B 20 22 |X #8 ; "|
00001C80: 42 49 54 2D DA BB 48 4C 45 52 20 4E 45 55 20 4C |BIT-..HLER NEU L|
00001C90: 41 44 45 4E 00 CA 38 74 09 AE 20 20 20 20 20 20 |ADEN..8t.. |
00001CA0: 20 44 45 43 20 43 4E 54 42 59 54 20 20 20 20 20 | DEC CNTBYT |
00001CB0: 3B 20 22 C2 59 54 45 2D DA BB 48 4C 45 52 20 45 |; ".YTE-..HLER E|
00001CC0: 52 4E 49 45 44 52 49 47 45 4E 00 DF 38 7E 09 AE |RNIEDRIGEN..8~..|
00001CD0: 20 20 20 20 20 20 20 42 4E 45 20 43 48 52 32 00 | BNE CHR2.|
00001CE0: 0E 39 88 09 AE 20 20 20 20 20 20 20 53 45 43 20 |.9... SEC |
00001CF0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 C2 55 | ; ".U|
00001D00: 43 48 53 54 41 42 45 4E 43 55 52 53 4F 52 00 49 |CHSTABENCURSOR.I|
00001D10: 39 92 09 AE 20 20 20 20 20 20 20 4C 44 41 20 59 |9... LDA Y|
00001D20: B9 20 20 20 20 20 20 20 3B 20 22 41 55 46 20 CD |. ; "AUF .|
00001D30: 49 54 54 45 4C 50 55 4E 4B 54 20 5A 55 52 BD 43 |ITTELPUNKT ZUR.C|
00001D40: 4B 53 54 45 4C 4C 45 4E 3A 00 75 39 9C 09 AE 20 |KSTELLEN:.u9... |
00001D50: 20 20 20 20 20 20 53 42 43 20 23 24 30 34 20 20 | SBC #$04 |
00001D60: 20 20 20 20 20 3B 20 22 31 2E 20 59 2D D2 49 43 | ; "1. Y-.IC|
00001D70: 48 54 55 4E 47 00 88 39 A6 09 AE 20 20 20 20 20 |HTUNG..9... |
00001D80: 20 20 53 54 41 20 59 B9 00 9E 39 B0 09 AE 20 20 | STA Y...9... |
00001D90: 20 20 20 20 20 42 43 53 20 43 48 52 31 30 00 B3 | BCS CHR10..|
00001DA0: 39 BA 09 AE 20 20 20 20 20 20 20 44 45 43 20 59 |9... DEC Y|
00001DB0: B9 AA 31 00 C3 39 C4 09 43 48 52 31 30 20 20 20 |..1..9..CHR10 |
00001DC0: 43 4C 43 00 D6 39 CE 09 AE 20 20 20 20 20 20 20 |CLC..9... |
00001DD0: 4C 44 41 20 58 B9 00 02 3A D8 09 AE 20 20 20 20 |LDA X...:... |
00001DE0: 20 20 20 41 44 43 20 23 43 45 4E 54 52 58 AA 38 | ADC #CENTRX.8|
00001DF0: 20 20 3B 20 22 32 2E 20 58 2D D2 49 43 48 54 55 | ; "2. X-.ICHTU|
00001E00: 4E 47 00 40 3A E2 09 AE 20 20 20 20 20 20 20 53 |NG.@:... S|
00001E10: 54 41 20 58 B9 20 20 20 20 20 20 20 3B 20 22 CD |TA X. ; ".|
00001E20: 49 54 54 45 4C 50 55 4E 4B 54 20 44 45 53 20 4E |ITTELPUNKT DES N|
00001E30: BB 43 48 53 54 45 4E 20 DA 45 49 43 48 45 4E 53 |.CHSTEN .EICHENS|
00001E40: 00 56 3A EC 09 AE 20 20 20 20 20 20 20 42 43 43 |.V:... BCC|
00001E50: 20 43 48 52 31 32 00 6B 3A F6 09 AE 20 20 20 20 | CHR12.k:... |
00001E60: 20 20 20 49 4E 43 20 58 B9 AA 31 00 7B 3A 00 0A | INC X..1.{:..|
00001E70: 43 48 52 31 32 20 20 20 52 54 53 00 81 3A 0A 0A |CHR12 RTS..:..|
00001E80: 3B 00 91 3A 14 0A 43 48 52 41 44 44 20 20 53 45 |;..:..CHRADD SE|
00001E90: 43 00 A4 3A 1E 0A AE 20 20 20 20 20 20 20 4C 44 |C..:... LD|
00001EA0: 41 20 58 B9 00 D9 3A 28 0A AE 20 20 20 20 20 20 |A X...:(.. |
00001EB0: 20 53 42 43 20 23 43 45 4E 54 52 58 20 20 20 20 | SBC #CENTRX |
00001EC0: 3B 20 22 CF 46 46 53 45 54 20 5A 55 52 20 DA 45 |; ".FFSET ZUR .E|
00001ED0: 4E 54 52 49 45 52 55 4E 47 00 FE 3A 32 0A AE 20 |NTRIERUNG..:2.. |
00001EE0: 20 20 20 20 20 20 53 54 41 20 58 B9 20 20 20 20 | STA X. |
00001EF0: 20 20 20 3B 20 22 41 42 5A 49 45 48 45 4E 00 16 | ; "ABZIEHEN..|
00001F00: 3B 3C 0A AE 20 20 20 20 20 20 20 42 43 53 20 43 |;<.. BCS C|
00001F10: 48 52 41 44 44 31 00 2B 3B 46 0A AE 20 20 20 20 |HRADD1.+;F.. |
00001F20: 20 20 20 44 45 43 20 58 B9 AA 31 00 40 3B 50 0A | DEC X..1.@;P.|
00001F30: 43 48 52 41 44 44 31 20 4A 4D 50 20 48 4F 43 48 |CHRADD1 JMP HOCH|
00001F40: 00 46 3B 5A 0A 3B 00 4D 3B 64 0A 2E 80 00 53 3B |.F;Z.;.M;d....S;|
00001F50: A0 0F 3A 00 90 3B AA 0F 8F 20 22 20 2A 2A 2A 20 |..:..;... " *** |
00001F60: D5 D0 20 CB 4F 4F 52 44 49 4E 41 54 45 4E 54 52 |.. .OORDINATENTR|
00001F70: 41 4E 53 46 4F 52 4D 41 54 49 4F 4E 20 28 24 31 |ANSFORMATION ($1|
00001F80: 33 39 45 2D 24 31 33 46 46 29 20 2A 2A 2A 20 22 |39E-$13FF) *** "|
00001F90: 00 96 3B B4 0F 3A 00 9E 3B BE 0F A0 20 32 00 B0 |..;..:..;... 2..|
00001FA0: 3B C8 0F 4E 24 B2 22 52 4F 54 41 54 45 2E 4D 22 |;..N$."ROTATE.M"|
00001FB0: 00 CA 3B D2 0F 98 31 35 2C 22 53 30 3A 22 AA 4E |..;...15,"S0:".N|
00001FC0: 24 3A 20 8D 20 36 30 31 30 30 00 E9 3B DC 0F 9F |$: . 60100..;...|
00001FD0: 20 32 2C 38 2C 32 2C 4E 24 AA 22 2C 50 2C 57 22 | 2,8,2,N$.",P,W"|
00001FE0: 3A 20 8D 20 36 30 31 30 30 00 EF 3B E6 0F 3A 00 |: . 60100..;..:.|
00001FF0: FC 3B F0 0F 9E 20 39 AC 34 30 39 36 00 08 3C FA |.;... 9.4096..<.|
00002000: 0F 2E 4F 50 54 20 4F 32 00 15 3C 04 10 AC B2 20 |..OPT O2..<.... |
00002010: 24 31 33 39 45 00 1B 3C 0E 10 3B 00 42 3C 18 10 |$139E..<..;.B<..|
00002020: 3B 20 22 20 2A 2A 2A 20 D5 4E 54 45 52 50 52 4F |; " *** .NTERPRO|
00002030: 47 52 41 4D 4D 41 44 52 45 53 53 45 4E 20 2A 2A |GRAMMADRESSEN **|
00002040: 2A 22 00 48 3C 22 10 3B 00 93 3C 2C 10 BF 55 53 |*".H<".;..<,..US|
00002050: 20 20 20 B2 20 24 39 41 37 34 20 20 3B 20 22 D3 | . $9A74 ; ".|
00002060: 49 4E 55 53 20 55 4E 44 20 C3 4F 53 49 4E 55 53 |INUS UND .OSINUS|
00002070: 20 44 45 53 20 D7 49 4E 4B 45 4C 53 20 49 4E 20 | DES .INKELS IN |
00002080: 28 24 31 31 33 31 2B D9 29 20 42 45 52 45 43 48 |($1131+.) BERECH|
00002090: 4E 45 4E 00 E1 3C 36 10 4D 55 4C 54 49 20 20 20 |NEN..<6.MULTI |
000020A0: B2 20 24 39 41 46 33 20 20 3B 20 22 CB 4F 4F 52 |. $9AF3 ; ".OOR|
000020B0: 44 49 4E 41 54 45 4E 20 49 4E 20 24 31 31 35 34 |DINATEN IN $1154|
000020C0: 2D 24 31 31 35 42 20 4D 49 54 20 53 49 4E 2F 43 |-$115B MIT SIN/C|
000020D0: 4F 53 20 4D 55 4C 54 49 50 4C 49 5A 49 45 52 45 |OS MULTIPLIZIERE|
000020E0: 4E 00 26 3D 40 10 41 44 44 20 20 20 20 20 B2 20 |N.&=@.ADD . |
000020F0: 24 39 44 36 44 20 20 3B 20 22 CB 4F 4F 52 44 2E |$9D6D ; ".OORD.|
00002100: 20 28 24 31 31 33 31 2B D9 29 20 50 4C 55 53 20 | ($1131+.) PLUS |
00002110: 28 24 31 31 33 31 2B D8 29 20 47 4C 45 49 43 48 |($1131+.) GLEICH|
00002120: 20 28 C1 2C D9 29 00 67 3D 4A 10 41 44 44 32 20 | (.,.).g=J.ADD2 |
00002130: 20 20 20 B2 20 24 39 44 37 30 20 20 3B 20 22 CB | . $9D70 ; ".|
00002140: 4F 4F 52 44 2E 20 28 C1 2C D9 29 20 50 4C 55 53 |OORD. (.,.) PLUS|
00002150: 20 28 24 31 31 33 31 2B D8 29 20 47 4C 45 49 43 | ($1131+.) GLEIC|
00002160: 48 20 28 C1 2C D9 29 00 AD 3D 54 10 53 55 42 54 |H (.,.)..=T.SUBT|
00002170: 52 20 20 20 B2 20 24 39 44 37 43 20 20 3B 20 22 |R . $9D7C ; "|
00002180: 28 C1 2C D9 29 20 47 4C 45 49 43 48 20 CB 4F 4F |(.,.) GLEICH .OO|
00002190: 52 44 2E 20 28 24 31 31 33 31 2B D9 29 20 4D 49 |RD. ($1131+.) MI|
000021A0: 4E 55 53 20 28 24 31 31 33 31 2B D8 29 00 DA 3D |NUS ($1131+.)..=|
000021B0: 5E 10 44 49 56 49 44 45 20 20 B2 20 24 39 44 41 |^.DIVIDE . $9DA|
000021C0: 45 20 20 3B 20 22 28 24 31 31 33 31 2B 58 29 2A |E ; "($1131+X)*|
000021D0: 28 C1 2C D9 29 2F 32 5E 31 36 00 E0 3D 68 10 3B |(.,.)/2^16..=h.;|
000021E0: 00 E6 3D 72 10 3B 00 30 3E 7C 10 AE 20 20 20 20 |..=r.;.0>|.. |
000021F0: 20 20 20 4C 44 59 20 23 24 32 42 20 20 20 20 20 | LDY #$2B |
00002200: 20 20 20 3B 20 22 53 49 4E 20 55 2E 43 4F 53 20 | ; "SIN U.COS |
00002210: 44 45 53 20 D7 49 4E 4B 45 4C 53 20 49 4E 20 24 |DES .INKELS IN $|
00002220: 31 31 35 43 2F 44 20 42 45 52 45 43 48 4E 45 4E |115C/D BERECHNEN|
00002230: 00 79 3E 86 10 AE 20 20 20 20 20 20 20 4A 53 52 |.y>... JSR|
00002240: 20 BF 55 53 20 20 20 20 20 20 20 3B 20 22 55 4E | .US ; "UN|
00002250: 44 20 49 4E 20 24 31 31 34 41 2F 42 20 28 53 49 |D IN $114A/B (SI|
00002260: 4E 29 2C 20 24 31 31 34 43 2F 44 20 28 43 4F 53 |N), $114C/D (COS|
00002270: 29 20 41 42 4C 45 47 45 4E 00 8E 3E 90 10 AE 20 |) ABLEGEN..>... |
00002280: 20 20 20 20 20 20 4C 44 58 20 23 24 30 33 00 A6 | LDX #$03..|
00002290: 3E 9A 10 4B 4F 50 49 45 52 20 20 4C 44 41 20 24 |>..KOPIER LDA $|
000022A0: 31 31 36 30 2C 58 00 EB 3E A4 10 AE 20 20 20 20 |1160,X..>... |
000022B0: 20 20 20 53 54 41 20 24 31 31 35 34 2C 58 20 20 | STA $1154,X |
000022C0: 20 20 20 3B 20 22 44 49 45 20 52 45 4C 2E 20 CB | ; "DIE REL. .|
000022D0: 4F 4F 52 44 49 4E 41 54 45 4E 20 58 20 28 24 31 |OORDINATEN X ($1|
000022E0: 31 36 30 2F 36 31 29 20 55 4E 44 00 30 3F AE 10 |160/61) UND.0?..|
000022F0: AE 20 20 20 20 20 20 20 53 54 41 20 24 31 31 35 |. STA $115|
00002300: 38 2C 58 20 20 20 20 20 3B 20 22 59 20 28 24 31 |8,X ; "Y ($1|
00002310: 31 36 32 2F 36 33 29 20 49 4E 20 24 31 31 35 34 |162/63) IN $1154|
00002320: 2F 35 35 20 55 4E 44 20 24 31 31 35 38 2F 35 39 |/55 UND $1158/59|
00002330: 00 6A 3F B8 10 AE 20 20 20 20 20 20 20 44 45 58 |.j?... DEX|
00002340: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 | ; "|
00002350: 42 5A 57 2E 20 24 31 31 35 36 2F 35 37 20 55 4E |BZW. $1156/57 UN|
00002360: 44 20 24 31 31 35 41 2F 35 42 00 95 3F C2 10 AE |D $115A/5B..?...|
00002370: 20 20 20 20 20 20 20 42 50 4C 20 4B 4F 50 49 45 | BPL KOPIE|
00002380: 52 20 20 20 20 20 20 3B 20 22 41 42 53 50 45 49 |R ; "ABSPEI|
00002390: 43 48 45 52 4E 00 DD 3F CC 10 AE 20 20 20 20 20 |CHERN..?... |
000023A0: 20 20 4C 44 41 20 23 25 31 30 30 31 30 30 30 30 | LDA #%10010000|
000023B0: 20 20 3B 20 22 C6 4C 41 47 3A 20 30 20 53 49 4E | ; ".LAG: 0 SIN|
000023C0: 55 53 2C 20 31 20 43 4F 53 49 4E 55 53 2C 20 C2 |US, 1 COSINUS, .|
000023D0: 49 54 20 37 2D 34 20 47 BD 4C 54 49 47 00 7C 40 |IT 7-4 G.LTIG.|@|
000023E0: D6 10 AE 20 20 20 20 20 20 20 4A 53 52 20 4D 55 |... JSR MU|
000023F0: 4C 54 49 20 20 20 20 20 20 20 3B 20 22 44 49 45 |LTI ; "DIE|
00002400: 20 34 20 CB 4F 4F 52 44 2E 20 49 4E 20 24 31 31 | 4 .OORD. IN $11|
00002410: 35 34 2D 31 31 35 42 20 45 4E 54 53 50 52 2E 20 |54-115B ENTSPR. |
00002420: 44 45 4D 20 C6 4C 41 47 20 49 4E 20 C1 20 20 20 |DEM .LAG IN . |
00002430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002440: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 49 54 | MIT|
00002450: 20 53 49 4E 2F 43 4F 53 20 4D 55 4C 54 49 50 4C | SIN/COS MULTIPL|
00002460: 2E 55 2E C5 52 47 45 42 2E 49 4E 20 24 31 31 35 |.U..RGEB.IN $115|
00002470: 34 2D 35 42 20 41 42 4C 45 47 45 4E 00 B6 40 E0 |4-5B ABLEGEN..@.|
00002480: 10 AE 20 20 20 20 20 20 20 41 53 4C 20 24 31 31 |.. ASL $11|
00002490: 35 34 20 20 20 20 20 20 20 3B 20 22 58 2D C1 4E |54 ; "X-.N|
000024A0: 54 45 49 4C 20 56 4F 4E 20 28 58 20 4E 45 55 29 |TEIL VON (X NEU)|
000024B0: 20 4D 41 4C 20 32 00 CC 40 EA 10 AE 20 20 20 20 | MAL 2..@... |
000024C0: 20 20 20 52 4F 4C 20 24 31 31 35 35 00 06 41 F4 | ROL $1155..A.|
000024D0: 10 AE 20 20 20 20 20 20 20 41 53 4C 20 24 31 31 |.. ASL $11|
000024E0: 35 36 20 20 20 20 20 20 20 3B 20 22 59 2D C1 4E |56 ; "Y-.N|
000024F0: 54 45 49 4C 20 56 4F 4E 20 28 58 20 4E 45 55 29 |TEIL VON (X NEU)|
00002500: 20 4D 41 4C 20 32 00 1C 41 FE 10 AE 20 20 20 20 | MAL 2..A... |
00002510: 20 20 20 52 4F 4C 20 24 31 31 35 37 00 5A 41 08 | ROL $1157.ZA.|
00002520: 11 AE 20 20 20 20 20 20 20 4C 44 58 20 23 24 32 |.. LDX #$2|
00002530: 37 20 20 20 20 20 20 20 20 3B 20 22 58 2D C1 4E |7 ; "X-.N|
00002540: 54 45 49 4C 20 56 4F 4E 20 28 59 20 4E 45 55 29 |TEIL VON (Y NEU)|
00002550: 20 4D 41 4C 20 30 2C 38 37 34 00 6F 41 12 11 AE | MAL 0,874.oA...|
00002560: 20 20 20 20 20 20 20 4C 44 59 20 23 24 44 46 00 | LDY #$DF.|
00002570: 85 41 1C 11 AE 20 20 20 20 20 20 20 4A 53 52 20 |.A... JSR |
00002580: 4B B0 52 49 47 00 D0 41 26 11 AE 20 20 20 20 20 |K.RIG..A&.. |
00002590: 20 20 4C 44 59 20 23 24 45 46 20 20 20 20 20 20 | LDY #$EF |
000025A0: 20 20 3B 20 22 56 45 52 44 4F 50 50 45 4C 54 45 | ; "VERDOPPELTE|
000025B0: 4E 20 58 2D C1 4E 54 45 49 4C 20 56 4F 4E 20 28 |N X-.NTEIL VON (|
000025C0: 58 20 4E 45 55 29 20 4D 41 4C 20 30 2C 39 33 37 |X NEU) MAL 0,937|
000025D0: 00 E5 41 30 11 AE 20 20 20 20 20 20 20 4C 44 58 |..A0.. LDX|
000025E0: 20 23 24 32 33 00 2C 42 3A 11 AE 20 20 20 20 20 | #$23.,B:.. |
000025F0: 20 20 4A 53 52 20 4B B0 52 49 47 20 20 20 20 20 | JSR K.RIG |
00002600: 20 3B 20 22 45 52 47 49 42 54 20 27 C7 45 53 41 | ; "ERGIBT '.ESA|
00002610: 4D 54 4B 4F 52 52 45 4B 54 55 52 46 41 4B 54 4F |MTKORREKTURFAKTO|
00002620: 52 27 20 56 4F 4E 20 31 2C 38 37 33 00 41 42 44 |R' VON 1,873.ABD|
00002630: 11 AE 20 20 20 20 20 20 20 4C 44 59 20 23 24 32 |.. LDY #$2|
00002640: 35 00 7C 42 4E 11 AE 20 20 20 20 20 20 20 4A 53 |5.|BN.. JS|
00002650: 52 20 41 44 44 20 20 20 20 20 20 20 20 20 3B 20 |R ADD ; |
00002660: 22 24 31 31 35 36 2F 35 37 20 2B 20 24 31 31 35 |"$1156/57 + $115|
00002670: 34 2F 35 35 20 3D 20 28 C1 2C D9 29 00 91 42 58 |4/55 = (.,.)..BX|
00002680: 11 AE 20 20 20 20 20 20 20 4C 44 58 20 23 24 31 |.. LDX #$1|
00002690: 46 00 C9 42 62 11 AE 20 20 20 20 20 20 20 4A 53 |F..Bb.. JS|
000026A0: 52 20 41 44 44 32 20 20 20 20 20 20 20 20 3B 20 |R ADD2 ; |
000026B0: 22 28 C1 2C D9 29 20 2B 20 24 31 31 35 30 2F 35 |"(.,.) + $1150/5|
000026C0: 31 20 3D 20 28 C1 2C D9 29 00 0F 43 6C 11 AE 20 |1 = (.,.)..Cl.. |
000026D0: 20 20 20 20 20 20 53 54 41 20 24 31 31 33 31 20 | STA $1131 |
000026E0: 20 20 20 20 20 20 3B 20 22 41 4C 53 20 58 2D CB | ; "ALS X-.|
000026F0: 4F 4F 52 44 49 4E 41 54 45 20 46 BD 52 20 27 53 |OORDINATE F.R 'S|
00002700: 45 54 50 4F 49 4E 54 27 20 4D 45 52 4B 45 4E 00 |ETPOINT' MERKEN.|
00002710: 25 43 76 11 AE 20 20 20 20 20 20 20 53 54 59 20 |%Cv.. STY |
00002720: 24 31 31 33 32 00 3A 43 80 11 AE 20 20 20 20 20 |$1132.:C... |
00002730: 20 20 4C 44 58 20 23 24 32 37 00 4F 43 8A 11 AE | LDX #$27.OC...|
00002740: 20 20 20 20 20 20 20 4C 44 59 20 23 24 32 39 00 | LDY #$29.|
00002750: 8A 43 94 11 AE 20 20 20 20 20 20 20 4A 53 52 20 |.C... JSR |
00002760: 53 55 42 54 52 20 20 20 20 20 20 20 3B 20 22 24 |SUBTR ; "$|
00002770: 31 31 35 41 2F 35 42 20 2D 20 24 31 31 35 38 2F |115A/5B - $1158/|
00002780: 35 39 20 3D 20 28 C1 2C D9 29 00 9F 43 9E 11 AE |59 = (.,.)..C...|
00002790: 20 20 20 20 20 20 20 4C 44 58 20 23 24 32 31 00 | LDX #$21.|
000027A0: D7 43 A8 11 AE 20 20 20 20 20 20 20 4A 53 52 20 |.C... JSR |
000027B0: 41 44 44 32 20 20 20 20 20 20 20 20 3B 20 22 28 |ADD2 ; "(|
000027C0: C1 2C D9 29 20 2B 20 24 31 31 35 32 2F 35 33 20 |.,.) + $1152/53 |
000027D0: 3D 20 28 C1 2C D9 29 00 1D 44 B2 11 AE 20 20 20 |= (.,.)..D... |
000027E0: 20 20 20 20 53 54 41 20 24 31 31 33 33 20 20 20 | STA $1133 |
000027F0: 20 20 20 20 3B 20 22 41 4C 53 20 59 2D CB 4F 4F | ; "ALS Y-.OO|
00002800: 52 44 49 4E 41 54 45 20 46 BD 52 20 27 53 45 54 |RDINATE F.R 'SET|
00002810: 50 4F 49 4E 54 27 20 4D 45 52 4B 45 4E 00 33 44 |POINT' MERKEN.3D|
00002820: BC 11 AE 20 20 20 20 20 20 20 53 54 59 20 24 31 |... STY $1|
00002830: 31 33 34 00 43 44 C6 11 AE 20 20 20 20 20 20 20 |134.CD... |
00002840: 52 54 53 00 49 44 D0 11 3B 00 8B 44 DA 11 4B B0 |RTS.ID..;..D..K.|
00002850: 52 49 47 20 20 4C 44 41 20 23 24 43 30 20 20 20 |RIG LDA #$C0 |
00002860: 20 20 20 20 20 3B 20 22 4C 4F 57 2D C2 59 54 45 | ; "LOW-.YTE|
00002870: 20 44 45 53 20 CD 55 4C 54 49 50 4C 49 4B 41 54 | DES .ULTIPLIKAT|
00002880: 49 4F 4E 53 46 41 4B 54 4F 52 53 00 D7 44 E4 11 |IONSFAKTORS..D..|
00002890: AE 20 20 20 20 20 20 20 4A 53 52 20 44 49 56 49 |. JSR DIVI|
000028A0: 44 45 20 20 20 20 20 20 3B 20 22 48 49 47 48 2D |DE ; "HIGH-|
000028B0: C2 59 54 45 20 49 4E 20 D9 2C 20 44 49 45 20 31 |.YTE IN ., DIE 1|
000028C0: 36 2D C2 49 54 2D DA 41 48 4C 20 49 4E 20 28 24 |6-.IT-.AHL IN ($|
000028D0: 31 31 33 31 2B D8 29 00 23 45 EE 11 AE 20 20 20 |1131+.).#E... |
000028E0: 20 20 20 20 53 54 41 20 24 31 31 33 31 2C 58 20 | STA $1131,X |
000028F0: 20 20 20 20 3B 20 22 57 49 52 44 20 4D 55 4C 54 | ; "WIRD MULT|
00002900: 49 50 4C 49 5A 49 45 52 54 2C 20 44 41 53 20 D0 |IPLIZIERT, DAS .|
00002910: 52 4F 44 55 4B 54 20 49 4E 20 28 24 31 31 33 31 |RODUKT IN ($1131|
00002920: 2B D8 29 00 4B 45 F8 11 AE 20 20 20 20 20 20 20 |+.).KE... |
00002930: 54 59 41 20 20 20 20 20 20 20 20 20 20 20 20 20 |TYA |
00002940: 3B 20 22 41 42 47 45 4C 45 47 54 00 63 45 02 12 |; "ABGELEGT.cE..|
00002950: AE 20 20 20 20 20 20 20 53 54 41 20 24 31 31 33 |. STA $113|
00002960: 32 2C 58 00 73 45 0C 12 AE 20 20 20 20 20 20 20 |2,X.sE... |
00002970: 52 54 53 00 79 45 16 12 3B 00 80 45 20 12 2E 80 |RTS.yE..;..E ...|
00002980: 00 86 45 2A 12 80 00 8C 45 34 12 3A 00 AB 45 60 |..E*....E4.:..E`|
00002990: EA 5A 5A 24 B2 22 43 48 41 52 41 43 54 45 52 2D |.ZZ$."CHARACTER-|
000029A0: 38 30 2E 41 22 3A 20 55 4E B2 38 00 C4 45 6A EA |80.A": UN.8..Ej.|
000029B0: 9F 20 31 35 2C 55 4E 2C 31 35 2C 22 53 30 3A 22 |. 15,UN,15,"S0:"|
000029C0: AA 5A 5A 24 00 D0 45 74 EA 8D 20 36 30 31 30 30 |.ZZ$..Et.. 60100|
000029D0: 00 DD 45 7E EA 94 20 5A 5A 24 2C 55 4E 00 E9 45 |..E~.. ZZ$,UN..E|
000029E0: 88 EA 8D 20 36 30 31 30 30 00 F6 45 92 EA 95 20 |... 60100..E... |
000029F0: 5A 5A 24 2C 55 4E 00 FF 45 9C EA A0 20 31 35 00 |ZZ$,UN..E... 15.|
00002A00: 05 46 A6 EA 80 00 1D 46 C4 EA 84 31 35 2C 20 53 |.F.....F...15, S|
00002A10: 31 2C 20 53 24 2C 20 53 32 2C 20 53 33 00 33 46 |1, S$, S2, S3.3F|
00002A20: CE EA 8B 20 53 31 B2 31 20 A7 20 99 20 53 32 3B |... S1.1 . . S2;|
00002A30: 20 53 24 00 43 46 D8 EA 8B 20 53 31 B3 32 30 20 | S$.CF... S1.20 |
00002A40: A7 20 8E 00 63 46 E2 EA 99 20 53 31 20 22 2C 20 |. ..cF... S1 ", |
00002A50: 22 20 53 24 20 22 2C 22 20 53 32 3B 20 22 2C 22 |" S$ "," S2; ","|
00002A60: 20 53 33 00 6C 46 EC EA A0 20 31 35 00 00 00 | S3.lF... 15... |
....... " CHARACTER-80.A.%...:.M.
... "HOLT CHARACTER AUS ROM AUF HIRES.S.
..:.N.... " (C) BY KRW.T...:....
.. " 1985.....:...... "
VERSION 1.2.....:.....:.T.... "*** .B
ERGABE: ***".Z...:...... "MITTELPUNKT DE
S ZU SETZENDEN PUNKTES...... "IN $1150/5
1 (X) UND $1152/53 (Y).4...:.I...N$."CHA
RACTER.M".I.(.. 15,8,15,"S0:".N$: . 6010
0...2.. 2,8,2,N$.",P,W": . 60100...<.:..
.F.. 9.4096...P.;...Z..OPT O2...D.;.L.N.
; "*** VARIABLE ***".R.X.;.....VARADR .
$24 ; "ADRESSE DER ZEICHENKET
TE IN BANK 1.?...CNTBYT . $6A
; "BYTE-Z.HLER.I...BITS . $6B
; "BIT-Z.HLER... .ZERO . $6C
; "2-BYTE-ARBEITSZEIGER.....CGTH
. $70 ; "L.NGE DER DARZUSTELLE
NDEN ZEICHENKETTE.+....I . $71
; "ZEIGER AUF AKT. BUCHSTABEN I.D. Z
EICHENKETTE.K...RVSFLAG . $F3
; "FLAG F.R INVERTIERTE DARSTELLUNG...H.
X. . $1160 ; "RELATIVE POSITI
ON DES BUCHSTABENCURSORS...R.Y. . $11
62 ; "ZUM AUSGANGSPUNKT (X/Y)...
..;.. ..; "*** KONSTANTEN ***".. ..;.V .
.CENTRX . 4 ; "ZENTRIERUNG:
ABSTAND DES MITTELPUNKTES VON.. ..CENTR
Y . 4 ; "DEN ECKPUNKTEN (X/
Y).Y ..CHRROM . $D000 ; "ANFANG
DES CHARACTER-ROMS, GRO.-/GRAPHIKSCHRIF
T.&!..CHRROM2 . $D800 ; "ANFANG
DES CHARACTER-ROMS, GRO.-/KLEINSCHRIFT.,
!".;.R!,.; "*** UNTERPROGRAMMADRESSEN **
*".X!6.;..!@.ROTATE . $139E ; "
DREHUNG AUSF.HREN (UP S.U. !)..!J.SETPNT
. $1400 ; "PUNKT SETZEN/ L.SCH
EN (UP IN 'GRAPHIK-80').."T.CHROLD . $6
7D7 ; "'ALTER' CHAR-BEFEHL IM BA
SIC-ROM.O"^.CHKCOM . $795C ; "P
R.FEN, OB KOMMA.."H.FETVAR . $877B
; "ADRESSE DER ZEICHENKETTE NACH $64
.."R.FE.G . $9E06 ; "WINKEL HOL
EN.."|.FETCOL . $9E32 ; "FARBPA
RAMETER HOLEN..#..FETC. . $9E52
; "KOORDINATEN HOLEN.F#..FETVDC . $CDD
A ; "INHALT DES 8563(VDC)-REGIST
ERS IN X HOLEN.L#..;.Y#.... $1AB7.#..;.
D#..; " *** 'HAUPTSCHLEIFE': AUSWERTUNG
DES BASIC-BEFEHLS CHAR *** ".J#..;..#...
LDA #$00..$... STA $FF00
; "ROM+I/O EINSCHALTEN.%$... LDX
#$19.G$$.. JSR FETVDC ; "INHAL
T DES REGISTERS 25 IM VDC HOLEN..$...
BMI CHR. ; "GRAPHIKMODUS, DANN NE
UE CHAR-ROUTINE..$8.. JMP CHROLD
; "TEXTMODUS, DANN 'NORMALE' CHAR-ROUT
INE..%B.CHR. JSR FETCOL ; "FARBPARAM
ETER HOLEN./%L.. LDX #$1F.M%V..
JSR FETC. ; "KOORDINATEN NACH $11
50-1153 HOLEN..%`.. JSR FE.G ;
"DREHWINKEL.D%J.. STY $115C ;
"NACH $115C/5D HOLEN.Z%T.. STA $11
5D..%~.. LDA #$00..&... LDX
#$07.B&..LEER STA X.,X ; "BEREICH
VON $1160 BIS 1167 L.SCHEN.R&... D
EX.G&... BPL LEER..&... STA
.I ; "ZEIGER AKT. POSITION IN DER Z
EICHENKETTE AUF 0..&... JSR CHKCOM
; "AUF KOMMA TESTEN..'D.. JSR
FETVAR ; "ADRESSE DER ZEICHENKETTE HO
LEN.C'N.. STA CGTH ; "L.NGE MER
KEN.'X.CHROK LDY .I ; "AKT. ZEIC
HEN IN DER ZEICHENKETTE..'... CPY
CGTH ; "SCHON ENDE.W'... BEQ FE
RTIG ; "JA => ROUTINE FERTIG..'...
LDA #$7F..(... STA $FF00 ;
"BANK 1 EINSCHALTEN.O(... LDA (VA
RADR),Y; "NEIN => ZEICHEN HOLEN.D(...
LDX #$00..(... STX $FF00 ;
"BANK 15 EINSCHALTEN.N((.. JSR CH
R0 ; "ZEICHEN AUSWERTEN/ AUSGEBEN..
(2.. INC .I ; "EIN ZEICHEN WE
ITER.()<.. BNE CHROK ; "SCHLEI
FE ---->.8)F.FERTIG RTS.>)P.;.P)Z.; " *
** ZEICHEN AUSGEBEN ODER AUSWERTEN *** "
.V)D.;..)N.CHR0 TAY ; "ZEI
CHEN IN Y MERKEN..)X.. CMP #"."
; "IST ZEICHEN VON CHAR VERWERTBARES
STEUERZEICHEN ?..*... BNE INST2.@
*... LDA #$04 ; "REVERSE-FLA
G SETZEN.W*... BNE INST2A.L* .INST
2 CMP #"."..*... BNE INST3..*...
LDA #$00 ; "REVERSE-FLAG L.
SCHEN.M*..INST2A STA RVSFLAG..*H..
RTS..+R.INST3 CMP #"." ; "HALB
SCHRITT H.HER.#+... BNE INST4.3+..
HOCH SEC.F+... LDA Y...+...
SBC #CENTRY ; "HALBSCHRITT H.HER =
AKT. Y-POS.-1/2*ZEICHENH.HE..+...
STA Y...+... BCS HOCH1.R+...
DEC Y..1..+".HOCH1 RTS..,,.INST4 C
MP #"." ; "HALBSCHRITT TIEFER.(,6.
. BNE CODE.8,@.TIEF CLC.K,J..
LDA Y...,T.. ADC #CENTRY ;
"HALBSCHRITT TIEFER = AKT. Y-POS.+1/2*Z
EICHENH.HE..,^.. STA Y..C,H..
BCC TIEF1.X,R.. INC Y..1..,|.TIE
F1 RTS..,..;..-..; " *** ZEICHEN VON S
TRING- IN BILDSCHIRMCODE WANDELN *** ".4
-..;.P-..CODE . #$7F ; "CODE 12
8-255 NACH 0-127 WANDELN..-... CMP
#" " ; "DRUCKBARES ZEICHEN ?.S-..
. BCC FERTIG ; "NEIN, DANN FER
TIG..-B.. TYA ; "ZEICHE
N.(.L.. CMP #$80 ; "GR..ER A
LS 127 ?.M.V.. BCS CHR99 ; "J
A -->.|.... CMP #$60 ; "KLEI
NER ALS 96 ?...... BCC CHR97
; "JA -->...... . #%11011111 ; "ZE
ICHEN 96-127 NACH 64-95 WANDELN../...
BCS CHR98 ; "IMMER.N/..CHR97
. #%10111111 ; "ZEICHEN 64-95 NACH 0-31
WANDELN, ZEICHEN 32-63../... BCC C
HR98 ; "BLEIBEN UNVER.NDERT, WEITER
BEI CHR98../..CHR99 . #%01111111 ; "Z
EICHEN 192-223 NACH 64-95, 160-191 UND 2
24-255..0&.. .A #%01000000 ; "NACH
96-127 WANDELN.U00.CHR98 LDX #$00
; "CHARROM-ADRESSE DES ZEICHENS ERREC
HNEN:.|0:.. LDY #$03 ; "CODE
* 8..0D.. STA ZERO..0N.. ST
X ZERO.1..0X.CHR01 ASL ZERO ; "3
MAL NACH LINKS SCHIEBEN..1B.. ROL
ZERO.1 ; "ENTSPRICHT ZERO=ZERO*8.%1
L.. DEY.;1V.. BNE CHR01.K1..
. CLC.`1... LDA ZERO..1...
ADC #.CHRROM ; "ZUR CHAR-ROM-STAR
TADRESSE ADDIEREN..1... STA ZERO
; "ALS ZEIGER IN DER ZEROPAGE MERKE
N..1... LDA ZERO.1.$2... LDX
$F1 ; "ATTRIBUT-FLAG.Q2...
BMI UPLOW ; "BIT 7 GESETZT, WENN G
RO.-/KLEINSCHRIFT GEW.HLT..2F.. AD
C #.CHRROM ; "HIGH-BYTE DER CHARROM-AD
RESSE F.R GRO.-/GRAPHIK.T2P.. .BYT
$2C. 3Z.UPLOW ADC #.CHRROM2 ; "HIGH-
BYTE DER CHARROM-ADRESSE F.R GRO.-/KLEIN
.L3... ADC RVSFLAG ; "WENN REVE
RSE-MODUS EINGESCHALTET, NOCH 4 DAZU..3.
.. STA ZERO.1..3... JSR CHRA
DD..3... LDX #$01 ; "BYTES D
ES GEW.NSCHTEN ZEICHENS AUS ROM HOLEN..4
... STX $FF00 ; "CHAR-ROM EIN
SCHALTEN.D4... LDY #7 ; "8
BYTES HOLEN.P4 .CHR1 LDA (ZERO),Y
; "UND AUF STACK..4*.. PHA
; "SCHIEBEN..44.. DEY..4>..
BPL CHR1..4H.. LDX #$00
; "ALTE RAM-KONFIGURATION ZUR.CK..5R..
STX $FF00.!5\.. LDX #8.S5F..
STX CNTBYT ; "BYTE-Z.HLER 8 BY
TES.~5P.CHR2 STX BITS ; "ZU JE
8 BITS..5Z.CHR3 PLA ; "AUS
ZUGEBENDES BIT..5... ROL
; "INS CARRY-BIT HOLEN..5... PHA
.(6... BCC CHR3A ; "'LEER-PUN
KT' .BERSPRINGEN.X6... JSR ROTATE
; "DREHUNG AUSF.HREN..6... JSR
SETPNT ; "PUNKT SETZEN/ L.SCHEN..6.
.CHR3A INC X...6... BNE CHR4.I6J
.. INC X..1..6T.CHR4 DEC BITS..
6... BNE CHR3..7... CLC..7..
. LDA #$01.R7... ADC Y.
; "N.CHSTES BYTE A ZEILEN TIEFER.E7...
STA Y..Z7... BCC CHR9..7...
INC Y..1.A7$.CHR9 PLA
; "ABGEARBEITETES BYTE..7... SE
C ; "X-KOORDINATE WIEDERHERST
ELLEN..88.. LDA X..#8B.. SBC
#8.68L.. STA X..L8V.. BCS C
HR11.A8`.. DEC X..1..8J.CHR11 LD
X #8 ; "BIT-Z.HLER NEU LADEN.J8T
.. DEC CNTBYT ; "BYTE-Z.HLER E
RNIEDRIGEN..8~.. BNE CHR2..9...
SEC ; "BUCHSTABENCURSOR.I
9... LDA Y. ; "AUF MITTELPUN
KT ZUR.CKSTELLEN:.U9... SBC #$04
; "1. Y-RICHTUNG..9... STA Y.
..9... BCS CHR10..9... DEC Y
..1.C9D.CHR10 CLC.V9N.. LDA X...
:X.. ADC #CENTRX.8 ; "2. X-RICHTU
NG.@:... STA X. ; "MITTELPUN
KT DES N.CHSTEN ZEICHENS.V:... BCC
CHR12.K:... INC X..1.{:..CHR12
RTS..:..;..:..CHRADD SEC..:... LD
A X..Y:(.. SBC #CENTRX ; "OFFSE
T ZUR ZENTRIERUNG..:2.. STA X.
; "ABZIEHEN..;<.. BCS CHRADD1.+
;F.. DEC X..1.@;P.CHRADD1 JMP HOCH
.F;Z.;.M;D....S; .:..;... " *** UP KOORD
INATENTRANSFORMATION ($139E-$13FF) *** "
..;..:..;.. 2..;H.N$."ROTATE.M".J;R..15
,"S0:".N$: . 60100..;... 2,8,2,N$.",P,W"
: . 60100..;..:..;... 9.4096..<...OPT O2
..<.... $139E..<..;.B<..; " *** UNTERPRO
GRAMMADRESSEN ***".H<".;..<,..US . $9A
74 ; "SINUS UND COSINUS DES WINKELS IN
($1131+Y) BERECHNEN..<6.MULTI . $9AF3
; "KOORDINATEN IN $1154-$115B MIT SIN/C
OS MULTIPLIZIEREN.&=@.ADD . $9D6D ;
"KOORD. ($1131+Y) PLUS ($1131+X) GLEICH
(A,Y).G=J.ADD2 . $9D70 ; "KOORD. (A
,Y) PLUS ($1131+X) GLEICH (A,Y)..=T.SUBT
R . $9D7C ; "(A,Y) GLEICH KOORD. ($11
31+Y) MINUS ($1131+X).Z=^.DIVIDE . $9DA
E ; "($1131+X)*(A,Y)/2^16..=H.;..=R.;.0
>|.. LDY #$2B ; "SIN U.COS
DES WINKELS IN $115C/D BERECHNEN.Y>...
JSR .US ; "UND IN $114A/B (SI
N), $114C/D (COS) ABLEGEN..>... LD
X #$03..>..KOPIER LDA $1160,X..>...
STA $1154,X ; "DIE REL. KOORDINAT
EN X ($1160/61) UND.0?... STA $115
8,X ; "Y ($1162/63) IN $1154/55 UND
$1158/59.J?... DEX ; "
BZW. $1156/57 UND $115A/5B..?B.. B
PL KOPIER ; "ABSPEICHERN..?L..
LDA #%10010000 ; "FLAG: 0 SINUS, 1 CO
SINUS, BIT 7-4 G.LTIG.|@V.. JSR MU
LTI ; "DIE 4 KOORD. IN $1154-115B
ENTSPR. DEM FLAG IN A
MIT SIN/COS MULTIPL.U.ERGEB
.IN $1154-5B ABLEGEN..@... ASL $11
54 ; "X-ANTEIL VON (X NEU) MAL 2.L
@... ROL $1155..A... ASL $11
56 ; "Y-ANTEIL VON (X NEU) MAL 2..
A... ROL $1157.ZA... LDX #$2
7 ; "X-ANTEIL VON (Y NEU) MAL 0,8
74.OA... LDY #$DF..A... JSR
K.RIG.PA&.. LDY #$EF ; "VER
DOPPELTEN X-ANTEIL VON (X NEU) MAL 0,937
..A0.. LDX #$23.,B:.. JSR K.
RIG ; "ERGIBT 'GESAMTKORREKTURFAKTO
R' VON 1,873.ABD.. LDY #$25.|BN..
JSR ADD ; "$1156/57 + $115
4/55 = (A,Y)..BX.. LDX #$1F.IBB..
JSR ADD2 ; "(A,Y) + $1150/5
1 = (A,Y)..CL.. STA $1131 ;
"ALS X-KOORDINATE F.R 'SETPOINT' MERKEN.
%CV.. STY $1132.:C... LDX #$
27.OC... LDY #$29..C... JSR
SUBTR ; "$115A/5B - $1158/59 = (A,
Y)..C... LDX #$21.WC... JSR
ADD2 ; "(A,Y) + $1152/53 = (A,Y).
.D... STA $1133 ; "ALS Y-KOO
RDINATE F.R 'SETPOINT' MERKEN.3D...
STY $1134.CDF.. RTS.IDP.;..DZ.K.
RIG LDA #$C0 ; "LOW-BYTE DES MUL
TIPLIKATIONSFAKTORS.WD... JSR DIVI
DE ; "HIGH-BYTE IN Y, DIE 16-BIT-ZA
HL IN ($1131+X).#E... STA $1131,X
; "WIRD MULTIPLIZIERT, DAS PRODUKT I
N ($1131+X).KE... TYA
; "ABGELEGT.CE... STA $1132,X.SE..
. RTS.YE..;..E .....E*....E4.:..E`
.ZZ$."CHARACTER-80.A": UN.8.DEJ.. 15,UN,
15,"S0:".ZZ$.PET.. 60100..E~.. ZZ$,UN..E
... 60100..E... ZZ$,UN..E.. 15..F.....F
D..15, S1, S$, S2, S3.3FN.. S1.1 . . S2;
S$.CFX.. S1.20 . ..CF... S1 ", " S$ ","
S2; "," S3.LF.. 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL