Section	Texty,Code_C
	Opt	o+,c-

	Include	:Extras/Custom


	lea	screen,a1
	move.l	a1,d0
	move.w	d0,scrlo
	swap	d0
	move.w	d0,scrhi
	BSR	Print
	move.l	4,a6
	lea.l	Gfx,a1
	clr.l	d0
	jsr	-552(a6)
	move.l	d0,Gloc
	move.l	Gloc,a6
	move.l	50(a6),Cloc
	move.l	#Copper,50(a6)
	move.l	#$ffff,d0
Copdel:	dbf	d0,Copdel
	move.w	#$8380,$dff096
	Move.l	#0,$dff120
	Move.w	#$c000,$dff09a
	clr.b	$bfec01
	clr.l	d0
******************************************************************************
START:	CMP.B	#$FF,$DFF006
	BNE.s	START
	btst	#6,$bfe001
	BEQ	RESET
	BRA.s	START
******************************************************************************
reset:	move.w	#$0f,$dff096
	move.w	#0,$dff0a8
	move.w	#0,$dff0b8
	move.w	#0,$dff0c8
	move.w	#0,$dff0d8
	move.l	Gloc,a6
	move.l	Cloc,50(a6)
	move.l	4,a6
	move.l	Gloc,a1
	jsr	-414(a6)
	clr.l	d0
;	move.b	stack,$4f000
ex:	RTS
******************************************************************************
Gfx:	dc.b	"graphics.library",0
	even
Gloc:	dc.l	0
Cloc:	dc.l	0
	EVEN
*******************************************
Print	LEA	TEXT,A0
	clr.l	d2
	LEA	screen,a1
lp1:	clr.l	d0
	move.b	(a0,d2),d0
	Cmp.b	#0,d0
	Beq	Lp2
	sub.b	#32,d0
	mulu	#8,d0
	move.l	d0,a2
	add.l	#CHARS,a2
	move.b	(a2),(a1)
	move.b	1(a2),80(a1)
	move.b	2(a2),160(a1)
	move.b	3(a2),240(a1)
	move.b	4(a2),320(a1)
	move.b	5(a2),400(a1)
	move.b	6(a2),480(a1)
	move.b	7(a2),560(a1)
	;clr.b	320(a1)
	;clr.b	360(a1)
	;clr.b	400(a1)
	;clr.b	440(a1)
	;clr.b	480(a1)
	;clr.b	520(a1)
	;clr.B	560(A1)
	;clr.b	600(a1)
	add.l	#1,a1
	clr.l	d0
	clr.l	d1
	move.w	d2,d0
	move.w	d2,d1
	divu	#80,d0
	mulu	#80,d0
	sub.w	d0,d1
	tst.w	d1
	bne	next
	add.l	#560,a1
next:	add.w	#1,d2
	bra	lp1
Lp2	rts
******************************************************************************
text:	;	'1234567890123456789009876543210987654321'
	dc.b	'                          cc  I N N E R    C I T Y  cc                          '
	dc.b	'                              ARE PROUD TO PRESENT                              '
	DC.B	'                                                                                '
	DC.B	'                                COMPILATION #002                                '
	DC.B	'                                                                                '
	DC.B	'                             DISK COMPILED BY FANGS                             '
	DC.B	'                              INTRO CODED BY FANGS                              '
	DC.B	'                           COMPILED ON 2ND AUGUST 1989                          '
	DC.B	'                                                                                '
	DC.B	'                      USE UP + DOWN CURSOR KEYS TO CHOOSE                       '
	DC.B	'                               RETURN TO LOAD GAME                              ' 
	DC.B	'                                                                                '
	DC.B	'                    a b c d e f g h i j k l m n opqrstuvwxyz                    '
******************************************************************************
chars:	Incbin	df1:tetris.font
******************************************************************************
STACK:	DC.B	1
	EVEN
******************************************************************************
WHICH:	DC.W	0
******************************************************************************
COPPER:	DC.W	$0180,$0000
	DC.W	$0182,$0000
	DC.W	$0104,$0000
	DC.W	$0108,$0000
	DC.W	$010a,$0000
	DC.W	$0092,$0038
	DC.W	$0094,$00d0
	DC.W	$008e,$2c81
	DC.W	$0090,$2ac1
	DC.W	$0100,$a600
	DC.W	$00E0
scrhi	dc.w	$0007
	DC.W	$00E2
scrlo	dc.w	$0000
	DC.W	$0120,$0000
	DC.W	$0122,$0000
	Dc.w	$0182,$0fff
	DC.W	$FFFF,$FFFE
******************************************************************************

Screen:
	dcb.b	$5000,0