XB/G 1.2
FILE INFORMATION
FILENAME(S): XB/G 1.2
FILE TYPE(S): PRG
FILE SIZE: 22.9K
FIRST SEEN: 2025-10-20 14:31:04
APPEARS ON: 2 disk(s)
FILE HASH
fbaa7cf9113e045e5cd59f2d6f9846aa15d0631cc636c66bc1643df0a4f0fa5e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | XB/G 1.2 | PRG | Treasure Chest - Klaus Der Suhler | 13 | 1 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | XB/G 1.2 | PRG | Treasure Chest - Klaus Der Suhler | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: AA 5B 3B 3B 3B 20 2D 2D 2D 20 58 42 2F 47 20 31 |.[;;; --- XB/G 1| 00000010: 2E 32 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.2. .;----------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D |-------------.;-| 00000040: 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C |-- ......-.EFEHL| 00000050: 3A 20 C2 CF D2 C4 C5 D2 20 C3 4F 4C 20 20 20 20 |: ...... .OL | 00000060: 20 20 20 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D | ---.;--------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000090: C2 C2 42 4F 52 44 45 52 3A 4A 53 52 47 45 54 42 |..BORDER:JSRGETB| 000000A0: 59 54 45 3B D2 41 48 4D 45 4E 46 41 52 42 45 20 |YTE;.AHMENFARBE | 000000B0: 48 4F 4C 45 4E 00 43 50 58 23 31 36 00 42 43 53 |HOLEN.CPX#16.BCS| 000000C0: 4E 4F 43 4F 4C 3B 3E 3D 31 35 20 2D 3E 20 C5 D2 |NOCOL;>=15 -> ..| 000000D0: D2 CF D2 00 53 54 58 56 49 43 2B 33 32 3B 55 4E |....STXVIC+32;UN| 000000E0: 44 20 53 45 54 5A 45 4E 00 52 54 53 00 20 00 3B |D SETZEN.RTS. .;| 000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000110: 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 |-------.;--- ...| 00000120: D3 C9 C3 2D C2 45 46 45 48 4C 3A 20 20 D0 C1 D0 |...-.EFEHL: ...| 00000130: C5 D2 20 C3 4F 4C 20 20 20 20 20 20 20 2D 2D 2D |.. .OL ---| 00000140: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 50 41 50 45 |---------...PAPE| 00000170: 52 3A 4A 53 52 47 45 54 42 59 54 45 3B C8 49 4E |R:JSRGETBYTE;.IN| 00000180: 54 45 52 47 52 55 4E 44 46 41 52 42 45 20 48 4F |TERGRUNDFARBE HO| 00000190: 4C 45 4E 00 43 50 58 23 31 36 00 42 43 53 4E 4F |LEN.CPX#16.BCSNO| 000001A0: 43 4F 4C 3B 3E 3D 31 35 20 2D 3E 20 C5 D2 D2 CF |COL;>=15 -> ....| 000001B0: D2 00 53 54 58 56 49 43 2B 33 33 3B 55 4E 44 20 |..STXVIC+33;UND | 000001C0: 53 45 54 5A 45 4E 00 52 54 53 00 20 00 3B 2D 2D |SETZEN.RTS. .;--| 000001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001F0: 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 |-----.;--- .....| 00000200: C3 2D C2 45 46 45 48 4C 3A 20 20 20 20 C9 CE CB |.-.EFEHL: ...| 00000210: 20 C3 4F 4C 20 20 20 20 20 20 20 2D 2D 2D 00 3B | .OL ---.;| 00000220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000240: 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 49 4E 4B 3A 4A 53 |-------...INK:JS| 00000250: 52 47 45 54 42 59 54 45 3B DA 45 49 43 48 45 4E |RGETBYTE;.EICHEN| 00000260: 46 41 52 42 45 20 48 4F 4C 45 4E 00 43 50 58 23 |FARBE HOLEN.CPX#| 00000270: 31 36 00 42 43 53 4E 4F 43 4F 4C 3B 3E 3D 31 35 |16.BCSNOCOL;>=15| 00000280: 20 2D 3E 20 C5 D2 D2 CF D2 00 53 54 58 36 34 36 | -> ......STX646| 00000290: 3B 55 4E 44 20 53 45 54 5A 45 4E 00 52 54 53 00 |;UND SETZEN.RTS.| 000002A0: 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | .;-------------| 000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 |----------.;--- | 000002D0: D8 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 3A 20 C4 |......-.EFEHL: .| 000002E0: D2 C1 D7 CD CF C4 C5 20 CD 4F 44 45 20 20 20 20 |....... .ODE | 000002F0: 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |---.;-----------| 00000300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 44 |------------...D| 00000320: 52 41 57 4D 4F 44 45 3A 4A 53 52 47 45 54 42 59 |RAWMODE:JSRGETBY| 00000330: 54 45 3B DA 45 49 43 48 45 4E 4D 4F 44 55 53 20 |TE;.EICHENMODUS | 00000340: 46 45 53 54 4C 45 47 45 4E 00 43 50 58 23 32 00 |FESTLEGEN.CPX#2.| 00000350: 42 43 53 4E 4F 43 4F 4C 3B C4 D2 C1 D7 CD CF C4 |BCSNOCOL;.......| 00000360: C5 3E 31 00 54 58 41 3B C2 49 54 30 20 2D 3E 20 |.>1.TXA;.IT0 -> | 00000370: C2 49 54 20 37 00 43 4C 43 00 52 4F 52 00 52 4F |.IT 7.CLC.ROR.RO| 00000380: 52 00 53 54 41 44 52 41 57 4D 4F 44 45 3B 53 50 |R.STADRAWMODE;SP| 00000390: 45 49 43 48 45 52 4E 00 52 54 53 00 20 00 4E 4F |EICHERN.RTS. .NO| 000003A0: 43 4F 4C 3A 4C 44 58 23 31 34 3B C9 4C 4C 45 47 |COL:LDX#14;.LLEG| 000003B0: 41 4C 20 D1 55 41 4E 54 49 54 59 20 4D 45 4C 44 |AL .UANTITY MELD| 000003C0: 45 4E 00 4A 4D 50 46 45 48 4C 45 52 00 20 00 3B |EN.JMPFEHLER. .;| 000003D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003F0: 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 |-------.;--- ...| 00000400: D3 C9 C3 2D C2 45 46 45 48 4C 3A 20 D0 C5 CE 20 |...-.EFEHL: ... | 00000410: CE 52 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D |.R ---| 00000420: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 50 45 4E 43 |---------...PENC| 00000450: 49 4C 3A 4A 53 52 47 45 54 42 59 54 45 3B C6 41 |IL:JSRGETBYTE;.A| 00000460: 52 42 4E 55 4D 4D 45 52 20 48 4F 4C 45 4E 00 43 |RBNUMMER HOLEN.C| 00000470: 50 58 23 34 3B 3E 33 20 3F 00 42 43 53 4E 4F 43 |PX#4;>3 ?.BCSNOC| 00000480: 4F 4C 3B C6 45 48 4C 45 52 20 4D 45 4C 44 45 4E |OL;.EHLER MELDEN| 00000490: 00 54 58 41 3B C9 4E 20 C1 43 43 55 00 4C 44 58 |.TXA;.N .CCU.LDX| 000004A0: 23 30 3B 34 20 4D 41 4C 20 32 2A CC 49 4E 4B 53 |#0;4 MAL 2*.INKS| 000004B0: 53 43 48 49 45 42 45 4E 00 53 45 54 50 45 4E 42 |SCHIEBEN.SETPENB| 000004C0: 49 54 53 3A 53 54 41 50 45 4E 42 49 54 53 2C 58 |ITS:STAPENBITS,X| 000004D0: 3B 45 52 47 49 42 54 20 CD 41 53 4B 45 4E 20 46 |;ERGIBT .ASKEN F| 000004E0: 55 45 52 20 44 49 45 00 41 53 4C 3B C6 41 52 42 |UER DIE.ASL;.ARB| 000004F0: 45 00 41 53 4C 00 49 4E 58 00 43 50 58 23 34 00 |E.ASL.INX.CPX#4.| 00000500: 42 4E 45 53 45 54 50 45 4E 42 49 54 53 00 52 54 |BNESETPENBITS.RT| 00000510: 53 00 20 00 50 45 4E 3A 2E 42 59 31 3B 31 20 49 |S. .PEN:.BY1;1 I| 00000520: 53 54 20 C5 49 4E 53 43 48 41 4C 54 46 41 52 42 |ST .INSCHALTFARB| 00000530: 45 00 50 45 4E 42 49 54 53 3A 2E 42 59 25 30 31 |E.PENBITS:.BY%01| 00000540: 2C 25 30 31 30 30 2C 25 30 31 30 30 30 30 2C 25 |,%0100,%010000,%| 00000550: 30 31 30 30 30 30 30 30 3B CD 41 53 4B 45 4E 20 |01000000;.ASKEN | 00000560: 46 55 45 52 20 C6 41 52 42 45 20 31 00 3B CD 41 |FUER .ARBE 1.;.A| 00000570: 53 4B 45 4E 20 46 55 45 52 20 C1 55 53 42 4C 45 |SKEN FUER .USBLE| 00000580: 4E 44 45 4E 20 44 45 52 20 C2 49 54 53 00 44 45 |NDEN DER .ITS.DE| 00000590: 4C 42 49 54 53 3A 2E 42 59 32 35 35 2D 25 31 31 |LBITS:.BY255-%11| 000005A0: 2C 32 35 35 2D 25 31 31 30 30 2C 32 35 35 2D 25 |,255-%1100,255-%| 000005B0: 31 31 30 30 30 30 2C 32 35 35 2D 25 31 31 30 30 |110000,255-%1100| 000005C0: 30 30 30 30 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D |0000. .;--------| 000005D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000005E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 000005F0: 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 |;--- ......-.EFE| 00000600: 48 4C 3A 20 C7 D2 C1 C6 C3 CC D2 20 20 20 20 20 |HL: ....... | 00000610: 20 20 20 20 20 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D | ---.;------| 00000620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000640: 2D 00 C2 C2 47 52 41 46 43 4C 52 3A 4C 44 59 23 |-...GRAFCLR:LDY#| 00000650: 30 3B C7 52 41 50 48 49 4B 20 C3 55 52 53 4F 52 |0;.RAPHIK .URSOR| 00000660: 20 41 55 46 20 C1 4E 46 41 4E 47 53 50 4F 53 2E | AUF .NFANGSPOS.| 00000670: 00 53 54 59 58 43 55 52 53 00 53 54 59 58 43 55 |.STYXCURS.STYXCU| 00000680: 52 53 2B 31 00 53 54 59 59 43 55 52 53 00 4C 44 |RS+1.STYYCURS.LD| 00000690: 41 23 3E 48 49 52 45 53 53 45 49 54 45 3B 41 5A |A#>HIRESSEITE;AZ| 000006A0: 47 20 41 55 46 20 C8 49 52 45 53 53 45 49 54 45 |G AUF .IRESSEITE| 000006B0: 00 53 54 41 41 5A 47 2B 31 00 53 54 59 41 5A 47 |.STAAZG+1.STYAZG| 000006C0: 00 4C 44 41 23 3E 48 49 52 45 53 53 45 49 54 45 |.LDA#>HIRESSEITE| 000006D0: 2B 34 30 39 36 3B 41 5A 47 32 20 41 55 46 20 32 |+4096;AZG2 AUF 2| 000006E0: 2E C8 41 45 4C 46 54 45 00 53 54 41 41 5A 47 32 |..AELFTE.STAAZG2| 000006F0: 2B 31 00 53 54 59 41 5A 47 32 00 4C 44 58 23 31 |+1.STYAZG2.LDX#1| 00000700: 36 3B 32 2A 31 36 20 D3 45 49 54 45 4E 20 4C 4F |6;2*16 .EITEN LO| 00000710: 45 53 43 48 45 4E 00 54 59 41 00 47 52 41 46 43 |ESCHEN.TYA.GRAFC| 00000720: 4C 52 3A 53 54 41 28 41 5A 47 29 2C 59 3B 5A 57 |LR:STA(AZG),Y;ZW| 00000730: 45 49 20 D3 45 49 54 45 4E 20 4C 4F 45 53 43 48 |EI .EITEN LOESCH| 00000740: 45 4E 00 53 54 41 28 41 5A 47 32 29 2C 59 00 49 |EN.STA(AZG2),Y.I| 00000750: 4E 59 00 42 4E 45 47 52 41 46 43 4C 52 00 49 4E |NY.BNEGRAFCLR.IN| 00000760: 43 41 5A 47 2B 31 3B 42 49 53 20 41 4C 4C 45 20 |CAZG+1;BIS ALLE | 00000770: D3 45 49 54 45 4E 20 47 45 4C 4F 45 53 43 48 54 |.EITEN GELOESCHT| 00000780: 00 49 4E 43 41 5A 47 32 2B 31 00 44 45 58 00 42 |.INCAZG2+1.DEX.B| 00000790: 4E 45 47 52 41 46 43 4C 52 00 52 54 53 00 20 00 |NEGRAFCLR.RTS. .| 000007A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 |--------.;--- ..| 000007D0: C1 D3 C9 C3 2D C2 45 46 45 48 4C 3A 20 C7 D2 C1 |....-.EFEHL: ...| 000007E0: C6 CF CE 20 DA C6 2C C8 C6 20 20 20 20 20 2D 2D |... ..,.. --| 000007F0: 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |-.;-------------| 00000800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 47 52 41 |----------...GRA| 00000820: 46 4F 4E 3A 4C 44 41 23 25 30 30 31 30 31 30 30 |FON:LDA#%0010100| 00000830: 30 3B C8 49 52 45 53 20 D3 50 45 49 43 48 45 52 |0;.IRES .PEICHER| 00000840: 20 46 45 53 54 4C 45 47 45 4E 00 4A 53 52 53 41 | FESTLEGEN.JSRSA| 00000850: 56 45 53 50 52 49 54 45 3B D3 50 52 49 54 45 5A |VESPRITE;.PRITEZ| 00000860: 45 49 47 45 52 20 52 45 54 54 45 4E 00 53 54 41 |EIGER RETTEN.STA| 00000870: 56 49 43 2B 32 34 00 4C 44 41 23 25 30 30 31 31 |VIC+24.LDA#%0011| 00000880: 31 30 31 31 3B C8 49 52 45 53 20 45 49 4E 53 43 |1011;.IRES EINSC| 00000890: 48 41 4C 54 45 4E 00 53 54 41 56 49 43 2B 31 37 |HALTEN.STAVIC+17| 000008A0: 00 42 49 54 43 4F 4C 4D 4F 44 45 3B C6 41 52 42 |.BITCOLMODE;.ARB| 000008B0: 4D 4F 44 55 53 20 3F 00 42 50 4C 47 52 41 46 4F |MODUS ?.BPLGRAFO| 000008C0: 4E 3B 4E 45 49 4E 00 4A 53 52 46 41 52 42 45 4E |N;NEIN.JSRFARBEN| 000008D0: 3B C6 41 52 42 53 50 45 49 43 48 45 52 20 52 45 |;.ARBSPEICHER RE| 000008E0: 53 54 41 55 52 49 45 52 45 4E 00 47 52 41 46 4F |STAURIEREN.GRAFO| 000008F0: 4E 3A 4A 53 52 47 45 54 42 59 54 45 3B DA 45 49 |N:JSRGETBYTE;.EI| 00000900: 43 48 45 4E 46 41 52 42 45 20 48 4F 4C 45 4E 00 |CHENFARBE HOLEN.| 00000910: 43 50 58 23 31 36 3B 47 55 45 4C 54 49 47 20 3F |CPX#16;GUELTIG ?| 00000920: 00 42 43 53 4E 4F 43 4F 4C 32 3B 4E 45 49 4E 2C |.BCSNOCOL2;NEIN,| 00000930: 20 5A 55 20 47 52 4F 53 53 00 53 54 58 41 5A 47 | ZU GROSS.STXAZG| 00000940: 2B 31 3B 4D 45 52 4B 45 4E 00 4A 53 52 43 48 4B |+1;MERKEN.JSRCHK| 00000950: 4B 4F 4D 3B 41 55 46 20 CB 4F 4D 4D 41 20 54 45 |KOM;AUF .OMMA TE| 00000960: 53 54 45 4E 00 4A 53 52 47 45 54 42 59 54 45 3B |STEN.JSRGETBYTE;| 00000970: C8 49 4E 54 45 52 47 52 55 4E 44 46 41 52 42 45 |.INTERGRUNDFARBE| 00000980: 20 48 4F 4C 45 4E 00 43 50 58 23 31 36 3B 47 55 | HOLEN.CPX#16;GU| 00000990: 45 4C 54 49 47 20 3F 00 54 58 41 00 42 43 53 4E |ELTIG ?.TXA.BCSN| 000009A0: 4F 43 4F 4C 32 3B 4E 45 49 4E 2C 20 5A 55 20 47 |OCOL2;NEIN, ZU G| 000009B0: 52 4F 53 53 00 41 53 4C 41 5A 47 2B 31 3B DA 45 |ROSS.ASLAZG+1;.E| 000009C0: 49 43 48 45 4E 46 41 52 42 45 20 2A 20 31 36 00 |ICHENFARBE * 16.| 000009D0: 41 53 4C 41 5A 47 2B 31 00 41 53 4C 41 5A 47 2B |ASLAZG+1.ASLAZG+| 000009E0: 31 00 41 53 4C 41 5A 47 2B 31 00 4F 52 41 41 5A |1.ASLAZG+1.ORAAZ| 000009F0: 47 2B 31 3B 2B C8 49 4E 54 45 52 47 52 55 4E 44 |G+1;+.INTERGRUND| 00000A00: 46 41 52 42 45 00 4C 44 59 23 3E 46 41 52 42 45 |FARBE.LDY#>FARBE| 00000A10: 48 49 52 45 53 3B 41 5A 47 20 41 55 46 20 C6 41 |HIRES;AZG AUF .A| 00000A20: 52 42 52 41 4D 20 53 45 54 5A 45 4E 00 53 54 59 |RBRAM SETZEN.STY| 00000A30: 41 5A 47 2B 31 00 4C 44 58 23 34 3B 34 20 D3 45 |AZG+1.LDX#4;4 .E| 00000A40: 49 54 45 4E 20 53 45 54 5A 45 4E 00 4C 44 59 23 |ITEN SETZEN.LDY#| 00000A50: 30 00 53 54 59 41 5A 47 00 53 45 54 43 4F 4C 3A |0.STYAZG.SETCOL:| 00000A60: 53 54 41 28 41 5A 47 29 2C 59 3B 45 49 4E 45 20 |STA(AZG),Y;EINE | 00000A70: D3 45 49 54 45 20 53 45 54 5A 45 4E 00 49 4E 59 |.EITE SETZEN.INY| 00000A80: 00 42 4E 45 53 45 54 43 4F 4C 00 49 4E 43 41 5A |.BNESETCOL.INCAZ| 00000A90: 47 2B 31 3B 42 49 53 20 41 4C 4C 45 20 D3 45 49 |G+1;BIS ALLE .EI| 00000AA0: 54 45 4E 20 47 45 53 45 54 5A 54 00 44 45 58 00 |TEN GESETZT.DEX.| 00000AB0: 42 4E 45 53 45 54 43 4F 4C 00 4A 4D 50 4C 4F 41 |BNESETCOL.JMPLOA| 00000AC0: 44 53 50 52 49 54 45 3B D3 50 52 49 54 45 5A 45 |DSPRITE;.PRITEZE| 00000AD0: 49 47 45 52 20 57 49 45 44 45 52 20 53 45 54 5A |IGER WIEDER SETZ| 00000AE0: 45 4E 00 20 00 4E 4F 43 4F 4C 32 3A 4A 4D 50 4E |EN. .NOCOL2:JMPN| 00000AF0: 4F 43 4F 4C 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D |OCOL. .;--------| 00000B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000B20: 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 |;--- ......-.EFE| 00000B30: 48 4C 3A CD D5 CC D4 C9 CF CE 20 C8 C6 2C C6 31 |HL:....... ..,.1| 00000B40: 2C C6 32 2C C6 33 20 2D 00 3B 2D 2D 2D 2D 2D 2D |,.2,.3 -.;------| 00000B50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B70: 2D 00 C2 C2 4D 55 4C 54 49 4F 4E 3A 42 49 54 43 |-...MULTION:BITC| 00000B80: 4F 4C 4D 4F 44 45 3B C6 41 52 42 4D 4F 44 55 53 |OLMODE;.ARBMODUS| 00000B90: 00 42 4D 49 4E 46 4D 33 3B 4A 41 00 4A 53 52 46 |.BMINFM3;JA.JSRF| 00000BA0: 41 52 42 45 4E 3B C6 41 52 42 53 50 45 49 43 48 |ARBEN;.ARBSPEICH| 00000BB0: 45 52 20 52 45 54 54 45 4E 00 4E 46 4D 33 3A 4A |ER RETTEN.NFM3:J| 00000BC0: 53 52 47 45 54 42 59 54 45 3B C8 49 4E 54 45 52 |SRGETBYTE;.INTER| 00000BD0: 47 52 55 4E 44 46 41 52 42 45 20 48 4F 4C 45 4E |GRUNDFARBE HOLEN| 00000BE0: 00 4A 53 52 53 41 56 45 53 50 52 49 54 45 3B D3 |.JSRSAVESPRITE;.| 00000BF0: 50 52 49 54 45 5A 45 49 47 45 52 20 52 45 54 54 |PRITEZEIGER RETT| 00000C00: 45 4E 00 43 50 58 23 31 36 3B 47 55 45 4C 54 49 |EN.CPX#16;GUELTI| 00000C10: 47 20 3F 00 42 43 53 4E 4F 43 4F 4C 32 3B 4E 45 |G ?.BCSNOCOL2;NE| 00000C20: 49 4E 00 53 54 58 56 49 43 2B 33 33 3B C6 41 52 |IN.STXVIC+33;.AR| 00000C30: 42 45 20 53 45 54 5A 45 4E 00 4A 53 52 43 48 4B |BE SETZEN.JSRCHK| 00000C40: 4B 4F 4D 3B C6 41 52 42 45 20 31 20 26 20 32 20 |KOM;.ARBE 1 & 2 | 00000C50: 53 45 54 5A 45 4E 00 4A 53 52 47 52 41 46 4F 4E |SETZEN.JSRGRAFON| 00000C60: 00 4A 53 52 43 48 4B 4B 4F 4D 3B C6 41 52 42 45 |.JSRCHKKOM;.ARBE| 00000C70: 20 33 20 48 4F 4C 45 4E 00 4A 53 52 47 45 54 42 | 3 HOLEN.JSRGETB| 00000C80: 59 54 45 00 43 50 58 23 31 36 3B 47 55 45 4C 54 |YTE.CPX#16;GUELT| 00000C90: 49 47 20 3F 00 42 43 53 4E 4F 43 4F 4C 32 3B 4E |IG ?.BCSNOCOL2;N| 00000CA0: 45 49 4E 00 4C 44 59 23 30 3B 49 4E 20 C6 41 52 |EIN.LDY#0;IN .AR| 00000CB0: 42 53 50 45 49 43 48 45 52 20 53 45 54 5A 45 4E |BSPEICHER SETZEN| 00000CC0: 00 54 58 41 00 53 45 54 43 4F 4C 33 3A 53 54 41 |.TXA.SETCOL3:STA| 00000CD0: 46 41 52 42 52 41 4D 2C 59 3B C2 59 54 45 20 30 |FARBRAM,Y;.YTE 0| 00000CE0: 2E 2E 32 35 35 20 53 45 54 5A 45 4E 00 53 54 41 |..255 SETZEN.STA| 00000CF0: 32 35 36 2B 46 41 52 42 52 41 4D 2C 59 3B C2 59 |256+FARBRAM,Y;.Y| 00000D00: 54 45 20 32 35 36 2E 2E 35 31 31 20 53 45 54 5A |TE 256..511 SETZ| 00000D10: 45 4E 00 53 54 41 32 35 36 2A 32 2B 46 41 52 42 |EN.STA256*2+FARB| 00000D20: 52 41 4D 2C 59 3B C2 59 54 45 20 35 31 32 2E 2E |RAM,Y;.YTE 512..| 00000D30: 37 36 37 20 53 45 54 5A 45 4E 00 53 54 41 32 35 |767 SETZEN.STA25| 00000D40: 36 2A 33 2B 46 41 52 42 52 41 4D 2C 59 3B C2 59 |6*3+FARBRAM,Y;.Y| 00000D50: 54 45 20 37 36 38 2E 2E 31 30 32 33 20 53 45 54 |TE 768..1023 SET| 00000D60: 5A 45 4E 00 49 4E 59 00 42 4E 45 53 45 54 43 4F |ZEN.INY.BNESETCO| 00000D70: 4C 33 00 4C 44 41 23 25 30 30 31 30 31 30 30 30 |L3.LDA#%00101000| 00000D80: 3B C8 49 52 45 53 20 D3 50 45 49 43 48 45 52 20 |;.IRES .PEICHER | 00000D90: 46 45 53 54 4C 45 47 45 4E 00 53 54 41 56 49 43 |FESTLEGEN.STAVIC| 00000DA0: 2B 32 34 00 4C 44 41 23 25 30 30 31 31 31 30 31 |+24.LDA#%0011101| 00000DB0: 31 3B C8 49 52 45 53 20 45 49 4E 53 43 48 41 4C |1;.IRES EINSCHAL| 00000DC0: 54 45 4E 00 53 54 41 56 49 43 2B 31 37 00 4C 44 |TEN.STAVIC+17.LD| 00000DD0: 41 23 25 31 31 30 30 30 3B C6 41 52 42 4D 4F 44 |A#%11000;.ARBMOD| 00000DE0: 55 53 20 46 45 53 54 4C 45 47 45 4E 00 53 54 41 |US FESTLEGEN.STA| 00000DF0: 56 49 43 2B 32 32 00 52 54 53 00 20 00 3B 2D 2D |VIC+22.RTS. .;--| 00000E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E20: 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 |-----.;--- .....| 00000E30: C3 2D C2 45 46 45 48 4C 3A 20 C7 D2 C1 C6 CF C6 |.-.EFEHL: ......| 00000E40: C6 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 00 3B |. ---.;| 00000E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E70: 2D 2D 2D 2D 2D 2D 2D 00 44 4F 47 52 41 46 4F 46 |-------.DOGRAFOF| 00000E80: 46 3A 3B C7 D2 C1 C6 CF C6 C6 20 42 45 49 20 C6 |F:;....... BEI .| 00000E90: 45 48 4C 45 52 20 4F 44 45 52 20 C5 CE C4 00 20 |EHLER ODER .... | 00000EA0: 00 C2 C2 47 52 41 46 4F 46 46 3A 42 49 54 43 4F |...GRAFOFF:BITCO| 00000EB0: 4C 4D 4F 44 45 3B C6 41 52 42 4D 4F 44 55 53 00 |LMODE;.ARBMODUS.| 00000EC0: 42 50 4C 4E 46 4D 32 3B 4E 45 49 4E 00 4A 53 52 |BPLNFM2;NEIN.JSR| 00000ED0: 46 41 52 42 45 4E 3B C6 41 52 42 53 50 45 49 43 |FARBEN;.ARBSPEIC| 00000EE0: 48 45 52 20 52 55 45 43 4B 53 45 54 5A 45 4E 00 |HER RUECKSETZEN.| 00000EF0: 4E 46 4D 32 3A 4C 44 41 23 30 3B C6 41 52 42 4D |NFM2:LDA#0;.ARBM| 00000F00: 4F 44 55 53 20 41 42 53 43 48 41 4C 54 45 4E 00 |ODUS ABSCHALTEN.| 00000F10: 53 54 41 43 4F 4C 4D 4F 44 45 00 4C 44 41 23 25 |STACOLMODE.LDA#%| 00000F20: 30 30 31 31 30 31 31 30 3B CE 4F 52 4D 41 4C 45 |00110110;.ORMALE| 00000F30: 20 D3 50 45 49 43 48 45 52 42 45 4C 45 47 55 4E | .PEICHERBELEGUN| 00000F40: 47 00 53 54 41 56 49 43 2B 32 34 00 4C 44 41 23 |G.STAVIC+24.LDA#| 00000F50: 25 30 30 30 31 31 30 31 31 3B D4 45 58 54 20 45 |%00011011;.EXT E| 00000F60: 49 4E 53 43 48 41 4C 54 45 4E 00 53 54 41 56 49 |INSCHALTEN.STAVI| 00000F70: 43 2B 31 37 00 4C 44 41 23 25 31 30 30 30 00 53 |C+17.LDA#%1000.S| 00000F80: 54 41 56 49 43 2B 32 32 00 4A 4D 50 4C 4F 41 44 |TAVIC+22.JMPLOAD| 00000F90: 53 50 52 49 54 45 3B D3 50 52 49 54 45 5A 45 49 |SPRITE;.PRITEZEI| 00000FA0: 47 45 52 20 52 55 45 43 4B 53 45 54 5A 45 4E 00 |GER RUECKSETZEN.| 00000FB0: 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | .;-------------| 00000FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 20 D3 50 |----------.;- .P| 00000FE0: 52 49 54 45 5A 45 49 47 45 52 20 52 45 54 54 45 |RITEZEIGER RETTE| 00000FF0: 4E 2F 53 45 54 5A 45 4E 20 20 20 20 20 20 20 20 |N/SETZEN | 00001000: 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |---.;-----------| 00001010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 53 41 56 |------------.SAV| 00001030: 45 53 50 52 49 54 45 3A 50 48 41 3B C1 2F D9 20 |ESPRITE:PHA;./. | 00001040: 52 45 54 54 45 4E 00 54 59 41 00 50 48 41 00 4C |RETTEN.TYA.PHA.L| 00001050: 44 41 56 49 43 2B 32 34 3B C7 52 41 50 48 49 4B |DAVIC+24;.RAPHIK| 00001060: 20 41 4E 20 3F 00 43 4D 50 23 25 30 30 31 31 30 | AN ?.CMP#%00110| 00001070: 31 31 30 00 42 45 51 55 4E 53 41 56 45 53 50 3B |110.BEQUNSAVESP;| 00001080: 4A 41 00 4C 44 59 23 37 3B 38 20 DA 45 49 47 45 |JA.LDY#7;8 .EIGE| 00001090: 52 20 41 55 53 20 54 45 58 54 53 45 49 54 45 00 |R AUS TEXTSEITE.| 000010A0: 53 41 56 45 53 50 44 3A 4C 44 41 54 45 58 54 53 |SAVESPD:LDATEXTS| 000010B0: 45 49 54 45 2B 31 30 32 34 2D 38 2C 59 3B 53 50 |EITE+1024-8,Y;SP| 000010C0: 45 49 43 48 45 52 4E 00 53 54 41 53 50 52 49 54 |EICHERN.STASPRIT| 000010D0: 45 5A 45 49 47 2C 59 00 44 45 59 3B 42 49 53 20 |EZEIG,Y.DEY;BIS | 000010E0: 41 4C 4C 45 20 DA 45 49 47 45 52 20 47 45 53 50 |ALLE .EIGER GESP| 000010F0: 45 49 43 48 45 52 54 00 42 50 4C 53 41 56 45 53 |EICHERT.BPLSAVES| 00001100: 50 44 00 55 4E 53 41 56 45 53 50 3A 50 4C 41 3B |PD.UNSAVESP:PLA;| 00001110: C1 2F D9 20 52 45 53 54 41 55 52 49 45 52 45 4E |./. RESTAURIEREN| 00001120: 00 54 41 59 00 50 4C 41 00 52 54 53 00 20 00 4C |.TAY.PLA.RTS. .L| 00001130: 4F 41 44 53 50 52 49 54 45 3A 50 48 41 3B C1 2F |OADSPRITE:PHA;./| 00001140: D9 20 52 45 54 54 45 4E 00 54 59 41 00 50 48 41 |. RETTEN.TYA.PHA| 00001150: 00 4C 44 59 23 37 3B 38 20 D3 50 52 49 54 45 5A |.LDY#7;8 .PRITEZ| 00001160: 45 49 47 45 52 20 41 55 53 20 D0 55 46 46 45 52 |EIGER AUS .UFFER| 00001170: 20 49 4E 00 4C 4F 41 44 53 50 44 3A 4C 44 41 53 | IN.LOADSPD:LDAS| 00001180: 50 52 49 54 45 5A 45 49 47 2C 59 3B 54 45 58 54 |PRITEZEIG,Y;TEXT| 00001190: 53 45 49 54 45 20 55 4E 44 00 53 54 41 54 45 58 |SEITE UND.STATEX| 000011A0: 54 53 45 49 54 45 2B 31 30 32 34 2D 38 2C 59 3B |TSEITE+1024-8,Y;| 000011B0: 46 41 52 42 45 48 49 52 45 53 20 42 52 49 4E 47 |FARBEHIRES BRING| 000011C0: 45 4E 00 53 54 41 46 41 52 42 45 48 49 52 45 53 |EN.STAFARBEHIRES| 000011D0: 2B 31 30 32 34 2D 38 2C 59 00 44 45 59 00 42 50 |+1024-8,Y.DEY.BP| 000011E0: 4C 4C 4F 41 44 53 50 44 00 50 4C 41 3B C1 2F D9 |LLOADSPD.PLA;./.| 000011F0: 20 52 45 53 54 41 55 52 49 45 52 45 4E 00 54 41 | RESTAURIEREN.TA| 00001200: 59 00 50 4C 41 00 52 54 53 00 20 00 53 50 52 49 |Y.PLA.RTS. .SPRI| 00001210: 54 45 5A 45 49 47 3A 2E 44 42 38 3B D0 4C 41 54 |TEZEIG:.DB8;.LAT| 00001220: 5A 20 46 55 45 52 20 38 20 D3 50 52 49 54 45 5A |Z FUER 8 .PRITEZ| 00001230: 45 49 47 45 52 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D |EIGER. .;-------| 00001240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001260: 00 3B 2D 20 C6 41 52 42 52 41 4D 20 49 4E 2F 41 |.;- .ARBRAM IN/A| 00001270: 55 53 20 D0 55 46 46 45 52 20 52 45 54 54 45 4E |US .UFFER RETTEN| 00001280: 2F 48 4F 4C 45 4E 20 2D 2D 00 3B 2D 2D 2D 2D 2D |/HOLEN --.;-----| 00001290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000012A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000012B0: 2D 2D 00 46 41 52 42 45 4E 3A 4C 44 41 23 3C 46 |--.FARBEN:LDA#<F| 000012C0: 41 52 42 52 41 4D 3B 41 5A 47 20 41 55 46 20 C6 |ARBRAM;AZG AUF .| 000012D0: 41 52 42 52 41 4D 00 53 54 41 41 5A 47 00 4C 44 |ARBRAM.STAAZG.LD| 000012E0: 41 23 3E 46 41 52 42 52 41 4D 00 53 54 41 41 5A |A#>FARBRAM.STAAZ| 000012F0: 47 2B 31 00 4C 44 41 23 3C 43 4F 4C 4D 45 4D 3B |G+1.LDA#<COLMEM;| 00001300: 41 5A 47 32 20 41 55 46 20 43 4F 4C 4D 45 4D 00 |AZG2 AUF COLMEM.| 00001310: 53 54 41 41 5A 47 32 00 4C 44 41 23 3E 43 4F 4C |STAAZG2.LDA#>COL| 00001320: 4D 45 4D 00 53 54 41 41 5A 47 32 2B 31 00 54 52 |MEM.STAAZG2+1.TR| 00001330: 41 4E 53 43 4F 4C 53 3A 4C 44 59 23 30 3B DA 57 |ANSCOLS:LDY#0;.W| 00001340: 45 49 20 CE 49 42 42 4C 45 20 41 55 53 20 C6 41 |EI .IBBLE AUS .A| 00001350: 52 42 52 41 4D 20 48 4F 4C 45 4E 00 4C 44 41 28 |RBRAM HOLEN.LDA(| 00001360: 41 5A 47 32 29 2C 59 3B C2 59 54 45 20 49 4E 20 |AZG2),Y;.YTE IN | 00001370: 43 4F 4C 4D 45 4D 20 41 55 46 20 D3 54 41 43 4B |COLMEM AUF .TACK| 00001380: 00 50 48 41 00 4C 44 41 28 41 5A 47 29 2C 59 3B |.PHA.LDA(AZG),Y;| 00001390: 45 52 53 54 45 53 20 CE 49 42 42 4C 45 20 49 4E |ERSTES .IBBLE IN| 000013A0: 20 C2 49 54 20 34 2E 2E 37 00 41 53 4C 00 41 53 | .IT 4..7.ASL.AS| 000013B0: 4C 00 41 53 4C 00 41 53 4C 00 53 54 41 4D 45 4D |L.ASL.ASL.STAMEM| 000013C0: 3B 4D 45 52 4B 45 4E 00 49 4E 59 00 4C 44 41 28 |;MERKEN.INY.LDA(| 000013D0: 41 5A 47 29 2C 59 3B 5A 57 45 49 54 45 53 20 CE |AZG),Y;ZWEITES .| 000013E0: 49 42 42 4C 45 20 49 4E 20 C2 49 54 20 30 2E 2E |IBBLE IN .IT 0..| 000013F0: 33 00 41 4E 44 23 25 31 31 31 31 00 4F 52 41 4D |3.AND#%1111.ORAM| 00001400: 45 4D 3B 5A 57 45 49 54 45 53 20 CE 49 42 42 4C |EM;ZWEITES .IBBL| 00001410: 45 20 45 49 4E 42 4C 45 4E 44 45 4E 00 44 45 59 |E EINBLENDEN.DEY| 00001420: 00 53 54 41 28 41 5A 47 32 29 2C 59 3B 49 4E 20 |.STA(AZG2),Y;IN | 00001430: 43 4F 4C 4D 45 4D 20 53 50 45 49 43 48 45 52 4E |COLMEM SPEICHERN| 00001440: 00 50 4C 41 3B C2 59 54 45 20 41 55 53 20 43 4F |.PLA;.YTE AUS CO| 00001450: 4C 4D 45 4D 20 49 4E 20 C1 43 43 55 00 50 48 41 |LMEM IN .CCU.PHA| 00001460: 00 4C 53 52 3B C2 49 54 20 34 2E 2E 37 20 49 4E |.LSR;.IT 4..7 IN| 00001470: 20 C6 41 52 42 52 41 4D 20 53 50 45 49 43 48 45 | .ARBRAM SPEICHE| 00001480: 52 4E 00 4C 53 52 00 4C 53 52 00 4C 53 52 00 53 |RN.LSR.LSR.LSR.S| 00001490: 54 41 28 41 5A 47 29 2C 59 00 49 4E 59 3B C2 49 |TA(AZG),Y.INY;.I| 000014A0: 54 20 30 2E 2E 33 20 49 4E 20 C6 41 52 42 52 41 |T 0..3 IN .ARBRA| 000014B0: 4D 20 53 50 45 49 43 48 45 52 4E 00 50 4C 41 00 |M SPEICHERN.PLA.| 000014C0: 53 54 41 28 41 5A 47 29 2C 59 00 49 4E 43 41 5A |STA(AZG),Y.INCAZ| 000014D0: 47 32 3B DA 45 49 47 45 52 20 41 55 46 20 43 4F |G2;.EIGER AUF CO| 000014E0: 4C 4D 45 4D 20 2B 31 00 42 4E 45 43 43 00 49 4E |LMEM +1.BNECC.IN| 000014F0: 43 41 5A 47 32 2B 31 00 43 43 3A 43 4C 43 3B DA |CAZG2+1.CC:CLC;.| 00001500: 45 49 47 45 52 20 41 55 46 20 C6 41 52 42 52 41 |EIGER AUF .ARBRA| 00001510: 4D 20 2B 32 00 4C 44 41 41 5A 47 00 41 44 43 23 |M +2.LDAAZG.ADC#| 00001520: 32 00 53 54 41 41 5A 47 00 42 43 43 43 43 32 00 |2.STAAZG.BCCCC2.| 00001530: 49 4E 43 41 5A 47 2B 31 00 43 43 32 3A 4C 44 41 |INCAZG+1.CC2:LDA| 00001540: 41 5A 47 2B 31 3B C5 4E 44 45 20 44 45 53 20 C6 |AZG+1;.NDE DES .| 00001550: 41 52 42 53 50 45 49 43 48 45 52 53 20 45 52 52 |ARBSPEICHERS ERR| 00001560: 45 49 43 48 54 20 3F 00 43 4D 50 23 3E 46 41 52 |EICHT ?.CMP#>FAR| 00001570: 42 52 41 4D 2B 31 30 32 34 00 42 4E 45 54 52 41 |BRAM+1024.BNETRA| 00001580: 4E 53 43 4F 4C 53 3B 4E 45 49 4E 00 4C 44 41 43 |NSCOLS;NEIN.LDAC| 00001590: 4F 4C 4D 4F 44 45 3B CD 41 52 4B 45 20 46 55 45 |OLMODE;.ARKE FUE| 000015A0: 52 20 C6 41 52 42 4D 4F 44 55 53 20 55 4D 44 52 |R .ARBMODUS UMDR| 000015B0: 45 48 45 4E 00 45 4F 52 23 31 32 38 00 53 54 41 |EHEN.EOR#128.STA| 000015C0: 43 4F 4C 4D 4F 44 45 00 4C 44 41 48 43 4F 4C 3B |COLMODE.LDAHCOL;| 000015D0: C8 49 4E 54 45 52 47 52 55 4E 44 46 41 52 42 45 |.INTERGRUNDFARBE| 000015E0: 20 49 4E 20 48 43 4F 4C 20 53 50 45 49 43 48 45 | IN HCOL SPEICHE| 000015F0: 52 4E 00 50 48 41 00 4C 44 41 56 49 43 2B 33 33 |RN.PHA.LDAVIC+33| 00001600: 3B 55 4E 44 20 48 43 4F 4C 20 41 4C 53 20 C8 49 |;UND HCOL ALS .I| 00001610: 4E 54 45 52 47 52 55 4E 44 46 41 52 42 45 20 53 |NTERGRUNDFARBE S| 00001620: 45 54 5A 45 4E 00 53 54 41 48 43 4F 4C 00 50 4C |ETZEN.STAHCOL.PL| 00001630: 41 00 53 54 41 56 49 43 2B 33 33 00 52 54 53 00 |A.STAVIC+33.RTS.| 00001640: 20 00 48 43 4F 4C 3A 2E 42 59 30 3B D3 50 45 49 | .HCOL:.BY0;.PEI| 00001650: 43 48 45 52 20 46 55 45 52 20 C8 49 4E 54 45 52 |CHER FUER .INTER| 00001660: 47 52 55 4E 44 46 41 52 42 45 00 20 00 3B 2D 2D |GRUNDFARBE. .;--| 00001670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001690: 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 CB 4F 4F 52 44 |-----.;--- .OORD| 000016A0: 49 4E 41 54 45 4E 50 41 41 52 20 45 49 4E 4C 45 |INATENPAAR EINLE| 000016B0: 53 45 4E 20 20 20 20 20 20 20 20 2D 2D 2D 00 3B |SEN ---.;| 000016C0: 2D 2D 2D 20 26 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 |--- & ......-.EF| 000016D0: 45 48 4C 3A 20 CD CF D6 C5 20 D8 2C D9 20 20 20 |EHL: .... .,. | 000016E0: 20 20 20 20 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D | ---.;-------| 000016F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001710: 00 4B 4F 4F 52 31 36 30 3A 4C 44 41 24 31 35 3B |.KOOR160:LDA$15;| 00001720: D8 20 3E 20 31 35 39 20 3F 00 42 4E 45 4E 4F 43 |. > 159 ?.BNENOC| 00001730: 4F 4C 33 3B 4A 41 2C 20 C6 45 48 4C 45 52 00 4C |OL3;JA, .EHLER.L| 00001740: 44 41 24 31 34 00 43 4D 50 23 31 36 30 00 42 43 |DA$14.CMP#160.BC| 00001750: 53 4E 4F 43 4F 4C 33 3B 4A 41 2C 20 C6 45 48 4C |SNOCOL3;JA, .EHL| 00001760: 45 52 00 42 43 43 58 4F 4B 3B 4E 45 49 4E 2C 20 |ER.BCCXOK;NEIN, | 00001770: D8 20 4F 4B 00 20 00 C2 C2 4D 4F 56 45 3A 00 47 |. OK. ...MOVE:.G| 00001780: 45 54 47 4B 4F 4F 52 3A 4A 53 52 47 45 54 41 44 |ETGKOOR:JSRGETAD| 00001790: 42 59 3B D8 20 55 4E 44 20 D9 20 48 4F 4C 45 4E |BY;. UND . HOLEN| 000017A0: 00 53 45 54 47 4B 4F 4F 52 3A 43 50 58 23 32 30 |.SETGKOOR:CPX#20| 000017B0: 30 3B D9 20 3C 32 30 30 20 3F 00 42 43 53 4E 4F |0;. <200 ?.BCSNO| 000017C0: 43 4F 4C 33 3B 4E 45 49 4E 2C 20 D9 20 5A 55 20 |COL3;NEIN, . ZU | 000017D0: 47 52 4F 53 53 00 42 49 54 43 4F 4C 4D 4F 44 45 |GROSS.BITCOLMODE| 000017E0: 3B C6 41 52 42 4D 4F 44 55 53 20 3F 00 42 4D 49 |;.ARBMODUS ?.BMI| 000017F0: 4B 4F 4F 52 31 36 30 3B 4A 41 00 4C 44 41 24 31 |KOOR160;JA.LDA$1| 00001800: 35 3B D8 20 3C 20 35 31 32 20 3F 00 42 45 51 58 |5;. < 512 ?.BEQX| 00001810: 4F 4B 3B 28 3C 32 35 36 20 50 41 53 53 54 20 49 |OK;(<256 PASST I| 00001820: 4D 4D 45 52 29 00 43 4D 50 23 32 00 42 43 53 4E |MMER).CMP#2.BCSN| 00001830: 4F 43 4F 4C 33 3B 4E 45 49 4E 00 4C 44 41 24 31 |OCOL3;NEIN.LDA$1| 00001840: 34 00 43 4D 50 23 3C 33 32 30 3B 3C 20 33 32 30 |4.CMP#<320;< 320| 00001850: 20 3F 00 42 43 53 4E 4F 43 4F 4C 33 3B 4E 45 49 | ?.BCSNOCOL3;NEI| 00001860: 4E 00 58 4F 4B 3A 53 54 58 59 43 55 52 53 3B CB |N.XOK:STXYCURS;.| 00001870: 4F 4F 52 44 49 4E 41 54 45 4E 20 53 50 45 49 43 |OORDINATEN SPEIC| 00001880: 48 45 52 4E 00 4C 44 41 24 31 34 00 53 54 41 58 |HERN.LDA$14.STAX| 00001890: 43 55 52 53 00 4C 44 41 24 31 35 00 53 54 41 58 |CURS.LDA$15.STAX| 000018A0: 43 55 52 53 2B 31 00 52 54 53 00 20 00 C2 C2 4D |CURS+1.RTS. ...M| 000018B0: 4F 56 45 52 3A 3B 52 45 4C 41 54 49 56 45 20 CB |OVER:;RELATIVE .| 000018C0: 4F 4F 52 44 49 4E 41 54 45 4E 20 48 4F 4C 45 4E |OORDINATEN HOLEN| 000018D0: 00 47 45 54 52 47 4B 4F 4F 52 3A 4A 53 52 47 45 |.GETRGKOOR:JSRGE| 000018E0: 54 49 4E 54 45 47 45 52 3B C9 4E 54 45 47 45 52 |TINTEGER;.NTEGER| 000018F0: 20 48 4F 4C 45 4E 00 43 4C 43 3B D7 45 52 54 20 | HOLEN.CLC;.ERT | 00001900: 2B 20 D8 2D CB 4F 4F 52 44 49 4E 41 54 45 00 54 |+ .-.OORDINATE.T| 00001910: 59 41 3B CC 4F 57 00 41 44 43 58 43 55 52 53 00 |YA;.OW.ADCXCURS.| 00001920: 53 54 41 4D 45 4D 3B 4D 45 52 4B 45 4E 00 54 58 |STAMEM;MERKEN.TX| 00001930: 41 3B C8 49 47 48 00 41 44 43 58 43 55 52 53 2B |A;.IGH.ADCXCURS+| 00001940: 31 00 53 54 41 4D 45 4D 2B 31 3B 4D 45 52 4B 45 |1.STAMEM+1;MERKE| 00001950: 4E 00 4A 53 52 43 48 4B 4B 4F 4D 3B C9 4E 54 45 |N.JSRCHKKOM;.NTE| 00001960: 47 45 52 20 48 4F 4C 45 4E 00 4A 53 52 47 45 54 |GER HOLEN.JSRGET| 00001970: 49 4E 54 45 47 45 52 00 43 4C 43 3B 2B 20 D9 20 |INTEGER.CLC;+ . | 00001980: CB 4F 4F 52 44 49 4E 41 54 45 00 54 59 41 00 41 |.OORDINATE.TYA.A| 00001990: 44 43 59 43 55 52 53 00 53 54 41 4D 45 4D 2B 32 |DCYCURS.STAMEM+2| 000019A0: 3B 53 50 45 49 43 48 45 52 4E 00 54 58 41 00 41 |;SPEICHERN.TXA.A| 000019B0: 44 43 23 30 00 43 4D 50 23 30 00 42 4E 45 4E 4F |DC#0.CMP#0.BNENO| 000019C0: 43 4F 4C 33 3B D9 3E 31 39 39 20 2D 3E 20 C6 45 |COL3;.>199 -> .E| 000019D0: 48 4C 45 52 00 4C 44 58 4D 45 4D 2B 32 3B D7 45 |HLER.LDXMEM+2;.E| 000019E0: 49 54 45 52 20 42 45 49 20 44 45 4E 20 41 42 53 |ITER BEI DEN ABS| 000019F0: 4F 4C 55 54 45 4E 00 4C 44 41 4D 45 4D 3B CB 4F |OLUTEN.LDAMEM;.O| 00001A00: 4F 52 44 49 4E 41 54 45 4E 00 53 54 41 24 31 34 |ORDINATEN.STA$14| 00001A10: 00 4C 44 41 4D 45 4D 2B 31 00 53 54 41 24 31 35 |.LDAMEM+1.STA$15| 00001A20: 00 4A 4D 50 53 45 54 47 4B 4F 4F 52 00 20 00 47 |.JMPSETGKOOR. .G| 00001A30: 45 54 49 4E 54 45 47 45 52 3A 4A 53 52 46 52 4D |ETINTEGER:JSRFRM| 00001A40: 45 56 4C 3B 41 52 49 54 48 4D 2E 20 C1 55 53 44 |EVL;ARITHM. .USD| 00001A50: 52 55 43 4B 20 48 4F 4C 45 4E 00 4C 44 58 23 36 |RUCK HOLEN.LDX#6| 00001A60: 30 3B 49 4E 20 C9 4E 54 45 47 45 52 20 57 41 4E |0;IN .NTEGER WAN| 00001A70: 44 45 4C 4E 00 4A 53 52 42 41 53 49 43 52 4F 4D |DELN.JSRBASICROM| 00001A80: 3B C9 4E 54 45 47 45 52 20 49 4E 20 D9 2F D8 00 |;.NTEGER IN ./..| 00001A90: 54 41 58 00 52 54 53 00 20 00 4E 4F 43 4F 4C 33 |TAX.RTS. .NOCOL3| 00001AA0: 3A 4A 4D 50 4E 4F 43 4F 4C 00 20 00 3B 2D 2D 2D |:JMPNOCOL. .;---| 00001AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001AD0: 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 |----.;--- ......| 00001AE0: 2D C2 45 46 45 48 4C 3A 20 C1 3D D4 C5 D3 D4 28 |-.EFEHL: .=....(| 00001AF0: D8 2C D9 29 20 20 20 20 20 20 2D 2D 2D 00 3B 2D |.,.) ---.;-| 00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B20: 2D 2D 2D 2D 2D 2D 00 C2 C2 54 45 53 54 52 3A 4A |------...TESTR:J| 00001B30: 53 52 43 48 52 47 45 54 3B 52 45 4C 41 54 49 56 |SRCHRGET;RELATIV| 00001B40: 45 20 CB 4F 4F 52 44 49 4E 41 54 45 4E 20 48 4F |E .OORDINATEN HO| 00001B50: 4C 45 4E 00 4A 53 52 47 45 54 52 47 4B 4F 4F 52 |LEN.JSRGETRGKOOR| 00001B60: 00 4A 4D 50 54 45 53 54 42 45 46 3B 55 4E 44 20 |.JMPTESTBEF;UND | 00001B70: 54 45 53 54 45 4E 00 20 00 C2 C2 54 45 53 54 3A |TESTEN. ...TEST:| 00001B80: 4A 53 52 43 48 52 47 45 54 3B CB 4F 4F 52 44 49 |JSRCHRGET;.OORDI| 00001B90: 4E 41 54 45 4E 20 48 4F 4C 45 4E 00 4A 53 52 47 |NATEN HOLEN.JSRG| 00001BA0: 45 54 47 4B 4F 4F 52 00 54 45 53 54 42 45 46 3A |ETGKOOR.TESTBEF:| 00001BB0: 4A 53 52 43 48 4B 4B 4C 41 5A 55 3B 41 55 46 20 |JSRCHKKLAZU;AUF | 00001BC0: 27 29 27 20 54 45 53 54 45 4E 00 4A 53 52 4D 41 |')' TESTEN.JSRMA| 00001BD0: 4B 45 5A 47 3B D0 4F 49 4E 54 45 52 20 42 45 52 |KEZG;.OINTER BER| 00001BE0: 45 43 48 4E 45 4E 00 42 49 54 43 4F 4C 4D 4F 44 |ECHNEN.BITCOLMOD| 00001BF0: 45 3B C6 41 52 42 4D 4F 44 55 53 20 3F 00 42 50 |E;.ARBMODUS ?.BP| 00001C00: 4C 48 49 52 45 53 54 53 54 3B 4E 45 49 4E 00 54 |LHIRESTST;NEIN.T| 00001C10: 58 41 3B CD 41 53 4B 45 4E 4E 55 4D 4D 45 52 20 |XA;.ASKENNUMMER | 00001C20: 49 4E 20 C1 00 4C 53 52 3B 2F 32 00 54 41 58 3B |IN ..LSR;/2.TAX;| 00001C30: 49 4E 20 D8 00 4C 44 41 41 5A 47 32 2B 31 3B D7 |IN ..LDAAZG2+1;.| 00001C40: 45 52 54 20 56 4F 4E 20 28 D0 4F 49 4E 54 45 52 |ERT VON (.OINTER| 00001C50: 29 00 53 43 48 49 45 42 45 3A 44 45 58 3B 52 45 |).SCHIEBE:DEX;RE| 00001C60: 43 48 54 53 53 43 48 49 45 42 45 4E 00 42 4D 49 |CHTSSCHIEBEN.BMI| 00001C70: 53 43 48 49 45 42 45 45 4E 44 3B 42 49 53 20 53 |SCHIEBEEND;BIS S| 00001C80: 49 47 4E 49 46 49 4B 41 4E 54 45 20 C2 49 54 53 |IGNIFIKANTE .ITS| 00001C90: 00 4C 53 52 3B 49 4E 20 C2 49 54 20 30 2F 31 00 |.LSR;IN .IT 0/1.| 00001CA0: 4C 53 52 00 4A 4D 50 53 43 48 49 45 42 45 00 53 |LSR.JMPSCHIEBE.S| 00001CB0: 43 48 49 45 42 45 45 4E 44 3A 41 4E 44 23 25 31 |CHIEBEEND:AND#%1| 00001CC0: 31 3B 41 4E 44 45 52 45 20 C2 49 54 53 20 41 55 |1;ANDERE .ITS AU| 00001CD0: 53 42 4C 45 4E 44 45 4E 00 54 41 59 3B C1 2F D9 |SBLENDEN.TAY;./.| 00001CE0: 20 49 53 54 20 C5 52 47 45 42 4E 49 53 00 4C 44 | IST .RGEBNIS.LD| 00001CF0: 41 23 30 00 4A 4D 50 45 52 47 45 42 4E 49 53 00 |A#0.JMPERGEBNIS.| 00001D00: 20 00 48 49 52 45 53 54 53 54 3A 4C 44 41 41 5A | .HIRESTST:LDAAZ| 00001D10: 47 32 2B 31 3B D7 45 52 54 20 56 4F 4E 20 28 D0 |G2+1;.ERT VON (.| 00001D20: 4F 49 4E 54 45 52 29 00 41 4E 44 41 5A 47 32 3B |OINTER).ANDAZG2;| 00001D30: C1 CE C4 20 4D 49 54 20 CD 41 53 4B 45 00 42 4E |... MIT .ASKE.BN| 00001D40: 45 43 4F 4C 45 49 4E 53 3B C6 41 52 42 45 20 31 |ECOLEINS;.ARBE 1| 00001D50: 00 4C 44 59 23 30 3B 30 20 4C 49 45 46 45 52 4E |.LDY#0;0 LIEFERN| 00001D60: 00 42 49 54 00 43 4F 4C 45 49 4E 53 3A 4C 44 59 |.BIT.COLEINS:LDY| 00001D70: 23 31 3B 31 20 4C 49 45 46 45 52 4E 00 4C 44 41 |#1;1 LIEFERN.LDA| 00001D80: 23 30 00 4A 4D 50 45 52 47 45 42 4E 49 53 00 20 |#0.JMPERGEBNIS. | 00001D90: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00001DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 |---------.;--- .| 00001DC0: C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 3A 20 D0 CC |.....-.EFEHL: ..| 00001DD0: CF D4 20 D8 2C D9 20 20 20 20 20 20 20 20 20 2D |.. .,. -| 00001DE0: 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |--.;------------| 00001DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 50 4C |-----------...PL| 00001E10: 4F 54 52 3A 4A 53 52 47 45 54 52 47 4B 4F 4F 52 |OTR:JSRGETRGKOOR| 00001E20: 3B 52 45 4C 41 54 49 56 45 20 CB 4F 4F 52 44 49 |;RELATIVE .OORDI| 00001E30: 4E 41 54 45 4E 20 4C 45 53 45 4E 00 4A 4D 50 50 |NATEN LESEN.JMPP| 00001E40: 4C 4F 54 3B D0 55 4E 4B 54 20 53 45 54 5A 45 4E |LOT;.UNKT SETZEN| 00001E50: 00 20 00 C2 C2 50 4C 4F 54 3A 4A 53 52 47 45 54 |. ...PLOT:JSRGET| 00001E60: 47 4B 4F 4F 52 3B D0 55 4E 4B 54 20 53 45 54 5A |GKOOR;.UNKT SETZ| 00001E70: 45 4E 00 50 4C 4F 54 3A 4A 53 52 4D 41 4B 45 5A |EN.PLOT:JSRMAKEZ| 00001E80: 47 3B C1 44 52 45 53 53 45 20 49 4E 20 41 5A 47 |G;.DRESSE IN AZG| 00001E90: 20 42 52 49 4E 47 45 4E 20 2F 20 CD 41 53 4B 45 | BRINGEN / .ASKE| 00001EA0: 20 49 4E 20 41 5A 47 32 00 44 4F 50 4C 4F 54 3A | IN AZG2.DOPLOT:| 00001EB0: 42 49 54 43 4F 4C 4D 4F 44 45 3B C6 41 52 42 4D |BITCOLMODE;.ARBM| 00001EC0: 4F 44 55 53 20 3F 00 42 50 4C 48 49 52 45 53 3B |ODUS ?.BPLHIRES;| 00001ED0: 4E 45 49 4E 00 54 58 41 3B CD 41 53 4B 45 4E 4E |NEIN.TXA;.ASKENN| 00001EE0: 55 4D 4D 45 52 2F 32 20 49 4E 20 D8 00 4C 53 52 |UMMER/2 IN ..LSR| 00001EF0: 00 54 41 58 00 4C 44 41 41 5A 47 32 2B 31 3B D7 |.TAX.LDAAZG2+1;.| 00001F00: 45 52 54 20 56 4F 4E 20 28 D0 4F 49 4E 54 45 52 |ERT VON (.OINTER| 00001F10: 29 00 41 4E 44 44 45 4C 42 49 54 53 2C 58 3B C2 |).ANDDELBITS,X;.| 00001F20: 49 54 53 20 4C 4F 45 53 43 48 45 4E 00 4F 52 41 |ITS LOESCHEN.ORA| 00001F30: 50 45 4E 42 49 54 53 2C 58 3B D0 C5 CE 2D C2 49 |PENBITS,X;...-.I| 00001F40: 54 53 20 45 49 4E 42 4C 45 4E 44 45 4E 00 53 54 |TS EINBLENDEN.ST| 00001F50: 41 28 41 5A 47 29 2C 59 3B D0 55 4E 4B 54 20 53 |A(AZG),Y;.UNKT S| 00001F60: 45 54 5A 45 4E 00 52 54 53 00 20 00 48 49 52 45 |ETZEN.RTS. .HIRE| 00001F70: 53 3A 4C 44 41 41 5A 47 32 00 42 49 54 44 52 41 |S:LDAAZG2.BITDRA| 00001F80: 57 4D 4F 44 45 3B C4 52 41 57 4D 4F 44 45 20 49 |WMODE;.RAWMODE I| 00001F90: 53 54 20 53 45 54 5A 45 4E 20 3F 00 42 4D 49 44 |ST SETZEN ?.BMID| 00001FA0: 45 4C 4D 4F 44 45 3B 4E 45 49 4E 00 4F 52 41 41 |ELMODE;NEIN.ORAA| 00001FB0: 5A 47 32 2B 31 3B C2 49 54 20 53 45 54 5A 45 4E |ZG2+1;.IT SETZEN| 00001FC0: 00 53 54 41 28 41 5A 47 29 2C 59 3B D0 55 4E 4B |.STA(AZG),Y;.UNK| 00001FD0: 54 20 53 45 54 5A 45 4E 00 52 54 53 00 44 45 4C |T SETZEN.RTS.DEL| 00001FE0: 4D 4F 44 45 3A 45 4F 52 23 24 46 46 3B CD 41 53 |MODE:EOR#$FF;.AS| 00001FF0: 4B 45 20 49 4E 56 45 52 54 49 45 52 45 4E 00 41 |KE INVERTIEREN.A| 00002000: 4E 44 41 5A 47 32 2B 31 3B C2 49 54 20 4C 4F 45 |NDAZG2+1;.IT LOE| 00002010: 53 43 48 45 4E 00 53 54 41 28 41 5A 47 29 2C 59 |SCHEN.STA(AZG),Y| 00002020: 3B D0 55 4E 4B 54 20 4C 4F 45 53 43 48 45 4E 00 |;.UNKT LOESCHEN.| 00002030: 52 54 53 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |RTS. .;---------| 00002040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B |--------------.;| 00002060: 2D 2D 2D 20 C2 45 52 45 43 48 4E 45 54 20 41 55 |--- .ERECHNET AU| 00002070: 53 20 CB 4F 4F 52 44 49 4E 41 54 45 4E 20 DA 45 |S .OORDINATEN .E| 00002080: 49 47 45 52 20 2D 2D 00 3B 2D 2D 2D 20 41 55 46 |IGER --.;--- AUF| 00002090: 20 C7 52 41 50 48 49 4B 42 59 54 45 20 49 4E 20 | .RAPHIKBYTE IN | 000020A0: 41 5A 47 2C 20 C2 49 54 4D 41 53 4B 45 20 2D 2D |AZG, .ITMASKE --| 000020B0: 00 3B 2D 2D 2D 20 49 4E 20 41 5A 47 32 20 55 4E |.;--- IN AZG2 UN| 000020C0: 44 20 C2 59 54 45 57 45 52 54 20 49 4E 20 41 5A |D .YTEWERT IN AZ| 000020D0: 47 32 2B 31 20 20 20 2D 2D 00 3B 2D 2D 2D 2D 2D |G2+1 --.;-----| 000020E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000020F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002100: 2D 2D 00 4D 41 4B 45 5A 47 3A 42 49 54 43 4F 4C |--.MAKEZG:BITCOL| 00002110: 4D 4F 44 45 3B C6 41 52 42 4D 4F 44 55 53 20 3F |MODE;.ARBMODUS ?| 00002120: 00 42 50 4C 4D 41 4B 45 5A 47 31 3B 4E 45 49 4E |.BPLMAKEZG1;NEIN| 00002130: 00 41 53 4C 58 43 55 52 53 3B D8 2D CB 4F 4F 52 |.ASLXCURS;.-.OOR| 00002140: 44 49 4E 41 54 45 20 2A 32 00 52 4F 4C 58 43 55 |DINATE *2.ROLXCU| 00002150: 52 53 2B 31 00 4A 53 52 4D 41 4B 45 5A 47 31 3B |RS+1.JSRMAKEZG1;| 00002160: DA 45 49 47 45 52 20 42 45 52 45 43 48 4E 45 4E |.EIGER BERECHNEN| 00002170: 00 4C 53 52 58 43 55 52 53 2B 31 3B D8 2D CB 4F |.LSRXCURS+1;.-.O| 00002180: 4F 52 44 49 4E 41 54 45 20 2F 32 00 52 4F 52 58 |ORDINATE /2.RORX| 00002190: 43 55 52 53 00 52 54 53 00 20 00 4D 41 4B 45 5A |CURS.RTS. .MAKEZ| 000021A0: 47 31 3A 4C 44 59 59 43 55 52 53 3B C9 CE D4 28 |G1:LDYYCURS;...(| 000021B0: D9 2F 38 29 00 54 59 41 00 4C 53 52 00 4C 53 52 |./8).TYA.LSR.LSR| 000021C0: 00 4C 53 52 00 54 41 58 00 4C 44 41 4D 55 4C 48 |.LSR.TAX.LDAMULH| 000021D0: 49 2C 58 00 53 54 41 41 5A 47 2B 31 3B 3E 33 32 |I,X.STAAZG+1;>32| 000021E0: 30 2A C9 CE D4 28 D9 2F 38 29 00 54 58 41 00 41 |0*...(./8).TXA.A| 000021F0: 4E 44 23 33 3B C2 49 54 53 20 32 2E 2E 37 20 4C |ND#3;.ITS 2..7 L| 00002200: 4F 45 53 43 48 45 4E 00 54 41 58 00 4C 44 41 4D |OESCHEN.TAX.LDAM| 00002210: 55 4C 4C 4F 2C 58 00 53 54 41 41 5A 47 3B 3C 33 |ULLO,X.STAAZG;<3| 00002220: 32 30 2A C9 CE D4 28 D9 2F 38 29 00 54 59 41 3B |20*...(./8).TYA;| 00002230: D9 20 CB 4F 4F 52 44 49 4E 41 54 45 00 41 4E 44 |. .OORDINATE.AND| 00002240: 23 37 3B C1 CE C4 20 37 00 43 4C 43 00 41 44 43 |#7;... 7.CLC.ADC| 00002250: 41 5A 47 3B CF 46 46 53 45 54 20 D9 20 3D 20 33 |AZG;.FFSET . = 3| 00002260: 32 30 2A C9 CE D4 28 D9 2F 38 29 2B 28 D9 20 C1 |20*...(./8)+(. .| 00002270: CE C4 20 37 29 00 53 54 41 41 5A 47 00 4C 44 41 |.. 7).STAAZG.LDA| 00002280: 58 43 55 52 53 00 41 4E 44 23 24 46 38 00 53 54 |XCURS.AND#$F8.ST| 00002290: 41 41 5A 47 32 2B 31 3B CF 46 46 53 45 54 20 D8 |AAZG2+1;.FFSET .| 000022A0: 20 3D 20 38 2A C9 CE D4 28 D8 2F 38 29 00 4C 44 | = 8*...(./8).LD| 000022B0: 41 23 3E 48 49 52 45 53 53 45 49 54 45 3B C8 49 |A#>HIRESSEITE;.I| 000022C0: 52 45 53 53 45 49 54 45 00 4F 52 41 41 5A 47 2B |RESSEITE.ORAAZG+| 000022D0: 31 00 53 54 41 41 5A 47 2B 31 00 43 4C 43 3B C1 |1.STAAZG+1.CLC;.| 000022E0: 44 52 45 53 53 45 3D D3 45 49 54 45 20 2B CF 46 |DRESSE=.EITE +.F| 000022F0: 46 53 45 54 20 D8 20 2B CF 46 46 53 45 54 20 D9 |FSET . +.FFSET .| 00002300: 00 4C 44 41 41 5A 47 00 41 44 43 41 5A 47 32 2B |.LDAAZG.ADCAZG2+| 00002310: 31 00 53 54 41 41 5A 47 00 4C 44 41 41 5A 47 2B |1.STAAZG.LDAAZG+| 00002320: 31 00 41 44 43 58 43 55 52 53 2B 31 00 53 54 41 |1.ADCXCURS+1.STA| 00002330: 41 5A 47 2B 31 00 4C 44 41 58 43 55 52 53 00 41 |AZG+1.LDAXCURS.A| 00002340: 4E 44 23 37 00 45 4F 52 23 37 3B 37 2D 28 D8 20 |ND#7.EOR#7;7-(. | 00002350: C1 CE C4 20 37 29 00 54 41 58 00 4C 44 41 4D 41 |... 7).TAX.LDAMA| 00002360: 53 4B 45 4E 2C 58 3B CD 41 53 4B 45 20 48 4F 4C |SKEN,X;.ASKE HOL| 00002370: 45 4E 00 53 54 41 41 5A 47 32 3B 55 4E 44 20 53 |EN.STAAZG2;UND S| 00002380: 50 45 49 43 48 45 52 4E 00 53 45 49 00 4C 44 41 |PEICHERN.SEI.LDA| 00002390: 23 24 33 34 3B 41 55 46 20 D2 C1 CD 20 55 4D 53 |#$34;AUF ... UMS| 000023A0: 43 48 41 4C 54 45 4E 00 53 54 41 50 50 00 4C 44 |CHALTEN.STAPP.LD| 000023B0: 59 23 30 3B D7 45 52 54 20 56 4F 4E 20 28 D0 4F |Y#0;.ERT VON (.O| 000023C0: 49 4E 54 45 52 29 00 4C 44 41 28 41 5A 47 29 2C |INTER).LDA(AZG),| 000023D0: 59 00 53 54 41 41 5A 47 32 2B 31 3B 4D 45 52 4B |Y.STAAZG2+1;MERK| 000023E0: 45 4E 00 4C 44 41 23 24 33 36 3B 57 49 45 44 45 |EN.LDA#$36;WIEDE| 000023F0: 52 20 4E 4F 52 4D 41 4C 45 20 D3 50 45 49 43 48 |R NORMALE .PEICH| 00002400: 45 52 56 45 52 54 45 49 4C 55 4E 47 00 53 54 41 |ERVERTEILUNG.STA| 00002410: 50 50 00 43 4C 49 00 52 54 53 00 20 00 3B D4 41 |PP.CLI.RTS. .;.A| 00002420: 42 45 4C 4C 45 20 58 2A 33 32 30 00 4D 55 4C 48 |BELLE X*320.MULH| 00002430: 49 3A 2E 42 59 30 2C 31 2C 32 2C 33 2C 35 2C 36 |I:.BY0,1,2,3,5,6| 00002440: 2C 37 2C 38 2C 31 30 2C 31 31 2C 31 32 2C 31 33 |,7,8,10,11,12,13| 00002450: 2C 31 35 00 2E 42 59 31 36 2C 31 37 2C 31 38 2C |,15..BY16,17,18,| 00002460: 32 30 2C 32 31 2C 32 32 2C 32 33 2C 32 35 2C 32 |20,21,22,23,25,2| 00002470: 36 2C 32 37 2C 32 38 2C 33 30 2C 33 31 00 20 00 |6,27,28,30,31. .| 00002480: 4D 55 4C 4C 4F 3A 2E 42 59 30 2C 24 34 30 2C 24 |MULLO:.BY0,$40,$| 00002490: 38 30 2C 24 43 30 00 20 00 3B D4 41 42 45 4C 4C |80,$C0. .;.ABELL| 000024A0: 45 20 44 45 52 20 CD 41 53 4B 45 4E 00 4D 41 53 |E DER .ASKEN.MAS| 000024B0: 4B 45 4E 3A 2E 42 59 31 2C 32 2C 34 2C 38 2C 24 |KEN:.BY1,2,4,8,$| 000024C0: 31 30 2C 24 32 30 2C 24 34 30 2C 24 38 30 00 20 |10,$20,$40,$80. | 000024D0: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 000024E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000024F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 |---------.;--- .| 00002500: C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 3A 20 CC C9 |.....-.EFEHL: ..| 00002510: CE C5 20 D8 2C D9 20 20 20 20 20 20 20 20 20 2D |.. .,. -| 00002520: 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |--.;------------| 00002530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4C 49 4E 45 |-----------.LINE| 00002550: 4D 45 4D 3A 2E 45 51 38 37 3B 54 45 4D 50 4F 52 |MEM:.EQ87;TEMPOR| 00002560: 41 45 52 45 52 20 DA 57 49 53 43 48 45 4E 53 50 |AERER .WISCHENSP| 00002570: 45 49 43 48 45 52 20 46 55 45 52 20 CC C9 CE C5 |EICHER FUER ....| 00002580: 00 20 00 C2 C2 4C 49 4E 45 52 3A 4C 44 41 58 43 |. ...LINER:LDAXC| 00002590: 55 52 53 3B 41 4C 54 45 4E 20 C7 52 41 50 48 49 |URS;ALTEN .RAPHI| 000025A0: 4B 43 55 52 53 4F 52 20 52 45 54 54 45 4E 00 53 |KCURSOR RETTEN.S| 000025B0: 54 41 58 43 55 52 53 32 00 4C 44 41 58 43 55 52 |TAXCURS2.LDAXCUR| 000025C0: 53 2B 31 00 53 54 41 58 43 55 52 53 32 2B 31 00 |S+1.STAXCURS2+1.| 000025D0: 4C 44 41 59 43 55 52 53 00 53 54 41 59 43 55 52 |LDAYCURS.STAYCUR| 000025E0: 53 32 00 4A 53 52 47 45 54 52 47 4B 4F 4F 52 3B |S2.JSRGETRGKOOR;| 000025F0: DA 49 45 4C 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 |.IELKOORDINATEN | 00002600: 52 45 4C 41 54 49 56 20 4C 45 53 45 4E 00 4A 4D |RELATIV LESEN.JM| 00002610: 50 4C 49 4E 45 00 20 00 C2 C2 4C 49 4E 45 3A 4C |PLINE. ...LINE:L| 00002620: 44 41 58 43 55 52 53 3B 41 4C 54 45 4E 20 C7 52 |DAXCURS;ALTEN .R| 00002630: 41 50 48 49 4B 43 55 52 53 4F 52 20 52 45 54 54 |APHIKCURSOR RETT| 00002640: 45 4E 00 53 54 41 58 43 55 52 53 32 00 4C 44 41 |EN.STAXCURS2.LDA| 00002650: 58 43 55 52 53 2B 31 00 53 54 41 58 43 55 52 53 |XCURS+1.STAXCURS| 00002660: 32 2B 31 00 4C 44 41 59 43 55 52 53 00 53 54 41 |2+1.LDAYCURS.STA| 00002670: 59 43 55 52 53 32 00 4A 53 52 47 45 54 47 4B 4F |YCURS2.JSRGETGKO| 00002680: 4F 52 3B DA 49 45 4C 4B 4F 4F 52 44 49 4E 41 54 |OR;.IELKOORDINAT| 00002690: 45 4E 20 41 42 53 4F 4C 55 54 20 4C 45 53 45 4E |EN ABSOLUT LESEN| 000026A0: 00 20 00 4C 49 4E 45 3A 4A 53 52 50 4C 4F 54 3B |. .LINE:JSRPLOT;| 000026B0: D0 55 4E 4B 54 20 53 45 54 5A 45 4E 00 53 54 58 |.UNKT SETZEN.STX| 000026C0: 4C 49 4E 45 4D 45 4D 2B 37 3B CD 41 53 4B 45 4E |LINEMEM+7;.ASKEN| 000026D0: 4E 55 4D 4D 45 52 20 4D 45 52 4B 45 4E 00 20 00 |NUMMER MERKEN. .| 000026E0: 43 4F 4C 4F 46 46 31 3A 53 45 49 3B 41 55 46 20 |COLOFF1:SEI;AUF | 000026F0: D2 C1 CD 20 53 43 48 41 4C 54 45 4E 00 4C 44 41 |... SCHALTEN.LDA| 00002700: 23 24 33 34 00 53 54 41 50 50 00 4C 44 41 58 43 |#$34.STAPP.LDAXC| 00002710: 55 52 53 32 3B D8 32 2D D8 31 00 53 45 43 00 53 |URS2;.2-.1.SEC.S| 00002720: 42 43 58 43 55 52 53 00 50 48 41 00 4C 44 58 58 |BCXCURS.PHA.LDXX| 00002730: 43 55 52 53 32 2B 31 00 54 58 41 00 53 42 43 58 |CURS2+1.TXA.SBCX| 00002740: 43 55 52 53 2B 31 00 53 54 41 4C 49 4E 45 4D 45 |CURS+1.STALINEME| 00002750: 4D 2B 33 3B 53 50 45 49 43 48 45 52 4E 00 42 43 |M+3;SPEICHERN.BC| 00002760: 53 56 4F 52 5A 57 3B C5 52 47 45 42 4E 49 53 20 |SVORZW;.RGEBNIS | 00002770: 4E 45 47 41 54 49 56 20 3F 00 50 4C 41 3B 4A 41 |NEGATIV ?.PLA;JA| 00002780: 00 45 4F 52 23 24 46 46 00 41 44 43 23 31 00 50 |.EOR#$FF.ADC#1.P| 00002790: 48 41 00 4C 44 41 23 30 00 53 42 43 4C 49 4E 45 |HA.LDA#0.SBCLINE| 000027A0: 4D 45 4D 2B 33 3B D6 4F 52 5A 45 49 43 48 45 4E |MEM+3;.ORZEICHEN| 000027B0: 20 57 45 43 48 53 45 4C 4E 00 56 4F 52 5A 57 3A | WECHSELN.VORZW:| 000027C0: 53 54 41 4C 49 4E 45 4D 45 4D 2B 31 3B 3E D8 32 |STALINEMEM+1;>.2| 000027D0: 2D D8 31 00 53 54 41 4C 49 4E 45 4D 45 4D 2B 35 |-.1.STALINEMEM+5| 000027E0: 00 50 4C 41 00 53 54 41 4C 49 4E 45 4D 45 4D 3B |.PLA.STALINEMEM;| 000027F0: 3C D8 32 2D D8 31 00 53 54 41 4C 49 4E 45 4D 45 |<.2-.1.STALINEME| 00002800: 4D 2B 34 00 4C 44 41 59 43 55 52 53 32 00 43 4C |M+4.LDAYCURS2.CL| 00002810: 43 3B D9 32 2D D9 31 00 53 42 43 59 43 55 52 53 |C;.2-.1.SBCYCURS| 00002820: 3B C5 52 47 45 42 4E 49 53 20 4E 45 47 41 54 49 |;.RGEBNIS NEGATI| 00002830: 56 20 3F 00 42 43 43 4E 45 47 41 54 00 45 4F 52 |V ?.BCCNEGAT.EOR| 00002840: 23 24 46 46 3B 4E 45 49 4E 00 41 44 43 23 24 46 |#$FF;NEIN.ADC#$F| 00002850: 45 3B D6 4F 52 5A 45 49 43 48 45 4E 57 45 43 48 |E;.ORZEICHENWECH| 00002860: 53 45 4C 00 4E 45 47 41 54 3A 53 54 41 4C 49 4E |SEL.NEGAT:STALIN| 00002870: 45 4D 45 4D 2B 32 3B D9 32 2D D9 31 00 52 4F 52 |EMEM+2;.2-.1.ROR| 00002880: 4C 49 4E 45 4D 45 4D 2B 33 3B 28 D8 32 2D D8 31 |LINEMEM+3;(.2-.1| 00002890: 29 2F 32 00 53 45 43 00 53 42 43 4C 49 4E 45 4D |)/2.SEC.SBCLINEM| 000028A0: 45 4D 3B 28 D9 32 2D D9 31 29 2D 28 D8 32 2D D8 |EM;(.2-.1)-(.2-.| 000028B0: 31 29 00 54 41 58 3B CC 4F 57 20 C2 59 54 45 20 |1).TAX;.OW .YTE | 000028C0: 49 4E 20 D8 00 4C 44 41 23 24 46 46 00 53 42 43 |IN ..LDA#$FF.SBC| 000028D0: 4C 49 4E 45 4D 45 4D 2B 31 00 53 54 41 4C 49 4E |LINEMEM+1.STALIN| 000028E0: 45 4D 45 4D 2B 36 3B C8 49 47 48 20 C2 59 54 45 |EMEM+6;.IGH .YTE| 000028F0: 00 42 43 53 53 43 48 4C 45 49 46 45 3B 55 4E 42 |.BCSSCHLEIFE;UNB| 00002900: 45 44 49 4E 47 54 45 52 20 D3 50 52 55 4E 47 00 |EDINGTER .PRUNG.| 00002910: 48 53 54 45 50 3A 42 49 54 43 4F 4C 4D 4F 44 45 |HSTEP:BITCOLMODE| 00002920: 3B C6 41 52 42 4D 4F 44 55 53 00 42 4D 49 43 4F |;.ARBMODUS.BMICO| 00002930: 4C 41 4E 3B 4A 41 00 41 53 4C 3B 48 4F 52 49 5A |LAN;JA.ASL;HORIZ| 00002940: 4F 4E 54 41 4C 45 52 20 D3 43 48 52 49 54 54 00 |ONTALER .CHRITT.| 00002950: 4A 53 52 48 4F 52 49 5A 4F 4E 54 41 4C 00 53 45 |JSRHORIZONTAL.SE| 00002960: 43 00 42 43 53 53 43 48 4C 45 49 46 45 00 43 4F |C.BCSSCHLEIFE.CO| 00002970: 4C 41 4E 3A 41 53 4C 3B 48 4F 52 49 5A 4F 4E 54 |LAN:ASL;HORIZONT| 00002980: 41 4C 45 52 20 D3 43 48 52 49 54 54 20 49 4E 20 |ALER .CHRITT IN | 00002990: C6 41 52 42 45 00 4A 53 52 48 4F 52 49 5A 43 4F |.ARBE.JSRHORIZCO| 000029A0: 4C 00 53 45 43 00 53 43 48 4C 45 49 46 45 3A 4C |L.SEC.SCHLEIFE:L| 000029B0: 44 41 4C 49 4E 45 4D 45 4D 2B 34 00 41 44 43 4C |DALINEMEM+4.ADCL| 000029C0: 49 4E 45 4D 45 4D 2B 32 00 53 54 41 4C 49 4E 45 |INEMEM+2.STALINE| 000029D0: 4D 45 4D 2B 34 00 4C 44 41 4C 49 4E 45 4D 45 4D |MEM+4.LDALINEMEM| 000029E0: 2B 35 00 53 42 43 23 30 3B 28 D8 32 2D D8 31 29 |+5.SBC#0;(.2-.1)| 000029F0: 2D 28 D9 32 2D D9 31 29 20 4E 41 43 48 20 28 D8 |-(.2-.1) NACH (.| 00002A00: 32 2D D8 31 29 00 53 45 54 5A 45 4E 3A 53 54 41 |2-.1).SETZEN:STA| 00002A10: 4C 49 4E 45 4D 45 4D 2B 35 00 50 48 50 00 4C 44 |LINEMEM+5.PHP.LD| 00002A20: 59 23 30 00 4C 44 41 28 41 5A 47 29 2C 59 3B D7 |Y#0.LDA(AZG),Y;.| 00002A30: 45 52 54 20 56 4F 4E 20 28 D0 4F 49 4E 54 45 52 |ERT VON (.OINTER| 00002A40: 29 20 4C 45 53 45 4E 00 53 54 41 41 5A 47 32 2B |) LESEN.STAAZG2+| 00002A50: 31 00 53 54 58 4C 49 4E 45 4D 45 4D 2B 38 3B D8 |1.STXLINEMEM+8;.| 00002A60: 20 4D 45 52 4B 45 4E 00 4C 44 41 4C 49 4E 45 4D | MERKEN.LDALINEM| 00002A70: 45 4D 2B 37 3B CD 41 53 4B 45 20 2A 32 20 49 4E |EM+7;.ASKE *2 IN| 00002A80: 20 D8 00 41 53 4C 00 54 41 58 00 4A 53 52 44 4F | ..ASL.TAX.JSRDO| 00002A90: 50 4C 4F 54 3B D0 55 4E 4B 54 20 53 45 54 5A 45 |PLOT;.UNKT SETZE| 00002AA0: 4E 00 4C 44 58 4C 49 4E 45 4D 45 4D 2B 38 3B 41 |N.LDXLINEMEM+8;A| 00002AB0: 4C 54 45 4E 20 D8 2D D7 45 52 54 20 4C 45 53 45 |LTEN .-.ERT LESE| 00002AC0: 4E 00 50 4C 50 00 49 4E 58 3B D7 45 49 54 45 52 |N.PLP.INX;.EITER| 00002AD0: 20 42 49 53 20 D8 3D 30 00 42 4E 45 4C 43 4F 4E | BIS .=0.BNELCON| 00002AE0: 54 00 49 4E 43 4C 49 4E 45 4D 45 4D 2B 36 3B 57 |T.INCLINEMEM+6;W| 00002AF0: 45 49 54 45 52 20 42 49 53 20 DA 41 45 48 4C 45 |EITER BIS .AEHLE| 00002B00: 52 20 3D 30 00 42 4E 45 4C 43 4F 4E 54 00 4C 44 |R =0.BNELCONT.LD| 00002B10: 41 23 24 33 36 3B D3 50 45 49 43 48 45 52 20 57 |A#$36;.PEICHER W| 00002B20: 49 45 44 45 52 20 4E 4F 52 4D 41 4C 00 53 54 41 |IEDER NORMAL.STA| 00002B30: 50 50 00 43 4C 49 00 43 4F 4C 4F 46 46 32 3A 52 |PP.CLI.COLOFF2:R| 00002B40: 54 53 3B 46 45 52 54 49 47 00 20 00 4C 43 4F 4E |TS;FERTIG. .LCON| 00002B50: 54 3A 4C 44 41 4C 49 4E 45 4D 45 4D 2B 33 00 42 |T:LDALINEMEM+3.B| 00002B60: 43 53 48 53 54 45 50 00 4A 53 52 56 45 52 54 49 |CSHSTEP.JSRVERTI| 00002B70: 4B 41 4C 3B 56 45 52 54 49 4B 41 4C 45 52 20 D3 |KAL;VERTIKALER .| 00002B80: 43 48 52 49 54 54 00 43 4C 43 00 4C 44 41 4C 49 |CHRITT.CLC.LDALI| 00002B90: 4E 45 4D 45 4D 2B 34 00 41 44 43 4C 49 4E 45 4D |NEMEM+4.ADCLINEM| 00002BA0: 45 4D 00 53 54 41 4C 49 4E 45 4D 45 4D 2B 34 00 |EM.STALINEMEM+4.| 00002BB0: 4C 44 41 4C 49 4E 45 4D 45 4D 2B 35 00 41 44 43 |LDALINEMEM+5.ADC| 00002BC0: 4C 49 4E 45 4D 45 4D 2B 31 00 42 56 43 53 45 54 |LINEMEM+1.BVCSET| 00002BD0: 5A 45 4E 3B 55 4E 42 45 44 49 4E 47 54 45 52 20 |ZEN;UNBEDINGTER | 00002BE0: D3 50 52 55 4E 47 00 20 00 3B D6 45 52 54 49 4B |.PRUNG. .;.ERTIK| 00002BF0: 41 4C 45 52 20 D3 43 48 52 49 54 54 00 56 45 52 |ALER .CHRITT.VER| 00002C00: 54 49 4B 41 4C 3A 42 4D 49 55 4E 54 45 4E 3B D3 |TIKAL:BMIUNTEN;.| 00002C10: 43 48 52 49 54 54 20 4E 41 43 48 20 55 4E 54 45 |CHRITT NACH UNTE| 00002C20: 4E 00 4C 44 41 41 5A 47 3B D3 43 48 52 49 54 54 |N.LDAAZG;.CHRITT| 00002C30: 20 4E 41 43 48 20 4F 42 45 4E 00 41 4E 44 23 37 | NACH OBEN.AND#7| 00002C40: 00 42 45 51 4F 42 45 4E 31 3B 4F 42 45 52 45 52 |.BEQOBEN1;OBERER| 00002C50: 20 C2 4C 4F 43 4B 52 41 4E 44 00 43 4C 43 00 4C | .LOCKRAND.CLC.L| 00002C60: 44 41 23 24 46 46 00 42 43 43 4F 42 45 4E 32 3B |DA#$FF.BCCOBEN2;| 00002C70: 2D 31 00 4F 42 45 4E 31 3A 4C 44 41 23 24 43 37 |-1.OBEN1:LDA#$C7| 00002C80: 3B 2D 33 32 37 00 44 45 43 41 5A 47 2B 31 00 4F |;-327.DECAZG+1.O| 00002C90: 42 45 4E 32 3A 41 44 43 41 5A 47 00 53 54 41 41 |BEN2:ADCAZG.STAA| 00002CA0: 5A 47 00 4C 44 41 41 5A 47 2B 31 00 53 42 43 23 |ZG.LDAAZG+1.SBC#| 00002CB0: 30 00 53 54 41 41 5A 47 2B 31 00 52 54 53 00 20 |0.STAAZG+1.RTS. | 00002CC0: 00 55 4E 54 45 4E 3A 4C 44 41 41 5A 47 3B D3 43 |.UNTEN:LDAAZG;.C| 00002CD0: 48 52 49 54 54 20 4E 41 43 48 20 55 4E 54 45 4E |HRITT NACH UNTEN| 00002CE0: 00 41 4E 44 23 37 3B C2 4C 4F 43 4B 52 41 4E 44 |.AND#7;.LOCKRAND| 00002CF0: 20 55 4E 54 45 4E 00 43 4D 50 23 37 00 42 45 51 | UNTEN.CMP#7.BEQ| 00002D00: 55 4E 54 45 4E 31 00 53 45 43 00 4C 44 41 23 30 |UNTEN1.SEC.LDA#0| 00002D10: 00 42 43 53 55 4E 54 45 4E 32 3B 2B 31 00 55 4E |.BCSUNTEN2;+1.UN| 00002D20: 54 45 4E 31 3A 4C 44 41 23 24 33 38 3B 2B 33 31 |TEN1:LDA#$38;+31| 00002D30: 33 00 49 4E 43 41 5A 47 2B 31 00 55 4E 54 45 4E |3.INCAZG+1.UNTEN| 00002D40: 32 3A 41 44 43 41 5A 47 00 53 54 41 41 5A 47 00 |2:ADCAZG.STAAZG.| 00002D50: 4C 44 41 23 30 00 41 44 43 41 5A 47 2B 31 00 53 |LDA#0.ADCAZG+1.S| 00002D60: 54 41 41 5A 47 2B 31 00 52 54 53 00 20 00 48 4F |TAAZG+1.RTS. .HO| 00002D70: 52 49 5A 43 4F 4C 3A 42 50 4C 43 4F 4C 52 45 43 |RIZCOL:BPLCOLREC| 00002D80: 48 54 53 00 49 4E 43 4C 49 4E 45 4D 45 4D 2B 37 |HTS.INCLINEMEM+7| 00002D90: 3B D3 43 48 52 49 54 54 20 4E 41 43 48 20 4C 49 |;.CHRITT NACH LI| 00002DA0: 4E 4B 53 20 28 C6 41 52 42 45 29 00 4C 44 41 4C |NKS (.ARBE).LDAL| 00002DB0: 49 4E 45 4D 45 4D 2B 37 3B CD 41 53 4B 45 4E 4E |INEMEM+7;.ASKENN| 00002DC0: 55 4D 4D 45 52 2B 31 00 43 4D 50 23 34 3B 3C 34 |UMMER+1.CMP#4;<4| 00002DD0: 20 3F 00 42 43 43 4C 49 4E 4B 53 31 3B 44 41 4E | ?.BCCLINKS1;DAN| 00002DE0: 4E 20 46 45 52 54 49 47 00 4C 44 41 23 30 3B CD |N FERTIG.LDA#0;.| 00002DF0: 41 53 4B 45 4E 4E 55 4D 4D 45 52 20 3D 30 00 53 |ASKENNUMMER =0.S| 00002E00: 54 41 4C 49 4E 45 4D 45 4D 2B 37 00 4C 44 41 41 |TALINEMEM+7.LDAA| 00002E10: 5A 47 3B D0 4F 49 4E 54 45 52 2D 38 00 53 45 43 |ZG;.OINTER-8.SEC| 00002E20: 00 53 42 43 23 38 00 53 54 41 41 5A 47 00 42 43 |.SBC#8.STAAZG.BC| 00002E30: 53 4C 49 4E 4B 53 31 00 44 45 43 41 5A 47 2B 31 |SLINKS1.DECAZG+1| 00002E40: 00 52 54 53 00 20 00 48 4F 52 49 5A 4F 4E 54 41 |.RTS. .HORIZONTA| 00002E50: 4C 3A 42 50 4C 52 45 43 48 54 53 00 41 53 4C 41 |L:BPLRECHTS.ASLA| 00002E60: 5A 47 32 3B D3 43 48 52 49 54 54 20 4E 41 43 48 |ZG2;.CHRITT NACH| 00002E70: 20 4C 49 4E 4B 53 00 42 43 43 4C 49 4E 4B 53 31 | LINKS.BCCLINKS1| 00002E80: 3B CD 41 53 4B 45 20 53 43 48 49 45 42 45 4E 00 |;.ASKE SCHIEBEN.| 00002E90: 52 4F 4C 41 5A 47 32 3B C2 59 54 45 20 55 45 42 |ROLAZG2;.YTE UEB| 00002EA0: 45 52 53 43 48 52 49 54 54 45 4E 2C 00 4C 44 41 |ERSCHRITTEN,.LDA| 00002EB0: 41 5A 47 3B D0 4F 49 4E 54 45 52 2D 38 00 53 45 |AZG;.OINTER-8.SE| 00002EC0: 43 00 53 42 43 23 38 00 53 54 41 41 5A 47 00 42 |C.SBC#8.STAAZG.B| 00002ED0: 43 53 4C 49 4E 4B 53 31 00 44 45 43 41 5A 47 2B |CSLINKS1.DECAZG+| 00002EE0: 31 00 4C 49 4E 4B 53 31 3A 52 54 53 00 20 00 52 |1.LINKS1:RTS. .R| 00002EF0: 45 43 48 54 53 3A 4C 53 52 41 5A 47 32 3B D3 43 |ECHTS:LSRAZG2;.C| 00002F00: 48 52 49 54 54 20 4E 41 43 48 20 52 45 43 48 54 |HRITT NACH RECHT| 00002F10: 53 00 42 43 43 52 45 43 48 54 53 32 3B CD 41 53 |S.BCCRECHTS2;.AS| 00002F20: 4B 45 20 53 43 48 49 45 42 45 4E 00 52 4F 52 41 |KE SCHIEBEN.RORA| 00002F30: 5A 47 32 3B C2 45 52 45 49 43 48 20 55 45 42 45 |ZG2;.EREICH UEBE| 00002F40: 52 53 43 48 52 49 54 54 45 4E 2C 00 4C 44 41 41 |RSCHRITTEN,.LDAA| 00002F50: 5A 47 3B D0 4F 49 4E 54 45 52 2B 38 00 43 4C 43 |ZG;.OINTER+8.CLC| 00002F60: 00 41 44 43 23 38 00 53 54 41 41 5A 47 00 42 43 |.ADC#8.STAAZG.BC| 00002F70: 43 52 45 43 48 54 53 32 00 49 4E 43 41 5A 47 2B |CRECHTS2.INCAZG+| 00002F80: 31 00 52 45 43 48 54 53 32 3A 52 54 53 00 20 00 |1.RECHTS2:RTS. .| 00002F90: 43 4F 4C 52 45 43 48 54 53 3A 44 45 43 4C 49 4E |COLRECHTS:DECLIN| 00002FA0: 45 4D 45 4D 2B 37 3B D3 43 48 52 49 54 54 20 4E |EMEM+7;.CHRITT N| 00002FB0: 41 43 48 20 52 45 43 48 54 53 20 28 C6 41 52 42 |ACH RECHTS (.ARB| 00002FC0: 45 29 00 42 50 4C 52 45 43 48 54 53 32 3B CD 41 |E).BPLRECHTS2;.A| 00002FD0: 53 4B 45 4E 4E 55 4D 4D 45 52 2D 31 00 4C 44 41 |SKENNUMMER-1.LDA| 00002FE0: 23 33 3B 3C 30 2C 20 44 41 4E 4E 20 CD 41 53 4B |#3;<0, DANN .ASK| 00002FF0: 45 4E 4E 55 4D 4D 45 52 3D 33 00 53 54 41 4C 49 |ENNUMMER=3.STALI| 00003000: 4E 45 4D 45 4D 2B 37 3B D0 4F 49 4E 54 45 52 2B |NEMEM+7;.OINTER+| 00003010: 38 00 4C 44 41 41 5A 47 00 43 4C 43 00 41 44 43 |8.LDAAZG.CLC.ADC| 00003020: 23 38 00 53 54 41 41 5A 47 00 42 43 43 52 45 43 |#8.STAAZG.BCCREC| 00003030: 48 54 53 32 00 49 4E 43 41 5A 47 2B 31 00 52 54 |HTS2.INCAZG+1.RT| 00003040: 53 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |S. .;-----------| 00003050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D |------------.;--| 00003070: 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 3A |- ......-.EFEHL:| 00003080: 20 C6 D2 C1 CD C5 20 D8 31 2C D9 31 2C D8 32 2C | ..... .1,.1,.2,| 00003090: D9 32 20 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |.2 --.;---------| 000030A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000030B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 |--------------..| 000030C0: C2 46 52 41 4D 45 3A 4A 53 52 47 45 54 47 4B 4F |.FRAME:JSRGETGKO| 000030D0: 4F 52 3B CB 4F 4F 52 44 49 4E 41 54 45 4E 20 31 |OR;.OORDINATEN 1| 000030E0: 20 48 4F 4C 45 4E 00 4C 44 59 23 30 3B 41 42 20 | HOLEN.LDY#0;AB | 000030F0: 4D 45 4D 20 53 50 45 49 43 48 45 52 4E 00 4A 53 |MEM SPEICHERN.JS| 00003100: 52 49 4E 4D 45 4D 00 4A 53 52 43 48 4B 4B 4F 4D |RINMEM.JSRCHKKOM| 00003110: 3B CB 4F 4F 52 44 49 4E 41 54 45 4E 20 32 20 48 |;.OORDINATEN 2 H| 00003120: 4F 4C 45 4E 00 4A 53 52 47 45 54 47 4B 4F 4F 52 |OLEN.JSRGETGKOOR| 00003130: 00 4C 44 59 23 33 3B 41 42 20 4D 45 4D 2B 33 20 |.LDY#3;AB MEM+3 | 00003140: 53 50 45 49 43 48 45 52 4E 00 4A 53 52 49 4E 4D |SPEICHERN.JSRINM| 00003150: 45 4D 00 4C 44 59 23 34 2A 36 2D 31 3B 34 20 CC |EM.LDY#4*6-1;4 .| 00003160: 49 4E 49 45 4E 20 5A 49 45 48 45 4E 00 4F 4E 45 |INIEN ZIEHEN.ONE| 00003170: 4C 49 4E 45 3A 4C 44 58 23 35 3B 50 52 4F 20 CC |LINE:LDX#5;PRO .| 00003180: 49 4E 49 45 20 36 20 D7 45 52 54 45 00 53 54 58 |INIE 6 .ERTE.STX| 00003190: 4D 45 4D 2B 36 3B DA 41 45 48 4C 45 52 20 53 45 |MEM+6;.AEHLER SE| 000031A0: 54 5A 45 4E 00 4F 4E 45 4C 49 4E 45 4C 3A 4C 44 |TZEN.ONELINEL:LD| 000031B0: 58 50 45 52 4D 55 54 53 2C 59 3B C9 4E 44 45 58 |XPERMUTS,Y;.NDEX| 000031C0: 20 44 45 52 20 D7 45 52 54 45 20 48 4F 4C 45 4E | DER .ERTE HOLEN| 000031D0: 00 4C 44 41 4D 45 4D 2C 58 3B D7 45 52 54 20 48 |.LDAMEM,X;.ERT H| 000031E0: 4F 4C 45 4E 00 4C 44 58 4D 45 4D 2B 36 3B 55 4E |OLEN.LDXMEM+6;UN| 000031F0: 44 20 41 4C 53 20 CC 49 4E 49 45 4E 42 45 53 43 |D ALS .INIENBESC| 00003200: 48 52 45 49 42 55 4E 47 20 49 4E 20 44 45 52 20 |HREIBUNG IN DER | 00003210: C6 4F 52 4D 00 53 54 41 58 43 55 52 53 2C 58 3B |.ORM.STAXCURS,X;| 00003220: D8 41 20 D9 41 20 D8 42 20 D9 42 20 53 50 45 49 |.A .A .B .B SPEI| 00003230: 43 48 45 52 4E 00 44 45 59 3B 42 49 53 20 41 4C |CHERN.DEY;BIS AL| 00003240: 4C 45 20 D7 45 52 54 45 20 47 45 53 45 54 5A 54 |LE .ERTE GESETZT| 00003250: 00 44 45 43 4D 45 4D 2B 36 00 42 50 4C 4F 4E 45 |.DECMEM+6.BPLONE| 00003260: 4C 49 4E 45 4C 00 54 59 41 3B D9 20 52 45 54 54 |LINEL.TYA;. RETT| 00003270: 45 4E 00 50 48 41 00 4A 53 52 4C 49 4E 45 3B CC |EN.PHA.JSRLINE;.| 00003280: 49 4E 45 20 56 4F 4E 20 D8 41 20 D9 41 20 4E 41 |INE VON .A .A NA| 00003290: 43 48 20 D8 42 20 D9 42 20 5A 49 45 48 45 4E 00 |CH .B .B ZIEHEN.| 000032A0: 50 4C 41 00 54 41 59 00 42 50 4C 4F 4E 45 4C 49 |PLA.TAY.BPLONELI| 000032B0: 4E 45 3B 42 49 53 20 41 4C 4C 45 20 CC 49 4E 49 |NE;BIS ALLE .INI| 000032C0: 45 4E 20 47 45 5A 4F 47 45 4E 00 52 54 53 00 20 |EN GEZOGEN.RTS. | 000032D0: 00 49 4E 4D 45 4D 3A 4C 44 41 58 43 55 52 53 3B |.INMEM:LDAXCURS;| 000032E0: CB 4F 4F 52 44 49 4E 41 54 45 4E 20 41 42 20 4D |.OORDINATEN AB M| 000032F0: 45 4D 2C 59 20 53 50 45 49 43 48 45 52 4E 00 53 |EM,Y SPEICHERN.S| 00003300: 54 41 4D 45 4D 2C 59 00 4C 44 41 58 43 55 52 53 |TAMEM,Y.LDAXCURS| 00003310: 2B 31 00 53 54 41 4D 45 4D 2B 31 2C 59 00 4C 44 |+1.STAMEM+1,Y.LD| 00003320: 41 59 43 55 52 53 00 53 54 41 4D 45 4D 2B 32 2C |AYCURS.STAMEM+2,| 00003330: 59 00 52 54 53 00 20 00 50 45 52 4D 55 54 53 3A |Y.RTS. .PERMUTS:| 00003340: 2E 42 59 33 2C 34 2C 35 2C 33 2C 34 2C 32 3B C9 |.BY3,4,5,3,4,2;.| 00003350: 4E 44 49 43 45 53 20 44 45 52 20 D7 45 52 54 45 |NDICES DER .ERTE| 00003360: 00 2E 42 59 33 2C 34 2C 32 2C 30 2C 31 2C 32 3B |..BY3,4,2,0,1,2;| 00003370: 44 45 52 20 CC 49 4E 49 45 4E 00 2E 42 59 30 2C |DER .INIEN..BY0,| 00003380: 31 2C 32 2C 30 2C 31 2C 35 00 2E 42 59 30 2C 31 |1,2,0,1,5..BY0,1| 00003390: 2C 35 2C 33 2C 34 2C 35 00 20 00 3B 2D 2D 2D 2D |,5,3,4,5. .;----| 000033A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000033B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000033C0: 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 2D C2 45 46 45 |---.;--- ..-.EFE| 000033D0: 48 4C 3A 20 C2 CF D8 20 D8 31 2C D9 31 2C D8 32 |HL: ... .1,.1,.2| 000033E0: 2C D9 32 2C D8 33 2C D9 33 20 2D 2D 00 3B 2D 2D |,.2,.3,.3 --.;--| 000033F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003410: 2D 2D 2D 2D 2D 00 C2 C2 42 4F 58 3A 4A 53 52 47 |-----...BOX:JSRG| 00003420: 45 54 47 4B 4F 4F 52 3B CB 4F 4F 52 44 49 4E 41 |ETGKOOR;.OORDINA| 00003430: 54 45 4E 20 31 20 48 4F 4C 45 4E 00 4C 44 59 23 |TEN 1 HOLEN.LDY#| 00003440: 30 3B 41 42 20 4D 45 4D 20 53 50 45 49 43 48 45 |0;AB MEM SPEICHE| 00003450: 52 4E 00 4A 53 52 49 4E 4D 45 4D 00 4A 53 52 43 |RN.JSRINMEM.JSRC| 00003460: 48 4B 4B 4F 4D 3B CB 4F 4F 52 44 49 4E 41 54 45 |HKKOM;.OORDINATE| 00003470: 4E 20 32 20 48 4F 4C 45 4E 00 4A 53 52 47 45 54 |N 2 HOLEN.JSRGET| 00003480: 47 4B 4F 4F 52 00 4C 44 59 23 33 3B 41 42 20 4D |GKOOR.LDY#3;AB M| 00003490: 45 4D 2B 33 20 53 50 45 49 43 48 45 52 4E 00 4A |EM+3 SPEICHERN.J| 000034A0: 53 52 49 4E 4D 45 4D 00 4A 53 52 43 48 4B 4B 4F |SRINMEM.JSRCHKKO| 000034B0: 4D 3B CB 4F 4F 52 44 49 4E 41 54 45 4E 20 33 20 |M;.OORDINATEN 3 | 000034C0: 48 4F 4C 45 4E 00 4A 53 52 47 45 54 47 4B 4F 4F |HOLEN.JSRGETGKOO| 000034D0: 52 00 4C 44 59 23 36 3B 41 42 20 4D 45 4D 2B 36 |R.LDY#6;AB MEM+6| 000034E0: 20 53 50 45 49 43 48 45 52 4E 00 4A 53 52 49 4E | SPEICHERN.JSRIN| 000034F0: 4D 45 4D 00 43 4C 43 00 4C 44 41 4D 45 4D 2B 36 |MEM.CLC.LDAMEM+6| 00003500: 3B C1 3D D8 33 2B D8 32 2D D8 31 00 41 44 43 4D |;.=.3+.2-.1.ADCM| 00003510: 45 4D 2B 33 00 53 54 41 4D 45 4D 2B 39 00 4C 44 |EM+3.STAMEM+9.LD| 00003520: 41 4D 45 4D 2B 37 00 41 44 43 4D 45 4D 2B 34 00 |AMEM+7.ADCMEM+4.| 00003530: 53 54 41 4D 45 4D 2B 31 30 00 53 45 43 00 4C 44 |STAMEM+10.SEC.LD| 00003540: 41 4D 45 4D 2B 39 00 53 42 43 4D 45 4D 2B 30 00 |AMEM+9.SBCMEM+0.| 00003550: 53 54 41 4D 45 4D 2B 39 00 4C 44 41 4D 45 4D 2B |STAMEM+9.LDAMEM+| 00003560: 31 30 00 53 42 43 4D 45 4D 2B 31 00 53 54 41 4D |10.SBCMEM+1.STAM| 00003570: 45 4D 2B 31 30 00 43 4C 43 00 4C 44 41 4D 45 4D |EM+10.CLC.LDAMEM| 00003580: 2B 38 3B C2 3D D9 33 2B D9 32 2D D9 31 00 41 44 |+8;.=.3+.2-.1.AD| 00003590: 43 4D 45 4D 2B 35 00 54 41 58 00 4C 44 41 23 30 |CMEM+5.TAX.LDA#0| 000035A0: 00 41 44 43 23 30 00 54 41 59 00 53 45 43 00 54 |.ADC#0.TAY.SEC.T| 000035B0: 58 41 00 53 42 43 4D 45 4D 2B 32 00 53 54 41 4D |XA.SBCMEM+2.STAM| 000035C0: 45 4D 2B 31 31 00 54 59 41 00 53 42 43 23 30 00 |EM+11.TYA.SBC#0.| 000035D0: 42 4E 45 4E 4F 43 4F 4C 34 3B C2 20 5A 55 20 4B |BNENOCOL4;. ZU K| 000035E0: 4C 45 49 4E 00 4C 44 41 4D 45 4D 2B 31 31 00 43 |LEIN.LDAMEM+11.C| 000035F0: 4D 50 23 32 30 30 00 42 43 53 4E 4F 43 4F 4C 34 |MP#200.BCSNOCOL4| 00003600: 3B C2 20 5A 55 20 47 52 4F 53 53 00 42 49 54 43 |;. ZU GROSS.BITC| 00003610: 4F 4C 4D 4F 44 45 3B C6 41 52 42 4D 4F 44 55 53 |OLMODE;.ARBMODUS| 00003620: 20 3F 00 42 4D 49 43 58 43 4F 4C 4D 3B 4A 41 00 | ?.BMICXCOLM;JA.| 00003630: 4C 44 41 4D 45 4D 2B 31 30 3B C1 3C 33 32 30 20 |LDAMEM+10;.<320 | 00003640: 3F 00 42 45 51 42 4F 58 00 43 4D 50 23 32 00 42 |?.BEQBOX.CMP#2.B| 00003650: 43 53 4E 4F 43 4F 4C 34 3B 4E 45 49 4E 20 28 3E |CSNOCOL4;NEIN (>| 00003660: 35 31 31 29 00 4C 44 41 4D 45 4D 2B 39 00 43 4D |511).LDAMEM+9.CM| 00003670: 50 23 3C 33 32 30 3B 4E 45 49 4E 00 42 43 53 4E |P#<320;NEIN.BCSN| 00003680: 4F 43 4F 4C 34 00 42 43 43 42 4F 58 00 20 00 43 |OCOL4.BCCBOX. .C| 00003690: 58 43 4F 4C 4D 3A 4C 44 41 4D 45 4D 2B 31 30 3B |XCOLM:LDAMEM+10;| 000036A0: 58 3C 31 36 30 20 3F 00 42 4E 45 4E 4F 43 4F 4C |X<160 ?.BNENOCOL| 000036B0: 34 3B 4E 45 49 4E 00 4C 44 41 4D 45 4D 2B 39 00 |4;NEIN.LDAMEM+9.| 000036C0: 43 4D 50 23 31 36 30 00 42 43 53 4E 4F 43 4F 4C |CMP#160.BCSNOCOL| 000036D0: 34 3B 4E 45 49 4E 00 20 00 42 4F 58 3A 4C 44 59 |4;NEIN. .BOX:LDY| 000036E0: 23 31 32 2A 36 2D 31 3B 31 32 20 CC 49 4E 49 45 |#12*6-1;12 .INIE| 000036F0: 4E 20 5A 49 45 48 45 4E 00 4F 4E 45 4C 49 4E 45 |N ZIEHEN.ONELINE| 00003700: 42 4F 3A 4C 44 58 23 35 3B 41 20 36 20 D7 45 52 |BO:LDX#5;A 6 .ER| 00003710: 54 45 00 53 54 58 4D 45 4D 2B 31 32 3B DA 41 45 |TE.STXMEM+12;.AE| 00003720: 48 4C 45 52 00 4F 4E 45 4C 49 4E 45 4C 42 4F 3A |HLER.ONELINELBO:| 00003730: 4C 44 58 50 45 52 4D 55 54 53 32 2C 59 3B C9 4E |LDXPERMUTS2,Y;.N| 00003740: 44 45 58 20 48 4F 4C 45 4E 00 4C 44 41 4D 45 4D |DEX HOLEN.LDAMEM| 00003750: 2C 58 3B D7 45 52 54 20 48 4F 4C 45 4E 00 4C 44 |,X;.ERT HOLEN.LD| 00003760: 58 4D 45 4D 2B 31 32 3B 55 4E 44 20 53 50 45 49 |XMEM+12;UND SPEI| 00003770: 43 48 45 52 4E 00 53 54 41 58 43 55 52 53 2C 58 |CHERN.STAXCURS,X| 00003780: 00 44 45 59 3B 42 49 53 20 36 20 D7 45 52 54 45 |.DEY;BIS 6 .ERTE| 00003790: 20 47 45 53 45 54 5A 54 00 44 45 43 4D 45 4D 2B | GESETZT.DECMEM+| 000037A0: 31 32 00 42 50 4C 4F 4E 45 4C 49 4E 45 4C 42 4F |12.BPLONELINELBO| 000037B0: 00 54 59 41 3B CC 49 4E 49 45 20 5A 49 45 48 45 |.TYA;.INIE ZIEHE| 000037C0: 4E 00 50 48 41 00 4A 53 52 4C 49 4E 45 00 50 4C |N.PHA.JSRLINE.PL| 000037D0: 41 00 54 41 59 00 42 50 4C 4F 4E 45 4C 49 4E 45 |A.TAY.BPLONELINE| 000037E0: 42 4F 3B 57 45 49 54 45 52 20 42 49 53 20 31 32 |BO;WEITER BIS 12| 000037F0: 20 CC 49 4E 49 45 4E 20 47 45 5A 4F 47 45 4E 00 | .INIEN GEZOGEN.| 00003800: 52 54 53 00 20 00 4E 4F 43 4F 4C 34 3A 4A 4D 50 |RTS. .NOCOL4:JMP| 00003810: 4E 4F 43 4F 4C 00 20 00 3B C9 4E 44 45 58 54 41 |NOCOL. .;.NDEXTA| 00003820: 42 45 4C 4C 45 20 44 45 52 20 31 32 20 CC 49 4E |BELLE DER 12 .IN| 00003830: 49 45 4E 20 46 55 45 52 20 C2 CF D8 00 50 45 52 |IEN FUER ....PER| 00003840: 4D 55 54 53 32 3A 2E 42 59 30 2C 31 2C 32 2C 30 |MUTS2:.BY0,1,2,0| 00003850: 2C 31 2C 35 00 2E 42 59 30 2C 31 2C 35 2C 33 2C |,1,5..BY0,1,5,3,| 00003860: 34 2C 35 00 2E 42 59 33 2C 34 2C 35 2C 33 2C 34 |4,5..BY3,4,5,3,4| 00003870: 2C 32 00 2E 42 59 33 2C 34 2C 32 2C 30 2C 31 2C |,2..BY3,4,2,0,1,| 00003880: 32 00 2E 42 59 30 2C 31 2C 32 2C 36 2C 37 2C 38 |2..BY0,1,2,6,7,8| 00003890: 00 2E 42 59 36 2C 37 2C 38 2C 39 2C 31 30 2C 38 |..BY6,7,8,9,10,8| 000038A0: 00 2E 42 59 39 2C 31 30 2C 38 2C 39 2C 31 30 2C |..BY9,10,8,9,10,| 000038B0: 31 31 00 2E 42 59 39 2C 31 30 2C 31 31 2C 36 2C |11..BY9,10,11,6,| 000038C0: 37 2C 31 31 00 2E 42 59 36 2C 37 2C 31 31 2C 36 |7,11..BY6,7,11,6| 000038D0: 2C 37 2C 38 00 2E 42 59 36 2C 37 2C 31 31 2C 30 |,7,8..BY6,7,11,0| 000038E0: 2C 31 2C 35 00 2E 42 59 33 2C 34 2C 35 2C 39 2C |,1,5..BY3,4,5,9,| 000038F0: 31 30 2C 31 31 00 2E 42 59 33 2C 34 2C 32 2C 39 |10,11..BY3,4,2,9| 00003900: 2C 31 30 2C 38 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D |,10,8. .;-------| 00003910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003930: 00 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 |.;--- ......-.EF| 00003940: 45 48 4C 3A 20 C2 CC CF C3 CB 20 D8 31 2C D9 31 |EHL: ..... .1,.1| 00003950: 2C D8 32 2C D9 32 20 2D 2D 00 3B 2D 2D 2D 2D 2D |,.2,.2 --.;-----| 00003960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003980: 2D 2D 00 C2 C2 42 4C 4F 43 4B 3A 4A 53 52 47 45 |--...BLOCK:JSRGE| 00003990: 54 47 4B 4F 4F 52 3B CB 4F 4F 52 44 49 4E 41 54 |TGKOOR;.OORDINAT| 000039A0: 45 4E 20 31 20 48 4F 4C 45 4E 00 4C 44 59 23 30 |EN 1 HOLEN.LDY#0| 000039B0: 3B 41 42 20 4D 45 4D 20 53 50 45 49 43 48 45 52 |;AB MEM SPEICHER| 000039C0: 4E 00 4A 53 52 49 4E 4D 45 4D 00 4A 53 52 43 48 |N.JSRINMEM.JSRCH| 000039D0: 4B 4B 4F 4D 3B CB 4F 4F 52 44 49 4E 41 54 45 4E |KKOM;.OORDINATEN| 000039E0: 20 32 20 48 4F 4C 45 4E 00 4A 53 52 47 45 54 47 | 2 HOLEN.JSRGETG| 000039F0: 4B 4F 4F 52 00 4C 44 59 23 33 3B 41 42 20 4D 45 |KOOR.LDY#3;AB ME| 00003A00: 4D 2B 33 20 53 50 45 49 43 48 45 52 4E 00 4A 53 |M+3 SPEICHERN.JS| 00003A10: 52 49 4E 4D 45 4D 00 4C 44 41 4D 45 4D 2B 32 3B |RINMEM.LDAMEM+2;| 00003A20: D9 31 3C D9 32 00 43 4D 50 4D 45 4D 2B 35 00 42 |.1<.2.CMPMEM+5.B| 00003A30: 43 43 4F 4E 45 4C 49 4E 45 42 3B 4A 41 00 4C 44 |CCONELINEB;JA.LD| 00003A40: 59 23 32 3B 4E 45 49 4E 2C 20 CB 4F 4F 52 44 49 |Y#2;NEIN, .OORDI| 00003A50: 4E 41 54 45 4E 20 54 41 55 53 43 48 45 4E 00 53 |NATEN TAUSCHEN.S| 00003A60: 57 41 50 3A 4C 44 41 4D 45 4D 2C 59 3B D7 45 52 |WAP:LDAMEM,Y;.ER| 00003A70: 54 20 41 55 46 20 D3 54 41 43 4B 00 50 48 41 00 |T AUF .TACK.PHA.| 00003A80: 4C 44 41 4D 45 4D 2B 33 2C 59 3B 32 2E 20 D7 45 |LDAMEM+3,Y;2. .E| 00003A90: 52 54 20 53 50 45 49 43 48 45 52 4E 00 53 54 41 |RT SPEICHERN.STA| 00003AA0: 4D 45 4D 2C 59 00 50 4C 41 3B 31 2E 20 D7 45 52 |MEM,Y.PLA;1. .ER| 00003AB0: 54 20 56 4F 4E 20 D3 54 41 43 4B 00 53 54 41 4D |T VON .TACK.STAM| 00003AC0: 45 4D 2B 33 2C 59 00 44 45 59 3B 42 49 53 20 33 |EM+3,Y.DEY;BIS 3| 00003AD0: 20 D7 45 52 54 45 20 56 45 52 54 41 55 53 43 48 | .ERTE VERTAUSCH| 00003AE0: 54 00 42 50 4C 53 57 41 50 00 4F 4E 45 4C 49 4E |T.BPLSWAP.ONELIN| 00003AF0: 45 42 3A 4C 44 59 23 35 3B 36 20 D7 45 52 54 45 |EB:LDY#5;6 .ERTE| 00003B00: 20 53 45 54 5A 45 4E 00 4F 4E 45 4C 49 4E 45 42 | SETZEN.ONELINEB| 00003B10: 4C 3A 4C 44 58 50 45 52 4D 55 54 2C 59 3B C9 4E |L:LDXPERMUT,Y;.N| 00003B20: 44 45 58 20 48 4F 4C 45 4E 00 4C 44 41 4D 45 4D |DEX HOLEN.LDAMEM| 00003B30: 2C 58 3B D7 45 52 54 20 48 4F 4C 45 4E 00 53 54 |,X;.ERT HOLEN.ST| 00003B40: 41 58 43 55 52 53 2C 59 3B D7 45 52 54 20 53 50 |AXCURS,Y;.ERT SP| 00003B50: 45 49 43 48 45 52 4E 00 44 45 59 3B 42 49 53 20 |EICHERN.DEY;BIS | 00003B60: 36 20 D7 45 52 54 45 20 47 45 53 45 54 5A 54 00 |6 .ERTE GESETZT.| 00003B70: 42 50 4C 4F 4E 45 4C 49 4E 45 42 4C 00 4A 53 52 |BPLONELINEBL.JSR| 00003B80: 4C 49 4E 45 3B CC 49 4E 49 45 20 5A 49 45 48 45 |LINE;.INIE ZIEHE| 00003B90: 4E 00 49 4E 43 4D 45 4D 2B 32 3B D9 31 2B 31 00 |N.INCMEM+2;.1+1.| 00003BA0: 4C 44 41 4D 45 4D 2B 35 3B D9 31 3E D9 32 20 3F |LDAMEM+5;.1>.2 ?| 00003BB0: 00 43 4D 50 4D 45 4D 2B 32 00 42 43 53 4F 4E 45 |.CMPMEM+2.BCSONE| 00003BC0: 4C 49 4E 45 42 3B 4E 45 49 4E 2C 20 4E 41 45 43 |LINEB;NEIN, NAEC| 00003BD0: 48 53 54 45 20 CC 49 4E 49 45 20 5A 49 45 48 45 |HSTE .INIE ZIEHE| 00003BE0: 4E 00 52 54 53 00 20 00 50 45 52 4D 55 54 3A 2E |N.RTS. .PERMUT:.| 00003BF0: 42 59 30 2C 31 2C 32 2C 33 2C 34 2C 32 00 20 00 |BY0,1,2,3,4,2. .| 00003C00: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00003C10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003C20: 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 |--------.;--- ..| 00003C30: C1 D3 C9 C3 2D C2 45 46 45 48 4C 3A 20 C3 C9 D2 |....-.EFEHL: ...| 00003C40: C3 CC C5 20 D8 2C D9 2C C1 2C C2 20 20 20 2D 2D |... .,.,.,. --| 00003C50: 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |-.;-------------| 00003C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 58 30 3A 2E 45 |----------.X0:.E| 00003C80: 51 4D 45 4D 3B CD 49 54 54 45 4C 50 55 4E 4B 54 |QMEM;.ITTELPUNKT| 00003C90: 00 59 30 3A 2E 45 51 58 30 2B 32 00 58 3A 2E 45 |.Y0:.EQX0+2.X:.E| 00003CA0: 51 59 30 2B 31 3B 58 20 CF 46 46 53 45 54 00 59 |QY0+1;X .FFSET.Y| 00003CB0: 3A 2E 45 51 58 2B 32 3B 59 20 CF 46 46 53 45 54 |:.EQX+2;Y .FFSET| 00003CC0: 00 51 41 3A 2E 45 51 59 2B 32 3B C8 49 4C 46 53 |.QA:.EQY+2;.ILFS| 00003CD0: 52 45 47 49 53 54 45 52 00 51 42 3A 2E 45 51 51 |REGISTER.QB:.EQQ| 00003CE0: 41 2B 33 00 44 58 3A 2E 45 51 51 42 2B 33 00 44 |A+3.DX:.EQQB+3.D| 00003CF0: 59 3A 2E 45 51 44 58 2B 33 00 44 41 3A 2E 45 51 |Y:.EQDX+3.DA:.EQ| 00003D00: 44 59 2B 33 00 41 3A 2E 45 51 44 41 2B 33 3B D2 |DY+3.A:.EQDA+3;.| 00003D10: 41 44 49 55 53 20 C1 00 42 3A 2E 45 51 41 2B 31 |ADIUS ..B:.EQA+1| 00003D20: 3B D2 41 44 49 55 53 20 C2 00 20 00 52 42 49 47 |;.ADIUS .. .RBIG| 00003D30: 45 52 52 3A 4A 4D 50 4E 4F 43 4F 4C 3B C6 45 48 |ERR:JMPNOCOL;.EH| 00003D40: 4C 45 52 20 4D 45 4C 44 45 4E 00 20 00 C2 C2 43 |LER MELDEN. ...C| 00003D50: 49 52 43 4C 45 3A 4A 53 52 47 45 54 47 4B 4F 4F |IRCLE:JSRGETGKOO| 00003D60: 52 3B CD 49 54 54 45 4C 50 55 4E 4B 54 20 48 4F |R;.ITTELPUNKT HO| 00003D70: 4C 45 4E 00 4A 53 52 43 48 4B 4B 4F 4D 00 4A 53 |LEN.JSRCHKKOM.JS| 00003D80: 52 47 45 54 42 59 54 45 3B D2 41 44 49 55 53 20 |RGETBYTE;.ADIUS | 00003D90: C1 20 48 4F 4C 45 4E 00 43 50 58 23 31 36 36 3B |. HOLEN.CPX#166;| 00003DA0: 4D 41 58 2E 20 31 36 35 00 42 43 53 52 42 49 47 |MAX. 165.BCSRBIG| 00003DB0: 45 52 52 3B 5A 55 20 47 52 4F 53 53 00 53 54 58 |ERR;ZU GROSS.STX| 00003DC0: 41 3B D2 41 44 49 55 53 20 C1 00 4A 53 52 43 48 |A;.ADIUS ..JSRCH| 00003DD0: 4B 4B 4F 4D 3B D2 41 44 49 55 53 20 C2 20 48 4F |KKOM;.ADIUS . HO| 00003DE0: 4C 45 4E 00 4A 53 52 47 45 54 42 59 54 45 00 43 |LEN.JSRGETBYTE.C| 00003DF0: 50 58 23 31 36 36 3B 4D 41 58 2E 20 31 36 35 00 |PX#166;MAX. 165.| 00003E00: 42 43 53 52 42 49 47 45 52 52 3B 5A 55 20 47 52 |BCSRBIGERR;ZU GR| 00003E10: 4F 53 53 00 53 54 58 42 3B D2 41 44 49 55 53 20 |OSS.STXB;.ADIUS | 00003E20: C2 00 53 54 58 59 3B D9 3D C2 00 4C 44 41 58 43 |..STXY;.=..LDAXC| 00003E30: 55 52 53 3B D8 3B D8 30 3D D8 2D CB 4F 4F 52 44 |URS;.;.0=.-.OORD| 00003E40: 49 4E 41 54 45 00 53 54 41 58 30 00 4C 44 41 58 |INATE.STAX0.LDAX| 00003E50: 43 55 52 53 2B 31 00 53 54 41 58 30 2B 31 00 4C |CURS+1.STAX0+1.L| 00003E60: 44 41 59 43 55 52 53 3B D9 30 3D D9 2D CB 4F 4F |DAYCURS;.0=.-.OO| 00003E70: 52 44 49 4E 41 54 45 00 53 54 41 59 30 00 4C 44 |RDINATE.STAY0.LD| 00003E80: 41 23 30 3B C8 49 47 48 20 C2 59 54 45 20 56 4F |A#0;.IGH .YTE VO| 00003E90: 4E 20 D9 20 3D 30 00 53 54 41 59 2B 31 00 53 54 |N . =0.STAY+1.ST| 00003EA0: 41 58 3B D8 3D 30 00 53 54 41 58 2B 31 00 53 54 |AX;.=0.STAX+1.ST| 00003EB0: 41 52 45 47 31 2B 32 3B D2 45 43 48 45 4E 52 45 |AREG1+2;.ECHENRE| 00003EC0: 47 49 53 54 45 52 20 46 55 45 52 00 53 54 41 52 |GISTER FUER.STAR| 00003ED0: 45 47 32 2B 32 3B CD 55 4C 54 49 50 4C 49 4B 41 |EG2+2;.ULTIPLIKA| 00003EE0: 54 49 4F 4E 00 53 54 41 52 45 47 31 2B 31 3B 3D |TION.STAREG1+1;=| 00003EF0: 30 00 53 54 41 52 45 47 32 2B 31 00 4C 44 41 42 |0.STAREG2+1.LDAB| 00003F00: 3B C2 20 49 4E 20 D2 45 47 49 53 54 45 52 20 31 |;. IN .EGISTER 1| 00003F10: 20 26 20 32 00 53 54 41 52 45 47 31 00 53 54 41 | & 2.STAREG1.STA| 00003F20: 52 45 47 32 00 4A 53 52 4D 55 4C 54 49 32 34 3B |REG2.JSRMULTI24;| 00003F30: C2 2A C2 00 53 54 41 51 42 3B D1 C2 3D C2 2A C2 |.*..STAQB;..=.*.| 00003F40: 00 53 54 58 51 42 2B 31 00 53 54 59 51 42 2B 32 |.STXQB+1.STYQB+2| 00003F50: 00 53 54 41 44 58 3B C4 D8 3D C2 2A C2 00 53 54 |.STADX;..=.*..ST| 00003F60: 58 44 58 2B 31 00 53 54 59 44 58 2B 32 00 53 54 |XDX+1.STYDX+2.ST| 00003F70: 41 44 41 3B C4 C1 3D C2 2A C2 00 53 54 58 44 41 |ADA;..=.*..STXDA| 00003F80: 2B 31 00 53 54 59 44 41 2B 32 00 41 53 4C 51 42 |+1.STYDA+2.ASLQB| 00003F90: 3B D1 C2 3D 32 2A C2 2A C2 00 52 4F 4C 51 42 2B |;..=2*.*..ROLQB+| 00003FA0: 31 00 52 4F 4C 51 42 2B 32 00 4C 44 41 23 30 3B |1.ROLQB+2.LDA#0;| 00003FB0: C1 20 49 4E 20 D2 45 47 49 53 54 45 52 20 31 20 |. IN .EGISTER 1 | 00003FC0: 26 20 32 00 53 54 41 52 45 47 31 2B 32 00 53 54 |& 2.STAREG1+2.ST| 00003FD0: 41 52 45 47 32 2B 32 00 53 54 41 52 45 47 31 2B |AREG2+2.STAREG1+| 00003FE0: 31 00 53 54 41 52 45 47 32 2B 31 00 4C 44 41 41 |1.STAREG2+1.LDAA| 00003FF0: 00 53 54 41 52 45 47 31 00 53 54 41 52 45 47 32 |.STAREG1.STAREG2| 00004000: 00 4A 53 52 4D 55 4C 54 49 32 34 3B C1 2A C1 00 |.JSRMULTI24;.*..| 00004010: 53 54 41 51 41 3B D1 C1 3D C1 2A C1 00 53 54 58 |STAQA;..=.*..STX| 00004020: 51 41 2B 31 00 53 54 59 51 41 2B 32 00 53 54 41 |QA+1.STYQA+2.STA| 00004030: 44 59 3B C4 D9 3D C1 2A C1 00 53 54 58 44 59 2B |DY;..=.*..STXDY+| 00004040: 31 00 53 54 59 44 59 2B 32 00 41 53 4C 51 41 3B |1.STYDY+2.ASLQA;| 00004050: D1 C1 3D 32 2A C1 2A C1 00 52 4F 4C 51 41 2B 31 |..=2*.*..ROLQA+1| 00004060: 00 52 4F 4C 51 41 2B 32 00 43 4C 43 3B C4 C1 3D |.ROLQA+2.CLC;..=| 00004070: C1 2A C1 2B C2 2A C2 00 41 44 43 44 41 00 53 54 |.*.+.*..ADCDA.ST| 00004080: 41 44 41 00 54 58 41 00 41 44 43 44 41 2B 31 00 |ADA.TXA.ADCDA+1.| 00004090: 53 54 41 44 41 2B 31 00 54 59 41 00 41 44 43 44 |STADA+1.TYA.ADCD| 000040A0: 41 2B 32 00 53 54 41 44 41 2B 32 00 4C 44 41 23 |A+2.STADA+2.LDA#| 000040B0: 30 3B C2 20 49 4E 20 D2 45 47 49 53 54 45 52 20 |0;. IN .EGISTER | 000040C0: 31 00 53 54 41 52 45 47 31 2B 32 00 53 54 41 52 |1.STAREG1+2.STAR| 000040D0: 45 47 31 2B 31 00 4C 44 41 42 00 53 54 41 52 45 |EG1+1.LDAB.STARE| 000040E0: 47 31 00 4C 44 41 51 41 3B D1 C1 20 49 4E 20 D2 |G1.LDAQA;.. IN .| 000040F0: 45 47 49 53 54 45 52 20 32 00 53 54 41 52 45 47 |EGISTER 2.STAREG| 00004100: 32 00 4C 44 41 51 41 2B 31 00 53 54 41 52 45 47 |2.LDAQA+1.STAREG| 00004110: 32 2B 31 00 4C 44 41 51 41 2B 32 00 53 54 41 52 |2+1.LDAQA+2.STAR| 00004120: 45 47 32 2B 32 00 4A 53 52 4D 55 4C 54 49 32 34 |EG2+2.JSRMULTI24| 00004130: 3B D1 C1 2A C2 00 53 45 43 3B C4 D9 3D D1 C1 2A |;..*..SEC;..=..*| 00004140: C2 2D C1 2A C1 00 53 42 43 44 59 00 53 54 41 44 |.-.*..SBCDY.STAD| 00004150: 59 00 54 58 41 00 53 42 43 44 59 2B 31 00 53 54 |Y.TXA.SBCDY+1.ST| 00004160: 41 44 59 2B 31 00 54 59 41 00 53 42 43 44 59 2B |ADY+1.TYA.SBCDY+| 00004170: 32 00 53 54 41 44 59 2B 32 00 20 00 43 49 52 43 |2.STADY+2. .CIRC| 00004180: 4C 45 3A 4A 53 52 50 55 4E 4B 54 3B D0 55 4E 4B |LE:JSRPUNKT;.UNK| 00004190: 54 20 53 45 54 5A 45 4E 00 4A 53 52 49 4E 56 58 |T SETZEN.JSRINVX| 000041A0: 3B D8 3D 2D D8 00 4A 53 52 50 55 4E 4B 54 3B D0 |;.=-..JSRPUNKT;.| 000041B0: 55 4E 4B 54 20 53 45 54 5A 45 4E 00 4A 53 52 49 |UNKT SETZEN.JSRI| 000041C0: 4E 56 59 3B D9 3D 2D D9 00 4A 53 52 50 55 4E 4B |NVY;.=-..JSRPUNK| 000041D0: 54 3B D0 55 4E 4B 54 20 53 45 54 5A 45 4E 00 4A |T;.UNKT SETZEN.J| 000041E0: 53 52 49 4E 56 58 3B D8 3D 2D D8 00 4A 53 52 50 |SRINVX;.=-..JSRP| 000041F0: 55 4E 4B 54 3B D0 55 4E 4B 54 20 53 45 54 5A 45 |UNKT;.UNKT SETZE| 00004200: 4E 00 4A 53 52 49 4E 56 59 3B D9 3D 2D D9 00 4C |N.JSRINVY;.=-..L| 00004210: 44 41 44 41 2B 32 3B C4 C1 3C 30 20 3F 00 42 4D |DADA+2;..<0 ?.BM| 00004220: 49 4E 45 47 53 54 45 50 3B 4A 41 00 53 45 43 3B |INEGSTEP;JA.SEC;| 00004230: C4 C1 3D C4 C1 2D C4 D8 00 4C 44 41 44 41 00 53 |..=..-...LDADA.S| 00004240: 42 43 44 58 00 53 54 41 44 41 00 4C 44 41 44 41 |BCDX.STADA.LDADA| 00004250: 2B 31 00 53 42 43 44 58 2B 31 00 53 54 41 44 41 |+1.SBCDX+1.STADA| 00004260: 2B 31 00 4C 44 41 44 41 2B 32 00 53 42 43 44 58 |+1.LDADA+2.SBCDX| 00004270: 2B 32 00 53 54 41 44 41 2B 32 00 43 4C 43 3B C4 |+2.STADA+2.CLC;.| 00004280: D8 3D C4 D8 2B D1 C2 00 4C 44 41 44 58 00 41 44 |.=..+...LDADX.AD| 00004290: 43 51 42 00 53 54 41 44 58 00 4C 44 41 44 58 2B |CQB.STADX.LDADX+| 000042A0: 31 00 41 44 43 51 42 2B 31 00 53 54 41 44 58 2B |1.ADCQB+1.STADX+| 000042B0: 31 00 4C 44 41 44 58 2B 32 00 41 44 43 51 42 2B |1.LDADX+2.ADCQB+| 000042C0: 32 00 53 54 41 44 58 2B 32 00 49 4E 43 58 3B D8 |2.STADX+2.INCX;.| 000042D0: 3D D8 2B 31 00 42 4E 45 4E 45 47 53 54 45 50 00 |=.+1.BNENEGSTEP.| 000042E0: 49 4E 43 58 2B 31 00 4E 45 47 53 54 45 50 3A 4C |INCX+1.NEGSTEP:L| 000042F0: 44 41 44 41 2B 32 3B C4 C1 3E 3D 30 20 3F 00 42 |DADA+2;..>=0 ?.B| 00004300: 50 4C 4E 4F 4E 45 47 53 54 45 50 3B 4A 41 00 43 |PLNONEGSTEP;JA.C| 00004310: 4C 43 00 4C 44 41 44 41 3B C4 C1 3D C4 C1 2B C4 |LC.LDADA;..=..+.| 00004320: D9 00 41 44 43 44 59 00 53 54 41 44 41 00 4C 44 |..ADCDY.STADA.LD| 00004330: 41 44 41 2B 31 00 41 44 43 44 59 2B 31 00 53 54 |ADA+1.ADCDY+1.ST| 00004340: 41 44 41 2B 31 00 4C 44 41 44 41 2B 32 00 41 44 |ADA+1.LDADA+2.AD| 00004350: 43 44 59 2B 32 00 53 54 41 44 41 2B 32 00 53 45 |CDY+2.STADA+2.SE| 00004360: 43 00 4C 44 41 44 59 3B C4 D9 3D C4 D9 2D D1 C1 |C.LDADY;..=..-..| 00004370: 00 53 42 43 51 41 00 53 54 41 44 59 00 4C 44 41 |.SBCQA.STADY.LDA| 00004380: 44 59 2B 31 00 53 42 43 51 41 2B 31 00 53 54 41 |DY+1.SBCQA+1.STA| 00004390: 44 59 2B 31 00 4C 44 41 44 59 2B 32 00 53 42 43 |DY+1.LDADY+2.SBC| 000043A0: 51 41 2B 32 00 53 54 41 44 59 2B 32 00 44 45 43 |QA+2.STADY+2.DEC| 000043B0: 59 3B D9 3D D9 2D 31 00 4E 4F 4E 45 47 53 54 45 |Y;.=.-1.NONEGSTE| 000043C0: 50 3A 4C 44 41 59 3B D9 3D 30 20 3F 00 42 45 51 |P:LDAY;.=0 ?.BEQ| 000043D0: 45 4E 44 43 49 52 3B 4A 41 00 4A 4D 50 43 49 52 |ENDCIR;JA.JMPCIR| 000043E0: 43 4C 45 3B 4E 45 49 4E 00 45 4E 44 43 49 52 3A |CLE;NEIN.ENDCIR:| 000043F0: 4A 53 52 50 55 4E 4B 54 3B D0 55 4E 4B 54 20 53 |JSRPUNKT;.UNKT S| 00004400: 45 54 5A 45 4E 00 4A 53 52 49 4E 56 58 3B D8 3D |ETZEN.JSRINVX;.=| 00004410: 2D D8 00 4A 53 52 50 55 4E 4B 54 3B D0 55 4E 4B |-..JSRPUNKT;.UNK| 00004420: 54 20 53 45 54 5A 45 4E 00 52 54 53 00 20 00 50 |T SETZEN.RTS. .P| 00004430: 55 4E 4B 54 3A 43 4C 43 3B D0 55 4E 4B 54 20 53 |UNKT:CLC;.UNKT S| 00004440: 45 54 5A 45 4E 00 4C 44 41 58 30 3B D8 2D CB 4F |ETZEN.LDAX0;.-.O| 00004450: 4F 52 44 49 4E 41 54 45 20 3D 20 D8 30 2B D8 00 |ORDINATE = .0+..| 00004460: 41 44 43 58 00 53 54 41 58 43 55 52 53 00 4C 44 |ADCX.STAXCURS.LD| 00004470: 41 58 30 2B 31 00 41 44 43 58 2B 31 00 53 54 41 |AX0+1.ADCX+1.STA| 00004480: 58 43 55 52 53 2B 31 00 43 4C 43 3B D9 2D CB 4F |XCURS+1.CLC;.-.O| 00004490: 4F 52 44 49 4E 41 54 45 20 3D 20 D9 30 2B D9 00 |ORDINATE = .0+..| 000044A0: 4C 44 41 59 30 00 41 44 43 59 00 53 54 41 59 43 |LDAY0.ADCY.STAYC| 000044B0: 55 52 53 00 4C 44 41 23 30 00 41 44 43 59 2B 31 |URS.LDA#0.ADCY+1| 000044C0: 00 42 4E 45 4E 4F 50 4C 4F 54 00 4A 53 52 43 4C |.BNENOPLOT.JSRCL| 000044D0: 49 50 50 4C 4F 54 3B D0 55 4E 4B 54 20 53 45 54 |IPPLOT;.UNKT SET| 000044E0: 5A 45 4E 00 52 54 53 00 20 00 43 4C 49 50 50 4C |ZEN.RTS. .CLIPPL| 000044F0: 4F 54 3A 4C 44 41 59 43 55 52 53 3B D0 55 4E 4B |OT:LDAYCURS;.UNK| 00004500: 54 20 53 45 54 5A 45 4E 2C 46 41 4C 4C 53 20 53 |T SETZEN,FALLS S| 00004510: 49 43 48 54 42 41 52 00 43 4D 50 23 32 30 30 00 |ICHTBAR.CMP#200.| 00004520: 42 43 53 4E 4F 50 4C 4F 54 3B D9 3E 31 39 39 00 |BCSNOPLOT;.>199.| 00004530: 42 49 54 43 4F 4C 4D 4F 44 45 00 42 4D 49 43 4C |BITCOLMODE.BMICL| 00004540: 49 50 43 4F 4C 3B C6 41 52 42 4D 4F 44 55 53 00 |IPCOL;.ARBMODUS.| 00004550: 4C 44 41 58 43 55 52 53 2B 31 3B D8 3E 33 31 39 |LDAXCURS+1;.>319| 00004560: 20 3F 00 42 45 51 44 4F 52 45 41 4C 59 3B 4E 45 | ?.BEQDOREALY;NE| 00004570: 49 4E 00 43 4D 50 23 32 00 42 43 53 4E 4F 50 4C |IN.CMP#2.BCSNOPL| 00004580: 4F 54 3B 4A 41 00 4C 44 41 58 43 55 52 53 00 43 |OT;JA.LDAXCURS.C| 00004590: 4D 50 23 3C 33 32 30 00 42 43 53 4E 4F 50 4C 4F |MP#<320.BCSNOPLO| 000045A0: 54 3B 4A 41 00 44 4F 52 45 41 4C 59 3A 4A 4D 50 |T;JA.DOREALY:JMP| 000045B0: 50 4C 4F 54 3B D0 55 4E 4B 54 20 53 45 54 5A 45 |PLOT;.UNKT SETZE| 000045C0: 4E 00 20 00 43 4C 49 50 43 4F 4C 3A 4C 44 41 58 |N. .CLIPCOL:LDAX| 000045D0: 43 55 52 53 2B 31 3B D8 3E 31 35 39 20 3F 00 42 |CURS+1;.>159 ?.B| 000045E0: 4E 45 4E 4F 50 4C 4F 54 3B 4A 41 00 4C 44 41 58 |NENOPLOT;JA.LDAX| 000045F0: 43 55 52 53 00 43 4D 50 23 31 36 30 00 42 43 53 |CURS.CMP#160.BCS| 00004600: 4E 4F 50 4C 4F 54 3B 4A 41 00 4A 4D 50 50 4C 4F |NOPLOT;JA.JMPPLO| 00004610: 54 3B D0 55 4E 4B 54 20 53 45 54 5A 45 4E 00 20 |T;.UNKT SETZEN. | 00004620: 00 49 4E 56 59 3A 43 4C 43 3B D9 3D 2D D9 00 4C |.INVY:CLC;.=-..L| 00004630: 44 41 59 3B CC 4F 57 20 49 4E 56 45 52 54 49 45 |DAY;.OW INVERTIE| 00004640: 52 45 4E 00 45 4F 52 23 24 46 46 00 41 44 43 23 |REN.EOR#$FF.ADC#| 00004650: 31 3B 2B 31 00 53 54 41 59 00 4C 44 41 59 2B 31 |1;+1.STAY.LDAY+1| 00004660: 00 45 4F 52 23 24 46 46 3B C8 49 47 48 20 49 4E |.EOR#$FF;.IGH IN| 00004670: 56 45 52 54 49 45 52 45 4E 00 41 44 43 23 30 3B |VERTIEREN.ADC#0;| 00004680: 2B C3 41 52 52 59 00 53 54 41 59 2B 31 00 4E 4F |+.ARRY.STAY+1.NO| 00004690: 50 4C 4F 54 3A 52 54 53 00 20 00 49 4E 56 58 3A |PLOT:RTS. .INVX:| 000046A0: 43 4C 43 3B D8 3D 2D D8 00 4C 44 41 58 3B CC 4F |CLC;.=-..LDAX;.O| 000046B0: 57 20 49 4E 56 45 52 54 49 45 52 45 4E 00 45 4F |W INVERTIEREN.EO| 000046C0: 52 23 24 46 46 00 41 44 43 23 31 3B 2B 31 00 53 |R#$FF.ADC#1;+1.S| 000046D0: 54 41 58 00 4C 44 41 58 2B 31 00 45 4F 52 23 24 |TAX.LDAX+1.EOR#$| 000046E0: 46 46 3B C8 49 47 48 20 49 4E 56 45 52 54 49 45 |FF;.IGH INVERTIE| 000046F0: 52 45 4E 00 41 44 43 23 30 3B 2B C3 41 52 52 59 |REN.ADC#0;+.ARRY| 00004700: 00 53 54 41 58 2B 31 00 52 54 53 00 20 00 3B 2D |.STAX+1.RTS. .;-| 00004710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004730: 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 32 34 2D C2 |------.;--- 24-.| 00004740: 49 54 20 CD 55 4C 54 49 50 4C 49 4B 41 54 49 4F |IT .ULTIPLIKATIO| 00004750: 4E 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 00 |N ---.| 00004760: 3B 2D 2D 2D 20 52 45 47 31 2A 52 45 47 32 2D 3E |;--- REG1*REG2->| 00004770: 4D 45 52 47 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |MERG.;----------| 00004780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4D 55 |-------------.MU| 000047A0: 4C 54 49 32 34 3A 4C 44 41 23 30 3B C5 52 47 45 |LTI24:LDA#0;.RGE| 000047B0: 42 4E 49 53 20 3D 30 00 53 54 41 4D 45 52 47 00 |BNIS =0.STAMERG.| 000047C0: 53 54 41 4D 45 52 47 2B 31 00 53 54 41 4D 45 52 |STAMERG+1.STAMER| 000047D0: 47 2B 32 00 4C 44 58 23 32 34 3B 32 34 20 C2 49 |G+2.LDX#24;24 .I| 000047E0: 54 20 DA 41 45 48 4C 45 52 00 4D 55 4C 54 49 50 |T .AEHLER.MULTIP| 000047F0: 4C 3A 41 53 4C 4D 45 52 47 3B C5 52 47 45 42 4E |L:ASLMERG;.RGEBN| 00004800: 49 53 20 2A 32 00 52 4F 4C 4D 45 52 47 2B 31 00 |IS *2.ROLMERG+1.| 00004810: 52 4F 4C 4D 45 52 47 2B 32 00 41 53 4C 52 45 47 |ROLMERG+2.ASLREG| 00004820: 31 3B D2 45 47 49 53 54 45 52 31 20 2A 32 00 52 |1;.EGISTER1 *2.R| 00004830: 4F 4C 52 45 47 31 2B 31 00 52 4F 4C 52 45 47 31 |OLREG1+1.ROLREG1| 00004840: 2B 32 00 42 43 43 55 4E 41 44 44 52 32 3B 48 4F |+2.BCCUNADDR2;HO| 00004850: 45 43 48 53 54 45 53 20 C2 49 54 20 57 41 52 20 |ECHSTES .IT WAR | 00004860: 4E 49 43 48 54 20 47 45 53 45 54 5A 54 00 43 4C |NICHT GESETZT.CL| 00004870: 43 3B C5 52 47 45 42 4E 49 53 3D C5 52 47 45 42 |C;.RGEBNIS=.RGEB| 00004880: 4E 49 53 2B D2 45 47 49 53 54 45 52 32 00 4C 44 |NIS+.EGISTER2.LD| 00004890: 41 4D 45 52 47 00 41 44 43 52 45 47 32 00 53 54 |AMERG.ADCREG2.ST| 000048A0: 41 4D 45 52 47 00 4C 44 41 4D 45 52 47 2B 31 00 |AMERG.LDAMERG+1.| 000048B0: 41 44 43 52 45 47 32 2B 31 00 53 54 41 4D 45 52 |ADCREG2+1.STAMER| 000048C0: 47 2B 31 00 4C 44 41 4D 45 52 47 2B 32 00 41 44 |G+1.LDAMERG+2.AD| 000048D0: 43 52 45 47 32 2B 32 00 53 54 41 4D 45 52 47 2B |CREG2+2.STAMERG+| 000048E0: 32 00 55 4E 41 44 44 52 32 3A 44 45 58 3B DA 41 |2.UNADDR2:DEX;.A| 000048F0: 45 48 4C 45 52 2D 31 00 42 4E 45 4D 55 4C 54 49 |EHLER-1.BNEMULTI| 00004900: 50 4C 3B 42 49 53 20 32 34 20 C2 49 54 20 41 42 |PL;BIS 24 .IT AB| 00004910: 47 45 41 52 42 45 49 54 45 54 00 4C 44 41 4D 45 |GEARBEITET.LDAME| 00004920: 52 47 3B C5 52 47 45 42 4E 49 53 20 49 4E 20 D9 |RG;.RGEBNIS IN .| 00004930: 2F D8 2F C1 00 4C 44 58 4D 45 52 47 2B 31 00 4C |/./..LDXMERG+1.L| 00004940: 44 59 4D 45 52 47 2B 32 00 52 54 53 00 20 00 3B |DYMERG+2.RTS. .;| 00004950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004970: 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 C2 45 46 |-------.;--- .EF| 00004980: 45 48 4C 3A 20 C1 CE C7 CC C5 20 D8 2C D9 2C D2 |EHL: ..... .,.,.| 00004990: D8 2C D2 D9 2C C1 D7 2C C5 D7 2C D3 D7 20 20 2D |.,..,..,..,.. -| 000049A0: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 000049B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000049C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 58 30 2C 59 30 |---------.;X0,Y0| 000049D0: 20 57 49 45 20 42 45 49 20 43 49 52 43 4C 45 00 | WIE BEI CIRCLE.| 000049E0: 20 00 4C 49 4E 45 46 4C 41 47 3A 2E 45 51 59 30 | .LINEFLAG:.EQY0| 000049F0: 2B 31 3B C6 4C 41 47 20 46 55 45 52 20 CC 49 4E |+1;.LAG FUER .IN| 00004A00: 49 45 20 5A 49 45 48 45 4E 00 52 58 3A 2E 45 51 |IE ZIEHEN.RX:.EQ| 00004A10: 4C 49 4E 45 46 4C 41 47 2B 31 3B D2 41 44 49 55 |LINEFLAG+1;.ADIU| 00004A20: 53 20 D8 00 52 59 3A 2E 45 51 52 58 2B 31 3B D2 |S ..RY:.EQRX+1;.| 00004A30: 41 44 49 55 53 20 D9 00 41 57 3A 2E 45 51 52 59 |ADIUS ..AW:.EQRY| 00004A40: 2B 31 3B C1 4E 46 41 4E 47 53 57 49 4E 4B 45 4C |+1;.NFANGSWINKEL| 00004A50: 00 45 57 3A 2E 45 51 41 57 2B 32 3B C5 4E 44 57 |.EW:.EQAW+2;.NDW| 00004A60: 49 4E 4B 45 4C 00 53 57 3A 2E 45 51 45 57 2B 32 |INKEL.SW:.EQEW+2| 00004A70: 3B D3 43 48 52 49 54 54 57 45 49 54 45 20 28 D7 |;.CHRITTWEITE (.| 00004A80: 49 4E 4B 45 4C 29 00 20 00 C2 C2 41 4E 47 4C 45 |INKEL). ...ANGLE| 00004A90: 3A 4A 53 52 47 45 54 47 4B 4F 4F 52 3B CD 49 54 |:JSRGETGKOOR;.IT| 00004AA0: 54 45 4C 50 55 4E 4B 54 20 48 4F 4C 45 4E 00 4C |TELPUNKT HOLEN.L| 00004AB0: 44 41 58 43 55 52 53 3B 49 4E 20 D8 30 20 55 4E |DAXCURS;IN .0 UN| 00004AC0: 44 00 53 54 41 58 30 00 4C 44 41 58 43 55 52 53 |D.STAX0.LDAXCURS| 00004AD0: 2B 31 00 53 54 41 58 30 2B 31 00 4C 44 41 59 43 |+1.STAX0+1.LDAYC| 00004AE0: 55 52 53 3B D9 30 20 53 50 45 49 43 48 45 52 4E |URS;.0 SPEICHERN| 00004AF0: 00 53 54 41 59 30 00 4A 53 52 43 48 4B 4B 4F 4D |.STAY0.JSRCHKKOM| 00004B00: 3B D2 41 44 49 55 53 20 D8 20 48 4F 4C 45 4E 00 |;.ADIUS . HOLEN.| 00004B10: 4A 53 52 47 45 54 42 59 54 45 00 53 54 58 52 58 |JSRGETBYTE.STXRX| 00004B20: 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 4A |;UND SPEICHERN.J| 00004B30: 53 52 43 48 4B 4B 4F 4D 00 4A 53 52 47 45 54 42 |SRCHKKOM.JSRGETB| 00004B40: 59 54 45 3B D2 41 44 49 55 53 20 D9 20 48 4F 4C |YTE;.ADIUS . HOL| 00004B50: 45 4E 00 53 54 58 52 59 3B 55 4E 44 20 53 50 45 |EN.STXRY;UND SPE| 00004B60: 49 43 48 45 52 4E 00 4A 53 52 43 48 4B 4B 4F 4D |ICHERN.JSRCHKKOM| 00004B70: 00 4A 53 52 47 45 54 41 44 52 3B C1 4E 46 41 4E |.JSRGETADR;.NFAN| 00004B80: 47 53 57 49 4E 4B 45 4C 20 48 4F 4C 45 4E 00 4C |GSWINKEL HOLEN.L| 00004B90: 44 41 24 31 34 3B 55 4E 44 20 53 50 45 49 43 48 |DA$14;UND SPEICH| 00004BA0: 45 52 4E 00 4C 44 58 24 31 35 00 53 54 41 41 57 |ERN.LDX$15.STAAW| 00004BB0: 00 53 54 58 41 57 2B 31 00 4A 53 52 43 48 4B 4B |.STXAW+1.JSRCHKK| 00004BC0: 4F 4D 3B C5 4E 44 57 49 4E 4B 45 4C 20 48 4F 4C |OM;.NDWINKEL HOL| 00004BD0: 45 4E 00 4A 53 52 47 45 54 41 44 52 00 4C 44 41 |EN.JSRGETADR.LDA| 00004BE0: 24 31 34 3B 55 4E 44 20 53 50 45 49 43 48 45 52 |$14;UND SPEICHER| 00004BF0: 4E 00 4C 44 58 24 31 35 00 53 54 41 45 57 00 53 |N.LDX$15.STAEW.S| 00004C00: 54 58 45 57 2B 31 00 43 50 58 41 57 2B 31 3B C1 |TXEW+1.CPXAW+1;.| 00004C10: 4E 46 41 4E 47 53 57 49 4E 4B 45 4C 3E 3D C5 4E |NFANGSWINKEL>=.N| 00004C20: 44 57 49 4E 4B 45 4C 20 3F 00 42 45 51 56 47 4C |DWINKEL ?.BEQVGL| 00004C30: 32 57 00 42 43 53 4E 45 58 54 41 52 47 3B 4E 45 |2W.BCSNEXTARG;NE| 00004C40: 49 4E 00 41 44 44 33 36 30 3A 43 4C 43 3B C5 4E |IN.ADD360:CLC;.N| 00004C50: 44 57 49 4E 4B 45 4C 20 2B 33 36 30 20 28 C7 52 |DWINKEL +360 (.R| 00004C60: 41 44 29 00 4C 44 41 45 57 00 41 44 43 23 3C 33 |AD).LDAEW.ADC#<3| 00004C70: 36 30 00 53 54 41 45 57 00 4C 44 41 45 57 2B 31 |60.STAEW.LDAEW+1| 00004C80: 00 41 44 43 23 3E 33 36 30 00 53 54 41 45 57 2B |.ADC#>360.STAEW+| 00004C90: 31 00 42 43 43 4E 45 58 54 41 52 47 3B D3 43 48 |1.BCCNEXTARG;.CH| 00004CA0: 52 49 54 54 20 4C 45 53 45 4E 00 56 47 4C 32 57 |RITT LESEN.VGL2W| 00004CB0: 3A 43 4D 50 41 57 3B C1 4E 46 41 4E 47 53 57 49 |:CMPAW;.NFANGSWI| 00004CC0: 4E 4B 45 4C 3E 3D C5 4E 44 57 49 4E 4B 45 4C 20 |NKEL>=.NDWINKEL | 00004CD0: 3F 00 42 45 51 41 44 44 33 36 30 3B 4A 41 00 42 |?.BEQADD360;JA.B| 00004CE0: 43 43 41 44 44 33 36 30 3B 4A 41 00 4E 45 58 54 |CCADD360;JA.NEXT| 00004CF0: 41 52 47 3A 4A 53 52 43 48 4B 4B 4F 4D 3B D3 43 |ARG:JSRCHKKOM;.C| 00004D00: 48 52 49 54 54 57 45 49 54 45 20 4C 45 53 45 4E |HRITTWEITE LESEN| 00004D10: 00 4A 53 52 47 45 54 42 59 54 45 00 53 54 58 53 |.JSRGETBYTE.STXS| 00004D20: 57 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 |W;UND SPEICHERN.| 00004D30: 4C 44 41 23 30 3B CC 49 4E 45 46 4C 41 47 20 41 |LDA#0;.INEFLAG A| 00004D40: 55 46 20 CE 55 4C 4C 00 53 54 41 4C 49 4E 45 46 |UF .ULL.STALINEF| 00004D50: 4C 41 47 00 20 00 53 50 3A 4A 53 52 4D 41 4B 45 |LAG. .SP:JSRMAKE| 00004D60: 50 4F 49 4E 54 3B D0 55 4E 4B 54 20 42 45 52 45 |POINT;.UNKT BERE| 00004D70: 43 48 4E 45 4E 00 42 49 54 4C 49 4E 45 46 4C 41 |CHNEN.BITLINEFLA| 00004D80: 47 3B CC 49 4E 45 46 4C 41 47 20 47 45 53 45 54 |G;.INEFLAG GESET| 00004D90: 5A 54 20 3F 00 42 4D 49 4C 49 4E 45 49 54 3B 4A |ZT ?.BMILINEIT;J| 00004DA0: 41 2C 20 CC 49 4E 49 45 20 5A 49 45 48 45 4E 00 |A, .INIE ZIEHEN.| 00004DB0: 4A 53 52 50 4C 4F 54 3B 4E 45 49 4E 2C 20 45 52 |JSRPLOT;NEIN, ER| 00004DC0: 53 54 45 4E 20 D0 55 4E 4B 54 20 50 4C 4F 54 54 |STEN .UNKT PLOTT| 00004DD0: 45 4E 00 44 45 43 4C 49 4E 45 46 4C 41 47 3B C6 |EN.DECLINEFLAG;.| 00004DE0: 4C 41 47 20 53 45 54 5A 45 4E 00 42 4D 49 4C 49 |LAG SETZEN.BMILI| 00004DF0: 4E 45 43 4F 4E 54 3B 55 4E 42 45 44 49 4E 47 54 |NECONT;UNBEDINGT| 00004E00: 45 52 20 D3 50 52 55 4E 47 00 4C 49 4E 45 49 54 |ER .PRUNG.LINEIT| 00004E10: 3A 4A 53 52 4C 49 4E 45 3B CC 49 4E 49 45 20 5A |:JSRLINE;.INIE Z| 00004E20: 49 45 48 45 4E 00 4C 49 4E 45 43 4F 4E 54 3A 4C |IEHEN.LINECONT:L| 00004E30: 44 41 41 57 3B C1 4E 46 41 4E 47 53 57 49 4E 4B |DAAW;.NFANGSWINK| 00004E40: 45 4C 3D C5 4E 44 57 49 4E 4B 45 4C 20 3F 00 43 |EL=.NDWINKEL ?.C| 00004E50: 4D 50 45 57 00 42 4E 45 43 4F 4E 54 49 4E 41 47 |MPEW.BNECONTINAG| 00004E60: 3B 4E 45 49 4E 00 4C 44 41 41 57 2B 31 00 43 4D |;NEIN.LDAAW+1.CM| 00004E70: 50 45 57 2B 31 00 42 45 51 46 45 52 54 49 47 41 |PEW+1.BEQFERTIGA| 00004E80: 47 3B 4A 41 2C 20 46 45 52 54 49 47 00 43 4F 4E |G;JA, FERTIG.CON| 00004E90: 54 49 4E 41 47 3A 43 4C 43 3B C1 4E 46 41 4E 47 |TINAG:CLC;.NFANG| 00004EA0: 53 57 49 4E 4B 45 4C 2B D3 43 48 52 49 54 54 57 |SWINKEL+.CHRITTW| 00004EB0: 45 49 54 45 00 4C 44 41 41 57 00 41 44 43 53 57 |EITE.LDAAW.ADCSW| 00004EC0: 00 53 54 41 41 57 00 4C 44 41 41 57 2B 31 00 41 |.STAAW.LDAAW+1.A| 00004ED0: 44 43 23 30 00 53 54 41 41 57 2B 31 00 43 4D 50 |DC#0.STAAW+1.CMP| 00004EE0: 45 57 2B 31 3B C1 D7 3E 3D C5 D7 20 3F 00 42 45 |EW+1;..>=.. ?.BE| 00004EF0: 51 56 47 4C 42 32 00 42 43 43 53 50 3B 4E 45 49 |QVGLB2.BCCSP;NEI| 00004F00: 4E 2C 20 4E 41 45 43 48 53 54 45 4E 20 D0 55 4E |N, NAECHSTEN .UN| 00004F10: 4B 54 00 4D 41 4B 45 4C 41 53 54 3A 4C 44 41 45 |KT.MAKELAST:LDAE| 00004F20: 57 3B C1 D7 3D C5 D7 20 28 4C 45 54 5A 54 45 52 |W;..=.. (LETZTER| 00004F30: 20 D0 55 4E 4B 54 29 00 53 54 41 41 57 00 4C 44 | .UNKT).STAAW.LD| 00004F40: 41 45 57 2B 31 00 53 54 41 41 57 2B 31 00 54 4F |AEW+1.STAAW+1.TO| 00004F50: 53 50 3A 4A 4D 50 53 50 3B D0 55 4E 4B 54 20 53 |SP:JMPSP;.UNKT S| 00004F60: 45 54 5A 45 4E 00 56 47 4C 42 32 3A 4C 44 41 41 |ETZEN.VGLB2:LDAA| 00004F70: 57 3B C1 D7 3C 3D C5 D7 20 3F 00 43 4D 50 45 57 |W;..<=.. ?.CMPEW| 00004F80: 00 42 45 51 54 4F 53 50 3B 4A 41 20 C1 D7 3D C5 |.BEQTOSP;JA ..=.| 00004F90: D7 00 42 43 43 54 4F 53 50 3B 4A 41 20 C1 D7 3C |..BCCTOSP;JA ..<| 00004FA0: C5 D7 00 42 43 53 4D 41 4B 45 4C 41 53 54 3B 20 |...BCSMAKELAST; | 00004FB0: C1 D7 3E C5 D7 00 46 45 52 54 49 47 41 47 3A 52 |..>...FERTIGAG:R| 00004FC0: 54 53 00 20 00 4D 41 4B 45 50 4F 49 4E 54 3A 4C |TS. .MAKEPOINT:L| 00004FD0: 44 41 58 43 55 52 53 3B 41 4C 54 45 4E 20 C7 52 |DAXCURS;ALTEN .R| 00004FE0: 41 50 48 49 4B 43 55 52 53 4F 52 20 52 45 54 54 |APHIKCURSOR RETT| 00004FF0: 45 4E 00 53 54 41 58 43 55 52 53 32 00 4C 44 41 |EN.STAXCURS2.LDA| 00005000: 58 43 55 52 53 2B 31 00 53 54 41 58 43 55 52 53 |XCURS+1.STAXCURS| 00005010: 32 2B 31 00 4C 44 41 59 43 55 52 53 00 53 54 41 |2+1.LDAYCURS.STA| 00005020: 59 43 55 52 53 32 00 4C 44 59 41 57 00 4C 44 41 |YCURS2.LDYAW.LDA| 00005030: 41 57 2B 31 00 4A 53 52 45 52 47 45 42 4E 49 53 |AW+1.JSRERGEBNIS| 00005040: 3B C6 C1 C3 3D C1 D7 00 4C 44 41 23 3C 50 49 46 |;...=...LDA#<PIF| 00005050: 41 43 00 4C 44 59 23 3E 50 49 46 41 43 00 4C 44 |AC.LDY#>PIFAC.LD| 00005060: 58 23 35 30 3B C6 C1 C3 3D C1 D7 2A 32 2A D0 C9 |X#50;...=..*2*..| 00005070: 2F 33 36 30 00 4A 53 52 42 41 53 49 43 52 4F 4D |/360.JSRBASICROM| 00005080: 00 4C 44 58 23 35 36 00 4A 53 52 42 41 53 49 43 |.LDX#56.JSRBASIC| 00005090: 52 4F 4D 3B C6 C1 C3 3D D3 C9 CE 28 C6 C1 C3 29 |ROM;...=...(...)| 000050A0: 00 4C 44 58 23 35 32 00 4A 53 52 42 41 53 49 43 |.LDX#52.JSRBASIC| 000050B0: 52 4F 4D 3B C6 C1 C3 2D 3E C1 D2 C7 00 4C 44 41 |ROM;...->....LDA| 000050C0: 23 30 00 4C 44 59 52 58 00 4A 53 52 45 52 47 45 |#0.LDYRX.JSRERGE| 000050D0: 42 4E 49 53 3B C6 C1 C3 3D D2 D8 00 4C 44 58 23 |BNIS;...=...LDX#| 000050E0: 35 34 00 4A 53 52 42 41 53 49 43 52 4F 4D 3B C6 |54.JSRBASICROM;.| 000050F0: C1 C3 3D D2 D8 2A D3 C9 CE 28 C1 D7 2A 32 2A D0 |..=..*...(..*2*.| 00005100: C9 2F 33 36 30 29 00 4C 44 58 23 36 30 00 4A 53 |./360).LDX#60.JS| 00005110: 52 42 41 53 49 43 52 4F 4D 3B 49 4E 20 C9 4E 54 |RBASICROM;IN .NT| 00005120: 45 47 45 52 20 57 41 4E 44 45 4C 4E 00 43 4C 43 |EGER WANDELN.CLC| 00005130: 3B D8 30 20 2B 20 C9 4E 54 45 47 45 52 57 45 52 |;.0 + .NTEGERWER| 00005140: 54 00 54 41 58 3B 49 53 54 20 D8 2D CB 4F 4F 52 |T.TAX;IST .-.OOR| 00005150: 44 49 4E 41 54 45 00 54 59 41 00 41 44 43 58 30 |DINATE.TYA.ADCX0| 00005160: 00 53 54 41 58 43 55 52 53 00 54 58 41 00 41 44 |.STAXCURS.TXA.AD| 00005170: 43 58 30 2B 31 00 53 54 41 58 43 55 52 53 2B 31 |CX0+1.STAXCURS+1| 00005180: 00 42 4D 49 43 4C 49 50 58 4D 3B 3C 30 2C 20 D8 |.BMICLIPXM;<0, .| 00005190: 20 41 55 46 20 30 20 53 45 54 5A 45 4E 00 42 49 | AUF 0 SETZEN.BI| 000051A0: 54 43 4F 4C 4D 4F 44 45 3B C6 41 52 42 4D 4F 44 |TCOLMODE;.ARBMOD| 000051B0: 55 53 20 3F 00 42 4D 49 43 4F 4C 43 4C 49 50 58 |US ?.BMICOLCLIPX| 000051C0: 3B 4A 41 00 43 4D 50 23 30 3B D8 3C 33 32 30 20 |;JA.CMP#0;.<320 | 000051D0: 3F 00 42 45 51 58 55 4E 43 4C 49 50 3B 4A 41 00 |?.BEQXUNCLIP;JA.| 000051E0: 43 4D 50 23 32 00 42 43 53 43 4C 49 50 58 50 31 |CMP#2.BCSCLIPXP1| 000051F0: 3B 4E 45 49 4E 2C 20 D8 20 41 55 46 20 33 31 39 |;NEIN, . AUF 319| 00005200: 20 53 45 54 5A 45 4E 00 4C 44 41 58 43 55 52 53 | SETZEN.LDAXCURS| 00005210: 00 43 4D 50 23 3C 33 32 30 00 42 43 53 43 4C 49 |.CMP#<320.BCSCLI| 00005220: 50 58 50 31 3B 4E 45 49 4E 2C 20 D8 20 41 55 46 |PXP1;NEIN, . AUF| 00005230: 20 33 31 39 20 53 45 54 5A 45 4E 00 42 43 43 58 | 319 SETZEN.BCCX| 00005240: 55 4E 43 4C 49 50 3B 55 4E 42 45 44 49 4E 47 54 |UNCLIP;UNBEDINGT| 00005250: 45 52 20 D3 50 52 55 4E 47 00 43 4F 4C 43 4C 49 |ER .PRUNG.COLCLI| 00005260: 50 58 3A 43 4D 50 23 30 3B D8 3C 31 36 30 20 3F |PX:CMP#0;.<160 ?| 00005270: 00 42 4E 45 43 4C 49 50 58 50 32 3B 4E 45 49 4E |.BNECLIPXP2;NEIN| 00005280: 2C 20 D8 20 41 55 46 20 31 35 39 20 53 45 54 5A |, . AUF 159 SETZ| 00005290: 45 4E 00 4C 44 41 58 43 55 52 53 00 43 4D 50 23 |EN.LDAXCURS.CMP#| 000052A0: 31 36 30 00 42 43 53 43 4C 49 50 58 50 32 3B 4E |160.BCSCLIPXP2;N| 000052B0: 45 49 4E 2C 20 D8 20 41 55 46 20 31 35 39 20 53 |EIN, . AUF 159 S| 000052C0: 45 54 5A 45 4E 00 20 00 58 55 4E 43 4C 49 50 3A |ETZEN. .XUNCLIP:| 000052D0: 4C 44 59 41 57 00 4C 44 41 41 57 2B 31 00 4A 53 |LDYAW.LDAAW+1.JS| 000052E0: 52 45 52 47 45 42 4E 49 53 3B C6 C1 C3 3D C1 D7 |RERGEBNIS;...=..| 000052F0: 00 4C 44 41 23 3C 50 49 46 41 43 00 4C 44 59 23 |.LDA#<PIFAC.LDY#| 00005300: 3E 50 49 46 41 43 00 4C 44 58 23 35 30 3B C6 C1 |>PIFAC.LDX#50;..| 00005310: C3 3D C1 D7 2A 32 2A D0 C9 2F 33 36 30 00 4A 53 |.=..*2*../360.JS| 00005320: 52 42 41 53 49 43 52 4F 4D 00 4C 44 58 23 35 38 |RBASICROM.LDX#58| 00005330: 00 4A 53 52 42 41 53 49 43 52 4F 4D 3B C6 C1 C3 |.JSRBASICROM;...| 00005340: 3D C3 CF D3 28 C6 C1 C3 29 00 4C 44 58 23 35 32 |=...(...).LDX#52| 00005350: 00 4A 53 52 42 41 53 49 43 52 4F 4D 3B C6 C1 C3 |.JSRBASICROM;...| 00005360: 2D 3E C1 D2 C7 00 4C 44 41 23 30 00 4C 44 59 52 |->....LDA#0.LDYR| 00005370: 59 00 4A 53 52 45 52 47 45 42 4E 49 53 3B C6 C1 |Y.JSRERGEBNIS;..| 00005380: C3 3D D2 D9 00 4C 44 58 23 35 34 00 4A 53 52 42 |.=...LDX#54.JSRB| 00005390: 41 53 49 43 52 4F 4D 3B C6 C1 C3 3D D2 D9 2A C3 |ASICROM;...=..*.| 000053A0: CF D3 28 C1 D7 2A 32 2A D0 C9 2F 33 36 30 29 00 |..(..*2*../360).| 000053B0: 4C 44 58 23 36 30 00 4A 53 52 42 41 53 49 43 52 |LDX#60.JSRBASICR| 000053C0: 4F 4D 3B 4E 41 43 48 20 C9 4E 54 45 47 45 52 20 |OM;NACH .NTEGER | 000053D0: 57 41 4E 44 45 4C 4E 00 53 45 43 3B D9 20 CB 4F |WANDELN.SEC;. .O| 000053E0: 4F 52 44 49 4E 41 54 45 20 3D 00 53 54 59 24 31 |ORDINATE =.STY$1| 000053F0: 34 3B D9 30 2D C9 4E 54 45 47 45 52 57 45 52 54 |4;.0-.NTEGERWERT| 00005400: 00 53 54 41 24 31 35 00 4C 44 41 59 30 00 53 42 |.STA$15.LDAY0.SB| 00005410: 43 24 31 34 00 53 54 41 59 43 55 52 53 00 4C 44 |C$14.STAYCURS.LD| 00005420: 41 23 30 00 53 42 43 24 31 35 00 42 4D 49 43 4C |A#0.SBC$15.BMICL| 00005430: 49 50 59 4D 3B D9 3C 30 20 2D 3E 20 D9 20 41 55 |IPYM;.<0 -> . AU| 00005440: 46 20 CE 55 4C 4C 20 53 45 54 5A 45 4E 00 4C 44 |F .ULL SETZEN.LD| 00005450: 41 59 43 55 52 53 00 43 4D 50 23 32 30 30 00 42 |AYCURS.CMP#200.B| 00005460: 43 53 43 4C 49 50 59 50 3B D9 3E 31 39 39 20 2D |CSCLIPYP;.>199 -| 00005470: 3E 20 D9 20 41 55 46 20 31 39 39 20 53 45 54 5A |> . AUF 199 SETZ| 00005480: 45 4E 00 52 54 53 00 20 00 43 4C 49 50 59 50 3A |EN.RTS. .CLIPYP:| 00005490: 4C 44 41 23 31 39 39 3B D9 3D 31 39 39 00 42 49 |LDA#199;.=199.BI| 000054A0: 54 00 43 4C 49 50 59 4D 3A 4C 44 41 23 30 3B D9 |T.CLIPYM:LDA#0;.| 000054B0: 3D 30 00 53 54 41 59 43 55 52 53 00 52 54 53 00 |=0.STAYCURS.RTS.| 000054C0: 43 4C 49 50 58 4D 3A 4C 44 41 23 30 3B D8 3D 30 |CLIPXM:LDA#0;.=0| 000054D0: 00 53 54 41 58 43 55 52 53 00 53 54 41 58 43 55 |.STAXCURS.STAXCU| 000054E0: 52 53 2B 31 00 52 54 53 00 43 4C 49 50 58 50 31 |RS+1.RTS.CLIPXP1| 000054F0: 3A 4C 44 41 23 3C 33 31 39 3B D8 3D 33 31 39 00 |:LDA#<319;.=319.| 00005500: 53 54 41 58 43 55 52 53 00 4C 44 41 23 3E 33 31 |STAXCURS.LDA#>31| 00005510: 39 00 53 54 41 58 43 55 52 53 2B 31 00 52 54 53 |9.STAXCURS+1.RTS| 00005520: 00 43 4C 49 50 58 50 32 3A 4C 44 41 23 3C 31 35 |.CLIPXP2:LDA#<15| 00005530: 39 3B D8 3D 31 35 39 00 53 54 41 58 43 55 52 53 |9;.=159.STAXCURS| 00005540: 00 4C 44 41 23 3E 31 35 39 00 53 54 41 58 43 55 |.LDA#>159.STAXCU| 00005550: 52 53 2B 31 00 52 54 53 00 20 00 3B 2D 2D 2D 2D |RS+1.RTS. .;----| 00005560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005580: 2D 2D 2D 00 3B 2D 2D C2 45 46 45 48 4C 3A 20 C3 |---.;--.EFEHL: .| 00005590: CF CC C2 CC CF C3 CB 20 D8 31 2C D9 31 2C D8 32 |....... .1,.1,.2| 000055A0: 2C D9 32 2C DA C6 2C C8 C6 20 2D 2D 00 3B 2D 2D |,.2,..,.. --.;--| 000055B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000055C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000055D0: 2D 2D 2D 2D 2D 00 20 00 4E 4F 43 4F 4C 35 3A 4A |-----. .NOCOL5:J| 000055E0: 4D 50 4E 4F 43 4F 4C 3B C6 45 48 4C 45 52 20 4D |MPNOCOL;.EHLER M| 000055F0: 45 4C 44 45 4E 00 20 00 C2 C2 43 4F 4C 42 4C 4F |ELDEN. ...COLBLO| 00005600: 43 4B 3A 4A 53 52 47 45 54 42 59 54 45 3B CB 4F |CK:JSRGETBYTE;.O| 00005610: 4F 52 44 49 4E 41 54 45 20 D8 31 20 48 4F 4C 45 |ORDINATE .1 HOLE| 00005620: 4E 00 53 54 58 4D 45 4D 3B 53 50 45 49 43 48 45 |N.STXMEM;SPEICHE| 00005630: 52 4E 00 43 50 58 23 34 30 3B 3C 34 30 20 3F 00 |RN.CPX#40;<40 ?.| 00005640: 42 43 53 4E 4F 43 4F 4C 35 3B 4E 45 49 4E 2C 20 |BCSNOCOL5;NEIN, | 00005650: C6 45 48 4C 45 52 00 4A 53 52 43 48 4B 4B 4F 4D |.EHLER.JSRCHKKOM| 00005660: 00 4A 53 52 47 45 54 42 59 54 45 3B CB 4F 4F 52 |.JSRGETBYTE;.OOR| 00005670: 44 49 4E 41 54 45 20 D9 31 20 48 4F 4C 45 4E 00 |DINATE .1 HOLEN.| 00005680: 53 54 58 4D 45 4D 2B 31 3B 53 50 45 49 43 48 45 |STXMEM+1;SPEICHE| 00005690: 52 4E 00 43 50 58 23 32 35 3B 3C 32 35 20 3F 00 |RN.CPX#25;<25 ?.| 000056A0: 42 43 53 4E 4F 43 4F 4C 35 3B 4E 45 49 4E 2C 20 |BCSNOCOL5;NEIN, | 000056B0: C6 45 48 4C 45 52 00 4A 53 52 43 48 4B 4B 4F 4D |.EHLER.JSRCHKKOM| 000056C0: 00 4A 53 52 47 45 54 42 59 54 45 3B CB 4F 4F 52 |.JSRGETBYTE;.OOR| 000056D0: 44 49 4E 41 54 45 20 D8 32 20 48 4F 4C 45 4E 00 |DINATE .2 HOLEN.| 000056E0: 53 54 58 4D 45 4D 2B 32 3B 53 50 45 49 43 48 45 |STXMEM+2;SPEICHE| 000056F0: 52 4E 00 43 50 58 4D 45 4D 3B 3C D8 31 20 3F 00 |RN.CPXMEM;<.1 ?.| 00005700: 42 43 43 4E 4F 43 4F 4C 35 3B 4A 41 2C 20 C6 45 |BCCNOCOL5;JA, .E| 00005710: 48 4C 45 52 00 43 50 58 23 34 30 3B 3C 34 30 20 |HLER.CPX#40;<40 | 00005720: 3F 00 42 43 53 4E 4F 43 4F 4C 35 3B 4E 45 49 4E |?.BCSNOCOL5;NEIN| 00005730: 2C 20 C6 45 48 4C 45 52 00 4A 53 52 43 48 4B 4B |, .EHLER.JSRCHKK| 00005740: 4F 4D 00 4A 53 52 47 45 54 42 59 54 45 3B CB 4F |OM.JSRGETBYTE;.O| 00005750: 4F 52 44 49 4E 41 54 45 20 D9 32 20 48 4F 4C 45 |ORDINATE .2 HOLE| 00005760: 4E 00 53 54 58 4D 45 4D 2B 33 3B 53 50 45 49 43 |N.STXMEM+3;SPEIC| 00005770: 48 45 52 4E 00 43 50 58 4D 45 4D 2B 31 3B 3C D9 |HERN.CPXMEM+1;<.| 00005780: 31 20 3F 00 42 43 43 4E 4F 43 4F 4C 35 3B 4A 41 |1 ?.BCCNOCOL5;JA| 00005790: 2C 20 C6 45 48 4C 45 52 00 43 50 58 23 32 35 3B |, .EHLER.CPX#25;| 000057A0: 3C 32 35 20 3F 00 42 43 53 4E 4F 43 4F 4C 35 3B |<25 ?.BCSNOCOL5;| 000057B0: 4E 45 49 4E 2C 20 C6 45 48 4C 45 52 00 4A 53 52 |NEIN, .EHLER.JSR| 000057C0: 43 48 4B 4B 4F 4D 00 4A 53 52 47 45 54 42 59 54 |CHKKOM.JSRGETBYT| 000057D0: 45 3B DA 45 49 43 48 45 4E 46 41 52 42 45 20 48 |E;.EICHENFARBE H| 000057E0: 4F 4C 45 4E 00 43 50 58 23 31 36 3B 47 55 45 4C |OLEN.CPX#16;GUEL| 000057F0: 54 49 47 20 3F 00 42 43 53 4E 4F 43 4F 4C 35 3B |TIG ?.BCSNOCOL5;| 00005800: 4E 45 49 4E 2C 20 5A 55 20 47 52 4F 53 53 00 53 |NEIN, ZU GROSS.S| 00005810: 54 58 41 5A 47 2B 31 3B 4D 45 52 4B 45 4E 00 4A |TXAZG+1;MERKEN.J| 00005820: 53 52 43 48 4B 4B 4F 4D 3B 41 55 46 20 CB 4F 4D |SRCHKKOM;AUF .OM| 00005830: 4D 41 20 54 45 53 54 45 4E 00 4A 53 52 47 45 54 |MA TESTEN.JSRGET| 00005840: 42 59 54 45 3B C8 49 4E 54 45 52 47 52 55 4E 44 |BYTE;.INTERGRUND| 00005850: 46 41 52 42 45 20 48 4F 4C 45 4E 00 43 50 58 23 |FARBE HOLEN.CPX#| 00005860: 31 36 3B 47 55 45 4C 54 49 47 20 3F 00 54 58 41 |16;GUELTIG ?.TXA| 00005870: 00 42 43 53 4E 4F 43 4F 4C 35 3B 4E 45 49 4E 2C |.BCSNOCOL5;NEIN,| 00005880: 20 5A 55 20 47 52 4F 53 53 00 41 53 4C 41 5A 47 | ZU GROSS.ASLAZG| 00005890: 2B 31 3B DA 45 49 43 48 45 4E 46 41 52 42 45 20 |+1;.EICHENFARBE | 000058A0: 2A 20 31 36 00 41 53 4C 41 5A 47 2B 31 00 41 53 |* 16.ASLAZG+1.AS| 000058B0: 4C 41 5A 47 2B 31 00 41 53 4C 41 5A 47 2B 31 00 |LAZG+1.ASLAZG+1.| 000058C0: 4F 52 41 41 5A 47 2B 31 3B 2B C8 49 4E 54 45 52 |ORAAZG+1;+.INTER| 000058D0: 47 52 55 4E 44 46 41 52 42 45 00 50 48 41 3B C6 |GRUNDFARBE.PHA;.| 000058E0: 41 52 42 57 45 52 54 20 4D 45 52 4B 45 4E 00 4C |ARBWERT MERKEN.L| 000058F0: 44 41 4D 45 4D 2B 31 00 41 53 4C 3B D9 30 2A 32 |DAMEM+1.ASL;.0*2| 00005900: 00 54 41 59 3B 49 4E 20 D9 00 43 4C 43 00 4C 44 |.TAY;IN ..CLC.LD| 00005910: 41 23 3C 46 41 52 42 45 48 49 52 45 53 3B 41 5A |A#<FARBEHIRES;AZ| 00005920: 47 20 41 55 46 20 C6 41 52 42 52 41 4D 20 53 45 |G AUF .ARBRAM SE| 00005930: 54 5A 45 4E 00 41 44 43 4D 55 4C 54 34 30 2C 59 |TZEN.ADCMULT40,Y| 00005940: 3B 2B 34 30 2A D9 30 00 53 54 41 41 5A 47 00 4C |;+40*.0.STAAZG.L| 00005950: 44 41 23 3E 46 41 52 42 45 48 49 52 45 53 00 41 |DA#>FARBEHIRES.A| 00005960: 44 43 4D 55 4C 54 34 30 2B 31 2C 59 00 53 54 41 |DCMULT40+1,Y.STA| 00005970: 41 5A 47 2B 31 00 50 4C 41 3B C6 41 52 42 57 45 |AZG+1.PLA;.ARBWE| 00005980: 52 54 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 |RT ZURUECKHOLEN.| 00005990: 53 45 54 43 4F 4C 42 4C 3A 4C 44 59 4D 45 4D 2B |SETCOLBL:LDYMEM+| 000059A0: 32 3B D9 3D D9 31 00 53 45 54 43 4F 4C 42 3A 53 |2;.=.1.SETCOLB:S| 000059B0: 54 41 28 41 5A 47 29 2C 59 3B C6 41 52 42 57 45 |TA(AZG),Y;.ARBWE| 000059C0: 52 54 20 53 45 54 5A 45 4E 00 44 45 59 3B D9 2D |RT SETZEN.DEY;.-| 000059D0: 31 00 42 4D 49 52 44 31 3B 53 45 54 5A 45 4E 2C |1.BMIRD1;SETZEN,| 000059E0: 20 42 49 53 20 D9 3C D9 30 00 43 50 59 4D 45 4D | BIS .<.0.CPYMEM| 000059F0: 00 42 43 53 53 45 54 43 4F 4C 42 00 52 44 31 3A |.BCSSETCOLB.RD1:| 00005A00: 44 45 43 4D 45 4D 2B 33 3B D8 31 2D 31 00 4C 44 |DECMEM+3;.1-1.LD| 00005A10: 58 4D 45 4D 2B 33 3B 46 45 52 54 49 47 2C 20 57 |XMEM+3;FERTIG, W| 00005A20: 45 4E 4E 20 D8 31 3C D8 30 00 42 4D 49 52 45 41 |ENN .1<.0.BMIREA| 00005A30: 44 59 43 42 00 43 50 58 4D 45 4D 2B 31 00 42 43 |DYCB.CPXMEM+1.BC| 00005A40: 43 52 45 41 44 59 43 42 00 50 48 41 3B C6 41 52 |CREADYCB.PHA;.AR| 00005A50: 42 57 45 52 54 20 4D 45 52 4B 45 4E 00 43 4C 43 |BWERT MERKEN.CLC| 00005A60: 00 4C 44 41 41 5A 47 3B 41 5A 47 2B 34 30 20 28 |.LDAAZG;AZG+40 (| 00005A70: 49 4E 20 4E 41 45 43 48 53 54 45 20 DA 45 49 4C |IN NAECHSTE .EIL| 00005A80: 45 29 00 41 44 43 23 34 30 00 53 54 41 41 5A 47 |E).ADC#40.STAAZG| 00005A90: 00 4C 44 41 41 5A 47 2B 31 00 41 44 43 23 30 00 |.LDAAZG+1.ADC#0.| 00005AA0: 53 54 41 41 5A 47 2B 31 00 50 4C 41 00 42 43 43 |STAAZG+1.PLA.BCC| 00005AB0: 53 45 54 43 4F 4C 42 4C 3B 55 4E 42 45 44 49 4E |SETCOLBL;UNBEDIN| 00005AC0: 47 54 45 52 20 D3 50 52 55 4E 47 00 52 45 41 44 |GTER .PRUNG.READ| 00005AD0: 59 43 42 3A 52 54 53 00 20 00 3B CD 55 4C 54 49 |YCB:RTS. .;.ULTI| 00005AE0: 50 4C 49 4B 41 54 49 4F 4E 53 54 41 42 45 4C 4C |PLIKATIONSTABELL| 00005AF0: 45 20 58 2A 34 30 2C 20 58 20 56 4F 4E 20 30 20 |E X*40, X VON 0 | 00005B00: 42 49 53 20 32 34 00 4D 55 4C 54 34 30 3A 2E 57 |BIS 24.MULT40:.W| 00005B10: 4F 30 2C 34 30 2C 38 30 2C 34 30 2A 33 2C 34 30 |O0,40,80,40*3,40| 00005B20: 2A 34 2C 34 30 2A 35 2C 34 30 2A 36 2C 34 30 2A |*4,40*5,40*6,40*| 00005B30: 37 2C 34 30 2A 38 2C 34 30 2A 39 2C 34 30 2A 31 |7,40*8,40*9,40*1| 00005B40: 30 00 2E 57 4F 34 30 2A 31 31 2C 34 30 2A 31 32 |0..WO40*11,40*12| 00005B50: 2C 34 30 2A 31 33 2C 34 30 2A 31 34 2C 34 30 2A |,40*13,40*14,40*| 00005B60: 31 35 2C 34 30 2A 31 36 2C 34 30 2A 31 37 2C 34 |15,40*16,40*17,4| 00005B70: 30 2A 31 38 00 2E 57 4F 34 30 2A 31 39 2C 34 30 |0*18..WO40*19,40| 00005B80: 2A 32 30 2C 34 30 2A 32 31 2C 34 30 2A 32 32 2C |*20,40*21,40*22,| 00005B90: 34 30 2A 32 33 2C 34 30 2A 32 34 00 20 00 2E 46 |40*23,40*24. ..F| 00005BA0: 49 22 58 42 2F 42 20 31 2E 32 22 00 00 52 FF |I"XB/B 1.2"..R. |
.[;;; --- XB/G 1.2. .;------------------
---------------------.;--- XBASIC-BEFEHL
: BORDER COL ---.;----------------
-----------------------.BBBORDER:JSRGETB
YTE;RAHMENFARBE HOLEN.CPX#16.BCSNOCOL;>=
15 -> ERROR.STXVIC+32;UND SETZEN.RTS. .;
---------------------------------------.
;--- XBASIC-BEFEHL: PAPER COL ---
.;--------------------------------------
-.BBPAPER:JSRGETBYTE;HINTERGRUNDFARBE HO
LEN.CPX#16.BCSNOCOL;>=15 -> ERROR.STXVIC
+33;UND SETZEN.RTS. .;------------------
---------------------.;--- XBASIC-BEFEHL
: INK COL ---.;----------------
-----------------------.BBINK:JSRGETBYTE
;ZEICHENFARBE HOLEN.CPX#16.BCSNOCOL;>=15
-> ERROR.STX646;UND SETZEN.RTS. .;-----
----------------------------------.;---
XBASIC-BEFEHL: DRAWMODE MODE ---.;---
------------------------------------.BBD
RAWMODE:JSRGETBYTE;ZEICHENMODUS FESTLEGE
N.CPX#2.BCSNOCOL;DRAWMODE>1.TXA;BIT0 ->
BIT 7.CLC.ROR.ROR.STADRAWMODE;SPEICHERN.
RTS. .NOCOL:LDX#14;ILLEGAL QUANTITY MELD
EN.JMPFEHLER. .;------------------------
---------------.;--- XBASIC-BEFEHL: PEN
NR ---.;----------------------
-----------------.BBPENCIL:JSRGETBYTE;FA
RBNUMMER HOLEN.CPX#4;>3 ?.BCSNOCOL;FEHLE
R MELDEN.TXA;IN ACCU.LDX#0;4 MAL 2*LINKS
SCHIEBEN.SETPENBITS:STAPENBITS,X;ERGIBT
MASKEN FUER DIE.ASL;FARBE.ASL.INX.CPX#4.
BNESETPENBITS.RTS. .PEN:.BY1;1 IST EINSC
HALTFARBE.PENBITS:.BY%01,%0100,%010000,%
01000000;MASKEN FUER FARBE 1.;MASKEN FUE
R AUSBLENDEN DER BITS.DELBITS:.BY255-%11
,255-%1100,255-%110000,255-%11000000. .;
---------------------------------------.
;--- XBASIC-BEFEHL: GRAFCLR ---
.;--------------------------------------
-.BBGRAFCLR:LDY#0;GRAPHIK CURSOR AUF ANF
ANGSPOS..STYXCURS.STYXCURS+1.STYYCURS.LD
A#>HIRESSEITE;AZG AUF HIRESSEITE.STAAZG+
1.STYAZG.LDA#>HIRESSEITE+4096;AZG2 AUF 2
.HAELFTE.STAAZG2+1.STYAZG2.LDX#16;2*16 S
EITEN LOESCHEN.TYA.GRAFCLR:STA(AZG),Y;ZW
EI SEITEN LOESCHEN.STA(AZG2),Y.INY.BNEGR
AFCLR.INCAZG+1;BIS ALLE SEITEN GELOESCHT
.INCAZG2+1.DEX.BNEGRAFCLR.RTS. .;-------
--------------------------------.;--- XB
ASIC-BEFEHL: GRAFON ZF,HF ---.;-----
----------------------------------.BBGRA
FON:LDA#%00101000;HIRES SPEICHER FESTLEG
EN.JSRSAVESPRITE;SPRITEZEIGER RETTEN.STA
VIC+24.LDA#%00111011;HIRES EINSCHALTEN.S
TAVIC+17.BITCOLMODE;FARBMODUS ?.BPLGRAFO
N;NEIN.JSRFARBEN;FARBSPEICHER RESTAURIER
EN.GRAFON:JSRGETBYTE;ZEICHENFARBE HOLEN.
CPX#16;GUELTIG ?.BCSNOCOL2;NEIN, ZU GROS
S.STXAZG+1;MERKEN.JSRCHKKOM;AUF KOMMA TE
STEN.JSRGETBYTE;HINTERGRUNDFARBE HOLEN.C
PX#16;GUELTIG ?.TXA.BCSNOCOL2;NEIN, ZU G
ROSS.ASLAZG+1;ZEICHENFARBE * 16.ASLAZG+1
.ASLAZG+1.ASLAZG+1.ORAAZG+1;+HINTERGRUND
FARBE.LDY#>FARBEHIRES;AZG AUF FARBRAM SE
TZEN.STYAZG+1.LDX#4;4 SEITEN SETZEN.LDY#
0.STYAZG.SETCOL:STA(AZG),Y;EINE SEITE SE
TZEN.INY.BNESETCOL.INCAZG+1;BIS ALLE SEI
TEN GESETZT.DEX.BNESETCOL.JMPLOADSPRITE;
SPRITEZEIGER WIEDER SETZEN. .NOCOL2:JMPN
OCOL. .;--------------------------------
-------.;--- XBASIC-BEFEHL:MULTION HF,F1
,F2,F3 -.;------------------------------
---------.BBMULTION:BITCOLMODE;FARBMODUS
.BMINFM3;JA.JSRFARBEN;FARBSPEICHER RETTE
N.NFM3:JSRGETBYTE;HINTERGRUNDFARBE HOLEN
.JSRSAVESPRITE;SPRITEZEIGER RETTEN.CPX#1
6;GUELTIG ?.BCSNOCOL2;NEIN.STXVIC+33;FAR
BE SETZEN.JSRCHKKOM;FARBE 1 & 2 SETZEN.J
SRGRAFON.JSRCHKKOM;FARBE 3 HOLEN.JSRGETB
YTE.CPX#16;GUELTIG ?.BCSNOCOL2;NEIN.LDY#
0;IN FARBSPEICHER SETZEN.TXA.SETCOL3:STA
FARBRAM,Y;BYTE 0..255 SETZEN.STA256+FARB
RAM,Y;BYTE 256..511 SETZEN.STA256*2+FARB
RAM,Y;BYTE 512..767 SETZEN.STA256*3+FARB
RAM,Y;BYTE 768..1023 SETZEN.INY.BNESETCO
L3.LDA#%00101000;HIRES SPEICHER FESTLEGE
N.STAVIC+24.LDA#%00111011;HIRES EINSCHAL
TEN.STAVIC+17.LDA#%11000;FARBMODUS FESTL
EGEN.STAVIC+22.RTS. .;------------------
---------------------.;--- XBASIC-BEFEHL
: GRAFOFF ---.;----------------
-----------------------.DOGRAFOFF:;GRAFO
FF BEI FEHLER ODER END. .BBGRAFOFF:BITCO
LMODE;FARBMODUS.BPLNFM2;NEIN.JSRFARBEN;F
ARBSPEICHER RUECKSETZEN.NFM2:LDA#0;FARBM
ODUS ABSCHALTEN.STACOLMODE.LDA#%00110110
;NORMALE SPEICHERBELEGUNG.STAVIC+24.LDA#
%00011011;TEXT EINSCHALTEN.STAVIC+17.LDA
#%1000.STAVIC+22.JMPLOADSPRITE;SPRITEZEI
GER RUECKSETZEN. .;---------------------
------------------.;- SPRITEZEIGER RETTE
N/SETZEN ---.;-------------------
--------------------.SAVESPRITE:PHA;A/Y
RETTEN.TYA.PHA.LDAVIC+24;GRAPHIK AN ?.CM
P#%00110110.BEQUNSAVESP;JA.LDY#7;8 ZEIGE
R AUS TEXTSEITE.SAVESPD:LDATEXTSEITE+102
4-8,Y;SPEICHERN.STASPRITEZEIG,Y.DEY;BIS
ALLE ZEIGER GESPEICHERT.BPLSAVESPD.UNSAV
ESP:PLA;A/Y RESTAURIEREN.TAY.PLA.RTS. .L
OADSPRITE:PHA;A/Y RETTEN.TYA.PHA.LDY#7;8
SPRITEZEIGER AUS PUFFER IN.LOADSPD:LDAS
PRITEZEIG,Y;TEXTSEITE UND.STATEXTSEITE+1
024-8,Y;FARBEHIRES BRINGEN.STAFARBEHIRES
+1024-8,Y.DEY.BPLLOADSPD.PLA;A/Y RESTAUR
IEREN.TAY.PLA.RTS. .SPRITEZEIG:.DB8;PLAT
Z FUER 8 SPRITEZEIGER. .;---------------
------------------------.;- FARBRAM IN/A
US PUFFER RETTEN/HOLEN --.;-------------
--------------------------.FARBEN:LDA#<F
ARBRAM;AZG AUF FARBRAM.STAAZG.LDA#>FARBR
AM.STAAZG+1.LDA#<COLMEM;AZG2 AUF COLMEM.
STAAZG2.LDA#>COLMEM.STAAZG2+1.TRANSCOLS:
LDY#0;ZWEI NIBBLE AUS FARBRAM HOLEN.LDA(
AZG2),Y;BYTE IN COLMEM AUF STACK.PHA.LDA
(AZG),Y;ERSTES NIBBLE IN BIT 4..7.ASL.AS
L.ASL.ASL.STAMEM;MERKEN.INY.LDA(AZG),Y;Z
WEITES NIBBLE IN BIT 0..3.AND#%1111.ORAM
EM;ZWEITES NIBBLE EINBLENDEN.DEY.STA(AZG
2),Y;IN COLMEM SPEICHERN.PLA;BYTE AUS CO
LMEM IN ACCU.PHA.LSR;BIT 4..7 IN FARBRAM
SPEICHERN.LSR.LSR.LSR.STA(AZG),Y.INY;BI
T 0..3 IN FARBRAM SPEICHERN.PLA.STA(AZG)
,Y.INCAZG2;ZEIGER AUF COLMEM +1.BNECC.IN
CAZG2+1.CC:CLC;ZEIGER AUF FARBRAM +2.LDA
AZG.ADC#2.STAAZG.BCCCC2.INCAZG+1.CC2:LDA
AZG+1;ENDE DES FARBSPEICHERS ERREICHT ?.
CMP#>FARBRAM+1024.BNETRANSCOLS;NEIN.LDAC
OLMODE;MARKE FUER FARBMODUS UMDREHEN.EOR
#128.STACOLMODE.LDAHCOL;HINTERGRUNDFARBE
IN HCOL SPEICHERN.PHA.LDAVIC+33;UND HCO
L ALS HINTERGRUNDFARBE SETZEN.STAHCOL.PL
A.STAVIC+33.RTS. .HCOL:.BY0;SPEICHER FUE
R HINTERGRUNDFARBE. .;------------------
---------------------.;--- KOORDINATENPA
AR EINLESEN ---.;--- & XBASIC-BEF
EHL: MOVE X,Y ---.;---------------
------------------------.KOOR160:LDA$15;
X > 159 ?.BNENOCOL3;JA, FEHLER.LDA$14.CM
P#160.BCSNOCOL3;JA, FEHLER.BCCXOK;NEIN,
X OK. .BBMOVE:.GETGKOOR:JSRGETADBY;X UND
Y HOLEN.SETGKOOR:CPX#200;Y <200 ?.BCSNO
COL3;NEIN, Y ZU GROSS.BITCOLMODE;FARBMOD
US ?.BMIKOOR160;JA.LDA$15;X < 512 ?.BEQX
OK;(<256 PASST IMMER).CMP#2.BCSNOCOL3;NE
IN.LDA$14.CMP#<320;< 320 ?.BCSNOCOL3;NEI
N.XOK:STXYCURS;KOORDINATEN SPEICHERN.LDA
$14.STAXCURS.LDA$15.STAXCURS+1.RTS. .BBM
OVER:;RELATIVE KOORDINATEN HOLEN.GETRGKO
OR:JSRGETINTEGER;INTEGER HOLEN.CLC;WERT
+ X-KOORDINATE.TYA;LOW.ADCXCURS.STAMEM;M
ERKEN.TXA;HIGH.ADCXCURS+1.STAMEM+1;MERKE
N.JSRCHKKOM;INTEGER HOLEN.JSRGETINTEGER.
CLC;+ Y KOORDINATE.TYA.ADCYCURS.STAMEM+2
;SPEICHERN.TXA.ADC#0.CMP#0.BNENOCOL3;Y>1
99 -> FEHLER.LDXMEM+2;WEITER BEI DEN ABS
OLUTEN.LDAMEM;KOORDINATEN.STA$14.LDAMEM+
1.STA$15.JMPSETGKOOR. .GETINTEGER:JSRFRM
EVL;ARITHM. AUSDRUCK HOLEN.LDX#60;IN INT
EGER WANDELN.JSRBASICROM;INTEGER IN Y/X.
TAX.RTS. .NOCOL3:JMPNOCOL. .;-----------
----------------------------.;--- XBASIC
-BEFEHL: A=TEST(X,Y) ---.;---------
------------------------------.BBTESTR:J
SRCHRGET;RELATIVE KOORDINATEN HOLEN.JSRG
ETRGKOOR.JMPTESTBEF;UND TESTEN. .BBTEST:
JSRCHRGET;KOORDINATEN HOLEN.JSRGETGKOOR.
TESTBEF:JSRCHKKLAZU;AUF ')' TESTEN.JSRMA
KEZG;POINTER BERECHNEN.BITCOLMODE;FARBMO
DUS ?.BPLHIRESTST;NEIN.TXA;MASKENNUMMER
IN A.LSR;/2.TAX;IN X.LDAAZG2+1;WERT VON
(POINTER).SCHIEBE:DEX;RECHTSSCHIEBEN.BMI
SCHIEBEEND;BIS SIGNIFIKANTE BITS.LSR;IN
BIT 0/1.LSR.JMPSCHIEBE.SCHIEBEEND:AND#%1
1;ANDERE BITS AUSBLENDEN.TAY;A/Y IST ERG
EBNIS.LDA#0.JMPERGEBNIS. .HIRESTST:LDAAZ
G2+1;WERT VON (POINTER).ANDAZG2;AND MIT
MASKE.BNECOLEINS;FARBE 1.LDY#0;0 LIEFERN
.BIT.COLEINS:LDY#1;1 LIEFERN.LDA#0.JMPER
GEBNIS. .;------------------------------
---------.;--- XBASIC-BEFEHL: PLOT X,Y
---.;----------------------------
-----------.BBPLOTR:JSRGETRGKOOR;RELATIV
E KOORDINATEN LESEN.JMPPLOT;PUNKT SETZEN
. .BBPLOT:JSRGETGKOOR;PUNKT SETZEN.PLOT:
JSRMAKEZG;ADRESSE IN AZG BRINGEN / MASKE
IN AZG2.DOPLOT:BITCOLMODE;FARBMODUS ?.B
PLHIRES;NEIN.TXA;MASKENNUMMER/2 IN X.LSR
.TAX.LDAAZG2+1;WERT VON (POINTER).ANDDEL
BITS,X;BITS LOESCHEN.ORAPENBITS,X;PEN-BI
TS EINBLENDEN.STA(AZG),Y;PUNKT SETZEN.RT
S. .HIRES:LDAAZG2.BITDRAWMODE;DRAWMODE I
ST SETZEN ?.BMIDELMODE;NEIN.ORAAZG2+1;BI
T SETZEN.STA(AZG),Y;PUNKT SETZEN.RTS.DEL
MODE:EOR#$FF;MASKE INVERTIEREN.ANDAZG2+1
;BIT LOESCHEN.STA(AZG),Y;PUNKT LOESCHEN.
RTS. .;---------------------------------
------.;--- BERECHNET AUS KOORDINATEN ZE
IGER --.;--- AUF GRAPHIKBYTE IN AZG, BIT
MASKE --.;--- IN AZG2 UND BYTEWERT IN AZ
G2+1 --.;-----------------------------
----------.MAKEZG:BITCOLMODE;FARBMODUS ?
.BPLMAKEZG1;NEIN.ASLXCURS;X-KOORDINATE *
2.ROLXCURS+1.JSRMAKEZG1;ZEIGER BERECHNEN
.LSRXCURS+1;X-KOORDINATE /2.RORXCURS.RTS
. .MAKEZG1:LDYYCURS;INT(Y/8).TYA.LSR.LSR
.LSR.TAX.LDAMULHI,X.STAAZG+1;>320*INT(Y/
8).TXA.AND#3;BITS 2..7 LOESCHEN.TAX.LDAM
ULLO,X.STAAZG;<320*INT(Y/8).TYA;Y KOORDI
NATE.AND#7;AND 7.CLC.ADCAZG;OFFSET Y = 3
20*INT(Y/8)+(Y AND 7).STAAZG.LDAXCURS.AN
D#$F8.STAAZG2+1;OFFSET X = 8*INT(X/8).LD
A#>HIRESSEITE;HIRESSEITE.ORAAZG+1.STAAZG
+1.CLC;ADRESSE=SEITE +OFFSET X +OFFSET Y
.LDAAZG.ADCAZG2+1.STAAZG.LDAAZG+1.ADCXCU
RS+1.STAAZG+1.LDAXCURS.AND#7.EOR#7;7-(X
AND 7).TAX.LDAMASKEN,X;MASKE HOLEN.STAAZ
G2;UND SPEICHERN.SEI.LDA#$34;AUF RAM UMS
CHALTEN.STAPP.LDY#0;WERT VON (POINTER).L
DA(AZG),Y.STAAZG2+1;MERKEN.LDA#$36;WIEDE
R NORMALE SPEICHERVERTEILUNG.STAPP.CLI.R
TS. .;TABELLE X*320.MULHI:.BY0,1,2,3,5,6
,7,8,10,11,12,13,15..BY16,17,18,20,21,22
,23,25,26,27,28,30,31. .MULLO:.BY0,$40,$
80,$C0. .;TABELLE DER MASKEN.MASKEN:.BY1
,2,4,8,$10,$20,$40,$80. .;--------------
-------------------------.;--- XBASIC-BE
FEHL: LINE X,Y ---.;------------
---------------------------.LINEMEM:.EQ8
7;TEMPORAERER ZWISCHENSPEICHER FUER LINE
. .BBLINER:LDAXCURS;ALTEN GRAPHIKCURSOR
RETTEN.STAXCURS2.LDAXCURS+1.STAXCURS2+1.
LDAYCURS.STAYCURS2.JSRGETRGKOOR;ZIELKOOR
DINATEN RELATIV LESEN.JMPLINE. .BBLINE:L
DAXCURS;ALTEN GRAPHIKCURSOR RETTEN.STAXC
URS2.LDAXCURS+1.STAXCURS2+1.LDAYCURS.STA
YCURS2.JSRGETGKOOR;ZIELKOORDINATEN ABSOL
UT LESEN. .LINE:JSRPLOT;PUNKT SETZEN.STX
LINEMEM+7;MASKENNUMMER MERKEN. .COLOFF1:
SEI;AUF RAM SCHALTEN.LDA#$34.STAPP.LDAXC
URS2;X2-X1.SEC.SBCXCURS.PHA.LDXXCURS2+1.
TXA.SBCXCURS+1.STALINEMEM+3;SPEICHERN.BC
SVORZW;ERGEBNIS NEGATIV ?.PLA;JA.EOR#$FF
.ADC#1.PHA.LDA#0.SBCLINEMEM+3;VORZEICHEN
WECHSELN.VORZW:STALINEMEM+1;>X2-X1.STAL
INEMEM+5.PLA.STALINEMEM;<X2-X1.STALINEME
M+4.LDAYCURS2.CLC;Y2-Y1.SBCYCURS;ERGEBNI
S NEGATIV ?.BCCNEGAT.EOR#$FF;NEIN.ADC#$F
E;VORZEICHENWECHSEL.NEGAT:STALINEMEM+2;Y
2-Y1.RORLINEMEM+3;(X2-X1)/2.SEC.SBCLINEM
EM;(Y2-Y1)-(X2-X1).TAX;LOW BYTE IN X.LDA
#$FF.SBCLINEMEM+1.STALINEMEM+6;HIGH BYTE
.BCSSCHLEIFE;UNBEDINGTER SPRUNG.HSTEP:BI
TCOLMODE;FARBMODUS.BMICOLAN;JA.ASL;HORIZ
ONTALER SCHRITT.JSRHORIZONTAL.SEC.BCSSCH
LEIFE.COLAN:ASL;HORIZONTALER SCHRITT IN
FARBE.JSRHORIZCOL.SEC.SCHLEIFE:LDALINEME
M+4.ADCLINEMEM+2.STALINEMEM+4.LDALINEMEM
+5.SBC#0;(X2-X1)-(Y2-Y1) NACH (X2-X1).SE
TZEN:STALINEMEM+5.PHP.LDY#0.LDA(AZG),Y;W
ERT VON (POINTER) LESEN.STAAZG2+1.STXLIN
EMEM+8;X MERKEN.LDALINEMEM+7;MASKE *2 IN
X.ASL.TAX.JSRDOPLOT;PUNKT SETZEN.LDXLIN
EMEM+8;ALTEN X-WERT LESEN.PLP.INX;WEITER
BIS X=0.BNELCONT.INCLINEMEM+6;WEITER BI
S ZAEHLER =0.BNELCONT.LDA#$36;SPEICHER W
IEDER NORMAL.STAPP.CLI.COLOFF2:RTS;FERTI
G. .LCONT:LDALINEMEM+3.BCSHSTEP.JSRVERTI
KAL;VERTIKALER SCHRITT.CLC.LDALINEMEM+4.
ADCLINEMEM.STALINEMEM+4.LDALINEMEM+5.ADC
LINEMEM+1.BVCSETZEN;UNBEDINGTER SPRUNG.
.;VERTIKALER SCHRITT.VERTIKAL:BMIUNTEN;S
CHRITT NACH UNTEN.LDAAZG;SCHRITT NACH OB
EN.AND#7.BEQOBEN1;OBERER BLOCKRAND.CLC.L
DA#$FF.BCCOBEN2;-1.OBEN1:LDA#$C7;-327.DE
CAZG+1.OBEN2:ADCAZG.STAAZG.LDAAZG+1.SBC#
0.STAAZG+1.RTS. .UNTEN:LDAAZG;SCHRITT NA
CH UNTEN.AND#7;BLOCKRAND UNTEN.CMP#7.BEQ
UNTEN1.SEC.LDA#0.BCSUNTEN2;+1.UNTEN1:LDA
#$38;+313.INCAZG+1.UNTEN2:ADCAZG.STAAZG.
LDA#0.ADCAZG+1.STAAZG+1.RTS. .HORIZCOL:B
PLCOLRECHTS.INCLINEMEM+7;SCHRITT NACH LI
NKS (FARBE).LDALINEMEM+7;MASKENNUMMER+1.
CMP#4;<4 ?.BCCLINKS1;DANN FERTIG.LDA#0;M
ASKENNUMMER =0.STALINEMEM+7.LDAAZG;POINT
ER-8.SEC.SBC#8.STAAZG.BCSLINKS1.DECAZG+1
.RTS. .HORIZONTAL:BPLRECHTS.ASLAZG2;SCHR
ITT NACH LINKS.BCCLINKS1;MASKE SCHIEBEN.
ROLAZG2;BYTE UEBERSCHRITTEN,.LDAAZG;POIN
TER-8.SEC.SBC#8.STAAZG.BCSLINKS1.DECAZG+
1.LINKS1:RTS. .RECHTS:LSRAZG2;SCHRITT NA
CH RECHTS.BCCRECHTS2;MASKE SCHIEBEN.RORA
ZG2;BEREICH UEBERSCHRITTEN,.LDAAZG;POINT
ER+8.CLC.ADC#8.STAAZG.BCCRECHTS2.INCAZG+
1.RECHTS2:RTS. .COLRECHTS:DECLINEMEM+7;S
CHRITT NACH RECHTS (FARBE).BPLRECHTS2;MA
SKENNUMMER-1.LDA#3;<0, DANN MASKENNUMMER
=3.STALINEMEM+7;POINTER+8.LDAAZG.CLC.ADC
#8.STAAZG.BCCRECHTS2.INCAZG+1.RTS. .;---
------------------------------------.;--
- XBASIC-BEFEHL: FRAME X1,Y1,X2,Y2 --.;-
--------------------------------------.B
BFRAME:JSRGETGKOOR;KOORDINATEN 1 HOLEN.L
DY#0;AB MEM SPEICHERN.JSRINMEM.JSRCHKKOM
;KOORDINATEN 2 HOLEN.JSRGETGKOOR.LDY#3;A
B MEM+3 SPEICHERN.JSRINMEM.LDY#4*6-1;4 L
INIEN ZIEHEN.ONELINE:LDX#5;PRO LINIE 6 W
ERTE.STXMEM+6;ZAEHLER SETZEN.ONELINEL:LD
XPERMUTS,Y;INDEX DER WERTE HOLEN.LDAMEM,
X;WERT HOLEN.LDXMEM+6;UND ALS LINIENBESC
HREIBUNG IN DER FORM.STAXCURS,X;XA YA XB
YB SPEICHERN.DEY;BIS ALLE WERTE GESETZT
.DECMEM+6.BPLONELINEL.TYA;Y RETTEN.PHA.J
SRLINE;LINE VON XA YA NACH XB YB ZIEHEN.
PLA.TAY.BPLONELINE;BIS ALLE LINIEN GEZOG
EN.RTS. .INMEM:LDAXCURS;KOORDINATEN AB M
EM,Y SPEICHERN.STAMEM,Y.LDAXCURS+1.STAME
M+1,Y.LDAYCURS.STAMEM+2,Y.RTS. .PERMUTS:
.BY3,4,5,3,4,2;INDICES DER WERTE..BY3,4,
2,0,1,2;DER LINIEN..BY0,1,2,0,1,5..BY0,1
,5,3,4,5. .;----------------------------
-----------.;--- XB-BEFEHL: BOX X1,Y1,X2
,Y2,X3,Y3 --.;--------------------------
-------------.BBBOX:JSRGETGKOOR;KOORDINA
TEN 1 HOLEN.LDY#0;AB MEM SPEICHERN.JSRIN
MEM.JSRCHKKOM;KOORDINATEN 2 HOLEN.JSRGET
GKOOR.LDY#3;AB MEM+3 SPEICHERN.JSRINMEM.
JSRCHKKOM;KOORDINATEN 3 HOLEN.JSRGETGKOO
R.LDY#6;AB MEM+6 SPEICHERN.JSRINMEM.CLC.
LDAMEM+6;A=X3+X2-X1.ADCMEM+3.STAMEM+9.LD
AMEM+7.ADCMEM+4.STAMEM+10.SEC.LDAMEM+9.S
BCMEM+0.STAMEM+9.LDAMEM+10.SBCMEM+1.STAM
EM+10.CLC.LDAMEM+8;B=Y3+Y2-Y1.ADCMEM+5.T
AX.LDA#0.ADC#0.TAY.SEC.TXA.SBCMEM+2.STAM
EM+11.TYA.SBC#0.BNENOCOL4;B ZU KLEIN.LDA
MEM+11.CMP#200.BCSNOCOL4;B ZU GROSS.BITC
OLMODE;FARBMODUS ?.BMICXCOLM;JA.LDAMEM+1
0;A<320 ?.BEQBOX.CMP#2.BCSNOCOL4;NEIN (>
511).LDAMEM+9.CMP#<320;NEIN.BCSNOCOL4.BC
CBOX. .CXCOLM:LDAMEM+10;X<160 ?.BNENOCOL
4;NEIN.LDAMEM+9.CMP#160.BCSNOCOL4;NEIN.
.BOX:LDY#12*6-1;12 LINIEN ZIEHEN.ONELINE
BO:LDX#5;A 6 WERTE.STXMEM+12;ZAEHLER.ONE
LINELBO:LDXPERMUTS2,Y;INDEX HOLEN.LDAMEM
,X;WERT HOLEN.LDXMEM+12;UND SPEICHERN.ST
AXCURS,X.DEY;BIS 6 WERTE GESETZT.DECMEM+
12.BPLONELINELBO.TYA;LINIE ZIEHEN.PHA.JS
RLINE.PLA.TAY.BPLONELINEBO;WEITER BIS 12
LINIEN GEZOGEN.RTS. .NOCOL4:JMPNOCOL. .
;INDEXTABELLE DER 12 LINIEN FUER BOX.PER
MUTS2:.BY0,1,2,0,1,5..BY0,1,5,3,4,5..BY3
,4,5,3,4,2..BY3,4,2,0,1,2..BY0,1,2,6,7,8
..BY6,7,8,9,10,8..BY9,10,8,9,10,11..BY9,
10,11,6,7,11..BY6,7,11,6,7,8..BY6,7,11,0
,1,5..BY3,4,5,9,10,11..BY3,4,2,9,10,8. .
;---------------------------------------
.;--- XBASIC-BEFEHL: BLOCK X1,Y1,X2,Y2 -
-.;-------------------------------------
--.BBBLOCK:JSRGETGKOOR;KOORDINATEN 1 HOL
EN.LDY#0;AB MEM SPEICHERN.JSRINMEM.JSRCH
KKOM;KOORDINATEN 2 HOLEN.JSRGETGKOOR.LDY
#3;AB MEM+3 SPEICHERN.JSRINMEM.LDAMEM+2;
Y1<Y2.CMPMEM+5.BCCONELINEB;JA.LDY#2;NEIN
, KOORDINATEN TAUSCHEN.SWAP:LDAMEM,Y;WER
T AUF STACK.PHA.LDAMEM+3,Y;2. WERT SPEIC
HERN.STAMEM,Y.PLA;1. WERT VON STACK.STAM
EM+3,Y.DEY;BIS 3 WERTE VERTAUSCHT.BPLSWA
P.ONELINEB:LDY#5;6 WERTE SETZEN.ONELINEB
L:LDXPERMUT,Y;INDEX HOLEN.LDAMEM,X;WERT
HOLEN.STAXCURS,Y;WERT SPEICHERN.DEY;BIS
6 WERTE GESETZT.BPLONELINEBL.JSRLINE;LIN
IE ZIEHEN.INCMEM+2;Y1+1.LDAMEM+5;Y1>Y2 ?
.CMPMEM+2.BCSONELINEB;NEIN, NAECHSTE LIN
IE ZIEHEN.RTS. .PERMUT:.BY0,1,2,3,4,2. .
;---------------------------------------
.;--- XBASIC-BEFEHL: CIRCLE X,Y,A,B --
-.;-------------------------------------
--.X0:.EQMEM;MITTELPUNKT.Y0:.EQX0+2.X:.E
QY0+1;X OFFSET.Y:.EQX+2;Y OFFSET.QA:.EQY
+2;HILFSREGISTER.QB:.EQQA+3.DX:.EQQB+3.D
Y:.EQDX+3.DA:.EQDY+3.A:.EQDA+3;RADIUS A.
B:.EQA+1;RADIUS B. .RBIGERR:JMPNOCOL;FEH
LER MELDEN. .BBCIRCLE:JSRGETGKOOR;MITTEL
PUNKT HOLEN.JSRCHKKOM.JSRGETBYTE;RADIUS
A HOLEN.CPX#166;MAX. 165.BCSRBIGERR;ZU G
ROSS.STXA;RADIUS A.JSRCHKKOM;RADIUS B HO
LEN.JSRGETBYTE.CPX#166;MAX. 165.BCSRBIGE
RR;ZU GROSS.STXB;RADIUS B.STXY;Y=B.LDAXC
URS;X;X0=X-KOORDINATE.STAX0.LDAXCURS+1.S
TAX0+1.LDAYCURS;Y0=Y-KOORDINATE.STAY0.LD
A#0;HIGH BYTE VON Y =0.STAY+1.STAX;X=0.S
TAX+1.STAREG1+2;RECHENREGISTER FUER.STAR
EG2+2;MULTIPLIKATION.STAREG1+1;=0.STAREG
2+1.LDAB;B IN REGISTER 1 & 2.STAREG1.STA
REG2.JSRMULTI24;B*B.STAQB;QB=B*B.STXQB+1
.STYQB+2.STADX;DX=B*B.STXDX+1.STYDX+2.ST
ADA;DA=B*B.STXDA+1.STYDA+2.ASLQB;QB=2*B*
B.ROLQB+1.ROLQB+2.LDA#0;A IN REGISTER 1
& 2.STAREG1+2.STAREG2+2.STAREG1+1.STAREG
2+1.LDAA.STAREG1.STAREG2.JSRMULTI24;A*A.
STAQA;QA=A*A.STXQA+1.STYQA+2.STADY;DY=A*
A.STXDY+1.STYDY+2.ASLQA;QA=2*A*A.ROLQA+1
.ROLQA+2.CLC;DA=A*A+B*B.ADCDA.STADA.TXA.
ADCDA+1.STADA+1.TYA.ADCDA+2.STADA+2.LDA#
0;B IN REGISTER 1.STAREG1+2.STAREG1+1.LD
AB.STAREG1.LDAQA;QA IN REGISTER 2.STAREG
2.LDAQA+1.STAREG2+1.LDAQA+2.STAREG2+2.JS
RMULTI24;QA*B.SEC;DY=QA*B-A*A.SBCDY.STAD
Y.TXA.SBCDY+1.STADY+1.TYA.SBCDY+2.STADY+
2. .CIRCLE:JSRPUNKT;PUNKT SETZEN.JSRINVX
;X=-X.JSRPUNKT;PUNKT SETZEN.JSRINVY;Y=-Y
.JSRPUNKT;PUNKT SETZEN.JSRINVX;X=-X.JSRP
UNKT;PUNKT SETZEN.JSRINVY;Y=-Y.LDADA+2;D
A<0 ?.BMINEGSTEP;JA.SEC;DA=DA-DX.LDADA.S
BCDX.STADA.LDADA+1.SBCDX+1.STADA+1.LDADA
+2.SBCDX+2.STADA+2.CLC;DX=DX+QB.LDADX.AD
CQB.STADX.LDADX+1.ADCQB+1.STADX+1.LDADX+
2.ADCQB+2.STADX+2.INCX;X=X+1.BNENEGSTEP.
INCX+1.NEGSTEP:LDADA+2;DA>=0 ?.BPLNONEGS
TEP;JA.CLC.LDADA;DA=DA+DY.ADCDY.STADA.LD
ADA+1.ADCDY+1.STADA+1.LDADA+2.ADCDY+2.ST
ADA+2.SEC.LDADY;DY=DY-QA.SBCQA.STADY.LDA
DY+1.SBCQA+1.STADY+1.LDADY+2.SBCQA+2.STA
DY+2.DECY;Y=Y-1.NONEGSTEP:LDAY;Y=0 ?.BEQ
ENDCIR;JA.JMPCIRCLE;NEIN.ENDCIR:JSRPUNKT
;PUNKT SETZEN.JSRINVX;X=-X.JSRPUNKT;PUNK
T SETZEN.RTS. .PUNKT:CLC;PUNKT SETZEN.LD
AX0;X-KOORDINATE = X0+X.ADCX.STAXCURS.LD
AX0+1.ADCX+1.STAXCURS+1.CLC;Y-KOORDINATE
= Y0+Y.LDAY0.ADCY.STAYCURS.LDA#0.ADCY+1
.BNENOPLOT.JSRCLIPPLOT;PUNKT SETZEN.RTS.
.CLIPPLOT:LDAYCURS;PUNKT SETZEN,FALLS S
ICHTBAR.CMP#200.BCSNOPLOT;Y>199.BITCOLMO
DE.BMICLIPCOL;FARBMODUS.LDAXCURS+1;X>319
?.BEQDOREALY;NEIN.CMP#2.BCSNOPLOT;JA.LD
AXCURS.CMP#<320.BCSNOPLOT;JA.DOREALY:JMP
PLOT;PUNKT SETZEN. .CLIPCOL:LDAXCURS+1;X
>159 ?.BNENOPLOT;JA.LDAXCURS.CMP#160.BCS
NOPLOT;JA.JMPPLOT;PUNKT SETZEN. .INVY:CL
C;Y=-Y.LDAY;LOW INVERTIEREN.EOR#$FF.ADC#
1;+1.STAY.LDAY+1.EOR#$FF;HIGH INVERTIERE
N.ADC#0;+CARRY.STAY+1.NOPLOT:RTS. .INVX:
CLC;X=-X.LDAX;LOW INVERTIEREN.EOR#$FF.AD
C#1;+1.STAX.LDAX+1.EOR#$FF;HIGH INVERTIE
REN.ADC#0;+CARRY.STAX+1.RTS. .;---------
------------------------------.;--- 24-B
IT MULTIPLIKATION ---.;--- REG
1*REG2->MERG.;--------------------------
-------------.MULTI24:LDA#0;ERGEBNIS =0.
STAMERG.STAMERG+1.STAMERG+2.LDX#24;24 BI
T ZAEHLER.MULTIPL:ASLMERG;ERGEBNIS *2.RO
LMERG+1.ROLMERG+2.ASLREG1;REGISTER1 *2.R
OLREG1+1.ROLREG1+2.BCCUNADDR2;HOECHSTES
BIT WAR NICHT GESETZT.CLC;ERGEBNIS=ERGEB
NIS+REGISTER2.LDAMERG.ADCREG2.STAMERG.LD
AMERG+1.ADCREG2+1.STAMERG+1.LDAMERG+2.AD
CREG2+2.STAMERG+2.UNADDR2:DEX;ZAEHLER-1.
BNEMULTIPL;BIS 24 BIT ABGEARBEITET.LDAME
RG;ERGEBNIS IN Y/X/A.LDXMERG+1.LDYMERG+2
.RTS. .;--------------------------------
-------.;--- BEFEHL: ANGLE X,Y,RX,RY,AW,
EW,SW -.;------------------------------
---------.;X0,Y0 WIE BEI CIRCLE. .LINEFL
AG:.EQY0+1;FLAG FUER LINIE ZIEHEN.RX:.EQ
LINEFLAG+1;RADIUS X.RY:.EQRX+1;RADIUS Y.
AW:.EQRY+1;ANFANGSWINKEL.EW:.EQAW+2;ENDW
INKEL.SW:.EQEW+2;SCHRITTWEITE (WINKEL).
.BBANGLE:JSRGETGKOOR;MITTELPUNKT HOLEN.L
DAXCURS;IN X0 UND.STAX0.LDAXCURS+1.STAX0
+1.LDAYCURS;Y0 SPEICHERN.STAY0.JSRCHKKOM
;RADIUS X HOLEN.JSRGETBYTE.STXRX;UND SPE
ICHERN.JSRCHKKOM.JSRGETBYTE;RADIUS Y HOL
EN.STXRY;UND SPEICHERN.JSRCHKKOM.JSRGETA
DR;ANFANGSWINKEL HOLEN.LDA$14;UND SPEICH
ERN.LDX$15.STAAW.STXAW+1.JSRCHKKOM;ENDWI
NKEL HOLEN.JSRGETADR.LDA$14;UND SPEICHER
N.LDX$15.STAEW.STXEW+1.CPXAW+1;ANFANGSWI
NKEL>=ENDWINKEL ?.BEQVGL2W.BCSNEXTARG;NE
IN.ADD360:CLC;ENDWINKEL +360 (GRAD).LDAE
W.ADC#<360.STAEW.LDAEW+1.ADC#>360.STAEW+
1.BCCNEXTARG;SCHRITT LESEN.VGL2W:CMPAW;A
NFANGSWINKEL>=ENDWINKEL ?.BEQADD360;JA.B
CCADD360;JA.NEXTARG:JSRCHKKOM;SCHRITTWEI
TE LESEN.JSRGETBYTE.STXSW;UND SPEICHERN.
LDA#0;LINEFLAG AUF NULL.STALINEFLAG. .SP
:JSRMAKEPOINT;PUNKT BERECHNEN.BITLINEFLA
G;LINEFLAG GESETZT ?.BMILINEIT;JA, LINIE
ZIEHEN.JSRPLOT;NEIN, ERSTEN PUNKT PLOTT
EN.DECLINEFLAG;FLAG SETZEN.BMILINECONT;U
NBEDINGTER SPRUNG.LINEIT:JSRLINE;LINIE Z
IEHEN.LINECONT:LDAAW;ANFANGSWINKEL=ENDWI
NKEL ?.CMPEW.BNECONTINAG;NEIN.LDAAW+1.CM
PEW+1.BEQFERTIGAG;JA, FERTIG.CONTINAG:CL
C;ANFANGSWINKEL+SCHRITTWEITE.LDAAW.ADCSW
.STAAW.LDAAW+1.ADC#0.STAAW+1.CMPEW+1;AW>
=EW ?.BEQVGLB2.BCCSP;NEIN, NAECHSTEN PUN
KT.MAKELAST:LDAEW;AW=EW (LETZTER PUNKT).
STAAW.LDAEW+1.STAAW+1.TOSP:JMPSP;PUNKT S
ETZEN.VGLB2:LDAAW;AW<=EW ?.CMPEW.BEQTOSP
;JA AW=EW.BCCTOSP;JA AW<EW.BCSMAKELAST;
AW>EW.FERTIGAG:RTS. .MAKEPOINT:LDAXCURS;
ALTEN GRAPHIKCURSOR RETTEN.STAXCURS2.LDA
XCURS+1.STAXCURS2+1.LDAYCURS.STAYCURS2.L
DYAW.LDAAW+1.JSRERGEBNIS;FAC=AW.LDA#<PIF
AC.LDY#>PIFAC.LDX#50;FAC=AW*2*PI/360.JSR
BASICROM.LDX#56.JSRBASICROM;FAC=SIN(FAC)
.LDX#52.JSRBASICROM;FAC->ARG.LDA#0.LDYRX
.JSRERGEBNIS;FAC=RX.LDX#54.JSRBASICROM;F
AC=RX*SIN(AW*2*PI/360).LDX#60.JSRBASICRO
M;IN INTEGER WANDELN.CLC;X0 + INTEGERWER
T.TAX;IST X-KOORDINATE.TYA.ADCX0.STAXCUR
S.TXA.ADCX0+1.STAXCURS+1.BMICLIPXM;<0, X
AUF 0 SETZEN.BITCOLMODE;FARBMODUS ?.BMI
COLCLIPX;JA.CMP#0;X<320 ?.BEQXUNCLIP;JA.
CMP#2.BCSCLIPXP1;NEIN, X AUF 319 SETZEN.
LDAXCURS.CMP#<320.BCSCLIPXP1;NEIN, X AUF
319 SETZEN.BCCXUNCLIP;UNBEDINGTER SPRUN
G.COLCLIPX:CMP#0;X<160 ?.BNECLIPXP2;NEIN
, X AUF 159 SETZEN.LDAXCURS.CMP#160.BCSC
LIPXP2;NEIN, X AUF 159 SETZEN. .XUNCLIP:
LDYAW.LDAAW+1.JSRERGEBNIS;FAC=AW.LDA#<PI
FAC.LDY#>PIFAC.LDX#50;FAC=AW*2*PI/360.JS
RBASICROM.LDX#58.JSRBASICROM;FAC=COS(FAC
).LDX#52.JSRBASICROM;FAC->ARG.LDA#0.LDYR
Y.JSRERGEBNIS;FAC=RY.LDX#54.JSRBASICROM;
FAC=RY*COS(AW*2*PI/360).LDX#60.JSRBASICR
OM;NACH INTEGER WANDELN.SEC;Y KOORDINATE
=.STY$14;Y0-INTEGERWERT.STA$15.LDAY0.SB
C$14.STAYCURS.LDA#0.SBC$15.BMICLIPYM;Y<0
-> Y AUF NULL SETZEN.LDAYCURS.CMP#200.B
CSCLIPYP;Y>199 -> Y AUF 199 SETZEN.RTS.
.CLIPYP:LDA#199;Y=199.BIT.CLIPYM:LDA#0;Y
=0.STAYCURS.RTS.CLIPXM:LDA#0;X=0.STAXCUR
S.STAXCURS+1.RTS.CLIPXP1:LDA#<319;X=319.
STAXCURS.LDA#>319.STAXCURS+1.RTS.CLIPXP2
:LDA#<159;X=159.STAXCURS.LDA#>159.STAXCU
RS+1.RTS. .;----------------------------
-----------.;--BEFEHL: COLBLOCK X1,Y1,X2
,Y2,ZF,HF --.;--------------------------
-------------. .NOCOL5:JMPNOCOL;FEHLER M
ELDEN. .BBCOLBLOCK:JSRGETBYTE;KOORDINATE
X1 HOLEN.STXMEM;SPEICHERN.CPX#40;<40 ?.
BCSNOCOL5;NEIN, FEHLER.JSRCHKKOM.JSRGETB
YTE;KOORDINATE Y1 HOLEN.STXMEM+1;SPEICHE
RN.CPX#25;<25 ?.BCSNOCOL5;NEIN, FEHLER.J
SRCHKKOM.JSRGETBYTE;KOORDINATE X2 HOLEN.
STXMEM+2;SPEICHERN.CPXMEM;<X1 ?.BCCNOCOL
5;JA, FEHLER.CPX#40;<40 ?.BCSNOCOL5;NEIN
, FEHLER.JSRCHKKOM.JSRGETBYTE;KOORDINATE
Y2 HOLEN.STXMEM+3;SPEICHERN.CPXMEM+1;<Y
1 ?.BCCNOCOL5;JA, FEHLER.CPX#25;<25 ?.BC
SNOCOL5;NEIN, FEHLER.JSRCHKKOM.JSRGETBYT
E;ZEICHENFARBE HOLEN.CPX#16;GUELTIG ?.BC
SNOCOL5;NEIN, ZU GROSS.STXAZG+1;MERKEN.J
SRCHKKOM;AUF KOMMA TESTEN.JSRGETBYTE;HIN
TERGRUNDFARBE HOLEN.CPX#16;GUELTIG ?.TXA
.BCSNOCOL5;NEIN, ZU GROSS.ASLAZG+1;ZEICH
ENFARBE * 16.ASLAZG+1.ASLAZG+1.ASLAZG+1.
ORAAZG+1;+HINTERGRUNDFARBE.PHA;FARBWERT
MERKEN.LDAMEM+1.ASL;Y0*2.TAY;IN Y.CLC.LD
A#<FARBEHIRES;AZG AUF FARBRAM SETZEN.ADC
MULT40,Y;+40*Y0.STAAZG.LDA#>FARBEHIRES.A
DCMULT40+1,Y.STAAZG+1.PLA;FARBWERT ZURUE
CKHOLEN.SETCOLBL:LDYMEM+2;Y=Y1.SETCOLB:S
TA(AZG),Y;FARBWERT SETZEN.DEY;Y-1.BMIRD1
;SETZEN, BIS Y<Y0.CPYMEM.BCSSETCOLB.RD1:
DECMEM+3;X1-1.LDXMEM+3;FERTIG, WENN X1<X
0.BMIREADYCB.CPXMEM+1.BCCREADYCB.PHA;FAR
BWERT MERKEN.CLC.LDAAZG;AZG+40 (IN NAECH
STE ZEILE).ADC#40.STAAZG.LDAAZG+1.ADC#0.
STAAZG+1.PLA.BCCSETCOLBL;UNBEDINGTER SPR
UNG.READYCB:RTS. .;MULTIPLIKATIONSTABELL
E X*40, X VON 0 BIS 24.MULT40:.WO0,40,80
,40*3,40*4,40*5,40*6,40*7,40*8,40*9,40*1
0..WO40*11,40*12,40*13,40*14,40*15,40*16
,40*17,40*18..WO40*19,40*20,40*21,40*22,
40*23,40*24. ..FI"XB/B 1.2"..R.
> CLICK IMAGE PREVIEW FOR FULL MODAL