********** BigBoot-Header *********
***** Fügen Sie ihr Programm ******
** am Schluß dieses Listings ein **
******* von Michael Göckel ********

ExecBase:	equ 4
FindResident:	equ -$60
DoIO:		equ -$1c8
Location:	equ $50000		;feste Adresse für Code

org Location
load Location

	dc.b	`DOS`,0			;DOS Kennzeichen
	dc.l	$0			;Checksumme
	dc.l	$370			;DOS Extension (Rootblock)
start:
	move.w	#$8100,$dff096		;BPLDMA an
	move.l	#Location,a2		;Location
	lea.l	BlockLong(PC),a3	;kurz benötigt
	move.l	(a3),d1			;welche Blocks
	move.l	#0,a3			;Offset
	move.l	#0,d2
checkloop:
	bclr	d2,d1
	bne	loadthis		;noch nicht 0 -> load
	add.l	#$0200,a3		;diesen Blo0ck nicht
	addq.l	#1,d2			;nächster Block
	tst.l	d1
	bne 	checkloop		;Wenn 0, dann alle
	bra	fertig_geladen		;Blocks fertig

**************** LadeRoutine **************
loadthis:
	move.l	ExecBase,a6
	move.w	#2,28(a1)		;TD_CMD_Read
	move.l	a3,44(a1)		;TD_Offset
	move.l	a2,40(a1)		;TD_Location
	move.l	#$0200,36(a1)		;eine BlocklängßÖßë“ÆÉžÞšŠ’Ï’ŠßŠÒŠß‚ß–Ó‹ÏŒ”õŠ¨Ø–ÞšŠ‹ØžÉ”ŠßŠÒŠßÝß–œÓ“”ß–œÓ“”ß–ŒÞžØ‹”ßŠßÖßîšË“ÆÉžÞšŠ’Ï’ŠÒŠßƒß–ŒÞžØ‹”ß–šÄ›”õŠ­ÏžÎßÙšÉ‹ÅŠßŠÒŠßøß–œÓ“”ß–ŒÏœ”ß–‘”ß–žÎ”ßÖßúÃ‘ÞšØßå±…°ì¹ŠÒŠßúõŠ¨Ø–ÞšŠŒÏœÞØßŠÒŠßýß–œÓ“”ß–ŒÏœ”ß–‘”ß–žÎ”ßÖßë’Å‘ŠœÅ“ÎŒÞžØ‹ŠÒŠßÐõŠ±ÏˆŠœÂšÉ”ÙŠÇßŠÒŠßÄß–žÎ”ß–Ï—ÅÞÐ›ÂÈ“ÅœÁÁÖßéŠØÏ‘ÞßÎÃ‰ÏßŠÒŠßéß–›Ã”õŠÒ‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡Ò‡õŠ¯ÆžÓßÎ–Í–Ù‘ÎÑŠÒŠß‹ß–ŒÞžØ‹”ß–“Ï‘Í‹ÂÁŠÃÜÆŠÇš”ß–Ã‹É—”ß–ÆžÓß‚Ï‡Ì™…Î‡ÄÖ”õŠ¬ÏšŠ½Ã‹Ú“Ë‘ÏŒŠÒŠß÷ß–Ø–Í—Þß‚Î—Ç…Í—ÎœÐ™Â˜Ë„Ñ„Ö”ß–ŒÞžØ‹”ß–šÄ›”õŠºÎÑŠ½Ã‹Ú“Ë‘ÏŒŠÒŠßñß–Ø–Í—Þß‚Î—Ç…Í—ÎœÐ™Â˜Ë„Ñ„Ö”ß–ŒÞžØ‹”õL0565B6     ë@L D0,A0
 LEA -$1C(A0),A4
 LEA L0568DA(PC),A5
 MOVE.L (A4),(A5)
 LEA L0566BC(PC),A0
 MOVE.L A0,(A4)
 MOVE.L $94(A6),D0
 LEA L0568DE(PC),A0
 MOVE.L D0,(A0)
 LEA L0567CE(PC),A0
 MOVE.L A0