WebSVN – Kolibri OS – Diff – /kernel/branches/kolibri_pe/core/sys32.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;                                                              ;;
;;  MenuetOS process management, protected ring3                ;;
;;                                                              ;;
;;  Distributed under GPL. See file COPYING for details.        ;;
;;  Copyright 2003 Ville Turjanmaa                              ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
$Revision: 2971 $
 
align 4
init_idt:
           push edi
           push esi
           mov edi, idts
           mov dword [idtreg+2], edi
 
           mov esi, sys_int
           mov ecx, 0x40
@@:
           lodsd
           mov [edi],   ax                ; lower part of offset
           mov [edi+2], word sel_os_code  ; segment selector
           mov ax, word 10001110b shl 8   ; type: interrupt gate
           mov [edi+4], eax
           add edi, 8
           loop @b
 
           mov eax, _i40
           mov ecx, _i40
           and eax, 0x0000FFFF
           and ecx, 0xFFFF0000
           or eax, sel_app_code shl 16
           or ecx, (11101111b shl 8)
           mov [edi], eax
           mov [edi+4], ecx
 
           mov eax, i41
           mov ecx, i41
           and eax, 0x0000FFFF
           and ecx, 0xFFFF0000
           or eax, sel_os_code shl 16
           or ecx, (11101111b shl 8)
           mov [edi+8], eax
           mov [edi+12], ecx
 
           lidt [idtreg]
           pop esi
           pop edi
           ret
 
iglobal
 
  msg_sel_ker	db "kernel", 0
  msg_sel_app	db "application", 0
 
align 4
 
  sys_int:
    dd e0,debug_exc,e2,e3
    dd e4,e5,e6,e7
    dd e8,e9,e10,e11
    dd e12,e13,page_fault_handler,e15
 
    dd except_16, e17,e18, except_19
    times 12 dd unknown_interrupt
 
    dd	 irq0, irq_serv.irq_1, irq_serv.irq_2
if USE_COM_IRQ
    dd	 irq_serv.irq_3, irq_serv.irq_4
else
    dd	 p_irq3, p_irq4
end if
    dd	 irq_serv.irq_5,  p_irq6,	  irq_serv.irq_7
    dd	 irq_serv.irq_8,  irq_serv.irq_9, irq_serv.irq_10
    dd	 irq_serv.irq_11, irq_serv.irq_12,irqD ,p_irq14,p_irq15
 
    times 16 dd unknown_interrupt
 
    dd   i41
 
idtreg:
     dw   8*0x42-1
     dd   idts
 
endg
 
macro save_ring3_context
{
    pushad
}
macro restore_ring3_context
{
    popad
}
 
; simply return control to interrupted process
unknown_interrupt:
     iret
 
macro exc_wo_code [num]
{
  forward
  e#num :
      save_ring3_context
      mov bl, num
      jmp exc_c
}
 
macro exc_w_code [num]
{
  forward
  e#num :
      add esp, 4
      save_ring3_context
      mov bl, num
      jmp exc_c
}
 
exc_wo_code 0, 2, 3, 4, 5, 6, 9, 15, 18
exc_w_code 8, 10, 11, 12, 13, 14, 17
 
align 4
exc_c:
    mov   ax, sel_app_data  ;èñêëþ÷åíèå
    mov   ds, ax            ;çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ'
    mov   es, ax            ;â ðåãèñòðû
 
; redirect to V86 manager? (EFLAGS & 0x20000) != 0?
	test	byte [esp+20h+8+2], 2
	jnz	v86_exc_c
 
; test if debugging
	cli
	mov   eax, [current_slot]
	mov   eax, [eax+APPDATA.debugger_slot]
	test  eax, eax
	jnz   .debug
	sti
; not debuggee => say error and terminate
	movzx eax, bl
	mov   [error_interrupt], eax
	call  show_error_parameters
	add   esp, 0x20
	mov   edx, [TASK_BASE]
	mov   [edx + TASKDATA.state], byte 4
 
	jmp   change_task
 
.debug:
; we are debugged process, notify debugger and suspend ourself
; eax=debugger PID
	cld
	movzx ecx, bl
	push  ecx
	mov   ecx, [TASK_BASE]
	push  dword [ecx+TASKDATA.pid]	  ; PID of current process
	push  12
	pop   ecx
	push  1        ; 1=exception
	call  debugger_notify
	pop   ecx
	pop   ecx
	pop   ecx
	mov   edx, [TASK_BASE]
	mov   byte [edx+TASKDATA.state], 1	  ; suspended
	call  change_task
	restore_ring3_context
	iretd
 
iglobal
	hexletters	db '0123456789ABCDEF'
	error_interrupt dd  -1
endg
 
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
show_error_parameters:
    mov eax,[CURRENT_TASK]
    shl eax, 5
    DEBUGF  1, "K : Process - forced terminate PID: %x\n", [CURRENT_TASK + TASKDATA.pid + eax]
    mov eax, [error_interrupt]
    cmp al, 0x08
    jne @f
    DEBUGF  1, "K : Double fault\n"
    jmp defined_error
@@:
    cmp al, 0x0a
    jne @f
    DEBUGF  1, "K : Invalid TSS\n"
    jmp defined_error
@@:
    cmp al, 0x0b
    jne @f
    DEBUGF  1, "K : Segment not present\n"
    jmp defined_error
@@:
    cmp al, 0x0c
    jne @f
    DEBUGF  1, "K : Stack fault\n"
    jmp defined_error
@@:
    cmp al, 0x0d
    jne @f
    DEBUGF  1, "K : General protection fault\n"
    jmp defined_error
@@:
    cmp al, 0x0e
    jne @f
    DEBUGF  1, "K : Page fault\n"
    jmp defined_error
@@:
    DEBUGF  1, "K : Undefined Exception\n"
defined_error:
    DEBUGF  1, "K : EAX : %x EBX : %x ECX : %x\n", [esp + 0x20], [esp - 12 + 0x20], [esp - 4 + 0x20]
    DEBUGF  1, "K : EDX : %x ESI : %x EDI : %x\n", [esp - 8 + 0x20], [esp - 24 + 0x20], [esp - 28 + 0x20]
    DEBUGF  1, "K : EBP : %x EIP : %x ", [esp - 20 + 0x20], [esp + 4 + 0x20]
 
    mov eax, [esp + 8 + 0x20]
    mov edi, msg_sel_app
    mov ebx, [esp + 16 + 0x20]
    cmp eax, sel_app_code
    je	@f
    mov edi, msg_sel_ker
    mov ebx, [esp - 16 + 0x20]
