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

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 $Revision: 982 $
-align 4
-idtreg:
      dw   8*0x41-1
-     dd   idts+8
-build_interrupt_table:
+align 4 ;3A08
 build_interrupt_table:
-	mov    edi, idts+8
-	mov    esi, sys_int
-	mov    ecx, 0x40
+        mov     edi, idts
-     @@:
+        mov     esi, sys_int
-	lodsd
+        mov     ecx, 0x40
-	mov    [edi],	ax	     ; lower part of offset
+        mov     eax, (10001110b shl 24) + os_code
-	mov    [edi+2], word os_code ; segment selector
-	mov	ax, word 10001110b shl 8	; type: interrupt gate
+  @@:   movsw   ;low word of code-entry
-	mov	[edi+4], eax
-	add    edi, 8
-	loop	@b
+        stosd   ;interrupt gate type : os_code selector
+        movsw   ;high word of code-entry
-	;mov    edi,8*0x40+idts+8
+        loop    @b
-	mov	dword [edi], (i40 and 0xFFFF) or (os_code shl 16)
+        movsd   ;copy low  dword of trap gate for int 0x40
-	mov	dword [edi+4], (11101111b shl 8) or (i40 and 0xFFFF0000)
+        movsd   ;copy high dword of trap gate for int 0x40
-						; type: trap gate
-	ret
+        lidt    [esi]
-iglobal
         ret
-  msg_sel_ker	db "kernel", 0
-  msg_sel_app	db "application", 0
+iglobal
-  sys_int:
+  align 4
-    dd e0,debug_exc,e2,e3
-    dd e4,e5,e6,e7
+  sys_int:
-    dd e8,e9,e10,e11
+    ;exception handlers addresses (for interrupt gate construction)
+        dd      e0,e1,e2,e3,e4,e5,e6,except_7 ; SEE: core/fpu.inc
-    dd e12,e13,page_fault_handler,e15
+        dd      e8,e9,e10,e11,e12,e13,page_fault_exc,e15
         dd      e16, e17,e18, e19
-    dd except_16, e17,e18, except_19
+        times   12 dd unknown_interrupt ;int_20..int_31
     times 12 dd unknown_interrupt
+    ;interrupt handlers addresses (for interrupt gate construction)
-    dd	 irq0, irq_serv.irq_1, irq_serv.irq_2
+        dd      irq0, irq_serv.irq_1, irq_serv.irq_2
-if USE_COM_IRQ
+    if  USE_COM_IRQ
-    dd	 irq_serv.irq_3, irq_serv.irq_4
+        dd      irq_serv.irq_3, irq_serv.irq_4
-else
+    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
-    dd	 p_irq3, p_irq4
+  msg_exc_b     db "Segment not present", 0
-end if
-    dd	 irq_serv.irq_5,  p_irq6,	  irq_serv.irq_7
+  msg_exc_c     db "Stack fault", 0
-    dd	 irq_serv.irq_8,  irq_serv.irq_9, irq_serv.irq_10
+  msg_exc_d     db "General protection fault", 0
-    dd	 irq_serv.irq_11, irq_serv.irq_12,irqD ,p_irq14,p_irq15
   msg_exc_e     db "Page fault", 0
     times 16 dd unknown_interrupt
