;*************************************************************************
;*
;* Dieses Programm ist Public Domain und wurde mit dem Profimat-Assembler
;* von Data Becker erstellt. Das Kopieren für den privaten
;* Gebrauch ist erlaubt. Sollen das Programm oder Teile daraus für
;* kommerzielle Zwecke verwendet werden, bitte ich darum, sich mit
;* mir in Verbindung zu setzen.
;*
;* © 1987 Richard Englert, Flößaustraße 160, 8510 Fürth, Tel.:0911/708255
;*
;* letzte Änderung: 20-09-1987
;*
;* Dieses kleine Programm löscht ganz einfach das CLI-Window indem
;* der ASCII-Code $0C ausgegeben wird.
;*
;*************************************************************************

 INCLUDE 'ram:Amiga.ASM'

;AmigaDOS-Funktionen

_LVOOpenLibrary   EQU -552
_LVOCloseLibrary  EQU -414
_LVOOutput        EQU -60
_LVOWrite         EQU -48

;*****************************************************************
;Hauptprogramm:
;*****************************************************************

 INIT_AMIGA

;DosLibrary öffnen:

 LEA DosName,A1
 MOVEQ #0,D0
 CALLSYS OpenLibrary
 MOVE.L D0,DosBase
 BEQ EXIT

 MOVEQ #1,D3                     ;Länge des Ausgabepuffers = 1
 MOVE.L #out,D2                  ;Adresse des Ausgabepuffers
 LINKSYS Output,DosBase          ;wohin soll ausgegeben werden
 MOVE.L D0,D1
 LINKSYS Write,DosBase           ;Puffer ausgeben

EXIT:

;Library schließen

 MOVE.L DosBase,D0
 BEQ.S No_Dos
 MOVE.L D0,A1
 CALLSYS CloseLibrary
No_Dos:
 EXIT_AMIGA

 ALIGN
 DATA
DosName:   DC.B 'dos.library',0
out:       DC.B $0c              ;$0c = Fensterinhalt löschen
 ALIGN

 BSS
DosBase:   DS.L 1

 END