@@:
    DEBUGF  1, "ESP : %x\nK : Flags : %x CS : %x (%s)\n", ebx, [esp + 12 + 0x20], eax, edi
    ret
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
 
; irq1  ->  hid/keyboard.inc
macro irqh [num]
{
  forward
  p_irq#num :
     mov   edi, num
     jmp   irqhandler
}
 
irqh 2,3,4,5,7,8,9,10,11
 
 
p_irq6:
     save_ring3_context
     mov   ax, sel_app_data
     mov   ds, ax
     mov   es, ax
     call  fdc_irq
     call  ready_for_next_irq
     restore_ring3_context
     iret
 
 
p_irq14:
	save_ring3_context
    mov ax, sel_app_data
	mov	ds, ax
	mov	es, ax
	mov	byte [BOOT_VAR + 0x48E], 0xFF
	call	[irq14_func]
	call	ready_for_next_irq_1
	restore_ring3_context
	iret
p_irq15:
	save_ring3_context
    mov ax, sel_app_data
	mov	ds, ax
	mov	es, ax
	mov	byte [BOOT_VAR + 0x48E], 0xFF
	call	[irq15_func]
	call	ready_for_next_irq_1
	restore_ring3_context
	iret
 
ready_for_next_irq:
     mov    [check_idle_semaphore],5
     mov   al, 0x20
     out   0x20, al
     ret
 
ready_for_next_irq_1:
     mov    [check_idle_semaphore],5
     mov   al, 0x20
     out    0xa0,al
     out   0x20, al
     ret
 
irqD:
 
 
 
        push  eax
 
 
     mov   al,0
        out   0xf0,al
 
 
     mov   al,0x20
        out   0xa0,al
        out   0x20,al
        pop   eax
 
 
 
     iret
 
 
irqhandler:
 
     mov    esi,edi	     ; 1
     shl    esi,6	     ; 1
     add    esi,irq00read    ; 1
     shl    edi,12	     ; 1
     add    edi,IRQ_SAVE
     mov    ecx,16
 
   irqnewread:
     dec    ecx
     js     irqover
 
     movzx  edx, word [esi]	   ; 2+
 
     test   edx, edx		   ; 1
     jz     irqover
 
 
     mov    ebx, [edi]		   ; address of begin of buffer in edi      ; + 0x0 dword - data size
     mov    eax, 4000							    ; + 0x4 dword - data begin offset
     cmp    ebx, eax
     je     irqfull
     add    ebx, [edi + 0x4]	   ; add data size to data begin offset
     cmp    ebx, eax		   ; if end of buffer, begin cycle again
     jb     @f
 
     xor    ebx, ebx
 
  @@:
     add    ebx, edi
     movzx  eax, byte[esi + 3]	   ; get type of data being received 1 - byte, 2 - word
     dec    eax
     jz     irqbyte
     dec    eax
     jnz    noirqword
 
     in     ax,dx
     cmp    ebx, 3999		   ; check for address odd in the end of buffer
     jne    .odd
     mov    [ebx + 0x10], ax
     jmp    .add_size
  .odd:
     mov    [ebx + 0x10], al	   ; I could make mistake here :)
     mov    [edi + 0x10], ah
  .add_size:
     add    dword [edi], 2
     jmp    nextport
 
 
  irqbyte:
     in     al,dx
     mov    [ebx + 0x10],al
     inc    dword [edi]
  nextport:
     add    esi,4
     jmp    irqnewread
 
 
   noirqword:
   irqfull:
   irqover:
 
     ret
 
 
 
set_application_table_status:
	push eax
 
	mov  eax,[CURRENT_TASK]
	shl  eax, 5
	add  eax,CURRENT_TASK+TASKDATA.pid
	mov  eax,[eax]
 
	mov  [application_table_status],eax
 
	pop  eax
 
	ret
 
 
clear_application_table_status:
	push eax
 
	mov  eax,[CURRENT_TASK]
	shl  eax, 5
	add  eax,CURRENT_TASK+TASKDATA.pid
	mov  eax,[eax]
 
	cmp  eax,[application_table_status]
	jne  apptsl1
	mov  [application_table_status],0
      apptsl1:
 
	pop  eax
 
	ret
 
sys_resize_app_memory:
	; eax = 1 - resize
	;     ebx = new amount of memory
 
	cmp    eax,1
	jne    .no_application_mem_resize
 
	stdcall new_mem_resize, ebx
	mov [esp+36], eax
	ret
 
.no_application_mem_resize:
	ret
 
sys_threads:
 
; eax=1 create thread
;
;   ebx=thread start
;   ecx=thread stack value
;
; on return : eax = pid
jmp new_sys_threads
 
iglobal
  process_terminating	db 'K : Process - terminating',13,10,0
  process_terminated	db 'K : Process - done',13,10,0
  msg_obj_destroy	db 'K : destroy app object',13,10,0
endg
 
; param
;  esi= slot
 
terminate: ; terminate application
 
	   .slot equ esp   ;locals
 
	   push   esi	   ;save .slot
 
	   shl esi, 8
	   cmp [SLOT_BASE+esi+APPDATA.dir_table], 0
	   jne @F
	   pop	  esi
	   shl	  esi, 5
	   mov	  [CURRENT_TASK+esi+TASKDATA.state], 9
	   ret
@@:
	   ;mov    esi,process_terminating
	   ;call   sys_msg_board_str
 
@@:
	   cli
	   cmp	 [application_table_status],0
	   je	 term9
	   sti
	   call  change_task
	   jmp	 @b
term9:
	   call  set_application_table_status
 
; if the process is in V86 mode...
	mov	eax, [.slot]
	shl	eax, 8
	mov	esi, [eax+SLOT_BASE+APPDATA.pl0_stack]
	add	esi, RING0_STACK_SIZE
	cmp	[eax+SLOT_BASE+APPDATA.saved_esp0], esi
	jz	.nov86
; ...it has page directory for V86 mode
	mov	esi, [eax+SLOT_BASE+APPDATA.saved_esp0]
	mov	ecx, [esi+4]
	mov	[eax+SLOT_BASE+APPDATA.dir_table], ecx