+  msg_sel_ker   db "kernel", 0
-    dd	 i40
-endg
+  msg_sel_app   db "application", 0
-macro save_ring3_context
-{
-    pushad
-}
-macro restore_ring3_context
-{
+endg
-    popad
-}
-; simply return control to interrupted process
+macro save_ring3_context {
-unknown_interrupt:
+        pushad
      iret
+macro restore_ring3_context {
-macro exc_wo_code [num]
+        popad
-{
-  forward
   e#num :
-      save_ring3_context
+macro exc_wo_code [num] {
-      mov bl, num
+  e#num :
-      jmp exc_c
+        save_ring3_context
         mov     bl, num
+        jmp     exc_c
-macro exc_w_code [num]
-{
-  forward
+} exc_wo_code   0,1,2,3,4,5,6,15,16,19
-  e#num :
-      add esp, 4
-      save_ring3_context
+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
-      mov bl, num
+  reg_ecx       equ esp+0x18
-      jmp exc_c
+  reg_edx       equ esp+0x14
   reg_ebx       equ esp+0x10
+  reg_esp0      equ esp+0x0C
-exc_wo_code 0, 2, 3, 4, 5, 6, 9, 15, 18
+  reg_ebp       equ esp+0x08
-exc_w_code 8, 10, 11, 12, 13, 14, 17
+  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?
-exc_c:
+        test    byte[reg_eflags+2],2
-	mov   ax, app_data  ;èñêëþ÷åíèå
+        jnz     v86_exc_c
-	mov   ds, ax	    ;çàãðóçèì ïðàâèëüíûå çíà÷åíè
+        cmp     bl,14           ; #PF
-	mov   es, ax	    ;â ðåãèñòðû
+        jne     @f
         call    page_fault_handler ; SEE: core/memory.inc
-; redirect to V86 manager? (EFLAGS & 0x20000) != 0?
-	test	byte [esp+20h+8+2], 2
-	jnz	v86_exc_c
+  @@:   mov     esi, [current_slot]
-; test if debugging
+        btr     [esi+APPDATA.except_mask], ebx
-	cli
+        jnc     @f
-	mov   eax, [current_slot]
-	mov   eax, [eax+APPDATA.debugger_slot]
+        mov     eax,[esi+APPDATA.exc_handler]
-	test  eax, eax
-	jnz   .debug
+        test    eax, eax
-	sti
+        jnz     IRetToUserHook
-; not debuggee => say error and terminate
+  @@:   cli
+        mov     eax, [esi+APPDATA.debugger_slot]
-	movzx eax, bl
+        test    eax, eax
+        jnz     .debug
+        sti
-	mov   [error_interrupt], eax
+; not debuggee => say error and terminate
-	call  show_error_parameters
+        call    show_error_parameters ;; only ONE using, inline ???
-	add   esp, 0x20
+       ;mov     edx, [TASK_BASE]
-	mov   edx, [TASK_BASE]
+        mov     [edx + TASKDATA.state], byte 4 ; terminate
-	mov   [edx + TASKDATA.state], byte 4
+        jmp     change_task     ; stack - here it does not matter at all, SEE: core/shed.inc
+.debug:
-	jmp   change_task
+; we are debugged process, notify debugger and suspend ourself
+; eax=debugger PID
-.debug:
+        mov     ecx,1           ; debug_message code=other_exception
+        cmp     bl,1            ; #DB
-; we are debugged process, notify debugger and suspend ourself
+        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
-; eax=debugger PID
+        jc      @f
-	cld
+        and     bl, cl
-	movzx ecx, bl
+  @@:   sar     cl,1
-	push  ecx
+        jc      .l1
-	mov   ecx, [TASK_BASE]
+        mov     cl, 3           ; debug_message code=debug_exception
-	push  dword [ecx+TASKDATA.pid]	  ; PID of current process
+.notify:
-	push  12
+        push    ebx             ; debug_message data
+        mov     ebx, [TASK_BASE]
-	pop   ecx
+        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
-	push  1        ; 1=exception
+        mov     edx, [TASK_BASE]
-	call  debugger_notify
+        mov     byte [edx+TASKDATA.state], 1 ; suspended
-	pop   ecx
+        call    change_task     ; SEE: core/shed.inc
-	pop   ecx
+        restore_ring3_context
-	pop   ecx
+        iretd
-	mov   edx, [TASK_BASE]
-	mov   byte [edx+TASKDATA.state], 1	  ; suspended
-	call  change_task
-	restore_ring3_context
+IRetToUserHook:
-	iretd
-iglobal
-	hexletters	db '0123456789ABCDEF'
-	error_interrupt dd  -1
+        xchg    eax, [reg_eip]
-endg
-;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-show_error_parameters:
-    mov eax,[CURRENT_TASK]
+        sub     dword[reg_esp3], 8
-    shl eax, 5
-    DEBUGF  1, "K : Process - forced terminate PID: %x\n", [CURRENT_TASK + TASKDATA.pid + eax]
-    mov eax, [error_interrupt]
-    cmp al, 0x08
-    jne @f
+        mov     edi, [reg_esp3]
-    DEBUGF  1, "K : Double fault\n"
-    jmp defined_error
-@@:
-    cmp al, 0x0a
-    jne @f
+        stosd
-    DEBUGF  1, "K : Invalid TSS\n"
-    jmp defined_error
+        mov     [edi], ebx
-@@:
-    cmp al, 0x0b
-    jne @f
-    DEBUGF  1, "K : Segment not present\n"
-    jmp defined_error
+        restore_ring3_context
-@@:
-    cmp al, 0x0c
-    jne @f
-    DEBUGF  1, "K : Stack fault\n"
-    jmp defined_error
-@@:
-    cmp al, 0x0d
-    jne @f
-    DEBUGF  1, "K : General protection fault\n"
+unknown_interrupt:
-    jmp defined_error
+        iretd
-@@:
-    cmp al, 0x0e
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-    jne @f
+show_error_parameters:
-    DEBUGF  1, "K : Page fault\n"
+        mov     edx,[TASK_BASE] ;not scratched below
-    jmp defined_error
+        DEBUGF  1, "K : Process - forced terminate PID: %x\n", [edx+TASKDATA.pid]
-@@:
+        cmp     bl, 0x08
+        jb      .l0
+        cmp     bl, 0x0e
-    DEBUGF  1, "K : Undefined Exception\n"
+        jbe     .l1
-defined_error:
+  .l0:  mov     bl, 0x09
-    DEBUGF  1, "K : EAX : %x EBX : %x ECX : %x\n", [esp + 0x20], [esp - 12 + 0x20], [esp - 4 + 0x20]
+  .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
-    DEBUGF  1, "K : EDX : %x ESI : %x EDI : %x\n", [esp - 8 + 0x20], [esp - 24 + 0x20], [esp - 28 + 0x20]
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-    DEBUGF  1, "K : EBP : %x EIP : %x ", [esp - 20 + 0x20], [esp + 4 + 0x20]
-    mov eax, [esp + 8 + 0x20]
-    mov edi, msg_sel_app
+  restore  reg_ss
-    mov ebx, [esp + 16 + 0x20]
+  restore  reg_esp3
-    cmp eax, app_code
+  restore  reg_eflags
-    je	@f
+  restore  reg_cs
-    mov edi, msg_sel_ker
-    mov ebx, [esp - 16 + 0x20]
+  restore  reg_eip
-@@:
+  restore  reg_eax
-    DEBUGF  1, "ESP : %x\nK : Flags : %x CS : %x (%s)\n", ebx, [esp + 12 + 0x20], eax, edi
+  restore  reg_ecx
-     out    0xa0,al
+        out     0xa0,al
-     out   0x20, al
+        out     0x20, al
-     ret
+        ret
-irqD:
-     save_ring3_context
-     mov   ax, app_data  ;os_data
-     mov   ds, ax
+irqD:
-     mov   es, ax
-     mov   dx,0xf0
+        push  eax
-     mov   al,0
+        mov   al,0
-     out   dx,al
-     mov   dx,0xa0
+        out   0xf0,al
-     mov   al,0x20
+        mov   al,0x20
-     out   dx,al
+        out   0xa0,al
-     mov   dx,0x20
+        out   0x20,al
-     out   dx,al
-     restore_ring3_context
         pop   eax
+        iret
      iret
 irqh 2,3,4,5,7,8,9,10,11
 irqhandler:
+;
 ; on return : eax = pid
 jmp new_sys_threads
 iglobal
-  process_terminating	db 'K : Process - terminating',13,10,0
+;  process_terminating  db 'K : Process - terminating',13,10,0
-  process_terminated	db 'K : Process - done',13,10,0
+;  process_terminated   db 'K : Process - done',13,10,0
-  msg_obj_destroy	db 'K : destroy app object',13,10,0
+  msg_obj_destroy       db 'K : destroy app object',13,10,0
 endg
-	   mov	  [CURRENT_TASK+esi+TASKDATA.state], 9
+           mov    [CURRENT_TASK+esi+TASKDATA.state], 9
-	   ret
+           ret
 @@:
-	   ;mov    esi,process_terminating
+           ;mov    esi,process_terminating
-	   ;call   sys_msg_board_str
+           ;call   sys_msg_board_str
-	   DEBUGF 1,"%s",process_terminating
 @@:
-	   cli
+           cli
-	   cmp	 [application_table_status],0
+           cmp   [application_table_status],0
-	   je	 term9
+           je    term9
-	   sti
+           sti
     mov   [DONT_DRAW_MOUSE],byte 0  ; draw mouse
     mov   [application_table_status],0
     ;mov   esi,process_terminated
-    ;call  sys_msg_board_str
-    DEBUGF 1,"%s",process_terminated
+    ;call  sys_msg_board_str
     add esp, 4
     ret
 restore .slot

Subversion Repositories Kolibri OS

(root)/kernel/branches/net/core/sys32.inc – Rev 1161 → 1198