;--------------------------------------------------------------------------
	shorta
setinidisp
	kbug1
	lda	stayblack
	inc	a
	beq	.nowait
.blackwait
	lda	#$80
	sta.l	xinidisp1
	sta.l	xinidisp2
	bra	.done
.nowait
	lda	fadedir		;Set inidisp
	lbeq	.done
	bpl	.fadeup
.fadedown	cmp	#-2
	beq	.qfadedown
	cmp	#-3
	beq	.sfadedown
.fade1	lda	fade
.setdown	beq	.off
	dec	a
	beq	.off
	sta.l	xinidisp1
	sta.l	xinidisp2
	sta.l	xinidisp1a
	sta	fade
	bra	.done
.off	lda	#$80
	sta.l	xinidisp1
	sta.l	xinidisp2
	sta.l	xinidisp1a
	stz	fadedir
	stz	fade
	bra	.done
.sfadedown	lda	gameframe
	and	#1
	beq	.fade1
	rts
.qfadedown	lda	fade
	beq	.off
	dec	a
	beq	.off
	bra	.setdown
.fadeup	cmp	#2
	beq	.qfadeup
	lda	fade
.setup	cmp	#15
	beq	.on
	inc	a
.setqup	sta.l	xinidisp1
	sta.l	xinidisp2
	sta.l	xinidisp1a
	sta	fade
	bra	.done
.on	stz	fadedir
	lda	#15
	sta	fade
	bra	.done
.qfadeup	lda	fade
	cmp	#15
	beq	.on
	inc	a
	cmp	#15
	beq	.setqup
	inc	a
	bra	.setqup
.done
	rts


