; Assembler: DevPac 2.14

; use Tab 11

*****  Standart_OS2.0-Bootblock  *****

bootcode	dc.l	$444f5300		; Standart-Bootcode
	dc.l	$00000000
	dc.l	$00000370

	lea	exp_lib(pc),a1
	moveq	#37,d0
	jsr	-552(a6)		; _LVOOpenLibrary
	tst.l	d0
	beq.s	.no_explib
	movea.l	d0,a1
	bset	#6,34(a1)
	jsr	-414(a6)		; _LVOCloseLibrary
.no_explib	lea	dos_lib(pc),a1
	jsr	-96(a6)		; _LVOFindResident
	tst.l	d0
	beq.s	.not_found
	movea.l	d0,a0
	movea.l	22(a0),a0
	moveq	#0,d0
	rts
.not_found	moveq	#-1,d0
	rts
	
exp_lib	dc.b	"expansion.library",0
dos_lib	dc.b	"dos.library",0

bootcode_end

	end