home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / trackdisk.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  760 b   |  56 lines
  1. ;write=3, read=2
  2. command = 2
  3. iolength = 512
  4. iodata   = $50000
  5. iooffset = 512*2
  6.  
  7. s:    suba.l    a1,a1
  8.     move.l    $4.w,a6
  9.     jsr    -294(a6)
  10.     lea    portadr(pc),a1
  11.     move.l    d0,16(a1)
  12.     jsr    -354(a6)
  13.     lea    iorequest(pc),a1
  14.     lea    portname(pc),a0
  15.     moveq    #0,d0    ;df0:
  16.     moveq    #0,d1
  17.     jsr    -444(a6)
  18.     tst.l    d0
  19.     bne.s    error
  20.  
  21.     lea    iorequest(pc),a1
  22.     move.w    #command,$1c(a1)
  23.     move.l    #iolength,$24(a1)
  24.     move.l    #iodata,$28(a1)
  25.     move.l    #iooffset,$2c(a1)
  26.     jsr    -456(a6)
  27.     move.w    #9,$1c(a1)
  28.     clr.l    $24(a1)
  29.     jsr    -456(a6)
  30.  
  31.     jsr    -450(a6)
  32. error:    lea    portadr(pc),a1
  33.     jmp    -360(a6)
  34.  
  35. portadr:
  36.     dc.l    0,0
  37.     dc.b    4,0
  38.     dc.l    portname
  39.     dc.b    0,31
  40.     dc.l    0
  41.     dc.l    0,0,0,0
  42.     dc.b    0,0
  43. portname:
  44.     dc.b    'trackdisk.device',0
  45.     even
  46. iorequest:
  47.     dc.l    0,0
  48.     dc.b    5,0
  49.     dc.l    0
  50.     dc.l    portadr
  51.     dc.w    48
  52.     dc.l    0,0
  53.  
  54.     dc.w    0,0
  55.     dc.l    0,0,0,0
  56.