home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Disk&HD / diskspr3.lha / DiskSpare3.0 / Support / V36NoClick.asm < prev    next >
Encoding:
Assembly Source File  |  1994-11-13  |  1.3 KB  |  78 lines
  1.  
  2. *****************************************************************
  3. *                                *
  4. *    V36NoClick written by Klaus Deppisch 1992,93        *
  5. *                                *
  6. *    put it in your startup-sequence / user-startup        *
  7. *                                *
  8. *****************************************************************
  9.  
  10. *    no includes needed
  11.  
  12. *-------
  13.  
  14. V36NoClick
  15.     move.l    4.w,a6
  16.     cmp    #36,$14(a6)        ;version
  17.     blt.s    4$
  18.     lea    350(a6),a0        ;devicelist
  19.     lea    trdname,a1
  20.     jsr    -276(a6)        ;findname
  21.     move.l    d0,a2
  22.     move.l    36(a2),d0        ;df0:
  23.     beq.s    1$
  24.     bsr.s    setnoclick        
  25. 1$
  26.     move.l    40(a2),d0        ;df1:
  27.     beq.s    2$
  28.     bsr.s    setnoclick
  29. 2$
  30.     move.l    44(a2),d0        ;df2:
  31.     beq.s    3$
  32.     bsr.s    setnoclick
  33. 3$
  34.     move.l    48(a2),d0        ;df3:
  35.     beq.s    4$
  36.     bsr.s    setnoclick
  37. 4$    
  38.     lea    dosname,a1
  39.     moveq    #33,d0
  40.     jsr    -552(a6)        ;openlib
  41.     move.l    d0,a6
  42.     jsr    -60(a6)            ;output
  43.     move.l    d0,d1
  44.     move.l    #text,d2
  45.     move.l    #texte-text,d3
  46.     jsr    -48(a6)            ;write
  47.     moveq    #50,d1
  48.     jsr    -198(a6)        ;delay
  49.     move.l    a6,a1
  50.     move.l    4.w,a6
  51.     jsr    -414(a6)        ;closelib
  52.     moveq    #0,d0    
  53.     rts
  54.  
  55. *-------
  56.  
  57. setnoclick
  58.     move.l    d0,a0            ;port
  59.     bset    #0,$35(a0)        ;drive_type laut v36 includes
  60.     move    296(a6),d0
  61.     btst    #1,d0            ;>= 68020
  62.     bne.s    1$
  63.     move.l    #2000,$2c(a0)        ;steptime
  64. 1$
  65.     rts
  66.  
  67. *-------
  68.  
  69. trdname    dc.b    "trackdisk.device",0
  70. dosname    dc.b    "dos.library",0
  71. text    dc.b    " *** V36 *** NoClick v 1.1 written by Klaus Deppisch 1993",$a,$d
  72. texte    
  73.  
  74. *-------
  75.  
  76.  
  77.  end
  78.