00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 30 | *= $100|
00000010: 30 20 20 20 20 3B 53 54 41 52 54 2D 41 44 52 45 |0 ;START-ADRE|
00000020: 53 53 45 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |SSE..;----------|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 20 |-------------.. |
00000050: 20 20 20 20 20 20 20 20 53 45 49 20 20 20 20 20 | SEI |
00000060: 20 20 20 3B 49 52 51 20 53 50 45 52 52 45 4E 0D | ;IRQ SPERREN.|
00000070: 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 4E 49 | JSR INI|
00000080: 54 20 20 20 3B 42 49 4C 44 20 49 4E 49 54 49 41 |T ;BILD INITIA|
00000090: 4C 49 53 49 45 52 45 4E 0D 0D 20 20 20 20 20 20 |LISIEREN.. |
000000A0: 20 20 20 4C 44 41 20 23 3E 53 54 41 52 54 20 3B | LDA #>START ;|
000000B0: 48 49 47 48 42 59 54 45 0D 20 20 20 20 20 20 20 |HIGHBYTE. |
000000C0: 20 20 53 54 41 20 24 30 33 31 35 20 20 20 3B 53 | STA $0315 ;S|
000000D0: 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 4C |ETZEN. L|
000000E0: 44 41 20 23 3C 53 54 41 52 54 20 3B 4C 4F 57 42 |DA #<START ;LOWB|
000000F0: 59 54 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 |YTE. STA|
00000100: 20 24 30 33 31 34 20 20 20 3B 53 45 54 5A 45 4E | $0314 ;SETZEN|
00000110: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.. LDA #|
00000120: 24 38 31 20 20 20 20 3B 52 41 53 54 45 52 2D 49 |$81 ;RASTER-I|
00000130: 52 51 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |RQ. STA |
00000140: 24 44 30 31 41 20 20 20 3B 41 4E 4D 45 4C 44 45 |$D01A ;ANMELDE|
00000150: 4E 0D 20 20 20 20 20 20 20 20 20 43 4C 49 20 20 |N. CLI |
00000160: 20 20 20 20 20 20 20 3B 49 52 51 20 46 52 45 49 | ;IRQ FREI|
00000170: 47 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 52 |GEBEN. R|
00000180: 54 53 20 20 20 20 20 20 20 20 20 3B 5A 55 52 55 |TS ;ZURU|
00000190: 45 43 4B 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ECK..;----------|
000001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 53 54 |-------------.ST|
000001C0: 41 52 54 20 20 20 20 4C 44 41 20 23 24 33 38 20 |ART LDA #$38 |
000001D0: 20 3B 57 41 52 54 45 4E 20 41 55 46 0D 53 54 31 | ;WARTEN AUF.ST1|
000001E0: 20 20 20 20 20 20 43 4D 50 20 24 44 30 31 32 20 | CMP $D012 |
000001F0: 3B 52 41 53 54 45 52 5A 45 49 4C 45 20 24 33 38 |;RASTERZEILE $38|
00000200: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 54 |. BNE ST|
00000210: 31 20 20 20 3B 0D 0D 20 20 20 20 20 20 20 20 20 |1 ;.. |
00000220: 4C 44 41 20 23 24 31 44 20 20 3B 42 49 54 4D 41 |LDA #$1D ;BITMA|
00000230: 50 2D 42 45 52 45 49 43 48 0D 20 20 20 20 20 20 |P-BEREICH. |
00000240: 20 20 20 53 54 41 20 24 44 30 31 38 20 3B 53 45 | STA $D018 ;SE|
00000250: 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 |TZEN. LD|
00000260: 41 20 23 24 33 42 20 20 3B 42 49 54 4D 41 50 0D |A #$3B ;BITMAP.|
00000270: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0|
00000280: 31 31 20 3B 41 4E 53 43 48 41 4C 54 45 4E 0D 20 |11 ;ANSCHALTEN. |
00000290: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 31 38 | LDA #$18|
000002A0: 20 20 3B 4D 55 4C 54 49 43 4F 4C 4F 52 0D 20 20 | ;MULTICOLOR. |
000002B0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 36 | STA $D016|
000002C0: 20 3B 41 4E 53 43 48 41 4C 54 45 4E 0D 0D 20 20 | ;ANSCHALTEN.. |
000002D0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 44 32 20 | LDA #$D2 |
000002E0: 20 3B 57 41 52 54 45 4E 20 41 55 46 0D 53 54 32 | ;WARTEN AUF.ST2|
000002F0: 20 20 20 20 20 20 43 4D 50 20 24 44 30 31 32 20 | CMP $D012 |
00000300: 3B 52 41 53 54 45 52 5A 45 49 4C 45 20 24 44 32 |;RASTERZEILE $D2|
00000310: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 54 |. BNE ST|
00000320: 32 20 20 20 3B 0D 0D 20 20 20 20 20 20 20 20 20 |2 ;.. |
00000330: 4E 4F 50 20 20 20 20 20 20 20 3B 57 41 52 54 45 |NOP ;WARTE|
00000340: 4E 2C 20 55 4D 20 46 4C 41 43 4B 45 52 4E 0D 20 |N, UM FLACKERN. |
00000350: 20 20 20 20 20 20 20 20 4E 4F 50 20 20 20 20 20 | NOP |
00000360: 20 20 3B 5A 55 20 56 45 52 4D 45 49 44 45 4E 0D | ;ZU VERMEIDEN.|
00000370: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$|
00000380: 31 42 20 20 3B 42 49 54 4D 41 50 2D 4D 4F 44 55 |1B ;BITMAP-MODU|
00000390: 53 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |S. STA $|
000003A0: 44 30 31 31 20 3B 41 55 53 53 43 48 41 4C 54 45 |D011 ;AUSSCHALTE|
000003B0: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |N. LDA #|
000003C0: 24 31 35 20 20 3B 4F 52 49 47 49 4E 41 4C 2D 43 |$15 ;ORIGINAL-C|
000003D0: 48 41 52 53 45 54 0D 20 20 20 20 20 20 20 20 20 |HARSET. |
000003E0: 53 54 41 20 24 44 30 31 38 20 3B 45 49 4E 42 4C |STA $D018 ;EINBL|
000003F0: 45 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 20 4C |ENDEN. L|
00000400: 44 41 20 23 24 43 38 20 20 3B 4D 55 4C 54 49 43 |DA #$C8 ;MULTIC|
00000410: 4F 4C 4F 52 0D 20 20 20 20 20 20 20 20 20 53 54 |OLOR. ST|
00000420: 41 20 24 44 30 31 36 20 3B 41 55 53 53 43 48 41 |A $D016 ;AUSSCHA|
00000430: 4C 54 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 49 |LTEN.. I|
00000440: 4E 43 20 24 44 30 31 39 20 3B 49 52 52 20 4C 4F |NC $D019 ;IRR LO|
00000450: 45 53 43 48 45 4E 0D 0D 4F 4C 44 49 52 51 20 20 |ESCHEN..OLDIRQ |
00000460: 20 4A 4D 50 20 24 45 41 33 31 20 3B 41 4C 54 45 | JMP $EA31 ;ALTE|
00000470: 52 20 49 52 51 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |R IRQ.;---------|
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 0D 0D |--------------..|
000004A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------|
000004B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004C0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 49 4E 49 54 20 20 20 |--------.INIT |
000004D0: 20 20 4C 44 41 20 23 24 30 30 20 20 3B 53 43 52 | LDA #$00 ;SCR|
000004E0: 45 45 4E 2D 46 41 52 42 45 4E 0D 20 20 20 20 20 |EEN-FARBEN. |
000004F0: 20 20 20 20 53 54 41 20 24 44 30 32 30 20 3B 41 | STA $D020 ;A|
00000500: 55 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |UF. STA |
00000510: 24 44 30 32 31 20 3B 53 43 48 57 41 52 5A 20 53 |$D021 ;SCHWARZ S|
00000520: 45 54 5A 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 |ETZEN.. |
00000530: 4C 44 41 20 23 24 31 44 20 20 3B 42 49 54 4D 41 |LDA #$1D ;BITMA|
00000540: 50 2D 42 45 52 45 49 43 48 0D 20 20 20 20 20 20 |P-BEREICH. |
00000550: 20 20 20 53 54 41 20 24 44 30 31 38 20 3B 53 45 | STA $D018 ;SE|
00000560: 54 5A 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 4C |TZEN.. L|
00000570: 44 41 20 23 24 33 42 20 20 3B 42 49 54 4D 41 50 |DA #$3B ;BITMAP|
00000580: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D|
00000590: 30 31 31 20 3B 41 4E 53 43 48 41 4C 54 45 4E 0D |011 ;ANSCHALTEN.|
000005A0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$|
000005B0: 31 38 20 20 3B 4D 55 4C 54 49 43 4F 4C 4F 52 0D |18 ;MULTICOLOR.|
000005C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0|
000005D0: 31 36 20 3B 41 4E 53 43 48 41 4C 54 45 4E 0D 0D |16 ;ANSCHALTEN..|
000005E0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0|
000005F0: 30 20 20 20 20 3B 0D 4C 4F 4F 50 31 20 20 20 20 |0 ;.LOOP1 |
00000600: 4C 44 41 20 24 33 46 34 30 2C 58 20 3B 53 43 52 |LDA $3F40,X ;SCR|
00000610: 45 45 4E 2D 52 41 4D 0D 20 20 20 20 20 20 20 20 |EEN-RAM. |
00000620: 20 53 54 41 20 24 30 34 30 30 2C 58 20 3B 49 4E | STA $0400,X ;IN|
00000630: 20 44 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 | DEN. LD|
00000640: 41 20 24 34 30 34 30 2C 58 20 3B 52 49 43 48 54 |A $4040,X ;RICHT|
00000650: 49 47 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |IGEN. ST|
00000660: 41 20 24 30 35 30 30 2C 58 20 3B 42 45 52 45 49 |A $0500,X ;BEREI|
00000670: 43 48 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |CH. LDA |
00000680: 24 34 31 34 30 2C 58 20 3B 41 42 20 24 30 34 30 |$4140,X ;AB $040|
00000690: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $|
000006A0: 30 36 30 30 2C 58 20 3B 53 43 48 52 45 49 42 45 |0600,X ;SCHREIBE|
000006B0: 4E 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |N.. LDA |
000006C0: 24 34 33 32 38 2C 58 20 3B 43 4F 4C 4F 52 2D 52 |$4328,X ;COLOR-R|
000006D0: 41 4D 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |AM. STA |
000006E0: 24 44 38 30 30 2C 58 20 3B 49 4E 20 44 45 4E 0D |$D800,X ;IN DEN.|
000006F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 34 34 | LDA $44|
00000700: 32 38 2C 58 20 3B 52 49 43 48 54 49 47 45 4E 0D |28,X ;RICHTIGEN.|
00000710: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 39 | STA $D9|
00000720: 30 30 2C 58 20 3B 42 45 52 45 49 43 48 0D 20 20 |00,X ;BEREICH. |
00000730: 20 20 20 20 20 20 20 4C 44 41 20 24 34 35 32 38 | LDA $4528|
00000740: 2C 58 20 3B 41 42 20 24 30 34 30 30 0D 20 20 20 |,X ;AB $0400. |
00000750: 20 20 20 20 20 20 53 54 41 20 24 44 41 30 30 2C | STA $DA00,|
00000760: 58 20 3B 53 43 48 52 45 49 42 45 4E 0D 20 20 20 |X ;SCHREIBEN. |
00000770: 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 | INX |
00000780: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 42 4E 45 | ;. BNE|
00000790: 20 4C 4F 4F 50 31 20 20 20 3B 0D 20 20 20 20 20 | LOOP1 ;. |
000007A0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS |
000007B0: 3B 5A 55 52 55 45 43 4B 0D 3B 2D 2D 2D 2D 2D 2D |;ZURUECK.;------|
000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007E0: 2D 0D 0D |-.. |
*= $1000 ;START-ADRESSE..;--
-------------------------------------..
SEI ;IRQ SPERREN.
JSR INIT ;BILD INITIALISIEREN..
LDA #>START ;HIGHBYTE. STA $0
315 ;SETZEN. LDA #<START ;LOWB
YTE. STA $0314 ;SETZEN..
LDA #$81 ;RASTER-IRQ. STA
$D01A ;ANMELDEN. CLI ;
IRQ FREIGEBEN. RTS ;ZURU
ECK..;----------------------------------
-----.START LDA #$38 ;WARTEN AUF.ST1
CMP $D012 ;RASTERZEILE $38.
BNE ST1 ;.. LDA #$1D ;BITMA
P-BEREICH. STA $D018 ;SETZEN.
LDA #$3B ;BITMAP. STA $D0
11 ;ANSCHALTEN. LDA #$18 ;MULTI
COLOR. STA $D016 ;ANSCHALTEN..
LDA #$D2 ;WARTEN AUF.ST2 CM
P $D012 ;RASTERZEILE $D2. BNE ST
2 ;.. NOP ;WARTEN, UM FL
ACKERN. NOP ;ZU VERMEIDEN.
. LDA #$1B ;BITMAP-MODUS.
STA $D011 ;AUSSCHALTEN. LDA #
$15 ;ORIGINAL-CHARSET. STA $D01
8 ;EINBLENDEN. LDA #$C8 ;MULTIC
OLOR. STA $D016 ;AUSSCHALTEN..
INC $D019 ;IRR LOESCHEN..OLDIRQ
JMP $EA31 ;ALTER IRQ.;-----------------
----------------------..;---------------
------------------------.INIT LDA #$
00 ;SCREEN-FARBEN. STA $D020 ;A
UF. STA $D021 ;SCHWARZ SETZEN..
LDA #$1D ;BITMAP-BEREICH.
STA $D018 ;SETZEN.. LDA #$3B
;BITMAP. STA $D011 ;ANSCHALTEN.
. LDA #$18 ;MULTICOLOR.
STA $D016 ;ANSCHALTEN.. LDX #$0
0 ;.LOOP1 LDA $3F40,X ;SCREEN-RAM.
STA $0400,X ;IN DEN. LD
A $4040,X ;RICHTIGEN. STA $0500,
X ;BEREICH. LDA $4140,X ;AB $040
0. STA $0600,X ;SCHREIBEN..
LDA $4328,X ;COLOR-RAM. STA
$D800,X ;IN DEN. LDA $4428,X ;RI
CHTIGEN. STA $D900,X ;BEREICH.
LDA $4528,X ;AB $0400. ST
A $DA00,X ;SCHREIBEN. INX
;. BNE LOOP1 ;. RTS
;ZURUECK.;----------------------
-----------------..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL