.setcpu "6502"
.org $1001-2
.word $1001

.word link
.word 2012	; zeilennummer
.byte $9e	; sys-token
.byte "4109"	; adresse
.byte $00	; zeilenende
link:
.byte $00,$00

		sei
		lda #		sta $314
		lda #>raster
		sta $315
		lda #$02
		sta $ff0a
		lda #0	; oben
		sta $ff0b
		lda #11
		sta 65286		
		cli
		rts

raster:
		lda $ff09
		sta $ff09
		lda $ff0b
		cmp #0	; unten
		bcc rasterende

		ldx #98
loop:
		lda colors,x
spalte:
		ldy $ff1e
		cpy #176
		bmi spalte
		sta $ff19
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		nop
		dex
		bpl loop
		jmp rastersik
rasterende:
		lda #0	; unten
		sta $ff0b
rastersik:
		;jmp $fcbe
		pla
		tay
		pla
		tax
		pla
		rti

colors:
	 .byte 0
	 .byte 6,6,6,6,6,6
 	 .byte 22,22,22,22,22,22
	 .byte 38,38,38,38,38,38
         .byte 54,54,54,54,54,54
         .byte 70,70,70,70,70,70
         .byte 86,86,86,86,86,86
         .byte 102,102,102,102,102,102
         .byte 118,118,118,118,118,118
	 .byte 118,118,118,118,118,118
         .byte 102,102,102,102,102,102
         .byte 86,86,86,86,86,86
         .byte 70,70,70,70,70,70
         .byte 54,54,54,54,54,54
	 .byte 38,38,38,38,38,38
 	 .byte 22,22,22,22,22,22
	 .byte 6,6,6,6,6,6
         .byte 0,0,0