;--------------------------------------;
;ÅÃÉ-ÓPLITTER                          ;
;--------------------------------------;

         *= $0810

         LDA #$01
         STA $0286
         JSR $E544
         LDX #$00
C1       LDA #$F5    ; WERT ZW.$00-FF
         STA $4000,X
         STA $4040,X
         INX
         BNE C1
         LDX #$00
TE       LDA TEXT,X
         STA $040D,X
         INX
         CPX #$0C
         BNE TE
;---------------------------------------
         SEI         ;IRQ SPERREN
         LDA #$7F    ;TIMER
         STA $DC0D   ;SETZEN
         LDA #$1B
         STA $D011
         LDA #$01    ;NUR RASTER-IRQ
         STA $D01A   ;ZULASSEN
         LDA #$32    ;RASTER IRQ BEI
         STA $D012   ;$32
         LDA #<START
         STA $0314
         LDA #>START
         STA $0315
         CLI
COM      LDA $DC01
         CMP #$DF
         BNE COM
ENDE     JMP $9000
;---------------------------------------
START    INC $D019
         LDA #$70
         STA $D011
         LDA #$00    ;FARBE FUER RAHMEN
         STA $D020   ;UND HINTERGRUND
         STA $D021
         LDA #$32    ;RASTER IRQ AUF
         STA $D012   ;$32 SETZEN
         LDA #<IRQ1
         STA $0314
         LDA #>IRQ1
         STA $0315
         JMP $EA7E
;---------------------------------------
IRQ1     INC $D019
         LDA #$96    ; AUF BANK AB
         STA $DD00   ; $4000 UMSCHALTEN
         LDA #$C8    ; SINGLE-COLOR
         STA $D016   ; MODUS
         JSR ECI
         LDA #$4A
R3       CMP $D012
         BNE R3
         LDY #$09    ; WARTESCHLEIFE
W3       DEY         ;
         BNE W3      ;
         LDA #$03
         STA $DD00
         LDA #$16    ; COMMODORE ZEICHEN
         STA $D018   ; SATZ EIN
         LDA #$1B    ;
         STA $D011   ;
         LDA #$FA
         STA $D012
         LDA #<START
         STA $0314
         LDA #>START
         STA $0315
         JMP $EA7E

;---------------------------------------
ECI      LDA #$70
         LDY #$00
         LDX $3800   ;_LESEN WELCHE FARB
         STA $D011   ; ZEILE GESCHRIEBEN
         STY $D016   ; WERDEN SOLL.
         STX $D018   ; 10=COL.BEI $4400
         LDA #$71    ; 20=....... $4800
         LDY #$00    ; 30=....... $4C00
         LDX $3801   ; 40=....... $5000
         STA $D011   ; 50=....... $5400
         STY $D016   ; 60=....... $5800
         STX $D018   ; 70=....... $5C00
         LDA #$72    ;
         LDY #$00    ;
         LDX $3802   ;
         STA $D011   ;
         STY $D016   ;
         STX $D018   ;
         LDA #$73
         LDY #$00
         LDX $3803
         STA $D011
         STY $D016
         STX $D018
         LDA #$74
         LDY #$00
         LDX $3804
         STA $D011
         STY $D016
         STX $D018
         LDA #$75
         LDY #$00
         LDX $3805
         STA $D011
         STY $D016
         STX $D018
         LDA #$76
         LDY #$00
         LDX $3806
         STA $D011
         STY $D016
         STX $D018
         LDA #$37
         LDY #$00
         LDX $3807
         STA $D011
         STY $D016
         STX $D018
         LDA #$30
         LDY #$00
         LDX $3808
         STA $D011
         STY $D016
         STX $D018
         LDA #$31
         LDY #$00
         LDX $3809
         STA $D011
         STY $D016
         STX $D018
         LDA #$32
         LDY #$00
         LDX $380A
         STA $D011
         STY $D016
         STX $D018
         LDA #$33
         LDY #$00
         LDX $380B
         STA $D011
         STY $D016
         STX $D018
         LDA #$34
         LDY #$00
         LDX $380C
         STA $D011
         STY $D016
         STX $D018
         LDA #$35
         LDY #$00
         LDX $380D
         STA $D011
         STY $D016
         STX $D018
         LDA #$36
         LDY #$00
         LDX $380E
         STA $D011
         STY $D016
         STX $D018
         LDA #$37
         LDY #$00
         LDX $380F
         STA $D011
         STY $D016
         STX $D018
         LDA #$30
         LDY #$00
         LDX $3810
         STA $D011
         STY $D016
         STX $D018
         LDA #$31
         LDY #$00
         LDX $3811
         STA $D011
         STY $D016
         STX $D018
         LDA #$32
         LDY #$00
         LDX $3812
         STA $D011
         STY $D016
         STX $D018
         LDA #$33
         LDY #$00
         LDX $3813
         STA $D011
         STY $D016
         STX $D018
         LDA #$34
         LDY #$00
         LDX $3814
         STA $D011
         STY $D016
         STX $D018
         LDA #$35
         LDY #$00
         LDX $3815
         STA $D011
         STY $D016
         STX $D018
         LDA #$02
         STA $DD00
         LDA #$70
         STA $D011
         LDA #$14
         STA $D018
         RTS
