WebSVN – Kolibri OS – Diff – /programs/bcc32/include/kos_func.inc


;const int
KOLIBRI_BORDER_SIZE = 4;
;const int
KOLIBRI_HEADER_SIZE = 20;
 
;const int
KOLIBRI_THREAD_DATA_USER     = 0; // Thread data begin from the user dword
;const int
KOLIBRI_THREAD_DATA_ST_BEGIN = 1; // Stack beginning follows after the user dword
;const int
KOLIBRI_THREAD_DATA_NEXT     = 2;
;const int
KOLIBRI_THREAD_DATA_PID	    = 3;
;const int
KOLIBRI_THREAD_DATA_FLAG     = 4;
;const int
KOLIBRI_THREAD_DATA_X	    = 5;
;const int
KOLIBRI_THREAD_DATA_Y	    = 6;
;const int
KOLIBRI_THREAD_DATA_C_WINDOW = 7;
;const int
KOLIBRI_THREAD_DATA_C_HEADER = 8;
;const int
KOLIBRI_THREAD_DATA_C_BORDER = 9;
;const int
KOLIBRI_THREAD_DATA_C_TITLE  = 10;
;const int
KOLIBRI_THREAD_DATA_TITLE    = 11;
;const int
KOLIBRI_THREAD_DATA_PICTURE  = 12;
;const int
KOLIBRI_THREAD_DATA_SZ_PICT  = 13;
;const int
KOLIBRI_THREAD_DATA_LAST_SX  = 14;
;const int
KOLIBRI_THREAD_DATA_LAST_SY  = 15;
;const int
KOLIBRI_THREAD_DATA_LEN	    = 16;
 
;const int
KOLIBRI_MUTEX_MAX_TIME_WAIT  = 20;
 
