******************************
* Programm: Tai              *
* Zweck:    Text und blinken *
* Datum:    23.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.l   d4,d1                ;Screen löschen
        move.l   #cls,d2
        moveq    #1,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

        move.l   d4,d1
        move.l   #msg1,d2             ;TAIFUN PD-Disketten
        moveq    #27,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

        move.l   d4,d1
        move.l   #msg2,d2             ;vom PD-Vertrieb
        moveq    #16,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

        move.l   d4,d1
        move.l   #msg3,d2             ;Stefan Ossowski
        moveq    #16,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

        move.l   d4,d1
        move.l   #msg4,d2             ;Veronikastr. 33
        moveq    #15,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

        move.l   d4,d1
        move.l   #msg5,d2             ;4300 Essen 1
        moveq    #13,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

        move.l   d4,d1
        move.l   #msg6,d2             ;Tel. 0201-788778
        moveq    #17,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)

        move     #200,d6
loop    move.l   d4,d1
        move.l   #blinken,d2             ;Blinken, Bildschirmblitz
        moveq    #1,d3
        move.l   _DOSBase,a6
        jsr      _LVOWrite(a6)
	dbra	 d6,loop
********************* 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
cls        dc.b    12,10
           cnop    0,2
msg1       dc.b    'T A I F U N   PD-Disketten',10
           cnop    0,2
msg2       dc.b    'vom PD-Vertrieb',10
           cnop    0,2
msg3       dc.b    'Stefan Ossowski',10
           cnop    0,2
msg4       dc.b    'Veronikastr.33',10
           cnop    0,2
msg5       dc.b    '4300 Essen 1',10
           cnop    0,2
msg6       dc.b    'Tel. 0201-788778',10
           cnop    0,2
blinken    dc.b    7
           cnop    0,2