Subversion Repositories Kolibri OS

Rev

Rev 2763 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2763 Rev 2765
Line 79... Line 79...
79
}
79
}
Line 80... Line 80...
80
 
80
 
Line 81... Line 81...
81
//------------------------------------------------------------------------------
81
//------------------------------------------------------------------------------
-
 
82
 
82
 
83
inline fastcall dword WaitEvent(){
-
 
84
	$mov eax,10
-
 
85
	$int 0x40
-
 
86
}
-
 
87
 
83
inline fastcall dword WaitEvent(){
88
inline fastcall dword CheckEvent(){
84
 EAX = 10;
89
	$mov eax,11
Line 85... Line 90...
85
 $int 0x40
90
	$int 0x40
86
}
91
}
87
 
92
 
88
inline fastcall dword WaitEventTimeout(dword EBX){
93
inline fastcall dword WaitEventTimeout(dword EBX){
Line 89... Line 94...
89
 EAX = 23;
94
	$mov eax,23
90
 $int 0x40
95
	$int 0x40
91
} 
96
} 
92
 
97
 
93
inline fastcall SetEventMask(dword EBX)
98
inline fastcall SetEventMask(dword EBX)
Line 94... Line 99...
94
{
99
{
95
 EAX = 40;
100
	$mov eax,40
96
 $int 0x40
101
	$int 0x40
97
}
102
}
98
 
103
 
99
inline fastcall ScancodesGeting(){
104
inline fastcall ScancodesGeting(){
Line 100... Line 105...
100
	$mov eax,66;
105
	$mov eax,66
Line 116... Line 121...
116
@getkeyi:
121
@getkeyi:
117
		$mov dh,ah
122
		$mov dh,ah
118
		$jmp getkey
123
		$jmp getkey
119
@getkeyii:
124
@getkeyii:
120
		$pop edx
125
		$pop edx
121
		EAX = EAX >> 8;		 
126
		$shr eax,8
122
}
127
}
Line 123... Line 128...
123
 
128
 
124
 
129
 
Line 129... Line 134...
129
}
134
}
Line 130... Line 135...
130
 
135
 
Line 131... Line 136...
131
//==================================================================
136
//==================================================================
132
 
137
 
133
inline fastcall word GetButtonID(){
138
inline fastcall word GetButtonID(){
134
 EAX = 17;
139
	$mov eax,17
135
 $int  0x40
140
	$int  0x40
Line 136... Line 141...
136
 EAX = EAX >> 8;
141
	$shr eax,8
137
}
142
}
138
 
143
 
Line 150... Line 155...
150
#define SelfInfo -1
155
#define SelfInfo -1
151
};
156
};
Line 152... Line 157...
152
 
157
 
153
void GetProcessInfo(dword EBX, ECX)
158
void GetProcessInfo(dword EBX, ECX)
154
{
159
{
155
	EAX = 9;
160
	$mov eax,9;
156
	$int  0x40
161
	$int  0x40
Line 157... Line 162...
157
}
162
}
158
 
163
 
Line 170... Line 175...
170
	$int 0x40
175
	$int 0x40
171
}
176
}
Line 172... Line 177...
172
 
177
 
173
 
178
 
174
inline fastcall ExitProcess(){
179
inline fastcall ExitProcess(){
175
 EAX = -1;              // close this program
180
	$mov eax,-1;
Line 176... Line 181...
176
 $int 0x40
181
	$int 0x40
177
}
182
}