;/***
 
macro segment name
{
  segment name
  if name eq _init_ | name eq _INIT_
Kolibri_SegmentInit:
  else if name eq _exit_ | name eq _EXIT_
Kolibri_SegmentExit:
  end if
}
 
macro endseg  name
{
  if name eq _init_ | name eq _INIT_
Kolibri_SegmentInitEnd:
  else if name eq _exit_ | name eq _EXIT_
Kolibri_SegmentExitEnd:
  end if
  endseg  name
}
 
macro Kolibri_Put_MovEaxVal_Ret	address,val
{
  mov  byte [address],0xB8
  mov  dword [address+4],0xC089C300
  mov  dword [address+1],val
}
 
align 4
proc @Kolibri@Main$qv
  and  esp,not 3
  sub  esp,1024
  mov  eax,SF_THREAD_INFO
  mov  ebx,esp
  mov  ecx,-1
  int  0x40
  mov  ebx,[esp+process_information.used_memory]
  mov  edx,[esp+process_information.PID]
  lea  eax,[ebx-0x20]
  add  esp,1024
  cmp  esp,eax
  cmova esp,eax
  and  esp,not 3
  xor  eax,eax
  cld
  mov  edi,@Kolibri@_ThreadTable
  mov  ecx,256
  rep stosd
  mov  esi,@Kolibri@GetPid$qv
  mov  edi,@Kolibri@_ThreadSavedBegProc
  movsd
  movsd
  mov  esi,@Kolibri@GetThreadData$qv
  movsd
  movsd
  Kolibri_Put_MovEaxVal_Ret  @Kolibri@GetPid$qv,edx
if defined KolibriHeapInit
  call KolibriHeapInit	; Initialize a dynamic heap
end if
  xor  eax,eax
  push eax
  push eax
  call @Kolibri@ThreadMain$qpvt1
.ThreadFinish:
  add  esp,8
if defined KolibriHeapFreeAndThreadFinish
  test eax,eax
  jz   .ThreadFinish_end
  push dword @Kolibri@_ExitProcessNow
  push eax
  call KolibriHeapFreeAndThreadFinish   ; Free the given memory and finish the thread,
end if				       ; should exit process if second argument points to not zero.
.ThreadFinish_end:
  or   eax,-1
  int  0x40
endp
 
align 4
proc @Kolibri@ThreadMain$qpvt1
  xchg ebx,[esp+4]
  xchg ebp,[esp+8]
  push esi edi
  sub  esp,KOLIBRI_THREAD_DATA_LEN*4
  mov  [esp],ebx
  mov  [esp+4],ebp
  mov  eax,SF_SET_EVENTS_MASK
  mov  ebx,0x27
  int  0x40
  mov  ebx,esp
  cmp  byte [@Kolibri@_ThreadSavedBegProc],0x90
  jz   .main_else_first_check
  Kolibri_Put_MovEaxVal_Ret  @Kolibri@GetThreadData$qv,esp
if defined Kolibri_SegmentInit & defined Kolibri_SegmentInitEnd
  push Kolibri_SegmentInitEnd
  push Kolibri_SegmentInit
  jmp  .main_after_first_check
end if
.main_else_first_check:
  xor  eax,eax
  push eax eax
.main_after_first_check:
  push ebx
  call @@Kolibri@_CallStart$qppvpvt2
  add  esp,12
  test al,al
  jnz  .main_test_close_first
  jmp  .main_end
.main_close_first:
  btr  dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],31
if defined @@KolibriOnClose$qppv
  push esp
  call @@KolibriOnClose$qppv
  pop  ecx
  test al,al
  jnz  .main_end
end if
.main_test_close_first:
  cmp  dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
  jl   .main_close_first
;  push esp
;  push dword 1
;  call @Kolibri@Redraw$qippv
;  add	esp,8
.main_paint_msg:
  or   dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],3
  sub  esp,1024
  mov  eax,SF_THREAD_INFO
  mov  ebx,esp
  mov  ecx,-1
  int  0x40
  mov  eax,[esp+process_information.box.left]
  mov  ebx,[esp+process_information.box.top]
  mov  ecx,[esp+process_information.box.width]
  mov  edx,[esp+process_information.box.height]
  add  esp,1024
  cmp  ecx,[esp+KOLIBRI_THREAD_DATA_LAST_SX*4]
  jnz  .main_size
  cmp  edx,[esp+KOLIBRI_THREAD_DATA_LAST_SY*4]
  jz   .main_paint
.main_size:
  mov  [esp+KOLIBRI_THREAD_DATA_LAST_SX*4],ecx
  mov  [esp+KOLIBRI_THREAD_DATA_LAST_SY*4],edx
if defined @@KolibriOnSize$qpippv
  push edx
  push ecx
  push ebx
  push eax
  lea  ecx,[esp+16]
  mov  edx,esp
  push ecx
  push edx
  call @@KolibriOnSize$qpippv
  add  esp,24
end if
  test dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],3
  jz   .main_cycle
.main_paint:
  cmp  dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
  jl   .main_close
  push esp
  push dword 0
  call @Kolibri@Redraw$qippv
  add  esp,8
.main_cycle:
  mov  eax,SF_CHECK_EVENT
.main_message:
  cmp  dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
  jl   .main_close
  int  0x40
  test eax,eax
  jnz  .main_on_message
  cmp  dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
  jne  .main_paint
if defined @@KolibriOnIdle$qppv
  push esp
  call @@KolibriOnIdle$qppv
  pop  ecx
else
  or eax,-1
end if
  test eax,eax
  jz   .main_cycle
  jl   .main_wait_message
  mov  ebx,eax
  mov  eax,SF_WAIT_EVENT_TIMEOUT
  jmp  .main_message
.main_wait_message:
  mov  eax,SF_WAIT_EVENT
  jmp  .main_message
if defined @@KolibriOnKeyPress$qppv
.main_key_press:
  push esp
  call @@KolibriOnKeyPress$qppv
  pop  ecx
  jmp  .main_cycle
end if
if defined @@KolibriOnMouse$qppv
.main_mouse:
  push esp
  call @@KolibriOnMouse$qppv
  pop  ecx
  jmp  .main_cycle
end if
 
align 4
.main_on_message:
  dec  eax
  jz   .main_paint_msg
  dec  eax
if defined @@KolibriOnKeyPress$qppv
  jz   .main_key_press
else
  jz   .main_cycle
end if
  cmp  eax,4
if defined @@KolibriOnMouse$qppv
  jz   .main_mouse
else
  jz   .main_cycle
end if
  dec  eax
  jnz  .main_cycle
 
align 4
.main_button:
  mov  eax,SF_GET_BUTTON
  int  0x40
  shr  eax,8
  cmp  eax,1
  je   .main_close
if defined @@KolibriOnButton$qlppv
  push esp
  push eax
  call @@KolibriOnButton$qlppv
  add  esp,8
end if
  jmp  .main_cycle
.main_close:
  btr  dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],31
if defined @@KolibriOnClose$qppv
  push esp
  call @@KolibriOnClose$qppv
  pop  ecx
  test al,al
  jz   .main_button
end if
.main_end:
  mov  ebx,esp
  lock dec dword [@Kolibri@_ThreadNumber]
if defined Kolibri_SegmentExit & defined Kolibri_SegmentExitEnd
  jnz  .main_else_last_check
  push Kolibri_SegmentExitEnd
  push Kolibri_SegmentExit
  jmp  .main_after_last_check
end if
.main_else_last_check:
  xor  eax,eax
  push eax
  push eax
.main_after_last_check:
  push ebx
  call @@Kolibri@_RemoveThreadData$qppvpvt2
  add  esp,12
  lock inc dword [@Kolibri@_ThreadScanCount+4]
  mov  ebx,1
  jmp  .main_end_wait
.main_end_wait_loop:
  mov  eax,SF_SLEEP
  int  0x40
  shl  ebx,1
  cmp  ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
  jna  .main_end_wait
  mov  ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
.main_end_wait:
  cmp  dword [@Kolibri@_ExitProcessNow],0
  jnz  @Kolibri@ExitProcess$qv
  cmp  dword [@Kolibri@_ThreadScanCount],0
  jnz  .main_end_wait_loop
  lock dec dword [@Kolibri@_ThreadScanCount+4]
  mov  ebp,[esp+4]
  mov  ebx,[esp]
  add  esp,KOLIBRI_THREAD_DATA_LEN*4
  mov  eax,ebp
  pop  edi esi
  xchg ebp,[esp+8]
  xchg ebx,[esp+4]
  ret
endp
 
align 4
proc @Kolibri@Redraw$qippv
  push ebp
  mov  ebp,[esp+12]
  mov  edx,[ebp+KOLIBRI_THREAD_DATA_FLAG*4]
  cmp  dword [esp+8],0
  jl   .redraw_only_inv
  jz   .redraw_no_frame
  or   dl,2
.redraw_no_frame:
  bt   edx,30
  jnc  .redraw_begin
  or   dl,1
  mov  [ebp+KOLIBRI_THREAD_DATA_FLAG*4],edx
  jmp  .redraw_end
.redraw_only_inv:
  test dl,3
  jnz  .redraw_no_frame
.redraw_end:
  pop  ebp
  ret
.redraw_begin:
  push ebx esi edi
  and  dword [ebp+KOLIBRI_THREAD_DATA_FLAG*4],0xFFFFFFFC
  mov  eax,SF_REDRAW
  mov  ebx,SSF_BEGIN_DRAW
  int  0x40
  test dl,2
  jz   .redraw_picture
  mov  eax,SF_STYLE_SETTINGS
  mov  ebx,SSF_GET_SKIN_HEIGHT
  int  0x40
  mov  ebx,[ebp+KOLIBRI_THREAD_DATA_X*4]
  add  ebx,2*5-1
  mov  ecx,[ebp+KOLIBRI_THREAD_DATA_Y*4]
  add  cx,ax
  add  ecx,5-1
  mov  edx,[ebp+KOLIBRI_THREAD_DATA_C_WINDOW*4]
  mov  edi,[ebp+KOLIBRI_THREAD_DATA_TITLE*4]
  xor  eax,eax ;SF_CREATE_WINDOW
  int  0x40
.redraw_picture:
  call	@@KolibriOnPaint$qv
.redraw_end_draw:
  mov  eax,SF_REDRAW
  mov  ebx,SSF_END_DRAW
  int  0x40
  pop  edi esi ebx ebp
  ret
endp
 
align 4
proc @Kolibri@MoveWindow$qxpxi uses ebx esi
  mov  eax,[esp+12]
  mov  ebx,[eax]
  mov  ecx,[eax+4]
  mov  edx,[eax+8]
  mov  esi,[eax+12]
  mov  eax,SF_CHANGE_WINDOW
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@ExitDebug$qv
  push dword [@Kolibri@DebugPrefix]
  call @Kolibri@DebugPutString$qpxc
  mov	dword [esp],Kolibri_debug_string
  call @Kolibri@DebugPutString$qpxc
  pop	ecx
  jmp  @Kolibri@ExitProcess$qv
endp
 
align 4
proc @Kolibri@ExitProcess$qv
  lock bts dword [@Kolibri@_ExitProcessNow],0
  jc   .exit_process_wait
  sub  esp,1024
  mov  eax,SF_THREAD_INFO
  mov  ebx,esp
  mov  ecx,-1
  int  0x40
  mov  esi,eax
  mov  edi,[esp+process_information.PID]
.exit_process_loop:
  mov  eax,SF_THREAD_INFO
  mov  ebx,esp
  mov  ecx,esi
  int  0x40
  mov  eax,[esp+process_information.PID]
  cmp  eax,edi
  jz   .exit_process_continue
  mov  ebx,eax
  or   bl,15
  inc  ebx
  jz   .exit_process_continue
  mov  ebx,eax
  call Kolibri_HashInt
  movzx eax,al
  mov  eax,dword [@Kolibri@_ThreadTable+eax*4]
  jmp  .exit_process_test
.exit_process_next:
  mov  eax,dword [eax+KOLIBRI_THREAD_DATA_NEXT*4]
.exit_process_test:
  test eax,eax
  jz   .exit_process_continue
  cmp  ebx,[eax+KOLIBRI_THREAD_DATA_PID*4]
  jnz  .exit_process_next
  mov  eax,SF_SYSTEM
  mov  ebx,SSF_TERMINATE_THREAD
  mov  ecx,esi
  int  0x40
.exit_process_continue:
  dec  esi
  jnl  .exit_process_loop
  add  esp,1024
  mov  dword [@Kolibri@_ExitProcessNow],-1
if defined EMULATOR
  int3
  call 0x76543210
end if
.exit_process_end:
  mov  dword [@Kolibri@_ThreadMutex],0
  or   eax,-1
  int  0x40
.exit_process_wait:
  mov  eax,SF_SLEEP
  mov  ebx,1
.exit_process_wait_loop:
  cmp  dword [@Kolibri@_ExitProcessNow],0
  jl   .exit_process_end
  int  0x40
  shl  ebx,1
  cmp  ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
  jna  .exit_process_wait_loop
  mov  ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
  jmp  .exit_process_wait_loop
endp
 
align 4
proc @Kolibri@ExitThread$qppv
  mov  esp,[esp+4]
  jmp  @Kolibri@ThreadMain$qpvt1.main_end
endp
 
align 4
proc @Kolibri@ReturnMessageLoop$qppv
  mov  esp,[esp+4]
  bt   dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],30
  jc   @Kolibri@ThreadMain$qpvt1.main_end
  jmp  @Kolibri@ThreadMain$qpvt1.main_cycle
endp
 
align 4
proc @Kolibri@Delay$qui uses ebx
  mov  eax,SF_SLEEP
  mov  ebx,[esp+8]
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@Clock$qv uses ebx
  mov  eax,SF_SYSTEM_GET
  mov  ebx,SSF_TIME_COUNT
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@DrawButton$qllllll uses ebx esi
  mov  eax,SF_DEFINE_BUTTON
  mov  ebx,[esp+12-2+8]
  mov  bx,[esp+20+8]
  mov  ecx,[esp+16-2+8]
  mov  cx,[esp+24+8]
  mov  edx,[esp+4+8]
  mov  esi,[esp+8+8]
  int  0x40
  ret 
endp
 
align 4
proc @Kolibri@GetPackedTime$qv
  mov  eax,SF_GET_SYS_TIME
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@GetTime$qpi
  mov  eax,SF_GET_SYS_TIME
  int  0x40
  mov  edx,[esp+4]
  movzx ecx,al
  shr  ecx,4
  and  al,0x0F
  imul ecx,10
  add  cl,al
  mov  dword [edx+8],ecx
  mov  cl,ah
  shr  ecx,4
  and  ah,0x0F
  imul ecx,10
  add  cl,ah
  mov  dword [edx+4],ecx
  bswap eax
  mov  cl,ah
  shr  ecx,4
  and  ah,0x0F
  imul ecx,10
  add  cl,ah
  mov  dword [edx],ecx
  ret
endp
 
align 4
proc @Kolibri@GetPackedDate$qv
  mov  eax,SF_GET_SYS_DATE
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@GetDate$qpi
  mov  eax,SF_GET_SYS_DATE
  int  0x40
  mov  edx,[esp+4]
  movzx ecx,al
  shr  ecx,4
  and  al,0x0F
  imul ecx,10
  add  cl,al
  mov  dword [edx+4],ecx
  mov  cl,ah
  shr  ecx,4
  and  ah,0x0F
  imul ecx,10
  add  cl,ah
  mov  dword [edx],ecx
  bswap eax
  mov  cl,ah
  shr  ecx,4
  and  ah,0x0F
  imul ecx,10
  add  cl,ah
  mov  dword [edx+8],ecx
  ret
endp
 
align 4
proc @Kolibri@ReadCommonColors$qpui uses ebx
  mov  eax,SF_STYLE_SETTINGS
  mov  ebx,SSF_GET_COLORS
  mov  ecx,[esp+8]
  mov  edx,40
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@DrawText$qssipxc uses ebx
  mov  eax,SF_DRAW_TEXT
  mov  ebx,[esp+8-2]
  mov  bx,[esp+12]
  mov  ecx,[esp+16]
  or   ecx,0x80000000
  mov  edx,[esp+20]
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@DrawRect$qlllll uses ebx
  mov  eax,SF_DRAW_RECT
  mov  ebx,[esp+8-2]
  mov  bx,[esp+16]
  mov  ecx,[esp+12-2]
  mov  cx,[esp+20]
  mov  edx,[esp+24]
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@PutImage$qpucllll uses ebx
  mov  eax,SF_PUT_IMAGE
  mov  ebx,[esp+8]
  mov  ecx,[esp+20-2]
  mov  cx,[esp+24]
  mov  edx,[esp+12-2]
  mov  dx,[esp+16]
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@SetWindowCaption$qpxc uses ebx
  mov  eax,SF_SET_CAPTION
  mov  ebx,2
  mov  ecx,[esp+8]
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@GetProcessInfo$qpuipct1t1piui uses ebx esi edi
  sub  esp,1024
  mov  eax,SF_THREAD_INFO
  mov  ebx,esp
  mov  ecx,[1024+12+24+esp]
  int  0x40
  xor  edi,edi
  or   edi,[1024+12+4+esp]
  jz   .get_proc_info_no_usecpu
  mov  ecx,[esp]
  mov  [edi],ecx
  xor  edi,edi
.get_proc_info_no_usecpu:
  or   edi,[1024+12+8+esp]
  jz   .get_proc_info_no_name
  lea  esi,[esp+process_information.process_name]
  cld
  movsd
  movsd
  movsd
  mov  byte [edi],0
  xor  edi,edi
.get_proc_info_no_name:
  or   edi,[1024+12+12+esp]
  jz   .get_proc_info_no_mem
  mov  ecx,[esp+process_information.used_memory]
  mov  [edi],ecx
  xor  edi,edi
.get_proc_info_no_mem:
  or   edi,[1024+12+16+esp]
  jz   .get_proc_info_no_pid
  mov  ecx,[esp+process_information.PID]
  mov  [edi],ecx
  xor  edi,edi
.get_proc_info_no_pid:
  or   edi,[1024+12+20+esp]
  jz   .get_proc_info_no_rect
  lea  esi,[esp+process_information.box]
  cld
  movsd
  movsd
  movsd
  movsd
  xor  edi,edi
.get_proc_info_no_rect:
  add  esp,1024
  ret
endp
 
align 4
proc @Kolibri@GetPid$qv uses ebx
  sub  esp,1024
  mov  eax,SF_THREAD_INFO
  mov  ebx,esp
  mov  ecx,-1
  int  0x40
  mov  eax,[esp+process_information.PID]
  add  esp,1024
  ret
endp
 
align 4
proc @Kolibri@GetPid$qppv
  mov  ecx,[esp+4]
  mov  eax,[ecx+KOLIBRI_THREAD_DATA_PID*4]
  ret
endp
 
align 4
proc @Kolibri@_HashByte$qui
@Kolibri@_HashWord$qui:
@Kolibri@_HashDword$qui:
  mov  eax,[esp+4]
Kolibri_HashInt:
  mul  dword [Kolibri_hash_int_val0]
  xor  eax,edx
  bswap eax
  mul  dword [Kolibri_hash_int_val1]
  shrd eax,edx,14
  bswap eax
  lea  eax,[eax+4*eax]
  ror  eax,9
  ret
endp
 
if defined @Kolibri@_HashByte$qui | defined @Kolibri@_HashWord$qui | defined @Kolibri@_HashDword$qui
Kolibri_hash_int_val0:
  dd   0xA82F94C5
Kolibri_hash_int_val1:
  dd   0x9193780B
end if
 
align 4
proc @Kolibri@GetThreadData$qv
  call @Kolibri@GetPid$qv
  push eax
  call @Kolibri@GetThreadData$qui
  pop  ecx
  ret
endp
 
align 4
proc @Kolibri@GetThreadData$qui
  mov  eax,[esp+4]
  call Kolibri_HashInt
  movzx eax,al
  cmp  dword [@Kolibri@_ThreadScanCount+4],0
  jnz  .get_thread_data_wait
.get_thread_data_nowait:
  lock inc dword [@Kolibri@_ThreadScanCount]
  mov  eax,dword [@Kolibri@_ThreadTable+eax*4]
  mov  ecx,[esp+4]
  jmp  .get_thread_data_test
.get_thread_data_loop:
  mov  eax,dword [eax+KOLIBRI_THREAD_DATA_NEXT*4]
.get_thread_data_test:
  test eax,eax
  jz   .get_thread_data_end
  cmp  ecx,[eax+KOLIBRI_THREAD_DATA_PID*4]
  jnz  .get_thread_data_loop
.get_thread_data_end:
  lock dec dword [@Kolibri@_ThreadScanCount]
  ret
.get_thread_data_wait:
  push eax ebx
  mov  eax,SF_SLEEP
  mov  ebx,1
.get_thread_data_wait_loop:
  int  0x40
  cmp  dword [@Kolibri@_ThreadScanCount+4],0
  jz   .get_thread_data_wait_end
  shl  ebx,1
  cmp  ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
  jna  .get_thread_data_wait_loop
  mov  ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
  jmp  .get_thread_data_wait_loop
.get_thread_data_wait_end:
  pop  ebx eax
  jmp .get_thread_data_nowait
endp
 
align 4
proc @Kolibri@_GetSkinHeader$qv uses ebx
  mov  eax,SF_STYLE_SETTINGS
  mov  ebx,SSF_GET_SKIN_HEIGHT
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@GetScreenSize$qrust1
  mov  eax,SF_GET_SCREEN_SIZE
  int  0x40
  mov  ecx,[esp+8]
  mov  word [ecx],ax
  mov  ecx,[esp+4]
  shr  eax,16
  mov  word [ecx],ax
  ret
endp
 
align 4
proc Kolibri_MutexLockNoWait
  pop  eax
  xor  al,al
  ret
endp
 
align 4
proc Kolibri_MutexLockWait uses ebx
  mov  eax,SF_SLEEP
  xor  ebx,ebx
.lock_wait_cycle:
  int  0x40
  shl  byte [ecx],1
  jz   .lock_wait_cycle
  mov  al,1
  ret
endp
 
align 4
proc Kolibri_MutexLockWaitTime
  cmp  dword [esp+12],0
  jng  .MutexLockWait
  push ebx edx
  mov  edx,[esp+20]
  mov  eax,SF_SYSTEM_GET
  mov  ebx,SSF_TIME_COUNT
  int  0x40
  add  edx,eax
.lock_wait_time_cycle:
  mov  eax,SF_SLEEP
  xor  ebx,ebx
  int  0x40
  shl  byte [ecx],1
  jnz  .lock_wait_time_ret_true
  mov  eax,SF_SYSTEM_GET
  mov  ebx,SSF_TIME_COUNT
  int  0x40
  cmp  eax,edx
  js   .lock_wait_time_cycle
  pop  edx ebx eax
  xor  al,al
  ret
.lock_wait_time_ret_true:
  pop  edx ebx
  mov  al,1
  ret
endp
 
align 4
proc Kolibri_MutexLock
  shl  byte [ecx],1
  jnz  .lock_first
  call eax
.lock_first:
  mov  al,1
  ret
endp
 
align 4
proc @Kolibri@TryLock$qp14Kolibri@TMutex
  mov  eax,Kolibri_MutexLockNoWait
  mov  ecx,[esp+4]
  jmp  Kolibri_MutexLock
endp
 
align 4
proc @Kolibri@Lock$qp14Kolibri@TMutex
  mov  eax,Kolibri_MutexLockWait
  mov  ecx,[esp+4]
  jmp  Kolibri_MutexLock
endp
 
align 4
proc @Kolibri@LockTime$qp14Kolibri@TMutexi
  mov  eax,Kolibri_MutexLockWaitTime
  mov  ecx,[esp+4]
  jmp  Kolibri_MutexLock
endp
 
align 4
proc @Kolibri@UnLock$qp14Kolibri@TMutex
  mov  ecx,[esp+4]
  shr  byte [ecx],1
  jz   .unlock_pause
  ret
.unlock_pause:
  mov  byte [ecx],0x40
  push ebx
  mov  eax,SF_SLEEP
  xor  ebx,ebx
  int  0x40
  pop  ebx
  ret
endp
 
align 4
proc Kolibri_MutexLockRec
  shl  byte [ecx],1
  jng  .lock_first
  cmp  dword [ecx+4],edx
  jz   .lock_rec_self
  call eax
.lock_rec_first:
  mov  al,1
  mov  dword [ecx+4],edx
  ret
.lock_rec_self:
  mov  al,1
  add  dword [ecx],0x100
  jc   .lock_rec_overflow
  ret
.lock_rec_overflow:
  push dword [@Kolibri@DebugPrefix]
  call @Kolibri@DebugPutString$qpxc
  mov  dword [esp],Kolibri_try_lock_rec_overflow_string
  call @Kolibri@DebugPutString$qpxc
  pop  ecx
  jmp  @Kolibri@ExitDebug$qv
endp
 
align 4
proc @Kolibri@TryLock$qp16Kolibri@TRecMutexui
  mov  eax,Kolibri_MutexLockNoWait
  mov  ecx,[esp+4]
  mov  edx,[esp+8]
  jmp  Kolibri_MutexLockRec
endp
 
align 4
proc @Kolibri@Lock$qp16Kolibri@TRecMutexui
  mov  eax,Kolibri_MutexLockWait
  mov  ecx,[esp+4]
  mov  edx,[esp+8]
  jmp  Kolibri_MutexLockRec
endp
 
align 4
proc @Kolibri@LockTime$qp16Kolibri@TRecMutexiui
  mov  eax,Kolibri_MutexLockWaitTime
  mov  ecx,[esp+4]
  mov  edx,[esp+12]
  jmp  Kolibri_MutexLockRec
endp
 
align 4
proc @Kolibri@UnLock$qp16Kolibri@TRecMutexui
  mov  ecx,[esp+4]
  mov  edx,[esp+8]
  cmp  dword [ecx+4],edx
  jnz  .unlock_rec_notlocked
  sub  dword [ecx],0x100
  jnc  .unlock_rec_end
  add dword [ecx],0x100
  shl byte [ecx],1
  shr byte [ecx],2
  jng  .unlock_rec_pause
.unlock_rec_end:
  ret
.unlock_rec_pause:
  mov  byte [ecx],0x20
  push ebx
  mov  eax,SF_SLEEP
  xor  ebx,ebx
  int  0x40
  pop  ebx
  ret
.unlock_rec_notlocked:
  push dword [@Kolibri@DebugPrefix]
  call @Kolibri@DebugPutString$qpxc
  mov  dword [esp],Kolibri_unlock_rec_notlocked_string
  call @Kolibri@DebugPutString$qpxc
  pop  ecx
  jmp  @Kolibri@ExitDebug$qv
endp
 
align 4
proc @Kolibri@DebugPutChar$qc
  mov  cl,byte [esp+4]
  cmp  cl,13
  jz   .debug_put_char_ret
  push ebx
  cmp  cl,10
  jz   .debug_put_char_enter
.debug_put_char_after_cmp:
  mov  eax,SF_BOARD
  mov  ebx,SSF_DEBUG_WRITE
  int  0x40
  pop  ebx
.debug_put_char_ret:
  ret
.debug_put_char_enter:
  mov  cl,13
  mov  eax,SF_BOARD
  mov  ebx,SSF_DEBUG_WRITE
  int  0x40
  mov  cl,10
  jmp  .debug_put_char_after_cmp
endp
 
align 4
proc @Kolibri@DebugPutString$qpxc uses esi
  push dword 0
  mov  esi,dword [esp+12]
  jmp  .debug_put_string_test
.debug_put_string_loop:
  mov  dword [esp],eax
  call @Kolibri@DebugPutChar$qc
  inc  esi
.debug_put_string_test:
  xor  eax,eax
  or   al,[esi]
  test al,al
  jnz  .debug_put_string_loop
  pop  ecx
  ret
endp
 
align 4
proc @Kolibri@GetKey$qv
  mov  eax,SF_GET_KEY
  int  0x40
  test al,al
  jnz  .get_key_eof
  movzx eax,ah
  ret
.get_key_eof:
  mov  eax,SF_TERMINATE_PROCESS
  ret
endp
 
align 4
proc @Kolibri@GetMouseButton$qv uses ebx
  mov  eax,SF_MOUSE_GET
  mov  ebx,SSF_BUTTON
  int  0x40
  ret
endp
 
align 4
proc @Kolibri@GetMousePosition$qrst1o uses ebx
  mov  eax,SF_MOUSE_GET
  xor  ebx,ebx ;SSF_SCREEN_POSITION
  cmp  byte [esp+16],0
  jnz  .get_mouse_pos_absolute
  inc  ebx
.get_mouse_pos_absolute:
  int  0x40
  mov  ecx,[esp+12]
  mov  word [ecx],ax
  mov  ecx,[esp+8]
  shr  eax,16
  mov  word [ecx],ax
  ret
endp
 
align 4
proc @Kolibri@WasThreadCreated$qv
  cmp  byte [@Kolibri@_ThreadSavedBegProc],0x90
  setz al
  ret
endp
 
align 4
proc @Kolibri@CreateThread$qpvuit1
  push ebx
  mov  edx,[esp+16]
  mov  ebx,[esp+12]
  test edx,edx
  jnz  .create_thread_after_new
if defined KolibriHeapAlloc
  cmp  ebx,4096
  jnb  .create_thread_alloc
  mov  ebx,STACKSIZE
.create_thread_alloc:
  push ebx
  call KolibriHeapAlloc	 ; Create new dynamic memory of the given size
  pop  ecx
  test eax,eax
  jnz  .create_thread_mem_created
end if
  or   eax,-1
  jmp  .create_thread_end
.create_thread_mem_created:
  lea  edx,[eax+ebx]
.create_thread_after_new:
  neg  ebx
  jz   .create_thread_test_first
  add  ebx,edx
.create_thread_test_first:
  cmp  byte [@Kolibri@_ThreadSavedBegProc],0x90
  jnz  .create_thread_init
.create_thread_fill_stack:
  lock inc dword [@Kolibri@_ThreadNumber]
  and  edx,not 3
  sub  edx,12
  mov  ecx,[esp+8]
  mov  dword [edx+8],ebx
  mov  dword [edx+4],ecx
  mov  dword [edx],Kolibri_ThreadFinish
  mov  eax,SF_CREATE_THREAD
  mov  ebx,1
  mov  ecx,@Kolibri@ThreadMain$qpvt1
  int  0x40
  mov  ebx,eax
  or   bl,15
  inc  ebx
  jnz  .create_thread_end
  lock dec dword [@Kolibri@_ThreadNumber]
if defined KolibriHeapFree
  or   ebx,[edx+8]
  jz   .create_thread_end
  push ebx
  call KolibriHeapFree	; Delete the given dynamic memory
  pop  ecx
end if
.create_thread_end:
  pop  ebx
  ret
.create_thread_init:
  push esi edi
  cld
  mov  esi,@Kolibri@_ThreadSavedBegProc
  mov  edi,@Kolibri@GetPid$qv
  movsd
  movsd
  mov  edi,@Kolibri@GetThreadData$qv
  movsd
  movsd
  mov  eax,0x90909090
  mov  edi,@Kolibri@_ThreadSavedBegProc
  stosd
  stosd
  stosd
  stosd
  pop  edi esi
  jmp  .create_thread_fill_stack
endp
 
align 4
proc @Kolibri@_FileAccess$qp21Kolibri@FileInfoBlock uses ebx
  mov  eax,SF_FILE
  mov  ebx,[esp+8]
  int  0x40
  mov  ecx,[esp+8]
  mov  [ecx],ebx
  ret
endp
 
if defined Kolibri_debug_string
Kolibri_debug_string:
  db 'Abnormal program termination.',10,0
end if
 
if defined Kolibri_MutexLockRec
Kolibri_try_lock_rec_overflow_string:
  db 'Recursive mutex lock count overflow.',10,0
end if
 
if defined @Kolibri@UnLock$qp16Kolibri@TRecMutexui
Kolibri_unlock_rec_notlocked_string:
  db 'Recursive mutex unlock error.',10,0
end if
 
include "kos_lib.inc"
 
;/**/

