;LISTING 2
;Wyőwietlenie tekstu w oknie CLI

START:

	lea 	DosName,A1      ;adres nazwy biblioteki
	move.l 	$4,a6           ;adres tabeli skoków bibilioteki EXEC
	jsr    	-408(a6)	;wywoîanie procedury OldOpenLibrary
	tst.l	d0		;czy wartoőç w d0=0 ?
	beq.w 	Blad		;jezeli tak, to koniec programu
	
	move.l	d0,DosBase	;jeţeli nie, to zapamiętaj bazę biblioteki
	move.l  d0,a6           ;baza biblioteki DOS do a6	
	move.l  #Okno,d1        ;adres parametrów okna
	move.l  #1005,d2        ;tryb old_file
	jsr     -30(a6)         ;wywoîanie procedury Open
	tst.l	d0		;czy wartoőç w d0=0 ?
	beq.w 	Blad1		;jezeli tak, to obsîuga bîędu
	
	move.l  d0,OknoHD       ;zapamiętania tzw. Handle okna
	move.l  DosBase,a6      
	move.l  d0,d1           ;Handle okna do d1
	move.l  #Tekst,d2       ;adres poczćtku tekstu
	move.l  #TekstEnd-Tekst,d3 ;dîugoőç tekstu
	jsr     -48(a6)         ;wywoîanie procedury Write
 
	move.l	OknoHD,d1	
	move.l	DosBase,a6
	jsr	-36(a6)		;wywoîanie procedury Close

Blad1:	move.l 	$4,a6		;adres tabeli skoków bibilioteki EXEC
	move.l	DosBase,a1      ;baza  biblioteki DOS do A1
	jsr	-414(a6)	;wywoîanie procedury CloseLibrary
	
Blad: 	rts                     ;koniec programu

DosName: dc.b 'dos.library',0
DosBase: dc.l 0
OknoHD:  dc.l 0
Tekst:   dc.b 'Tu jest tekst !',0
TekstEnd: even
Okno:    dc.b 'CON:100/50/320/100/* Okno *',0