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

*	Demo Bootintro (Manx Aztec C Assembler 3.4a)

*	-=mb=- Dec-87

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

		DC.W	$4AFC		;Illegal - Kennung fuer Boot-Writer

* ==> Hier faengt das Intro an ...

		MOVE.W	#$F00,D0	;Farbe: Rot
Loop:
		MOVE.B	$DFF006,D0	;Vertikale Strahlposition
		MOVE.W	D0,$DFF180	;Hintergrundfarbe
		BTST	#6,$BFE001	;linke Maustaste
		BNE	Loop		;nicht gedrueckt ? ->

* ==> Normaler Abschluss des Bootblocks, Rueckkehr zum Kickstart (bzw. DOS)

		LEA	Dosname,A1
		JSR	-96(A6)		;FindResident, A6=ExecBase
		TST.L	D0		;gefunden ?
		BEQ	NoDos		;nein ->
		MOVE.L	D0,A0
		MOVE.L	22(A0),A0	;Dosinitialisierung
		MOVEQ	#0,D0		;alles OK
		RTS
NoDos:
		MOVEQ	#-1,D0		;Erzeugt einen Guru (30000001)
		RTS

Dosname:	DC.B	"dos.library",0

******************************* Ende **************************************