Rev 8236	Rev 8283
1	;const int	1	;const int
2	KOLIBRI_BORDER_SIZE = 4;	2	KOLIBRI_BORDER_SIZE = 4;
3	;const int	3	;const int
4	KOLIBRI_HEADER_SIZE = 20;	4	KOLIBRI_HEADER_SIZE = 20;
5		5
6	;const int	6	;const int
7	KOLIBRI_THREAD_DATA_USER = 0; // Thread data begin from the user dword	7	KOLIBRI_THREAD_DATA_USER = 0; // Thread data begin from the user dword
8	;const int	8	;const int
9	KOLIBRI_THREAD_DATA_ST_BEGIN = 1; // Stack beginning follows after the user dword	9	KOLIBRI_THREAD_DATA_ST_BEGIN = 1; // Stack beginning follows after the user dword
10	;const int	10	;const int
11	KOLIBRI_THREAD_DATA_NEXT = 2;	11	KOLIBRI_THREAD_DATA_NEXT = 2;
12	;const int	12	;const int
13	KOLIBRI_THREAD_DATA_PID = 3;	13	KOLIBRI_THREAD_DATA_PID = 3;
14	;const int	14	;const int
15	KOLIBRI_THREAD_DATA_FLAG = 4;	15	KOLIBRI_THREAD_DATA_FLAG = 4;
16	;const int	16	;const int
17	KOLIBRI_THREAD_DATA_X = 5;	17	KOLIBRI_THREAD_DATA_X = 5;
18	;const int	18	;const int
19	KOLIBRI_THREAD_DATA_Y = 6;	19	KOLIBRI_THREAD_DATA_Y = 6;
20	;const int	20	;const int
21	KOLIBRI_THREAD_DATA_C_WINDOW = 7;	21	KOLIBRI_THREAD_DATA_C_WINDOW = 7;
22	;const int	22	;const int
23	KOLIBRI_THREAD_DATA_C_HEADER = 8;	23	KOLIBRI_THREAD_DATA_C_HEADER = 8;
24	;const int	24	;const int
25	KOLIBRI_THREAD_DATA_C_BORDER = 9;	25	KOLIBRI_THREAD_DATA_C_BORDER = 9;
26	;const int	26	;const int
27	KOLIBRI_THREAD_DATA_C_TITLE = 10;	27	KOLIBRI_THREAD_DATA_C_TITLE = 10;
28	;const int	28	;const int
29	KOLIBRI_THREAD_DATA_TITLE = 11;	29	KOLIBRI_THREAD_DATA_TITLE = 11;
30	;const int	30	;const int
31	KOLIBRI_THREAD_DATA_PICTURE = 12;	31	KOLIBRI_THREAD_DATA_PICTURE = 12;
32	;const int	32	;const int
33	KOLIBRI_THREAD_DATA_SZ_PICT = 13;	33	KOLIBRI_THREAD_DATA_SZ_PICT = 13;
34	;const int	34	;const int
35	KOLIBRI_THREAD_DATA_LAST_SX = 14;	35	KOLIBRI_THREAD_DATA_LAST_SX = 14;
36	;const int	36	;const int
37	KOLIBRI_THREAD_DATA_LAST_SY = 15;	37	KOLIBRI_THREAD_DATA_LAST_SY = 15;
38	;const int	38	;const int
39	KOLIBRI_THREAD_DATA_LEN = 16;	39	KOLIBRI_THREAD_DATA_LEN = 16;
40		40
41	;const int	41	;const int
42	KOLIBRI_MUTEX_MAX_TIME_WAIT = 20;	42	KOLIBRI_MUTEX_MAX_TIME_WAIT = 20;
43		43
44	;/***	44	;/***
45		45
46	macro segment name	46	macro segment name
47	{	47	{
48	segment name	48	segment name
49	if name eq _init_ \| name eq _INIT_	49	if name eq _init_ \| name eq _INIT_
50	Kolibri_SegmentInit:	50	Kolibri_SegmentInit:
51	else if name eq _exit_ \| name eq _EXIT_	51	else if name eq _exit_ \| name eq _EXIT_
52	Kolibri_SegmentExit:	52	Kolibri_SegmentExit:
53	end if	53	end if
54	}	54	}
55		55
56	macro endseg name	56	macro endseg name
57	{	57	{
58	if name eq _init_ \| name eq _INIT_	58	if name eq _init_ \| name eq _INIT_
59	Kolibri_SegmentInitEnd:	59	Kolibri_SegmentInitEnd:
60	else if name eq _exit_ \| name eq _EXIT_	60	else if name eq _exit_ \| name eq _EXIT_
61	Kolibri_SegmentExitEnd:	61	Kolibri_SegmentExitEnd:
62	end if	62	end if
63	endseg name	63	endseg name
64	}	64	}
65		65
66	macro Kolibri_Put_MovEaxVal_Ret address,val	66	macro Kolibri_Put_MovEaxVal_Ret address,val
67	{	67	{
68	mov byte [address],0xB8	68	mov byte [address],0xB8
69	mov dword [address+4],0xC089C300	69	mov dword [address+4],0xC089C300
70	mov dword [address+1],val	70	mov dword [address+1],val
71	}	71	}
-		72
72		73	align 4
73	proc @Kolibri@Main$qv	74	proc @Kolibri@Main$qv
74	and esp,not 3	75	and esp,not 3
75	sub esp,1024	76	sub esp,1024
76	mov eax,SF_THREAD_INFO	77	mov eax,SF_THREAD_INFO
77	mov ebx,esp	78	mov ebx,esp
78	mov ecx,-1	79	mov ecx,-1
79	int 0x40	80	int 0x40
80	mov ebx,[esp+process_information.used_memory]	81	mov ebx,[esp+process_information.used_memory]
81	mov edx,[esp+process_information.PID]	82	mov edx,[esp+process_information.PID]
82	lea eax,[ebx-0x20]	83	lea eax,[ebx-0x20]
83	add esp,1024	84	add esp,1024
84	cmp esp,eax	85	cmp esp,eax
85	cmova esp,eax	86	cmova esp,eax
86	and esp,not 3	87	and esp,not 3
87	xor eax,eax	88	xor eax,eax
88	cld	89	cld
89	mov edi,@Kolibri@_ThreadTable	90	mov edi,@Kolibri@_ThreadTable
90	mov ecx,256	91	mov ecx,256
91	rep stosd	92	rep stosd
92	mov esi,@Kolibri@GetPid$qv	93	mov esi,@Kolibri@GetPid$qv
93	mov edi,@Kolibri@_ThreadSavedBegProc	94	mov edi,@Kolibri@_ThreadSavedBegProc
94	movsd	95	movsd
95	movsd	96	movsd
96	mov esi,@Kolibri@GetThreadData$qv	97	mov esi,@Kolibri@GetThreadData$qv
97	movsd	98	movsd
98	movsd	99	movsd
99	Kolibri_Put_MovEaxVal_Ret @Kolibri@GetPid$qv,edx	100	Kolibri_Put_MovEaxVal_Ret @Kolibri@GetPid$qv,edx
100	if defined KolibriHeapInit	101	if defined KolibriHeapInit
101	call KolibriHeapInit ; Initialize a dynamic heap	102	call KolibriHeapInit ; Initialize a dynamic heap
102	end if	103	end if
103	xor eax,eax	104	xor eax,eax
104	push eax	105	push eax
105	push eax	106	push eax
106	call @Kolibri@ThreadMain$qpvt1	107	call @Kolibri@ThreadMain$qpvt1
107	.ThreadFinish:	108	.ThreadFinish:
108	add esp,8	109	add esp,8
109	if defined KolibriHeapFreeAndThreadFinish	110	if defined KolibriHeapFreeAndThreadFinish
110	test eax,eax	111	test eax,eax
111	jz .ThreadFinish_end	112	jz .ThreadFinish_end
112	push dword @Kolibri@_ExitProcessNow	113	push dword @Kolibri@_ExitProcessNow
113	push eax	114	push eax
114	call KolibriHeapFreeAndThreadFinish ; Free the given memory and finish the thread,	115	call KolibriHeapFreeAndThreadFinish ; Free the given memory and finish the thread,
115	end if ; should exit process if second argument points to not zero.	116	end if ; should exit process if second argument points to not zero.
116	.ThreadFinish_end:	117	.ThreadFinish_end:
117	or eax,-1	118	or eax,-1
118	int 0x40	119	int 0x40
119	endp	120	endp
-		121
120		122	align 4
121	proc @Kolibri@ThreadMain$qpvt1	123	proc @Kolibri@ThreadMain$qpvt1
122	xchg ebx,[esp+4]	124	xchg ebx,[esp+4]
123	xchg ebp,[esp+8]	125	xchg ebp,[esp+8]
124	push esi edi	126	push esi edi
125	sub esp,KOLIBRI_THREAD_DATA_LEN*4	127	sub esp,KOLIBRI_THREAD_DATA_LEN*4
126	mov [esp],ebx	128	mov [esp],ebx
127	mov [esp+4],ebp	129	mov [esp+4],ebp
128	mov eax,SF_SET_EVENTS_MASK	130	mov eax,SF_SET_EVENTS_MASK
129	mov ebx,0x27	131	mov ebx,0x27
130	int 0x40	132	int 0x40
131	mov ebx,esp	133	mov ebx,esp
132	cmp byte [@Kolibri@_ThreadSavedBegProc],0x90	134	cmp byte [@Kolibri@_ThreadSavedBegProc],0x90
133	jz .main_else_first_check	135	jz .main_else_first_check
134	Kolibri_Put_MovEaxVal_Ret @Kolibri@GetThreadData$qv,esp	136	Kolibri_Put_MovEaxVal_Ret @Kolibri@GetThreadData$qv,esp
135	if defined Kolibri_SegmentInit & defined Kolibri_SegmentInitEnd	137	if defined Kolibri_SegmentInit & defined Kolibri_SegmentInitEnd
136	push Kolibri_SegmentInitEnd	138	push Kolibri_SegmentInitEnd
137	push Kolibri_SegmentInit	139	push Kolibri_SegmentInit
138	jmp .main_after_first_check	140	jmp .main_after_first_check
139	end if	141	end if
140	.main_else_first_check:	142	.main_else_first_check:
141	xor eax,eax	143	xor eax,eax
142	push eax eax	144	push eax eax
143	.main_after_first_check:	145	.main_after_first_check:
144	push ebx	146	push ebx
145	call @@Kolibri@_CallStart$qppvpvt2	147	call @@Kolibri@_CallStart$qppvpvt2
146	add esp,12	148	add esp,12
147	test al,al	149	test al,al
148	jnz .main_test_close_first	150	jnz .main_test_close_first
149	jmp .main_end	151	jmp .main_end
150	.main_close_first:	152	.main_close_first:
151	btr dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],31	153	btr dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],31
152	if defined @@KolibriOnClose$qppv	154	if defined @@KolibriOnClose$qppv
153	push esp	155	push esp
154	call @@KolibriOnClose$qppv	156	call @@KolibriOnClose$qppv
155	pop ecx	157	pop ecx
156	test al,al	158	test al,al
157	jnz .main_end	159	jnz .main_end
158	end if	160	end if
159	.main_test_close_first:	161	.main_test_close_first:
160	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0	162	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
161	jl .main_close_first	163	jl .main_close_first
162	; push esp	164	; push esp
163	; push dword 1	165	; push dword 1
164	; call @Kolibri@Redraw$qippv	166	; call @Kolibri@Redraw$qippv
165	; add esp,8	167	; add esp,8
166	.main_paint_msg:	168	.main_paint_msg:
167	or dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],3	169	or dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],3
168	sub esp,1024	170	sub esp,1024
169	mov eax,SF_THREAD_INFO	171	mov eax,SF_THREAD_INFO
170	mov ebx,esp	172	mov ebx,esp
171	mov ecx,-1	173	mov ecx,-1
172	int 0x40	174	int 0x40
173	mov eax,[esp+process_information.box.left]	175	mov eax,[esp+process_information.box.left]
174	mov ebx,[esp+process_information.box.top]	176	mov ebx,[esp+process_information.box.top]
175	mov ecx,[esp+process_information.box.width]	177	mov ecx,[esp+process_information.box.width]
176	mov edx,[esp+process_information.box.height]	178	mov edx,[esp+process_information.box.height]
177	add esp,1024	179	add esp,1024
178	cmp ecx,[esp+KOLIBRI_THREAD_DATA_LAST_SX*4]	180	cmp ecx,[esp+KOLIBRI_THREAD_DATA_LAST_SX*4]
179	jnz .main_size	181	jnz .main_size
180	cmp edx,[esp+KOLIBRI_THREAD_DATA_LAST_SY*4]	182	cmp edx,[esp+KOLIBRI_THREAD_DATA_LAST_SY*4]
181	jz .main_paint	183	jz .main_paint
182	.main_size:	184	.main_size:
183	mov [esp+KOLIBRI_THREAD_DATA_LAST_SX*4],ecx	185	mov [esp+KOLIBRI_THREAD_DATA_LAST_SX*4],ecx
184	mov [esp+KOLIBRI_THREAD_DATA_LAST_SY*4],edx	186	mov [esp+KOLIBRI_THREAD_DATA_LAST_SY*4],edx
185	if defined @@KolibriOnSize$qpippv	187	if defined @@KolibriOnSize$qpippv
186	push edx	188	push edx
187	push ecx	189	push ecx
188	push ebx	190	push ebx
189	push eax	191	push eax
190	lea ecx,[esp+16]	192	lea ecx,[esp+16]
191	mov edx,esp	193	mov edx,esp
192	push ecx	194	push ecx
193	push edx	195	push edx
194	call @@KolibriOnSize$qpippv	196	call @@KolibriOnSize$qpippv
195	add esp,24	197	add esp,24
196	end if	198	end if
197	test dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],3	199	test dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],3
198	jz .main_cycle	200	jz .main_cycle
199	.main_paint:	201	.main_paint:
200	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0	202	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
201	jl .main_close	203	jl .main_close
202	push esp	204	push esp
203	push dword 0	205	push dword 0
204	call @Kolibri@Redraw$qippv	206	call @Kolibri@Redraw$qippv
205	add esp,8	207	add esp,8
206	.main_cycle:	208	.main_cycle:
207	mov eax,SF_CHECK_EVENT	209	mov eax,SF_CHECK_EVENT
208	.main_message:	210	.main_message:
209	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0	211	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
210	jl .main_close	212	jl .main_close
211	int 0x40	213	int 0x40
212	test eax,eax	214	test eax,eax
213	jnz .main_on_message	215	jnz .main_on_message
214	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0	216	cmp dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],0
215	jne .main_paint	217	jne .main_paint
216	if defined @@KolibriOnIdle$qppv	218	if defined @@KolibriOnIdle$qppv
217	push esp	219	push esp
218	call @@KolibriOnIdle$qppv	220	call @@KolibriOnIdle$qppv
219	pop ecx	221	pop ecx
220	else	222	else
221	or eax,-1	223	or eax,-1
222	end if	224	end if
223	test eax,eax	225	test eax,eax
224	jz .main_cycle	226	jz .main_cycle
225	jl .main_wait_message	227	jl .main_wait_message
226	mov ebx,eax	228	mov ebx,eax
227	mov eax,SF_WAIT_EVENT_TIMEOUT	229	mov eax,SF_WAIT_EVENT_TIMEOUT
228	jmp .main_message	230	jmp .main_message
229	.main_wait_message:	231	.main_wait_message:
230	mov eax,SF_WAIT_EVENT	232	mov eax,SF_WAIT_EVENT
231	jmp .main_message	233	jmp .main_message
232	if defined @@KolibriOnKeyPress$qppv	234	if defined @@KolibriOnKeyPress$qppv
233	.main_key_press:	235	.main_key_press:
234	push esp	236	push esp
235	call @@KolibriOnKeyPress$qppv	237	call @@KolibriOnKeyPress$qppv
236	pop ecx	238	pop ecx
237	jmp .main_cycle	239	jmp .main_cycle
238	end if	240	end if
239	if defined @@KolibriOnMouse$qppv	241	if defined @@KolibriOnMouse$qppv
240	.main_mouse:	242	.main_mouse:
241	push esp	243	push esp
242	call @@KolibriOnMouse$qppv	244	call @@KolibriOnMouse$qppv
243	pop ecx	245	pop ecx
244	jmp .main_cycle	246	jmp .main_cycle
245	end if	247	end if
246		248
247	align 4	249	align 4
248	.main_on_message:	250	.main_on_message:
249	dec eax	251	dec eax
250	jz .main_paint_msg	252	jz .main_paint_msg
251	dec eax	253	dec eax
252	if defined @@KolibriOnKeyPress$qppv	254	if defined @@KolibriOnKeyPress$qppv
253	jz .main_key_press	255	jz .main_key_press
254	else	256	else
255	jz .main_cycle	257	jz .main_cycle
256	end if	258	end if
257	cmp eax,4	259	cmp eax,4
258	if defined @@KolibriOnMouse$qppv	260	if defined @@KolibriOnMouse$qppv
259	jz .main_mouse	261	jz .main_mouse
260	else	262	else
261	jz .main_cycle	263	jz .main_cycle
262	end if	264	end if
263	dec eax	265	dec eax
264	jnz .main_cycle	266	jnz .main_cycle
265		267
266	align 4	268	align 4
267	.main_button:	269	.main_button:
268	mov eax,SF_GET_BUTTON	270	mov eax,SF_GET_BUTTON
269	int 0x40	271	int 0x40
270	shr eax,8	272	shr eax,8
271	cmp eax,1	273	cmp eax,1
272	je .main_close	274	je .main_close
273	if defined @@KolibriOnButton$qlppv	275	if defined @@KolibriOnButton$qlppv
274	push esp	276	push esp
275	push eax	277	push eax
276	call @@KolibriOnButton$qlppv	278	call @@KolibriOnButton$qlppv
277	add esp,8	279	add esp,8
278	end if	280	end if
279	jmp .main_cycle	281	jmp .main_cycle
280	.main_close:	282	.main_close:
281	btr dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],31	283	btr dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],31
282	if defined @@KolibriOnClose$qppv	284	if defined @@KolibriOnClose$qppv
283	push esp	285	push esp
284	call @@KolibriOnClose$qppv	286	call @@KolibriOnClose$qppv
285	pop ecx	287	pop ecx
286	test al,al	288	test al,al
287	jz .main_button	289	jz .main_button
288	end if	290	end if
289	.main_end:	291	.main_end:
290	mov ebx,esp	292	mov ebx,esp
291	lock dec dword [@Kolibri@_ThreadNumber]	293	lock dec dword [@Kolibri@_ThreadNumber]
292	if defined Kolibri_SegmentExit & defined Kolibri_SegmentExitEnd	294	if defined Kolibri_SegmentExit & defined Kolibri_SegmentExitEnd
293	jnz .main_else_last_check	295	jnz .main_else_last_check
294	push Kolibri_SegmentExitEnd	296	push Kolibri_SegmentExitEnd
295	push Kolibri_SegmentExit	297	push Kolibri_SegmentExit
296	jmp .main_after_last_check	298	jmp .main_after_last_check
297	end if	299	end if
298	.main_else_last_check:	300	.main_else_last_check:
299	xor eax,eax	301	xor eax,eax
300	push eax	302	push eax
301	push eax	303	push eax
302	.main_after_last_check:	304	.main_after_last_check:
303	push ebx	305	push ebx
304	call @@Kolibri@_RemoveThreadData$qppvpvt2	306	call @@Kolibri@_RemoveThreadData$qppvpvt2
305	add esp,12	307	add esp,12
306	lock inc dword [@Kolibri@_ThreadScanCount+4]	308	lock inc dword [@Kolibri@_ThreadScanCount+4]
307	mov ebx,1	309	mov ebx,1
308	jmp .main_end_wait	310	jmp .main_end_wait
309	.main_end_wait_loop:	311	.main_end_wait_loop:
310	mov eax,SF_SLEEP	312	mov eax,SF_SLEEP
311	int 0x40	313	int 0x40
312	shl ebx,1	314	shl ebx,1
313	cmp ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT	315	cmp ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
314	jna .main_end_wait	316	jna .main_end_wait
315	mov ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT	317	mov ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
316	.main_end_wait:	318	.main_end_wait:
317	cmp dword [@Kolibri@_ExitProcessNow],0	319	cmp dword [@Kolibri@_ExitProcessNow],0
318	jnz @Kolibri@ExitProcess$qv	320	jnz @Kolibri@ExitProcess$qv
319	cmp dword [@Kolibri@_ThreadScanCount],0	321	cmp dword [@Kolibri@_ThreadScanCount],0
320	jnz .main_end_wait_loop	322	jnz .main_end_wait_loop
321	lock dec dword [@Kolibri@_ThreadScanCount+4]	323	lock dec dword [@Kolibri@_ThreadScanCount+4]
322	mov ebp,[esp+4]	324	mov ebp,[esp+4]
323	mov ebx,[esp]	325	mov ebx,[esp]
324	add esp,KOLIBRI_THREAD_DATA_LEN*4	326	add esp,KOLIBRI_THREAD_DATA_LEN*4
325	mov eax,ebp	327	mov eax,ebp
326	pop edi esi	328	pop edi esi
327	xchg ebp,[esp+8]	329	xchg ebp,[esp+8]
328	xchg ebx,[esp+4]	330	xchg ebx,[esp+4]
329	ret	331	ret
330	endp	332	endp
-		333
331		334	align 4
332	proc @Kolibri@Redraw$qippv	335	proc @Kolibri@Redraw$qippv
333	push ebp	336	push ebp
334	mov ebp,[esp+12]	337	mov ebp,[esp+12]
335	mov edx,[ebp+KOLIBRI_THREAD_DATA_FLAG*4]	338	mov edx,[ebp+KOLIBRI_THREAD_DATA_FLAG*4]
336	cmp dword [esp+8],0	339	cmp dword [esp+8],0
337	jl .redraw_only_inv	340	jl .redraw_only_inv
338	jz .redraw_no_frame	341	jz .redraw_no_frame
339	or dl,2	342	or dl,2
340	.redraw_no_frame:	343	.redraw_no_frame:
341	bt edx,30	344	bt edx,30
342	jnc .redraw_begin	345	jnc .redraw_begin
343	or dl,1	346	or dl,1
344	mov [ebp+KOLIBRI_THREAD_DATA_FLAG*4],edx	347	mov [ebp+KOLIBRI_THREAD_DATA_FLAG*4],edx
345	jmp .redraw_end	348	jmp .redraw_end
346	.redraw_only_inv:	349	.redraw_only_inv:
347	test dl,3	350	test dl,3
348	jnz .redraw_no_frame	351	jnz .redraw_no_frame
349	.redraw_end:	352	.redraw_end:
350	pop ebp	353	pop ebp
351	ret	354	ret
352	.redraw_begin:	355	.redraw_begin:
353	push ebx esi edi	356	push ebx esi edi
354	and dword [ebp+KOLIBRI_THREAD_DATA_FLAG*4],0xFFFFFFFC	357	and dword [ebp+KOLIBRI_THREAD_DATA_FLAG*4],0xFFFFFFFC
355	mov eax,SF_REDRAW	358	mov eax,SF_REDRAW
356	mov ebx,SSF_BEGIN_DRAW	359	mov ebx,SSF_BEGIN_DRAW
357	int 0x40	360	int 0x40
358	test dl,2	361	test dl,2
359	jz .redraw_picture	362	jz .redraw_picture
360	mov eax,SF_STYLE_SETTINGS	363	mov eax,SF_STYLE_SETTINGS
361	mov ebx,SSF_GET_SKIN_HEIGHT	364	mov ebx,SSF_GET_SKIN_HEIGHT
362	int 0x40	365	int 0x40
363	mov ebx,[ebp+KOLIBRI_THREAD_DATA_X*4]	366	mov ebx,[ebp+KOLIBRI_THREAD_DATA_X*4]
364	add ebx,2*5-1	367	add ebx,2*5-1
365	mov ecx,[ebp+KOLIBRI_THREAD_DATA_Y*4]	368	mov ecx,[ebp+KOLIBRI_THREAD_DATA_Y*4]
366	add cx,ax	369	add cx,ax
367	add ecx,5-1	370	add ecx,5-1
368	mov edx,[ebp+KOLIBRI_THREAD_DATA_C_WINDOW*4]	371	mov edx,[ebp+KOLIBRI_THREAD_DATA_C_WINDOW*4]
369	mov edi,[ebp+KOLIBRI_THREAD_DATA_TITLE*4]	372	mov edi,[ebp+KOLIBRI_THREAD_DATA_TITLE*4]
370	xor eax,eax ;SF_CREATE_WINDOW	373	xor eax,eax ;SF_CREATE_WINDOW
371	int 0x40	374	int 0x40
372	.redraw_picture:	375	.redraw_picture:
373	call @@KolibriOnPaint$qv	376	call @@KolibriOnPaint$qv
374	.redraw_end_draw:	377	.redraw_end_draw:
375	mov eax,SF_REDRAW	378	mov eax,SF_REDRAW
376	mov ebx,SSF_END_DRAW	379	mov ebx,SSF_END_DRAW
377	int 0x40	380	int 0x40
378	pop edi esi ebx ebp	381	pop edi esi ebx ebp
379	ret	382	ret
380	endp	383	endp
-		384
381		385	align 4
382	proc @Kolibri@MoveWindow$qxpxi uses ebx esi	386	proc @Kolibri@MoveWindow$qxpxi uses ebx esi
383	mov eax,[esp+12]	387	mov eax,[esp+12]
384	mov ebx,[eax]	388	mov ebx,[eax]
385	mov ecx,[eax+4]	389	mov ecx,[eax+4]
386	mov edx,[eax+8]	390	mov edx,[eax+8]
387	mov esi,[eax+12]	391	mov esi,[eax+12]
388	mov eax,SF_CHANGE_WINDOW	392	mov eax,SF_CHANGE_WINDOW
389	int 0x40	393	int 0x40
390	ret	394	ret
391	endp	395	endp
-		396
392		397	align 4
393	proc @Kolibri@ExitDebug$qv	398	proc @Kolibri@ExitDebug$qv
394	push dword [@Kolibri@DebugPrefix]	399	push dword [@Kolibri@DebugPrefix]
395	call @Kolibri@DebugPutString$qpxc	400	call @Kolibri@DebugPutString$qpxc
396	mov dword [esp],Kolibri_debug_string	401	mov dword [esp],Kolibri_debug_string
397	call @Kolibri@DebugPutString$qpxc	402	call @Kolibri@DebugPutString$qpxc
398	pop ecx	403	pop ecx
399	jmp @Kolibri@ExitProcess$qv	404	jmp @Kolibri@ExitProcess$qv
400	endp	405	endp
-		406
401		407	align 4
402	proc @Kolibri@ExitProcess$qv	408	proc @Kolibri@ExitProcess$qv
403	lock bts dword [@Kolibri@_ExitProcessNow],0	409	lock bts dword [@Kolibri@_ExitProcessNow],0
404	jc .exit_process_wait	410	jc .exit_process_wait
405	sub esp,1024	411	sub esp,1024
406	mov eax,SF_THREAD_INFO	412	mov eax,SF_THREAD_INFO
407	mov ebx,esp	413	mov ebx,esp
408	mov ecx,-1	414	mov ecx,-1
409	int 0x40	415	int 0x40
410	mov esi,eax	416	mov esi,eax
411	mov edi,[esp+process_information.PID]	417	mov edi,[esp+process_information.PID]
412	.exit_process_loop:	418	.exit_process_loop:
413	mov eax,SF_THREAD_INFO	419	mov eax,SF_THREAD_INFO
414	mov ebx,esp	420	mov ebx,esp
415	mov ecx,esi	421	mov ecx,esi
416	int 0x40	422	int 0x40
417	mov eax,[esp+process_information.PID]	423	mov eax,[esp+process_information.PID]
418	cmp eax,edi	424	cmp eax,edi
419	jz .exit_process_continue	425	jz .exit_process_continue
420	mov ebx,eax	426	mov ebx,eax
421	or bl,15	427	or bl,15
422	inc ebx	428	inc ebx
423	jz .exit_process_continue	429	jz .exit_process_continue
424	mov ebx,eax	430	mov ebx,eax
425	call Kolibri_HashInt	431	call Kolibri_HashInt
426	movzx eax,al	432	movzx eax,al
427	mov eax,dword [@Kolibri@_ThreadTable+eax*4]	433	mov eax,dword [@Kolibri@_ThreadTable+eax*4]
428	jmp .exit_process_test	434	jmp .exit_process_test
429	.exit_process_next:	435	.exit_process_next:
430	mov eax,dword [eax+KOLIBRI_THREAD_DATA_NEXT*4]	436	mov eax,dword [eax+KOLIBRI_THREAD_DATA_NEXT*4]
431	.exit_process_test:	437	.exit_process_test:
432	test eax,eax	438	test eax,eax
433	jz .exit_process_continue	439	jz .exit_process_continue
434	cmp ebx,[eax+KOLIBRI_THREAD_DATA_PID*4]	440	cmp ebx,[eax+KOLIBRI_THREAD_DATA_PID*4]
435	jnz .exit_process_next	441	jnz .exit_process_next
436	mov eax,SF_SYSTEM	442	mov eax,SF_SYSTEM
437	mov ebx,SSF_TERMINATE_THREAD	443	mov ebx,SSF_TERMINATE_THREAD
438	mov ecx,esi	444	mov ecx,esi
439	int 0x40	445	int 0x40
440	.exit_process_continue:	446	.exit_process_continue:
441	dec esi	447	dec esi
442	jnl .exit_process_loop	448	jnl .exit_process_loop
443	add esp,1024	449	add esp,1024
444	mov dword [@Kolibri@_ExitProcessNow],-1	450	mov dword [@Kolibri@_ExitProcessNow],-1
445	if defined EMULATOR	451	if defined EMULATOR
446	int3	452	int3
447	call 0x76543210	453	call 0x76543210
448	end if	454	end if
449	.exit_process_end:	455	.exit_process_end:
450	mov dword [@Kolibri@_ThreadMutex],0	456	mov dword [@Kolibri@_ThreadMutex],0
451	or eax,-1	457	or eax,-1
452	int 0x40	458	int 0x40
453	.exit_process_wait:	459	.exit_process_wait:
454	mov eax,SF_SLEEP	460	mov eax,SF_SLEEP
455	mov ebx,1	461	mov ebx,1
456	.exit_process_wait_loop:	462	.exit_process_wait_loop:
457	cmp dword [@Kolibri@_ExitProcessNow],0	463	cmp dword [@Kolibri@_ExitProcessNow],0
458	jl .exit_process_end	464	jl .exit_process_end
459	int 0x40	465	int 0x40
460	shl ebx,1	466	shl ebx,1
461	cmp ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT	467	cmp ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
462	jna .exit_process_wait_loop	468	jna .exit_process_wait_loop
463	mov ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT	469	mov ebx,KOLIBRI_MUTEX_MAX_TIME_WAIT
464	jmp .exit_process_wait_loop	470	jmp .exit_process_wait_loop
465	endp	471	endp
-		472
466		473	align 4
467	proc @Kolibri@ExitThread$qppv	474	proc @Kolibri@ExitThread$qppv
468	mov esp,[esp+4]	475	mov esp,[esp+4]
469	jmp @Kolibri@ThreadMain$qpvt1.main_end	476	jmp @Kolibri@ThreadMain$qpvt1.main_end
470	endp	477	endp
-		478
471		479	align 4
472	proc @Kolibri@ReturnMessageLoop$qppv	480	proc @Kolibri@ReturnMessageLoop$qppv
473	mov esp,[esp+4]	481	mov esp,[esp+4]
474	bt dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],30	482	bt dword [esp+KOLIBRI_THREAD_DATA_FLAG*4],30
475	jc @Kolibri@ThreadMain$qpvt1.main_end	483	jc @Kolibri@ThreadMain$qpvt1.main_end
476	jmp @Kolibri@ThreadMain$qpvt1.main_cycle	484	jmp @Kolibri@ThreadMain$qpvt1.main_cycle
477	endp	485	endp
-		486
478		487	align 4
479	proc @Kolibri@Delay$qui uses ebx	488	proc @Kolibri@Delay$qui uses ebx
480	mov eax,SF_SLEEP	489	mov eax,SF_SLEEP
481	mov ebx,[esp+8]	490	mov ebx,[esp+8]
482	int 0x40	491	int 0x40
483	ret	492	ret
484	endp	493	endp
-		494
485		495	align 4
486	proc @Kolibri@Clock$qv uses ebx	496	proc @Kolibri@Clock$qv uses ebx
487	mov eax,SF_SYSTEM_GET	497	mov eax,SF_SYSTEM_GET
488	mov ebx,SSF_TIME_COUNT	498	mov ebx,SSF_TIME_COUNT
489	int 0x40	499	int 0x40
490	ret	500	ret

Subversion Repositories Kolibri OS

(root)/programs/bcc32/include/kos_func.inc – Rev 8236 → 8283