paul_nicholls

Untitled

Dec 16th, 2025
267
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 2.74 KB | None | 0 0
  1. unit WINRESID;
  2. {**************************************************************************}
  3. {                                                                          }
  4. {    This C DLL header file first (automatic) conversion generated by:     }
  5. {    HeadConv 4.0 (c) 2000 by Bob Swart (aka Dr.Bob - www.drbob42.com)     }
  6. {      Final Delphi-Jedi (Darth) command-line units edition                }
  7. {                                                                          }
  8. {    Generated Date: 17/12/2025                                            }
  9. {    Generated Time: 9:46:31 AM                                              }
  10. {                                                                          }
  11. {**************************************************************************}
  12.  
  13. interface
  14. uses
  15. {$IFDEF WIN32}
  16.   Windows;
  17. {$ELSE}
  18.   Wintypes, WinProcs;
  19. {$ENDIF}
  20.  
  21.  
  22. {=> c:\utilities\headconv\WINRESID.H <=}
  23.  
  24. { #pragma once }
  25.  
  26. {$IFDEF DLL_EXPORT}
  27. const
  28.   DLL_EXPORT = __declspec(dllimport);
  29. {$ELSE}
  30. const
  31.   DLL_EXPORT = __declspec(dllexport);
  32. {$ENDIF}
  33.  
  34.  
  35.  
  36. procedure sidCreate(clock_type: Word;
  37.                     model: Word;
  38.                     replayFreq: Word) cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  39.  
  40. procedure sidDestroy cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  41.  
  42. procedure sidSetSampleRate(sampleRate_: Word) cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  43.  
  44. procedure sidSetModel(model: Word) cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  45.  
  46. procedure sidReset cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  47.  
  48. procedure sidPause cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  49.  
  50. procedure sidWriteReg(reg: Word;
  51.                       value: Byte) cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  52.  
  53. function sidReadReg(reg: Word): Byte cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  54.  
  55. procedure sidCalcSamples(var buf: SmallInt;
  56.                          count: LongInt) cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  57.  
  58. function sidCalcSample: SmallInt cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  59.  
  60. procedure sidSetAmp(amp: Word) cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  61.  
  62. function var sidGetLibVersion: CONST DLL_EXPORT CHAR cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
  63.  
  64.  
  65. implementation
  66.  
  67. procedure sidCreate; external 'WINRESID.DLL';
  68. procedure sidDestroy; external 'WINRESID.DLL';
  69. procedure sidSetSampleRate; external 'WINRESID.DLL';
  70. procedure sidSetModel; external 'WINRESID.DLL';
  71. procedure sidReset; external 'WINRESID.DLL';
  72. procedure sidPause; external 'WINRESID.DLL';
  73. procedure sidWriteReg; external 'WINRESID.DLL';
  74. function sidReadReg; external 'WINRESID.DLL';
  75. procedure sidCalcSamples; external 'WINRESID.DLL';
  76. function sidCalcSample; external 'WINRESID.DLL';
  77. procedure sidSetAmp; external 'WINRESID.DLL';
  78. function sidGetLibVersion; external 'WINRESID.DLL';
  79.  
  80. end.
  81.  
Advertisement
Add Comment
Please, Sign In to add comment