.unbackground $0d9542 $0d9548
.bank $0d .org $9542
		jsl hook1
		nop
		nop
		nop

.unbackground $06904a $06904d
.bank $06 .org $904a
		jsl hook2

.unbackground $009162 $009162
.bank $00 .org $9162
.db $f1

.unbackground $05fa70 $05fa73
.bank $05 .org $fa70
		jsl msubusy


.bank $36 .org $b000
.section "routines_msu" forced

	hook1:
	.index 16
	.accu 16
		lda $7f2014,x
		sta $04b8
		cmp #$0000
		bne $01
		rtl
		dec a
		cmp $7f9000
		bne $03
		jmp mutespc1
		jmp msuroutine

	hook2:
	.index 16
	.accu 8
		sta $04b4
		iny
		cmp $7f9000
		bne $03
		jmp mutespc1
		jmp msuroutine

	mutespc1:
	.index 16
	.accu 16
		php
		rep #$30
		lda $04b8
		beq $06
		lda #$0001
		sta $04b8
		lda $04b4
		beq $06
		lda #$0000
		sta $04b4
		plp
		rtl

	msuroutine:
	.index 16
	.accu 16
		php
		rep #$30
		phx
		phy
		pha
		sep #$30
		lda $2002
		cmp #$53
		beq msufound   
		rep #$30
		pla
		ply
		plx
		plp
		rtl

msufound:
	.index 16
	.accu 16
		stz $2006
		stz $2000
		rep #$30
		lda $7f9000
		sta $04f1
		lda #$0001
		sta $7f9002
		pla
		and #$00ff
		sta $2004
		sta $7f9000
		lda $04b8
		beq $06
		lda #$0001
		sta $04b8
		lda $04b4
		beq $06
		lda #$0000
		sta $04b4
		ply
		plx
		plp
		rtl

msubusy:
	.index 16
	.accu 8
		jsl $86a505
		lda $7f9002
		bne $01
-		rtl
		bit $2000
		bvs -
		lda #$00
		sta $7f9002
		lda $7f9000
		tax
		lda.l loop_table,x
		sta $2007
		lda #$ff
		sta $2006
		rtl

loop_table:
; loop table 03:loop, 01 non-loop
.db $01 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $01 $03 $03 $03 $03 ; themes 00-0f
.db $03 $03 $03 $03 $01 $03 $01 $03 $03 $01 $01 $03 $01 $01 $03 $03 ; themes 10-1f
.db $01 $03 $01 $03 $03 $03 $01 $03 $01 $01 $03 $03 $03 $01 $01 $03 ; themes 20-2f
.db $03 $03 $03 $01 $03 $01 $03 $03 $03 $01 $01 $03 $03 $03 $03 $03 ; themes 30-3f
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes 40-4f
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes 50-5f
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes 60-6f
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes 70-7f
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes 80-8f
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes 90-9f
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes a0-af
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes b0-bf
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes c0-cf
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes d0-df
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes e0-ef
.db $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 $03 ; themes f0-ff

.ends