home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / get_drives.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  319 b   |  22 lines
  1. get_drives:
  2.     lea    devname(pc),a1
  3.     move.l    $4.w,a6
  4.     lea    350(a6),a0
  5.     jsr    -276(a6)
  6.     tst.l    d0
  7.     beq.s    drive2
  8.     move.l    d0,a0
  9.     lea    36+16(a0),a0
  10.     lea    drives(pc),a1
  11.     moveq    #8,d0
  12. driveloop1:
  13.     tst.l    -(a0)
  14.     beq.s    drive1
  15.     or.b    d0,(a1)
  16. drive1:    lsr.b    #1,d0
  17.     bne.s    driveloop1
  18. drive2:    rts
  19.  
  20. devname:dc.b    'trackdisk.device',0
  21. drives:    dc.b    0
  22.