******************************
* Programm: Wiederhole       *
* Zweck:    Wiederholt Text  *
* Datum:    22.03.90         *
******************************

_SysBase         equ   4            ;Basis von Exec
_LVOOpenLibrary  equ    -552        ;Library öffnen
_LVOCloseLibrary equ    -414        ;Library schließen
_LVOOutput       equ    -60         ;DOS: Output-Handle holen
_LVOWrite        equ    -48         ;Ausgabe

********************** DOS/Library öffnen **********************

_main   move.l   #dosname,a1          ;Name der DOS-Lib
        moveq    #0,d0                ;Version egal
        move.l   _SysBase,a6          ;Basis Exec
        jsr      _LVOOpenLibrary(a6)  ;DOS-Lib öffnen
        tst.l    d0                   ;Fehler?
        beq      ende                 ;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

********************* Text ausgeben ***************************

        move     #100,d6              ;Wiederhole

        move.l   d4,d1                ;Screen löschen
        move.l   #cls,d2
        moveq    #1,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

loop1   move.l   d4,d1                ;Ausgabe-Handle
        move.l   #msg,d2              ;Address Text
        moveq    #22,d3               ;Länge Text
        move.l   _DOSBase,a6          ;Basis DOS
        jsr      _LVOWrite(a6)        ;Funktion "Schreiben"
        dbra     d6,loop1

	move.l	 d4,d1
	move.l   #zeile,d2
	moveq    #1,d3
	move.l   _DOSBase,a6
	jsr      _LVOWrite(a6)
	
********************* Library schließen ***********************

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

********************* Falls Fehler Ende ***********************

ende    rts            ;Return zum CLI

********************* Datenbereich ****************************

_DOSBase   dc.l   0

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

msg        dc.b   '           T A I F U N'
           cnop   0,2

cls        dc.b   12,10
           cnop   0,2

zeile      dc.b   10
	   cnop   0,2