Subversion Repositories Kolibri OS

Rev

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

Rev 666 Rev 763
Line 144... Line 144...
144
  int   $0x40
144
  int   $0x40
145
  xchgl %eax, %ebx
145
  xchgl %eax, %ebx
146
  popl  %ebx
146
  popl  %ebx
147
end;
147
end;
Line -... Line 148...
-
 
148
 
-
 
149
procedure kos_setkeyboardmode(mode: DWord); assembler; register;
-
 
150
asm
-
 
151
  pushl %eax
-
 
152
  pushl %ebx
-
 
153
  movl  $66, %ecx
-
 
154
  movl  $1,  %ebx
-
 
155
  xchgl %eax, %ecx
-
 
156
  int   $0x40
-
 
157
  xchgl %eax, %ecx
-
 
158
  popl  %ebx
-
 
159
  popl  %eax
-
 
160
end;
-
 
161
 
-
 
162
function kos_getkeyboardmode(): DWord; assembler; register;
-
 
163
asm
-
 
164
  pushl %ebx
-
 
165
  movl  $66, %eax
-
 
166
  movl  $2,  %ebx
-
 
167
  int   $0x40
-
 
168
  popl  %ebx
-
 
169
end;
148
 
170
 
149
procedure kos_setcaption(caption: PChar); assembler; register;
171
procedure kos_setcaption(caption: PChar); assembler; register;
150
asm
172
asm
151
  pushl %ecx
173
  pushl %ecx
152
  pushl %ebx
174
  pushl %ebx