ASS.MAUS 128
FILE INFORMATION
FILENAME(S): ASS.MAUS 128
FILE TYPE(S): PRG
FILE SIZE: 9.8K
FIRST SEEN: 2025-10-20 14:30:46
APPEARS ON: 1 disk(s)
FILE HASH
8124b62df32d702daa0c36c9808a40fbc4149dde8776633a8af75383a8d4f131
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| INTEREST VERLAG | ASS.MAUS 128 | PRG | Treasure Chest - Klaus Der Suhler | 9 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 29 27 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |)'; ************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 00 3B 20 2A 20 CD 41 55 53 |*******.; * .AUS| 00000030: 54 52 45 49 42 45 52 20 55 4E 44 20 D0 46 45 49 |TREIBER UND .FEI| 00000040: 4C 47 45 4E 45 52 41 54 4F 52 20 20 2A 00 3B 20 |LGENERATOR *.; | 00000050: 2A 20 46 55 45 52 20 44 45 4E 20 38 30 2D DA 45 |* FUER DEN 80-.E| 00000060: 49 43 48 45 4E 20 C2 49 4C 44 53 43 48 49 52 4D |ICHEN .ILDSCHIRM| 00000070: 20 20 2A 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *.; **********| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 00 3B 20 2D 2D |*********.;.; --| 000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000B0: 2D 2D 2D 2D 00 3B 20 2D 2D 2D 20 D3 59 53 54 45 |----.; --- .YSTE| 000000C0: 4D 41 44 52 45 53 53 45 4E 20 2D 2D 2D 00 3B 20 |MADRESSEN ---.; | 000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000E0: 2D 2D 2D 2D 2D 2D 00 3B 00 41 44 43 58 3A 2E 45 |------.;.ADCX:.E| 000000F0: 51 24 44 34 31 39 3B C1 C4 2D D7 41 4E 44 4C 45 |Q$D419;..-.ANDLE| 00000100: 52 20 D8 2D D2 49 43 48 54 55 4E 47 00 41 44 43 |R .-.ICHTUNG.ADC| 00000110: 59 3A 2E 45 51 24 44 34 31 41 3B C1 C4 2D D7 41 |Y:.EQ$D41A;..-.A| 00000120: 4E 44 4C 45 52 20 D9 2D D2 49 43 48 54 55 4E 47 |NDLER .-.ICHTUNG| 00000130: 00 58 4C 4F 57 3A 2E 45 51 24 31 31 37 30 3B 56 |.XLOW:.EQ$1170;V| 00000140: 4F 52 42 45 53 45 54 5A 42 41 52 45 20 D7 45 52 |ORBESETZBARE .ER| 00000150: 54 45 00 58 48 49 47 48 3A 2E 45 51 24 31 31 37 |TE.XHIGH:.EQ$117| 00000160: 31 3B 46 55 45 52 20 D0 4F 53 49 54 49 4F 4E 00 |1;FUER .OSITION.| 00000170: 59 4C 4F 57 3A 2E 45 51 24 31 31 37 32 3B 42 45 |YLOW:.EQ$1172;BE| 00000180: 49 20 C1 55 46 52 55 46 00 58 4C 50 4F 53 3A 2E |I .UFRUF.XLPOS:.| 00000190: 45 51 24 31 31 36 41 3B 41 4B 54 55 45 4C 4C 45 |EQ$116A;AKTUELLE| 000001A0: 20 D0 4F 53 49 54 49 4F 4E 00 58 48 50 4F 53 3A | .OSITION.XHPOS:| 000001B0: 2E 45 51 24 31 31 36 42 00 59 4C 50 4F 53 3A 2E |.EQ$116B.YLPOS:.| 000001C0: 45 51 24 31 31 36 43 00 56 44 43 57 52 49 54 45 |EQ$116C.VDCWRITE| 000001D0: 3A 2E 45 51 24 43 44 43 41 3B D7 45 52 54 20 C1 |:.EQ$CDCA;.ERT .| 000001E0: 20 41 4E 20 D6 C4 C3 00 56 44 43 52 45 41 44 3A | AN ....VDCREAD:| 000001F0: 2E 45 51 24 43 44 44 38 3B D7 45 52 54 20 C1 20 |.EQ$CDD8;.ERT . | 00000200: 41 55 53 20 D2 45 47 49 53 54 45 52 20 D8 00 56 |AUS .EGISTER ..V| 00000210: 44 43 50 4F 4B 45 3A 2E 45 51 24 43 44 43 43 3B |DCPOKE:.EQ$CDCC;| 00000220: D7 45 52 54 20 C1 20 49 4E 20 D2 45 47 49 53 54 |.ERT . IN .EGIST| 00000230: 45 52 20 D8 00 4D 41 55 53 54 41 53 54 45 3A 2E |ER ..MAUSTASTE:.| 00000240: 45 51 24 44 43 30 31 3B D2 45 47 49 53 54 45 52 |EQ$DC01;.EGISTER| 00000250: 20 C3 C9 C1 00 49 49 52 51 56 45 4B 3A 2E 45 51 | ....IIRQVEK:.EQ| 00000260: 24 30 33 31 34 3B C9 4E 54 45 52 55 50 54 2D D6 |$0314;.NTERUPT-.| 00000270: 45 4B 54 4F 52 00 53 50 52 46 4C 41 47 3A 2E 45 |EKTOR.SPRFLAG:.E| 00000280: 51 24 31 31 37 33 3B C6 4C 41 47 20 46 55 45 52 |Q$1173;.LAG FUER| 00000290: 20 D3 50 52 49 54 45 20 45 49 4E 2F 41 55 53 00 | .PRITE EIN/AUS.| 000002A0: 41 44 52 4D 45 4D 3A 2E 45 51 24 41 41 3B 41 4B |ADRMEM:.EQ$AA;AK| 000002B0: 54 2E 20 C2 49 4C 44 53 43 48 49 52 4D 41 44 52 |T. .ILDSCHIRMADR| 000002C0: 45 53 53 45 00 5A 4F 45 47 45 52 3A 2E 45 51 32 |ESSE.ZOEGER:.EQ2| 000002D0: 31 3B D7 45 52 54 20 46 55 45 52 20 DA 45 49 54 |1;.ERT FUER .EIT| 000002E0: 56 45 52 5A 4F 45 47 45 52 55 4E 47 00 3B 2D 2D |VERZOEGERUNG.;--| 000002F0: 2D 2D 2D 2D 2D 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 00 2E 42 |-------------..B| 00000310: 41 24 31 33 30 30 3B D3 54 41 52 54 41 44 52 45 |A$1300;.TARTADRE| 00000320: 53 53 45 20 3D 20 24 31 37 31 46 00 2E 57 41 3B |SSE = $171F..WA;| 00000330: C6 45 48 4C 45 52 20 41 42 46 41 4E 47 45 4E 00 |.EHLER ABFANGEN.| 00000340: 2E 4F 43 3B 4E 49 43 48 54 20 49 4E 53 20 D2 C1 |.OC;NICHT INS ..| 00000350: CD 00 2E 4F 55 22 4D 41 55 53 2E 54 45 58 54 49 |...OU"MAUS.TEXTI| 00000360: 4C 20 38 30 22 00 41 54 54 53 54 41 52 54 3A 2E |L 80".ATTSTART:.| 00000370: 49 4E 22 93 C1 54 54 52 49 42 55 54 53 54 41 52 |IN"..TTRIBUTSTAR| 00000380: 54 3A 20 24 30 38 30 30 9D 9D 9D 9D 9D 22 00 5A |T: $0800.....".Z| 00000390: 45 49 5A 41 48 4C 3A 2E 49 4E 22 C1 4E 5A 41 48 |EIZAHL:.IN".NZAH| 000003A0: 4C 20 C2 49 44 53 43 48 49 52 4D 5A 45 49 4C 45 |L .IDSCHIRMZEILE| 000003B0: 4E 3A 20 32 35 9D 9D 22 00 53 50 41 5A 41 48 4C |N: 25..".SPAZAHL| 000003C0: 3A 2E 49 4E 22 C1 4E 5A 41 48 4C 20 C2 49 4C 44 |:.IN".NZAHL .ILD| 000003D0: 53 43 48 49 52 4D 53 50 41 4C 54 45 4E 3A 20 38 |SCHIRMSPALTEN: 8| 000003E0: 30 9D 9D 22 00 4D 41 58 5A 45 49 4C 45 3A 2E 45 |0..".MAXZEILE:.E| 000003F0: 51 5A 45 49 5A 41 48 4C 2A 38 2D 39 00 4D 41 58 |QZEIZAHL*8-9.MAX| 00000400: 53 50 41 4C 54 45 3A 2E 45 51 53 50 41 5A 41 48 |SPALTE:.EQSPAZAH| 00000410: 4C 2A 38 2D 31 37 00 3B 00 3B 20 2D 2D 2D 2D 2D |L*8-17.;.; -----| 00000420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 20 2D |------------.; -| 00000430: 2D 2D 20 D1 55 45 4C 4C 54 45 58 54 20 2D 2D 2D |-- .UELLTEXT ---| 00000440: 00 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.; -------------| 00000450: 2D 2D 2D 2D 00 3B 00 4A 4D 50 49 4E 49 54 49 41 |----.;.JMPINITIA| 00000460: 4C 3B C9 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |L;.NITIALISIEREN| 00000470: 00 4A 4D 50 53 54 45 55 45 52 55 4E 47 00 3B 2D |.JMPSTEUERUNG.;-| 00000480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 49 |--------------.I| 000004A0: 4E 49 54 49 41 4C 3A 4C 44 41 23 30 3B D3 50 52 |NITIAL:LDA#0;.PR| 000004B0: 49 54 45 4B 4F 4F 52 44 49 4E 41 54 45 4E 00 4C |ITEKOORDINATEN.L| 000004C0: 44 58 23 33 3B 4C 4F 45 53 43 48 45 4E 00 49 4E |DX#3;LOESCHEN.IN| 000004D0: 49 54 43 4C 52 3A 53 54 41 58 4C 4F 57 2C 58 00 |ITCLR:STAXLOW,X.| 000004E0: 44 45 58 00 42 50 4C 49 4E 49 54 43 4C 52 00 53 |DEX.BPLINITCLR.S| 000004F0: 54 41 24 46 41 3B C1 44 52 45 53 53 45 20 24 33 |TA$FA;.DRESSE $3| 00000500: 46 30 30 20 41 4E 20 D6 C4 C3 00 4C 44 41 23 24 |F00 AN ....LDA#$| 00000510: 33 46 00 53 54 41 24 46 42 00 4A 53 52 55 50 44 |3F.STA$FB.JSRUPD| 00000520: 41 54 45 00 4C 44 59 23 24 36 30 3B 39 36 20 C2 |ATE.LDY#$60;96 .| 00000530: 59 54 45 20 4C 4F 45 53 43 48 45 4E 00 4C 44 41 |YTE LOESCHEN.LDA| 00000540: 23 30 3B 53 4F 4E 53 54 20 C6 4C 41 43 4B 45 52 |#0;SONST .LACKER| 00000550: 4E 20 42 45 49 20 44 45 52 00 42 59 54 45 53 43 |N BEI DER.BYTESC| 00000560: 4C 52 3A 4A 53 52 56 44 43 57 52 49 54 45 3B C2 |LR:JSRVDCWRITE;.| 00000570: 45 57 45 47 55 4E 47 20 44 45 53 20 D0 46 45 49 |EWEGUNG DES .FEI| 00000580: 4C 53 00 44 45 59 00 42 4E 45 42 59 54 45 53 43 |LS.DEY.BNEBYTESC| 00000590: 4C 52 00 4C 44 41 23 3C 55 53 52 50 52 47 3B D5 |LR.LDA#<USRPRG;.| 000005A0: 53 45 52 2D D6 45 4B 54 4F 52 20 45 49 4E 53 54 |SER-.EKTOR EINST| 000005B0: 45 4C 4C 45 4E 00 4C 44 58 23 3E 55 53 52 50 52 |ELLEN.LDX#>USRPR| 000005C0: 47 3B 5A 55 52 20 C1 42 46 52 41 47 45 20 44 45 |G;ZUR .BFRAGE DE| 000005D0: 52 00 53 54 41 24 31 32 31 39 3B D0 4F 53 49 54 |R.STA$1219;.OSIT| 000005E0: 49 4F 4E 45 4E 00 53 54 58 24 31 32 31 41 00 52 |IONEN.STX$121A.R| 000005F0: 54 53 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |TS.;------------| 00000600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000610: 2D 2D 2D 00 53 54 45 55 45 52 55 4E 47 3A 53 54 |---.STEUERUNG:ST| 00000620: 41 58 4C 4F 57 3B CB 4F 4F 52 44 49 4E 41 54 45 |AXLOW;.OORDINATE| 00000630: 4E 00 53 54 58 59 4C 4F 57 3B 55 45 42 45 52 4E |N.STXYLOW;UEBERN| 00000640: 45 48 4D 45 4E 00 4C 44 59 23 30 00 53 54 59 58 |EHMEN.LDY#0.STYX| 00000650: 48 49 47 48 00 4C 44 41 59 4C 4F 57 3B D9 2D D0 |HIGH.LDAYLOW;.-.| 00000660: 4F 53 49 54 49 4F 4E 20 2A 20 38 20 2B 20 33 00 |OSITION * 8 + 3.| 00000670: 41 53 4C 3B 45 52 47 49 42 54 20 D0 49 58 45 4C |ASL;ERGIBT .IXEL| 00000680: 50 4F 53 49 54 49 4F 4E 20 D9 00 41 53 4C 00 41 |POSITION ..ASL.A| 00000690: 53 4C 00 4F 52 41 23 25 30 30 30 30 30 30 31 31 |SL.ORA#%00000011| 000006A0: 00 53 54 41 59 4C 4F 57 00 41 53 4C 58 4C 4F 57 |.STAYLOW.ASLXLOW| 000006B0: 3B D8 2D D0 4F 53 49 54 49 4F 4E 20 2A 20 38 20 |;.-.OSITION * 8 | 000006C0: 2B 20 33 00 52 4F 4C 58 48 49 47 48 3B 45 52 47 |+ 3.ROLXHIGH;ERG| 000006D0: 49 42 54 20 D0 49 58 45 4C 50 4F 53 49 54 49 4F |IBT .IXELPOSITIO| 000006E0: 4E 20 D8 00 41 53 4C 58 4C 4F 57 00 52 4F 4C 58 |N ..ASLXLOW.ROLX| 000006F0: 48 49 47 48 00 41 53 4C 58 4C 4F 57 00 52 4F 4C |HIGH.ASLXLOW.ROL| 00000700: 58 48 49 47 48 00 4C 44 41 58 4C 4F 57 00 4F 52 |XHIGH.LDAXLOW.OR| 00000710: 41 23 25 30 30 30 30 30 30 31 31 00 53 54 41 58 |A#%00000011.STAX| 00000720: 4C 4F 57 00 53 45 49 3B C9 4E 54 45 52 55 50 54 |LOW.SEI;.NTERUPT| 00000730: 20 56 45 52 48 49 4E 44 45 52 4E 00 4C 44 41 49 | VERHINDERN.LDAI| 00000740: 49 52 51 56 45 4B 3B 41 4C 54 45 20 C9 4E 54 45 |IRQVEK;ALTE .NTE| 00000750: 52 55 50 54 41 44 52 45 53 53 45 00 4C 44 59 49 |RUPTADRESSE.LDYI| 00000760: 49 52 51 56 45 4B 2B 31 00 53 54 41 49 4E 54 45 |IRQVEK+1.STAINTE| 00000770: 52 31 2B 31 3B 41 4E 20 D3 50 52 55 4E 47 53 54 |R1+1;AN .PRUNGST| 00000780: 45 4C 4C 45 4E 00 53 54 59 49 4E 54 45 52 31 2B |ELLEN.STYINTER1+| 00000790: 32 3B 53 43 48 52 45 49 42 45 4E 00 53 54 41 49 |2;SCHREIBEN.STAI| 000007A0: 4E 54 45 52 32 2B 31 00 53 54 59 49 4E 54 45 52 |NTER2+1.STYINTER| 000007B0: 32 2B 32 00 4C 44 41 23 3C 4E 45 57 49 52 51 3B |2+2.LDA#<NEWIRQ;| 000007C0: 4E 45 55 45 20 C9 4E 54 45 52 55 50 54 41 44 52 |NEUE .NTERUPTADR| 000007D0: 45 53 53 45 00 4C 44 59 23 3E 4E 45 57 49 52 51 |ESSE.LDY#>NEWIRQ| 000007E0: 00 53 54 41 49 49 52 51 56 45 4B 3B 45 49 4E 4B |.STAIIRQVEK;EINK| 000007F0: 4C 49 4E 4B 45 4E 00 53 54 59 49 49 52 51 56 45 |LINKEN.STYIIRQVE| 00000800: 4B 2B 31 00 4C 44 41 41 44 43 58 3B 44 41 4D 49 |K+1.LDAADCX;DAMI| 00000810: 54 20 44 45 52 20 D0 46 45 49 4C 00 53 54 41 4F |T DER .FEIL.STAO| 00000820: 4C 44 58 3B 4E 49 43 48 54 20 53 50 52 49 4E 47 |LDX;NICHT SPRING| 00000830: 54 00 4C 44 41 41 44 43 59 00 53 54 41 4F 4C 44 |T.LDAADCY.STAOLD| 00000840: 59 00 43 4C 49 3B C9 4E 54 45 52 55 50 54 20 45 |Y.CLI;.NTERUPT E| 00000850: 52 4C 41 55 42 45 4E 00 4A 4D 50 4D 41 55 53 4D |RLAUBEN.JMPMAUSM| 00000860: 41 49 4E 3B 4D 49 54 20 C8 41 55 50 54 50 52 47 |AIN;MIT .AUPTPRG| 00000870: 20 57 45 49 54 45 52 00 3B 00 3B 20 2D 2D 2D 2D | WEITER.;.; ----| 00000880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000890: 2D 2D 2D 00 3B 20 2D 2D 2D 20 C1 42 46 52 41 47 |---.; --- .BFRAG| 000008A0: 45 50 52 4F 47 52 41 4D 4D 20 2D 2D 2D 00 3B 20 |EPROGRAMM ---.; | 000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008C0: 2D 2D 2D 2D 2D 2D 2D 00 3B 00 4E 45 57 49 52 51 |-------.;.NEWIRQ| 000008D0: 3A 43 4C 44 3B D3 49 43 48 45 52 48 45 49 54 53 |:CLD;.ICHERHEITS| 000008E0: 48 41 4C 42 45 52 00 4C 44 41 41 44 43 58 3B C1 |HALBER.LDAADCX;.| 000008F0: C4 C3 20 D8 20 41 42 46 52 41 47 45 4E 00 4C 44 |.. . ABFRAGEN.LD| 00000900: 59 4F 4C 44 58 3B 41 4C 54 45 52 20 41 44 43 20 |YOLDX;ALTER ADC | 00000910: 58 20 D7 45 52 54 00 4A 53 52 47 45 54 44 49 46 |X .ERT.JSRGETDIF| 00000920: 46 3B C4 49 46 46 45 52 45 4E 5A 20 45 52 52 45 |F;.IFFERENZ ERRE| 00000930: 43 48 4E 45 4E 00 53 54 59 4F 4C 44 58 3B 41 4B |CHNEN.STYOLDX;AK| 00000940: 54 55 45 4C 4C 45 52 20 41 44 58 20 D7 45 52 54 |TUELLER ADX .ERT| 00000950: 00 54 41 59 00 41 4E 44 23 25 31 30 30 30 30 30 |.TAY.AND#%100000| 00000960: 30 30 3B 52 45 4C 41 54 49 56 45 20 D0 4F 53 49 |00;RELATIVE .OSI| 00000970: 54 49 4F 4E 00 53 54 41 24 46 46 3B 2A 32 2C 20 |TION.STA$FF;*2, | 00000980: 57 45 47 45 4E 20 44 45 52 00 54 59 41 3B 56 45 |WEGEN DER.TYA;VE| 00000990: 52 41 45 4E 44 45 52 54 45 4E 00 41 53 4C 3B C2 |RAENDERTEN.ASL;.| 000009A0: 49 4C 44 53 43 48 49 52 4D 47 45 4F 4D 45 54 52 |ILDSCHIRMGEOMETR| 000009B0: 49 45 00 4F 52 41 24 46 46 00 43 4C 43 00 41 44 |IE.ORA$FF.CLC.AD| 000009C0: 43 58 4C 4F 57 3B C4 49 46 46 45 52 45 4E 5A 20 |CXLOW;.IFFERENZ | 000009D0: 2B 20 D8 20 CC 4F 57 00 53 54 41 58 4C 4F 57 3B |+ . .OW.STAXLOW;| 000009E0: 4D 45 52 4B 45 4E 00 4C 44 41 58 48 49 47 48 00 |MERKEN.LDAXHIGH.| 000009F0: 53 54 58 24 46 46 00 41 44 43 24 46 46 00 53 54 |STX$FF.ADC$FF.ST| 00000A00: 41 58 48 49 47 48 00 4C 44 41 41 44 43 59 3B C1 |AXHIGH.LDAADCY;.| 00000A10: C4 C3 20 D9 20 41 42 46 52 41 47 45 4E 00 4C 44 |.. . ABFRAGEN.LD| 00000A20: 59 4F 4C 44 59 00 4A 53 52 47 45 54 44 49 46 46 |YOLDY.JSRGETDIFF| 00000A30: 00 53 54 59 4F 4C 44 59 00 45 4F 52 23 24 46 46 |.STYOLDY.EOR#$FF| 00000A40: 3B 41 4C 4C 45 20 C2 49 54 53 20 55 4D 44 52 45 |;ALLE .ITS UMDRE| 00000A50: 48 45 4E 00 53 45 43 3B 45 52 47 49 42 54 20 44 |HEN.SEC;ERGIBT D| 00000A60: 41 53 20 CB 4F 4D 50 4C 45 4D 45 4E 54 00 41 44 |AS .OMPLEMENT.AD| 00000A70: 43 59 4C 4F 57 00 53 54 41 59 4C 4F 57 00 4C 44 |CYLOW.STAYLOW.LD| 00000A80: 41 58 48 49 47 48 00 43 4D 50 23 24 46 46 3B 57 |AXHIGH.CMP#$FF;W| 00000A90: 45 4E 4E 20 4A 41 2C 20 44 41 4E 4E 20 58 20 47 |ENN JA, DANN X G| 00000AA0: 41 4E 5A 20 4C 49 4E 4B 53 00 42 45 51 50 4F 53 |ANZ LINKS.BEQPOS| 00000AB0: 32 3B 4A 41 20 3D 3D 3E 00 53 45 43 00 4C 44 41 |2;JA ==>.SEC.LDA| 00000AC0: 23 3C 4D 41 58 53 50 41 4C 54 45 3B 58 20 50 4F |#<MAXSPALTE;X PO| 00000AD0: 53 2E 20 3E 20 36 32 33 20 3F 00 53 42 43 58 4C |S. > 623 ?.SBCXL| 00000AE0: 4F 57 00 4C 44 41 23 3E 4D 41 58 53 50 41 4C 54 |OW.LDA#>MAXSPALT| 00000AF0: 45 00 53 42 43 58 48 49 47 48 00 42 43 43 50 4F |E.SBCXHIGH.BCCPO| 00000B00: 53 33 3B 43 3D 30 20 3D 3D 3E 20 47 52 4F 45 53 |S3;C=0 ==> GROES| 00000B10: 53 45 52 00 50 4F 53 31 3A 4C 44 41 23 3C 4D 41 |SER.POS1:LDA#<MA| 00000B20: 58 5A 45 49 4C 45 3B 4D 41 58 20 59 20 50 4F 53 |XZEILE;MAX Y POS| 00000B30: 00 43 4D 50 59 4C 4F 57 00 42 43 53 49 4E 54 45 |.CMPYLOW.BCSINTE| 00000B40: 52 31 3B 43 3D 31 20 3D 3D 3E 20 CF CB 00 4C 44 |R1;C=1 ==> ...LD| 00000B50: 41 23 3C 4D 41 58 5A 45 49 4C 45 2B 33 36 00 43 |A#<MAXZEILE+36.C| 00000B60: 4D 50 59 4C 4F 57 00 42 43 43 50 4F 53 34 00 4C |MPYLOW.BCCPOS4.L| 00000B70: 44 41 23 3C 4D 41 58 5A 45 49 4C 45 00 53 54 41 |DA#<MAXZEILE.STA| 00000B80: 59 4C 4F 57 3B 59 20 47 41 4E 5A 20 55 4E 54 45 |YLOW;Y GANZ UNTE| 00000B90: 4E 00 49 4E 54 45 52 31 3A 4A 4D 50 24 46 41 36 |N.INTER1:JMP$FA6| 00000BA0: 35 3B 4D 49 54 20 49 4E 54 45 52 52 55 50 54 20 |5;MIT INTERRUPT | 00000BB0: 57 45 49 54 45 52 00 50 4F 53 32 3A 4C 44 41 23 |WEITER.POS2:LDA#| 00000BC0: 30 00 53 54 41 58 4C 4F 57 3B D8 20 47 41 4E 5A |0.STAXLOW;. GANZ| 00000BD0: 20 4C 49 4E 4B 53 00 53 54 41 58 48 49 47 48 00 | LINKS.STAXHIGH.| 00000BE0: 4A 4D 50 50 4F 53 31 00 50 4F 53 33 3A 4C 44 41 |JMPPOS1.POS3:LDA| 00000BF0: 23 3C 4D 41 58 53 50 41 4C 54 45 00 53 54 41 58 |#<MAXSPALTE.STAX| 00000C00: 4C 4F 57 3B D8 20 47 41 4E 5A 20 52 45 43 48 54 |LOW;. GANZ RECHT| 00000C10: 53 00 4C 44 41 23 3E 4D 41 58 53 50 41 4C 54 45 |S.LDA#>MAXSPALTE| 00000C20: 00 53 54 41 58 48 49 47 48 00 4A 4D 50 50 4F 53 |.STAXHIGH.JMPPOS| 00000C30: 31 00 50 4F 53 34 3A 4C 44 41 23 30 00 53 54 41 |1.POS4:LDA#0.STA| 00000C40: 59 4C 4F 57 00 49 4E 54 45 52 32 3A 4A 4D 50 24 |YLOW.INTER2:JMP$| 00000C50: 46 41 36 35 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |FA65.;----------| 00000C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000C70: 2D 2D 2D 2D 2D 00 47 45 54 44 49 46 46 3A 53 54 |-----.GETDIFF:ST| 00000C80: 59 4F 4C 44 41 44 00 53 54 41 41 44 57 45 52 54 |YOLDAD.STAADWERT| 00000C90: 00 4C 44 58 23 30 3B D6 4F 52 42 45 53 45 54 5A |.LDX#0;.ORBESETZ| 00000CA0: 55 4E 47 00 53 45 43 00 53 42 43 4F 4C 44 41 44 |UNG.SEC.SBCOLDAD| 00000CB0: 3B 4E 45 55 45 52 20 D7 45 52 54 20 2D 20 41 4C |;NEUER .ERT - AL| 00000CC0: 54 45 52 20 D7 45 52 54 00 41 4E 44 23 24 37 46 |TER .ERT.AND#$7F| 00000CD0: 3B C2 49 54 20 37 20 41 55 53 42 4C 45 4E 44 45 |;.IT 7 AUSBLENDE| 00000CE0: 4E 00 43 4D 50 23 24 34 30 3B 3D 25 20 30 31 30 |N.CMP#$40;=% 010| 00000CF0: 30 20 30 30 30 30 00 42 43 53 47 45 54 31 3B 47 |0 0000.BCSGET1;G| 00000D00: 52 4F 45 53 53 45 52 00 4C 53 52 3B 2F 32 20 28 |ROESSER.LSR;/2 (| 00000D10: 55 4E 54 45 52 45 53 20 C2 49 54 20 41 55 53 42 |UNTERES .IT AUSB| 00000D20: 4C 45 4E 44 45 4E 29 00 42 45 51 47 45 54 30 3B |LENDEN).BEQGET0;| 00000D30: 4B 45 49 4E 45 20 C2 45 57 45 47 55 4E 47 00 4C |KEINE .EWEGUNG.L| 00000D40: 44 59 41 44 57 45 52 54 3B 4E 45 55 45 52 20 D7 |DYADWERT;NEUER .| 00000D50: 45 52 54 00 52 54 53 3B 4E 4F 52 4D 41 4C 45 20 |ERT.RTS;NORMALE | 00000D60: C2 45 57 45 47 55 4E 47 00 47 45 54 31 3A 4F 52 |.EWEGUNG.GET1:OR| 00000D70: 41 23 24 43 30 3B C2 49 54 20 37 2B 36 20 53 45 |A#$C0;.IT 7+6 SE| 00000D80: 54 5A 45 4E 00 43 4D 50 23 24 46 46 00 42 45 51 |TZEN.CMP#$FF.BEQ| 00000D90: 47 45 54 30 3B 24 46 46 20 3D 20 4B 45 49 4E 45 |GET0;$FF = KEINE| 00000DA0: 20 C2 45 57 45 47 55 4E 47 00 53 45 43 00 52 4F | .EWEGUNG.SEC.RO| 00000DB0: 52 3B 2F 32 20 55 4E 44 20 42 49 54 20 37 20 53 |R;/2 UND BIT 7 S| 00000DC0: 45 54 5A 45 4E 00 4C 44 58 23 24 46 46 00 4C 44 |ETZEN.LDX#$FF.LD| 00000DD0: 59 41 44 57 45 52 54 00 52 54 53 00 47 45 54 30 |YADWERT.RTS.GET0| 00000DE0: 3A 4C 44 41 23 30 30 00 52 54 53 00 3B 2D 2D 2D |:LDA#00.RTS.;---| 00000DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 55 53 52 |------------.USR| 00000E10: 50 52 47 3A 4A 53 52 24 38 43 43 37 3B C7 4C 45 |PRG:JSR$8CC7;.LE| 00000E20: 49 54 4B 4F 4D 4D 41 2D C9 4E 54 45 47 45 52 2D |ITKOMMA-.NTEGER-| 00000E30: D7 41 4E 44 4C 55 4E 47 00 4C 44 41 24 36 37 3B |.ANDLUNG.LDA$67;| 00000E40: C9 4E 54 45 47 45 52 20 CC 4F 57 2D C2 59 54 45 |.NTEGER .OW-.YTE| 00000E50: 00 43 4D 50 23 31 3B 55 53 52 28 31 29 20 3F 00 |.CMP#1;USR(1) ?.| 00000E60: 42 45 51 55 53 52 31 3B 4A 41 20 3D 3D 3E 00 43 |BEQUSR1;JA ==>.C| 00000E70: 4D 50 23 32 3B 55 53 52 28 32 29 20 3F 00 42 4E |MP#2;USR(2) ?.BN| 00000E80: 45 55 53 52 52 45 41 44 59 3B 4E 45 49 4E 20 3D |EUSRREADY;NEIN =| 00000E90: 3D 3E 00 4C 44 41 59 4C 50 4F 53 3B 4C 45 54 5A |=>.LDAYLPOS;LETZ| 00000EA0: 54 45 20 D9 2D D0 4F 53 49 54 49 4F 4E 00 4C 53 |TE .-.OSITION.LS| 00000EB0: 52 3B 2F 38 20 3D 20 5A 45 49 4C 45 4E 4E 55 4D |R;/8 = ZEILENNUM| 00000EC0: 4D 45 52 00 4C 53 52 00 4C 53 52 00 53 54 41 24 |MER.LSR.LSR.STA$| 00000ED0: 36 35 3B 5A 55 52 20 C7 CB 2D C2 45 52 45 43 48 |65;ZUR ..-.ERECH| 00000EE0: 4E 55 4E 47 00 4C 44 41 23 30 00 53 54 41 24 36 |NUNG.LDA#0.STA$6| 00000EF0: 34 00 42 45 51 55 53 52 45 4E 44 00 55 53 52 31 |4.BEQUSREND.USR1| 00000F00: 3A 4C 44 41 58 4C 50 4F 53 3B 4C 45 54 5A 54 45 |:LDAXLPOS;LETZTE| 00000F10: 20 D8 2D D0 4F 53 49 54 49 4F 4E 00 4C 44 58 58 | .-.OSITION.LDXX| 00000F20: 48 50 4F 53 00 53 54 41 24 36 35 00 53 54 58 24 |HPOS.STA$65.STX$| 00000F30: 36 34 00 4C 53 52 24 36 34 3B 2F 38 20 3D 20 D3 |64.LSR$64;/8 = .| 00000F40: 50 41 4C 54 45 4E 4E 55 4D 4D 45 52 00 52 4F 52 |PALTENNUMMER.ROR| 00000F50: 24 36 35 00 4C 53 52 24 36 34 00 52 4F 52 24 36 |$65.LSR$64.ROR$6| 00000F60: 35 00 4C 53 52 24 36 34 00 52 4F 52 24 36 35 00 |5.LSR$64.ROR$65.| 00000F70: 55 53 52 45 4E 44 3A 4C 44 58 23 24 39 30 00 53 |USREND:LDX#$90.S| 00000F80: 45 43 00 4A 53 52 24 38 43 37 35 3B C9 4E 54 45 |EC.JSR$8C75;.NTE| 00000F90: 47 45 52 2D C7 4C 45 49 54 4B 4F 4D 4D 41 2D D7 |GER-.LEITKOMMA-.| 00000FA0: 41 4E 44 4C 55 4E 47 00 55 53 52 52 45 41 44 59 |ANDLUNG.USRREADY| 00000FB0: 3A 52 54 53 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |:RTS.;----------| 00000FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000FD0: 2D 2D 2D 2D 2D 00 55 50 44 41 54 45 3A 4C 44 41 |-----.UPDATE:LDA| 00000FE0: 24 46 42 3B D5 50 44 41 54 45 41 44 52 45 53 53 |$FB;.PDATEADRESS| 00000FF0: 45 00 4C 44 58 23 24 31 32 3B 41 4E 20 D6 C4 C3 |E.LDX#$12;AN ...| 00001000: 20 55 45 42 45 52 47 45 42 45 4E 00 4A 53 52 56 | UEBERGEBEN.JSRV| 00001010: 44 43 50 4F 4B 45 00 4C 44 41 24 46 41 00 49 4E |DCPOKE.LDA$FA.IN| 00001020: 58 00 4A 4D 50 56 44 43 50 4F 4B 45 00 3B 2D 2D |X.JMPVDCPOKE.;--| 00001030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4D 41 |-------------.MA| 00001050: 55 53 41 47 41 49 4E 3A 4A 53 52 53 50 52 41 55 |USAGAIN:JSRSPRAU| 00001060: 53 3B 53 50 52 49 54 45 20 41 55 53 53 43 48 41 |S;SPRITE AUSSCHA| 00001070: 4C 54 45 4E 00 4D 41 55 53 4D 41 49 4E 3A 4C 44 |LTEN.MAUSMAIN:LD| 00001080: 41 58 4C 4F 57 3B CB 4F 4F 52 44 49 4E 41 54 45 |AXLOW;.OORDINATE| 00001090: 4E 20 41 4E 50 41 53 53 45 4E 00 53 54 41 58 4C |N ANPASSEN.STAXL| 000010A0: 50 4F 53 00 4C 44 41 58 48 49 47 48 00 53 54 41 |POS.LDAXHIGH.STA| 000010B0: 58 48 50 4F 53 00 4C 44 41 59 4C 4F 57 00 53 54 |XHPOS.LDAYLOW.ST| 000010C0: 41 59 4C 50 4F 53 00 4A 53 52 53 50 52 45 49 4E |AYLPOS.JSRSPREIN| 000010D0: 3B 53 50 52 49 54 45 20 45 49 4E 53 43 48 41 4C |;SPRITE EINSCHAL| 000010E0: 54 45 4E 00 4D 41 49 4E 4C 4F 4F 50 3A 4C 44 41 |TEN.MAINLOOP:LDA| 000010F0: 58 48 49 47 48 3B D8 2D D0 4F 53 49 54 49 4F 4E |XHIGH;.-.OSITION| 00001100: 20 56 45 52 41 45 4E 44 45 52 54 20 3F 00 43 4D | VERAENDERT ?.CM| 00001110: 50 58 48 50 4F 53 00 42 4E 45 4D 41 55 53 41 47 |PXHPOS.BNEMAUSAG| 00001120: 41 49 4E 3B 3C 3E 30 20 3D 3D 3E 20 4A 41 00 4C |AIN;<>0 ==> JA.L| 00001130: 44 41 58 4C 4F 57 3B D8 2D D0 4F 53 49 54 49 4F |DAXLOW;.-.OSITIO| 00001140: 4E 20 56 45 52 41 45 4E 44 45 52 54 20 3F 00 43 |N VERAENDERT ?.C| 00001150: 4D 50 58 4C 50 4F 53 00 42 4E 45 4D 41 55 53 41 |MPXLPOS.BNEMAUSA| 00001160: 47 41 49 4E 3B 3C 3E 30 20 3D 3D 3E 20 4A 41 00 |GAIN;<>0 ==> JA.| 00001170: 4C 44 41 59 4C 4F 57 3B D9 2D D0 4F 53 49 54 49 |LDAYLOW;.-.OSITI| 00001180: 4F 4E 20 56 45 52 41 45 4E 44 45 52 54 20 3F 00 |ON VERAENDERT ?.| 00001190: 43 4D 50 59 4C 50 4F 53 00 42 4E 45 4D 41 55 53 |CMPYLPOS.BNEMAUS| 000011A0: 41 47 41 49 4E 3B 3C 3E 30 20 3D 3D 3E 20 4A 41 |AGAIN;<>0 ==> JA| 000011B0: 00 4C 44 41 4D 41 55 53 54 41 53 54 45 3B 4C 49 |.LDAMAUSTASTE;LI| 000011C0: 4E 4B 45 20 CD 41 55 53 54 41 53 54 45 20 47 45 |NKE .AUSTASTE GE| 000011D0: 44 52 55 45 43 4B 54 20 3F 00 41 4E 44 23 24 31 |DRUECKT ?.AND#$1| 000011E0: 30 3B 41 4C 4C 45 20 41 4E 44 45 52 45 4E 20 C2 |0;ALLE ANDEREN .| 000011F0: 49 54 53 20 41 55 53 42 4C 45 4E 44 45 4E 00 42 |ITS AUSBLENDEN.B| 00001200: 4E 45 4D 41 49 4E 4C 4F 4F 50 3B C2 49 54 20 35 |NEMAINLOOP;.IT 5| 00001210: 20 C8 49 47 48 20 3D 3D 3E 20 4E 45 49 4E 00 4A | .IGH ==> NEIN.J| 00001220: 53 52 53 50 52 41 55 53 3B 53 50 52 49 54 45 20 |SRSPRAUS;SPRITE | 00001230: 41 55 53 53 43 48 41 4C 54 45 4E 00 45 4E 54 50 |AUSSCHALTEN.ENTP| 00001240: 52 45 4C 4C 3A 4C 44 58 23 30 3B 4B 55 52 5A 45 |RELL:LDX#0;KURZE| 00001250: 20 D7 41 52 54 45 53 43 48 4C 45 49 46 45 00 54 | .ARTESCHLEIFE.T| 00001260: 49 4D 45 4C 4F 4F 50 3A 44 45 58 3B 5A 55 52 20 |IMELOOP:DEX;ZUR | 00001270: D4 41 53 54 45 4E 45 4E 54 50 52 45 4C 4C 55 4E |.ASTENENTPRELLUN| 00001280: 47 00 42 4E 45 54 49 4D 45 4C 4F 4F 50 00 4C 44 |G.BNETIMELOOP.LD| 00001290: 41 4D 41 55 53 54 41 53 54 45 3B 4C 49 4E 4B 45 |AMAUSTASTE;LINKE| 000012A0: 20 D4 41 53 54 45 20 47 45 44 52 55 45 43 4B 54 | .ASTE GEDRUECKT| 000012B0: 20 3F 00 41 4E 44 23 24 31 30 00 42 45 51 45 4E | ?.AND#$10.BEQEN| 000012C0: 54 50 52 45 4C 4C 3B 3D 30 20 3D 3D 3E 20 4A 41 |TPRELL;=0 ==> JA| 000012D0: 2C 57 41 52 54 45 4E 00 4C 44 41 23 30 3B D4 41 |,WARTEN.LDA#0;.A| 000012E0: 53 54 41 54 55 52 50 55 46 46 45 52 00 53 54 41 |STATURPUFFER.STA| 000012F0: 24 44 30 3B 55 4E 44 20 C6 55 4E 4B 54 49 4F 4E |$D0;UND .UNKTION| 00001300: 53 54 41 53 54 45 4E 50 55 46 46 45 52 00 53 54 |STASTENPUFFER.ST| 00001310: 41 24 44 31 3B 4C 4F 45 53 43 48 45 4E 00 53 45 |A$D1;LOESCHEN.SE| 00001320: 49 00 4C 44 41 49 4E 54 45 52 31 2B 31 3B 41 4C |I.LDAINTER1+1;AL| 00001330: 54 45 4E 20 C9 4E 54 45 52 55 50 54 56 45 4B 54 |TEN .NTERUPTVEKT| 00001340: 4F 52 00 4C 44 59 49 4E 54 45 52 31 2B 32 3B 57 |OR.LDYINTER1+2;W| 00001350: 49 45 44 45 52 20 41 4B 54 49 56 49 45 52 45 4E |IEDER AKTIVIEREN| 00001360: 00 53 54 41 49 49 52 51 56 45 4B 00 53 54 59 49 |.STAIIRQVEK.STYI| 00001370: 49 52 51 56 45 4B 2B 31 00 43 4C 49 3B C9 4E 54 |IRQVEK+1.CLI;.NT| 00001380: 45 52 52 55 50 54 20 45 52 4C 41 55 42 45 4E 00 |ERRUPT ERLAUBEN.| 00001390: 52 54 53 3B D2 55 45 43 4B 53 50 52 55 4E 47 00 |RTS;.UECKSPRUNG.| 000013A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 000013B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013C0: 00 53 50 52 45 49 4E 3A 4C 44 58 23 30 3B C2 49 |.SPREIN:LDX#0;.I| 000013D0: 54 4D 55 53 54 45 52 20 44 45 53 20 D0 46 45 49 |TMUSTER DES .FEI| 000013E0: 4C 53 00 4C 44 59 23 30 3B 49 4E 20 D6 45 52 53 |LS.LDY#0;IN .ERS| 000013F0: 43 48 49 45 42 45 42 45 52 45 49 43 48 00 50 46 |CHIEBEBEREICH.PF| 00001400: 45 49 4C 43 4F 50 59 3A 4C 44 41 50 46 45 49 4C |EILCOPY:LDAPFEIL| 00001410: 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 53 54 41 50 |,Y;KOPIEREN.STAP| 00001420: 46 45 49 4C 42 49 54 53 2C 58 00 49 4E 59 00 49 |FEILBITS,X.INY.I| 00001430: 4E 58 00 4C 44 41 50 46 45 49 4C 2C 59 00 53 54 |NX.LDAPFEIL,Y.ST| 00001440: 41 50 46 45 49 4C 42 49 54 53 2C 58 00 49 4E 58 |APFEILBITS,X.INX| 00001450: 00 4C 44 41 23 30 00 53 54 41 50 46 45 49 4C 42 |.LDA#0.STAPFEILB| 00001460: 49 54 53 2C 58 00 49 4E 59 00 49 4E 58 00 43 50 |ITS,X.INY.INX.CP| 00001470: 59 23 31 36 00 42 4E 45 50 46 45 49 4C 43 4F 50 |Y#16.BNEPFEILCOP| 00001480: 59 00 4C 44 41 58 4C 50 4F 53 3B D8 2D D0 4F 53 |Y.LDAXLPOS;.-.OS| 00001490: 49 54 49 4F 4E 20 4C 41 44 45 4E 00 41 4E 44 23 |ITION LADEN.AND#| 000014A0: 25 30 30 30 30 30 31 31 31 3B C2 49 54 53 20 33 |%00000111;.ITS 3| 000014B0: 2D 37 20 41 55 53 42 4C 45 4E 44 45 4E 00 42 45 |-7 AUSBLENDEN.BE| 000014C0: 51 4E 4F 54 52 4F 54 3B 3D 30 20 3D 3D 3E 20 47 |QNOTROT;=0 ==> G| 000014D0: 41 4E 5A 20 4C 49 4E 4B 53 20 49 4D 20 C2 59 54 |ANZ LINKS IM .YT| 000014E0: 45 00 54 41 59 00 4E 45 58 54 42 49 54 3A 4C 44 |E.TAY.NEXTBIT:LD| 000014F0: 58 23 30 3B D0 46 45 49 4C 44 41 54 45 4E 20 55 |X#0;.FEILDATEN U| 00001500: 4D 20 D0 49 58 45 4C 50 4F 53 49 54 49 4F 4E 00 |M .IXELPOSITION.| 00001510: 52 4F 54 4F 4E 3A 4C 53 52 50 46 45 49 4C 42 49 |ROTON:LSRPFEILBI| 00001520: 54 53 2C 58 3B 4E 41 43 48 20 52 45 43 48 54 53 |TS,X;NACH RECHTS| 00001530: 20 52 4F 54 49 45 52 45 4E 00 49 4E 58 00 52 4F | ROTIEREN.INX.RO| 00001540: 52 50 46 45 49 4C 42 49 54 53 2C 58 00 49 4E 58 |RPFEILBITS,X.INX| 00001550: 00 52 4F 52 50 46 45 49 4C 42 49 54 53 2C 58 00 |.RORPFEILBITS,X.| 00001560: 49 4E 58 00 43 50 58 23 24 31 38 00 42 4E 45 52 |INX.CPX#$18.BNER| 00001570: 4F 54 4F 4E 00 44 45 59 00 42 4E 45 4E 45 58 54 |OTON.DEY.BNENEXT| 00001580: 42 49 54 00 4E 4F 54 52 4F 54 3A 4C 44 41 59 4C |BIT.NOTROT:LDAYL| 00001590: 50 4F 53 3B 41 4B 54 55 45 4C 4C 45 20 DA 45 49 |POS;AKTUELLE .EI| 000015A0: 4C 45 20 45 52 52 45 43 48 4E 45 4E 00 4C 53 52 |LE ERRECHNEN.LSR| 000015B0: 00 4C 53 52 00 4C 53 52 00 54 41 59 00 4C 44 41 |.LSR.LSR.TAY.LDA| 000015C0: 5A 45 49 4C 45 4C 4F 57 2C 59 3B DA 45 49 4C 45 |ZEILELOW,Y;.EILE| 000015D0: 4E 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 20 |NANFANGSADRESSE | 000015E0: 41 55 53 00 53 54 41 24 46 41 3B D4 41 42 45 4C |AUS.STA$FA;.ABEL| 000015F0: 4C 45 4E 20 55 45 42 45 52 54 52 41 47 45 4E 00 |LEN UEBERTRAGEN.| 00001600: 4C 44 41 5A 45 49 4C 45 48 49 47 48 2C 59 00 53 |LDAZEILEHIGH,Y.S| 00001610: 54 41 24 46 42 00 4C 44 41 58 4C 50 4F 53 3B 41 |TA$FB.LDAXLPOS;A| 00001620: 4B 54 55 45 4C 4C 45 20 D3 50 41 4C 54 45 20 42 |KTUELLE .PALTE B| 00001630: 45 52 45 43 48 4E 45 4E 00 53 54 41 24 46 43 00 |ERECHNEN.STA$FC.| 00001640: 4C 44 41 58 48 50 4F 53 00 53 54 41 24 46 44 00 |LDAXHPOS.STA$FD.| 00001650: 4C 53 52 24 46 44 00 52 4F 52 24 46 43 00 4C 53 |LSR$FD.ROR$FC.LS| 00001660: 52 24 46 44 00 52 4F 52 24 46 43 00 4C 53 52 24 |R$FD.ROR$FC.LSR$| 00001670: 46 44 00 52 4F 52 24 46 43 3B DA 45 49 4C 45 4E |FD.ROR$FC;.EILEN| 00001680: 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 00 4C |ANFANGSADRESSE.L| 00001690: 44 41 24 46 43 3B 2B D3 50 41 4C 54 45 4E 41 4E |DA$FC;+.PALTENAN| 000016A0: 5A 41 48 4C 00 43 4C 43 00 41 44 43 24 46 41 3B |ZAHL.CLC.ADC$FA;| 000016B0: 45 52 47 49 42 54 20 41 4B 54 55 45 4C 4C 45 20 |ERGIBT AKTUELLE | 000016C0: C1 44 52 45 53 53 45 00 53 54 41 24 46 41 3B 49 |.DRESSE.STA$FA;I| 000016D0: 4D 20 D6 49 44 45 4F 52 41 4D 00 42 43 43 5A 45 |M .IDEORAM.BCCZE| 000016E0: 49 4C 45 4E 49 00 49 4E 43 24 46 42 00 5A 45 49 |ILENI.INC$FB.ZEI| 000016F0: 4C 45 4E 49 3A 4C 44 41 24 46 41 3B 41 4B 54 55 |LENI:LDA$FA;AKTU| 00001700: 45 4C 4C 45 20 C1 44 52 45 53 53 45 20 49 4D 20 |ELLE .DRESSE IM | 00001710: C2 49 4C 44 2D 00 4C 44 59 24 46 42 3B 53 43 48 |.ILD-.LDY$FB;SCH| 00001720: 49 52 4D 20 4D 45 52 4B 45 4E 00 53 54 41 41 44 |IRM MERKEN.STAAD| 00001730: 52 4D 45 4D 00 53 54 59 41 44 52 4D 45 4D 2B 31 |RMEM.STYADRMEM+1| 00001740: 00 4C 44 59 23 30 00 43 4F 44 45 52 45 41 44 3A |.LDY#0.CODEREAD:| 00001750: 4A 53 52 55 50 44 41 54 45 3B C1 44 52 45 53 53 |JSRUPDATE;.DRESS| 00001760: 45 20 41 4E 20 D6 C4 C3 00 43 4F 52 45 31 3A 4A |E AN ....CORE1:J| 00001770: 53 52 56 44 43 52 45 41 44 3B C2 59 54 45 20 56 |SRVDCREAD;.YTE V| 00001780: 4F 4E 20 D6 C4 C3 20 48 4F 4C 45 4E 00 53 54 41 |ON ... HOLEN.STA| 00001790: 42 49 4C 44 43 4F 44 45 2C 59 3B 55 4E 44 20 4D |BILDCODE,Y;UND M| 000017A0: 45 52 4B 45 4E 00 49 4E 59 00 43 50 59 23 33 00 |ERKEN.INY.CPY#3.| 000017B0: 42 45 51 43 4F 52 45 32 3B 4E 41 45 43 48 53 54 |BEQCORE2;NAECHST| 000017C0: 45 20 DA 45 49 4C 45 00 43 50 59 23 36 00 42 4E |E .EILE.CPY#6.BN| 000017D0: 45 43 4F 52 45 31 00 42 45 51 43 4F 52 45 41 44 |ECORE1.BEQCOREAD| 000017E0: 59 00 43 4F 52 45 32 3A 4C 44 41 23 53 50 41 5A |Y.CORE2:LDA#SPAZ| 000017F0: 41 48 4C 3B D2 41 53 54 45 52 20 33 2A 32 20 C2 |AHL;.ASTER 3*2 .| 00001800: 59 54 45 00 43 4C 43 00 41 44 43 24 46 41 00 53 |YTE.CLC.ADC$FA.S| 00001810: 54 41 24 46 41 00 42 43 43 43 4F 44 45 52 45 41 |TA$FA.BCCCODEREA| 00001820: 44 00 49 4E 43 24 46 42 00 42 4E 45 43 4F 44 45 |D.INC$FB.BNECODE| 00001830: 52 45 41 44 3B 49 4D 4D 45 52 00 43 4F 52 45 41 |READ;IMMER.COREA| 00001840: 44 59 3A 4C 44 41 41 44 52 4D 45 4D 00 4C 44 59 |DY:LDAADRMEM.LDY| 00001850: 41 44 52 4D 45 4D 2B 31 00 53 54 41 24 46 41 00 |ADRMEM+1.STA$FA.| 00001860: 53 54 59 24 46 42 00 43 4C 43 00 4C 44 41 23 3E |STY$FB.CLC.LDA#>| 00001870: 41 54 54 53 54 41 52 54 3B DA 45 49 47 45 52 20 |ATTSTART;.EIGER | 00001880: 41 55 46 20 C1 54 54 52 49 42 55 54 45 00 41 44 |AUF .TTRIBUTE.AD| 00001890: 43 24 46 42 3B 42 45 52 45 43 48 4E 45 4E 00 53 |C$FB;BERECHNEN.S| 000018A0: 54 41 24 46 42 00 4C 44 59 23 30 00 41 54 54 52 |TA$FB.LDY#0.ATTR| 000018B0: 45 41 44 3A 4A 53 52 55 50 44 41 54 45 00 41 54 |EAD:JSRUPDATE.AT| 000018C0: 52 45 31 3A 4A 53 52 56 44 43 52 45 41 44 3B 41 |RE1:JSRVDCREAD;A| 000018D0: 4B 54 55 45 4C 4C 45 20 C1 54 54 52 49 42 55 54 |KTUELLE .TTRIBUT| 000018E0: 42 59 54 45 53 00 53 54 41 41 54 54 52 49 42 55 |BYTES.STAATTRIBU| 000018F0: 54 45 2C 59 3B 56 4F 4E 20 D6 C4 C3 20 4C 45 53 |TE,Y;VON ... LES| 00001900: 45 4E 00 49 4E 59 3B 55 4E 44 20 4D 45 52 4B 45 |EN.INY;UND MERKE| 00001910: 4E 00 43 50 59 23 33 00 42 45 51 41 54 52 45 32 |N.CPY#3.BEQATRE2| 00001920: 00 43 50 59 23 36 00 42 4E 45 41 54 52 45 31 00 |.CPY#6.BNEATRE1.| 00001930: 42 45 51 41 54 52 45 41 44 59 00 41 54 52 45 32 |BEQATREADY.ATRE2| 00001940: 3A 4C 44 41 23 53 50 41 5A 41 48 4C 00 43 4C 43 |:LDA#SPAZAHL.CLC| 00001950: 00 41 44 43 24 46 41 00 53 54 41 24 46 41 00 42 |.ADC$FA.STA$FA.B| 00001960: 43 43 41 54 54 52 45 41 44 00 49 4E 43 24 46 42 |CCATTREAD.INC$FB| 00001970: 00 42 4E 45 41 54 54 52 45 41 44 3B 49 4D 4D 45 |.BNEATTREAD;IMME| 00001980: 52 00 41 54 52 45 41 44 59 3A 4C 44 59 23 30 00 |R.ATREADY:LDY#0.| 00001990: 52 45 41 44 42 49 54 53 3A 53 54 59 24 38 34 00 |READBITS:STY$84.| 000019A0: 4C 44 41 42 49 4C 44 43 4F 44 45 2C 59 3B C2 49 |LDABILDCODE,Y;.I| 000019B0: 4C 44 53 43 48 49 52 4D 43 4F 44 45 3D 00 53 54 |LDSCHIRMCODE=.ST| 000019C0: 41 24 46 41 3B C1 44 52 45 53 53 45 20 49 4D 20 |A$FA;.DRESSE IM | 000019D0: DA 45 49 43 48 45 4E 53 41 54 5A 00 4C 44 41 23 |.EICHENSATZ.LDA#| 000019E0: 30 00 53 54 41 24 46 42 00 4C 44 41 41 54 54 52 |0.STA$FB.LDAATTR| 000019F0: 49 42 55 54 45 2C 59 3B 45 4E 54 53 50 52 2E 20 |IBUTE,Y;ENTSPR. | 00001A00: C1 54 54 52 49 42 55 54 00 42 50 4C 4E 4F 54 53 |.TTRIBUT.BPLNOTS| 00001A10: 45 54 3B C2 49 54 20 37 3D 30 20 3D 3D 3E 20 DA |ET;.IT 7=0 ==> .| 00001A20: 45 49 43 48 45 4E 53 41 54 5A 20 31 00 4C 44 41 |EICHENSATZ 1.LDA| 00001A30: 23 24 33 30 3B D3 54 41 52 54 20 DA 45 49 43 48 |#$30;.TART .EICH| 00001A40: 45 4E 53 41 54 5A 20 31 00 42 49 54 00 4E 4F 54 |ENSATZ 1.BIT.NOT| 00001A50: 53 45 54 3A 4C 44 41 23 24 32 30 3B D3 54 41 52 |SET:LDA#$20;.TAR| 00001A60: 54 20 DA 45 49 43 48 45 4E 53 41 54 5A 20 32 00 |T .EICHENSATZ 2.| 00001A70: 53 54 41 24 41 38 00 4C 44 58 23 34 3B C1 44 52 |STA$A8.LDX#4;.DR| 00001A80: 45 53 53 45 20 34 20 C2 49 54 20 4E 41 43 48 20 |ESSE 4 .IT NACH | 00001A90: 4C 49 4E 4B 53 00 4D 41 4C 31 36 3A 41 53 4C 24 |LINKS.MAL16:ASL$| 00001AA0: 46 41 3B 3D C1 44 52 45 53 53 45 20 4D 41 4C 20 |FA;=.DRESSE MAL | 00001AB0: 31 36 00 52 4F 4C 24 46 42 3B 3D C1 44 52 45 53 |16.ROL$FB;=.DRES| 00001AC0: 53 45 20 44 45 53 20 C2 49 54 4D 55 53 54 45 52 |SE DES .ITMUSTER| 00001AD0: 53 00 44 45 58 3B 49 4D 20 DA 45 49 43 48 45 4E |S.DEX;IM .EICHEN| 00001AE0: 53 41 54 5A 00 42 4E 45 4D 41 4C 31 36 00 43 4C |SATZ.BNEMAL16.CL| 00001AF0: 43 00 4C 44 41 24 41 38 3B C7 52 55 4E 44 41 44 |C.LDA$A8;.RUNDAD| 00001B00: 52 45 53 53 45 20 41 44 44 49 45 52 45 4E 00 41 |RESSE ADDIEREN.A| 00001B10: 44 43 24 46 42 00 53 54 41 24 46 42 00 4A 53 52 |DC$FB.STA$FB.JSR| 00001B20: 55 50 44 41 54 45 3B C1 44 52 45 53 53 45 20 41 |UPDATE;.DRESSE A| 00001B30: 4E 20 D6 C4 C3 00 4C 44 59 24 38 34 3B D9 20 45 |N ....LDY$84;. E| 00001B40: 52 49 4E 4E 45 52 4E 00 4C 44 41 4F 46 46 53 45 |RINNERN.LDAOFFSE| 00001B50: 54 45 4E 44 2C 59 3B 5A 55 4D 20 D5 4D 53 50 45 |TEND,Y;ZUM .MSPE| 00001B60: 49 43 48 45 52 4E 20 44 45 52 20 C2 49 54 53 00 |ICHERN DER .ITS.| 00001B70: 53 54 41 24 41 39 00 4C 44 41 4F 46 46 53 45 54 |STA$A9.LDAOFFSET| 00001B80: 42 45 47 2C 59 00 54 41 59 00 50 45 45 4B 42 49 |BEG,Y.TAY.PEEKBI| 00001B90: 54 53 3A 4A 53 52 56 44 43 52 45 41 44 3B C2 49 |TS:JSRVDCREAD;.I| 00001BA0: 54 53 20 56 4F 4E 20 D6 C4 C3 20 48 4F 4C 45 4E |TS VON ... HOLEN| 00001BB0: 00 53 54 41 42 49 54 4D 55 53 54 45 52 2C 59 3B |.STABITMUSTER,Y;| 00001BC0: 49 4E 20 D4 41 42 45 4C 4C 45 20 53 43 48 52 45 |IN .ABELLE SCHRE| 00001BD0: 49 42 45 4E 00 49 4E 59 00 49 4E 59 00 49 4E 59 |IBEN.INY.INY.INY| 00001BE0: 00 43 50 59 24 41 39 3B 53 43 48 4F 4E 20 38 20 |.CPY$A9;SCHON 8 | 00001BF0: C2 59 54 45 53 20 3F 00 42 4E 45 50 45 45 4B 42 |.YTES ?.BNEPEEKB| 00001C00: 49 54 53 00 4C 44 59 24 38 34 00 49 4E 59 00 43 |ITS.LDY$84.INY.C| 00001C10: 50 59 23 36 3B 53 43 48 4F 4E 20 36 20 C2 59 54 |PY#6;SCHON 6 .YT| 00001C20: 45 53 20 3F 00 42 4E 45 52 45 41 44 42 49 54 53 |ES ?.BNEREADBITS| 00001C30: 00 4C 44 41 59 4C 50 4F 53 3B D9 20 D0 4F 53 49 |.LDAYLPOS;. .OSI| 00001C40: 54 49 4F 4E 20 48 4F 4C 45 4E 00 41 4E 44 23 25 |TION HOLEN.AND#%| 00001C50: 30 30 30 30 30 31 31 31 3B 3D D0 4F 53 20 49 4E |00000111;=.OS IN| 00001C60: 20 DA 45 49 4C 45 20 28 30 2D 37 29 00 53 54 41 | .EILE (0-7).STA| 00001C70: 24 46 46 3B 4D 45 52 4B 45 4E 00 41 53 4C 3B 2A |$FF;MERKEN.ASL;*| 00001C80: 32 20 28 30 2C 32 2C 34 2C 2E 2E 2E 2C 31 34 29 |2 (0,2,4,...,14)| 00001C90: 00 43 4C 43 00 41 44 43 24 46 46 3B 2A 33 20 28 |.CLC.ADC$FF;*3 (| 00001CA0: 30 2C 33 2C 36 2C 39 2C 2E 2E 2E 2C 32 31 29 00 |0,3,6,9,...,21).| 00001CB0: 54 41 58 3B CF 46 46 53 45 54 20 5A 55 4D 20 C5 |TAX;.FFSET ZUM .| 00001CC0: 49 4E 4F 44 45 52 4E 00 4C 44 59 23 30 00 45 49 |INODERN.LDY#0.EI| 00001CD0: 4E 4F 44 45 52 4E 3A 4C 44 41 50 46 45 49 4C 42 |NODERN:LDAPFEILB| 00001CE0: 49 54 53 2C 59 3B C2 49 54 4D 55 53 54 45 52 20 |ITS,Y;.ITMUSTER | 00001CF0: D0 46 45 49 4C 00 4F 52 41 42 49 54 4D 55 53 54 |.FEIL.ORABITMUST| 00001D00: 45 52 2C 58 3B 49 4E 20 C2 49 54 4D 55 53 54 45 |ER,X;IN .ITMUSTE| 00001D10: 52 20 DA 45 49 43 48 45 4E 00 53 54 41 42 49 54 |R .EICHEN.STABIT| 00001D20: 4D 55 53 54 45 52 2C 58 3B 45 49 4E 4F 44 45 52 |MUSTER,X;EINODER| 00001D30: 4E 00 49 4E 58 00 49 4E 59 00 43 50 59 23 32 34 |N.INX.INY.CPY#24| 00001D40: 3B 53 43 48 4F 4E 20 33 2A 38 20 C2 59 54 45 20 |;SCHON 3*8 .YTE | 00001D50: 3F 00 42 4E 45 45 49 4E 4F 44 45 52 4E 00 4C 44 |?.BNEEINODERN.LD| 00001D60: 59 23 30 00 57 52 49 54 45 42 49 54 53 3A 4C 44 |Y#0.WRITEBITS:LD| 00001D70: 41 42 59 54 45 41 44 52 2C 59 00 53 54 41 24 46 |ABYTEADR,Y.STA$F| 00001D80: 41 3B C2 49 54 41 44 52 45 53 53 45 20 49 4D 20 |A;.ITADRESSE IM | 00001D90: D6 C4 C3 00 53 54 59 24 38 34 3B D9 20 4D 45 52 |....STY$84;. MER| 00001DA0: 4B 45 4E 00 4C 44 41 23 24 32 46 3B C8 49 47 48 |KEN.LDA#$2F;.IGH| 00001DB0: 42 59 54 45 20 C1 44 52 45 53 53 45 00 53 54 41 |BYTE .DRESSE.STA| 00001DC0: 24 46 42 00 4A 53 52 55 50 44 41 54 45 3B C1 44 |$FB.JSRUPDATE;.D| 00001DD0: 52 45 53 53 45 20 41 4E 20 D6 C4 C3 00 4C 44 41 |RESSE AN ....LDA| 00001DE0: 4F 46 46 53 45 54 45 4E 44 2C 59 00 53 54 41 24 |OFFSETEND,Y.STA$| 00001DF0: 41 39 00 4C 44 41 4F 46 46 53 45 54 42 45 47 2C |A9.LDAOFFSETBEG,| 00001E00: 59 00 54 41 59 00 50 4F 4B 45 42 49 54 53 3A 4C |Y.TAY.POKEBITS:L| 00001E10: 44 41 42 49 54 4D 55 53 54 45 52 2C 59 3B C2 49 |DABITMUSTER,Y;.I| 00001E20: 54 4D 55 53 54 45 52 20 4C 41 44 45 4E 00 4A 53 |TMUSTER LADEN.JS| 00001E30: 52 56 44 43 57 52 49 54 45 3B 55 4E 44 20 41 4E |RVDCWRITE;UND AN| 00001E40: 20 D6 C4 C3 20 47 45 42 45 4E 00 49 4E 59 00 49 | ... GEBEN.INY.I| 00001E50: 4E 59 00 49 4E 59 00 43 50 59 24 41 39 3B 53 43 |NY.INY.CPY$A9;SC| 00001E60: 48 4F 4E 20 38 20 C2 59 54 45 20 3F 00 42 4E 45 |HON 8 .YTE ?.BNE| 00001E70: 50 4F 4B 45 42 49 54 53 3B 4E 45 49 4E 20 3D 3D |POKEBITS;NEIN ==| 00001E80: 3E 00 4C 44 59 24 38 34 3B D9 20 45 52 49 4E 4E |>.LDY$84;. ERINN| 00001E90: 45 52 4E 00 49 4E 59 00 43 50 59 23 36 3B 53 43 |ERN.INY.CPY#6;SC| 00001EA0: 48 4F 4E 20 36 20 DA 45 49 43 48 45 4E 20 3F 00 |HON 6 .EICHEN ?.| 00001EB0: 42 4E 45 57 52 49 54 45 42 49 54 53 3B 4E 45 49 |BNEWRITEBITS;NEI| 00001EC0: 4E 20 3D 3D 3E 00 4C 44 59 23 24 46 30 3B 4E 45 |N ==>.LDY#$F0;NE| 00001ED0: 55 45 20 C2 49 4C 44 53 43 48 49 52 4D 43 4F 44 |UE .ILDSCHIRMCOD| 00001EE0: 45 53 00 4C 44 41 41 44 52 4D 45 4D 3B C2 49 4C |ES.LDAADRMEM;.IL| 00001EF0: 44 53 43 48 49 52 4D 50 4F 53 49 54 49 4F 4E 00 |DSCHIRMPOSITION.| 00001F00: 4C 44 58 41 44 52 4D 45 4D 2B 31 3B 45 52 49 4E |LDXADRMEM+1;ERIN| 00001F10: 4E 45 52 4E 00 53 54 41 24 46 41 00 53 54 58 24 |NERN.STA$FA.STX$| 00001F20: 46 42 00 43 4F 44 45 50 4F 4B 45 3A 4A 53 52 55 |FB.CODEPOKE:JSRU| 00001F30: 50 44 41 54 45 3B C1 44 52 45 53 53 45 20 41 4E |PDATE;.DRESSE AN| 00001F40: 20 D6 C4 C3 00 4E 45 58 54 43 4F 44 45 3A 54 59 | ....NEXTCODE:TY| 00001F50: 41 00 4A 53 52 56 44 43 57 52 49 54 45 3B C3 4F |A.JSRVDCWRITE;.O| 00001F60: 44 45 20 41 4E 20 D6 C4 C3 00 49 4E 59 00 43 50 |DE AN ....INY.CP| 00001F70: 59 23 24 46 33 00 42 45 51 50 4F 4B 45 49 4E 43 |Y#$F3.BEQPOKEINC| 00001F80: 00 43 50 59 23 24 46 36 00 42 4E 45 4E 45 58 54 |.CPY#$F6.BNENEXT| 00001F90: 43 4F 44 45 00 42 45 51 43 4F 50 4F 45 4E 44 3B |CODE.BEQCOPOEND;| 00001FA0: 41 4C 4C 45 20 36 20 C3 4F 44 45 53 20 47 45 50 |ALLE 6 .ODES GEP| 00001FB0: 4F 4B 45 54 00 50 4F 4B 45 49 4E 43 3A 4C 44 41 |OKET.POKEINC:LDA| 00001FC0: 23 53 50 41 5A 41 48 4C 00 43 4C 43 00 41 44 43 |#SPAZAHL.CLC.ADC| 00001FD0: 24 46 41 00 53 54 41 24 46 41 00 42 43 43 43 4F |$FA.STA$FA.BCCCO| 00001FE0: 44 45 50 4F 4B 45 00 49 4E 43 24 46 42 00 42 4E |DEPOKE.INC$FB.BN| 00001FF0: 45 43 4F 44 45 50 4F 4B 45 3B 49 4D 4D 45 52 00 |ECODEPOKE;IMMER.| 00002000: 43 4F 50 4F 45 4E 44 3A 4C 44 41 41 44 52 4D 45 |COPOEND:LDAADRME| 00002010: 4D 3B 41 4B 54 55 45 4C 4C 45 20 C2 49 4C 44 53 |M;AKTUELLE .ILDS| 00002020: 43 48 49 52 4D 41 44 52 45 53 53 45 00 53 54 41 |CHIRMADRESSE.STA| 00002030: 41 4B 54 41 44 52 45 53 53 3B 4D 45 52 4B 45 4E |AKTADRESS;MERKEN| 00002040: 00 53 54 41 24 46 41 00 4C 44 41 41 44 52 4D 45 |.STA$FA.LDAADRME| 00002050: 4D 2B 31 00 53 54 41 41 4B 54 41 44 52 45 53 53 |M+1.STAAKTADRESS| 00002060: 2B 31 00 43 4C 43 00 41 44 43 23 3E 41 54 54 53 |+1.CLC.ADC#>ATTS| 00002070: 54 41 52 54 00 53 54 41 24 46 42 00 4C 44 59 23 |TART.STA$FB.LDY#| 00002080: 30 00 41 54 54 4E 45 57 3A 4A 53 52 55 50 44 41 |0.ATTNEW:JSRUPDA| 00002090: 54 45 3B C1 44 52 45 53 53 45 20 41 4E 20 D6 C4 |TE;.DRESSE AN ..| 000020A0: C3 00 4E 45 58 54 41 54 54 3A 4C 44 41 41 54 54 |..NEXTATT:LDAATT| 000020B0: 52 49 42 55 54 45 2C 59 00 41 4E 44 23 25 30 31 |RIBUTE,Y.AND#%01| 000020C0: 31 31 31 31 31 31 3B C2 4C 49 4E 4B 45 4E 2C D2 |111111;.LINKEN,.| 000020D0: 45 56 45 52 53 20 41 55 53 2C DA 45 49 43 48 45 |EVERS AUS,.EICHE| 000020E0: 4E 53 41 54 5A 20 31 00 4A 53 52 56 44 43 57 52 |NSATZ 1.JSRVDCWR| 000020F0: 49 54 45 00 49 4E 59 3B 4E 45 55 45 20 C1 54 54 |ITE.INY;NEUE .TT| 00002100: 52 49 42 55 54 45 20 41 4E 20 D6 C4 C3 00 43 50 |RIBUTE AN ....CP| 00002110: 59 23 33 00 42 45 51 41 54 54 49 4E 43 00 43 50 |Y#3.BEQATTINC.CP| 00002120: 59 23 36 00 42 4E 45 4E 45 58 54 41 54 54 00 42 |Y#6.BNENEXTATT.B| 00002130: 45 51 41 54 4E 45 45 4E 44 00 41 54 54 49 4E 43 |EQATNEEND.ATTINC| 00002140: 3A 4C 44 41 23 53 50 41 5A 41 48 4C 00 43 4C 43 |:LDA#SPAZAHL.CLC| 00002150: 00 41 44 43 24 46 41 00 53 54 41 24 46 41 00 42 |.ADC$FA.STA$FA.B| 00002160: 43 43 41 54 54 4E 45 57 00 49 4E 43 24 46 42 00 |CCATTNEW.INC$FB.| 00002170: 42 4E 45 41 54 54 4E 45 57 3B 49 4D 4D 45 52 00 |BNEATTNEW;IMMER.| 00002180: 41 54 4E 45 45 4E 44 3A 4C 44 59 23 5A 4F 45 47 |ATNEEND:LDY#ZOEG| 00002190: 45 52 3B DA 45 49 54 56 45 52 5A 4F 45 47 45 52 |ER;.EITVERZOEGER| 000021A0: 55 4E 47 00 4C 44 58 23 30 3B 56 45 52 48 49 4E |UNG.LDX#0;VERHIN| 000021B0: 44 45 52 54 20 45 49 4E 00 54 49 4D 45 4C 4F 4F |DERT EIN.TIMELOO| 000021C0: 50 31 3A 44 45 58 3B C6 4C 49 4D 4D 45 52 4E 20 |P1:DEX;.LIMMERN | 000021D0: 44 45 53 20 D0 46 45 49 4C 53 00 42 4E 45 54 49 |DES .FEILS.BNETI| 000021E0: 4D 45 4C 4F 4F 50 31 00 44 45 59 00 42 4E 45 54 |MELOOP1.DEY.BNET| 000021F0: 49 4D 45 4C 4F 4F 50 31 00 52 54 53 3B C5 4E 44 |IMELOOP1.RTS;.ND| 00002200: 45 20 44 45 53 20 C5 49 4E 53 43 48 41 4C 54 45 |E DES .INSCHALTE| 00002210: 4E 53 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NS.;------------| 00002220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002230: 2D 00 53 50 52 41 55 53 3A 4C 44 41 41 4B 54 41 |-.SPRAUS:LDAAKTA| 00002240: 44 52 45 53 53 3B 41 4B 54 55 45 4C 4C 45 20 C2 |DRESS;AKTUELLE .| 00002250: 49 4C 44 53 43 48 49 52 4D 41 44 52 45 53 53 45 |ILDSCHIRMADRESSE| 00002260: 00 53 54 41 24 46 41 00 4C 44 41 41 4B 54 41 44 |.STA$FA.LDAAKTAD| 00002270: 52 45 53 53 2B 31 00 43 4C 43 00 41 44 43 23 3E |RESS+1.CLC.ADC#>| 00002280: 41 54 54 53 54 41 52 54 3B 45 52 47 49 42 54 20 |ATTSTART;ERGIBT | 00002290: C1 44 52 45 53 53 45 20 49 4E 00 53 54 41 24 46 |.DRESSE IN.STA$F| 000022A0: 42 3B C1 54 54 52 49 42 55 54 53 50 45 49 43 48 |B;.TTRIBUTSPEICH| 000022B0: 45 52 00 4C 44 59 23 30 00 41 54 54 4F 4C 44 3A |ER.LDY#0.ATTOLD:| 000022C0: 4A 53 52 55 50 44 41 54 45 3B C1 44 52 45 53 53 |JSRUPDATE;.DRESS| 000022D0: 45 20 41 4E 20 D6 C4 C3 00 4E 45 58 54 41 54 4F |E AN ....NEXTATO| 000022E0: 4C 3A 4C 44 41 41 54 54 52 49 42 55 54 45 2C 59 |L:LDAATTRIBUTE,Y| 000022F0: 00 4A 53 52 56 44 43 57 52 49 54 45 3B 41 4C 54 |.JSRVDCWRITE;ALT| 00002300: 45 20 C1 54 54 52 49 42 55 54 45 00 49 4E 59 3B |E .TTRIBUTE.INY;| 00002310: 57 49 45 44 45 52 20 41 4E 20 D6 C4 C3 00 43 50 |WIEDER AN ....CP| 00002320: 59 23 33 00 42 45 51 41 54 4F 4C 49 4E 43 00 43 |Y#3.BEQATOLINC.C| 00002330: 50 59 23 36 00 42 4E 45 4E 45 58 54 41 54 4F 4C |PY#6.BNENEXTATOL| 00002340: 00 42 45 51 41 54 4F 4C 45 4E 44 00 41 54 4F 4C |.BEQATOLEND.ATOL| 00002350: 49 4E 43 3A 4C 44 41 23 53 50 41 5A 41 48 4C 00 |INC:LDA#SPAZAHL.| 00002360: 43 4C 43 00 41 44 43 24 46 41 00 53 54 41 24 46 |CLC.ADC$FA.STA$F| 00002370: 41 00 42 43 43 41 54 54 4F 4C 44 00 49 4E 43 24 |A.BCCATTOLD.INC$| 00002380: 46 42 00 42 4E 45 41 54 54 4F 4C 44 3B 49 4D 4D |FB.BNEATTOLD;IMM| 00002390: 45 52 00 41 54 4F 4C 45 4E 44 3A 4C 44 41 41 4B |ER.ATOLEND:LDAAK| 000023A0: 54 41 44 52 45 53 53 00 4C 44 59 41 4B 54 41 44 |TADRESS.LDYAKTAD| 000023B0: 52 45 53 53 2B 31 00 53 54 41 24 46 41 00 53 54 |RESS+1.STA$FA.ST| 000023C0: 59 24 46 42 00 4C 44 59 23 30 00 43 4F 44 45 4F |Y$FB.LDY#0.CODEO| 000023D0: 4C 44 3A 4A 53 52 55 50 44 41 54 45 3B C1 44 52 |LD:JSRUPDATE;.DR| 000023E0: 45 53 53 45 20 41 4E 20 D6 C4 C3 00 4E 45 58 54 |ESSE AN ....NEXT| 000023F0: 43 4F 4F 4C 3A 4C 44 41 42 49 4C 44 43 4F 44 45 |COOL:LDABILDCODE| 00002400: 2C 59 00 4A 53 52 56 44 43 57 52 49 54 45 3B 41 |,Y.JSRVDCWRITE;A| 00002410: 4C 54 45 20 C2 49 4C 44 53 43 48 49 52 4D 43 4F |LTE .ILDSCHIRMCO| 00002420: 44 45 53 00 49 4E 59 3B 57 49 45 44 45 52 20 41 |DES.INY;WIEDER A| 00002430: 4E 20 D6 C4 C3 00 43 50 59 23 33 00 42 45 51 43 |N ....CPY#3.BEQC| 00002440: 4F 4F 4C 49 4E 43 00 43 50 59 23 36 00 42 4E 45 |OOLINC.CPY#6.BNE| 00002450: 4E 45 58 54 43 4F 4F 4C 00 52 54 53 3B C5 4E 44 |NEXTCOOL.RTS;.ND| 00002460: 45 20 D3 50 52 49 54 45 41 55 53 53 43 48 41 4C |E .PRITEAUSSCHAL| 00002470: 54 45 4E 00 43 4F 4F 4C 49 4E 43 3A 4C 44 41 23 |TEN.COOLINC:LDA#| 00002480: 53 50 41 5A 41 48 4C 00 43 4C 43 00 41 44 43 24 |SPAZAHL.CLC.ADC$| 00002490: 46 41 00 53 54 41 24 46 41 00 42 43 43 43 4F 44 |FA.STA$FA.BCCCOD| 000024A0: 45 4F 4C 44 00 49 4E 43 24 46 42 00 42 4E 45 43 |EOLD.INC$FB.BNEC| 000024B0: 4F 44 45 4F 4C 44 3B 49 4D 4D 45 52 00 3B 2D 2D |ODEOLD;IMMER.;--| 000024C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000024D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4F 4C 44 58 |-----------.OLDX| 000024E0: 3A 2E 44 42 31 00 4F 4C 44 59 3A 2E 44 42 31 00 |:.DB1.OLDY:.DB1.| 000024F0: 41 44 57 45 52 54 3A 2E 44 42 31 00 4F 4C 44 41 |ADWERT:.DB1.OLDA| 00002500: 44 3A 2E 44 42 31 00 50 46 45 49 4C 3A 2E 42 59 |D:.DB1.PFEIL:.BY| 00002510: 32 35 35 2C 31 39 32 2C 32 35 35 2C 30 2C 32 35 |255,192,255,0,25| 00002520: 34 2C 30 2C 32 35 35 2C 31 32 38 00 2E 42 59 32 |4,0,255,128..BY2| 00002530: 32 37 2C 32 32 34 2C 31 32 38 2C 32 34 38 2C 30 |27,224,128,248,0| 00002540: 2C 36 32 2C 30 2C 31 32 00 42 49 4C 44 43 4F 44 |,62,0,12.BILDCOD| 00002550: 45 3A 2E 44 42 36 00 41 54 54 52 49 42 55 54 45 |E:.DB6.ATTRIBUTE| 00002560: 3A 2E 44 42 36 00 50 46 45 49 4C 42 49 54 53 3A |:.DB6.PFEILBITS:| 00002570: 2E 44 42 32 34 00 5A 45 49 4C 45 4C 4F 57 3A 2E |.DB24.ZEILELOW:.| 00002580: 42 59 24 30 30 2C 24 35 30 2C 24 41 30 2C 24 46 |BY$00,$50,$A0,$F| 00002590: 30 2C 24 34 30 2C 24 39 30 2C 24 45 30 2C 24 33 |0,$40,$90,$E0,$3| 000025A0: 30 00 2E 42 59 24 38 30 2C 24 44 30 2C 24 32 30 |0..BY$80,$D0,$20| 000025B0: 2C 24 37 30 2C 24 43 30 2C 24 31 30 2C 24 36 30 |,$70,$C0,$10,$60| 000025C0: 2C 24 42 30 00 2E 42 59 24 30 30 2C 24 35 30 2C |,$B0..BY$00,$50,| 000025D0: 24 41 30 2C 24 46 30 2C 24 34 30 2C 24 39 30 2C |$A0,$F0,$40,$90,| 000025E0: 24 45 30 2C 24 33 30 00 2E 42 59 24 38 30 2C 24 |$E0,$30..BY$80,$| 000025F0: 44 30 2C 24 32 30 2C 24 37 30 2C 24 43 30 2C 24 |D0,$20,$70,$C0,$| 00002600: 31 30 2C 24 36 30 00 5A 45 49 4C 45 48 49 47 48 |10,$60.ZEILEHIGH| 00002610: 3A 2E 42 59 24 30 30 2C 24 30 30 2C 24 30 30 2C |:.BY$00,$00,$00,| 00002620: 24 30 30 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C |$00,$01,$01,$01,| 00002630: 24 30 32 00 2E 42 59 24 30 32 2C 24 30 32 2C 24 |$02..BY$02,$02,$| 00002640: 30 33 2C 24 30 33 2C 24 30 33 2C 24 30 34 2C 24 |03,$03,$03,$04,$| 00002650: 30 34 2C 24 30 34 00 2E 42 59 24 30 35 2C 24 30 |04,$04..BY$05,$0| 00002660: 35 2C 24 30 35 2C 24 30 35 2C 24 30 36 2C 24 30 |5,$05,$05,$06,$0| 00002670: 36 2C 24 30 36 2C 24 30 37 00 2E 42 59 24 30 37 |6,$06,$07..BY$07| 00002680: 2C 24 30 37 2C 24 30 38 2C 24 30 38 2C 24 30 38 |,$07,$08,$08,$08| 00002690: 2C 24 30 39 2C 24 30 39 00 4F 46 46 53 45 54 42 |,$09,$09.OFFSETB| 000026A0: 45 47 3A 2E 42 59 24 30 30 2C 24 30 31 2C 24 30 |EG:.BY$00,$01,$0| 000026B0: 32 2C 24 31 38 2C 24 31 39 2C 24 31 41 00 4F 46 |2,$18,$19,$1A.OF| 000026C0: 46 53 45 54 45 4E 44 3A 2E 42 59 24 31 38 2C 24 |FSETEND:.BY$18,$| 000026D0: 31 39 2C 24 31 41 2C 24 33 30 2C 24 33 31 2C 24 |19,$1A,$30,$31,$| 000026E0: 33 32 00 42 59 54 45 41 44 52 3A 2E 42 59 24 30 |32.BYTEADR:.BY$0| 000026F0: 30 2C 24 31 30 2C 24 32 30 2C 24 33 30 2C 24 34 |0,$10,$20,$30,$4| 00002700: 30 2C 24 35 30 00 42 49 54 4D 55 53 54 45 52 3A |0,$50.BITMUSTER:| 00002710: 2E 44 42 34 38 00 41 4B 54 41 44 52 45 53 53 3A |.DB48.AKTADRESS:| 00002720: 2E 44 42 32 00 2E 45 4E 00 20 00 00 20 |.DB2..EN. .. |
)'; ***********************************. ; * MAUSTREIBER UND PFEILGENERATOR *.; * FUER DEN 80-ZEICHEN BILDSCHIRM *.; ** *********************************.;.; -- --------------------.; --- SYSTEMADRESSE N ---.; ----------------------.;.ADCX:.E Q$D419;AD-WANDLER X-RICHTUNG.ADCY:.EQ$D4 1A;AD-WANDLER Y-RICHTUNG.XLOW:.EQ$1170;V ORBESETZBARE WERTE.XHIGH:.EQ$1171;FUER P OSITION.YLOW:.EQ$1172;BEI AUFRUF.XLPOS:. EQ$116A;AKTUELLE POSITION.XHPOS:.EQ$116B .YLPOS:.EQ$116C.VDCWRITE:.EQ$CDCA;WERT A AN VDC.VDCREAD:.EQ$CDD8;WERT A AUS REGI STER X.VDCPOKE:.EQ$CDCC;WERT A IN REGIST ER X.MAUSTASTE:.EQ$DC01;REGISTER CIA.IIR QVEK:.EQ$0314;INTERUPT-VEKTOR.SPRFLAG:.E Q$1173;FLAG FUER SPRITE EIN/AUS.ADRMEM:. EQ$AA;AKT. BILDSCHIRMADRESSE.ZOEGER:.EQ2 1;WERT FUER ZEITVERZOEGERUNG.;---------- ---------------------..BA$1300;STARTADRE SSE = $171F..WA;FEHLER ABFANGEN..OC;NICH T INS RAM..OU"MAUS.TEXTIL 80".ATTSTART:. IN".ATTRIBUTSTART: $0800.....".ZEIZAHL:. IN"ANZAHL BIDSCHIRMZEILEN: 25..".SPAZAHL :.IN"ANZAHL BILDSCHIRMSPALTEN: 80..".MAX ZEILE:.EQZEIZAHL*8-9.MAXSPALTE:.EQSPAZAH L*8-17.;.; -----------------.; --- QUELL TEXT ---.; -----------------.;.JMPINITIA L;INITIALISIEREN.JMPSTEUERUNG.;--------- ----------------------.INITIAL:LDA#0;SPR ITEKOORDINATEN.LDX#3;LOESCHEN.INITCLR:ST AXLOW,X.DEX.BPLINITCLR.STA$FA;ADRESSE $3 F00 AN VDC.LDA#$3F.STA$FB.JSRUPDATE.LDY# $60;96 BYTE LOESCHEN.LDA#0;SONST FLACKER N BEI DER.BYTESCLR:JSRVDCWRITE;BEWEGUNG DES PFEILS.DEY.BNEBYTESCLR.LDA#<USRPRG;U SER-VEKTOR EINSTELLEN.LDX#>USRPRG;ZUR AB FRAGE DER.STA$1219;POSITIONEN.STX$121A.R TS.;-------------------------------.STEU ERUNG:STAXLOW;KOORDINATEN.STXYLOW;UEBERN EHMEN.LDY#0.STYXHIGH.LDAYLOW;Y-POSITION * 8 + 3.ASL;ERGIBT PIXELPOSITION Y.ASL.A SL.ORA#%00000011.STAYLOW.ASLXLOW;X-POSIT ION * 8 + 3.ROLXHIGH;ERGIBT PIXELPOSITIO N X.ASLXLOW.ROLXHIGH.ASLXLOW.ROLXHIGH.LD AXLOW.ORA#%00000011.STAXLOW.SEI;INTERUPT VERHINDERN.LDAIIRQVEK;ALTE INTERUPTADRE SSE.LDYIIRQVEK+1.STAINTER1+1;AN SPRUNGST ELLEN.STYINTER1+2;SCHREIBEN.STAINTER2+1. STYINTER2+2.LDA#<NEWIRQ;NEUE INTERUPTADR ESSE.LDY#>NEWIRQ.STAIIRQVEK;EINKLINKEN.S TYIIRQVEK+1.LDAADCX;DAMIT DER PFEIL.STAO LDX;NICHT SPRINGT.LDAADCY.STAOLDY.CLI;IN TERUPT ERLAUBEN.JMPMAUSMAIN;MIT HAUPTPRG WEITER.;.; -----------------------.; -- - ABFRAGEPROGRAMM ---.; ---------------- -------.;.NEWIRQ:CLD;SICHERHEITSHALBER.L DAADCX;ADC X ABFRAGEN.LDYOLDX;ALTER ADC X WERT.JSRGETDIFF;DIFFERENZ ERRECHNEN.ST YOLDX;AKTUELLER ADX WERT.TAY.AND#%100000 00;RELATIVE POSITION.STA$FF;*2, WEGEN DE R.TYA;VERAENDERTEN.ASL;BILDSCHIRMGEOMETR IE.ORA$FF.CLC.ADCXLOW;DIFFERENZ + X LOW. STAXLOW;MERKEN.LDAXHIGH.STX$FF.ADC$FF.ST AXHIGH.LDAADCY;ADC Y ABFRAGEN.LDYOLDY.JS RGETDIFF.STYOLDY.EOR#$FF;ALLE BITS UMDRE HEN.SEC;ERGIBT DAS KOMPLEMENT.ADCYLOW.ST AYLOW.LDAXHIGH.CMP#$FF;WENN JA, DANN X G ANZ LINKS.BEQPOS2;JA ==>.SEC.LDA#<MAXSPA LTE;X POS. > 623 ?.SBCXLOW.LDA#>MAXSPALT E.SBCXHIGH.BCCPOS3;C=0 ==> GROESSER.POS1 :LDA#<MAXZEILE;MAX Y POS.CMPYLOW.BCSINTE R1;C=1 ==> OK.LDA#<MAXZEILE+36.CMPYLOW.B CCPOS4.LDA#<MAXZEILE.STAYLOW;Y GANZ UNTE N.INTER1:JMP$FA65;MIT INTERRUPT WEITER.P OS2:LDA#0.STAXLOW;X GANZ LINKS.STAXHIGH. JMPPOS1.POS3:LDA#<MAXSPALTE.STAXLOW;X GA NZ RECHTS.LDA#>MAXSPALTE.STAXHIGH.JMPPOS 1.POS4:LDA#0.STAYLOW.INTER2:JMP$FA65.;-- -----------------------------.GETDIFF:ST YOLDAD.STAADWERT.LDX#0;VORBESETZUNG.SEC. SBCOLDAD;NEUER WERT - ALTER WERT.AND#$7F ;BIT 7 AUSBLENDEN.CMP#$40;=% 0100 0000.B CSGET1;GROESSER.LSR;/2 (UNTERES BIT AUSB LENDEN).BEQGET0;KEINE BEWEGUNG.LDYADWERT ;NEUER WERT.RTS;NORMALE BEWEGUNG.GET1:OR A#$C0;BIT 7+6 SETZEN.CMP#$FF.BEQGET0;$FF = KEINE BEWEGUNG.SEC.ROR;/2 UND BIT 7 S ETZEN.LDX#$FF.LDYADWERT.RTS.GET0:LDA#00. RTS.;-------------------------------.USR PRG:JSR$8CC7;GLEITKOMMA-INTEGER-WANDLUNG .LDA$67;INTEGER LOW-BYTE.CMP#1;USR(1) ?. BEQUSR1;JA ==>.CMP#2;USR(2) ?.BNEUSRREAD Y;NEIN ==>.LDAYLPOS;LETZTE Y-POSITION.LS R;/8 = ZEILENNUMMER.LSR.LSR.STA$65;ZUR G K-BERECHNUNG.LDA#0.STA$64.BEQUSREND.USR1 :LDAXLPOS;LETZTE X-POSITION.LDXXHPOS.STA $65.STX$64.LSR$64;/8 = SPALTENNUMMER.ROR $65.LSR$64.ROR$65.LSR$64.ROR$65.USREND:L DX#$90.SEC.JSR$8C75;INTEGER-GLEITKOMMA-W ANDLUNG.USRREADY:RTS.;------------------ -------------.UPDATE:LDA$FB;UPDATEADRESS E.LDX#$12;AN VDC UEBERGEBEN.JSRVDCPOKE.L DA$FA.INX.JMPVDCPOKE.;------------------ -------------.MAUSAGAIN:JSRSPRAUS;SPRITE AUSSCHALTEN.MAUSMAIN:LDAXLOW;KOORDINATE N ANPASSEN.STAXLPOS.LDAXHIGH.STAXHPOS.LD AYLOW.STAYLPOS.JSRSPREIN;SPRITE EINSCHAL TEN.MAINLOOP:LDAXHIGH;X-POSITION VERAEND ERT ?.CMPXHPOS.BNEMAUSAGAIN;<>0 ==> JA.L DAXLOW;X-POSITION VERAENDERT ?.CMPXLPOS. BNEMAUSAGAIN;<>0 ==> JA.LDAYLOW;Y-POSITI ON VERAENDERT ?.CMPYLPOS.BNEMAUSAGAIN;<> 0 ==> JA.LDAMAUSTASTE;LINKE MAUSTASTE GE DRUECKT ?.AND#$10;ALLE ANDEREN BITS AUSB LENDEN.BNEMAINLOOP;BIT 5 HIGH ==> NEIN.J SRSPRAUS;SPRITE AUSSCHALTEN.ENTPRELL:LDX #0;KURZE WARTESCHLEIFE.TIMELOOP:DEX;ZUR TASTENENTPRELLUNG.BNETIMELOOP.LDAMAUSTAS TE;LINKE TASTE GEDRUECKT ?.AND#$10.BEQEN TPRELL;=0 ==> JA,WARTEN.LDA#0;TASTATURPU FFER.STA$D0;UND FUNKTIONSTASTENPUFFER.ST A$D1;LOESCHEN.SEI.LDAINTER1+1;ALTEN INTE RUPTVEKTOR.LDYINTER1+2;WIEDER AKTIVIEREN .STAIIRQVEK.STYIIRQVEK+1.CLI;INTERRUPT E RLAUBEN.RTS;RUECKSPRUNG.;--------------- ----------------.SPREIN:LDX#0;BITMUSTER DES PFEILS.LDY#0;IN VERSCHIEBEBEREICH.PF EILCOPY:LDAPFEIL,Y;KOPIEREN.STAPFEILBITS ,X.INY.INX.LDAPFEIL,Y.STAPFEILBITS,X.INX .LDA#0.STAPFEILBITS,X.INY.INX.CPY#16.BNE PFEILCOPY.LDAXLPOS;X-POSITION LADEN.AND# %00000111;BITS 3-7 AUSBLENDEN.BEQNOTROT; =0 ==> GANZ LINKS IM BYTE.TAY.NEXTBIT:LD X#0;PFEILDATEN UM PIXELPOSITION.ROTON:LS RPFEILBITS,X;NACH RECHTS ROTIEREN.INX.RO RPFEILBITS,X.INX.RORPFEILBITS,X.INX.CPX# $18.BNEROTON.DEY.BNENEXTBIT.NOTROT:LDAYL POS;AKTUELLE ZEILE ERRECHNEN.LSR.LSR.LSR .TAY.LDAZEILELOW,Y;ZEILENANFANGSADRESSE AUS.STA$FA;TABELLEN UEBERTRAGEN.LDAZEILE HIGH,Y.STA$FB.LDAXLPOS;AKTUELLE SPALTE B ERECHNEN.STA$FC.LDAXHPOS.STA$FD.LSR$FD.R OR$FC.LSR$FD.ROR$FC.LSR$FD.ROR$FC;ZEILEN ANFANGSADRESSE.LDA$FC;+SPALTENANZAHL.CLC .ADC$FA;ERGIBT AKTUELLE ADRESSE.STA$FA;I M VIDEORAM.BCCZEILENI.INC$FB.ZEILENI:LDA $FA;AKTUELLE ADRESSE IM BILD-.LDY$FB;SCH IRM MERKEN.STAADRMEM.STYADRMEM+1.LDY#0.C ODEREAD:JSRUPDATE;ADRESSE AN VDC.CORE1:J SRVDCREAD;BYTE VON VDC HOLEN.STABILDCODE ,Y;UND MERKEN.INY.CPY#3.BEQCORE2;NAECHST E ZEILE.CPY#6.BNECORE1.BEQCOREADY.CORE2: LDA#SPAZAHL;RASTER 3*2 BYTE.CLC.ADC$FA.S TA$FA.BCCCODEREAD.INC$FB.BNECODEREAD;IMM ER.COREADY:LDAADRMEM.LDYADRMEM+1.STA$FA. STY$FB.CLC.LDA#>ATTSTART;ZEIGER AUF ATTR IBUTE.ADC$FB;BERECHNEN.STA$FB.LDY#0.ATTR EAD:JSRUPDATE.ATRE1:JSRVDCREAD;AKTUELLE ATTRIBUTBYTES.STAATTRIBUTE,Y;VON VDC LES EN.INY;UND MERKEN.CPY#3.BEQATRE2.CPY#6.B NEATRE1.BEQATREADY.ATRE2:LDA#SPAZAHL.CLC .ADC$FA.STA$FA.BCCATTREAD.INC$FB.BNEATTR EAD;IMMER.ATREADY:LDY#0.READBITS:STY$84. LDABILDCODE,Y;BILDSCHIRMCODE=.STA$FA;ADR ESSE IM ZEICHENSATZ.LDA#0.STA$FB.LDAATTR IBUTE,Y;ENTSPR. ATTRIBUT.BPLNOTSET;BIT 7 =0 ==> ZEICHENSATZ 1.LDA#$30;START ZEICH ENSATZ 1.BIT.NOTSET:LDA#$20;START ZEICHE NSATZ 2.STA$A8.LDX#4;ADRESSE 4 BIT NACH LINKS.MAL16:ASL$FA;=ADRESSE MAL 16.ROL$F B;=ADRESSE DES BITMUSTERS.DEX;IM ZEICHEN SATZ.BNEMAL16.CLC.LDA$A8;GRUNDADRESSE AD DIEREN.ADC$FB.STA$FB.JSRUPDATE;ADRESSE A N VDC.LDY$84;Y ERINNERN.LDAOFFSETEND,Y;Z UM UMSPEICHERN DER BITS.STA$A9.LDAOFFSET BEG,Y.TAY.PEEKBITS:JSRVDCREAD;BITS VON V DC HOLEN.STABITMUSTER,Y;IN TABELLE SCHRE IBEN.INY.INY.INY.CPY$A9;SCHON 8 BYTES ?. BNEPEEKBITS.LDY$84.INY.CPY#6;SCHON 6 BYT ES ?.BNEREADBITS.LDAYLPOS;Y POSITION HOL EN.AND#%00000111;=POS IN ZEILE (0-7).STA $FF;MERKEN.ASL;*2 (0,2,4,...,14).CLC.ADC $FF;*3 (0,3,6,9,...,21).TAX;OFFSET ZUM E INODERN.LDY#0.EINODERN:LDAPFEILBITS,Y;BI TMUSTER PFEIL.ORABITMUSTER,X;IN BITMUSTE R ZEICHEN.STABITMUSTER,X;EINODERN.INX.IN Y.CPY#24;SCHON 3*8 BYTE ?.BNEEINODERN.LD Y#0.WRITEBITS:LDABYTEADR,Y.STA$FA;BITADR ESSE IM VDC.STY$84;Y MERKEN.LDA#$2F;HIGH BYTE ADRESSE.STA$FB.JSRUPDATE;ADRESSE AN VDC.LDAOFFSETEND,Y.STA$A9.LDAOFFSETBEG, Y.TAY.POKEBITS:LDABITMUSTER,Y;BITMUSTER LADEN.JSRVDCWRITE;UND AN VDC GEBEN.INY.I NY.INY.CPY$A9;SCHON 8 BYTE ?.BNEPOKEBITS ;NEIN ==>.LDY$84;Y ERINNERN.INY.CPY#6;SC HON 6 ZEICHEN ?.BNEWRITEBITS;NEIN ==>.LD Y#$F0;NEUE BILDSCHIRMCODES.LDAADRMEM;BIL DSCHIRMPOSITION.LDXADRMEM+1;ERINNERN.STA $FA.STX$FB.CODEPOKE:JSRUPDATE;ADRESSE AN VDC.NEXTCODE:TYA.JSRVDCWRITE;CODE AN VD C.INY.CPY#$F3.BEQPOKEINC.CPY#$F6.BNENEXT CODE.BEQCOPOEND;ALLE 6 CODES GEPOKET.POK EINC:LDA#SPAZAHL.CLC.ADC$FA.STA$FA.BCCCO DEPOKE.INC$FB.BNECODEPOKE;IMMER.COPOEND: LDAADRMEM;AKTUELLE BILDSCHIRMADRESSE.STA AKTADRESS;MERKEN.STA$FA.LDAADRMEM+1.STAA KTADRESS+1.CLC.ADC#>ATTSTART.STA$FB.LDY# 0.ATTNEW:JSRUPDATE;ADRESSE AN VDC.NEXTAT T:LDAATTRIBUTE,Y.AND#%01111111;BLINKEN,R EVERS AUS,ZEICHENSATZ 1.JSRVDCWRITE.INY; NEUE ATTRIBUTE AN VDC.CPY#3.BEQATTINC.CP Y#6.BNENEXTATT.BEQATNEEND.ATTINC:LDA#SPA ZAHL.CLC.ADC$FA.STA$FA.BCCATTNEW.INC$FB. BNEATTNEW;IMMER.ATNEEND:LDY#ZOEGER;ZEITV ERZOEGERUNG.LDX#0;VERHINDERT EIN.TIMELOO P1:DEX;FLIMMERN DES PFEILS.BNETIMELOOP1. DEY.BNETIMELOOP1.RTS;ENDE DES EINSCHALTE NS.;-----------------------------.SPRAUS :LDAAKTADRESS;AKTUELLE BILDSCHIRMADRESSE .STA$FA.LDAAKTADRESS+1.CLC.ADC#>ATTSTART ;ERGIBT ADRESSE IN.STA$FB;ATTRIBUTSPEICH ER.LDY#0.ATTOLD:JSRUPDATE;ADRESSE AN VDC .NEXTATOL:LDAATTRIBUTE,Y.JSRVDCWRITE;ALT E ATTRIBUTE.INY;WIEDER AN VDC.CPY#3.BEQA TOLINC.CPY#6.BNENEXTATOL.BEQATOLEND.ATOL INC:LDA#SPAZAHL.CLC.ADC$FA.STA$FA.BCCATT OLD.INC$FB.BNEATTOLD;IMMER.ATOLEND:LDAAK TADRESS.LDYAKTADRESS+1.STA$FA.STY$FB.LDY #0.CODEOLD:JSRUPDATE;ADRESSE AN VDC.NEXT COOL:LDABILDCODE,Y.JSRVDCWRITE;ALTE BILD SCHIRMCODES.INY;WIEDER AN VDC.CPY#3.BEQC OOLINC.CPY#6.BNENEXTCOOL.RTS;ENDE SPRITE AUSSCHALTEN.COOLINC:LDA#SPAZAHL.CLC.ADC$ FA.STA$FA.BCCCODEOLD.INC$FB.BNECODEOLD;I MMER.;-----------------------------.OLDX :.DB1.OLDY:.DB1.ADWERT:.DB1.OLDAD:.DB1.P FEIL:.BY255,192,255,0,254,0,255,128..BY2 27,224,128,248,0,62,0,12.BILDCODE:.DB6.A TTRIBUTE:.DB6.PFEILBITS:.DB24.ZEILELOW:. BY$00,$50,$A0,$F0,$40,$90,$E0,$30..BY$80 ,$D0,$20,$70,$C0,$10,$60,$B0..BY$00,$50, $A0,$F0,$40,$90,$E0,$30..BY$80,$D0,$20,$ 70,$C0,$10,$60.ZEILEHIGH:.BY$00,$00,$00, $00,$01,$01,$01,$02..BY$02,$02,$03,$03,$ 03,$04,$04,$04..BY$05,$05,$05,$05,$06,$0 6,$06,$07..BY$07,$07,$08,$08,$08,$09,$09 .OFFSETBEG:.BY$00,$01,$02,$18,$19,$1A.OF FSETEND:.BY$18,$19,$1A,$30,$31,$32.BYTEA DR:.BY$00,$10,$20,$30,$40,$50.BITMUSTER: .DB48.AKTADRESS:.DB2..EN. ..
> CLICK IMAGE PREVIEW FOR FULL MODAL