@UB ASSEMBLERKURS   TEIL 2
@CO21
Und nun geht`s weiter mit mit TEIL 2 des Assemblerkurses
für Anfänger. Diesesmal werden wir einen Screen öffnen.
Den Source-Code (ohne Beschreibung) findet ihr auf der
NameLess.

start:
	move.l	4,a6            ;1         
	lea	int,a1          ;2 
	moveq	#0,d0           
	jsr	-552(a6)        
	move.l	d0,base         ;Intbase retten
	move.l	base,a6         
	lea	Screen,a0       ;3 
	jsr	-198(a6)        
	move.l	d0,screenbase   ;Screenbase retten.
maus:
	btst	#6,$bfe001      ;4
	bne	maus	        
	move.l	screenbase,a0	;5 
	jsr	-66(a6)         
	move.l	base,a1         ;7 
	move.l	4,a6
	jsr	-414(a6)
	moveq	#0,d0
	rts		
Screen:	
		dc.w	0,0		links, oben
		dc.w	320,200		breite, höhe
		dc.w	2		tiefe
		dc.b	0,1		farbe
		dc.w	0		viewmodes
		dc.w	1		typ
		dc.l	0		font
		dc.l	screen_title	title
		dc.l	0		gadgets
		dc.l	0		bitmap
screen_title:
	dc.b	"A SCREEN !!",0
 even
int:
	dc.b	"intuition.library",0
 even
base:
	dc.l 0
 even
screenbase:
	dc.l 0
 even

1.:
^^^
	Execbase in a6.
2.:
^^^
	intuition.library öffnen.
3.:
^^^
	Hier laden wir nun die Screendefs in A0, um
	sie mit dem Offset -198() der Intlib zu öffnen.
4.:
^^^
	Wartet auf Drücken der Maustaste.
5.:
^^^
	Nun wird das Fenster wieder geschlossen.
6.:
^^^
	Und schön säuberlich die IntLib schließen.
	Und tschüß. Viel Spaß wünscht Alex.