TEXT     .TEXT "ECI SPLITTER"
;---------------------------------------
         *= $3800
TAB      .BYTE $60,$70,$60,$50,$40,$30
         .BYTE $20,$10,$20,$30,$40,$50
         .BYTE $60,$70,$60,$50,$40,$30
         .BYTE $20,$10,$20,$30,$40,$50
         .BYTE $60
         *= $4400
         .BYTE $17,$7F,$FC,$C8,$8B,$B9
         .BYTE $90,$06,$60,$09,$92,$28
         .BYTE $8A,$AF,$F7,$71,$17,$7F
         .BYTE $FA,$A8,$82,$29,$90,$09
         .BYTE $90,$09,$9B,$B8,$8C,$CF
         .BYTE $F7,$71,$17,$7F,$FC,$C8
         .BYTE $8B,$B9,$90,$06,$00
         *= $4800
         .BYTE $7F,$FC,$C8,$8B,$B9,$90
         .BYTE $06,$6B,$B6,$60,$09,$92
         .BYTE $28,$8A,$AF,$F7,$7F,$FA
         .BYTE $A8,$82,$29,$90,$09,$9B
         .BYTE $B9,$90,$09,$9B,$B8,$8C
         .BYTE $CF,$F7,$7F,$FC,$C8,$8B
         .BYTE $B9,$90,$06,$6B,$00
         *= $4C00
         .BYTE $FC,$C8,$8B,$B9,$90,$06
         .BYTE $6B,$B4,$4B,$B6,$60,$09
         .BYTE $92,$28,$8A,$AF,$FA,$A8
         .BYTE $82,$29,$90,$09,$9B,$B4
         .BYTE $4B,$B9,$90,$09,$9B,$B8
         .BYTE $8C,$CF,$FC,$C8,$8B,$B9
         .BYTE $90,$06,$6B,$B4,$0C
         *= $5000
         .BYTE $C8,$8B,$B9,$90,$06,$6B
         .BYTE $B4,$4E,$E4,$4B,$B6,$60
         .BYTE $09,$92,$28,$8A,$A8,$82
         .BYTE $29,$90,$09,$9B,$B4,$4C
         .BYTE $C4,$4B,$B9,$90,$09,$9B
         .BYTE $B8,$8C,$C8,$8B,$B9,$90
         .BYTE $06,$6B,$B4,$4E,$00
         *= $5400
         .BYTE $8B,$B9,$90,$06,$6B,$B4
         .BYTE $4E,$EF,$FE,$E4,$4B,$B6
         .BYTE $60,$09,$92,$28,$82,$29
         .BYTE $90,$09,$9B,$B4,$4C,$C3
         .BYTE $3C,$C4,$4B,$B9,$90,$09
         .BYTE $9B,$B8,$8B,$B9,$90,$06
         .BYTE $6B,$B4,$4E,$EF,$00
         *= $5800
         .BYTE $B9,$90,$06,$6B,$B4,$4E
         .BYTE $EF,$F7,$7F,$FE,$E4,$4B
         .BYTE $B6,$60,$09,$92,$29,$90
         .BYTE $09,$9B,$B4,$4C,$C3,$3D
         .BYTE $D3,$3C,$C4,$4B,$B9,$90
         .BYTE $09,$9B,$B9,$90,$06,$6B
         .BYTE $B4,$4E,$EF,$F7,$00
         *= $5C00
         .BYTE $90,$06,$6B,$B4,$4E,$EF
         .BYTE $F7,$71,$17,$7F,$FE,$E4
         .BYTE $4B,$B6,$60,$09,$90,$09
         .BYTE $9B,$B4,$4C,$C3,$3D,$D1
         .BYTE $1D,$D3,$3C,$C4,$4B,$B9
         .BYTE $90,$09,$90,$06,$6B,$B4
         .BYTE $4E,$EF,$F7,$71,$0C