* A1_Seka  Mein erstes Programm !!! Seka-Version !!!
* ----------------------------------------------------

SysBase:         equ	4		;Basis von Exec
LVOOpenLibrary:  equ    -552  		;Library oeffnen
LVOCloseLibrary: equ    -414		;Library schliessen

LVOOutput:	 equ    -60		;DOS: Output-Handle holen
LVOWrite:	 equ    -48		;     Ausgabe

*DOS/Lib oeffnen:

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:

DOSBase: dc.l	0
         align  4
dosname: dc	'dos.library',0
	 align  4

string:	 dc     'Hallo lieber Leser!',10
	 align  4