home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
new
/
disk
/
misc
/
diskspare3.0
/
support
/
v36noclick.asm
< prev
next >
Wrap
Assembly Source File
|
1994-11-13
|
1KB
|
78 lines
*****************************************************************
* *
* 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