CODE
	XDEF	_main
_main:
.L6:
	MOVEM.L	D2/D3,-(SP)
.L10:
.L5:
	PEA	.L7
*			STACK OFFSET 4
	JSR	_printf
	CLR.L	-(SP)
*			STACK OFFSET 8
	PEA	.L8
*			STACK OFFSET 12
	JSR	_OpenLibrary
	MOVE.L	D0,_GfxBase
	CLR.L	-(SP)
*			STACK OFFSET 16
	PEA	.L9
*			STACK OFFSET 20
	JSR	_OpenLibrary
	MOVE.L	D0,_IntuitionBase
	PEA	_mywindow
*			STACK OFFSET 24
	JSR	_OpenWindow
	MOVE.L	D0,D3
	CLR.W	D2
*			STACK OFFSET 0
	LEA	24(SP),SP
.L4:
	JSR	_WaitTOF
.L3:
	ADDQ.W	#1,D2
	MOVEQ	#120,D0
	CMP.W	D2,D0
	BGT	.L4
.L2:
	MOVE.L	D3,-(SP)
*			STACK OFFSET 4
	JSR	_CloseWindow
*			STACK OFFSET 0
	ADDQ.L	#4,SP
.L1:
	MOVEM.L	(SP)+,D2/D3
	RTS	
	DATA
.L7:	DC.B	'Hello World '
	DC.B	10,0
.L8:	DC.B	'graphics'
	DC.B	46
	DC.B	'library'
	DC.B	0
	DCB.B	1,0
.L9:	DC.B	'intuition'
	DC.B	46
	DC.B	'library'
	DC.B	0
* ALLOCATIONS FOR _main
*	D3	_w
*	D2	_i
	CODE
	DATA
	XDEF	_TestFont
_TestFont:	DC.L	.L12
	DC.B	0
	DC.B	8
	DCB.B	1,0
	DCB.B	1,0
.L12:	DC.B	'topaz'
	DC.B	46
	DC.B	'font'
	DC.B	0
	DCB.B	1,0
	XDEF	_mywindow
_mywindow:	DC.B	0
	DC.B	20
	DC.B	0
	DC.B	20
	DC.B	1
	DC.B	44
	DC.B	0
	DC.B	100
	DC.B	255
	DC.B	255
	DC.B	2
	DC.B	0
	DC.B	0
	DC.B	0
	DC.B	0
	DC.B	15
	DCB.B	4,0
	DCB.B	4,0
	DC.L	.L13
	DCB.B	4,0
	DCB.B	4,0
	DC.B	0
	DC.B	20
	DC.B	0
	DC.B	20
	DC.B	2
	DC.B	128
	DC.B	0
	DC.B	200
	DC.B	0
	DC.B	1
.L13:	DC.B	'My first window'
	DC.B	0
	XDEF	_GfxBase
_GfxBase:	DC.B	0
	DC.B	0
	DC.B	0
	DC.B	0
	XDEF	_IntuitionBase
_IntuitionBase:	DC.B	0
	DC.B	0
	DC.B	0
	DC.B	0
	XREF	_OpenWindow
	XREF	_printf
	XREF	_OpenLibrary
	XREF	_WaitTOF
	XREF	_CloseWindow
* ALLOCATIONS FOR MODULE
*	IMPORT	_dosBase
*	COMMON	_TestFont
*	COMMON	_mywindow
*	COMMON	_GfxBase
*	COMMON	_IntuitionBase
	CODE
	END