; Raster-Split-Hires - True 160 * 240 pixels
; only for PAL-VIC 20
; Video-Ram Top: 4096-4351 = 240 double height chars
; Char-Ram  Top: 4352-8191 = 3840 Byte = 30720 pixels(standard 160*192 res)
; Char-Ram Bottom1: 0-239 = 240 Byte = 1920 pixels
; Video-Ram Bottom: 240-299 = 60 double height chars
; Char-Ram Bottom2: 304-1023 = 720 Byte = 5760 pixels
*=$2000
	sei		; Set Interrupt Flag
	ldy	#$10
	ldx	#$00
	txa
clear1
	sta	$1000,x
	inx
	bne	clear1
	inc	clear1+2
	dey
	bne	clear1
	lda	#$10
	sta	clear1+2
	ldy	#$04
	lda	#$00
clear2
	sta	$0300,x
	sta	$9700,x
	inx
	bne	clear2
	dec	clear2+2
	dec	clear2+5
	dey
	bne	clear2
	lda	#$03
	sta	clear2+2
	lda	#$97
	sta	clear2+5
charmap1
	ldx	#$10
loop1	txa
	sta	$0ff0,x
	inx
	bne	loop1
charmap2	txa
	sta	$f0,x
	inx
	cpx	#$0f
	bne	charmap2
	ldx	#$13
loop2	txa
	byte	$9d ; sta $00ec,x (since x = $13 from $00ff)
	byte	$ec
	byte	$00
	inx
	cpx	#$40
	bne	loop2
show
	lda	#$0e
	sta	$9000
	lda	#$19
	sta	$9001
	lda	#$1f
	sta	$9003
	ldx	#$14
	stx	$9002
loop	ldy	#$cc
	sty	$9005
	ldy	#$88
	lda	#$79
raster	cmp	$9004
	bne	raster
	sty	$9005
	lda	#$91
raster2	cmp	$9004
	bne	raster2
	beq	loop