WebSVN – Kolibri OS – Diff – /kernel/branches/net/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: 1514 $
 
 
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)
	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 ;int_0x30..int_0x3F
 
    ;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	ds,ax,app_data	; çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ
	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
unknown_interrupt:
	iretd
 
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
show_error_parameters:
	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
 
; irq1  ->  hid/keyboard.inc
macro irqh [num] {
  p_irq#num :
	mov	edi, num
	jmp	irqhandler
}
 
 
 
p_irq6:
	save_ring3_context
	mov	ax, app_data  ;os_data
	mov	ds, ax
	mov	es, ax
	mov	edi, 6
	cmp	[v86_irqhooks+edi*8], 0
	jnz	v86_irq2
	call	fdc_irq
	call	ready_for_next_irq
	restore_ring3_context
	iret
 
 
p_irq14:
	save_ring3_context
	mov	ax, app_data  ;os_data
	mov	ds, ax
	mov	es, ax
	mov	edi, 14
	cmp	[v86_irqhooks+edi*8], 0
	jnz	v86_irq2
;       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, app_data  ;os_data
	mov	ds, ax
	mov	es, ax
	mov	edi, 15
	cmp	[v86_irqhooks+edi*8], 0
	jnz	v86_irq2
;       mov     byte [BOOT_VAR + 0x48E], 0xFF
	call	[irq15_func]
	call	ready_for_next_irq_1
	restore_ring3_context
	iret
 
ready_for_next_irq:
	mov	eax,5
	mov	[check_idle_semaphore],eax
;        mov     al, 0x20
	add	eax,(0x20-0x5)
 
	out	0x20, al
	ret
;destroy eax
ready_for_next_irq_1:
	mov	eax,5
	mov	[check_idle_semaphore],eax
;        mov     al, 0x20
	add	eax,(0x20-0x5)
	out	0xa0,al
	out	0x20, al
	ret
 
irqD:
	push  eax
	xor   eax,eax
	out   0xf0,al
	mov   al,0x20
	out   0xa0,al
	out   0x20,al
	pop   eax
	iret
 
 
irqh 2,3,4,5,7,8,9,10,11
 
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
	xor  eax,eax
	mov  [application_table_status],eax
      apptsl1:
 
	pop  eax
 
	ret
 
