Subversion Repositories Kolibri OS

Rev

Rev 7981 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7981 Rev 7984
Line 139... Line 139...
139 
	$int  0x40
 139 
	$int  0x40
140 
	$shr  eax,16
 140 
	$shr  eax,16
141 
	return AL;
 141 
	return AL;
142 
}
 142 
}
Line -... Line 143...
- 
 
 143 
 
- 
 
 144 
inline fastcall GetKey()
- 
 
 145 
{
- 
 
 146 
	$mov  eax,2
- 
 
 147 
	$int  0x40
- 
 
 148 
}
143 
 
 149 
 
144 
// ECX is a mode: 1 - scancodes, 0 - ascii
 150 
// ECX is a mode: 1 - scancodes, 0 - ascii
145 
inline fastcall SetKeyboardMode(ECX)
151 
inline fastcall SetKeyboardMode(ECX)
146 
{
 152 
{
147 
	$mov  eax,66
 153 
	$mov  eax,66
148 
	$mov  ebx,1
 - 
 
149 
	//$mov  ecx,?
154 
	$mov  ebx,1
150 
	$int 0x40
155 
	$int 0x40
Line 151... Line 156...
151 
}
 156 
}
152 
 
 157