*****************************************************************
*								*
*	V36NoClick written by Klaus Deppisch 1992,93		*
*								*
*	put it in your startup-sequence / user-startup		*
*								*
*****************************************************************

*	no includes needed

*-------

V36NoClick
	move.l	4.w,a6
	cmp	#36,$14(a6)		;version
	blt.s	4$
	lea	350(a6),a0		;devicelist
	lea	trdname,a1
	jsr	-276(a6)		;findname
	move.l	d0,a2
	move.l	36(a2),d0		;df0:
	beq.s	1$
	bsr.s	setnoclick		
1$
	move.l	40(a2),d0		;df1:
	beq.s	2$
	bsr.s	setnoclick
2$
	move.l	44(a2),d0		;df2:
	beq.s	3$
	bsr.s	setnoclick
3$
	move.l	48(a2),d0		;df3:
	beq.s	4$
	bsr.s	setnoclick
4$	
	lea	dosname,a1
	moveq	#33,d0
	jsr	-552(a6)		;openlib
	move.l	d0,a6
	jsr	-60(a6)			;output
	move.l	d0,d1
	move.l	#text,d2
	move.l	#texte-text,d3
	jsr	-48(a6)			;write
	moveq	#50,d1
	jsr	-198(a6)		;delay
	move.l	a6,a1
	move.l	4.w,a6
	jsr	-414(a6)		;closelib
	moveq	#0,d0	
	rts

*-------

setnoclick
	move.l	d0,a0			;port
	bset	#0,$35(a0)		;drive_type laut v36 includes
	move	296(a6),d0
	btst	#1,d0			;>= 68020
	bne.s	1$
	move.l	#2000,$2c(a0)		;steptime
1$
	rts

*-------

trdname	dc.b	"trackdisk.device",0
dosname	dc.b	"dos.library",0
text	dc.b	" *** V36 *** NoClick v 1.1 written by Klaus Deppisch 1993",$a,$d
texte	

*-------


 end