;  * eax = 64 - íîìåð ôóíêöèè
;  * ebx = 1 - åäèíñòâåííàÿ ïîäôóíêöèÿ
;  * ecx = íîâûé ðàçìåð ïàìÿòè
;Âîçâðàùàåìîå çíà÷åíèå:
;  * eax = 0 - óñïåøíî
;  * eax = 1 - íåäîñòàòî÷íî ïàìÿòè
 
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
 
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 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]
 
    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
 
	mov	eax, [.slot]
	call	SOCKET_process_end
 
    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 1376	Rev 1514
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: 1376 $	14	$Revision: 1514 $
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	dd irq0, irq_serv.irq_1, irq_serv.irq_2	42	dd irq0, irq_serv.irq_1, irq_serv.irq_2
43	if USE_COM_IRQ	43	if USE_COM_IRQ
44	dd irq_serv.irq_3, irq_serv.irq_4	44	dd irq_serv.irq_3, irq_serv.irq_4
45	else	45	else
46	dd p_irq3, p_irq4 ;??? íåñòûêîâêà	46	dd p_irq3, p_irq4 ;??? íåñòûêîâêà
47	end if	47	end if
48	dd irq_serv.irq_5, p_irq6, irq_serv.irq_7	48	dd irq_serv.irq_5, p_irq6, irq_serv.irq_7
49	dd irq_serv.irq_8, irq_serv.irq_9, irq_serv.irq_10	49	dd irq_serv.irq_8, irq_serv.irq_9, irq_serv.irq_10
50	dd irq_serv.irq_11, irq_serv.irq_12, irqD,p_irq14,p_irq15	50	dd irq_serv.irq_11, irq_serv.irq_12, irqD,p_irq14,p_irq15
51	times 16 dd unknown_interrupt ;int_0x30..int_0x3F	51	times 16 dd unknown_interrupt ;int_0x30..int_0x3F
52		52
53	;int_0x40 gate trap (for directly copied)	53	;int_0x40 gate trap (for directly copied)
54	dw i40 and 0xFFFF, os_code, 11101111b shl 8, i40 shr 16	54	dw i40 and 0xFFFF, os_code, 11101111b shl 8, i40 shr 16
55		55
56	idtreg: ; data for LIDT instruction (!!! must be immediately below sys_int data)	56	idtreg: ; data for LIDT instruction (!!! must be immediately below sys_int data)
57	dw 2*($-sys_int-4)-1	57	dw 2*($-sys_int-4)-1
58	dd idts ;0x8000B100	58	dd idts ;0x8000B100
59	dw 0 ;ïðîñòî âûðàâíèâàíèå	59	dw 0 ;ïðîñòî âûðàâíèâàíèå
60		60
61	msg_fault_sel dd msg_exc_8,msg_exc_u,msg_exc_a,msg_exc_b	61	msg_fault_sel dd msg_exc_8,msg_exc_u,msg_exc_a,msg_exc_b
62	dd msg_exc_c,msg_exc_d,msg_exc_e	62	dd msg_exc_c,msg_exc_d,msg_exc_e
63		63
64	msg_exc_8 db "Double fault", 0	64	msg_exc_8 db "Double fault", 0
65	msg_exc_u db "Undefined Exception", 0	65	msg_exc_u db "Undefined Exception", 0
66	msg_exc_a db "Invalid TSS", 0	66	msg_exc_a db "Invalid TSS", 0
67	msg_exc_b db "Segment not present", 0	67	msg_exc_b db "Segment not present", 0
68	msg_exc_c db "Stack fault", 0	68	msg_exc_c db "Stack fault", 0
69	msg_exc_d db "General protection fault", 0	69	msg_exc_d db "General protection fault", 0
70	msg_exc_e db "Page fault", 0	70	msg_exc_e db "Page fault", 0
71		71
72	msg_sel_ker db "kernel", 0	72	msg_sel_ker db "kernel", 0
73	msg_sel_app db "application", 0	73	msg_sel_app db "application", 0
74		74
75	endg	75	endg
76		76
77	macro save_ring3_context {	77	macro save_ring3_context {
78	pushad	78	pushad
79	}	79	}
80	macro restore_ring3_context {	80	macro restore_ring3_context {
81	popad	81	popad
82	}	82	}
83	macro exc_wo_code [num] {	83	macro exc_wo_code [num] {
84	e#num :	84	e#num :
85	save_ring3_context	85	save_ring3_context
86	mov bl, num	86	mov bl, num
87	jmp exc_c	87	jmp exc_c
88	} exc_wo_code 0,1,2,3,4,5,6,15,16,19	88	} exc_wo_code 0,1,2,3,4,5,6,15,16,19
89		89
90	macro exc_w_code [num] {	90	macro exc_w_code [num] {
91	e#num :	91	e#num :
92	add esp, 4	92	add esp, 4
93	save_ring3_context	93	save_ring3_context
94	mov bl, num	94	mov bl, num
95	jmp exc_c	95	jmp exc_c
96	} exc_w_code 8,9,10,11,12,13,17,18	96	} exc_w_code 8,9,10,11,12,13,17,18
97		97
98		98
99	uglobal	99	uglobal
100	pf_err_code dd ?	100	pf_err_code dd ?
101	endg	101	endg
102		102
103	page_fault_exc: ; äóðàêîóñòî÷èâîñòü: ñåëåêòîðû èñïîð÷åíû...	103	page_fault_exc: ; äóðàêîóñòî÷èâîñòü: ñåëåêòîðû èñïîð÷åíû...
104	pop [ss:pf_err_code]; äåéñòâèòåëüíî äî ñëåäóþùåãî #PF	104	pop [ss:pf_err_code]; äåéñòâèòåëüíî äî ñëåäóþùåãî #PF
105	save_ring3_context	105	save_ring3_context
106	mov bl,14	106	mov bl,14
107		107
108	exc_c: ; èñêëþ÷åíèÿ (âñå, êðîìå 7-ãî - #NM)	108	exc_c: ; èñêëþ÷åíèÿ (âñå, êðîìå 7-ãî - #NM)
109	; Ôðýéì ñòåêà ïðè èñêëþ÷åíèè/ïðåðûâàíèè èç 3-ãî êîëüöà + pushad (ò.å., èìåííî çäåñü)	109	; Ôðýéì ñòåêà ïðè èñêëþ÷åíèè/ïðåðûâàíèè èç 3-ãî êîëüöà + pushad (ò.å., èìåííî çäåñü)
110	reg_ss equ esp+0x30	110	reg_ss equ esp+0x30
111	reg_esp3 equ esp+0x2C	111	reg_esp3 equ esp+0x2C
112	reg_eflags equ esp+0x28	112	reg_eflags equ esp+0x28
113	reg_cs3 equ esp+0x24	113	reg_cs3 equ esp+0x24
114	reg_eip equ esp+0x20	114	reg_eip equ esp+0x20
115	; ýòî ôðýéì îò pushad	115	; ýòî ôðýéì îò pushad
116	reg_eax equ esp+0x1C	116	reg_eax equ esp+0x1C
117	reg_ecx equ esp+0x18	117	reg_ecx equ esp+0x18
118	reg_edx equ esp+0x14	118	reg_edx equ esp+0x14
119	reg_ebx equ esp+0x10	119	reg_ebx equ esp+0x10
120	reg_esp0 equ esp+0x0C	120	reg_esp0 equ esp+0x0C
121	reg_ebp equ esp+0x08	121	reg_ebp equ esp+0x08
122	reg_esi equ esp+0x04	122	reg_esi equ esp+0x04
123	reg_edi equ esp+0x00	123	reg_edi equ esp+0x00
124		124
125	Mov ds,ax,app_data ; çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ	125	Mov ds,ax,app_data ; çàãðóçèì ïðàâèëüíûå çíà÷åíèÿ
126	mov es,ax ; â ñåãìåíòíûå ðåãèñòðû	126	mov es,ax ; â ñåãìåíòíûå ðåãèñòðû
127	cld ; è ïðèâîäèì DF ê ñòàíäàðòó	127	cld ; è ïðèâîäèì DF ê ñòàíäàðòó
128	movzx ebx,bl	128	movzx ebx,bl
129	; redirect to V86 manager? (EFLAGS & 0x20000) != 0?	129	; redirect to V86 manager? (EFLAGS & 0x20000) != 0?
130	test byte[reg_eflags+2],2	130	test byte[reg_eflags+2],2
131	jnz v86_exc_c	131	jnz v86_exc_c
132	cmp bl,14 ; #PF	132	cmp bl,14 ; #PF
133	jne @f	133	jne @f
134	call page_fault_handler ; SEE: core/memory.inc	134	call page_fault_handler ; SEE: core/memory.inc
135	@@: mov esi, [current_slot]	135	@@: mov esi, [current_slot]
136	btr [esi+APPDATA.except_mask], ebx	136	btr [esi+APPDATA.except_mask], ebx
137	jnc @f	137	jnc @f
138	mov eax,[esi+APPDATA.exc_handler]	138	mov eax,[esi+APPDATA.exc_handler]
139	test eax, eax	139	test eax, eax
140	jnz IRetToUserHook	140	jnz IRetToUserHook
141	@@: cli	141	@@: cli
142	mov eax, [esi+APPDATA.debugger_slot]	142	mov eax, [esi+APPDATA.debugger_slot]
143	test eax, eax	143	test eax, eax
144	jnz .debug	144	jnz .debug
145	sti	145	sti
146	; not debuggee => say error and terminate	146	; not debuggee => say error and terminate
147	call show_error_parameters ;; only ONE using, inline ???	147	call show_error_parameters ;; only ONE using, inline ???
148	;mov edx, [TASK_BASE]	148	;mov edx, [TASK_BASE]
149	mov [edx + TASKDATA.state], byte 4 ; terminate	149	mov [edx + TASKDATA.state], byte 4 ; terminate
150	jmp change_task ; stack - here it does not matter at all, SEE: core/shed.inc	150	jmp change_task ; stack - here it does not matter at all, SEE: core/shed.inc
151	.debug:	151	.debug:
152	; we are debugged process, notify debugger and suspend ourself	152	; we are debugged process, notify debugger and suspend ourself
153	; eax=debugger PID	153	; eax=debugger PID
154	mov ecx,1 ; debug_message code=other_exception	154	mov ecx,1 ; debug_message code=other_exception
155	cmp bl,1 ; #DB	155	cmp bl,1 ; #DB
156	jne .notify ; notify debugger and suspend ourself	156	jne .notify ; notify debugger and suspend ourself
157	mov ebx, dr6 ; debug_message data=DR6_image	157	mov ebx, dr6 ; debug_message data=DR6_image
158	xor edx, edx	158	xor edx, edx
159	mov dr6, edx	159	mov dr6, edx
160	mov edx, dr7	160	mov edx, dr7
161	mov cl, not 8	161	mov cl, not 8
162	.l1: shl dl,2	162	.l1: shl dl,2
163	jc @f	163	jc @f
164	and bl, cl	164	and bl, cl
165	@@: sar cl,1	165	@@: sar cl,1
166	jc .l1	166	jc .l1
167	mov cl, 3 ; debug_message code=debug_exception	167	mov cl, 3 ; debug_message code=debug_exception
168	.notify:	168	.notify:
169	push ebx ; debug_message data	169	push ebx ; debug_message data
170	mov ebx, [TASK_BASE]	170	mov ebx, [TASK_BASE]
171	push [ebx+TASKDATA.pid] ; PID	171	push [ebx+TASKDATA.pid] ; PID
172	push ecx ; debug_message code ((here: ecx==1/3))	172	push ecx ; debug_message code ((here: ecx==1/3))
173	mov cl, 12 ; debug_message size	173	mov cl, 12 ; debug_message size
174	call debugger_notify ;; only ONE using, inline ??? SEE: core/debug.inc	174	call debugger_notify ;; only ONE using, inline ??? SEE: core/debug.inc
175	add esp,12	175	add esp,12
176	mov edx, [TASK_BASE]	176	mov edx, [TASK_BASE]
177	mov byte [edx+TASKDATA.state], 1 ; suspended	177	mov byte [edx+TASKDATA.state], 1 ; suspended
178	call change_task ; SEE: core/shed.inc	178	call change_task ; SEE: core/shed.inc
179	restore_ring3_context	179	restore_ring3_context
180	iretd	180	iretd
181		181
182	IRetToUserHook:	182	IRetToUserHook:
183	xchg eax, [reg_eip]	183	xchg eax, [reg_eip]
184	sub dword[reg_esp3], 8	184	sub dword[reg_esp3], 8
185	mov edi, [reg_esp3]	185	mov edi, [reg_esp3]
186	stosd	186	stosd
187	mov [edi], ebx	187	mov [edi], ebx
188	restore_ring3_context	188	restore_ring3_context
189	unknown_interrupt:	189	unknown_interrupt:
190	iretd	190	iretd
191		191
192	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=	192	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
193	show_error_parameters:	193	show_error_parameters:
194	mov edx,[TASK_BASE] ;not scratched below	194	mov edx,[TASK_BASE] ;not scratched below
195	DEBUGF 1, "K : Process - forced terminate PID: %x\n", [edx+TASKDATA.pid]	195	DEBUGF 1, "K : Process - forced terminate PID: %x\n", [edx+TASKDATA.pid]
196	cmp bl, 0x08	196	cmp bl, 0x08
197	jb .l0	197	jb .l0
198	cmp bl, 0x0e	198	cmp bl, 0x0e
199	jbe .l1	199	jbe .l1
200	.l0: mov bl, 0x09	200	.l0: mov bl, 0x09
201	.l1: mov eax,[msg_fault_sel+ebx4 - 0x084]	201	.l1: mov eax,[msg_fault_sel+ebx4 - 0x084]
202	DEBUGF 1, "K : %s\n", eax	202	DEBUGF 1, "K : %s\n", eax
203	mov eax, [reg_cs3+4]	203	mov eax, [reg_cs3+4]
204	mov edi, msg_sel_app	204	mov edi, msg_sel_app
205	mov ebx, [reg_esp3+4]	205	mov ebx, [reg_esp3+4]
206	cmp eax, app_code	206	cmp eax, app_code
207	je @f	207	je @f
208	mov edi, msg_sel_ker	208	mov edi, msg_sel_ker
209	mov ebx, [reg_esp0+4]	209	mov ebx, [reg_esp0+4]
210	@@: DEBUGF 1, "K : EAX : %x EBX : %x ECX : %x\n", [reg_eax+4], [reg_ebx+4], [reg_ecx+4]	210	@@: DEBUGF 1, "K : EAX : %x EBX : %x ECX : %x\n", [reg_eax+4], [reg_ebx+4], [reg_ecx+4]
211	DEBUGF 1, "K : EDX : %x ESI : %x EDI : %x\n", [reg_edx+4], [reg_esi+4], [reg_edi+4]	211	DEBUGF 1, "K : EDX : %x ESI : %x EDI : %x\n", [reg_edx+4], [reg_esi+4], [reg_edi+4]
212	DEBUGF 1, "K : EBP : %x EIP : %x ESP : %x\n", [reg_ebp+4], [reg_eip+4], ebx	212	DEBUGF 1, "K : EBP : %x EIP : %x ESP : %x\n", [reg_ebp+4], [reg_eip+4], ebx
213	DEBUGF 1, "K : Flags : %x CS : %x (%s)\n", [reg_eflags+4], eax, edi	213	DEBUGF 1, "K : Flags : %x CS : %x (%s)\n", [reg_eflags+4], eax, edi
214	ret	214	ret
215	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=	215	;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
216		216
217	restore reg_ss	217	restore reg_ss
218	restore reg_esp3	218	restore reg_esp3
219	restore reg_eflags	219	restore reg_eflags
220	restore reg_cs	220	restore reg_cs
221	restore reg_eip	221	restore reg_eip
222	restore reg_eax	222	restore reg_eax
223	restore reg_ecx	223	restore reg_ecx
224	restore reg_edx	224	restore reg_edx
225	restore reg_ebx	225	restore reg_ebx
226	restore reg_esp0	226	restore reg_esp0
227	restore reg_ebp	227	restore reg_ebp
228	restore reg_esi	228	restore reg_esi
229	restore reg_edi	229	restore reg_edi
230		230
231	; irq1 -> hid/keyboard.inc	231	; irq1 -> hid/keyboard.inc
232	macro irqh [num] {	232	macro irqh [num] {
233	p_irq#num :	233	p_irq#num :
234	mov edi, num	234	mov edi, num
235	jmp irqhandler	235	jmp irqhandler
236	}	236	}
237		237
238		238
239		239
240	p_irq6:	240	p_irq6:
241	save_ring3_context	241	save_ring3_context
242	mov ax, app_data ;os_data	242	mov ax, app_data ;os_data
243	mov ds, ax	243	mov ds, ax
244	mov es, ax	244	mov es, ax
245	mov edi, 6	245	mov edi, 6
246	cmp [v86_irqhooks+edi*8], 0	246	cmp [v86_irqhooks+edi*8], 0
247	jnz v86_irq2	247	jnz v86_irq2
248	call fdc_irq	248	call fdc_irq
249	call ready_for_next_irq	249	call ready_for_next_irq
250	restore_ring3_context	250	restore_ring3_context
251	iret	251	iret
252		252
253		253
254	p_irq14:	254	p_irq14:
255	save_ring3_context	255	save_ring3_context
256	mov ax, app_data ;os_data	256	mov ax, app_data ;os_data
257	mov ds, ax	257	mov ds, ax
258	mov es, ax	258	mov es, ax
259	mov edi, 14	259	mov edi, 14
260	cmp [v86_irqhooks+edi*8], 0	260	cmp [v86_irqhooks+edi*8], 0
261	jnz v86_irq2	261	jnz v86_irq2
262	; mov byte [BOOT_VAR + 0x48E], 0xFF	262	; mov byte [BOOT_VAR + 0x48E], 0xFF
263	call [irq14_func]	263	call [irq14_func]
264	call ready_for_next_irq_1	264	call ready_for_next_irq_1
265	restore_ring3_context	265	restore_ring3_context
266	iret	266	iret
267	p_irq15:	267	p_irq15:
268	save_ring3_context	268	save_ring3_context
269	mov ax, app_data ;os_data	269	mov ax, app_data ;os_data
270	mov ds, ax	270	mov ds, ax
271	mov es, ax	271	mov es, ax
272	mov edi, 15	272	mov edi, 15
273	cmp [v86_irqhooks+edi*8], 0	273	cmp [v86_irqhooks+edi*8], 0
274	jnz v86_irq2	274	jnz v86_irq2
275	; mov byte [BOOT_VAR + 0x48E], 0xFF	275	; mov byte [BOOT_VAR + 0x48E], 0xFF
276	call [irq15_func]	276	call [irq15_func]
277	call ready_for_next_irq_1	277	call ready_for_next_irq_1
278	restore_ring3_context	278	restore_ring3_context
279	iret	279	iret
280		280
281	ready_for_next_irq:	281	ready_for_next_irq:
282	mov eax,5	282	mov eax,5
283	mov [check_idle_semaphore],eax	283	mov [check_idle_semaphore],eax
284	; mov al, 0x20	284	; mov al, 0x20
285	add eax,(0x20-0x5)	285	add eax,(0x20-0x5)
286		286
287	out 0x20, al	287	out 0x20, al
288	ret	288	ret
289	;destroy eax	289	;destroy eax
290	ready_for_next_irq_1:	290	ready_for_next_irq_1:
291	mov eax,5	291	mov eax,5
292	mov [check_idle_semaphore],eax	292	mov [check_idle_semaphore],eax
293	; mov al, 0x20	293	; mov al, 0x20
294	add eax,(0x20-0x5)	294	add eax,(0x20-0x5)
295	out 0xa0,al	295	out 0xa0,al
296	out 0x20, al	296	out 0x20, al
297	ret	297	ret
298		298
299	irqD:	299	irqD:
300	push eax	300	push eax
301	xor eax,eax	301	xor eax,eax
302	out 0xf0,al	302	out 0xf0,al
303	mov al,0x20	303	mov al,0x20
304	out 0xa0,al	304	out 0xa0,al
305	out 0x20,al	305	out 0x20,al
306	pop eax	306	pop eax
307	iret	307	iret
308		308
309		309
310	irqh 2,3,4,5,7,8,9,10,11	310	irqh 2,3,4,5,7,8,9,10,11
311		311
312	irqhandler:	312	irqhandler:
313		313
314	mov esi,edi ; 1	314	mov esi,edi ; 1
315	shl esi,6 ; 1	315	shl esi,6 ; 1
316	add esi,irq00read ; 1	316	add esi,irq00read ; 1
317	shl edi,12 ; 1	317	shl edi,12 ; 1
318	add edi,IRQ_SAVE	318	add edi,IRQ_SAVE
319	mov ecx,16	319	mov ecx,16
320		320
321	irqnewread:	321	irqnewread:
322	dec ecx	322	dec ecx
323	js irqover	323	js irqover
324		324
325	movzx edx, word [esi] ; 2+	325	movzx edx, word [esi] ; 2+
326		326
327	test edx, edx ; 1	327	test edx, edx ; 1
328	jz irqover	328	jz irqover
329		329
330		330
331	mov ebx, [edi] ; address of begin of buffer in edi ; + 0x0 dword - data size	331	mov ebx, [edi] ; address of begin of buffer in edi ; + 0x0 dword - data size
332	mov eax, 4000 ; + 0x4 dword - data begin offset	332	mov eax, 4000 ; + 0x4 dword - data begin offset
333	cmp ebx, eax	333	cmp ebx, eax
334	je irqfull	334	je irqfull
335	add ebx, [edi + 0x4] ; add data size to data begin offset	335	add ebx, [edi + 0x4] ; add data size to data begin offset
336	cmp ebx, eax ; if end of buffer, begin cycle again	336	cmp ebx, eax ; if end of buffer, begin cycle again
337	jb @f	337	jb @f
338		338
339	xor ebx, ebx	339	xor ebx, ebx
340		340
341	@@:	341	@@:
342	add ebx, edi	342	add ebx, edi
343	movzx eax, byte[esi + 3] ; get type of data being received 1 - byte, 2 - word	343	movzx eax, byte[esi + 3] ; get type of data being received 1 - byte, 2 - word
344	dec eax	344	dec eax
345	jz irqbyte	345	jz irqbyte
346	dec eax	346	dec eax
347	jnz noirqword	347	jnz noirqword
348		348
349	in ax,dx	349	in ax,dx
350	cmp ebx, 3999 ; check for address odd in the end of buffer	350	cmp ebx, 3999 ; check for address odd in the end of buffer
351	jne .odd	351	jne .odd
352	mov [ebx + 0x10], ax	352	mov [ebx + 0x10], ax
353	jmp .add_size	353	jmp .add_size
354	.odd:	354	.odd:
355	mov [ebx + 0x10], al ; I could make mistake here :)	355	mov [ebx + 0x10], al ; I could make mistake here :)
356	mov [edi + 0x10], ah	356	mov [edi + 0x10], ah
357	.add_size:	357	.add_size:
358	add dword [edi], 2	358	add dword [edi], 2
359	jmp nextport	359	jmp nextport
360		360
361		361
362	irqbyte:	362	irqbyte:
363	in al,dx	363	in al,dx
364	mov [ebx + 0x10],al	364	mov [ebx + 0x10],al
365	inc dword [edi]	365	inc dword [edi]
366	nextport:	366	nextport:
367	add esi,4	367	add esi,4
368	jmp irqnewread	368	jmp irqnewread
369		369
370		370
371	noirqword:	371	noirqword:
372	irqfull:	372	irqfull:
373	irqover:	373	irqover:
374		374
375	ret	375	ret
376		376
377		377
378		378
379	set_application_table_status:	379	set_application_table_status:
380	push eax	380	push eax
381		381
382	mov eax,[CURRENT_TASK]	382	mov eax,[CURRENT_TASK]
383	shl eax, 5	383	shl eax, 5
384	add eax,CURRENT_TASK+TASKDATA.pid	384	add eax,CURRENT_TASK+TASKDATA.pid
385	mov eax,[eax]	385	mov eax,[eax]
386		386
387	mov [application_table_status],eax	387	mov [application_table_status],eax
388		388
389	pop eax	389	pop eax
390		390
391	ret	391	ret
392		392
393		393
394	clear_application_table_status:	394	clear_application_table_status:
395	push eax	395	push eax
396		396
397	mov eax,[CURRENT_TASK]	397	mov eax,[CURRENT_TASK]
398	shl eax, 5	398	shl eax, 5
399	add eax,CURRENT_TASK+TASKDATA.pid	399	add eax,CURRENT_TASK+TASKDATA.pid
400	mov eax,[eax]	400	mov eax,[eax]
401		401
402	cmp eax,[application_table_status]	402	cmp eax,[application_table_status]
403	jne apptsl1	403	jne apptsl1
404	xor eax,eax	404	xor eax,eax
405	mov [application_table_status],eax	405	mov [application_table_status],eax
406	apptsl1:	406	apptsl1:
407		407
408	pop eax	408	pop eax
409		409
410	ret	410	ret
411		411
412	; * eax = 64 - íîìåð ôóíêöèè	412	; * eax = 64 - íîìåð ôóíêöèè
413	; * ebx = 1 - åäèíñòâåííàÿ ïîäôóíêöèÿ	413	; * ebx = 1 - åäèíñòâåííàÿ ïîäôóíêöèÿ
414	; * ecx = íîâûé ðàçìåð ïàìÿòè	414	; * ecx = íîâûé ðàçìåð ïàìÿòè
415	;Âîçâðàùàåìîå çíà÷åíèå:	415	;Âîçâðàùàåìîå çíà÷åíèå:
416	; * eax = 0 - óñïåøíî	416	; * eax = 0 - óñïåøíî
417	; * eax = 1 - íåäîñòàòî÷íî ïàìÿòè	417	; * eax = 1 - íåäîñòàòî÷íî ïàìÿòè
418		418
419	sys_resize_app_memory:	419	sys_resize_app_memory:
420	; ebx = 1 - resize	420	; ebx = 1 - resize
421	; ecx = new amount of memory	421	; ecx = new amount of memory
422		422
423	; cmp eax,1	423	; cmp eax,1
424	dec ebx	424	dec ebx
425	jnz .no_application_mem_resize	425	jnz .no_application_mem_resize
426	stdcall new_mem_resize, ecx	426	stdcall new_mem_resize, ecx
427	mov [esp+32], eax	427	mov [esp+32], eax
428	.no_application_mem_resize:	428	.no_application_mem_resize:
429	ret	429	ret
430		430
431	iglobal	431	iglobal
432	; process_terminating db 'K : Process - terminating',13,10,0	432	; process_terminating db 'K : Process - terminating',13,10,0
433	; process_terminated db 'K : Process - done',13,10,0	433	; process_terminated db 'K : Process - done',13,10,0
434	msg_obj_destroy db 'K : destroy app object',13,10,0	434	msg_obj_destroy db 'K : destroy app object',13,10,0
435	endg	435	endg
436		436
437	; param	437	; param
438	; esi= slot	438	; esi= slot
439		439
440	terminate: ; terminate application	440	terminate: ; terminate application
441		441
442	.slot equ esp ;locals	442	.slot equ esp ;locals
443		443
444	push esi ;save .slot	444	push esi ;save .slot
445		445
446	shl esi, 8	446	shl esi, 8
447	cmp [SLOT_BASE+esi+APPDATA.dir_table], 0	447	cmp [SLOT_BASE+esi+APPDATA.dir_table], 0
448	jne @F	448	jne @F
449	pop esi	449	pop esi
450	shl esi, 5	450	shl esi, 5
451	mov [CURRENT_TASK+esi+TASKDATA.state], 9	451	mov [CURRENT_TASK+esi+TASKDATA.state], 9
452	ret	452	ret
453	@@:	453	@@:
454	;mov esi,process_terminating	454	;mov esi,process_terminating
455	;call sys_msg_board_str	455	;call sys_msg_board_str
456	@@:	456	@@:
457	cli	457	cli
458	cmp [application_table_status],0	458	cmp [application_table_status],0
459	je term9	459	je term9
460	sti	460	sti
461	call change_task	461	call change_task
462	jmp @b	462	jmp @b
463	term9:	463	term9:
464	call set_application_table_status	464	call set_application_table_status
465		465
466	; if the process is in V86 mode...	466	; if the process is in V86 mode...
467	mov eax, [.slot]	467	mov eax, [.slot]
468	shl eax, 8	468	shl eax, 8
469	mov esi, [eax+SLOT_BASE+APPDATA.pl0_stack]	469	mov esi, [eax+SLOT_BASE+APPDATA.pl0_stack]
470	add esi, RING0_STACK_SIZE	470	add esi, RING0_STACK_SIZE
471	cmp [eax+SLOT_BASE+APPDATA.saved_esp0], esi	471	cmp [eax+SLOT_BASE+APPDATA.saved_esp0], esi
472	jz .nov86	472	jz .nov86
473	; ...it has page directory for V86 mode	473	; ...it has page directory for V86 mode
474	mov esi, [eax+SLOT_BASE+APPDATA.saved_esp0]	474	mov esi, [eax+SLOT_BASE+APPDATA.saved_esp0]
475	mov ecx, [esi+4]	475	mov ecx, [esi+4]
476	mov [eax+SLOT_BASE+APPDATA.dir_table], ecx	476	mov [eax+SLOT_BASE+APPDATA.dir_table], ecx
477	; ...and I/O permission map for V86 mode	477	; ...and I/O permission map for V86 mode
478	mov ecx, [esi+12]	478	mov ecx, [esi+12]
479	mov [eax+SLOT_BASE+APPDATA.io_map], ecx	479	mov [eax+SLOT_BASE+APPDATA.io_map], ecx
480	mov ecx, [esi+8]	480	mov ecx, [esi+8]
481	mov [eax+SLOT_BASE+APPDATA.io_map+4], ecx	481	mov [eax+SLOT_BASE+APPDATA.io_map+4], ecx
482	.nov86:	482	.nov86:
483		483
484	mov esi, [.slot]	484	mov esi, [.slot]
485	shl esi,8	485	shl esi,8
486	add esi, SLOT_BASE+APP_OBJ_OFFSET	486	add esi, SLOT_BASE+APP_OBJ_OFFSET
487	@@:	487	@@:
488	mov eax, [esi+APPOBJ.fd]	488	mov eax, [esi+APPOBJ.fd]
489	test eax, eax	489	test eax, eax
490	jz @F	490	jz @F
491		491
492	cmp eax, esi	492	cmp eax, esi
493	je @F	493	je @F
494		494
495	push esi	495	push esi
496	call [eax+APPOBJ.destroy]	496	call [eax+APPOBJ.destroy]
497	DEBUGF 1,"%s",msg_obj_destroy	497	DEBUGF 1,"%s",msg_obj_destroy
498	pop esi	498	pop esi
499	jmp @B	499	jmp @B
500	@@:	500	@@:

Subversion Repositories Kolibri OS

(root)/kernel/branches/net/core/sys32.inc – Rev 1376 → 1514