keep	SYS6

****************************************************************
* 		           ChemiGS			       *
****************************************************************
* (c) 1992-93 by Urs Hochstrasser			       *
* Buendtenweg 6			       *
* 5105 AUENSTEIN (SWITZERLAND)			       *
****************************************************************

* Module Sys6: System 6 specific calls

	mcopy	Sys6.macros

CheckSystem start	test for system 6
	using Globals
	clc
	lda	fSys5
	beq	isSys6
	sec
	pla		return to previous caller if sys5
isSys6	anop
	rts
	end
                   
HndlDiskInsert start
	jsr	CheckSystem
	pha
	pha
	~HandleDiskInsert #$C000,#0
	pla
	pla
	rts
	end

*SetMinGrow start
*	using Globals
*	jsr	CheckSystem
*	ph4	#0
*	~GetAuxWindInfo gDataWin
*	sta	gToolErr
*	pl4	WInfoPtr
*	jsr	Error
*	move4 WInfoPtr,0
*	ldy	#$14
*	lda	#68
*	sta	[0],y
*	iny
*	iny
*	lda	#204
*	sta	[0],y	
*	rts
*WInfoPtr ds	4
*	end