*****************************************************************************

				******************
				*   Apear Text   *
				*      Code      *    
				*       By       *
				*     Slaine     *
				*     Arena!     *
				******************

*****************************************************************************
	Incdir	df1:
	Include	source/Macro
*****************************************************************************
	Chip
*****************************************************************************
	Pos
	Kill
*****************************************************************************
	Lea	Custom,A5
	Move.l	#Copper,Cop1lch(a5)			; Init Copper
*****************************************************************************
	Blitwait
	Move.l	#$70000,Bltdpth(a5)
	Move.l	#-1,Bltafwm(a5)
	Move.w	#0,Bltdmod(a5)
	Move.l	#$01000000,Bltcon0(a5)
	Move.w	#256*64+20,Bltsize(a5)
	Blitwait
	Move.l	#$72000,Bltdpth(a5)
	Move.w	#256*64+20,Bltsize(a5)
	Blitwait
*****************************************************************************
	Bsr	PrintPage
*****************************************************************************
MainLoop
	Pos
	Bsr	BlitOn
	TstMice	MainLoop				; Wait For Mouse
*****************************************************************************
	Heal
	Clr.l	d0
	Rts
*****************************************************************************
Del	dc.w	0
BlitOn
	Tst.w	Del
	Beq.s	shaba
	Sub.w	#1,Del
	Rts
shaba
	Move.w	#3,Del
	Move.l	#$0dc00000,Bltcon0(a5)
	Move.l	#-1,Bltafwm(a5)
	Move.w	#38,Bltdmod(a5)
	Move.w	#38,Bltamod(a5)
	Move.w	#00,Bltbmod(a5)
	Move.l	#Apear1,A0
	Move.l	a0,Bltbpth(a5)
	Lea	$70000-(16*40),a0		; Src
	Lea	$73000-(16*40),A1		; Dst
	Move.l	#9-1,d7				; Number Of Chars
	Move.l	XPos,d0				; X
	Move.l	Ypos,d1				; Y
Apear
	Add.w	D0,A0
	Add.w	D1,A0
	Add.w	D0,A1
	Add.w	D1,A1
	Move.l	a0,Bltapth(a5)
	Move.l	a1,Bltdpth(a5)
	Move.w	#16*64+1,Bltsize(a5)
	Sub.w	D0,A0
	Sub.w	D1,A0
	Sub.w	D0,A1
	Sub.w	D1,A1
	Add.w	#2,D0
	Cmp.w	#40,D0
	Blt.s	Leavex
	Clr.w	D0
	Add.w	#16*40,D1
Leavex
	Dbf	d7,Apear
	Add.l	#2,Xpos
	Cmp.l	#40,Xpos
	Blt.s	Shaga
	Clr.l	Xpos
	Add.l	#16*40,Ypos
Shaga
	Rts
*****************************************************************************
PrintPage
	Move.l	#$09f00000,Bltcon0(a5)
	Move.l	#-1,Bltafwm(a5)
	Move.w	#38,Bltdmod(a5)
	Move.w	#38,Bltamod(a5)
	Lea	page1,A0
	Move.l	#$70000,D1
	Move.l	#12-1,D6
Loop1
	Move.l	#20-1,D7
Loop2
	Clr.l	D0
	Clr.l	D2
	Move.b	(a0)+,D0
	Sub.b	#32,d0
	Divu	#20,d0
	Move.w	d0,d2
	Mulu	#40*16,d2
	Swap	d0
	Add.w	d0,d0
	Add.w	d0,d2
	Add.l	#Font,D2
	Blitwait
	Move.l	D2,Bltapth(A5)
	Move.l	D1,Bltdpth(A5)
	Move.w	#16*64+1,Bltsize(a5)
	Add.w	#2,D1
	Dbf	D7,Loop2
	Add.w	#(16*40)-40,d1
	Dbf	D6,Loop1
	Rts
*****************************************************************************
Copper
	Cmove	$2881,Diwstrt
	Cmove	$2cc1,Diwstop
	Cmove	$0038,Ddfstrt
	Cmove	$00d0,Ddfstop
	Cmove	$0000,Bplcon1
	Cmove	$0000,Bpl1mod			
	Cmove	$0000,Bpl2mod
	Cmove	$1200,Bplcon0
	Cmove	$0000,Color00
Bit1l	Cmove	$3000,Bpl1ptl
Bit1h	Cmove	$0007,Bpl1pth
	EndCop
*****************************************************************************
Page1
	Dc.b	"********************"	
	Dc.b	"********************"	
	Dc.b	"********************"	
	Dc.b	"********************"	
	Dc.b	"SLAINE HERE CHECKING"
	Dc.b	"OUT HIS APPEAR TEXT!"
	Dc.b	"ROUTINE DOES IT WORK"
	Dc.b	"I HOPE SO !!!!!!!!!!"
	Dc.b	"********************"	
	Dc.b	"********************"	
	Dc.b	"********************"	
	Dc.b	"********************"	
*****************************************************************************
Font
	Incbin	Gfx/16x16.bm
*****************************************************************************
XPos	Dc.l	0
YPos	Dc.l	0
Apear1
	Incbin	Gfx/ApearText1
	Incbin	Gfx/ApearText1
*****************************************************************************