opt	l-			;nicht linkem!

* A6   Mein sechtes Programm 

	include  OpenDos.i

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

        lea.l   msg1,a0			;frage nach Namen
	bsr     print
        
	jsr	_LVOInput(a6)		;Hole Input-Handle
        move.l  d0,d1			;und arbeite damit 
        lea.l   buffer,a2		;Zeiger auf Puffer
	move.l  a2,d2			;an Read uebergeben
        addq.l  #1,d2			;Laengen-Byte skippen
	move.l  #79,d3			;solang darf Name sein
        jsr     _LVORead(a6)		;Ist-Laenge in d0           
        addq.l  #1,d0			;verlaengern
	move.b  d0,(a2)			;und eintragen
        move.b  #'!',-1(a2,d0.l)	;! in Puffer     
        move.b  #10,0(a2,d0.l)		;und noch neue Zeile

	lea.l   msg2,a0			;sage Guten Tag
        bsr     print

        move.l  a2,a0			;drucke Namen
        bsr     print


* 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

print	clr.l   d3
        move.b  (a0)+,d3		;Laenge
        move.l  d4,d1
        move.l  a0,d2
        jsr	_LVOWrite(a6)		;Funktion "Schreiben"
	rts

* Datenbereich:

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

msg1	dc.b	16,'Wie heisst Du?  '
        cnop    0,2
msg2    dc.b	19,10,'Guten Tag, lieber '
	cnop    0,2
buffer  ds.b    80