XREF	ColourReq


LINKLIB	MACRO
	move.l	\2,a6
	jsr	\1(a6)
	ENDM


WBENCHSCREEN	EQU	$00000001
CUSTOMSCREEN	EQU	$F
V_HIRES		EQU	$8000


* Forget about linking with amiga.lib

_LVOOpenLibrary EQU	$fffffdd8
_LVOCloseLibrary	EQU	$fffffe62
_AbsExecBase	EQU	$00000004
_LVOCloseScreen	EQU	$ffffffbe
_LVOOpenScreen	EQU	$ffffff3a

* my definitions


*	none today


_main:

	lea	INTUIT.NAME,a1	Open Intuition
	clr.l	d0
	LINKLIB	_LVOOpenLibrary,_AbsExecBase	Macro, save typing
	move.l	d0,Intuitionx.Ptr

	lea.l	NScreen,a0
	LINKLIB	_LVOOpenScreen,Intuitionx.Ptr	Open the custom screen
	move.l	d0,Screen.Ptr
	cmp.l	#0,d0
	beq	NoScreen

	jsr	ColourReq

	move.l	Screen.Ptr,a0
	LINKLIB	_LVOCloseScreen,Intuitionx.Ptr
	move.l	Intuitionx.Ptr,a1
	LINKLIB	_LVOCloseLibrary,_AbsExecBase

NoScreen:
	rts

	CNOP	0,4

Intuitionx.Ptr:
	dc.l	0
Screen.Ptr:
	dc.l	0

NScreen			;NewScreen structure

*			Lo-Res 5 deep

	DC.W	0,0,320,200,2	LeftEdge,TopEdge,Width,Height,Depth
	DC.B	0,1	DetailPen,BlockPen
	DC.W	V_HIRES	ViewModes
	DC.W	CUSTOMSCREEN	Type
	DC.L	0	*Font
	DC.L	0	*DefaultTitle
	DC.L	0	*Gadgets
	DC.L	0	*CustomBitMap

INTUIT.NAME:
	dc.b	'intuition.library',0

	END