home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / dosfile.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  399 b   |  30 lines
  1. buffer = $40000
  2. length = $10
  3.  
  4. s:    move.l    $4.w,a6
  5.     lea    dosnam(pc),a1
  6.     jsr    -408(a6)
  7.     move.l    d0,a6
  8.     beq.s    fini
  9.  
  10.     move.l    #filnam,d1
  11.     move.l    #1005,d2
  12.     jsr    -30(a6)
  13.     move.l    d0,d7
  14.     beq.s    error
  15.     move.l    d0,d1
  16.     move.l    #buffer,d2
  17.     moveq    #length,d3
  18.     jsr    -42(a6)
  19.     move.l    d7,d1
  20.     jsr    -36(a6)
  21.  
  22. error:    move.l    a6,a1
  23.     move.l    $4.w,a6
  24.     jsr    -414(a6)
  25. fini:    rts
  26.  
  27. dosnam:    dc.b    'dos.library',0
  28. filnam:    dc.b    'filename',0
  29.     even
  30.