;:sys36864
	;.opt oo
	*= $c000
v	=53248
irqvec	=$314
sysirq	=$dc0d
oldirq	=2
sprian	sei
	lda irqvec
	sta oldirq+1
	lda irqvec+1
	sta oldirq+2
	lda #<spirq
	sta irqvec
	lda #>spirq
	sta irqvec+1
sat	lda #$33
	sta v+18
	lda #1
	sta v+26
	lda #$7f
	sta sysirq
	cli
	rts
spirq	lda #1
	sta v+19
	lda v+18
	cmp #$33
	beq oben
setp	sta $d011
	stx $d012
oben	lda #$18
	ldx #$fa
	jmp $ea31