WebSVN – Kolibri OS – Diff – /kernel/branches/Kolibri-acpi/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: 2166 $
 
 
align 4 ;3A08
build_interrupt_table:
        mov     edi, idts
        mov     esi, sys_int
        mov     ecx, 0x40
        mov     eax, (10001110b shl 24) + os_code
  @@:   movsw   ;low word of code-entry
        stosd   ;interrupt gate type : os_code selector
        movsw   ;high word of code-entry
        loop    @b
        movsd   ;copy low  dword of trap gate for int 0x40
        movsd   ;copy high dword of trap gate for int 0x40
        lidt    [esi]
        ret
 
iglobal
  align 4
  sys_int:
    ;exception handlers addresses (for interrupt gate construction)
        dd      e0,e1,e2,e3,e4,e5,e6,except_7 ; SEE: core/fpu.inc
        dd      e8,e9,e10,e11,e12,e13,page_fault_exc,e15
        dd      e16, e17,e18, e19
        times   12 dd unknown_interrupt ;int_20..int_31
 
    ;interrupt handlers addresses (for interrupt gate construction)
	; 0x20 .. 0x2F - IRQ handlers
        dd      irq0, irq_serv.irq_1, irq_serv.irq_2
        dd      irq_serv.irq_3, irq_serv.irq_4
        dd      irq_serv.irq_5,  irq_serv.irq_6,  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, irq_serv.irq_14, irq_serv.irq_15
	dd irq_serv.irq_16
	dd irq_serv.irq_17
	dd irq_serv.irq_18
	dd irq_serv.irq_19
	dd irq_serv.irq_20
	dd irq_serv.irq_21
	dd irq_serv.irq_22
	dd irq_serv.irq_23
 
    times 32 - IRQ_RESERVED dd unknown_interrupt
    ;int_0x40 gate trap (for directly copied)
        dw      i40 and 0xFFFF, os_code, 11101111b shl 8, i40 shr 16
 
  idtreg: ; data for LIDT instruction (!!! must be immediately below sys_int data)
        dw      2*($-sys_int-4)-1
        dd      idts ;0x8000B100
        dw      0    ;ïðîñòî âûðàâíèâàíèå
 
  msg_fault_sel dd  msg_exc_8,msg_exc_u,msg_exc_a,msg_exc_b
                dd  msg_exc_c,msg_exc_d,msg_exc_e
 
  msg_exc_8     db "Double fault", 0
  msg_exc_u     db "Undefined Exception", 0
  msg_exc_a     db "Invalid TSS", 0
  msg_exc_b     db "Segment not present", 0
  msg_exc_c     db "Stack fault", 0
  msg_exc_d     db "General protection fault", 0
  msg_exc_e     db "Page fault", 0
 
  msg_sel_ker   db "kernel", 0
  msg_sel_app   db "application", 0
 
endg
 
macro save_ring3_context {
        pushad
}
macro restore_ring3_context {
        popad
}
macro exc_wo_code [num] {
  e#num :
        save_ring3_context
        mov     bl, num
        jmp     exc_c
} exc_wo_code   0,1,2,3,4,5,6,15,16,19
 
macro exc_w_code [num] {
  e#num :
        add     esp, 4
        save_ring3_context
        mov     bl, num
        jmp     exc_c
} exc_w_code    8,9,10,11,12,13,17,18
 
 
uglobal
  pf_err_code   dd ?
endg
 
page_fault_exc:                 ; äóðàêîóñòî÷èâîñòü: ñåëåêòîðû èñïîð÷åíû...
        pop     [ss:pf_err_code]; äåéñòâèòåëüíî äî ñëåäóþùåãî #PF
        save_ring3_context
        mov     bl,14
 
