S.-PIXEL-FLD.SRC
FILE INFORMATION
FILENAME(S): S.-PIXEL-FLD.SRC
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-11-30 01:13:00
APPEARS ON: 1 disk(s)
FILE HASH
60016e810aa6980d2de0d3aa2fce8fcdd26074c686bbc2a6729de4e4207b8590
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10105 | S.-PIXEL-FLD.SRC | PRG | C64er | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 3B C1 4E 57 45 4E 44 55 4E 47 20 44 45 53 |..;.NWENDUNG DES| 00000010: 20 24 44 30 31 31 2D C5 46 46 45 4B 54 45 53 3A | $D011-.FFEKTES:| 00000020: 0D 0D 3B 20 D3 49 4E 47 4C 45 2D D0 49 58 45 4C |..; .INGLE-.IXEL| 00000030: 2D C6 CC C4 0D 0D 3B 28 43 29 C3 4F 50 59 52 49 |-.....;(C).OPYRI| 00000040: 47 48 54 20 31 39 39 31 20 42 59 20 CC D5 C2 C2 |GHT 1991 BY ....| 00000050: C5 D2 20 4F 46 20 D0 C1 C4 D5 C1 0D 0D 0D 3B C4 |.. OF ........;.| 00000060: 45 52 20 CF 52 49 47 49 4E 41 4C 2D DA 45 49 43 |ER .RIGINAL-.EIC| 00000070: 48 45 4E 53 41 54 5A 20 4D 55 53 53 20 41 42 0D |HENSATZ MUSS AB.| 00000080: 3B 20 24 33 30 30 30 20 4C 49 45 47 45 4E 0D 0D |; $3000 LIEGEN..| 00000090: 3B 5E 5E 5E 5E 20 D7 C9 C3 C8 D4 C9 C7 21 20 5E |;^^^^ .......! ^| 000000A0: 5E 5E 5E 0D 0D 3B C4 49 45 20 45 52 53 54 45 4E |^^^..;.IE ERSTEN| 000000B0: 20 35 20 4E 4F 52 4D 41 4C 45 4E 20 55 4E 44 20 | 5 NORMALEN UND | 000000C0: 44 49 45 20 45 52 53 54 45 4E 0D 3B 35 20 52 45 |DIE ERSTEN.;5 RE| 000000D0: 56 45 52 53 45 4E 20 DA 45 49 43 48 45 4E 20 44 |VERSEN .EICHEN D| 000000E0: 55 45 52 46 45 4E 20 CE C9 C3 C8 D4 0D 3B 42 45 |UERFEN ......;BE| 000000F0: 4E 55 54 5A 54 20 53 45 49 4E 20 21 20 D3 4F 4E |NUTZT SEIN ! .ON| 00000100: 53 54 20 57 45 52 44 45 4E 20 53 49 45 20 46 55 |ST WERDEN SIE FU| 00000110: 45 52 0D 3B 44 45 4E 20 C5 46 46 45 4B 54 20 5A |ER.;DEN .FFEKT Z| 00000120: 45 52 53 54 4F 45 52 54 20 21 0D 0D 3B 28 C4 41 |ERSTOERT !..;(.A| 00000130: 20 44 4F 52 54 20 44 49 45 20 D3 43 52 45 45 4E | DORT DIE .CREEN| 00000140: 5A 45 49 4C 45 4E 20 41 42 47 45 4C 45 47 54 0D |ZEILEN ABGELEGT.| 00000150: 3B 20 57 45 52 44 45 4E 29 0D 0D 0D 3B C4 49 45 |; WERDEN)...;.IE| 00000160: 20 CF 52 49 47 49 4E 41 4C 2D D3 43 52 45 45 4E | .RIGINAL-.CREEN| 00000170: 54 41 42 45 4C 4C 45 20 4D 55 53 53 20 41 42 0D |TABELLE MUSS AB.| 00000180: 3B 24 32 43 30 30 20 4C 49 45 47 45 4E 20 28 CD |;$2C00 LIEGEN (.| 00000190: 41 58 49 4D 41 4C 20 31 36 20 DA 45 49 4C 45 4E |AXIMAL 16 .EILEN| 000001A0: 20 48 4F 43 48 21 29 0D 0D 0D 4F 52 47 20 24 31 | HOCH!)...ORG $1| 000001B0: 30 30 30 20 20 3B C3 4F 44 45 20 4E 41 43 48 20 |000 ;.ODE NACH | 000001C0: 24 31 30 30 30 0D 0D 4C 44 41 20 23 38 20 20 20 |$1000..LDA #8 | 000001D0: 20 20 3B C1 4B 54 55 45 4C 4C 45 20 C6 41 52 42 | ;.KTUELLE .ARB| 000001E0: 45 20 41 55 46 0D 53 54 41 20 36 34 36 20 20 20 |E AUF.STA 646 | 000001F0: 20 3B 4F 52 41 4E 47 45 3D 53 43 48 57 41 52 5A | ;ORANGE=SCHWARZ| 00000200: 20 49 4E 20 CD 55 4C 54 49 43 4F 4C 4F 52 0D 20 | IN .ULTICOLOR. | 00000210: 20 20 20 20 20 20 20 20 20 20 3B 53 45 54 5A 45 | ;SETZE| 00000220: 4E 0D 4A 53 52 20 24 45 35 34 34 20 20 3B C2 49 |N.JSR $E544 ;.I| 00000230: 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 |LDSCHIRM LOESCHE| 00000240: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 3B 55 4E |N. ;UN| 00000250: 44 20 C3 4F 4C 4F 52 2D 52 41 4D 20 4D 49 54 0D |D .OLOR-RAM MIT.| 00000260: 20 20 20 20 20 20 20 20 20 20 20 3B 41 4B 54 55 | ;AKTU| 00000270: 45 4C 4C 45 52 20 C6 41 52 42 45 20 46 55 45 4C |ELLER .ARBE FUEL| 00000280: 4C 45 4E 0D 0D 4C 44 41 20 23 24 34 30 0D 53 54 |LEN..LDA #$40.ST| 00000290: 41 20 48 49 42 59 54 45 31 2B 32 0D 4C 44 41 20 |A HIBYTE1+2.LDA | 000002A0: 23 24 34 38 0D 53 54 41 20 48 49 42 59 54 45 32 |#$48.STA HIBYTE2| 000002B0: 2B 32 0D 4C 44 41 20 23 24 35 30 0D 53 54 41 20 |+2.LDA #$50.STA | 000002C0: 48 49 42 59 54 45 33 2B 32 0D 4C 44 41 20 23 24 |HIBYTE3+2.LDA #$| 000002D0: 35 38 20 20 20 20 20 20 20 20 20 20 20 3B C8 49 |58 ;.I| 000002E0: 47 48 42 59 54 45 53 20 46 55 45 52 0D 53 54 41 |GHBYTES FUER.STA| 000002F0: 20 48 49 42 59 54 45 34 2B 32 20 20 20 20 20 20 | HIBYTE4+2 | 00000300: 3B D5 4D 52 45 43 48 4E 55 4E 47 53 52 4F 55 54 |;.MRECHNUNGSROUT| 00000310: 49 4E 45 0D 4C 44 41 20 23 24 36 30 20 20 20 20 |INE.LDA #$60 | 00000320: 20 20 20 20 20 20 20 3B 45 52 4E 45 55 45 52 4E | ;ERNEUERN| 00000330: 0D 53 54 41 20 48 49 42 59 54 45 35 2B 32 0D 4C |.STA HIBYTE5+2.L| 00000340: 44 41 20 23 24 36 38 20 20 20 20 20 20 20 20 20 |DA #$68 | 00000350: 20 20 3B CE 55 52 20 57 49 43 48 54 49 47 2C 57 | ;.UR WICHTIG,W| 00000360: 45 4E 4E 0D 53 54 41 20 48 49 42 59 54 45 36 2B |ENN.STA HIBYTE6+| 00000370: 32 20 20 20 20 20 20 3B 44 49 45 20 D2 4F 55 54 |2 ;DIE .OUT| 00000380: 49 4E 45 20 4F 45 46 54 45 52 53 0D 4C 44 41 20 |INE OEFTERS.LDA | 00000390: 23 24 37 30 20 20 20 20 20 20 20 20 20 20 20 3B |#$70 ;| 000003A0: 56 4F 4E 20 4E 45 55 45 4D 20 47 45 53 54 41 52 |VON NEUEM GESTAR| 000003B0: 54 45 54 0D 53 54 41 20 48 49 42 59 54 45 37 2B |TET.STA HIBYTE7+| 000003C0: 32 20 20 20 20 20 20 3B 57 45 52 44 45 4E 20 53 |2 ;WERDEN S| 000003D0: 4F 4C 4C 2C 4F 48 4E 45 0D 4C 44 41 20 23 24 37 |OLL,OHNE.LDA #$7| 000003E0: 38 20 20 20 20 20 20 20 20 20 20 20 3B 44 41 53 |8 ;DAS| 000003F0: 53 20 4D 41 4E 20 44 45 4E 20 C3 4F 44 45 0D 53 |S MAN DEN .ODE.S| 00000400: 54 41 20 48 49 42 59 54 45 38 2B 32 20 20 20 20 |TA HIBYTE8+2 | 00000410: 20 20 3B 4E 45 55 20 52 45 49 4E 4C 41 44 45 4E | ;NEU REINLADEN| 00000420: 20 4D 55 53 53 2E 0D 0D 0D 4C 44 41 20 23 24 46 | MUSS....LDA #$F| 00000430: 46 0D 54 41 58 0D 3A 46 49 4C 4C 46 46 31 0D 53 |F.TAX.:FILLFF1.S| 00000440: 54 41 20 24 33 37 46 38 2C 58 0D 49 4E 58 20 20 |TA $37F8,X.INX | 00000450: 20 20 20 20 20 20 20 20 20 20 3B C4 41 53 20 32 | ;.AS 2| 00000460: 35 35 2E DA 45 49 43 48 45 4E 20 44 45 53 0D 43 |55..EICHEN DES.C| 00000470: 50 58 20 23 38 20 20 20 20 20 20 20 20 20 3B DA |PX #8 ;.| 00000480: 45 49 43 48 45 4E 53 41 54 5A 45 53 20 57 49 52 |EICHENSATZES WIR| 00000490: 44 20 4D 49 54 0D 42 4E 45 20 46 49 4C 4C 46 46 |D MIT.BNE FILLFF| 000004A0: 31 20 20 20 20 3B 24 46 46 2D C2 59 54 45 53 20 |1 ;$FF-.YTES | 000004B0: 47 45 46 55 45 4C 4C 54 0D 0D 4C 44 41 20 23 24 |GEFUELLT..LDA #$| 000004C0: 46 46 0D 4C 44 58 20 23 30 0D 3A 46 49 4C 4C 46 |FF.LDX #0.:FILLF| 000004D0: 46 32 0D 53 54 41 20 24 32 43 30 30 2B 36 30 30 |F2.STA $2C00+600| 000004E0: 2C 58 20 3B C4 49 45 20 4C 45 54 5A 54 45 20 C3 |,X ;.IE LETZTE .| 000004F0: 55 52 53 4F 52 2D DA 45 49 4C 45 0D 49 4E 58 20 |URSOR-.EILE.INX | 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 3B 44 45 53 | ;DES| 00000510: 20 CF 52 49 47 49 4E 41 4C 2D C2 49 4C 44 45 53 | .RIGINAL-.ILDES| 00000520: 0D 43 50 58 20 23 34 30 20 20 20 20 20 20 20 20 |.CPX #40 | 00000530: 20 3B 57 49 52 44 20 4D 49 54 20 24 46 46 2D C2 | ;WIRD MIT $FF-.| 00000540: 59 54 45 53 0D 42 4E 45 20 46 49 4C 4C 46 46 32 |YTES.BNE FILLFF2| 00000550: 20 20 20 20 20 3B 47 45 46 55 45 4C 4C 54 0D 0D | ;GEFUELLT..| 00000560: 4C 44 41 20 23 30 0D 53 54 41 20 24 46 42 0D 4C |LDA #0.STA $FB.L| 00000570: 44 41 20 23 24 33 30 20 20 20 3B C1 44 52 45 53 |DA #$30 ;.DRES| 00000580: 53 45 20 44 45 53 20 DA 45 49 43 48 45 4E 53 41 |SE DES .EICHENSA| 00000590: 54 5A 45 53 0D 53 54 41 20 24 46 43 20 20 20 20 |TZES.STA $FC | 000005A0: 3B 49 4E 20 44 49 45 20 D2 45 47 49 53 54 45 52 |;IN DIE .EGISTER| 000005B0: 20 28 24 46 42 29 0D 0D 0D 3B DA 55 45 52 53 54 | ($FB)...;.UERST| 000005C0: 20 57 49 52 44 20 44 45 52 20 CF 52 49 47 49 4E | WIRD DER .RIGIN| 000005D0: 41 4C 2D DA 45 49 43 48 45 4E 53 41 54 5A 0D 3B |AL-.EICHENSATZ.;| 000005E0: 46 55 45 52 20 44 45 4E 20 C5 46 46 45 43 54 20 |FUER DEN .FFECT | 000005F0: 27 5A 55 52 45 43 48 54 47 45 53 43 48 4F 42 45 |'ZURECHTGESCHOBE| 00000600: 4E 27 2E 0D 0D 4C 44 58 20 23 30 0D 4C 44 59 20 |N'...LDX #0.LDY | 00000610: 23 30 0D 3A 43 48 41 52 42 45 47 49 4E 0D 4C 44 |#0.:CHARBEGIN.LD| 00000620: 41 20 28 24 46 42 29 2C 59 0D 0D 3A 48 49 42 59 |A ($FB),Y..:HIBY| 00000630: 54 45 31 0D 53 54 41 20 24 34 30 30 30 2C 58 20 |TE1.STA $4000,X | 00000640: 20 20 3B C4 49 45 53 45 52 20 DA 45 49 43 48 45 | ;.IESER .EICHE| 00000650: 4E 53 2E 20 45 4E 54 48 41 45 4C 54 0D 49 4E 59 |NS. ENTHAELT.INY| 00000660: 20 20 20 20 20 20 20 20 20 20 20 3B 41 4D 20 C5 | ;AM .| 00000670: 4E 44 45 20 41 4C 4C 45 20 31 2E C2 59 54 45 53 |NDE ALLE 1..YTES| 00000680: 0D 4C 44 41 20 28 24 46 42 29 2C 59 20 20 20 3B |.LDA ($FB),Y ;| 00000690: 45 49 4E 45 53 20 20 45 49 4E 5A 45 4C 4E 45 4E |EINES EINZELNEN| 000006A0: 20 DA 45 49 43 48 45 4E 53 0D 0D 3A 48 49 42 59 | .EICHENS..:HIBY| 000006B0: 54 45 32 0D 53 54 41 20 24 34 38 30 30 2C 58 20 |TE2.STA $4800,X | 000006C0: 20 20 20 3B C4 49 45 53 45 52 20 41 4C 4C 45 20 | ;.IESER ALLE | 000006D0: 5A 57 45 49 54 45 4E 0D 49 4E 59 20 20 20 20 20 |ZWEITEN.INY | 000006E0: 20 20 20 20 20 20 20 3B C2 59 54 45 53 0D 4C 44 | ;.YTES.LD| 000006F0: 41 20 28 24 46 42 29 2C 59 0D 0D 3A 48 49 42 59 |A ($FB),Y..:HIBY| 00000700: 54 45 33 0D 53 54 41 20 24 35 30 30 30 2C 58 20 |TE3.STA $5000,X | 00000710: 20 20 20 3B C4 49 45 53 45 52 20 41 4C 4C 45 20 | ;.IESER ALLE | 00000720: 44 52 49 54 54 45 4E 0D 49 4E 59 0D 4C 44 41 20 |DRITTEN.INY.LDA | 00000730: 28 24 46 42 29 2C 59 0D 0D 3A 48 49 42 59 54 45 |($FB),Y..:HIBYTE| 00000740: 34 20 20 20 20 20 20 20 3B 20 2E 20 2E 2E 0D 53 |4 ; . ...S| 00000750: 54 41 20 24 35 38 30 30 2C 58 0D 49 4E 59 0D 4C |TA $5800,X.INY.L| 00000760: 44 41 20 28 24 46 42 29 2C 59 0D 0D 3A 48 49 42 |DA ($FB),Y..:HIB| 00000770: 59 54 45 35 0D 53 54 41 20 24 36 30 30 30 2C 58 |YTE5.STA $6000,X| 00000780: 20 20 20 3B 2E 2E 2E 2E 0D 49 4E 59 0D 4C 44 41 | ;.....INY.LDA| 00000790: 20 28 24 46 42 29 2C 59 0D 0D 3A 48 49 42 59 54 | ($FB),Y..:HIBYT| 000007A0: 45 36 0D 53 54 41 20 24 36 38 30 30 2C 58 0D 49 |E6.STA $6800,X.I| 000007B0: 4E 59 0D 4C 44 41 20 28 24 46 42 29 2C 59 0D 0D |NY.LDA ($FB),Y..| 000007C0: 3A 48 49 42 59 54 45 37 0D 53 54 41 20 24 37 30 |:HIBYTE7.STA $70| 000007D0: 30 30 2C 58 0D 49 4E 59 0D 4C 44 41 20 28 24 46 |00,X.INY.LDA ($F| 000007E0: 42 29 2C 59 0D 0D 3A 48 49 42 59 54 45 38 0D 53 |B),Y..:HIBYTE8.S| 000007F0: 54 41 20 24 37 38 30 30 2C 58 20 20 20 3B 2E 2E |TA $7800,X ;..| 00000800: 2E 20 55 4E 44 20 44 49 45 53 45 52 20 41 4C 4C |. UND DIESER ALL| 00000810: 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E. | 00000820: 3B 38 2E C2 59 54 45 53 0D 0D 49 4E 59 20 20 20 |;8..YTES..INY | 00000830: 20 20 20 20 20 20 20 20 3B 53 43 48 4F 4E 20 32 | ;SCHON 2| 00000840: 35 36 20 C2 59 54 45 53 20 28 3D 20 33 32 0D 20 |56 .YTES (= 32. | 00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4B 4F | ;KO| 00000860: 4D 50 4C 45 54 54 45 20 DA 45 49 43 48 45 4E 29 |MPLETTE .EICHEN)| 00000870: 0D 0D 42 4E 45 20 4B 45 49 4E 55 45 42 45 52 54 |..BNE KEINUEBERT| 00000880: 52 41 47 31 0D 20 20 20 20 20 20 20 20 20 3B 4E |RAG1. ;N| 00000890: 45 49 4E 20 3F 20 44 41 4E 4E 20 4B 45 49 4E 55 |EIN ? DANN KEINU| 000008A0: 45 42 45 52 54 52 41 47 31 0D 20 20 20 20 20 20 |EBERTRAG1. | 000008B0: 20 20 20 3B CF 52 49 47 49 4E 41 4C 2D 0D 49 4E | ;.RIGINAL-.IN| 000008C0: 43 20 24 46 43 20 20 3B DA 45 49 43 48 45 4E 53 |C $FC ;.EICHENS| 000008D0: 41 54 5A 2D C1 44 52 45 53 53 45 4E 48 49 47 48 |ATZ-.DRESSENHIGH| 000008E0: 2D 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 3B |-BYTE. ;| 000008F0: 55 4D 20 31 20 45 52 48 4F 45 48 45 4E 0D 0D 3A |UM 1 ERHOEHEN..:| 00000900: 4B 45 49 4E 55 45 42 45 52 54 52 41 47 31 0D 54 |KEINUEBERTRAG1.T| 00000910: 58 41 0D 43 4C 43 20 20 20 20 20 20 20 20 20 3B |XA.CLC ;| 00000920: DA 45 49 47 45 52 20 44 45 52 20 4E 45 55 45 4E |.EIGER DER NEUEN| 00000930: 20 DA 45 49 43 48 45 4E 53 2E 0D 41 44 43 20 23 | .EICHENS..ADC #| 00000940: 38 20 20 20 20 20 20 3B 20 55 4D 20 38 0D 54 41 |8 ; UM 8.TA| 00000950: 58 20 20 20 20 20 20 20 20 20 3B 45 52 48 4F 45 |X ;ERHOE| 00000960: 48 45 4E 0D 42 4E 45 20 4E 4F 54 52 41 47 20 20 |HEN.BNE NOTRAG | 00000970: 3B 44 41 20 4E 55 52 20 44 41 53 20 31 2E C2 59 |;DA NUR DAS 1..Y| 00000980: 54 45 20 44 45 52 20 4E 45 55 45 4E 0D 20 20 20 |TE DER NEUEN. | 00000990: 20 20 20 20 20 20 20 20 20 3B DA 45 49 43 48 45 | ;.EICHE| 000009A0: 4E 53 41 45 54 5A 45 20 42 45 4E 55 54 5A 54 0D |NSAETZE BENUTZT.| 000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 57 45 52 | ;WER| 000009C0: 44 45 4E 0D 0D 49 4E 43 20 48 49 42 59 54 45 31 |DEN..INC HIBYTE1| 000009D0: 2B 32 20 20 3B 57 45 4E 4E 20 58 2D 52 45 47 2E |+2 ;WENN X-REG.| 000009E0: 20 57 49 45 44 45 52 20 41 55 46 20 30 0D 49 4E | WIEDER AUF 0.IN| 000009F0: 43 20 48 49 42 59 54 45 32 2B 32 20 20 3B 44 41 |C HIBYTE2+2 ;DA| 00000A00: 4E 4E 20 48 49 47 48 2D 42 59 54 45 53 20 45 52 |NN HIGH-BYTES ER| 00000A10: 48 4F 45 48 45 4E 2E 0D 49 4E 43 20 48 49 42 59 |HOEHEN..INC HIBY| 00000A20: 54 45 33 2B 32 0D 49 4E 43 20 48 49 42 59 54 45 |TE3+2.INC HIBYTE| 00000A30: 34 2B 32 0D 49 4E 43 20 48 49 42 59 54 45 35 2B |4+2.INC HIBYTE5+| 00000A40: 32 0D 49 4E 43 20 48 49 42 59 54 45 36 2B 32 0D |2.INC HIBYTE6+2.| 00000A50: 49 4E 43 20 48 49 42 59 54 45 37 2B 32 0D 49 4E |INC HIBYTE7+2.IN| 00000A60: 43 20 48 49 42 59 54 45 38 2B 32 0D 0D 3A 4E 4F |C HIBYTE8+2..:NO| 00000A70: 54 52 41 47 0D 4C 44 41 20 24 46 43 0D 43 4D 50 |TRAG.LDA $FC.CMP| 00000A80: 20 23 24 33 38 20 20 20 20 20 3B 53 43 48 4F 4E | #$38 ;SCHON| 00000A90: 20 47 41 4E 5A 45 52 20 CF 52 49 47 49 4E 41 4C | GANZER .RIGINAL| 00000AA0: 2D 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |-. ;| 00000AB0: DA 45 49 43 48 45 4E 53 41 54 5A 20 42 45 41 52 |.EICHENSATZ BEAR| 00000AC0: 42 45 49 54 45 54 20 3F 3F 3F 0D 0D 42 4E 45 20 |BEITET ???..BNE | 00000AD0: 43 48 41 52 42 45 47 49 4E 20 20 3B 4E 45 49 4E |CHARBEGIN ;NEIN| 00000AE0: 20 3F 3F 20 44 41 4E 4E 20 20 43 48 41 52 42 45 | ?? DANN CHARBE| 00000AF0: 47 49 4E 0D 0D 0D 3B CA 45 54 5A 54 20 41 4C 4C |GIN...;.ETZT ALL| 00000B00: 45 20 DA 45 49 4C 45 4E 20 44 45 52 20 CF 52 49 |E .EILEN DER .RI| 00000B10: 47 49 4E 41 4C 2D 0D 3B 54 41 42 45 4C 4C 45 20 |GINAL-.;TABELLE | 00000B20: 49 4E 20 44 49 45 20 56 45 52 53 43 48 49 45 44 |IN DIE VERSCHIED| 00000B30: 45 4E 45 4E 0D 3B D3 43 52 45 45 4E 53 20 56 45 |ENEN.;.CREENS VE| 00000B40: 52 53 43 48 49 45 42 45 4E 0D 0D 4C 44 58 20 23 |RSCHIEBEN..LDX #| 00000B50: 30 0D 3A 54 52 41 4E 53 46 45 52 0D 4C 44 41 20 |0.:TRANSFER.LDA | 00000B60: 24 32 43 30 30 2C 58 0D 53 54 41 20 24 34 30 30 |$2C00,X.STA $400| 00000B70: 30 2C 58 0D 4C 44 41 20 24 32 43 30 30 2B 34 30 |0,X.LDA $2C00+40| 00000B80: 2C 58 0D 53 54 41 20 24 34 34 30 30 2C 58 0D 4C |,X.STA $4400,X.L| 00000B90: 44 41 20 24 32 43 30 30 2B 38 30 2C 58 0D 53 54 |DA $2C00+80,X.ST| 00000BA0: 41 20 24 34 38 30 30 2C 58 0D 4C 44 41 20 24 32 |A $4800,X.LDA $2| 00000BB0: 43 30 30 2B 31 32 30 2C 58 0D 53 54 41 20 24 34 |C00+120,X.STA $4| 00000BC0: 43 30 30 2C 58 0D 4C 44 41 20 24 32 43 30 30 2B |C00,X.LDA $2C00+| 00000BD0: 31 36 30 2C 58 0D 53 54 41 20 24 35 30 30 30 2C |160,X.STA $5000,| 00000BE0: 58 0D 4C 44 41 20 24 32 43 30 30 2B 32 30 30 2C |X.LDA $2C00+200,| 00000BF0: 58 0D 53 54 41 20 24 35 34 30 30 2C 58 0D 4C 44 |X.STA $5400,X.LD| 00000C00: 41 20 24 32 43 30 30 2B 32 34 30 2C 58 0D 53 54 |A $2C00+240,X.ST| 00000C10: 41 20 24 35 38 30 30 2C 58 0D 4C 44 41 20 24 32 |A $5800,X.LDA $2| 00000C20: 43 30 30 2B 32 38 30 2C 58 0D 53 54 41 20 24 35 |C00+280,X.STA $5| 00000C30: 43 30 30 2C 58 0D 4C 44 41 20 24 32 43 30 30 2B |C00,X.LDA $2C00+| 00000C40: 33 32 30 2C 58 0D 53 54 41 20 24 36 30 30 30 2C |320,X.STA $6000,| 00000C50: 58 0D 4C 44 41 20 24 32 43 30 30 2B 33 36 30 2C |X.LDA $2C00+360,| 00000C60: 58 0D 53 54 41 20 24 36 34 30 30 2C 58 0D 4C 44 |X.STA $6400,X.LD| 00000C70: 41 20 24 32 43 30 30 2B 34 30 30 2C 58 0D 53 54 |A $2C00+400,X.ST| 00000C80: 41 20 24 36 38 30 30 2C 58 0D 4C 44 41 20 24 32 |A $6800,X.LDA $2| 00000C90: 43 30 30 2B 34 34 30 2C 58 0D 53 54 41 20 24 36 |C00+440,X.STA $6| 00000CA0: 43 30 30 2C 58 0D 4C 44 41 20 24 32 43 30 30 2B |C00,X.LDA $2C00+| 00000CB0: 34 38 30 2C 58 0D 53 54 41 20 24 37 30 30 30 2C |480,X.STA $7000,| 00000CC0: 58 0D 4C 44 41 20 24 32 43 30 30 2B 35 32 30 2C |X.LDA $2C00+520,| 00000CD0: 58 0D 53 54 41 20 24 37 34 30 30 2C 58 0D 4C 44 |X.STA $7400,X.LD| 00000CE0: 41 20 24 32 43 30 30 2B 35 36 30 2C 58 0D 53 54 |A $2C00+560,X.ST| 00000CF0: 41 20 24 37 38 30 30 2C 58 0D 4C 44 41 20 24 32 |A $7800,X.LDA $2| 00000D00: 43 30 30 2B 36 30 30 2C 58 20 20 20 20 20 20 3B |C00+600,X ;| 00000D10: 31 36 20 5A 45 49 4C 45 4E 0D 53 54 41 20 24 37 |16 ZEILEN.STA $7| 00000D20: 43 30 30 2C 58 20 20 20 20 20 20 20 20 20 20 3B |C00,X ;| 00000D30: 57 55 52 44 45 4E 20 56 45 52 53 43 48 4F 42 45 |WURDEN VERSCHOBE| 00000D40: 4E 0D 49 4E 58 0D 43 50 58 20 23 34 30 0D 42 4E |N.INX.CPX #40.BN| 00000D50: 45 20 54 52 41 4E 53 46 45 52 0D 0D 53 45 49 0D |E TRANSFER..SEI.| 00000D60: 4C 44 41 20 20 23 24 37 46 0D 53 54 41 20 20 24 |LDA #$7F.STA $| 00000D70: 44 43 30 44 0D 4C 44 41 20 20 23 24 30 30 0D 53 |DC0D.LDA #$00.S| 00000D80: 54 41 20 20 24 44 43 30 45 0D 4C 44 41 20 20 23 |TA $DC0E.LDA #| 00000D90: 24 46 31 20 20 20 20 3B C9 4E 54 45 52 52 55 50 |$F1 ;.NTERRUP| 00000DA0: 54 2D D2 45 47 49 53 54 45 52 0D 53 54 41 20 20 |T-.EGISTER.STA | 00000DB0: 24 44 30 31 41 0D 4C 44 41 20 20 23 35 30 20 20 |$D01A.LDA #50 | 00000DC0: 20 20 20 3B 41 55 46 20 D2 41 53 54 45 52 49 4E | ;AUF .ASTERIN| 00000DD0: 54 45 52 52 55 50 54 0D 53 54 41 20 20 24 44 30 |TERRUPT.STA $D0| 00000DE0: 31 32 0D 4C 44 41 20 20 23 24 31 42 20 20 20 20 |12.LDA #$1B | 00000DF0: 3B 56 4F 52 42 45 52 45 49 54 45 4E 0D 53 54 41 |;VORBEREITEN.STA| 00000E00: 20 20 24 44 30 31 31 20 20 20 3B 42 45 49 20 D2 | $D011 ;BEI .| 00000E10: 41 53 54 45 52 5A 45 49 4C 45 20 35 30 0D 4C 44 |ASTERZEILE 50.LD| 00000E20: 41 20 20 23 3C 49 52 51 4E 45 55 0D 53 54 41 20 |A #<IRQNEU.STA | 00000E30: 20 24 30 33 31 34 20 20 20 20 3B C9 D2 D1 2D D0 | $0314 ;...-.| 00000E40: 4F 49 4E 54 45 52 20 53 45 54 5A 45 4E 0D 4C 44 |OINTER SETZEN.LD| 00000E50: 41 20 20 23 3E 49 52 51 4E 45 55 0D 53 54 41 20 |A #>IRQNEU.STA | 00000E60: 20 24 30 33 31 35 0D 0D 4C 44 41 20 23 32 34 0D | $0315..LDA #24.| 00000E70: 53 54 41 20 24 44 30 31 36 20 20 20 3B CD 55 4C |STA $D016 ;.UL| 00000E80: 54 49 43 4F 4C 4F 52 20 45 49 4E 53 43 48 41 4C |TICOLOR EINSCHAL| 00000E90: 54 45 4E 0D 0D 4C 44 41 20 23 30 0D 53 54 41 20 |TEN..LDA #0.STA | 00000EA0: 24 44 30 32 30 20 20 20 3B D2 41 48 4D 45 4E 46 |$D020 ;.AHMENF| 00000EB0: 41 52 42 45 0D 20 20 20 20 20 20 20 20 20 20 20 |ARBE. | 00000EC0: 20 3B 41 55 46 20 D3 43 48 57 41 52 5A 0D 4C 44 | ;AUF .CHWARZ.LD| 00000ED0: 41 20 23 36 0D 53 54 41 20 24 44 30 32 31 20 20 |A #6.STA $D021 | 00000EE0: 20 3B C8 49 4E 54 45 52 47 52 55 4E 44 46 41 52 | ;.INTERGRUNDFAR| 00000EF0: 42 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 3B |BE. ;| 00000F00: 41 55 46 20 C2 4C 41 55 0D 4C 44 41 20 23 31 34 |AUF .LAU.LDA #14| 00000F10: 0D 53 54 41 20 24 44 30 32 32 20 20 20 3B CD 55 |.STA $D022 ;.U| 00000F20: 54 4C 49 43 4F 4C 4F 52 46 41 52 42 45 4E 0D 4C |TLICOLORFARBEN.L| 00000F30: 44 41 20 23 31 35 20 20 20 20 20 3B 41 55 46 20 |DA #15 ;AUF | 00000F40: 48 45 4C 4C 42 4C 41 55 20 55 4E 44 20 48 45 4C |HELLBLAU UND HEL| 00000F50: 4C 2D 0D 53 54 41 20 24 44 30 32 33 20 20 20 3B |L-.STA $D023 ;| 00000F60: 47 52 41 55 20 53 45 54 5A 45 4E 0D 0D 0D 43 4C |GRAU SETZEN...CL| 00000F70: 49 0D 0D 3A 42 41 43 4B 0D 0D 20 20 20 20 4A 4D |I..:BACK.. JM| 00000F80: 50 20 42 41 43 4B 20 20 3B C5 4E 44 4C 4F 53 53 |P BACK ;.NDLOSS| 00000F90: 43 48 4C 45 49 46 45 0D 0D 3A 49 52 51 4E 45 55 |CHLEIFE..:IRQNEU| 00000FA0: 0D 42 49 54 20 30 0D 42 49 54 20 30 20 20 20 20 |.BIT 0.BIT 0 | 00000FB0: 3B D7 41 52 54 45 5A 45 49 54 0D 0D 4C 44 41 20 |;.ARTEZEIT..LDA | 00000FC0: 20 23 31 35 30 0D 53 54 41 20 20 24 44 44 30 30 | #150.STA $DD00| 00000FD0: 20 20 20 20 20 3B C1 55 46 20 44 49 45 20 C2 41 | ;.UF DIE .A| 00000FE0: 4E 4B 20 41 42 20 24 34 30 30 30 0D 20 20 20 20 |NK AB $4000. | 00000FF0: 20 20 20 20 20 20 20 20 20 20 20 3B 55 4D 53 43 | ;UMSC| 00001000: 48 41 4C 54 45 4E 0D 0D 4C 44 59 20 20 23 30 0D |HALTEN..LDY #0.| 00001010: 3A 4C 4F 4F 50 0D 4C 44 41 20 20 23 24 31 32 20 |:LOOP.LDA #$12 | 00001020: 20 20 20 20 20 20 20 20 3B 4E 41 43 48 45 49 4E | ;NACHEIN| 00001030: 41 4E 44 45 52 0D 53 54 41 20 20 24 44 30 31 31 |ANDER.STA $D011| 00001040: 20 20 20 20 20 20 20 20 3B 44 49 45 20 57 45 52 | ;DIE WER| 00001050: 54 45 0D 4C 44 41 20 20 43 48 41 52 54 41 42 2C |TE.LDA CHARTAB,| 00001060: 59 20 20 20 20 3B 24 31 32 2C 24 31 33 2C 24 31 |Y ;$12,$13,$1| 00001070: 34 2C 24 31 35 0D 20 20 20 20 20 20 20 20 20 20 |4,$15. | 00001080: 20 20 20 20 20 20 20 20 3B 24 31 36 2C 24 31 37 | ;$16,$17| 00001090: 2C 24 31 30 2C 24 31 31 0D 53 54 41 20 20 24 44 |,$10,$11.STA $D| 000010A0: 30 31 38 20 20 20 20 20 20 20 20 3B 53 45 54 5A |018 ;SETZ| 000010B0: 45 4E 20 55 4D 20 44 45 4E 20 C6 CC C4 2D 0D 20 |EN UM DEN ...-. | 000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010D0: 20 3B 45 46 46 45 4B 54 20 5A 55 20 45 52 5A 49 | ;EFFEKT ZU ERZI| 000010E0: 45 4C 45 4E 0D 49 4E 59 0D 4E 4F 50 20 20 20 20 |ELEN.INY.NOP | 000010F0: 20 20 20 20 20 20 20 20 20 20 20 3B D2 41 53 54 | ;.AST| 00001100: 45 52 5A 45 49 4C 45 20 41 55 53 54 49 4D 45 4E |ERZEILE AUSTIMEN| 00001110: 0D 4E 4F 50 0D 4C 44 41 20 20 23 24 31 33 0D 53 |.NOP.LDA #$13.S| 00001120: 54 41 20 20 24 44 30 31 31 0D 4C 44 41 20 20 43 |TA $D011.LDA C| 00001130: 48 41 52 54 41 42 2C 59 20 20 20 3B 4E 41 43 48 |HARTAB,Y ;NACH| 00001140: 45 49 4E 41 4E 44 45 52 20 44 49 45 20 24 44 30 |EINANDER DIE $D0| 00001150: 31 38 0D 53 54 41 20 20 24 44 30 31 38 20 20 20 |18.STA $D018 | 00001160: 20 20 20 20 3B 57 45 52 54 45 20 41 55 53 20 44 | ;WERTE AUS D| 00001170: 45 52 20 D4 41 42 45 4C 4C 45 0D 49 4E 59 20 20 |ER .ABELLE.INY | 00001180: 20 20 20 20 20 20 20 20 20 20 20 20 3B 48 4F 4C | ;HOL| 00001190: 45 4E 0D 4E 4F 50 0D 4E 4F 50 0D 4C 44 41 20 20 |EN.NOP.NOP.LDA | 000011A0: 23 24 31 34 0D 53 54 41 20 20 24 44 30 31 31 0D |#$14.STA $D011.| 000011B0: 4C 44 41 20 20 43 48 41 52 54 41 42 2C 59 0D 53 |LDA CHARTAB,Y.S| 000011C0: 54 41 20 20 24 44 30 31 38 0D 49 4E 59 0D 4E 4F |TA $D018.INY.NO| 000011D0: 50 0D 4E 4F 50 0D 4C 44 41 20 20 23 24 31 35 0D |P.NOP.LDA #$15.| 000011E0: 53 54 41 20 20 24 44 30 31 31 0D 4C 44 41 20 20 |STA $D011.LDA | 000011F0: 43 48 41 52 54 41 42 2C 59 0D 53 54 41 20 20 24 |CHARTAB,Y.STA $| 00001200: 44 30 31 38 0D 49 4E 59 0D 4E 4F 50 0D 4E 4F 50 |D018.INY.NOP.NOP| 00001210: 0D 4C 44 41 20 20 23 24 31 36 0D 53 54 41 20 20 |.LDA #$16.STA | 00001220: 24 44 30 31 31 0D 4C 44 41 20 20 43 48 41 52 54 |$D011.LDA CHART| 00001230: 41 42 2C 59 0D 53 54 41 20 20 24 44 30 31 38 0D |AB,Y.STA $D018.| 00001240: 49 4E 59 0D 4E 4F 50 0D 4E 4F 50 0D 4C 44 41 20 |INY.NOP.NOP.LDA | 00001250: 20 23 24 31 37 0D 53 54 41 20 20 24 44 30 31 31 | #$17.STA $D011| 00001260: 0D 4C 44 41 20 20 43 48 41 52 54 41 42 2C 59 0D |.LDA CHARTAB,Y.| 00001270: 53 54 41 20 20 24 44 30 31 38 0D 49 4E 59 0D 4E |STA $D018.INY.N| 00001280: 4F 50 0D 4E 4F 50 0D 4C 44 41 20 20 23 24 31 30 |OP.NOP.LDA #$10| 00001290: 0D 53 54 41 20 20 24 44 30 31 31 0D 4C 44 41 20 |.STA $D011.LDA | 000012A0: 20 43 48 41 52 54 41 42 2C 59 0D 53 54 41 20 20 | CHARTAB,Y.STA | 000012B0: 24 44 30 31 38 0D 49 4E 59 0D 42 49 54 20 30 0D |$D018.INY.BIT 0.| 000012C0: 4C 44 41 20 20 23 24 31 31 0D 53 54 41 20 20 24 |LDA #$11.STA $| 000012D0: 44 30 31 31 0D 4C 44 41 20 20 43 48 41 52 54 41 |D011.LDA CHARTA| 000012E0: 42 2C 59 0D 53 54 41 20 20 24 44 30 31 38 0D 0D |B,Y.STA $D018..| 000012F0: 49 4E 59 0D 43 50 59 20 20 23 31 33 36 20 20 20 |INY.CPY #136 | 00001300: 3B D3 43 48 4F 4E 20 44 45 52 20 31 33 36 2E 57 |;.CHON DER 136.W| 00001310: 45 52 54 20 41 55 53 20 44 45 52 0D 20 20 20 20 |ERT AUS DER. | 00001320: 20 20 20 20 20 20 20 20 3B D4 41 42 45 4C 4C 45 | ;.ABELLE| 00001330: 20 47 45 4C 45 53 45 4E 20 3F 3F 3F 0D 20 20 20 | GELESEN ???. | 00001340: 20 20 20 20 20 20 20 20 3B 28 C4 45 52 20 C6 CC | ;(.ER ..| 00001350: C4 2D C2 45 52 45 49 43 48 20 49 53 54 20 44 41 |.-.EREICH IST DA| 00001360: 4E 4E 0D 20 20 20 20 20 20 20 20 20 20 20 3B 31 |NN. ;1| 00001370: 33 36 2F 38 3D 31 37 20 C3 55 52 53 4F 52 2D 5A |36/8=17 .URSOR-Z| 00001380: 45 49 4C 45 4E 20 48 4F 43 48 29 0D 0D 42 4E 45 |EILEN HOCH)..BNE| 00001390: 20 20 4C 4F 4F 50 20 20 20 3B 4E 45 49 4E 20 3F | LOOP ;NEIN ?| 000013A0: 3F 20 44 41 4E 4E 20 4C 4F 4F 50 0D 0D 4C 44 41 |? DANN LOOP..LDA| 000013B0: 20 23 24 37 32 20 20 20 3B D5 4E 54 45 52 45 4E | #$72 ;.NTEREN| 000013C0: 20 D4 45 49 4C 20 44 45 53 20 C2 49 4C 44 53 43 | .EIL DES .ILDSC| 000013D0: 48 49 52 4D 53 0D 53 54 41 20 24 44 30 31 31 20 |HIRMS.STA $D011 | 000013E0: 20 3B 55 4E 53 49 43 48 54 42 41 52 20 4D 41 43 | ;UNSICHTBAR MAC| 000013F0: 48 45 4E 0D 0D 4C 44 41 20 23 24 46 45 0D 4C 44 |HEN..LDA #$FE.LD| 00001400: 58 20 23 30 0D 3A 4C 4F 45 53 43 48 54 41 42 20 |X #0.:LOESCHTAB | 00001410: 20 20 20 20 20 3B 24 44 30 31 38 2D D4 41 42 45 | ;$D018-.ABE| 00001420: 4C 4C 45 20 4D 49 54 0D 53 54 41 20 43 48 41 52 |LLE MIT.STA CHAR| 00001430: 54 41 42 2C 58 20 20 20 3B 24 46 45 2D 42 59 54 |TAB,X ;$FE-BYT| 00001440: 45 53 20 46 55 45 4C 4C 45 4E 2E 0D 49 4E 58 20 |ES FUELLEN..INX | 00001450: 20 20 20 20 20 20 20 20 20 20 20 20 3B D3 49 45 | ;.IE| 00001460: 20 53 49 4D 55 4C 49 45 52 45 4E 0D 43 50 58 20 | SIMULIEREN.CPX | 00001470: 23 31 33 36 20 20 20 20 20 20 20 20 3B 45 49 4E |#136 ;EIN| 00001480: 20 C6 CC C4 20 4D 49 54 20 47 45 2D 0D 42 4E 45 | ... MIT GE-.BNE| 00001490: 20 4C 4F 45 53 43 48 54 41 42 20 20 20 3B 4C 4F | LOESCHTAB ;LO| 000014A0: 45 53 43 48 54 45 4D 20 24 33 46 46 46 0D 0D 3A |ESCHTEM $3FFF..:| 000014B0: 53 49 4E 5A 45 49 47 45 52 0D 4C 44 58 20 23 30 |SINZEIGER.LDX #0| 000014C0: 0D 0D 4C 44 59 20 23 30 0D 3A 53 45 54 50 49 58 |..LDY #0.:SETPIX| 000014D0: 45 4C 53 0D 4C 44 41 20 23 30 20 20 20 20 20 20 |ELS.LDA #0 | 000014E0: 20 20 20 3B 50 49 58 45 4C 4E 55 4D 4D 45 52 0D | ;PIXELNUMMER.| 000014F0: 41 53 4C 20 20 20 20 20 20 20 20 20 20 20 20 3B |ASL ;| 00001500: 4D 41 4C 20 32 0D 53 54 41 20 43 48 41 52 54 41 |MAL 2.STA CHARTA| 00001510: 42 2C 59 20 20 3B 49 4E 20 54 41 42 45 4C 4C 45 |B,Y ;IN TABELLE| 00001520: 20 53 45 54 5A 45 4E 0D 43 4D 50 20 23 24 39 30 | SETZEN.CMP #$90| 00001530: 20 20 20 20 20 20 20 3B 53 43 48 4F 4E 20 37 32 | ;SCHON 72| 00001540: 20 50 49 58 45 4C 20 3F 3F 3F 0D 20 20 20 20 20 | PIXEL ???. | 00001550: 20 20 20 20 20 20 20 20 20 20 3B 37 32 2F 38 3D | ;72/8=| 00001560: 39 20 C3 55 52 53 4F 52 2D DA 45 49 4C 45 4E 0D |9 .URSOR-.EILEN.| 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001580: 28 C8 4F 45 48 45 20 44 45 53 20 CF 52 49 47 49 |(.OEHE DES .RIGI| 00001590: 4E 41 4C 0D 20 20 20 20 20 20 20 20 20 20 20 20 |NAL. | 000015A0: 20 20 20 3B 20 C2 49 4C 44 45 53 29 0D 42 45 51 | ; .ILDES).BEQ| 000015B0: 20 46 45 52 54 49 47 20 20 20 20 20 3B 4A 41 20 | FERTIG ;JA | 000015C0: 3F 3F 20 44 41 4E 4E 20 46 45 52 54 49 47 0D 0D |?? DANN FERTIG..| 000015D0: 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 3B |INY ;| 000015E0: 5A 45 49 47 45 52 20 5A 55 4D 20 53 45 54 5A 45 |ZEIGER ZUM SETZE| 000015F0: 4E 0D 54 59 41 20 20 20 20 20 20 20 20 20 20 20 |N.TYA | 00001600: 20 3B 44 45 52 20 43 48 41 52 54 41 42 20 45 52 | ;DER CHARTAB ER| 00001610: 48 4F 45 48 45 4E 0D 43 4C 43 20 20 20 20 20 20 |HOEHEN.CLC | 00001620: 20 20 20 20 20 20 3B 55 4E 44 20 4D 49 54 20 53 | ;UND MIT S| 00001630: 49 4E 55 53 57 45 52 54 0D 41 44 43 20 53 49 4E |INUSWERT.ADC SIN| 00001640: 55 53 2C 58 20 20 20 20 3B 41 44 44 49 45 52 45 |US,X ;ADDIERE| 00001650: 4E 0D 54 41 59 0D 49 4E 58 0D 49 4E 43 20 53 45 |N.TAY.INX.INC SE| 00001660: 54 50 49 58 45 4C 53 2B 31 20 20 3B 50 49 58 45 |TPIXELS+1 ;PIXE| 00001670: 4C 4E 55 4D 4D 45 52 20 45 52 48 4F 45 48 4E 0D |LNUMMER ERHOEHN.| 00001680: 0D 4A 4D 50 20 53 45 54 50 49 58 45 4C 53 20 20 |.JMP SETPIXELS | 00001690: 3B 57 49 45 44 45 52 48 4F 4C 45 4E 0D 0D 3A 46 |;WIEDERHOLEN..:F| 000016A0: 45 52 54 49 47 0D 4C 44 41 20 23 30 0D 53 54 41 |ERTIG.LDA #0.STA| 000016B0: 20 53 45 54 50 49 58 45 4C 53 2B 31 20 20 3B 41 | SETPIXELS+1 ;A| 000016C0: 4E 46 41 4E 47 53 50 49 58 45 4C 20 57 49 45 44 |NFANGSPIXEL WIED| 000016D0: 45 52 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER. | 000016E0: 20 20 20 20 3B 41 55 46 20 30 0D 0D 49 4E 43 20 | ;AUF 0..INC | 000016F0: 53 49 4E 5A 45 49 47 45 52 2B 31 20 20 3B 53 49 |SINZEIGER+1 ;SI| 00001700: 4E 55 53 5A 45 49 47 45 52 20 45 52 48 4F 45 48 |NUSZEIGER ERHOEH| 00001710: 45 4E 0D 4C 44 41 20 53 49 4E 5A 45 49 47 45 52 |EN.LDA SINZEIGER| 00001720: 2B 31 0D 43 4D 50 20 23 31 30 30 20 20 20 20 20 |+1.CMP #100 | 00001730: 20 20 20 20 3B 53 43 48 4F 4E 20 54 41 42 45 4C | ;SCHON TABEL| 00001740: 4C 45 20 44 55 52 43 48 47 45 2D 0D 42 4E 45 20 |LE DURCHGE-.BNE | 00001750: 4B 45 49 4E 53 49 4E 45 4E 44 20 20 20 3B 4C 41 |KEINSINEND ;LA| 00001760: 55 46 45 4E 20 3F 3F 3F 3F 0D 0D 4C 44 41 20 23 |UFEN ????..LDA #| 00001770: 30 20 20 20 20 20 20 20 20 20 20 20 3B 4A 41 20 |0 ;JA | 00001780: 3F 3F 0D 53 54 41 20 53 49 4E 5A 45 49 47 45 52 |??.STA SINZEIGER| 00001790: 2B 31 20 20 3B 44 41 4E 4E 20 53 49 4E 55 53 5A |+1 ;DANN SINUSZ| 000017A0: 45 49 47 45 52 20 41 55 46 20 30 0D 0D 3A 4B 45 |EIGER AUF 0..:KE| 000017B0: 49 4E 53 49 4E 45 4E 44 0D 4C 44 41 20 23 31 0D |INSINEND.LDA #1.| 000017C0: 53 54 41 20 24 44 30 31 39 0D 4A 4D 50 20 24 46 |STA $D019.JMP $F| 000017D0: 45 42 43 20 20 20 20 20 3B C5 4E 44 45 20 44 45 |EBC ;.NDE DE| 000017E0: 52 20 C9 D2 D1 2D D2 4F 55 54 49 4E 45 0D 0D 0D |R ...-.OUTINE...| 000017F0: 3A 43 48 41 52 54 41 42 0D 53 20 31 33 36 20 20 |:CHARTAB.S 136 | 00001800: 20 20 3B D3 50 45 49 43 48 45 52 20 4D 49 54 20 | ;.PEICHER MIT | 00001810: 31 33 36 20 24 30 30 2D 42 59 54 45 53 0D 20 20 |136 $00-BYTES. | 00001820: 20 20 20 20 20 20 20 3B 46 55 45 4C 4C 45 4E 0D | ;FUELLEN.| 00001830: 0D 3A 53 49 4E 55 53 20 20 20 3B D3 49 4E 55 53 |.:SINUS ;.INUS| 00001840: 54 41 42 45 4C 4C 45 20 46 55 45 52 0D 20 20 20 |TABELLE FUER. | 00001850: 20 20 20 20 20 20 3B 44 45 4E 20 27 4B 55 45 4E | ;DEN 'KUEN| 00001860: 53 54 4C 49 43 48 45 4E 27 20 C6 CC C4 0D 0D 53 |STLICHEN' .....S| 00001870: 20 37 30 20 20 20 20 3B 37 30 20 24 30 30 2D C2 | 70 ;70 $00-.| 00001880: 59 54 45 53 0D 0D 3B 20 4A 45 54 5A 54 20 4B 4F |YTES..; JETZT KO| 00001890: 4D 4D 45 4E 20 44 49 45 20 C1 42 53 54 41 45 4E |MMEN DIE .BSTAEN| 000018A0: 44 45 20 5A 57 49 53 43 48 45 4E 0D 3B 20 44 45 |DE ZWISCHEN.; DE| 000018B0: 4E 20 D0 49 58 45 4C 5A 45 49 4C 45 4E 0D 0D 42 |N .IXELZEILEN..B| 000018C0: 20 31 2C 31 2C 32 2C 32 2C 33 2C 33 2C 34 2C 34 | 1,1,2,2,3,3,4,4| 000018D0: 2C 34 2C 34 2C 34 2C 34 2C 34 2C 34 2C 34 2C 33 |,4,4,4,4,4,4,4,3| 000018E0: 2C 33 2C 32 2C 32 2C 31 2C 31 0D 0D 53 20 38 30 |,3,2,2,1,1..S 80| 000018F0: 20 20 20 3B 38 30 20 24 30 30 2D C2 59 54 45 53 | ;80 $00-.YTES| 00001900: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 |........... |
..;ANWENDUNG DES $D011-EFFEKTES:..; SING
LE-PIXEL-FLD..;(C)COPYRIGHT 1991 BY LUBB
ER OF PADUA...;DER ORIGINAL-ZEICHENSATZ
MUSS AB.; $3000 LIEGEN..;^^^^ WICHTIG! ^
^^^..;DIE ERSTEN 5 NORMALEN UND DIE ERST
EN.;5 REVERSEN ZEICHEN DUERFEN NICHT.;BE
NUTZT SEIN ! SONST WERDEN SIE FUER.;DEN
EFFEKT ZERSTOERT !..;(DA DORT DIE SCREEN
ZEILEN ABGELEGT.; WERDEN)...;DIE ORIGINA
L-SCREENTABELLE MUSS AB.;$2C00 LIEGEN (M
AXIMAL 16 ZEILEN HOCH!)...ORG $1000 ;CO
DE NACH $1000..LDA #8 ;AKTUELLE FARB
E AUF.STA 646 ;ORANGE=SCHWARZ IN MULT
ICOLOR. ;SETZEN.JSR $E544 ;BI
LDSCHIRM LOESCHEN. ;UND COLOR-
RAM MIT. ;AKTUELLER FARBE FUEL
LEN..LDA #$40.STA HIBYTE1+2.LDA #$48.STA
HIBYTE2+2.LDA #$50.STA HIBYTE3+2.LDA #$
58 ;HIGHBYTES FUER.STA HIBYTE4
+2 ;UMRECHNUNGSROUTINE.LDA #$60
;ERNEUERN.STA HIBYTE5+2.LDA #$68
;NUR WICHTIG,WENN.STA HIBYTE6+
2 ;DIE ROUTINE OEFTERS.LDA #$70
;VON NEUEM GESTARTET.STA HIBYTE7+
2 ;WERDEN SOLL,OHNE.LDA #$78
;DASS MAN DEN CODE.STA HIBYTE8+2
;NEU REINLADEN MUSS....LDA #$FF.TAX.:F
ILLFF1.STA $37F8,X.INX ;DAS 2
55.ZEICHEN DES.CPX #8 ;ZEICHENSA
TZES WIRD MIT.BNE FILLFF1 ;$FF-BYTES
GEFUELLT..LDA #$FF.LDX #0.:FILLFF2.STA $
2C00+600,X ;DIE LETZTE CURSOR-ZEILE.INX
;DES ORIGINAL-BILDES.CPX #40
;WIRD MIT $FF-BYTES.BNE FILLFF2
;GEFUELLT..LDA #0.STA $FB.LDA #$30
;ADRESSE DES ZEICHENSATZES.STA $FC
;IN DIE REGISTER ($FB)...;ZUERST WIRD DE
R ORIGINAL-ZEICHENSATZ.;FUER DEN EFFECT
'ZURECHTGESCHOBEN'...LDX #0.LDY #0.:CHAR
BEGIN.LDA ($FB),Y..:HIBYTE1.STA $4000,X
;DIESER ZEICHENS. ENTHAELT.INY
;AM ENDE ALLE 1.BYTES.LDA ($FB),Y ;
EINES EINZELNEN ZEICHENS..:HIBYTE2.STA
$4800,X ;DIESER ALLE ZWEITEN.INY
;BYTES.LDA ($FB),Y..:HIBYTE3.STA
$5000,X ;DIESER ALLE DRITTEN.INY.LDA
($FB),Y..:HIBYTE4 ; . ...STA $5800
,X.INY.LDA ($FB),Y..:HIBYTE5.STA $6000,X
;.....INY.LDA ($FB),Y..:HIBYTE6.STA $
6800,X.INY.LDA ($FB),Y..:HIBYTE7.STA $70
00,X.INY.LDA ($FB),Y..:HIBYTE8.STA $7800
,X ;... UND DIESER ALLE.
;8.BYTES..INY ;SCHON 256 BYTES
(= 32. ;KOMPLETTE ZEICHEN)
..BNE KEINUEBERTRAG1. ;NEIN ? DA
NN KEINUEBERTRAG1. ;ORIGINAL-.IN
C $FC ;ZEICHENSATZ-ADRESSENHIGH-BYTE.
;UM 1 ERHOEHEN..:KEINUEBERTRAG1.T
XA.CLC ;ZEIGER DER NEUEN ZEICHEN
S..ADC #8 ; UM 8.TAX ;ERHOE
HEN.BNE NOTRAG ;DA NUR DAS 1.BYTE DER N
EUEN. ;ZEICHENSAETZE BENUTZT.
;WERDEN..INC HIBYTE1+2 ;WEN
N X-REG. WIEDER AUF 0.INC HIBYTE2+2 ;DA
NN HIGH-BYTES ERHOEHEN..INC HIBYTE3+2.IN
C HIBYTE4+2.INC HIBYTE5+2.INC HIBYTE6+2.
INC HIBYTE7+2.INC HIBYTE8+2..:NOTRAG.LDA
$FC.CMP #$38 ;SCHON GANZER ORIGINAL
-. ;ZEICHENSATZ BEARBEITET ?
??..BNE CHARBEGIN ;NEIN ?? DANN CHARBE
GIN...;JETZT ALLE ZEILEN DER ORIGINAL-.;
TABELLE IN DIE VERSCHIEDENEN.;SCREENS VE
RSCHIEBEN..LDX #0.:TRANSFER.LDA $2C00,X.
STA $4000,X.LDA $2C00+40,X.STA $4400,X.L
DA $2C00+80,X.STA $4800,X.LDA $2C00+120,
X.STA $4C00,X.LDA $2C00+160,X.STA $5000,
X.LDA $2C00+200,X.STA $5400,X.LDA $2C00+
240,X.STA $5800,X.LDA $2C00+280,X.STA $5
C00,X.LDA $2C00+320,X.STA $6000,X.LDA $2
C00+360,X.STA $6400,X.LDA $2C00+400,X.ST
A $6800,X.LDA $2C00+440,X.STA $6C00,X.LD
A $2C00+480,X.STA $7000,X.LDA $2C00+520,
X.STA $7400,X.LDA $2C00+560,X.STA $7800,
X.LDA $2C00+600,X ;16 ZEILEN.STA $7
C00,X ;WURDEN VERSCHOBEN.INX.CP
X #40.BNE TRANSFER..SEI.LDA #$7F.STA $
DC0D.LDA #$00.STA $DC0E.LDA #$F1 ;
INTERRUPT-REGISTER.STA $D01A.LDA #50
;AUF RASTERINTERRUPT.STA $D012.LDA
#$1B ;VORBEREITEN.STA $D011 ;BEI R
ASTERZEILE 50.LDA #<IRQNEU.STA $0314
;IRQ-POINTER SETZEN.LDA #>IRQNEU.STA
$0315..LDA #24.STA $D016 ;MULTICOLOR
EINSCHALTEN..LDA #0.STA $D020 ;RAHMENF
ARBE. ;AUF SCHWARZ.LDA #6.STA
$D021 ;HINTERGRUNDFARBE. ;
AUF BLAU.LDA #14.STA $D022 ;MUTLICOLOR
FARBEN.LDA #15 ;AUF HELLBLAU UND HEL
L-.STA $D023 ;GRAU SETZEN...CLI..:BACK
.. JMP BACK ;ENDLOSSCHLEIFE..:IRQNEU
.BIT 0.BIT 0 ;WARTEZEIT..LDA #150.ST
A $DD00 ;AUF DIE BANK AB $4000.
;UMSCHALTEN..LDY #0.:LOOP.LD
A #$12 ;NACHEINANDER.STA $D011
;DIE WERTE.LDA CHARTAB,Y ;$1
2,$13,$14,$15. ;$16,$17
,$10,$11.STA $D018 ;SETZEN UM DE
N FLD-. ;EFFEKT ZU ERZI
ELEN.INY.NOP ;RASTERZEILE
AUSTIMEN.NOP.LDA #$13.STA $D011.LDA C
HARTAB,Y ;NACHEINANDER DIE $D018.STA
$D018 ;WERTE AUS DER TABELLE.INY
;HOLEN.NOP.NOP.LDA #$14.STA
$D011.LDA CHARTAB,Y.STA $D018.INY.NO
P.NOP.LDA #$15.STA $D011.LDA CHARTAB,
Y.STA $D018.INY.NOP.NOP.LDA #$16.STA
$D011.LDA CHARTAB,Y.STA $D018.INY.NOP.
NOP.LDA #$17.STA $D011.LDA CHARTAB,Y.
STA $D018.INY.NOP.NOP.LDA #$10.STA $D
011.LDA CHARTAB,Y.STA $D018.INY.BIT 0.
LDA #$11.STA $D011.LDA CHARTAB,Y.STA
$D018..INY.CPY #136 ;SCHON DER 136.W
ERT AUS DER. ;TABELLE GELESEN
???. ;(DER FLD-BEREICH IST DA
NN. ;136/8=17 CURSOR-ZEILEN HO
CH)..BNE LOOP ;NEIN ?? DANN LOOP..LDA
#$72 ;UNTEREN TEIL DES BILDSCHIRMS.ST
A $D011 ;UNSICHTBAR MACHEN..LDA #$FE.LD
X #0.:LOESCHTAB ;$D018-TABELLE MIT.
STA CHARTAB,X ;$FE-BYTES FUELLEN..INX
;SIE SIMULIEREN.CPX #136
;EIN FLD MIT GE-.BNE LOESCHTAB ;LO
ESCHTEM $3FFF..:SINZEIGER.LDX #0..LDY #0
.:SETPIXELS.LDA #0 ;PIXELNUMMER.
ASL ;MAL 2.STA CHARTAB,Y ;IN
TABELLE SETZEN.CMP #$90 ;SCHON 72
PIXEL ???. ;72/8=9 CURSOR
-ZEILEN. ;(HOEHE DES ORIGI
NAL. ; BILDES).BEQ FERTIG
;JA ?? DANN FERTIG..INY ;
ZEIGER ZUM SETZEN.TYA ;DER CH
ARTAB ERHOEHEN.CLC ;UND MIT S
INUSWERT.ADC SINUS,X ;ADDIEREN.TAY.IN
X.INC SETPIXELS+1 ;PIXELNUMMER ERHOEHN.
.JMP SETPIXELS ;WIEDERHOLEN..:FERTIG.LD
A #0.STA SETPIXELS+1 ;ANFANGSPIXEL WIED
ER. ;AUF 0..INC SINZEIGE
R+1 ;SINUSZEIGER ERHOEHEN.LDA SINZEIGER
+1.CMP #100 ;SCHON TABELLE DURCH
GE-.BNE KEINSINEND ;LAUFEN ????..LDA #
0 ;JA ??.STA SINZEIGER+1 ;DAN
N SINUSZEIGER AUF 0..:KEINSINEND.LDA #1.
STA $D019.JMP $FEBC ;ENDE DER IRQ-RO
UTINE...:CHARTAB.S 136 ;SPEICHER MIT
136 $00-BYTES. ;FUELLEN..:SINUS
;SINUSTABELLE FUER. ;DEN 'KUEN
STLICHEN' FLD..S 70 ;70 $00-BYTES..;
JETZT KOMMEN DIE ABSTAENDE ZWISCHEN.; DE
N PIXELZEILEN..B 1,1,2,2,3,3,4,4,4,4,4,4
,4,4,4,3,3,2,2,1,1..S 80 ;80 $00-BYTES
...........
> CLICK IMAGE PREVIEW FOR FULL MODAL