680x0:Opening a library

This is a example on how to open a library:
(with the Library Vector Offsets added so you won't need to use any includes yet)

OldOpenLibrary	= -408		; OldOpenLibrary(libName)(A1)
OpenLibrary	= -552		; OpenLibrary(libName,version)(A1,D0)
CloseLibrary	= -414		; CloseLibrary(library)(A1)

	move.l	$4.w,a6		; Get the value at position $4 in memory
				; This value is the base of exec.library

	lea	LibName(pc),a1	; libName must be in A1
	moveq	#0,d0		; version must be in D0
	jsr	OpenLibrary(a6)	; Call the OpenLibrary function

	; OldOpenLibrary looks if the library is in memory (or ROM)
	; and loads it if nessesary.
	; Then it returns the base of graphics.library in d0

	move.l	d0,libbase	; Store the base

	; Closelibrary needs the base of the library
	; (the address given to you in D0 by OpenLibrary)
	; to close the library

	move.l	libbase,a1	; Get the base
	jsr	CloseLibrary(a6)

	rts

libname:	dc.b	'dos.library',0
libbase:	dc.l	$00000000