;:sys36864
	;.opt oo
vic	= $d000
irr	= vic+25
imr	= vic+26
raster	= vic+18
irqvek	= $314
oldirq	= $ea31
control	= vic+17
control2	= vic+22
cia	= $dc0d
irqend	= $ea81
zeile1	= 241
zeile2	= 252
wert1	= 208
wert2	= 252
ctr	= 251
curscol	= 646
speed	= 253
	*= 49152
	sei
	lda #zeile1
	sta raster
	lda control
	and #%01111111
	sta control
	lda #%10000001
	sta imr
	lda #<testirq
	ldy #>testirq
	sta irqvek
	sty irqvek+1
	lda #208 
	 sta wert2
	lda #1 
	 sta ctr
	sta speed
	cli
	rts
testirq	lda irr
	sta irr
	bmi ok
	lda cia
	cli
	jmp irqalt
ok	lda raster
	cmp #zeile2
	bcs second
	ldy #zeile2
	lda wert2
back	sty raster
	sta control2
	jmp irqend
second	ldy #zeile1
	lda #wert1
	clc
	bcc back
irqalt	dec ctr 
	 beq rirq
	jmp oldirq
rirq	lda speed 
	 sta ctr
	ldx wert2 
	 inx 
	 cpx #216
	bcc gehtnoch 
	 ldx #208
	stx wert2
	ldx #39 
	 lda 2023 
	 pha
hard	lda 1984,x 
	 sta 1985,x
	dex 
	 bpl hard 
	 pla
	sta 1984 
	 jmp  oldirq2
gehtnoch	stx wert2
oldirq2	ldx #39 
	 lda curscol
faerb	sta 56256,x 
	 dex
	bpl faerb 
	 jmp oldirq