; this proggi loads the monifile "moni$f0" into the module
; it should be there, if not you are a la...

run:	move.l 4.w,a6
	lea dosname(pc),a1
	jsr -408(a6)
	move.l d0,a6

	lea file(pc),a5
	move.l a5,d1
	move.l #1005,d2
	jsr -30(a6)
	move.l d0,d7
	bne.s getit

	move.l a5,d1
	move.l #"df1:",(a5)

	move.l #1005,d2
	jsr -30(a6)
	move.l d0,d7
	beq.s nofile

getit:	lea $f00002,a5
	clr.l (a5)
	tst.l (a5)
	bne.s nofile		;ugh, we have no ram...

	move.l a5,a0
	moveq #-2-1,d0
clrit:	sf (a0)+
	dbf d0,clrit

	move.l d7,d1
	move.l #$f00002,d2
	move.l #65536-2,d3
	jsr -42(a6)	
	move.l d7,d1
	jsr -36(a6)

	move.w #$1111,$f00000	;yo, all is ok
quit:	move.l a6,a1
	move.l 4.w,a6
	jsr -414(a6)
	clr.l d0
	rts

nofile:	moveq #-1,d0		;blink means you've been nasty
err:	move.w $dff006,$dff180
	dbf d0,err
	bra.s quit

dosname:dc.b "dos.library",0
even
file:	dc.b "df0:moni$f0",0
oi:	dc.b "beermacht"