opt c+,d+
	
; this is a complete, working version of a3.s and opens a window

openlib	= -30-378
closelib	= -414
execbase	= 4


; calls to amiga dos

open	= -30
close	= -30-6
ioerr	= -132
mode_old	= 1005
alloc_abs	= -$cc


run:
	bsr init	; initialization
	bra test	; system-test
	
init:		; system initialization and open
	move.l execbase,a6 ; number of execute library
	lea dosname(pc),a1
	moveq #0,d0
	jsr openlib(a6)	; open dos library
	move.l d0,dosbase
	beq error
	
	lea consolname(pc),a1 ; console definition
	move #mode_old,d0
	bsr openfile	; console open
	beq error
	move.l d0,conhandle
	
	rts
	
test:
	bra qu	; quit and exit
	
error:
	move.l dosbase,a6
	jsr ioerr(a6)
	move.l d0,d5
	
	move.l #-1,d7	; flag
	
qu:
	move.l conhandle,d1 ; window close
	move.l dosbase,a6
	jsr close(a6)
	
	move.l dosbase,a1
	move.l execbase,a6
	jsr close(a6)
	
openfile:
	move.l a1,d1	; open file  pointer to i/o definition text
	move.l d0,d2	
	move.l dosbase,a6
	jsr open(a6)
	tst.l d0
	rts
	
dosname:	dc.b 'dos.library',0,0
	even
dosbase:	ds.l 1

consolname:	dc.b 'CON:0/100/640/100/** CLI WINDOW   - BAZ - **',0
	even
conhandle:	ds.l 1