home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / SND_TOOL / CRYS250.ZIP / CRYSTAL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-01-11  |  1.6 KB  |  40 lines
  1. {**************************************************************************}
  2. {*   Cette unité permet d'obliger le pascal à réserver un segment propre  *}
  3. {*   à mes routines. On ne peut ajouter que des déclarations dans ce      *}
  4. {*   fichier car sinon le pascal va mélanger ses bouts de code avec les   *}
  5. {*   miens et mes routines sont vite suceptibles.                         *}
  6. {*                                                                        *}
  7. {* Programmé par Sébastien Granjoux le 1/6/93                             *}
  8. {* Commencé le 01/06/93                                                   *}
  9. {* Modification le 23/12/94                                               *}
  10.  
  11. UNIT CRYSTAL;
  12.  
  13. INTERFACE
  14. FUNCTION FLOADMOD(filename:POINTER):INTEGER;
  15. FUNCTION MLOADMOD(adress:POINTER):INTEGER;
  16. FUNCTION OLOADMOD(startovl:LONGINT):INTEGER;
  17. FUNCTION SETMOD(frequence:WORD;device:BYTE;port:WORD;irq:BYTE):INTEGER;
  18. PROCEDURE MAKEMOD;
  19. PROCEDURE UNLOADMOD;
  20. PROCEDURE STARTMOD;
  21. PROCEDURE STOPMOD;
  22. PROCEDURE DETECTSND(VAR device:BYTE;VAR port:WORD;VAR irq,dma:BYTE);
  23. PROCEDURE CHANGEVOL(newvol:BYTE);
  24.  
  25. IMPLEMENTATION
  26.  
  27. {$L D:\CRYS26.OBJ}
  28. FUNCTION FLOADMOD(filename:POINTER):INTEGER;EXTERNAL;
  29. FUNCTION MLOADMOD(adress:POINTER):INTEGER;EXTERNAL;
  30. FUNCTION OLOADMOD(startovl:LONGINT):INTEGER;EXTERNAL;
  31. FUNCTION SETMOD(frequence:WORD;device:BYTE;port:WORD;irq:BYTE):INTEGER;EXTERNAL;
  32. PROCEDURE MAKEMOD;EXTERNAL;
  33. PROCEDURE UNLOADMOD;EXTERNAL;
  34. PROCEDURE STARTMOD;EXTERNAL;
  35. PROCEDURE STOPMOD;EXTERNAL;
  36. PROCEDURE DETECTSND(VAR device:BYTE;VAR port:WORD;VAR irq,dma:BYTE);EXTERNAL;
  37. PROCEDURE CHANGEVOL(newvol:BYTE);EXTERNAL;
  38.  
  39. END.
  40.