Subversion Repositories Kolibri OS

Rev

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

Rev 2276 Rev 5230
Line 66... Line 66...
66 
 EAX = 10;
 66 
 EAX = 10;
67 
 $int 0x40
 67 
 $int 0x40
68 
}
 68 
}
Line 69... Line 69...
69 
 
 69 
 
- 
 
 70 
 
- 
 
 71 
inline fastcall word GetKey()  //+Gluk fix
- 
 
 72 
{
70 
 
 73 
		$push edx
71 
inline fastcall word GetKey(){ //Gluk fix
 74 
GETKEY:
- 
 
 75 
		$mov  eax,2
- 
 
 76 
		$int  0x40
- 
 
 77 
		$cmp eax,1
- 
 
 78 
		$jne GETKEYI
- 
 
 79 
		$mov ah,dh
- 
 
 80 
		$jmp GETKEYII //jz?
- 
 
 81 
GETKEYI:
- 
 
 82 
		$mov dh,ah
- 
 
 83 
		$jmp GETKEY
72 
 EAX = 2;              // just read it key from buffer
 84 
GETKEYII:
73 
 $int  0x40
 85 
		$pop edx
Line 74... Line 86...
74 
 EAX = EAX >> 8;
86 
		$shr eax,8
75 
}
 87 
}
76 
 
 88