
	IncDir	Includes:
	Include	LVO/Exec_Lib.I
	Include	LVO/Datatypes_Lib.I

	BaseReg	DTLib,a5

	Section	Colorado,Code_P

Colorado:	movem.l	d1-a6,-(sp)
	lea.l	DTLib,a5

OpenDTLib:	moveq	#40,d0
	lea.l	DTLib(a5),a1
	move.l	$4.w,a6
	jsr	_LVOOpenLibrary(a6)
	move.l	d0,DTBase(a5)
	beq	EndError

NewDTobj:	move.l	#PicName,d0
	lea.l	CreationTags(a5),a0
	move.l	DTBase(a5),a6
	jsr	_LVONewDTObjectA(a6)
	move.l	d0,DTObject(a5)
	beq	CloseDTLib

GetDTAttrs:	move.l	DTObject(a5),a0
	lea.l	GetAttrTags(a5),a2
	jsr	_LVOGetDTAttrsA(a6)

DisposeDTObj:	move.l	DTObject(a5),a0
	jsr	_LVODisposeDTObject(a6)

CloseDTLib:	move.l	DTBase(a5),a1
	move.l	$4.w,a6
	jsr	_LVOCloseLibrary(a6)

EndError:	movem.l	(sp)+,d1-a6
	moveq	#0,d0
	rts
;------------------------------------------------------------

	Section	ColoData,Data_P

DTLib:	dc.b	"datatypes.library",0
PicName:	dc.b	"HardDisk:T/WBPic.Red-Dragon",0
	Even

CreationTags:	dc.l	$8000101F,"pict"	;	GroupID
	dc.l	$800010D3,0	;	Remap
	dc.l	0

GetAttrTags:	dc.l	$800010CB,ColTable ;	ColorTable
	dc.l	$800010D1,NumCols  ;	NumColors
	dc.l	0

DTBase:	ds.l	1
DTObject:	ds.l	1

ColTable:	ds.l	1
NumCols:	ds.l	1

                                          ¤ 2