opt	l-			;nicht linken!

* Stringeingabe

_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
_LVORead	 equ    -42
_LVOInput        equ    -54

*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,a6    		;Zeiger merken


* Ausgabe-Handle ermitteln:

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

        move.l  d4,d1                   ;nun Text ausgeben 
        move.l  #string,d2		;wie gehabt
        moveq   #12,d3
        jsr     _LVOWrite(a6)

* Nun lese von der Tastatur
        
	jsr	_LVOInput(a6)		;Hole Input-Handle
	move.l	d0,d1			;und in d1 kopieren
        move.l  #buffer,d2              ;Adresse des Puffers
        moveq   #80,d3                  ;erlaube 80 Zeichen
        jsr     _LVORead(a6)            ;und lese
        move.l  d0,len

* nun Inhalt buffer ausgeben:

	move.l	d4,d1			;Ausgabe-Handle
	move.l	#buffer,d2		;Address Text
	move.l	len,d3			;Laenge Text
	jsr	_LVOWrite(a6)		;Funktion "Schreiben"

* Zum Schluss immer die Lib schliessen!
        move.l  a6,a1                   ;DOS-Lib-Basis
	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   'Enter Text: '
	 cnop   0,2
buffer   ds.b   80
len      ds.l   1