Subversion Repositories svnkaklik

Rev

Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
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