;ACME 0.07
!ct pet
;kode $5500
;koala $6000
;char $8800
;$5500 - $8fff
!zone main
	*=$5500
	lda #$1f
	sta  $dc0d		;slaar cia
	sta  $dd0d		;1 og 2 fra
	cld
	sei		;stop interrupts

	lda #$00;nr 0
	tax
	tay
	jsr  $4900		;initmus

	lda #<irq1;gemmer
	ldx #>irq1;interrupt
	sta  $fffe
	stx  $ffff

	lda #$35		;set mmu
	ldx  $ff		;$a000-$bfff
	sta  $01		;$e000-$ffff
	txs

	lda #$01
	ldx #$3b			;bitmap mode
	ldy #$34
	sta  $d01a			;Enable Raster interrupt
	stx  $d011			;Raster interrupt
	sty  $d012			;pa line #34
;standart
	lda #$00
	tax
	tay
	sta  $d020			;sort baggrund
	stx  $d021			;slukker 
	sty  $d015			;sprites	


	jsr  movekoala
	jsr	 clearscreen
	asl  $d019			;slet interrupt flaget
	lda  $dc0d			
	lda  $dd0d

.loop
	cli					;aktiver interrupts
	jmp  .loop

!align 255,0

irq1
	lda #<irq2
	ldx #>irq2
	ldy #$85			;rasterinterrupt linie $85
	sta  $fffe
	stx  $ffff
	sty  $d012
	asl  $d019			;slet interrupt flaget
	tsx
	cli					;aktivere interrup igen
	nop
	nop
	nop

; satter skarm op til multicolour bilede

	lda #$00
	sta  $d020
	sta  $d021
	lda #$02		;vic
	sta  $dd00		;$4000-$7fff
	lda #$78		;scr  $5c00
	sta  $d018		;char $6000
	lda #$3b
	sta  $d011		;bitmap mode
	lda #$d8
	sta  $d016		;multicolor
bitmap
;det tager 9 nops at lave det
irq2
	txs
	ldx #$08
.l0	dex
	bne  .l0
	bit  $ea
	nop
	nop
	lda #$88	;raster compare 
	cmp  $d012
	beq  start
start

	lda #<irq3
	ldx #>irq3
	ldy #$90		;rasterinterrupt pa linie $90 til splitscreen
	sta  $fffe
	stx  $ffff
	sty  $d012
	asl  $d019		;slet interrupt flaget
	
	lda	#$00
	tax
	tay
	rti				;return fra interrupt 

irq3

	ldx #$04	;wait
.l1	dex
	bne  .l1
	nop
	lda #$00
	ldx #$00
	sta  $d021	;sort baggrund
	stx  $d020	;sort front
	lda #$01
	sta  $dd00	;$8000-$bfff
	lda #$02	;src $8000
	sta  $d018	;char $8800
	lda #$1b
	sta  $d011	;textmode
	lda #$c8
	sta  $d016	;norm color
	ldy #$13	
.l2	dey			
	bne  .l2
	lda #<irq1
	ldx #>irq1
	ldy #$30	; interrupt pa line $30
	sta  $fffe
	stx  $ffff
	sty  $d012
	asl  $d019	;slet interrupt flaget
	ldy #$00
rastloop
	ldx  delay,y
.l3	dex
	bne  .l3
	lda  farver,y
	sta  $d020;front
	sta  $d021;baggrund
	iny
	cpy #$20
	bne  rastloop
	jmp ud

!align 1,0
farver
	!by $0b,$00,$0b,$0b,$0c,$0b,$0c,$0c
	!by $0d,$0c,$0d,$0d,$01,$0d,$01,$01
	!by $0d,$01,$0d,$0d,$0c,$0d,$0c,$0c
	!by $0b,$0c,$0b,$0b,$00,$0b,$00,$00
!align 1,0
delay
	!by $0c,8,8,8,9,8,8,1
	!by 8,8,8,8,8,8,8,1
	!by 8,8,8,8,8,8,8,1
	!by 8,8,8,8,8,8,8,1
	!by 8,8,8,8,8,8,8,1

ud
	inc  $d020
	jsr  $4903;play mus
	dec  $d020
	lda #$00
	tax
	tay
	rti

clearscreen
	lda #$20
	ldx #$00
clrscr
	sta  $8000,x
	sta  $8100,x
	sta  $8200,x
	sta  $8300,x
	dex
	bne  clrscr
	rts

!align 255,0
movekoala
	ldx #$00
copy
	lda  $8328,x
	sta  $d800,x
	lda  $8428,x
	sta  $d900,x
	lda  $8528,x
	sta  $da00,x
	lda  $8628,x
	sta  $db00,x
	lda  $7f40,x
	sta  $5c00,x
	lda  $8040,x
	sta  $5d00,x
	lda  $8140,x
	sta  $5e00,x
	lda  $8240,x
	sta  $5f00,x
	dex
	bne  copy
	lda  $8710
	sta  $d021
	ldx #$01
	stx  $d01a
	stx  $0832
	bit  $dc0d
	lda #$2e
	sta  $d012
	lda #$78
	sta  $d018
	lda #$02
	sta  $dd00
	lda #$d8	;multicolor
	sta  $d016
	rts

printtext:
	

!align	255,0
text1
	!scr "\"
	!scr "            der libe"
	!scr "rfusspilz           "
	!scr "   rachael/copy'n'pa"
	!scr "ste technology      "
text2
	!scr "                    "
	!scr "                    "
	!scr "\"
	!scr "--------------------"
	!scr "--------------------"
	!scr "-\hejsa welli        "
	!scr "                   \-"
	!scr "-\undskyld det tog sa"
	!scr "a langtid at faa   \-"
	!scr "-\send men jeg havde "
	!scr "lidt travelt.       -"
	!scr "-\jeg har lagt loveto"
	!scr "ols og brak 3 paa. \-"
	!scr "-\det ser nemlige ud "
	!scr "til at gfb64s demo \-"
	!scr "-\fra tp99 ikke er bl"
	!scr "evet spredt.       \-"
	!scr "-\ hilsen rachael    "
	!scr "                   \-"
	!scr "--------------------"
	!scr "--------------------"

	!by $ff
	!fi 40," "
textcolors
	!by 0,1,6,1,6,1,6,1,6,1,6,1,6,1
	!by 6,1,6,1,6

	!zone data
	*=$4900
	!bin "strike force",,2 ; load tune til $4900
	*=$6000
	!bin "swamp_finish_brush.small.koala",,2 ; load pic til $6000
	*=$8800
	!bin "char-parallax",,2 ; load chars til $8800

	!to "koalademo"


.