| 6 |
kaklik |
1 |
unit PORTINC;
|
|
|
2 |
|
|
|
3 |
interface
|
|
|
4 |
|
|
|
5 |
uses windows;
|
|
|
6 |
|
|
|
7 |
const THEDLL='PORT.DLL';
|
|
|
8 |
Procedure DELAY(i:WORD); stdcall; external THEDLL;
|
|
|
9 |
procedure TIMEINIT; stdcall; external THEDLL;
|
|
|
10 |
function TIMEREAD: DWORD; stdcall; external THEDLL;
|
|
|
11 |
Procedure DELAYUS(i:DWORD); stdcall; external THEDLL;
|
|
|
12 |
procedure TIMEINITUS; stdcall; external THEDLL;
|
|
|
13 |
function TIMEREADUS: DWORD; stdcall; external THEDLL;
|
|
|
14 |
Procedure OUTPORT(PortAddr:Word; Data:byte); stdcall; external THEDLL;
|
|
|
15 |
function INPORT(PortAddr:Word):Byte;stdcall; external THEDLL;
|
|
|
16 |
function OPENCOM(S:PCHAR):Integer;stdcall; external THEDLL;
|
|
|
17 |
function READBYTE:Integer;stdcall; external THEDLL;
|
|
|
18 |
Procedure SENDBYTE(d:WORD);stdcall; external THEDLL;
|
|
|
19 |
Procedure REALTIME(d:BOOLEAN);stdcall; external THEDLL;
|
|
|
20 |
Function SOUNDSETRATE(Rate:DWORD):DWORD; stdcall; external THEDLL;
|
|
|
21 |
Function SOUNDGETRATE:DWORD; stdcall; external THEDLL;
|
|
|
22 |
Function SOUNDBUSY:Boolean; stdcall; external THEDLL;
|
|
|
23 |
Function SOUNDIS:Boolean; stdcall; external THEDLL;
|
|
|
24 |
Procedure SOUNDIN(buffer:Pchar;Size:DWORD); stdcall; external THEDLL;
|
|
|
25 |
Procedure SOUNDOUT(buffer:Pchar;Size:DWORD); stdcall; external THEDLL;
|
|
|
26 |
Function SOUNDGETBYTES:DWORD; stdcall; external THEDLL;
|
|
|
27 |
Function SOUNDSETBYTES(B:DWORD):DWORD; stdcall; external THEDLL;
|
|
|
28 |
Procedure SOUNDCAPIN; stdcall; external THEDLL;
|
|
|
29 |
Procedure SOUNDCAPOUT; stdcall; external THEDLL;
|
|
|
30 |
function JOYX:DWORD;stdcall; external THEDLL;
|
|
|
31 |
function JOYY:DWORD;stdcall; external THEDLL;
|
|
|
32 |
function JOYZ:DWORD;stdcall; external THEDLL;
|
|
|
33 |
function JOYR:DWORD;stdcall; external THEDLL;
|
|
|
34 |
function JOYBUTTON:DWORD;stdcall; external THEDLL;
|
|
|
35 |
|
|
|
36 |
implementation
|
|
|
37 |
|
|
|
38 |
end.
|
|
|
39 |
|