;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; MenuetOS process management, protected ring3 ;; ;; ;; ;; Distributed under GPL. See file COPYING for details. ;; ;; Copyright 2003 Ville Turjanmaa ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; align 32 ; GDT TABLE gdts: dw gdte-$-1 dd gdts dw 0 int_code_l: os_code_l: dw 0xffff dw 0x0000 db 0x00 dw 11011111b *256 +10011010b db 0x00 int_data_l: os_data_l: dw 0xffff dw 0x0000 db 0x00 dw 11011111b *256 +10010010b db 0x00 app_code_l: dw ((0x80000000-std_application_base_address) shr 12) and 0xffff dw 0 db 0 dw 11010000b*256+11111010b+256*((0x80000000-std_application_base_address) shr 28) db std_application_base_address shr 24 app_data_l: dw (0x80000000-std_application_base_address) shr 12 and 0xffff dw 0 db 0 dw 11010000b*256+11110010b+256*((0x80000000-std_application_base_address) shr 28) db std_application_base_address shr 24 graph_data_l: dw 0x3ff dw 0x0000 db 0x00 dw 11010000b *256 +11110010b db 0x00 tss0_l: times (max_processes+10) dd 0,0 gdte: idtreg: dw 8*0x41-1 dd idts+8 label idts at 0xB100-8 uglobal tss_sceleton: l.back dw 0,0 l.esp0 dd 0 l.ss0 dw 0,0 l.esp1 dd 0 l.ss1 dw 0,0 l.esp2 dd 0 l.ss2 dw 0,0 l.cr3 dd 0 l.eip dd 0 l.eflags dd 0 l.eax dd 0 l.ecx dd 0 l.edx dd 0 l.ebx dd 0 l.esp dd 0 l.ebp dd 0 l.esi dd 0 l.edi dd 0 l.es dw 0,0 l.cs dw 0,0 l.ss dw 0,0 l.ds dw 0,0 l.fs dw 0,0 l.gs dw 0,0 l.ldt dw 0,0 l.trap dw 0 l.io dw 0 endg 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 @@: mov eax, [esi] mov [edi], ax ; lower part of offset mov [edi+2], word os_code ; segment selector shr eax, 16 mov [edi+4], word 10001110b shl 8 ; interrupt descriptor mov [edi+6], ax add esi, 4 add edi, 8 dec ecx jnz @b ;mov edi,8*0x40+idts+8 mov [edi + 0], word (i40 and ((1 shl 16)-1)) mov [edi + 2], word os_code mov [edi + 4], word 11101110b*256 mov [edi + 6], word (i40 shr 16) ret iglobal sys_int: dd e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12,e13,e14,e15 dd e16,e17 times 14 dd unknown_interrupt dd irq0 ,irq1 ,p_irq2 ,p_irq3 ,p_irq4 ,p_irq5,p_irq6 ,p_irq7 dd p_irq8,p_irq9,p_irq10,p_irq11,p_irq12,irqD ,p_irq14,p_irq15 times 16 dd unknown_interrupt dd i40 endg ; simply return control to interrupted process unknown_interrupt: iret macro exceptions [num] { forward e#num : mov bl, num jmp exc_c } exceptions 0, 1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 exc_c: mov ax, os_data mov ds, ax mov es, ax movzx eax, bl mov [error_interrupt], eax call show_error_parameters mov edx, [0x3010] mov [edx + 0xA], byte 4 jmp change_task ;;;;;;;;;;;;;;;;;;;;;;; ;; FPU ERROR HANDLER ;; ;;;;;;;;;;;;;;;;;;;;;;; align 4 e7: clts push eax push ds es mov ax, os_data mov ds, ax mov es, ax mov eax, [prev_user_of_fpu] shl eax, 8 add eax, 0x80000 + 0x10 fsave [eax] mov eax, [0x3000] mov [prev_user_of_fpu], eax shl eax, 8 add eax, 0x80000 cmp [eax + 0x7f], byte 0 je @f frstor [eax+0x10] @@: mov [eax + 0x7f], byte 1 pop es ds pop eax iret iglobal prev_user_of_fpu dd 1 endg 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,[0x3000] shl eax, 5 mov eax,[0x3000+4+eax] call writehex mov [write_error_to],process_error+43 mov eax,[error_interrupt] call writehex mov eax,[0x3000] imul eax,tss_step cmp [eax+tss_data+l.cs-tss_sceleton], os_code jz @f mov esi,system_error call sys_msg_board_str @@: mov eax,[eax+tss_data+l.eip-tss_sceleton] 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 : pushad mov edi, num jmp irq_c } irqh 2,3,4,5,7,8,9,10,11,12,14,15 irq_c: push ds es mov ax, os_data mov ds, ax mov es, ax call irqhandler pop es ds popad iret p_irq6: pushad push ds es mov ax, os_data mov ds, ax mov es, ax call fdc_irq mov al,0x20 ; ready for next irq out 0x20,al pop es ds popad iret irqD: pushad push ds es 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 pop es ds popad iret irqhandler: push edi mov esi,edi ; 1 shl esi,6 ; 1 add esi,irq00read ; 1 shl edi,12 ; 1 add edi,0x2E0000 mov [check_idle_semaphore],5 irqnewread: 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,[0x3000] shl eax, 5 add eax,0x3000+4 mov eax,[eax] mov [application_table_status],eax pop eax ret clear_application_table_status: push eax mov eax,[0x3000] shl eax, 5 add eax,0x3000+4 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 jmp new_mem_resize ;resize for new type of processes .no_application_mem_resize: ret get_app_params: push eax cmp [0x90000+6],word '00' jne no_00_header mov eax,[0x90000+12] mov [app_start],eax mov eax,[0x90000+16] mov [app_i_end],eax mov eax,[0x90000+20] mov [app_mem],eax shr eax,1 sub eax,0x10 mov [app_esp],eax mov eax,[0x90000+24] mov [app_i_param],eax mov [app_i_icon],dword 0 pop eax mov esi,1 ret no_00_header: cmp [0x90000+6],word '01' jne no_01_header mov eax,[0x90000+12] mov [app_start],eax mov eax,[0x90000+16] mov [app_i_end],eax mov eax,[0x90000+20] mov [app_mem],eax mov eax,[0x90000+24] mov [app_esp],eax mov eax,[0x90000+28] mov [app_i_param],eax mov eax,[0x90000+32] mov [app_i_icon],eax pop eax mov esi,1 ret no_01_header: pop eax mov esi,0 ret start_application_fl: jmp new_start_application_fl ;************************************************************************ start_application_floppy: jmp new_start_application_floppy ;******************************************************************** start_application_hd: jmp new_start_application_hd uglobal new_process_place dd 0x0 app_start dd 0x0 app_i_end dd 0x0 app_mem dd 0x0 app_esp dd 0x0 app_i_param dd 0x0 app_i_icon dd 0x0 app_mem_pos dd 0x0 appl_path dd 0x0 appl_path_size dd 0x0 endg iglobal hd_app_string db 'HDAPP ' process_loading db 'K : Process - loading ',13,10,0 process_running db 'K : Process - done',13,10,0 first_gdt_search dd 0x2 endg 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 endg terminate: ; terminate application push esi mov esi,process_terminating call sys_msg_board_str pop esi cli cmp [application_table_status],0 je term9 sti call change_task jmp terminate term9: call set_application_table_status mov eax,esi call dispose_app_cr3_table cmp [prev_user_of_fpu],esi ; if user fpu last -> fpu user = 1 jne fpu_ok_1 mov [prev_user_of_fpu],1 fpu_ok_1: mov [0xf400],byte 0 ; empty keyboard buffer mov [0xf500],byte 0 ; empty button buffer mov ecx,esi ; remove buttons bnewba2: mov edi,[0xfe88] 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 ax,[esi+0] mov word [dlx],ax mov bx,[esi+8] add ax,bx mov word [dlxe],ax mov ax,[esi+4] mov word [dly],ax mov bx,[esi+12] add ax,bx mov word [dlye],ax mov [esi+0],word 0 mov [esi+8],word 5 mov ax,[0xFE04] mov [esi+4],ax mov [esi+12],word 5 xor eax, eax mov [esi+16],eax;dword 0 mov [esi+20],eax;dword 0 mov [esi+24],eax;dword 0 mov [esi+28],eax;dword 0 popa pusha mov edi,esi shl edi,5 add edi,window_data mov ecx,32/4 xor eax, eax ; cld rep stosd mov eax,[0xFE04] ; set window to start from maxy+1 add eax,2 mov edi,esi shl edi,5 add edi,window_data mov [edi+4],eax popa pusha mov edi,esi shl edi,5 add edi,draw_data mov ecx,32/4 xor eax, eax ; cld rep stosd popa pusha ; at 0x80000+ mov edi,esi shl edi,8 add edi,0x80000 mov ecx,256/4 xor eax, eax ; cld rep stosd popa pusha ; name to spaces mov edi,esi shl edi,8 add edi,0x80000 mov ecx,11 mov eax,' ' ; cld rep stosb popa pusha ; C000 --> C400 mov eax, 0xc000 mov esi, 0 nlc40: add eax, 2 inc esi cmp esi, [0x3004] jae nlc41 movzx ecx, word [eax] mov [0xC400 + ecx*2], si jmp nlc40 nlc41: popa pusha ; remove hd1 reservation mov edx,esi shl edx, 5 ;imul edx,0x20 add edx,0x3000 mov edx,[edx+4] cmp [hd1_status],edx jne no_hd1_s_remove mov [hd1_status],0 no_hd1_s_remove: popa pusha ; remove all irq reservations mov edx,esi shl edx, 5 ;imul edx,0x20 add edx,0x3000 mov edx,[edx+4] mov edi,irq_owner mov ecx,16 newirqfree: cmp [edi],edx jne nofreeirq mov [edi],dword 0 nofreeirq: add edi,4 loop newirqfree popa pusha ; remove all port reservations mov edx,esi shl edx, 5 ;imul edx,0x20 add edx,0x3000 mov edx,[edx+4] rmpr0: mov esi,[0x2d0000] cmp esi,0 je rmpr9 rmpr3: mov edi,esi shl edi,4 add edi,0x2d0000 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 [0x2d0000] jmp rmpr0 rmpr9: popa mov edi,esi ; do not run this process slot shl edi, 5 mov [edi+0x300A],byte 9 ; call systest sti ; .. and life goes on ; movzx eax,word [dlx] ; movzx ebx,word [dly] ; movzx ecx,word [dlxe] ; movzx edx,word [dlye] call calculatescreen xor eax, eax xor esi, esi call redrawscreen mov [0xfff4],byte 0 ; no mouse background mov [0xfff5],byte 0 ; draw mouse mov [application_table_status],0 mov esi,process_terminated call sys_msg_board_str ;* start code - fix error redraw for terminate (2) - Mario79 ; cmp [draw_present],1 ; je no_draw_background_temp ; mov [0xfff0],byte 1 ;no_draw_background_temp: ; mov [draw_present],0 ret ;draw_present db 0 ;* end code - fix error redraw for terminate (2) - Mario79 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