| 0,0 → 1,849 |
|---|
| $Revision: 434 $ |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; ;; |
| ;; Copyright (C) KolibriOS team 2004-2007. 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 ;; |
| ;; ;; |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| |
| align 4 |
| idtreg: |
| dw 8*0x41-1 |
| dd idts+8 |
| |
| build_process_gdt_tss_pointer: |
| |
| mov ecx,tss_data |
| mov edi,0 |
| setgdtl2: |
| mov [edi+gdts+ tss0 +0], word tss_step |
| mov [edi+gdts+ tss0 +2], cx |
| mov eax,ecx |
| shr eax,16 |
| mov [edi+gdts+ tss0 +4], al |
| mov [edi+gdts+ tss0 +7], ah |
| mov [edi+gdts+ tss0 +5], word 01010000b *256 +11101001b |
| add ecx,tss_step |
| add edi,8 |
| cmp edi,8*(max_processes+5) |
| jbe setgdtl2 |
| |
| ret |
| |
| build_interrupt_table: |
| |
| mov edi, idts+8 |
| mov esi, sys_int |
| mov ecx, 0x40 |
| @@: |
| lodsd |
| mov [edi], ax ; lower part of offset |
| mov [edi+2], word os_code ; segment selector |
| mov ax, word 10001110b shl 8 ; type: interrupt gate |
| mov [edi+4], eax |
| add edi, 8 |
| loop @b |
| |
| ;mov edi,8*0x40+idts+8 |
| mov dword [edi], (i40 and 0xFFFF) or (os_code shl 16) |
| mov dword [edi+4], (11101111b shl 8) or (i40 and 0xFFFF0000) |
| ; type: trap gate |
| ret |
| |
| iglobal |
| 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, p_irq2 , p_irq3 ;irq_serv.irq_3 |
| dd p_irq4 ,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,p_irq12,irqD ,p_irq14,p_irq15 |
| |
| times 16 dd unknown_interrupt |
| |
| dd i40 |
| endg |
| |
| macro save_ring3_context |
| { |
| push ds es |
| pushad |
| } |
| macro restore_ring3_context |
| { |
| popad |
| pop es ds |
| } |
| |
| ; 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, 1, 2, 3, 4, 5, 6, 9, 15, 18 |
| exc_w_code 8, 10, 11, 12, 13, 14, 17 |
| |
| exc_c: |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| |
| ; test if debugging |
| cli |
| mov eax, [CURRENT_TASK] |
| shl eax, 8 |
| mov eax, [SLOT_BASE+eax+APPDATA.debugger_slot] |
| test eax, eax |
| jnz .debug |
| sti |
| ; not debuggee => say error and terminate |
| add esp, 28h |
| movzx eax, bl |
| mov [error_interrupt], eax |
| call show_error_parameters |
| |
| 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 |
| |
| writehex: |
| pusha |
| |
| mov edi, [write_error_to] |
| mov esi, 8 |
| @@: |
| mov ecx, eax |
| and ecx, 0xf |
| |
| mov cl,[ecx+hexletters] |
| mov [edi],cl |
| dec edi |
| |
| shr eax,4 |
| dec esi |
| jnz @b |
| |
| popa |
| ret |
| |
| iglobal |
| hexletters db '0123456789ABCDEF' |
| |
| error_interrupt dd -1 |
| |
| process_error db 'K : Process - forced terminate INT: 00000000',13,10,0 |
| process_pid db 'K : Process - forced terminate PID: 00000000',13,10,0 |
| process_eip db 'K : Process - forced terminate EIP: 00000000',13,10,0 |
| system_error db 'K : Kernel error',13,10,0 |
| endg |
| |
| uglobal |
| write_error_to dd 0x0 |
| endg |
| |
| show_error_parameters: |
| |
| mov [write_error_to],process_pid+43 |
| mov eax,[CURRENT_TASK] |
| shl eax, 5 |
| mov eax,[CURRENT_TASK+TASKDATA.pid+eax] |
| call writehex |
| |
| mov [write_error_to],process_error+43 |
| mov eax,[error_interrupt] |
| call writehex |
| |
| cmp dword [esp+4+4], os_code ; CS |
| jnz @f |
| mov esi,system_error |
| call sys_msg_board_str |
| @@: |
| mov eax, [esp+4] ; EIP |
| |
| mov [write_error_to],process_eip+43 |
| call writehex |
| |
| mov esi,process_error |
| call sys_msg_board_str |
| |
| mov esi,process_pid |
| call sys_msg_board_str |
| |
| mov esi,process_eip |
| call sys_msg_board_str |
| |
| ret |
| |
| |
| |
| ; irq1 -> hid/keyboard.inc |
| |
| |
| macro irqh [num] |
| { |
| forward |
| p_irq#num : |
| save_ring3_context |
| mov edi, num |
| jmp irq_c |
| } |
| |
| irqh 2,5,7,8,9,10,11 |
| |
| irq_c: |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| call irqhandler |
| restore_ring3_context |
| iret |
| |
| p_irq6: |
| save_ring3_context |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| call fdc_irq |
| call ready_for_next_irq |
| restore_ring3_context |
| iret |
| |
| p_irq3: |
| save_ring3_context |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| cmp [com2_mouse_detected],0 |
| je old_irq3_handler |
| call check_mouse_data_com2 |
| jmp p_irq3_1 |
| old_irq3_handler: |
| mov edi,3 |
| call irqhandler |
| p_irq3_1: |
| restore_ring3_context |
| iret |
| |
| p_irq4: |
| save_ring3_context |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| cmp [com1_mouse_detected],0 |
| je old_irq4_handler |
| call check_mouse_data_com1 |
| jmp p_irq4_1 |
| old_irq4_handler: |
| mov edi,4 |
| call irqhandler |
| p_irq4_1: |
| restore_ring3_context |
| iret |
| |
| p_irq12: |
| save_ring3_context |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| call check_mouse_data_ps2 |
| restore_ring3_context |
| iret |
| |
| p_irq14: |
| save_ring3_context |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| call [irq14_func] |
| call ready_for_next_irq_1 |
| restore_ring3_context |
| iret |
| p_irq15: |
| save_ring3_context |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| 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: |
| save_ring3_context |
| mov ax, os_data |
| mov ds, ax |
| mov es, ax |
| |
| mov dx,0xf0 |
| mov al,0 |
| out dx,al |
| |
| mov dx,0xa0 |
| mov al,0x20 |
| out dx,al |
| mov dx,0x20 |
| out dx,al |
| |
| restore_ring3_context |
| |
| iret |
| |
| |
| irqhandler: |
| |
| push edi |
| |
| mov esi,edi ; 1 |
| shl esi,6 ; 1 |
| add esi,irq00read ; 1 |
| shl edi,12 ; 1 |
| add edi,IRQ_SAVE |
| mov ecx,16 |
| |
| mov [check_idle_semaphore],5 |
| |
| irqnewread: |
| dec ecx |
| js irqover |
| |
| mov dx,[esi] ; 2+ |
| |
| cmp dx,0 ; 1 |
| jz irqover |
| cmp [esi+3],byte 1 ; 2 ; byte read |
| jne noirqbyte ; 4-11 |
| |
| in al,dx |
| |
| mov edx,[edi] |
| cmp edx,4000 |
| je irqfull |
| mov ebx,edi |
| add ebx,0x10 |
| add ebx,edx |
| mov [ebx],al |
| inc edx |
| mov [edi],edx |
| |
| add esi,4 |
| jmp irqnewread |
| |
| noirqbyte: |
| |
| |
| cmp [esi+3],byte 2 ; word read |
| jne noirqword |
| |
| in ax,dx |
| |
| mov edx,[edi] |
| cmp edx,4000 |
| je irqfull |
| mov ebx,edi |
| add ebx,0x10 |
| add ebx,edx |
| mov [ebx],ax |
| add edx,2 |
| mov [edi],edx |
| add esi,4 |
| jmp irqnewread |
| |
| noirqword: |
| irqfull: |
| irqover: |
| |
| mov al,0x20 ; ready for next irq |
| out 0x20,al |
| |
| pop ebx |
| cmp ebx,7 |
| jbe noa0 |
| out 0xa0,al |
| noa0: |
| |
| 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 |
| add esp, 4 |
| 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 |
| |
| 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] |
| mov esi, msg_obj_destroy |
| call sys_msg_board_str |
| 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],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 [dlx],eax |
| add eax,[esi+WDATA.box.width] |
| mov [dlxe],eax |
| mov eax,[esi+WDATA.box.top] |
| mov [dly],eax |
| add eax,[esi+WDATA.box.height] |
| mov [dlye],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 |
| mov ebx,[SLOT_BASE+ebx+APPDATA.pl0_stack] |
| |
| stdcall kernel_free, ebx |
| |
| mov edi, [.slot] |
| shl edi,8 |
| add edi,SLOT_BASE |
| 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 |
| |
| pusha ; remove all irq reservations |
| mov eax,esi |
| shl eax, 5 |
| mov eax,[eax+CURRENT_TASK+TASKDATA.pid] |
| mov edi,irq_owner |
| mov ecx,16 |
| newirqfree: |
| scasd |
| jne nofreeirq |
| mov [edi-4],dword 0 |
| nofreeirq: |
| loop 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, ebx |
| mov eax, 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 [MOUSE_BACKGROUND],byte 0 ; no mouse background |
| mov [DONT_DRAW_MOUSE],byte 0 ; draw mouse |
| |
| 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 |
| call build_interrupt_table |
| |
| ret |
| |