; ...and I/O permission map for V86 mode
	mov	ecx, [esi+12]
	mov	[eax+SLOT_BASE+APPDATA.io_map], ecx
	mov	ecx, [esi+8]
	mov	[eax+SLOT_BASE+APPDATA.io_map+4], ecx
.nov86:
 
	   mov esi, [.slot]
	   shl esi,8
	   add esi, SLOT_BASE+APP_OBJ_OFFSET
@@:
	   mov eax, [esi+APPOBJ.fd]
	   test eax, eax
	   jz @F
 
	   cmp eax, esi
	   je @F
 
	   push esi
	   call [eax+APPOBJ.destroy]
	   DEBUGF 1,"%s",msg_obj_destroy
	   pop esi
	   jmp @B
@@:
	   mov eax, [.slot]
	   shl eax, 8
	   mov eax,[SLOT_BASE+eax+APPDATA.dir_table]
       stdcall destroy_app_space, eax
 
	   mov esi, [.slot]
	   cmp [fpu_owner],esi	 ; if user fpu last -> fpu user = 1
	   jne @F
 
	   mov [fpu_owner],1
	   mov eax, [256+SLOT_BASE+APPDATA.fpu_state]
	   clts
	   bt [cpu_caps], CAPS_SSE
	   jnc .no_SSE
	   fxrstor [eax]
	   jmp @F
.no_SSE:
	   fnclex
	   frstor [eax]
@@:
 
    mov   [KEY_COUNT], 0           ; empty keyboard buffer
    mov   [BTN_COUNT], 0           ; empty button buffer
 
 
; remove defined hotkeys
	mov	eax, hotkey_list
.loop:
	cmp	[eax+8], esi
	jnz	.cont
	mov	ecx, [eax]
	jecxz	@f
	push	dword [eax+12]
	pop	dword [ecx+12]
@@:
	mov	ecx, [eax+12]
	push	dword [eax]
	pop	dword [ecx]
	xor	ecx, ecx
	mov	[eax], ecx
	mov	[eax+4], ecx
	mov	[eax+8], ecx
	mov	[eax+12], ecx
.cont:
	add	eax, 16
	cmp	eax, hotkey_list+256*16
	jb	.loop
; remove hotkeys in buffer
	mov	eax, hotkey_buffer
.loop2:
	cmp	[eax], esi
	jnz	.cont2
	and	dword [eax+4], 0
	and	dword [eax], 0
.cont2:
	add	eax, 8
	cmp	eax, hotkey_buffer+120*8
	jb	.loop2
 
    mov   ecx,esi		  ; remove buttons
  bnewba2:
    mov   edi,[btn_addr]
    mov   eax,edi
    cld
    movzx ebx,word [edi]
    inc   bx
  bnewba:
    dec   bx
    jz	  bnmba
    add   eax,0x10
    cmp   cx,[eax]
    jnz   bnewba
    pusha
    mov   ecx,ebx
    inc   ecx
    shl   ecx,4
    mov   ebx,eax
    add   eax,0x10
    call  memmove
    dec   dword [edi]
    popa
    jmp   bnewba2
  bnmba:
 
    pusha     ; save window coordinates for window restoring
    cld
    shl   esi,5
    mov   eax,[window_data+esi+WDATA.box.left]
    mov   [dlx],eax
    add   eax,[window_data+esi+WDATA.box.width]
    mov   [dlxe],eax
    mov   eax,[window_data+esi+WDATA.box.top]
    mov   [dly],eax
    add   eax,[window_data+esi+WDATA.box.height]
    mov   [dlye],eax
 
    xor   eax, eax
    mov   [window_data+esi+WDATA.box.left],eax
 
    mov   [window_data+esi+WDATA.box.width],eax
    mov   [window_data+esi+WDATA.box.top],eax
    mov   [window_data+esi+WDATA.box.height],eax
    mov   [window_data+esi+WDATA.cl_workarea],eax
    mov   [window_data+esi+WDATA.cl_titlebar],eax
 
    mov   [window_data+esi+WDATA.cl_frames],eax
    mov   dword [window_data+esi+WDATA.reserved],eax ; clear all flags: wstate, redraw, wdrawn
    lea   edi, [esi+draw_data]
    mov   ecx,32/4
    rep   stosd
    popa
 
; debuggee test
    pushad
    mov  edi, esi
    shl  edi, 5
    mov  eax, [SLOT_BASE+edi*8+APPDATA.debugger_slot]
    test eax, eax
    jz	 .nodebug
    push 8
    pop  ecx
    push dword [CURRENT_TASK+edi+TASKDATA.pid]	 ; PID
    push 2
    call debugger_notify
    pop  ecx
    pop  ecx
.nodebug:
           popad
 
           mov edi, [.slot]
           shl edi, 8
           add edi,SLOT_BASE
 
           mov ecx,[edi+APPDATA.pl0_stack]
           sub ecx, OS_BASE
           call @frame_free@4
 
           mov ecx,[edi+APPDATA.cur_dir]
           sub ecx, OS_BASE
           call @frame_free@4
 
           mov ecx, [edi+APPDATA.io_map]
           cmp ecx, (tss._io_map_0-OS_BASE+PG_MAP)
           je @F
 
           call @frame_free@4
@@:
           mov ecx, [edi+APPDATA.io_map+4]
           cmp ecx, (tss._io_map_1-OS_BASE+PG_MAP)
           je @F
 
           call @frame_free@4
@@:
	   mov eax, 0x20202020
	   stosd
	   stosd
	   stosd
	   mov ecx,244/4
	   xor eax, eax
	   rep stosd
 
  ; activate window
	movzx  eax, word [WIN_STACK + esi*2]
	cmp    eax, [TASK_COUNT]
	jne    .dont_activate
	pushad
 .check_next_window:
	dec    eax
	cmp    eax, 1
	jbe    .nothing_to_activate
	lea    esi, [WIN_POS+eax*2]
	movzx  edi, word [esi]		     ; edi = process
	shl    edi, 5
	cmp    [CURRENT_TASK + edi + TASKDATA.state], byte 9  ; skip dead slots
	je     .check_next_window
	add    edi, window_data
