home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Misc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  709 b   |  51 lines
  1. unit Misc;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. var
  8.     MiscBase: pLibrary;
  9.  
  10.  
  11. const
  12.     MR_SERIALPORT = 0;
  13.     MR_ALLOCMISCRESOURCE = $FFFFFFFA;
  14.     MR_PARALLELBITS = 3;
  15.     MR_FREEMISCRESOURCE = $FFFFFFF4;
  16.     MR_PARALLELPORT = 2;
  17.     MISCNAME = 'misc.resource';
  18.     MR_SERIALBITS = 1;
  19.  
  20.  
  21. function AllocMiscResource
  22.         (unitNum: long;
  23.         name: STRPTR): STRPTR;
  24.  
  25. procedure FreeMiscResource (unitNum: long);
  26.  
  27.  
  28. IMPLEMENTATION
  29. function AllocMiscResource; xassembler;
  30. asm
  31.     move.l    a6,-(sp)
  32.     lea        8(sp),a6
  33.     move.l    (a6)+,a1
  34.     move.l    (a6)+,d0
  35.     move.l    MiscBase,a6
  36.     jsr        -6(a6)
  37.     move.l    d0,$10(sp)
  38.     move.l    (sp)+,a6
  39. end;
  40.  
  41. procedure FreeMiscResource; xassembler;
  42. asm
  43.     move.l    a6,-(sp)
  44.     move.l    8(sp),d0
  45.     move.l    MiscBase,a6
  46.     jsr        -$C(a6)
  47.     move.l    (sp)+,a6
  48. end;
  49.  
  50. end.
  51.