exc_c:                          ; èñêëþ÷åíèÿ (âñå, êðîìå 7-ãî - #NM)
; Ôðýéì ñòåêà ïðè èñêëþ÷åíèè/ïðåðûâàíèè èç 3-ãî êîëüöà + pushad (ò.å., èìåííî çäåñü)
  reg_ss        equ esp+0x30
  reg_esp3      equ esp+0x2C
  reg_eflags    equ esp+0x28
  reg_cs3       equ esp+0x24
  reg_eip       equ esp+0x20
 ; ýòî ôðýéì îò pushad
  reg_eax       equ esp+0x1C
  reg_ecx       equ esp+0x18
  reg_edx       equ esp+0x14
  reg_ebx       equ esp+0x10
  reg_esp0      equ esp+0x0C
  reg_ebp       equ esp+0x08
  reg_esi       equ esp+0x04
  reg_edi       equ esp+0x00
 
	    mov	ax, app_data	    ;èñêëþ÷åíèå
	    mov	ds, ax		        ;çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ
	    mov	es, ax		        ;â ðåãèñòðû
        cld                     ; è ïðèâîäèì DF ê ñòàíäàðòó
        movzx   ebx,bl
; redirect to V86 manager? (EFLAGS & 0x20000) != 0?
        test    byte[reg_eflags+2],2
        jnz     v86_exc_c
        cmp     bl,14           ; #PF
        jne     @f
        call    page_fault_handler ; SEE: core/memory.inc
  @@:   mov     esi, [current_slot]
        btr     [esi+APPDATA.except_mask], ebx
        jnc     @f
        mov     eax,[esi+APPDATA.exc_handler]
        test    eax, eax
        jnz     IRetToUserHook
  @@:   cli
        mov     eax, [esi+APPDATA.debugger_slot]
        test    eax, eax
        jnz     .debug
        sti
; not debuggee => say error and terminate
        call    show_error_parameters ;; only ONE using, inline ???
       ;mov     edx, [TASK_BASE]
        mov     [edx + TASKDATA.state], byte 4 ; terminate
        jmp     change_task     ; stack - here it does not matter at all, SEE: core/shed.inc
.debug:
; we are debugged process, notify debugger and suspend ourself
; eax=debugger PID
        mov     ecx,1           ; debug_message code=other_exception
        cmp     bl,1            ; #DB
        jne     .notify         ; notify debugger and suspend ourself
        mov     ebx, dr6        ; debug_message data=DR6_image
        xor     edx, edx
        mov     dr6, edx
        mov     edx, dr7
        mov     cl, not 8
  .l1:  shl     dl,2
        jc      @f
        and     bl, cl
  @@:   sar     cl,1
        jc      .l1
        mov     cl, 3           ; debug_message code=debug_exception
.notify:
        push    ebx             ; debug_message data
        mov     ebx, [TASK_BASE]
        push    [ebx+TASKDATA.pid] ; PID
        push    ecx             ; debug_message code ((here: ecx==1/3))
        mov     cl, 12          ; debug_message size
        call    debugger_notify ;; only ONE using, inline ??? SEE: core/debug.inc
        add     esp,12
        mov     edx, [TASK_BASE]
        mov     byte [edx+TASKDATA.state], 1 ; suspended
        call    change_task     ; SEE: core/shed.inc
        restore_ring3_context
        iretd
 
IRetToUserHook:
        xchg    eax, [reg_eip]
        sub     dword[reg_esp3], 8
        mov     edi, [reg_esp3]
        stosd
        mov     [edi], ebx
        restore_ring3_context
; simply return control to interrupted process
unknown_interrupt:
        iretd
 
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; bl - error vector
show_error_parameters:
        cmp     bl, 0x06
        jnz     .no_ud
        push    ebx
        mov     ebx, ud_user_message
        mov     ebp, notifyapp
        call    fs_execute_from_sysdir_param
        pop     ebx
.no_ud:
        mov     edx,[TASK_BASE] ;not scratched below
        DEBUGF  1, "K : Process - forced terminate PID: %x\n", [edx+TASKDATA.pid]
        cmp     bl, 0x08
        jb      .l0
        cmp     bl, 0x0e
        jbe     .l1
  .l0:  mov     bl, 0x09
  .l1:  mov     eax,[msg_fault_sel+ebx*4 - 0x08*4]
        DEBUGF  1, "K : %s\n", eax
        mov     eax, [reg_cs3+4]
        mov     edi, msg_sel_app
        mov     ebx, [reg_esp3+4]
        cmp     eax, app_code
        je      @f
        mov     edi, msg_sel_ker
        mov     ebx, [reg_esp0+4]
    @@: DEBUGF  1, "K : EAX : %x EBX : %x ECX : %x\n", [reg_eax+4], [reg_ebx+4], [reg_ecx+4]
        DEBUGF  1, "K : EDX : %x ESI : %x EDI : %x\n", [reg_edx+4], [reg_esi+4], [reg_edi+4]
        DEBUGF  1, "K : EBP : %x EIP : %x ESP : %x\n", [reg_ebp+4], [reg_eip+4], ebx
        DEBUGF  1, "K : Flags : %x CS : %x (%s)\n", [reg_eflags+4], eax, edi
        ret
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
  restore  reg_ss
  restore  reg_esp3
  restore  reg_eflags
  restore  reg_cs
  restore  reg_eip
  restore  reg_eax
  restore  reg_ecx
  restore  reg_edx
  restore  reg_ebx
  restore  reg_esp0
  restore  reg_ebp
  restore  reg_esi
  restore  reg_edi
 
 
align 4
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
 
align 4
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
	xor  eax,eax
        mov  [application_table_status],eax
      apptsl1:
 
        pop  eax
 
        ret
 
;  * eax = 64 - íîìåð ôóíêöèè
;  * ebx = 1 - åäèíñòâåííàÿ ïîäôóíêöèÿ
;  * ecx = íîâûé ðàçìåð ïàìÿòè
;Âîçâðàùàåìîå çíà÷åíèå:
;  * eax = 0 - óñïåøíî
;  * eax = 1 - íåäîñòàòî÷íî ïàìÿòè
 
align 4
sys_resize_app_memory:
        ; ebx = 1 - resize
        ; ecx = new amount of memory
 
;        cmp    eax,1
	dec	ebx
        jnz    .no_application_mem_resize
        stdcall new_mem_resize, ecx
        mov [esp+32], eax
.no_application_mem_resize:
        ret
 
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
 
align 4
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
           stdcall destroy_app_space, [SLOT_BASE+eax+APPDATA.dir_table], [SLOT_BASE+eax+APPDATA.dlls_list_ptr]
 
           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],byte 0           ; empty keyboard buffer
    mov   [BTN_COUNT],byte 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
    add   esi,window_data
    mov   eax,[esi+WDATA.box.left]
    mov   [draw_limits.left],eax
    add   eax,[esi+WDATA.box.width]
    mov   [draw_limits.right],eax
    mov   eax,[esi+WDATA.box.top]
    mov   [draw_limits.top],eax
    add   eax,[esi+WDATA.box.height]
    mov   [draw_limits.bottom],eax
 
    xor   eax, eax
    mov   [esi+WDATA.box.left],eax
    mov   [esi+WDATA.box.width],eax
    mov   [esi+WDATA.box.top],eax
    mov   [esi+WDATA.box.height],eax
    mov   [esi+WDATA.cl_workarea],eax
    mov   [esi+WDATA.cl_titlebar],eax
    mov   [esi+WDATA.cl_frames],eax
    mov   dword [esi+WDATA.reserved],eax ; clear all flags: wstate, redraw, wdrawn
    lea   edi, [esi-window_data+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 ebx, [.slot]
           shl ebx, 8
           push ebx
           mov ebx,[SLOT_BASE+ebx+APPDATA.pl0_stack]
 
           stdcall kernel_free, ebx
 
           pop ebx
           mov ebx,[SLOT_BASE+ebx+APPDATA.cur_dir]
           stdcall kernel_free, ebx
 
           mov edi, [.slot]
           shl edi,8
           add edi,SLOT_BASE
 
           mov eax, [edi+APPDATA.io_map]
           cmp eax, [SLOT_BASE+256+APPDATA.io_map]
           je @F
           call free_page
@@:
           mov eax, [edi+APPDATA.io_map+4]
           cmp eax, [SLOT_BASE+256+APPDATA.io_map+4]
           je @F
           call free_page
@@:
           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
        and     [hd1_status], 0
@@:
        cmp     [cd_status], esi
        jnz     @f
        call    free_cd_channel
        and     [cd_status], 0
@@:
        cmp     [flp_status], esi
        jnz     @f
        and     [flp_status], 0
@@:
        pop     esi
        cmp     [bgrlockpid], esi
        jnz     @f
        and     [bgrlockpid], 0
        and     [bgrlock], 0
@@:
 
    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]
 
    test  esi,esi
    jz    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, [draw_limits.left]
    mov   ebx, [draw_limits.top]
    mov   ecx, [draw_limits.right]
    mov   edx, [draw_limits.bottom]
    call  calculatescreen
    xor   eax, eax
    xor   esi, esi
    call  redrawscreen
 
    mov   [MOUSE_BACKGROUND],byte 0  ; no mouse background
    mov   [DONT_DRAW_MOUSE],byte 0  ; draw mouse
 
    and   [application_table_status],0
    ;mov   esi,process_terminated
    ;call  sys_msg_board_str
    add esp, 4
    ret