; \begin{diamond}[19.09.2006]
; skip minimized windows
	test   [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
	jnz    .check_next_window
; \end{diamond}
	call   waredraw
 .nothing_to_activate:
	popad
 .dont_activate:
 
	push	esi	; remove hd1 & cd & flp reservation
	shl	esi, 5
	mov	esi, [esi+CURRENT_TASK+TASKDATA.pid]
	cmp	[hd1_status], esi
	jnz	@f
	call	free_hd_channel
	mov	[hd1_status], 0
@@:
	cmp	[cd_status], esi
	jnz	@f
	call	free_cd_channel
	mov	[cd_status], 0
@@:
	cmp	[flp_status], esi
	jnz	@f
	mov	[flp_status], 0
@@:
	pop	esi
	cmp	[bgrlockpid], esi
	jnz	@f
	and	[bgrlockpid], 0
	mov	[bgrlock], 0
@@:
 
    pusha ; remove all irq reservations
    mov   eax,esi
    shl   eax, 5
    mov   eax,[eax+CURRENT_TASK+TASKDATA.pid]
    mov   edi,irq_owner
    xor   ebx, ebx
    xor   edx, edx
  newirqfree:
    cmp   [edi + 4 * ebx], eax
    jne   nofreeirq
    mov   [edi + 4 * ebx], edx				; remove irq reservation
    mov   [irq_tab + 4 * ebx], edx			; remove irq handler
    mov   [irq_rights + 4 * ebx], edx			; set access rights to full access
  nofreeirq:
    inc   ebx
    cmp   ebx, 16
    jb	  newirqfree
    popa
 
    pusha		      ; remove all port reservations
    mov   edx,esi
    shl   edx, 5
    add   edx,CURRENT_TASK
    mov   edx,[edx+TASKDATA.pid]
 
  rmpr0:
 
    mov   esi,[RESERVED_PORTS]
 
    cmp   esi,0
    je	  rmpr9
 
  rmpr3:
 
    mov   edi,esi
    shl   edi,4
    add   edi,RESERVED_PORTS
 
    cmp   edx,[edi]
    je	  rmpr4
 
    dec   esi
    jnz   rmpr3
 
    jmp   rmpr9
 
  rmpr4:
 
    mov   ecx,256
    sub   ecx,esi
    shl   ecx,4
 
    mov   esi,edi
    add   esi,16
    cld
    rep   movsb
 
    dec   dword [RESERVED_PORTS]
 
    jmp   rmpr0
 
  rmpr9:
 
    popa
    mov  edi,esi	 ; do not run this process slot
    shl  edi, 5
    mov  [edi+CURRENT_TASK + TASKDATA.state],byte 9
; debugger test - terminate all debuggees
    mov  eax, 2
    mov  ecx, SLOT_BASE+2*0x100+APPDATA.debugger_slot
.xd0:
    cmp  eax, [TASK_COUNT]
    ja	 .xd1
    cmp  dword [ecx], esi
    jnz  @f
    and  dword [ecx], 0
    pushad
    xchg eax, ecx
    mov  ebx, 2
    call sys_system
    popad
@@:
    inc  eax
    add  ecx, 0x100
    jmp  .xd0
.xd1:
;    call  systest
    sti  ; .. and life goes on
 
    mov   eax, [dlx]
    mov   ebx, [dly]
    mov   ecx, [dlxe]
    mov   edx, [dlye]
    call  calculatescreen
    xor   eax, eax
    xor   esi, esi
    call  redrawscreen
 
    mov   [application_table_status],0
    ;mov   esi,process_terminated
    ;call  sys_msg_board_str
 
    add esp, 4
    ret
restore .slot
 
iglobal
  boot_sched_1	  db   'Building gdt tss pointer',0
  boot_sched_2	  db   'Building IDT table',0
endg
 
 
build_scheduler:
 
	mov    esi,boot_sched_1
	call   boot_log
  ;      call   build_process_gdt_tss_pointer
 
  ;      mov    esi,boot_sched_2
  ;      call   boot_log
 
	ret

Rev 1066	Rev 2971
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;
4	;; Distributed under terms of the GNU General Public License ;;	4	;; Distributed under terms of the GNU General Public License ;;
5	;; ;;	5	;; ;;
6	;; ;;	6	;; ;;
7	;; MenuetOS process management, protected ring3 ;;	7	;; MenuetOS process management, protected ring3 ;;
8	;; ;;	8	;; ;;
9	;; Distributed under GPL. See file COPYING for details. ;;	9	;; Distributed under GPL. See file COPYING for details. ;;
10	;; Copyright 2003 Ville Turjanmaa ;;	10	;; Copyright 2003 Ville Turjanmaa ;;
11	;; ;;	11	;; ;;
12	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	12	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13		13
14	$Revision: 1066 $	14	$Revision: 2971 $
15		15
16	align 4	16	align 4
17	init_idt:	17	init_idt:
18	push edi	18	push edi
19	push esi	19	push esi
20	mov edi, idts	20	mov edi, idts
21	mov dword [idtreg+2], edi	21	mov dword [idtreg+2], edi
22		22
23	mov esi, sys_int	23	mov esi, sys_int
24	mov ecx, 0x40	24	mov ecx, 0x40
25	@@:	25	@@:
26	lodsd	26	lodsd
27	mov [edi], ax ; lower part of offset	27	mov [edi], ax ; lower part of offset
28	mov [edi+2], word sel_os_code ; segment selector	28	mov [edi+2], word sel_os_code ; segment selector
29	mov ax, word 10001110b shl 8 ; type: interrupt gate	29	mov ax, word 10001110b shl 8 ; type: interrupt gate
30	mov [edi+4], eax	30	mov [edi+4], eax
31	add edi, 8	31	add edi, 8
32	loop @b	32	loop @b
33		33
34	mov eax, _i40	34	mov eax, _i40
35	mov ecx, _i40	35	mov ecx, _i40
36	and eax, 0x0000FFFF	36	and eax, 0x0000FFFF
37	and ecx, 0xFFFF0000	37	and ecx, 0xFFFF0000
38	or eax, sel_app_code shl 16	38	or eax, sel_app_code shl 16
39	or ecx, (11101111b shl 8)	39	or ecx, (11101111b shl 8)
40	mov [edi], eax	40	mov [edi], eax
41	mov [edi+4], ecx	41	mov [edi+4], ecx
42		42
43	mov eax, i41	43	mov eax, i41
44	mov ecx, i41	44	mov ecx, i41
45	and eax, 0x0000FFFF	45	and eax, 0x0000FFFF
46	and ecx, 0xFFFF0000	46	and ecx, 0xFFFF0000
47	or eax, sel_os_code shl 16	47	or eax, sel_os_code shl 16
48	or ecx, (11101111b shl 8)	48	or ecx, (11101111b shl 8)
49	mov [edi+8], eax	49	mov [edi+8], eax
50	mov [edi+12], ecx	50	mov [edi+12], ecx
51		51
52	lidt [idtreg]	52	lidt [idtreg]
53	pop esi	53	pop esi
54	pop edi	54	pop edi
55	ret	55	ret
56		56
57	iglobal	57	iglobal
58		58
59	msg_sel_ker db "kernel", 0	59	msg_sel_ker db "kernel", 0
60	msg_sel_app db "application", 0	60	msg_sel_app db "application", 0
61		61
62	align 4	62	align 4
63		63
64	sys_int:	64	sys_int:
65	dd e0,debug_exc,e2,e3	65	dd e0,debug_exc,e2,e3
66	dd e4,e5,e6,e7	66	dd e4,e5,e6,e7
67	dd e8,e9,e10,e11	67	dd e8,e9,e10,e11
68	dd e12,e13,page_fault_handler,e15	68	dd e12,e13,page_fault_handler,e15
69		69
70	dd except_16, e17,e18, except_19	70	dd except_16, e17,e18, except_19
71	times 12 dd unknown_interrupt	71	times 12 dd unknown_interrupt
72		72
73	dd irq0, irq_serv.irq_1, irq_serv.irq_2	73	dd irq0, irq_serv.irq_1, irq_serv.irq_2
74	if USE_COM_IRQ	74	if USE_COM_IRQ
75	dd irq_serv.irq_3, irq_serv.irq_4	75	dd irq_serv.irq_3, irq_serv.irq_4
76	else	76	else
77	dd p_irq3, p_irq4	77	dd p_irq3, p_irq4
78	end if	78	end if
79	dd irq_serv.irq_5, p_irq6, irq_serv.irq_7	79	dd irq_serv.irq_5, p_irq6, irq_serv.irq_7
80	dd irq_serv.irq_8, irq_serv.irq_9, irq_serv.irq_10	80	dd irq_serv.irq_8, irq_serv.irq_9, irq_serv.irq_10
81	dd irq_serv.irq_11, irq_serv.irq_12,irqD ,p_irq14,p_irq15	81	dd irq_serv.irq_11, irq_serv.irq_12,irqD ,p_irq14,p_irq15
82		82
83	times 16 dd unknown_interrupt	83	times 16 dd unknown_interrupt
84		84
85	dd i41	85	dd i41
86		86
87	idtreg:	87	idtreg:
88	dw 8*0x42-1	88	dw 8*0x42-1
89	dd idts	89	dd idts
90		90
91	endg	91	endg
92		92
93	macro save_ring3_context	93	macro save_ring3_context
94	{	94	{
95	pushad	95	pushad
96	}	96	}
97	macro restore_ring3_context	97	macro restore_ring3_context
98	{	98	{
99	popad	99	popad
100	}	100	}
101		101
102	; simply return control to interrupted process	102	; simply return control to interrupted process
103	unknown_interrupt:	103	unknown_interrupt:
104	iret	104	iret
105		105
106	macro exc_wo_code [num]	106	macro exc_wo_code [num]
107	{	107	{
108	forward	108	forward
109	e#num :	109	e#num :
110	save_ring3_context	110	save_ring3_context
111	mov bl, num	111	mov bl, num
112	jmp exc_c	112	jmp exc_c
113	}	113	}
114		114
115	macro exc_w_code [num]	115	macro exc_w_code [num]
116	{	116	{
117	forward	117	forward
118	e#num :	118	e#num :
119	add esp, 4	119	add esp, 4
120	save_ring3_context	120	save_ring3_context
121	mov bl, num	121	mov bl, num
122	jmp exc_c	122	jmp exc_c
123	}	123	}
124		124
125	exc_wo_code 0, 2, 3, 4, 5, 6, 9, 15, 18	125	exc_wo_code 0, 2, 3, 4, 5, 6, 9, 15, 18
126	exc_w_code 8, 10, 11, 12, 13, 14, 17	126	exc_w_code 8, 10, 11, 12, 13, 14, 17
127		127
128	align 4	128	align 4
129	exc_c:	129	exc_c:
130	mov ax, sel_app_data ;èñêëþ÷åíèå	130	mov ax, sel_app_data ;èñêëþ÷åíèå
131	mov ds, ax ;çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ'	131	mov ds, ax ;çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ'
132	mov es, ax ;â ðåãèñòðû	132	mov es, ax ;â ðåãèñòðû
133		133
134	; redirect to V86 manager? (EFLAGS & 0x20000) != 0?	134	; redirect to V86 manager? (EFLAGS & 0x20000) != 0?
135	test byte [esp+20h+8+2], 2	135	test byte [esp+20h+8+2], 2
136	jnz v86_exc_c	136	jnz v86_exc_c
137		137
138	; test if debugging	138	; test if debugging
139	cli	139	cli
140	mov eax, [current_slot]	140	mov eax, [current_slot]
141	mov eax, [eax+APPDATA.debugger_slot]	141	mov eax, [eax+APPDATA.debugger_slot]
142	test eax, eax	142	test eax, eax
143	jnz .debug	143	jnz .debug
144	sti	144	sti
145	; not debuggee => say error and terminate	145	; not debuggee => say error and terminate
146	movzx eax, bl	146	movzx eax, bl
147	mov [error_interrupt], eax	147	mov [error_interrupt], eax
148	call show_error_parameters	148	call show_error_parameters
149	add esp, 0x20	149	add esp, 0x20
150	mov edx, [TASK_BASE]	150	mov edx, [TASK_BASE]
151	mov [edx + TASKDATA.state], byte 4	151	mov [edx + TASKDATA.state], byte 4
152		152
153	jmp change_task	153	jmp change_task
154		154
155	.debug:	155	.debug:
156	; we are debugged process, notify debugger and suspend ourself	156	; we are debugged process, notify debugger and suspend ourself
157	; eax=debugger PID	157	; eax=debugger PID
158	cld	158	cld
159	movzx ecx, bl	159	movzx ecx, bl
160	push ecx	160	push ecx
161	mov ecx, [TASK_BASE]	161	mov ecx, [TASK_BASE]
162	push dword [ecx+TASKDATA.pid] ; PID of current process	162	push dword [ecx+TASKDATA.pid] ; PID of current process
163	push 12	163	push 12
164	pop ecx	164	pop ecx
165	push 1 ; 1=exception	165	push 1 ; 1=exception
166	call debugger_notify	166	call debugger_notify
167	pop ecx	167	pop ecx
168	pop ecx	168	pop ecx
169	pop ecx	169	pop ecx
170	mov edx, [TASK_BASE]	170	mov edx, [TASK_BASE]
171	mov byte [edx+TASKDATA.state], 1 ; suspended	171	mov byte [edx+TASKDATA.state], 1 ; suspended
172	call change_task	172	call change_task
173	restore_ring3_context	173	restore_ring3_context
174	iretd	174	iretd
175		175
176	iglobal	176	iglobal
177	hexletters db '0123456789ABCDEF'	177	hexletters db '0123456789ABCDEF'
178	error_interrupt dd -1	178	error_interrupt dd -1
179	endg	179	endg
180		180
181	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=	181	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
182	show_error_parameters:	182	show_error_parameters:
183	mov eax,[CURRENT_TASK]	183	mov eax,[CURRENT_TASK]
184	shl eax, 5	184	shl eax, 5
185	DEBUGF 1, "K : Process - forced terminate PID: %x\n", [CURRENT_TASK + TASKDATA.pid + eax]	185	DEBUGF 1, "K : Process - forced terminate PID: %x\n", [CURRENT_TASK + TASKDATA.pid + eax]
186	mov eax, [error_interrupt]	186	mov eax, [error_interrupt]
187	cmp al, 0x08	187	cmp al, 0x08
188	jne @f	188	jne @f
189	DEBUGF 1, "K : Double fault\n"	189	DEBUGF 1, "K : Double fault\n"
190	jmp defined_error	190	jmp defined_error
191	@@:	191	@@:
192	cmp al, 0x0a	192	cmp al, 0x0a
193	jne @f	193	jne @f
194	DEBUGF 1, "K : Invalid TSS\n"	194	DEBUGF 1, "K : Invalid TSS\n"
195	jmp defined_error	195	jmp defined_error
196	@@:	196	@@:
197	cmp al, 0x0b	197	cmp al, 0x0b
198	jne @f	198	jne @f
199	DEBUGF 1, "K : Segment not present\n"	199	DEBUGF 1, "K : Segment not present\n"
200	jmp defined_error	200	jmp defined_error
201	@@:	201	@@:
202	cmp al, 0x0c	202	cmp al, 0x0c
203	jne @f	203	jne @f
204	DEBUGF 1, "K : Stack fault\n"	204	DEBUGF 1, "K : Stack fault\n"
205	jmp defined_error	205	jmp defined_error
206	@@:	206	@@:
207	cmp al, 0x0d	207	cmp al, 0x0d
208	jne @f	208	jne @f
209	DEBUGF 1, "K : General protection fault\n"	209	DEBUGF 1, "K : General protection fault\n"
210	jmp defined_error	210	jmp defined_error
211	@@:	211	@@:
212	cmp al, 0x0e	212	cmp al, 0x0e
213	jne @f	213	jne @f
214	DEBUGF 1, "K : Page fault\n"	214	DEBUGF 1, "K : Page fault\n"
215	jmp defined_error	215	jmp defined_error
216	@@:	216	@@:
217	DEBUGF 1, "K : Undefined Exception\n"	217	DEBUGF 1, "K : Undefined Exception\n"
218	defined_error:	218	defined_error:
219	DEBUGF 1, "K : EAX : %x EBX : %x ECX : %x\n", [esp + 0x20], [esp - 12 + 0x20], [esp - 4 + 0x20]	219	DEBUGF 1, "K : EAX : %x EBX : %x ECX : %x\n", [esp + 0x20], [esp - 12 + 0x20], [esp - 4 + 0x20]
220	DEBUGF 1, "K : EDX : %x ESI : %x EDI : %x\n", [esp - 8 + 0x20], [esp - 24 + 0x20], [esp - 28 + 0x20]	220	DEBUGF 1, "K : EDX : %x ESI : %x EDI : %x\n", [esp - 8 + 0x20], [esp - 24 + 0x20], [esp - 28 + 0x20]
221	DEBUGF 1, "K : EBP : %x EIP : %x ", [esp - 20 + 0x20], [esp + 4 + 0x20]	221	DEBUGF 1, "K : EBP : %x EIP : %x ", [esp - 20 + 0x20], [esp + 4 + 0x20]
222		222
223	mov eax, [esp + 8 + 0x20]	223	mov eax, [esp + 8 + 0x20]
224	mov edi, msg_sel_app	224	mov edi, msg_sel_app
225	mov ebx, [esp + 16 + 0x20]	225	mov ebx, [esp + 16 + 0x20]
226	cmp eax, sel_app_code	226	cmp eax, sel_app_code
227	je @f	227	je @f
228	mov edi, msg_sel_ker	228	mov edi, msg_sel_ker
229	mov ebx, [esp - 16 + 0x20]	229	mov ebx, [esp - 16 + 0x20]
230	@@:	230	@@:
231	DEBUGF 1, "ESP : %x\nK : Flags : %x CS : %x (%s)\n", ebx, [esp + 12 + 0x20], eax, edi	231	DEBUGF 1, "ESP : %x\nK : Flags : %x CS : %x (%s)\n", ebx, [esp + 12 + 0x20], eax, edi
232	ret	232	ret
233	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=	233	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
234		234
235		235
236	; irq1 -> hid/keyboard.inc	236	; irq1 -> hid/keyboard.inc
237	macro irqh [num]	237	macro irqh [num]
238	{	238	{
239	forward	239	forward
240	p_irq#num :	240	p_irq#num :
241	mov edi, num	241	mov edi, num
242	jmp irqhandler	242	jmp irqhandler
243	}	243	}
244		244
245	irqh 2,3,4,5,7,8,9,10,11	245	irqh 2,3,4,5,7,8,9,10,11
246		246
247		247
248	p_irq6:	248	p_irq6:
249	save_ring3_context	249	save_ring3_context
250	mov ax, sel_app_data	250	mov ax, sel_app_data
251	mov ds, ax	251	mov ds, ax
252	mov es, ax	252	mov es, ax
253	call fdc_irq	253	call fdc_irq
254	call ready_for_next_irq	254	call ready_for_next_irq
255	restore_ring3_context	255	restore_ring3_context
256	iret	256	iret
257		257
258		258
259	p_irq14:	259	p_irq14:
260	save_ring3_context	260	save_ring3_context
261	mov ax, sel_app_data	261	mov ax, sel_app_data
262	mov ds, ax	262	mov ds, ax
263	mov es, ax	263	mov es, ax
264	mov byte [BOOT_VAR + 0x48E], 0xFF	264	mov byte [BOOT_VAR + 0x48E], 0xFF
265	call [irq14_func]	265	call [irq14_func]
266	call ready_for_next_irq_1	266	call ready_for_next_irq_1
267	restore_ring3_context	267	restore_ring3_context
268	iret	268	iret
269	p_irq15:	269	p_irq15:
270	save_ring3_context	270	save_ring3_context
271	mov ax, sel_app_data	271	mov ax, sel_app_data
272	mov ds, ax	272	mov ds, ax
273	mov es, ax	273	mov es, ax
274	mov byte [BOOT_VAR + 0x48E], 0xFF	274	mov byte [BOOT_VAR + 0x48E], 0xFF
275	call [irq15_func]	275	call [irq15_func]
276	call ready_for_next_irq_1	276	call ready_for_next_irq_1
277	restore_ring3_context	277	restore_ring3_context
278	iret	278	iret
279		279
280	ready_for_next_irq:	280	ready_for_next_irq:
281	mov [check_idle_semaphore],5	281	mov [check_idle_semaphore],5
282	mov al, 0x20	282	mov al, 0x20
283	out 0x20, al	283	out 0x20, al
284	ret	284	ret
285		285
286	ready_for_next_irq_1:	286	ready_for_next_irq_1:
287	mov [check_idle_semaphore],5	287	mov [check_idle_semaphore],5
288	mov al, 0x20	288	mov al, 0x20
289	out 0xa0,al	289	out 0xa0,al
290	out 0x20, al	290	out 0x20, al
291	ret	291	ret
292		292
293	irqD:	293	irqD:
294	save_ring3_context	-
295	mov ax, sel_app_data	-
296	mov ds, ax	-
297	mov es, ax	294	push eax
298		-
299	mov dx,0xf0	-
300	mov al,0	295	mov al,0
301	out dx,al	296	out 0xf0,al
302		-
303	mov dx,0xa0	-
304	mov al,0x20	297	mov al,0x20
305	out dx,al	298	out 0xa0,al
306	mov dx,0x20	299	out 0x20,al
307	out dx,al	300	pop eax
308		-
309	restore_ring3_context	-
310		301
311	iret	302	iret
312		303
313		304
314	irqhandler:	305	irqhandler:
315		306
316	mov esi,edi ; 1	307	mov esi,edi ; 1
317	shl esi,6 ; 1	308	shl esi,6 ; 1
318	add esi,irq00read ; 1	309	add esi,irq00read ; 1
319	shl edi,12 ; 1	310	shl edi,12 ; 1
320	add edi,IRQ_SAVE	311	add edi,IRQ_SAVE
321	mov ecx,16	312	mov ecx,16
322		313
323	irqnewread:	314	irqnewread:
324	dec ecx	315	dec ecx
325	js irqover	316	js irqover
326		317
327	movzx edx, word [esi] ; 2+	318	movzx edx, word [esi] ; 2+
328		319
329	test edx, edx ; 1	320	test edx, edx ; 1
330	jz irqover	321	jz irqover
331		322
332		323
333	mov ebx, [edi] ; address of begin of buffer in edi ; + 0x0 dword - data size	324	mov ebx, [edi] ; address of begin of buffer in edi ; + 0x0 dword - data size
334	mov eax, 4000 ; + 0x4 dword - data begin offset	325	mov eax, 4000 ; + 0x4 dword - data begin offset
335	cmp ebx, eax	326	cmp ebx, eax
336	je irqfull	327	je irqfull
337	add ebx, [edi + 0x4] ; add data size to data begin offset	328	add ebx, [edi + 0x4] ; add data size to data begin offset
338	cmp ebx, eax ; if end of buffer, begin cycle again	329	cmp ebx, eax ; if end of buffer, begin cycle again
339	jb @f	330	jb @f
340		331
341	xor ebx, ebx	332	xor ebx, ebx
342		333
343	@@:	334	@@:
344	add ebx, edi	335	add ebx, edi
345	movzx eax, byte[esi + 3] ; get type of data being received 1 - byte, 2 - word	336	movzx eax, byte[esi + 3] ; get type of data being received 1 - byte, 2 - word
346	dec eax	337	dec eax
347	jz irqbyte	338	jz irqbyte
348	dec eax	339	dec eax
349	jnz noirqword	340	jnz noirqword
350		341
351	in ax,dx	342	in ax,dx
352	cmp ebx, 3999 ; check for address odd in the end of buffer	343	cmp ebx, 3999 ; check for address odd in the end of buffer
353	jne .odd	344	jne .odd
354	mov [ebx + 0x10], ax	345	mov [ebx + 0x10], ax
355	jmp .add_size	346	jmp .add_size
356	.odd:	347	.odd:
357	mov [ebx + 0x10], al ; I could make mistake here :)	348	mov [ebx + 0x10], al ; I could make mistake here :)
358	mov [edi + 0x10], ah	349	mov [edi + 0x10], ah
359	.add_size:	350	.add_size:
360	add dword [edi], 2	351	add dword [edi], 2
361	jmp nextport	352	jmp nextport
362		353
363		354
364	irqbyte:	355	irqbyte:
365	in al,dx	356	in al,dx
366	mov [ebx + 0x10],al	357	mov [ebx + 0x10],al
367	inc dword [edi]	358	inc dword [edi]
368	nextport:	359	nextport:
369	add esi,4	360	add esi,4
370	jmp irqnewread	361	jmp irqnewread
371		362
372		363
373	noirqword:	364	noirqword:
374	irqfull:	365	irqfull:
375	irqover:	366	irqover:
376		367
377	ret	368	ret
378		369
379		370
380		371
381	set_application_table_status:	372	set_application_table_status:
382	push eax	373	push eax
383		374
384	mov eax,[CURRENT_TASK]	375	mov eax,[CURRENT_TASK]
385	shl eax, 5	376	shl eax, 5
386	add eax,CURRENT_TASK+TASKDATA.pid	377	add eax,CURRENT_TASK+TASKDATA.pid
387	mov eax,[eax]	378	mov eax,[eax]
388		379
389	mov [application_table_status],eax	380	mov [application_table_status],eax
390		381
391	pop eax	382	pop eax
392		383
393	ret	384	ret
394		385
395		386
396	clear_application_table_status:	387	clear_application_table_status:
397	push eax	388	push eax
398		389
399	mov eax,[CURRENT_TASK]	390	mov eax,[CURRENT_TASK]
400	shl eax, 5	391	shl eax, 5
401	add eax,CURRENT_TASK+TASKDATA.pid	392	add eax,CURRENT_TASK+TASKDATA.pid
402	mov eax,[eax]	393	mov eax,[eax]
403		394
404	cmp eax,[application_table_status]	395	cmp eax,[application_table_status]
405	jne apptsl1	396	jne apptsl1
406	mov [application_table_status],0	397	mov [application_table_status],0
407	apptsl1:	398	apptsl1:
408		399
409	pop eax	400	pop eax
410		401
411	ret	402	ret
412		403
413	sys_resize_app_memory:	404	sys_resize_app_memory:
414	; eax = 1 - resize	405	; eax = 1 - resize
415	; ebx = new amount of memory	406	; ebx = new amount of memory
416		407
417	cmp eax,1	408	cmp eax,1
418	jne .no_application_mem_resize	409	jne .no_application_mem_resize
419		410
420	stdcall new_mem_resize, ebx	411	stdcall new_mem_resize, ebx
421	mov [esp+36], eax	412	mov [esp+36], eax
422	ret	413	ret
423		414
424	.no_application_mem_resize:	415	.no_application_mem_resize:
425	ret	416	ret
426		417
427	sys_threads:	418	sys_threads:
428		419
429	; eax=1 create thread	420	; eax=1 create thread
430	;	421	;
431	; ebx=thread start	422	; ebx=thread start
432	; ecx=thread stack value	423	; ecx=thread stack value
433	;	424	;
434	; on return : eax = pid	425	; on return : eax = pid
435	jmp new_sys_threads	426	jmp new_sys_threads
436		427
437	iglobal	428	iglobal
438	process_terminating db 'K : Process - terminating',13,10,0	429	process_terminating db 'K : Process - terminating',13,10,0
439	process_terminated db 'K : Process - done',13,10,0	430	process_terminated db 'K : Process - done',13,10,0
440	msg_obj_destroy db 'K : destroy app object',13,10,0	431	msg_obj_destroy db 'K : destroy app object',13,10,0
441	endg	432	endg
442		433
443	; param	434	; param
444	; esi= slot	435	; esi= slot
445		436
446	terminate: ; terminate application	437	terminate: ; terminate application
447		438
448	.slot equ esp ;locals	439	.slot equ esp ;locals
449		440
450	push esi ;save .slot	441	push esi ;save .slot
451		442
452	shl esi, 8	443	shl esi, 8
453	cmp [SLOT_BASE+esi+APPDATA.dir_table], 0	444	cmp [SLOT_BASE+esi+APPDATA.dir_table], 0
454	jne @F	445	jne @F
455	pop esi	446	pop esi
456	shl esi, 5	447	shl esi, 5
457	mov [CURRENT_TASK+esi+TASKDATA.state], 9	448	mov [CURRENT_TASK+esi+TASKDATA.state], 9
458	ret	449	ret
459	@@:	450	@@:
460	;mov esi,process_terminating	451	;mov esi,process_terminating
461	;call sys_msg_board_str	452	;call sys_msg_board_str
462	DEBUGF 1,"%s",process_terminating	-
463	@@:	453	@@:
464	cli	454	cli
465	cmp [application_table_status],0	455	cmp [application_table_status],0
466	je term9	456	je term9
467	sti	457	sti
468	call change_task	458	call change_task
469	jmp @b	459	jmp @b
470	term9:	460	term9:
471	call set_application_table_status	461	call set_application_table_status
472		462
473	; if the process is in V86 mode...	463	; if the process is in V86 mode...
474	mov eax, [.slot]	464	mov eax, [.slot]
475	shl eax, 8	465	shl eax, 8
476	mov esi, [eax+SLOT_BASE+APPDATA.pl0_stack]	466	mov esi, [eax+SLOT_BASE+APPDATA.pl0_stack]
477	add esi, RING0_STACK_SIZE	467	add esi, RING0_STACK_SIZE
478	cmp [eax+SLOT_BASE+APPDATA.saved_esp0], esi	468	cmp [eax+SLOT_BASE+APPDATA.saved_esp0], esi
479	jz .nov86	469	jz .nov86
480	; ...it has page directory for V86 mode	470	; ...it has page directory for V86 mode
481	mov esi, [eax+SLOT_BASE+APPDATA.saved_esp0]	471	mov esi, [eax+SLOT_BASE+APPDATA.saved_esp0]
482	mov ecx, [esi+4]	472	mov ecx, [esi+4]
483	mov [eax+SLOT_BASE+APPDATA.dir_table], ecx	473	mov [eax+SLOT_BASE+APPDATA.dir_table], ecx
484	; ...and I/O permission map for V86 mode	474	; ...and I/O permission map for V86 mode
485	mov ecx, [esi+12]	475	mov ecx, [esi+12]
486	mov [eax+SLOT_BASE+APPDATA.io_map], ecx	476	mov [eax+SLOT_BASE+APPDATA.io_map], ecx
487	mov ecx, [esi+8]	477	mov ecx, [esi+8]
488	mov [eax+SLOT_BASE+APPDATA.io_map+4], ecx	478	mov [eax+SLOT_BASE+APPDATA.io_map+4], ecx
489	.nov86:	479	.nov86:
490		480
491	mov esi, [.slot]	481	mov esi, [.slot]
492	shl esi,8	482	shl esi,8
493	add esi, SLOT_BASE+APP_OBJ_OFFSET	483	add esi, SLOT_BASE+APP_OBJ_OFFSET
494	@@:	484	@@:
495	mov eax, [esi+APPOBJ.fd]	485	mov eax, [esi+APPOBJ.fd]
496	test eax, eax	486	test eax, eax
497	jz @F	487	jz @F
498		488
499	cmp eax, esi	489	cmp eax, esi
500	je @F	490	je @F

Subversion Repositories Kolibri OS

(root)/kernel/branches/kolibri_pe/core/sys32.inc – Rev 1066 → 2971