| 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 DTR(d:WORD);stdcall; external THEDLL;
|
|
|
20 |
Procedure RTS(d:WORD);stdcall; external THEDLL;
|
|
|
21 |
Procedure TXD(d:WORD);stdcall; external THEDLL;
|
|
|
22 |
Function CTS:Integer;stdcall; external THEDLL;
|
|
|
23 |
Function DSR:Integer;stdcall; external THEDLL;
|
|
|
24 |
Function RI:Integer;stdcall; external THEDLL;
|
|
|
25 |
Function DCD:Integer;stdcall; external THEDLL;
|
|
|
26 |
Procedure REALTIME(d:BOOLEAN);stdcall; external THEDLL;
|
|
|
27 |
Function SOUNDSETRATE(Rate:DWORD):DWORD; stdcall; external THEDLL;
|
|
|
28 |
Function SOUNDGETRATE:DWORD; stdcall; external THEDLL;
|
|
|
29 |
Function SOUNDBUSY:Boolean; stdcall; external THEDLL;
|
|
|
30 |
Function SOUNDIS:Boolean; stdcall; external THEDLL;
|
|
|
31 |
Procedure SOUNDIN(Puffer:Pchar;Size:DWORD); stdcall; external THEDLL;
|
|
|
32 |
Procedure SOUNDOUT(Puffer:Pchar;Size:DWORD); stdcall; external THEDLL;
|
|
|
33 |
Function SOUNDGETBYTES:DWORD; stdcall; external THEDLL;
|
|
|
34 |
Function SOUNDSETBYTES(B:DWORD):DWORD; stdcall; external THEDLL;
|
|
|
35 |
Procedure SOUNDCAPIN; stdcall; external THEDLL;
|
|
|
36 |
Procedure SOUNDCAPOUT; stdcall; external THEDLL;
|
|
|
37 |
Function JOYX:DWORD;stdcall; external THEDLL;
|
|
|
38 |
Function JOYY:DWORD;stdcall; external THEDLL;
|
|
|
39 |
Function JOYZ:DWORD;stdcall; external THEDLL;
|
|
|
40 |
Function JOYR:DWORD;stdcall; external THEDLL;
|
|
|
41 |
Function JOYBUTTON:DWORD;stdcall; external THEDLL;
|
|
|
42 |
|
|
|
43 |
implementation
|
|
|
44 |
|
|
|
45 |
end.
|
|
|
46 |
|