restore .slot
 
iglobal
if lang eq ru
  boot_sched_1    db   '®§¤ ­¨¥ GDT TSS ãª § â¥«ï',0
  boot_sched_2    db   '®§¤ ­¨¥ IDT â ¡«¨æë',0
else
  boot_sched_1    db   'Building gdt tss pointer',0
  boot_sched_2    db   'Building IDT table',0
end if
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 2130	Rev 2166
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: 2130 $	14	$Revision: 2166 $
15		15
16		16
17	align 4 ;3A08	17	align 4 ;3A08
18	build_interrupt_table:	18	build_interrupt_table:
19	mov edi, idts	19	mov edi, idts
20	mov esi, sys_int	20	mov esi, sys_int
21	mov ecx, 0x40	21	mov ecx, 0x40
22	mov eax, (10001110b shl 24) + os_code	22	mov eax, (10001110b shl 24) + os_code
23	@@: movsw ;low word of code-entry	23	@@: movsw ;low word of code-entry
24	stosd ;interrupt gate type : os_code selector	24	stosd ;interrupt gate type : os_code selector
25	movsw ;high word of code-entry	25	movsw ;high word of code-entry
26	loop @b	26	loop @b
27	movsd ;copy low dword of trap gate for int 0x40	27	movsd ;copy low dword of trap gate for int 0x40
28	movsd ;copy high dword of trap gate for int 0x40	28	movsd ;copy high dword of trap gate for int 0x40
29	lidt [esi]	29	lidt [esi]
30	ret	30	ret
31		31
32	iglobal	32	iglobal
33	align 4	33	align 4
34	sys_int:	34	sys_int:
35	;exception handlers addresses (for interrupt gate construction)	35	;exception handlers addresses (for interrupt gate construction)
36	dd e0,e1,e2,e3,e4,e5,e6,except_7 ; SEE: core/fpu.inc	36	dd e0,e1,e2,e3,e4,e5,e6,except_7 ; SEE: core/fpu.inc
37	dd e8,e9,e10,e11,e12,e13,page_fault_exc,e15	37	dd e8,e9,e10,e11,e12,e13,page_fault_exc,e15
38	dd e16, e17,e18, e19	38	dd e16, e17,e18, e19
39	times 12 dd unknown_interrupt ;int_20..int_31	39	times 12 dd unknown_interrupt ;int_20..int_31
40		40
41	;interrupt handlers addresses (for interrupt gate construction)	41	;interrupt handlers addresses (for interrupt gate construction)
42	; 0x20 .. 0x2F - IRQ handlers	42	; 0x20 .. 0x2F - IRQ handlers
43	dd irq0, irq_serv.irq_1, irq_serv.irq_2	43	dd irq0, irq_serv.irq_1, irq_serv.irq_2
44	dd irq_serv.irq_3, irq_serv.irq_4	44	dd irq_serv.irq_3, irq_serv.irq_4
45	dd irq_serv.irq_5, irq_serv.irq_6, irq_serv.irq_7	45	dd irq_serv.irq_5, irq_serv.irq_6, irq_serv.irq_7
46	dd irq_serv.irq_8, irq_serv.irq_9, irq_serv.irq_10	46	dd irq_serv.irq_8, irq_serv.irq_9, irq_serv.irq_10
47	dd irq_serv.irq_11, irq_serv.irq_12, irqD, irq_serv.irq_14, irq_serv.irq_15	47	dd irq_serv.irq_11, irq_serv.irq_12, irqD, irq_serv.irq_14, irq_serv.irq_15
48	dd irq_serv.irq_16	48	dd irq_serv.irq_16
49	dd irq_serv.irq_17	49	dd irq_serv.irq_17
50	dd irq_serv.irq_18	50	dd irq_serv.irq_18
51	dd irq_serv.irq_19	51	dd irq_serv.irq_19
52	dd irq_serv.irq_20	52	dd irq_serv.irq_20
53	dd irq_serv.irq_21	53	dd irq_serv.irq_21
54	dd irq_serv.irq_22	54	dd irq_serv.irq_22
55	dd irq_serv.irq_23	55	dd irq_serv.irq_23
56		56
57	times 32 - IRQ_RESERVED dd unknown_interrupt	57	times 32 - IRQ_RESERVED dd unknown_interrupt
58	;int_0x40 gate trap (for directly copied)	58	;int_0x40 gate trap (for directly copied)
59	dw i40 and 0xFFFF, os_code, 11101111b shl 8, i40 shr 16	59	dw i40 and 0xFFFF, os_code, 11101111b shl 8, i40 shr 16
60		60
61	idtreg: ; data for LIDT instruction (!!! must be immediately below sys_int data)	61	idtreg: ; data for LIDT instruction (!!! must be immediately below sys_int data)
62	dw 2*($-sys_int-4)-1	62	dw 2*($-sys_int-4)-1
63	dd idts ;0x8000B100	63	dd idts ;0x8000B100
64	dw 0 ;ïðîñòî âûðàâíèâàíèå	64	dw 0 ;ïðîñòî âûðàâíèâàíèå
65		65
66	msg_fault_sel dd msg_exc_8,msg_exc_u,msg_exc_a,msg_exc_b	66	msg_fault_sel dd msg_exc_8,msg_exc_u,msg_exc_a,msg_exc_b
67	dd msg_exc_c,msg_exc_d,msg_exc_e	67	dd msg_exc_c,msg_exc_d,msg_exc_e
68		68
69	msg_exc_8 db "Double fault", 0	69	msg_exc_8 db "Double fault", 0
70	msg_exc_u db "Undefined Exception", 0	70	msg_exc_u db "Undefined Exception", 0
71	msg_exc_a db "Invalid TSS", 0	71	msg_exc_a db "Invalid TSS", 0
72	msg_exc_b db "Segment not present", 0	72	msg_exc_b db "Segment not present", 0
73	msg_exc_c db "Stack fault", 0	73	msg_exc_c db "Stack fault", 0
74	msg_exc_d db "General protection fault", 0	74	msg_exc_d db "General protection fault", 0
75	msg_exc_e db "Page fault", 0	75	msg_exc_e db "Page fault", 0
76		76
77	msg_sel_ker db "kernel", 0	77	msg_sel_ker db "kernel", 0
78	msg_sel_app db "application", 0	78	msg_sel_app db "application", 0
79		79
80	endg	80	endg
81		81
82	macro save_ring3_context {	82	macro save_ring3_context {
83	pushad	83	pushad
84	}	84	}
85	macro restore_ring3_context {	85	macro restore_ring3_context {
86	popad	86	popad
87	}	87	}
88	macro exc_wo_code [num] {	88	macro exc_wo_code [num] {
89	e#num :	89	e#num :
90	save_ring3_context	90	save_ring3_context
91	mov bl, num	91	mov bl, num
92	jmp exc_c	92	jmp exc_c
93	} exc_wo_code 0,1,2,3,4,5,6,15,16,19	93	} exc_wo_code 0,1,2,3,4,5,6,15,16,19
94		94
95	macro exc_w_code [num] {	95	macro exc_w_code [num] {
96	e#num :	96	e#num :
97	add esp, 4	97	add esp, 4
98	save_ring3_context	98	save_ring3_context
99	mov bl, num	99	mov bl, num
100	jmp exc_c	100	jmp exc_c
101	} exc_w_code 8,9,10,11,12,13,17,18	101	} exc_w_code 8,9,10,11,12,13,17,18
102		102
103		103
104	uglobal	104	uglobal
105	pf_err_code dd ?	105	pf_err_code dd ?
106	endg	106	endg
107		107
108	page_fault_exc: ; äóðàêîóñòî÷èâîñòü: ñåëåêòîðû èñïîð÷åíû...	108	page_fault_exc: ; äóðàêîóñòî÷èâîñòü: ñåëåêòîðû èñïîð÷åíû...
109	pop [ss:pf_err_code]; äåéñòâèòåëüíî äî ñëåäóþùåãî #PF	109	pop [ss:pf_err_code]; äåéñòâèòåëüíî äî ñëåäóþùåãî #PF
110	save_ring3_context	110	save_ring3_context
111	mov bl,14	111	mov bl,14
112		112
113	exc_c: ; èñêëþ÷åíèÿ (âñå, êðîìå 7-ãî - #NM)	113	exc_c: ; èñêëþ÷åíèÿ (âñå, êðîìå 7-ãî - #NM)
114	; Ôðýéì ñòåêà ïðè èñêëþ÷åíèè/ïðåðûâàíèè èç 3-ãî êîëüöà + pushad (ò.å., èìåííî çäåñü)	114	; Ôðýéì ñòåêà ïðè èñêëþ÷åíèè/ïðåðûâàíèè èç 3-ãî êîëüöà + pushad (ò.å., èìåííî çäåñü)
115	reg_ss equ esp+0x30	115	reg_ss equ esp+0x30
116	reg_esp3 equ esp+0x2C	116	reg_esp3 equ esp+0x2C
117	reg_eflags equ esp+0x28	117	reg_eflags equ esp+0x28
118	reg_cs3 equ esp+0x24	118	reg_cs3 equ esp+0x24
119	reg_eip equ esp+0x20	119	reg_eip equ esp+0x20
120	; ýòî ôðýéì îò pushad	120	; ýòî ôðýéì îò pushad
121	reg_eax equ esp+0x1C	121	reg_eax equ esp+0x1C
122	reg_ecx equ esp+0x18	122	reg_ecx equ esp+0x18
123	reg_edx equ esp+0x14	123	reg_edx equ esp+0x14
124	reg_ebx equ esp+0x10	124	reg_ebx equ esp+0x10
125	reg_esp0 equ esp+0x0C	125	reg_esp0 equ esp+0x0C
126	reg_ebp equ esp+0x08	126	reg_ebp equ esp+0x08
127	reg_esi equ esp+0x04	127	reg_esi equ esp+0x04
128	reg_edi equ esp+0x00	128	reg_edi equ esp+0x00
129		129
130	mov ax, app_data ;èñêëþ÷åíèå	130	mov ax, app_data ;èñêëþ÷åíèå
131	mov ds, ax ;çàãðóçèì ïðàâèëüíûå çíà÷åíè	131	mov ds, ax ;çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ
132	mov es, ax ;â ðåãèñòðû	132	mov es, ax ;â ðåãèñòðû
133	cld ; è ïðèâîäèì DF ê ñòàíäàðòó	133	cld ; è ïðèâîäèì DF ê ñòàíäàðòó
134	movzx ebx,bl	134	movzx ebx,bl
135	; redirect to V86 manager? (EFLAGS & 0x20000) != 0?	135	; redirect to V86 manager? (EFLAGS & 0x20000) != 0?
136	test byte[reg_eflags+2],2	136	test byte[reg_eflags+2],2
137	jnz v86_exc_c	137	jnz v86_exc_c
138	cmp bl,14 ; #PF	138	cmp bl,14 ; #PF
139	jne @f	139	jne @f
140	call page_fault_handler ; SEE: core/memory.inc	140	call page_fault_handler ; SEE: core/memory.inc
141	@@: mov esi, [current_slot]	141	@@: mov esi, [current_slot]
142	btr [esi+APPDATA.except_mask], ebx	142	btr [esi+APPDATA.except_mask], ebx
143	jnc @f	143	jnc @f
144	mov eax,[esi+APPDATA.exc_handler]	144	mov eax,[esi+APPDATA.exc_handler]
145	test eax, eax	145	test eax, eax
146	jnz IRetToUserHook	146	jnz IRetToUserHook
147	@@: cli	147	@@: cli
148	mov eax, [esi+APPDATA.debugger_slot]	148	mov eax, [esi+APPDATA.debugger_slot]
149	test eax, eax	149	test eax, eax
150	jnz .debug	150	jnz .debug
151	sti	151	sti
152	; not debuggee => say error and terminate	152	; not debuggee => say error and terminate
153	call show_error_parameters ;; only ONE using, inline ???	153	call show_error_parameters ;; only ONE using, inline ???
154	;mov edx, [TASK_BASE]	154	;mov edx, [TASK_BASE]
155	mov [edx + TASKDATA.state], byte 4 ; terminate	155	mov [edx + TASKDATA.state], byte 4 ; terminate
156	jmp change_task ; stack - here it does not matter at all, SEE: core/shed.inc	156	jmp change_task ; stack - here it does not matter at all, SEE: core/shed.inc
157	.debug:	157	.debug:
158	; we are debugged process, notify debugger and suspend ourself	158	; we are debugged process, notify debugger and suspend ourself
159	; eax=debugger PID	159	; eax=debugger PID
160	mov ecx,1 ; debug_message code=other_exception	160	mov ecx,1 ; debug_message code=other_exception
161	cmp bl,1 ; #DB	161	cmp bl,1 ; #DB
162	jne .notify ; notify debugger and suspend ourself	162	jne .notify ; notify debugger and suspend ourself
163	mov ebx, dr6 ; debug_message data=DR6_image	163	mov ebx, dr6 ; debug_message data=DR6_image
164	xor edx, edx	164	xor edx, edx
165	mov dr6, edx	165	mov dr6, edx
166	mov edx, dr7	166	mov edx, dr7
167	mov cl, not 8	167	mov cl, not 8
168	.l1: shl dl,2	168	.l1: shl dl,2
169	jc @f	169	jc @f
170	and bl, cl	170	and bl, cl
171	@@: sar cl,1	171	@@: sar cl,1
172	jc .l1	172	jc .l1
173	mov cl, 3 ; debug_message code=debug_exception	173	mov cl, 3 ; debug_message code=debug_exception
174	.notify:	174	.notify:
175	push ebx ; debug_message data	175	push ebx ; debug_message data
176	mov ebx, [TASK_BASE]	176	mov ebx, [TASK_BASE]
177	push [ebx+TASKDATA.pid] ; PID	177	push [ebx+TASKDATA.pid] ; PID
178	push ecx ; debug_message code ((here: ecx==1/3))	178	push ecx ; debug_message code ((here: ecx==1/3))
179	mov cl, 12 ; debug_message size	179	mov cl, 12 ; debug_message size
180	call debugger_notify ;; only ONE using, inline ??? SEE: core/debug.inc	180	call debugger_notify ;; only ONE using, inline ??? SEE: core/debug.inc
181	add esp,12	181	add esp,12
182	mov edx, [TASK_BASE]	182	mov edx, [TASK_BASE]
183	mov byte [edx+TASKDATA.state], 1 ; suspended	183	mov byte [edx+TASKDATA.state], 1 ; suspended
184	call change_task ; SEE: core/shed.inc	184	call change_task ; SEE: core/shed.inc
185	restore_ring3_context	185	restore_ring3_context
186	iretd	186	iretd
187		187
188	IRetToUserHook:	188	IRetToUserHook:
189	xchg eax, [reg_eip]	189	xchg eax, [reg_eip]
190	sub dword[reg_esp3], 8	190	sub dword[reg_esp3], 8
191	mov edi, [reg_esp3]	191	mov edi, [reg_esp3]
192	stosd	192	stosd
193	mov [edi], ebx	193	mov [edi], ebx
194	restore_ring3_context	194	restore_ring3_context
195	; simply return control to interrupted process	195	; simply return control to interrupted process
196	unknown_interrupt:	196	unknown_interrupt:
197	iretd	197	iretd
198		198
199	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=	199	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
200	; bl - error vector	200	; bl - error vector
201	show_error_parameters:	201	show_error_parameters:
202	cmp bl, 0x06	202	cmp bl, 0x06
203	jnz .no_ud	203	jnz .no_ud
204	push ebx	204	push ebx
205	mov ebx, ud_user_message	205	mov ebx, ud_user_message
206	mov ebp, notifyapp	206	mov ebp, notifyapp
207	call fs_execute_from_sysdir_param	207	call fs_execute_from_sysdir_param
208	pop ebx	208	pop ebx
209	.no_ud:	209	.no_ud:
210	mov edx,[TASK_BASE] ;not scratched below	210	mov edx,[TASK_BASE] ;not scratched below
211	DEBUGF 1, "K : Process - forced terminate PID: %x\n", [edx+TASKDATA.pid]	211	DEBUGF 1, "K : Process - forced terminate PID: %x\n", [edx+TASKDATA.pid]
212	cmp bl, 0x08	212	cmp bl, 0x08
213	jb .l0	213	jb .l0
214	cmp bl, 0x0e	214	cmp bl, 0x0e
215	jbe .l1	215	jbe .l1
216	.l0: mov bl, 0x09	216	.l0: mov bl, 0x09
217	.l1: mov eax,[msg_fault_sel+ebx4 - 0x084]	217	.l1: mov eax,[msg_fault_sel+ebx4 - 0x084]
218	DEBUGF 1, "K : %s\n", eax	218	DEBUGF 1, "K : %s\n", eax
219	mov eax, [reg_cs3+4]	219	mov eax, [reg_cs3+4]
220	mov edi, msg_sel_app	220	mov edi, msg_sel_app
221	mov ebx, [reg_esp3+4]	221	mov ebx, [reg_esp3+4]
222	cmp eax, app_code	222	cmp eax, app_code
223	je @f	223	je @f
224	mov edi, msg_sel_ker	224	mov edi, msg_sel_ker
225	mov ebx, [reg_esp0+4]	225	mov ebx, [reg_esp0+4]
226	@@: DEBUGF 1, "K : EAX : %x EBX : %x ECX : %x\n", [reg_eax+4], [reg_ebx+4], [reg_ecx+4]	226	@@: DEBUGF 1, "K : EAX : %x EBX : %x ECX : %x\n", [reg_eax+4], [reg_ebx+4], [reg_ecx+4]
227	DEBUGF 1, "K : EDX : %x ESI : %x EDI : %x\n", [reg_edx+4], [reg_esi+4], [reg_edi+4]	227	DEBUGF 1, "K : EDX : %x ESI : %x EDI : %x\n", [reg_edx+4], [reg_esi+4], [reg_edi+4]
228	DEBUGF 1, "K : EBP : %x EIP : %x ESP : %x\n", [reg_ebp+4], [reg_eip+4], ebx	228	DEBUGF 1, "K : EBP : %x EIP : %x ESP : %x\n", [reg_ebp+4], [reg_eip+4], ebx
229	DEBUGF 1, "K : Flags : %x CS : %x (%s)\n", [reg_eflags+4], eax, edi	229	DEBUGF 1, "K : Flags : %x CS : %x (%s)\n", [reg_eflags+4], eax, edi
230	ret	230	ret
231	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=	231	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
232		232
233	restore reg_ss	233	restore reg_ss
234	restore reg_esp3	234	restore reg_esp3
235	restore reg_eflags	235	restore reg_eflags
236	restore reg_cs	236	restore reg_cs
237	restore reg_eip	237	restore reg_eip
238	restore reg_eax	238	restore reg_eax
239	restore reg_ecx	239	restore reg_ecx
240	restore reg_edx	240	restore reg_edx
241	restore reg_ebx	241	restore reg_ebx
242	restore reg_esp0	242	restore reg_esp0
243	restore reg_ebp	243	restore reg_ebp
244	restore reg_esi	244	restore reg_esi
245	restore reg_edi	245	restore reg_edi
246		246
247		247
248	align 4	248	align 4
249	set_application_table_status:	249	set_application_table_status:
250	push eax	250	push eax
251		251
252	mov eax,[CURRENT_TASK]	252	mov eax,[CURRENT_TASK]
253	shl eax, 5	253	shl eax, 5
254	add eax,CURRENT_TASK+TASKDATA.pid	254	add eax,CURRENT_TASK+TASKDATA.pid
255	mov eax,[eax]	255	mov eax,[eax]
256		256
257	mov [application_table_status],eax	257	mov [application_table_status],eax
258		258
259	pop eax	259	pop eax
260		260
261	ret	261	ret
262		262
263	align 4	263	align 4
264	clear_application_table_status:	264	clear_application_table_status:
265	push eax	265	push eax
266		266
267	mov eax,[CURRENT_TASK]	267	mov eax,[CURRENT_TASK]
268	shl eax, 5	268	shl eax, 5
269	add eax,CURRENT_TASK+TASKDATA.pid	269	add eax,CURRENT_TASK+TASKDATA.pid
270	mov eax,[eax]	270	mov eax,[eax]
271		271
272	cmp eax,[application_table_status]	272	cmp eax,[application_table_status]
273	jne apptsl1	273	jne apptsl1
274	xor eax,eax	274	xor eax,eax
275	mov [application_table_status],eax	275	mov [application_table_status],eax
276	apptsl1:	276	apptsl1:
277		277
278	pop eax	278	pop eax
279		279
280	ret	280	ret
281		281
282	; * eax = 64 - íîìåð ôóíêöèè	282	; * eax = 64 - íîìåð ôóíêöèè
283	; * ebx = 1 - åäèíñòâåííàÿ ïîäôóíêöèÿ	283	; * ebx = 1 - åäèíñòâåííàÿ ïîäôóíêöèÿ
284	; * ecx = íîâûé ðàçìåð ïàìÿòè	284	; * ecx = íîâûé ðàçìåð ïàìÿòè
285	;Âîçâðàùàåìîå çíà÷åíèå:	285	;Âîçâðàùàåìîå çíà÷åíèå:
286	; * eax = 0 - óñïåøíî	286	; * eax = 0 - óñïåøíî
287	; * eax = 1 - íåäîñòàòî÷íî ïàìÿòè	287	; * eax = 1 - íåäîñòàòî÷íî ïàìÿòè
288		288
289	align 4	289	align 4
290	sys_resize_app_memory:	290	sys_resize_app_memory:
291	; ebx = 1 - resize	291	; ebx = 1 - resize
292	; ecx = new amount of memory	292	; ecx = new amount of memory
293		293
294	; cmp eax,1	294	; cmp eax,1
295	dec ebx	295	dec ebx
296	jnz .no_application_mem_resize	296	jnz .no_application_mem_resize
297	stdcall new_mem_resize, ecx	297	stdcall new_mem_resize, ecx
298	mov [esp+32], eax	298	mov [esp+32], eax
299	.no_application_mem_resize:	299	.no_application_mem_resize:
300	ret	300	ret
301		301
302	iglobal	302	iglobal
303	; process_terminating db 'K : Process - terminating',13,10,0	303	; process_terminating db 'K : Process - terminating',13,10,0
304	; process_terminated db 'K : Process - done',13,10,0	304	; process_terminated db 'K : Process - done',13,10,0
305	msg_obj_destroy db 'K : destroy app object',13,10,0	305	msg_obj_destroy db 'K : destroy app object',13,10,0
306	endg	306	endg
307		307
308	; param	308	; param
309	; esi= slot	309	; esi= slot
310		310
311	align 4	311	align 4
312	terminate: ; terminate application	312	terminate: ; terminate application
313		313
314	.slot equ esp ;locals	314	.slot equ esp ;locals
315		315
316	push esi ;save .slot	316	push esi ;save .slot
317		317
318	shl esi, 8	318	shl esi, 8
319	cmp [SLOT_BASE+esi+APPDATA.dir_table], 0	319	cmp [SLOT_BASE+esi+APPDATA.dir_table], 0
320	jne @F	320	jne @F
321	pop esi	321	pop esi
322	shl esi, 5	322	shl esi, 5
323	mov [CURRENT_TASK+esi+TASKDATA.state], 9	323	mov [CURRENT_TASK+esi+TASKDATA.state], 9
324	ret	324	ret
325	@@:	325	@@:
326	;mov esi,process_terminating	326	;mov esi,process_terminating
327	;call sys_msg_board_str	327	;call sys_msg_board_str
328	@@:	328	@@:
329	cli	329	cli
330	cmp [application_table_status],0	330	cmp [application_table_status],0
331	je term9	331	je term9
332	sti	332	sti
333	call change_task	333	call change_task
334	jmp @b	334	jmp @b
335	term9:	335	term9:
336	call set_application_table_status	336	call set_application_table_status
337		337
338	; if the process is in V86 mode...	338	; if the process is in V86 mode...
339	mov eax, [.slot]	339	mov eax, [.slot]
340	shl eax, 8	340	shl eax, 8
341	mov esi, [eax+SLOT_BASE+APPDATA.pl0_stack]	341	mov esi, [eax+SLOT_BASE+APPDATA.pl0_stack]
342	add esi, RING0_STACK_SIZE	342	add esi, RING0_STACK_SIZE
343	cmp [eax+SLOT_BASE+APPDATA.saved_esp0], esi	343	cmp [eax+SLOT_BASE+APPDATA.saved_esp0], esi
344	jz .nov86	344	jz .nov86
345	; ...it has page directory for V86 mode	345	; ...it has page directory for V86 mode
346	mov esi, [eax+SLOT_BASE+APPDATA.saved_esp0]	346	mov esi, [eax+SLOT_BASE+APPDATA.saved_esp0]
347	mov ecx, [esi+4]	347	mov ecx, [esi+4]
348	mov [eax+SLOT_BASE+APPDATA.dir_table], ecx	348	mov [eax+SLOT_BASE+APPDATA.dir_table], ecx
349	; ...and I/O permission map for V86 mode	349	; ...and I/O permission map for V86 mode
350	mov ecx, [esi+12]	350	mov ecx, [esi+12]
351	mov [eax+SLOT_BASE+APPDATA.io_map], ecx	351	mov [eax+SLOT_BASE+APPDATA.io_map], ecx
352	mov ecx, [esi+8]	352	mov ecx, [esi+8]
353	mov [eax+SLOT_BASE+APPDATA.io_map+4], ecx	353	mov [eax+SLOT_BASE+APPDATA.io_map+4], ecx
354	.nov86:	354	.nov86:
355		355
356	mov esi, [.slot]	356	mov esi, [.slot]
357	shl esi,8	357	shl esi,8
358	add esi, SLOT_BASE+APP_OBJ_OFFSET	358	add esi, SLOT_BASE+APP_OBJ_OFFSET
359	@@:	359	@@:
360	mov eax, [esi+APPOBJ.fd]	360	mov eax, [esi+APPOBJ.fd]
361	test eax, eax	361	test eax, eax
362	jz @F	362	jz @F
363		363
364	cmp eax, esi	364	cmp eax, esi
365	je @F	365	je @F
366		366
367	push esi	367	push esi
368	call [eax+APPOBJ.destroy]	368	call [eax+APPOBJ.destroy]
369	DEBUGF 1,"%s",msg_obj_destroy	369	DEBUGF 1,"%s",msg_obj_destroy
370	pop esi	370	pop esi
371	jmp @B	371	jmp @B
372	@@:	372	@@:
373		373
374	mov eax, [.slot]	374	mov eax, [.slot]
375	shl eax, 8	375	shl eax, 8
376	stdcall destroy_app_space, [SLOT_BASE+eax+APPDATA.dir_table], [SLOT_BASE+eax+APPDATA.dlls_list_ptr]	376	stdcall destroy_app_space, [SLOT_BASE+eax+APPDATA.dir_table], [SLOT_BASE+eax+APPDATA.dlls_list_ptr]
377		377
378	mov esi, [.slot]	378	mov esi, [.slot]
379	cmp [fpu_owner],esi ; if user fpu last -> fpu user = 1	379	cmp [fpu_owner],esi ; if user fpu last -> fpu user = 1
380	jne @F	380	jne @F
381		381
382	mov [fpu_owner],1	382	mov [fpu_owner],1
383	mov eax, [256+SLOT_BASE+APPDATA.fpu_state]	383	mov eax, [256+SLOT_BASE+APPDATA.fpu_state]
384	clts	384	clts
385	bt [cpu_caps], CAPS_SSE	385	bt [cpu_caps], CAPS_SSE
386	jnc .no_SSE	386	jnc .no_SSE
387	fxrstor [eax]	387	fxrstor [eax]
388	jmp @F	388	jmp @F
389	.no_SSE:	389	.no_SSE:
390	fnclex	390	fnclex
391	frstor [eax]	391	frstor [eax]
392	@@:	392	@@:
393		393
394	mov [KEY_COUNT],byte 0 ; empty keyboard buffer	394	mov [KEY_COUNT],byte 0 ; empty keyboard buffer
395	mov [BTN_COUNT],byte 0 ; empty button buffer	395	mov [BTN_COUNT],byte 0 ; empty button buffer
396		396
397		397
398	; remove defined hotkeys	398	; remove defined hotkeys
399	mov eax, hotkey_list	399	mov eax, hotkey_list
400	.loop:	400	.loop:
401	cmp [eax+8], esi	401	cmp [eax+8], esi
402	jnz .cont	402	jnz .cont
403	mov ecx, [eax]	403	mov ecx, [eax]
404	jecxz @f	404	jecxz @f
405	push dword [eax+12]	405	push dword [eax+12]
406	pop dword [ecx+12]	406	pop dword [ecx+12]
407	@@:	407	@@:
408	mov ecx, [eax+12]	408	mov ecx, [eax+12]
409	push dword [eax]	409	push dword [eax]
410	pop dword [ecx]	410	pop dword [ecx]
411	xor ecx, ecx	411	xor ecx, ecx
412	mov [eax], ecx	412	mov [eax], ecx
413	mov [eax+4], ecx	413	mov [eax+4], ecx
414	mov [eax+8], ecx	414	mov [eax+8], ecx
415	mov [eax+12], ecx	415	mov [eax+12], ecx
416	.cont:	416	.cont:
417	add eax, 16	417	add eax, 16
418	cmp eax, hotkey_list+256*16	418	cmp eax, hotkey_list+256*16
419	jb .loop	419	jb .loop
420	; remove hotkeys in buffer	420	; remove hotkeys in buffer
421	mov eax, hotkey_buffer	421	mov eax, hotkey_buffer
422	.loop2:	422	.loop2:
423	cmp [eax], esi	423	cmp [eax], esi
424	jnz .cont2	424	jnz .cont2
425	and dword [eax+4], 0	425	and dword [eax+4], 0
426	and dword [eax], 0	426	and dword [eax], 0
427	.cont2:	427	.cont2:
428	add eax, 8	428	add eax, 8
429	cmp eax, hotkey_buffer+120*8	429	cmp eax, hotkey_buffer+120*8
430	jb .loop2	430	jb .loop2
431		431
432	mov ecx,esi ; remove buttons	432	mov ecx,esi ; remove buttons
433	bnewba2:	433	bnewba2:
434	mov edi,[BTN_ADDR]	434	mov edi,[BTN_ADDR]
435	mov eax,edi	435	mov eax,edi
436	cld	436	cld
437	movzx ebx,word [edi]	437	movzx ebx,word [edi]
438	inc bx	438	inc bx
439	bnewba:	439	bnewba:
440	dec bx	440	dec bx
441	jz bnmba	441	jz bnmba
442	add eax,0x10	442	add eax,0x10
443	cmp cx,[eax]	443	cmp cx,[eax]
444	jnz bnewba	444	jnz bnewba
445	pusha	445	pusha
446	mov ecx,ebx	446	mov ecx,ebx
447	inc ecx	447	inc ecx
448	shl ecx,4	448	shl ecx,4
449	mov ebx,eax	449	mov ebx,eax
450	add eax,0x10	450	add eax,0x10
451	call memmove	451	call memmove
452	dec dword [edi]	452	dec dword [edi]
453	popa	453	popa
454	jmp bnewba2	454	jmp bnewba2
455	bnmba:	455	bnmba:
456		456
457	pusha ; save window coordinates for window restoring	457	pusha ; save window coordinates for window restoring
458	cld	458	cld
459	shl esi,5	459	shl esi,5
460	add esi,window_data	460	add esi,window_data
461	mov eax,[esi+WDATA.box.left]	461	mov eax,[esi+WDATA.box.left]
462	mov [draw_limits.left],eax	462	mov [draw_limits.left],eax
463	add eax,[esi+WDATA.box.width]	463	add eax,[esi+WDATA.box.width]
464	mov [draw_limits.right],eax	464	mov [draw_limits.right],eax
465	mov eax,[esi+WDATA.box.top]	465	mov eax,[esi+WDATA.box.top]
466	mov [draw_limits.top],eax	466	mov [draw_limits.top],eax
467	add eax,[esi+WDATA.box.height]	467	add eax,[esi+WDATA.box.height]
468	mov [draw_limits.bottom],eax	468	mov [draw_limits.bottom],eax
469		469
470	xor eax, eax	470	xor eax, eax
471	mov [esi+WDATA.box.left],eax	471	mov [esi+WDATA.box.left],eax
472	mov [esi+WDATA.box.width],eax	472	mov [esi+WDATA.box.width],eax
473	mov [esi+WDATA.box.top],eax	473	mov [esi+WDATA.box.top],eax
474	mov [esi+WDATA.box.height],eax	474	mov [esi+WDATA.box.height],eax
475	mov [esi+WDATA.cl_workarea],eax	475	mov [esi+WDATA.cl_workarea],eax
476	mov [esi+WDATA.cl_titlebar],eax	476	mov [esi+WDATA.cl_titlebar],eax
477	mov [esi+WDATA.cl_frames],eax	477	mov [esi+WDATA.cl_frames],eax
478	mov dword [esi+WDATA.reserved],eax ; clear all flags: wstate, redraw, wdrawn	478	mov dword [esi+WDATA.reserved],eax ; clear all flags: wstate, redraw, wdrawn
479	lea edi, [esi-window_data+draw_data]	479	lea edi, [esi-window_data+draw_data]
480	mov ecx,32/4	480	mov ecx,32/4
481	rep stosd	481	rep stosd
482	popa	482	popa
483		483
484	; debuggee test	484	; debuggee test
485	pushad	485	pushad
486	mov edi, esi	486	mov edi, esi
487	shl edi, 5	487	shl edi, 5
488	mov eax, [SLOT_BASE+edi*8+APPDATA.debugger_slot]	488	mov eax, [SLOT_BASE+edi*8+APPDATA.debugger_slot]
489	test eax, eax	489	test eax, eax
490	jz .nodebug	490	jz .nodebug
491	push 8	491	push 8
492	pop ecx	492	pop ecx
493	push dword [CURRENT_TASK+edi+TASKDATA.pid] ; PID	493	push dword [CURRENT_TASK+edi+TASKDATA.pid] ; PID
494	push 2	494	push 2
495	call debugger_notify	495	call debugger_notify
496	pop ecx	496	pop ecx
497	pop ecx	497	pop ecx
498	.nodebug:	498	.nodebug:
499	popad	499	popad
500		500

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/core/sys32.inc – Rev 2130 → 2166