Subversion Repositories Kolibri OS

Rev

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

Rev 616 Rev 619
Line 159... Line 159...
159 
end;
 159 
end;
Line 160... Line 160...
160 
 
 160 
 
Line -... Line 161...
- 
 
 161 
 
- 
 
 162 
{ Graphics }
- 
 
 163 
 
- 
 
 164 
function kos_screensize(): TKosPoint; assembler; register;
- 
 
 165 
asm
- 
 
 166 
  pushl %eax
- 
 
 167 
  pushl %ecx
- 
 
 168 
  pushl %eax
- 
 
 169 
  movl  $14, %eax
- 
 
 170 
  int   $0x40
- 
 
 171 
  movswl %ax, %ecx
- 
 
 172 
  popl  %ebx
- 
 
 173 
  shrl  $16, %eax
- 
 
 174 
  movl  %ecx, TKosPoint.Y(%ebx)
- 
 
 175 
  movl  %eax, TKosPoint.X(%ebx)
- 
 
 176 
  popl  %ecx
161 
 
 177 
  popl  %eax
162 
{ Graphics }
 178 
end;
163 
 
 179 
 
164 
procedure kos_begindraw(); assembler; register;
 180 
procedure kos_begindraw(); assembler; register;
165 
asm
 181 
asm