00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 30 | *= $100|
00000010: 30 0D 0D 0D 20 20 20 20 20 20 20 20 20 53 45 49 |0... SEI|
00000020: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C |. LDA #<|
00000030: 49 52 51 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |IRQ. LDX|
00000040: 20 23 3E 49 52 51 0D 20 20 20 20 20 20 20 20 20 | #>IRQ. |
00000050: 4C 44 59 20 23 24 38 31 0D 20 20 20 20 20 20 20 |LDY #$81. |
00000060: 20 20 53 54 41 20 24 30 33 31 34 0D 20 20 20 20 | STA $0314. |
00000070: 20 20 20 20 20 53 54 58 20 24 30 33 31 35 0D 20 | STX $0315. |
00000080: 20 20 20 20 20 20 20 20 53 54 59 20 24 44 30 31 | STY $D01|
00000090: 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |A. LDA #|
000000A0: 30 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |0. LDX #|
000000B0: 24 31 42 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |$1B. LDY|
000000C0: 20 23 24 32 44 0D 20 20 20 20 20 20 20 20 20 53 | #$2D. S|
000000D0: 54 41 20 24 44 43 30 45 0D 20 20 20 20 20 20 20 |TA $DC0E. |
000000E0: 20 20 53 54 58 20 24 44 30 31 31 0D 20 20 20 20 | STX $D011. |
000000F0: 20 20 20 20 20 53 54 59 20 24 44 30 31 32 0D 20 | STY $D012. |
00000100: 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 20 | CLI. |
00000110: 20 20 20 20 20 52 54 53 0D 0D 49 52 51 20 20 20 | RTS..IRQ |
00000120: 20 20 20 49 4E 43 20 24 44 30 31 39 0D 20 20 20 | INC $D019. |
00000130: 20 20 20 20 20 20 4C 44 58 20 23 30 0D 57 41 49 | LDX #0.WAI|
00000140: 54 20 20 20 20 20 4C 44 59 20 54 41 42 45 4C 4C |T LDY TABELL|
00000150: 45 2C 58 0D 4C 4F 4F 50 20 20 20 20 20 44 45 59 |E,X.LOOP DEY|
00000160: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F |. BNE LO|
00000170: 4F 50 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |OP. LDA |
00000180: 46 41 52 42 45 2C 58 0D 20 20 20 20 20 20 20 20 |FARBE,X. |
00000190: 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 20 | STA $D020. |
000001A0: 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 20 | STA $D021. |
000001B0: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. |
000001C0: 20 20 20 20 43 50 58 20 23 4C 41 45 4E 47 45 0D | CPX #LAENGE.|
000001D0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 57 41 49 | BNE WAI|
000001E0: 54 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4D |T. JSR M|
000001F0: 4F 56 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |OV. LDA |
00000200: 23 35 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 |#50. STA|
00000210: 20 24 44 30 31 32 0D 20 20 20 20 20 20 20 20 20 | $D012. |
00000220: 4A 4D 50 20 24 45 41 33 31 0D 0D 46 41 52 42 45 |JMP $EA31..FARBE|
00000230: 4E 20 20 20 2E 42 59 54 45 20 30 2C 31 31 2C 31 |N .BYTE 0,11,1|
00000240: 32 2C 31 35 2C 31 2C 31 35 2C 31 32 2C 31 31 2C |2,15,1,15,12,11,|
00000250: 30 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |0,0. .BY|
00000260: 54 45 20 30 2C 36 2C 31 34 2C 33 2C 31 2C 33 2C |TE 0,6,14,3,1,3,|
00000270: 31 34 2C 36 2C 30 2C 30 2C 30 0D 20 20 20 20 20 |14,6,0,0,0. |
00000280: 20 20 20 20 2E 42 59 54 45 20 30 2C 31 2C 32 2C | .BYTE 0,1,2,|
00000290: 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 |3,4,5,6,7,8,9,10|
000002A0: 2C 31 31 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |,11. .BY|
000002B0: 54 45 20 31 30 2C 39 2C 38 2C 37 2C 36 2C 35 2C |TE 10,9,8,7,6,5,|
000002C0: 30 0D 0D 4C 41 45 4E 47 45 20 20 20 3D 20 34 30 |0..LAENGE = 40|
000002D0: 0D 54 41 42 45 4C 4C 45 20 20 2E 42 59 54 45 20 |.TABELLE .BYTE |
000002E0: 36 2C 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C |6,8,8,8,8,8,8,8,|
000002F0: 31 2C 39 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |1,9. .BY|
00000300: 54 45 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C 31 |TE 8,8,8,8,8,8,1|
00000310: 2C 38 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |,8. .BYT|
00000320: 45 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C 31 2C |E 8,8,8,8,8,8,1,|
00000330: 38 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |8. .BYTE|
00000340: 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C 31 2C 38 | 8,8,8,8,8,8,1,8|
00000350: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE |
00000360: 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C 31 2C 38 0D |8,8,8,8,8,8,1,8.|
00000370: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 38 | .BYTE 8|
00000380: 2C 38 2C 38 2C 38 2C 38 2C 38 2C 31 2C 38 0D 0D |,8,8,8,8,8,1,8..|
00000390: 0D 4D 4F 56 20 20 20 20 20 20 4C 44 58 20 23 30 |.MOV LDX #0|
000003A0: 0D 4C 4C 4C 20 20 20 20 20 20 4C 44 41 20 46 41 |.LLL LDA FA|
000003B0: 52 42 45 4E 2C 58 0D 20 20 20 20 20 20 20 20 20 |RBEN,X. |
000003C0: 53 54 41 20 46 41 52 42 45 2C 58 0D 20 20 20 20 |STA FARBE,X. |
000003D0: 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 | INX. |
000003E0: 20 20 43 50 58 20 23 4C 41 45 4E 47 45 0D 20 20 | CPX #LAENGE. |
000003F0: 20 20 20 20 20 20 20 42 4E 45 20 4C 4C 4C 0D 4D | BNE LLL.M|
00000400: 4F 56 45 20 20 20 20 20 4C 44 41 20 24 37 30 30 |OVE LDA $700|
00000410: 30 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |0. CMP #|
00000420: 24 46 46 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |$FF. BNE|
00000430: 20 4D 56 32 0D 20 20 20 20 20 20 20 20 20 4C 44 | MV2. LD|
00000440: 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |A #0. ST|
00000450: 41 20 4D 4F 56 45 2B 31 0D 20 20 20 20 20 20 20 |A MOVE+1. |
00000460: 20 20 4A 4D 50 20 4D 4F 56 45 0D 4D 56 32 20 20 | JMP MOVE.MV2 |
00000470: 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 | LDY #0. |
00000480: 20 20 20 20 54 41 58 0D 4D 56 33 20 20 20 20 20 | TAX.MV3 |
00000490: 20 4C 44 41 20 43 4F 4C 4E 45 57 2C 59 0D 20 20 | LDA COLNEW,Y. |
000004A0: 20 20 20 20 20 20 20 53 54 41 20 46 41 52 42 45 | STA FARBE|
000004B0: 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D |,X. INX.|
000004C0: 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 | INY. |
000004D0: 20 20 20 20 20 20 43 50 59 20 23 38 0D 20 20 20 | CPY #8. |
000004E0: 20 20 20 20 20 20 42 4E 45 20 4D 56 33 0D 20 20 | BNE MV3. |
000004F0: 20 20 20 20 20 20 20 49 4E 43 20 4D 4F 56 45 2B | INC MOVE+|
00000500: 31 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D |1. RTS..|
00000510: 43 4F 4C 4E 45 57 20 20 20 2E 42 59 54 45 20 30 |COLNEW .BYTE 0|
00000520: 2C 31 31 2C 31 32 2C 31 35 2C 31 2C 31 35 2C 31 |,11,12,15,1,15,1|
00000530: 32 2C 31 31 2C 30 0D 0D 46 41 52 42 45 20 20 20 |2,11,0..FARBE |
00000540: 20 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 | .BYTE 0,0,0,0,0|
00000550: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 20 20 20 |,0,0,0,0,0. |
00000560: 20 20 20 20 2E 42 59 54 45 20 30 2C 30 2C 30 2C | .BYTE 0,0,0,|
00000570: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 |0,0,0,0,0,0,0. |
00000580: 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C 30 | .BYTE 0,0|
00000590: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000005A0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE |
000005B0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
000005C0: 30 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |0,0. .BY|
000005D0: 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |TE 0,0,0,0,0,0,0|
000005E0: 2C 30 2C 30 2C 30 0D 0D |,0,0,0.. |
*= $1000... SEI.
LDA #<IRQ. LDX #>IRQ.
LDY #$81. STA $0314. STX
$0315. STY $D01A. LDA #
0. LDX #$1B. LDY #$2D.
STA $DC0E. STX $D011.
STY $D012. CLI. RTS
..IRQ INC $D019. LDX #0.WAI
T LDY TABELLE,X.LOOP DEY.
BNE LOOP. LDA FARBE,X.
STA $D020. STA $D021. I
NX. CPX #LAENGE. BNE WAI
T. JSR MOV. LDA #50.
STA $D012. JMP $EA31..FARBE
N .BYTE 0,11,12,15,1,15,12,11,0,0.
.BYTE 0,6,14,3,1,3,14,6,0,0,0.
.BYTE 0,1,2,3,4,5,6,7,8,9,10,11.
.BYTE 10,9,8,7,6,5,0..LAENGE = 40
.TABELLE .BYTE 6,8,8,8,8,8,8,8,1,9.
.BYTE 8,8,8,8,8,8,1,8. .BYT
E 8,8,8,8,8,8,1,8. .BYTE 8,8,8,8
,8,8,1,8. .BYTE 8,8,8,8,8,8,1,8.
.BYTE 8,8,8,8,8,8,1,8...MOV
LDX #0.LLL LDA FARBEN,X.
STA FARBE,X. INX. CPX #L
AENGE. BNE LLL.MOVE LDA $700
0. CMP #$FF. BNE MV2.
LDA #0. STA MOVE+1.
JMP MOVE.MV2 LDY #0. TAX.
MV3 LDA COLNEW,Y. STA FARBE
,X. INX. INY. CP
Y #8. BNE MV3. INC MOVE+
1. RTS..COLNEW .BYTE 0,11,12,1
5,1,15,12,11,0..FARBE .BYTE 0,0,0,0,0
,0,0,0,0,0. .BYTE 0,0,0,0,0,0,0,
0,0,0. .BYTE 0,0,0,0,0,0,0,0,0,0
. .BYTE 0,0,0,0,0,0,0,0,0,0.
.BYTE 0,0,0,0,0,0,0,0,0,0..