opt	l-,c+,d+	nolink,differenti maius.e minus.,debugging
	opt	e-		disabilita verifica parità

* Questo codice è copyright 1987 HiSoft
* Semplice dimostrativo di apertura di finestra e scrittura
* Utilizza le librerie DOS e EXEC
* Non è valido per utenti di 68020/68030/68040

	incdir	":include/"		Dove cercare inclusioni
	include	exec/exec_lib.i		Si chiamerà EXEC
	include	libraries/dos_lib.i	e DOS
	include	libraries/dos.i

* Incominciamo con l'aprire la libreria AmigaDOS

start	move.l	dosname,a1
	moveq	#0,d0			qualunque versione
	move.l	$4,a6
	jsr 	_LVOOpenLibrary(a6)
	tst.l	d0
	beq	quit_fast		annulla se errato
	move.l	d0,_DOSBase		salva puntatore

* Reperiamo l'handle di output
	CALLDOS	Output
	move.l	d0,d4			d4=output handle

* e stampiamo un messaggio
	move.l	d4,d1			file handle
	move.l	#string,d2		Indirizzo messaggio
	moveq	#stringlen,d3		lunghezza
	CALLDOS	Write			ed invialo

* Non si deve chiudere l'handle di output, o salta il CLI!
* Invece chiudiamo la libreria DOS

	mov.l	_DOSBase,a1
	CALLEXEC CloseLibrary

quit_fast
	rts				e rientriamo

_DOSBase	dc.l	0		spazio per puntatore

* Qui si trovano le stringhe

string		dc.b	'Un programma scritto con Devpac  Amiga',10
stringlen	equ	*-string

* Definisce il nome della libreria 'dos.library'
dosname		DOSNAME

	even