MACHINE	MC68000

; Header für Hardware-Codes

newheader	equ	1	;für Code-Chunk --> FAST-Ram
onehunk		equ	0	;ganzes Programm in nur einem Code_C-Hunk
noreturn	equ	0	;Code kommt nicht zurück
preroutine	equ	0	;Soll vorher noch 'prerout' ge-jsrt werden?
nowbstartup	equ	0	;kein WBStartup-Code ?

nocache		equ	0	;Caches ausstellen.
mincpu		equ	0	;MC680x0
minfpu		equ	0	;MC6888x, 0=none
minchips	equ	0	;0=Original, 1=ECS, 2=AGA+

		include	"A:StartupCode.s"

MAIN:		;läuft im Supervisor-Mode
		move.l	#vbi,$6c.w
		move.w	#$83c0,$dff096
		move.l	#cop,$dff080
		move.w	d0,$dff088
		move.w	#$c020,$dff09a
.1		tst.w	_vbi
		beq.s	.1
		;...
		clr.w	_vbi
		btst	#6,$bfe001
		bne.s	.1
		rte

_vbi		dc.w	0
vbi		movem.l	a0-a6/d0-d7,-(a7)
		st	_vbi
		move.w	#$20,$dff09c
		movem.l	(a7)+,a0-a6/d0-d7
		nop
		rte


; CHIP-DATA ----------------------------------------------------------------

		section	d,data_c

cop		dc.l	$01800123,$fffffffe


; SPACE --------------------------------------------------------------------

		section	b,bss_c

		section	b2,bss