* A1_Met   Mein erstes Programm   !!! Metacomco-Version !!!
* ---------------------------------------------------------

        INCLUDE "libraries/dos_lib.i"
        XREF    _DOSBase
        XREF    _SysBase
        XREF    _LVOOpenLibrary
        XREF    _LVOCloseLibrary
        XDEF    _main

_main	move.l	#dosname,a1		;Nane der DOS-Lib 
	moveq	#0,d0			;Version egal
	move.l  _SysBase,a6		;Basis Exec
        jsr     _LVOOpenLibrary(a6)	;DOS-Lib oeffnen
	tst.l	d0			;Fehler?
	beq	fini			;wenn Fehler, Ende
	move.l	d0,_DOSBase		;Zeiger merken

* Ausgabe-Handle ermitteln:

        move.l	_DOSBase,a6		;DOS-Funktion rufen	
	jsr	_LVOOutput(a6)		;Hole Output-Handle
	move.l	d0,d4			;und in d4 merken

* nun Text ausgeben:

	move.l	d4,d1			;Ausgabe-Handle
	move.l	#string,d2		;Address Text
	moveq	#20,d3			;Laenge Text
        move.l  _DOSBase,a6             ;Basis DOS
	jsr	_LVOWrite(a6)		;Funktion "Schreiben"
* Zum Schluss immer die Lib schliessen!

	move.l	_DOSBase,a1		;Basis der Lib
	move.l  _SysBase,a6		;Basis Exec
        jsr     _LVOCloseLibrary(a6)	;Funktion "Schliessen"

fini	rts				;Return zum CLI

* Datenbereich:


dosname	 dc.b	'dos.library',0
	 cnop	0,2

string	 dc.b   'Hallo lieber Leser!',10
	 cnop   0,2

  	 end