home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / RamDrive.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  444 b   |  36 lines
  1. unit RamDrive;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. var
  8.     RamdriveDevice: pLibrary;
  9.  
  10.  
  11. function KillRAD0: STRPTR;
  12. function KillRAD (unit_: long): STRPTR;
  13.  
  14.  
  15. IMPLEMENTATION
  16. function KillRAD0; xassembler;
  17. asm
  18.     move.l    a6,-(sp)
  19.     move.l    RamdriveDevice,a6
  20.     jsr        -$2A(a6)
  21.     move.l    d0,8(sp)
  22.     move.l    (sp)+,a6
  23. end;
  24.  
  25. function KillRAD; xassembler;
  26. asm
  27.     move.l    a6,-(sp)
  28.     move.l    8(sp),d0
  29.     move.l    RamdriveDevice,a6
  30.     jsr        -$30(a6)
  31.     move.l    d0,$C(sp)
  32.     move.l    (sp)+,a6
  33. end;
  34.  
  35. end.
  36.