WebSVN – Kolibri OS – Diff – /kernel/trunk/core/sys32.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                               ;;
;;  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 exc_wo_code [num]
{
  forward
  e#num :
      mov bl, num
      jmp exc_c
}
 
macro exc_w_code [num]
{
  forward
  e#num :
      add esp, 4
      mov bl, num
      jmp exc_c
}
 
exc_wo_code 0, 1, 2, 3, 4, 5, 6, 9, 15, 16 ; 18, 19
exc_w_code 8, 10, 11, 12, 13, 14, 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
 
        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 :
     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   edi,6
     ;call  irqhandler
     mov   al, 0x20
     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

Rev 20	Rev 22
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; MenuetOS process management, protected ring3 ;;	3	;; MenuetOS process management, protected ring3 ;;
4	;; ;;	4	;; ;;
5	;; Distributed under GPL. See file COPYING for details. ;;	5	;; Distributed under GPL. See file COPYING for details. ;;
6	;; Copyright 2003 Ville Turjanmaa ;;	6	;; Copyright 2003 Ville Turjanmaa ;;
7	;; ;;	7	;; ;;
8	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	8	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9		9
10	align 32	10	align 32
11		11
12	; GDT TABLE	12	; GDT TABLE
13		13
14	gdts:	14	gdts:
15		15
16	dw gdte-$-1	16	dw gdte-$-1
17	dd gdts	17	dd gdts
18	dw 0	18	dw 0
19		19
20	int_code_l:	20	int_code_l:
21	os_code_l:	21	os_code_l:
22		22
23	dw 0xffff	23	dw 0xffff
24	dw 0x0000	24	dw 0x0000
25	db 0x00	25	db 0x00
26	dw 11011111b *256 +10011010b	26	dw 11011111b *256 +10011010b
27	db 0x00	27	db 0x00
28		28
29	int_data_l:	29	int_data_l:
30	os_data_l:	30	os_data_l:
31		31
32	dw 0xffff	32	dw 0xffff
33	dw 0x0000	33	dw 0x0000
34	db 0x00	34	db 0x00
35	dw 11011111b *256 +10010010b	35	dw 11011111b *256 +10010010b
36	db 0x00	36	db 0x00
37		37
38	app_code_l:	38	app_code_l:
39	dw ((0x80000000-std_application_base_address) shr 12) and 0xffff	39	dw ((0x80000000-std_application_base_address) shr 12) and 0xffff
40	dw 0	40	dw 0
41	db 0	41	db 0
42	dw 11010000b256+11111010b+256((0x80000000-std_application_base_address) shr 28)	42	dw 11010000b256+11111010b+256((0x80000000-std_application_base_address) shr 28)
43	db std_application_base_address shr 24	43	db std_application_base_address shr 24
44		44
45	app_data_l:	45	app_data_l:
46	dw (0x80000000-std_application_base_address) shr 12 and 0xffff	46	dw (0x80000000-std_application_base_address) shr 12 and 0xffff
47	dw 0	47	dw 0
48	db 0	48	db 0
49	dw 11010000b256+11110010b+256((0x80000000-std_application_base_address) shr 28)	49	dw 11010000b256+11110010b+256((0x80000000-std_application_base_address) shr 28)
50	db std_application_base_address shr 24	50	db std_application_base_address shr 24
51		51
52	graph_data_l:	52	graph_data_l:
53		53
54	dw 0x3ff	54	dw 0x3ff
55	dw 0x0000	55	dw 0x0000
56	db 0x00	56	db 0x00
57	dw 11010000b *256 +11110010b	57	dw 11010000b *256 +11110010b
58	db 0x00	58	db 0x00
59		59
60	tss0_l:	60	tss0_l:
61	times (max_processes+10) dd 0,0	61	times (max_processes+10) dd 0,0
62		62
63	gdte:	63	gdte:
64		64
65		65
66		66
67	idtreg:	67	idtreg:
68	dw 8*0x41-1	68	dw 8*0x41-1
69	dd idts+8	69	dd idts+8
70	label idts at 0xB100-8	70	label idts at 0xB100-8
71		71
72		72
73		73
74	uglobal	74	uglobal
75	tss_sceleton:	75	tss_sceleton:
76	l.back dw 0,0	76	l.back dw 0,0
77	l.esp0 dd 0	77	l.esp0 dd 0
78	l.ss0 dw 0,0	78	l.ss0 dw 0,0
79	l.esp1 dd 0	79	l.esp1 dd 0
80	l.ss1 dw 0,0	80	l.ss1 dw 0,0
81	l.esp2 dd 0	81	l.esp2 dd 0
82	l.ss2 dw 0,0	82	l.ss2 dw 0,0
83	l.cr3 dd 0	83	l.cr3 dd 0
84	l.eip dd 0	84	l.eip dd 0
85	l.eflags dd 0	85	l.eflags dd 0
86	l.eax dd 0	86	l.eax dd 0
87	l.ecx dd 0	87	l.ecx dd 0
88	l.edx dd 0	88	l.edx dd 0
89	l.ebx dd 0	89	l.ebx dd 0
90	l.esp dd 0	90	l.esp dd 0
91	l.ebp dd 0	91	l.ebp dd 0
92	l.esi dd 0	92	l.esi dd 0
93	l.edi dd 0	93	l.edi dd 0
94	l.es dw 0,0	94	l.es dw 0,0
95	l.cs dw 0,0	95	l.cs dw 0,0
96	l.ss dw 0,0	96	l.ss dw 0,0
97	l.ds dw 0,0	97	l.ds dw 0,0
98	l.fs dw 0,0	98	l.fs dw 0,0
99	l.gs dw 0,0	99	l.gs dw 0,0
100	l.ldt dw 0,0	100	l.ldt dw 0,0
101	l.trap dw 0	101	l.trap dw 0
102	l.io dw 0	102	l.io dw 0
103	endg	103	endg
104		104
105		105
106	build_process_gdt_tss_pointer:	106	build_process_gdt_tss_pointer:
107		107
108	mov ecx,tss_data	108	mov ecx,tss_data
109	mov edi,0	109	mov edi,0
110	setgdtl2:	110	setgdtl2:
111	mov [edi+gdts+ tss0 +0], word tss_step	111	mov [edi+gdts+ tss0 +0], word tss_step
112	mov [edi+gdts+ tss0 +2], cx	112	mov [edi+gdts+ tss0 +2], cx
113	mov eax,ecx	113	mov eax,ecx
114	shr eax,16	114	shr eax,16
115	mov [edi+gdts+ tss0 +4], al	115	mov [edi+gdts+ tss0 +4], al
116	mov [edi+gdts+ tss0 +7], ah	116	mov [edi+gdts+ tss0 +7], ah
117	mov [edi+gdts+ tss0 +5], word 01010000b *256 +11101001b	117	mov [edi+gdts+ tss0 +5], word 01010000b *256 +11101001b
118	add ecx,tss_step	118	add ecx,tss_step
119	add edi,8	119	add edi,8
120	cmp edi,8*(max_processes+5)	120	cmp edi,8*(max_processes+5)
121	jbe setgdtl2	121	jbe setgdtl2
122		122
123	ret	123	ret
124		124
125		125
126	build_interrupt_table:	126	build_interrupt_table:
127		127
128	mov edi, idts+8	128	mov edi, idts+8
129	mov esi, sys_int	129	mov esi, sys_int
130	mov ecx, 0x40	130	mov ecx, 0x40
131	@@:	131	@@:
132	mov eax, [esi]	132	mov eax, [esi]
133	mov [edi], ax ; lower part of offset	133	mov [edi], ax ; lower part of offset
134	mov [edi+2], word os_code ; segment selector	134	mov [edi+2], word os_code ; segment selector
135	shr eax, 16	135	shr eax, 16
136	mov [edi+4], word 10001110b shl 8 ; interrupt descriptor	136	mov [edi+4], word 10001110b shl 8 ; interrupt descriptor
137	mov [edi+6], ax	137	mov [edi+6], ax
138	add esi, 4	138	add esi, 4
139	add edi, 8	139	add edi, 8
140	dec ecx	140	dec ecx
141	jnz @b	141	jnz @b
142		142
143	;mov edi,8*0x40+idts+8	143	;mov edi,8*0x40+idts+8
144	mov [edi + 0], word (i40 and ((1 shl 16)-1))	144	mov [edi + 0], word (i40 and ((1 shl 16)-1))
145	mov [edi + 2], word os_code	145	mov [edi + 2], word os_code
146	mov [edi + 4], word 11101110b*256	146	mov [edi + 4], word 11101110b*256
147	mov [edi + 6], word (i40 shr 16)	147	mov [edi + 6], word (i40 shr 16)
148		148
149	ret	149	ret
150		150
151		151
152		152
153	iglobal	153	iglobal
154	sys_int:	154	sys_int:
155	dd e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12,e13,e14,e15	155	dd e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12,e13,e14,e15
156	dd e16,e17	156	dd e16,e17
157	times 14 dd unknown_interrupt	157	times 14 dd unknown_interrupt
158		158
159	dd irq0 ,irq1 ,p_irq2 ,p_irq3 ,p_irq4 ,p_irq5,p_irq6 ,p_irq7	159	dd irq0 ,irq1 ,p_irq2 ,p_irq3 ,p_irq4 ,p_irq5,p_irq6 ,p_irq7
160	dd p_irq8,p_irq9,p_irq10,p_irq11,p_irq12,irqD ,p_irq14,p_irq15	160	dd p_irq8,p_irq9,p_irq10,p_irq11,p_irq12,irqD ,p_irq14,p_irq15
161		161
162	times 16 dd unknown_interrupt	162	times 16 dd unknown_interrupt
163		163
164	dd i40	164	dd i40
165	endg	165	endg
166		166
167	; simply return control to interrupted process	167	; simply return control to interrupted process
168	unknown_interrupt:	168	unknown_interrupt:
169	iret	169	iret
170		170
171	macro exceptions [num]	171	macro exc_wo_code [num]
172	{	172	{
173	forward	173	forward
174	e#num :	174	e#num :
175	mov bl, num	175	mov bl, num
176	jmp exc_c	176	jmp exc_c
177	}	177	}
-		178
-		179	macro exc_w_code [num]
-		180	{
-		181	forward
-		182	e#num :
-		183	add esp, 4
-		184	mov bl, num
-		185	jmp exc_c
-		186	}
178		187
-		188	exc_wo_code 0, 1, 2, 3, 4, 5, 6, 9, 15, 16 ; 18, 19
-		189	exc_w_code 8, 10, 11, 12, 13, 14, 17
179	exceptions 0, 1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17	190
180	exc_c:	191	exc_c:
181	mov ax, os_data	192	mov ax, os_data
182	mov ds, ax	193	mov ds, ax
183	mov es, ax	194	mov es, ax
184		195
185	movzx eax, bl	196	movzx eax, bl
186	mov [error_interrupt], eax	197	mov [error_interrupt], eax
187	call show_error_parameters	198	call show_error_parameters
188		199
189	mov edx, [0x3010]	200	mov edx, [0x3010]
190	mov [edx + 0xA], byte 4	201	mov [edx + 0xA], byte 4
191		202
192	jmp change_task	203	jmp change_task
193		204
194		205
195	;;;;;;;;;;;;;;;;;;;;;;;	206	;;;;;;;;;;;;;;;;;;;;;;;
196	;; FPU ERROR HANDLER ;;	207	;; FPU ERROR HANDLER ;;
197	;;;;;;;;;;;;;;;;;;;;;;;	208	;;;;;;;;;;;;;;;;;;;;;;;
198		209
199	align 4	210	align 4
200	e7:	211	e7:
201	clts	212	clts
202		213
203	push eax	214	push eax
204	push ds es	215	push ds es
205		216
206	mov ax, os_data	217	mov ax, os_data
207	mov ds, ax	218	mov ds, ax
208	mov es, ax	219	mov es, ax
209		220
210	mov eax, [prev_user_of_fpu]	221	mov eax, [prev_user_of_fpu]
211	shl eax, 8	222	shl eax, 8
212	add eax, 0x80000 + 0x10	223	add eax, 0x80000 + 0x10
213	fsave [eax]	224	fsave [eax]
214		225
215	mov eax, [0x3000]	226	mov eax, [0x3000]
216	mov [prev_user_of_fpu], eax	227	mov [prev_user_of_fpu], eax
217	shl eax, 8	228	shl eax, 8
218	add eax, 0x80000	229	add eax, 0x80000
219	cmp [eax + 0x7f], byte 0	230	cmp [eax + 0x7f], byte 0
220	je @f	231	je @f
221	frstor [eax+0x10]	232	frstor [eax+0x10]
222	@@:	233	@@:
223	mov [eax + 0x7f], byte 1	234	mov [eax + 0x7f], byte 1
224		235
225	pop es ds	236	pop es ds
226	pop eax	237	pop eax
227		238
228	iret	239	iret
229		240
230	iglobal	241	iglobal
231	prev_user_of_fpu dd 1	242	prev_user_of_fpu dd 1
232	endg	243	endg
233		244
234		245
235	writehex:	246	writehex:
236	pusha	247	pusha
237		248
238	mov edi, [write_error_to]	249	mov edi, [write_error_to]
239	mov esi, 8	250	mov esi, 8
240	@@:	251	@@:
241	mov ecx, eax	252	mov ecx, eax
242	and ecx, 0xf	253	and ecx, 0xf
243		254
244	mov cl,[ecx+hexletters]	255	mov cl,[ecx+hexletters]
245	mov [edi],cl	256	mov [edi],cl
246	dec edi	257	dec edi
247		258
248	shr eax,4	259	shr eax,4
249	dec esi	260	dec esi
250	jnz @b	261	jnz @b
251		262
252	popa	263	popa
253	ret	264	ret
254		265
255	iglobal	266	iglobal
256	hexletters db '0123456789ABCDEF'	267	hexletters db '0123456789ABCDEF'
257		268
258	error_interrupt dd -1	269	error_interrupt dd -1
259		270
260	process_error db 'K : Process - forced terminate INT: 00000000',13,10,0	271	process_error db 'K : Process - forced terminate INT: 00000000',13,10,0
261	process_pid db 'K : Process - forced terminate PID: 00000000',13,10,0	272	process_pid db 'K : Process - forced terminate PID: 00000000',13,10,0
262	process_eip db 'K : Process - forced terminate EIP: 00000000',13,10,0	273	process_eip db 'K : Process - forced terminate EIP: 00000000',13,10,0
263	system_error db 'K : Kernel error',13,10,0	274	system_error db 'K : Kernel error',13,10,0
264	endg	275	endg
265		276
266	uglobal	277	uglobal
267	write_error_to dd 0x0	278	write_error_to dd 0x0
268	endg	279	endg
269		280
270	show_error_parameters:	281	show_error_parameters:
271		282
272	mov [write_error_to],process_pid+43	283	mov [write_error_to],process_pid+43
273	mov eax,[0x3000]	284	mov eax,[0x3000]
274	shl eax, 5	285	shl eax, 5
275	mov eax,[0x3000+4+eax]	286	mov eax,[0x3000+4+eax]
276	call writehex	287	call writehex
277		288
278	mov [write_error_to],process_error+43	289	mov [write_error_to],process_error+43
279	mov eax,[error_interrupt]	290	mov eax,[error_interrupt]
280	call writehex	291	call writehex
281		292
282	cmp dword [esp+4+4], os_code ; CS	293	cmp dword [esp+4+4], os_code ; CS
283	jnz @f	294	jnz @f
284	mov esi,system_error	295	mov esi,system_error
285	call sys_msg_board_str	296	call sys_msg_board_str
286	@@:	297	@@:
287	mov eax, [esp+4] ; EIP	298	mov eax, [esp+4] ; EIP
288		299
289	mov [write_error_to],process_eip+43	300	mov [write_error_to],process_eip+43
290	call writehex	301	call writehex
291		302
292	mov esi,process_error	303	mov esi,process_error
293	call sys_msg_board_str	304	call sys_msg_board_str
294		305
295	mov esi,process_pid	306	mov esi,process_pid
296	call sys_msg_board_str	307	call sys_msg_board_str
297		308
298	mov esi,process_eip	309	mov esi,process_eip
299	call sys_msg_board_str	310	call sys_msg_board_str
300		311
301	ret	312	ret
302		313
303		314
304		315
305	; irq1 -> hid/keyboard.inc	316	; irq1 -> hid/keyboard.inc
306		317
307		318
308	macro irqh [num]	319	macro irqh [num]
309	{	320	{
310	forward	321	forward
311	p_irq#num :	322	p_irq#num :
312	pushad	323	pushad
313	mov edi, num	324	mov edi, num
314	jmp irq_c	325	jmp irq_c
315	}	326	}
316		327
317	irqh 2,3,4,5,7,8,9,10,11,12,14,15	328	irqh 2,3,4,5,7,8,9,10,11,12,14,15
318		329
319	irq_c:	330	irq_c:
320	push ds es	331	push ds es
321	mov ax, os_data	332	mov ax, os_data
322	mov ds, ax	333	mov ds, ax
323	mov es, ax	334	mov es, ax
324	call irqhandler	335	call irqhandler
325	pop es ds	336	pop es ds
326	popad	337	popad
327	iret	338	iret
328		339
329	p_irq6:	340	p_irq6:
330	pushad	341	pushad
331	push ds es	342	push ds es
332	mov ax, os_data	343	mov ax, os_data
333	mov ds, ax	344	mov ds, ax
334	mov es, ax	345	mov es, ax
335	call fdc_irq	346	call fdc_irq
336		347
337	mov edi,6	348	;mov edi,6
-		349	;call irqhandler
-		350	mov al, 0x20
338	call irqhandler	351	out 0x20, al
339		352
340	pop es ds	353	pop es ds
341	popad	354	popad
342	iret	355	iret
343		356
344	irqD:	357	irqD:
345	pushad	358	pushad
346	push ds es	359	push ds es
347	mov ax, os_data	360	mov ax, os_data
348	mov ds, ax	361	mov ds, ax
349	mov es, ax	362	mov es, ax
350		363
351	mov dx,0xf0	364	mov dx,0xf0
352	mov al,0	365	mov al,0
353	out dx,al	366	out dx,al
354		367
355	mov dx,0xa0	368	mov dx,0xa0
356	mov al,0x20	369	mov al,0x20
357	out dx,al	370	out dx,al
358	mov dx,0x20	371	mov dx,0x20
359	out dx,al	372	out dx,al
360		373
361	pop es ds	374	pop es ds
362	popad	375	popad
363	iret	376	iret
364		377
365		378
366	irqhandler:	379	irqhandler:
367		380
368	push edi	381	push edi
369		382
370	mov esi,edi ; 1	383	mov esi,edi ; 1
371	shl esi,6 ; 1	384	shl esi,6 ; 1
372	add esi,irq00read ; 1	385	add esi,irq00read ; 1
373	shl edi,12 ; 1	386	shl edi,12 ; 1
374	add edi,0x2E0000	387	add edi,0x2E0000
375		388
376	mov [check_idle_semaphore],5	389	mov [check_idle_semaphore],5
377		390
378	irqnewread:	391	irqnewread:
379		392
380	mov dx,[esi] ; 2+	393	mov dx,[esi] ; 2+
381		394
382	cmp dx,0 ; 1	395	cmp dx,0 ; 1
383	jz irqover	396	jz irqover
384	cmp [esi+3],byte 1 ; 2 ; byte read	397	cmp [esi+3],byte 1 ; 2 ; byte read
385	jne noirqbyte ; 4-11	398	jne noirqbyte ; 4-11
386		399
387	in al,dx	400	in al,dx
388		401
389	mov edx,[edi]	402	mov edx,[edi]
390	cmp edx,4000	403	cmp edx,4000
391	je irqfull	404	je irqfull
392	mov ebx,edi	405	mov ebx,edi
393	add ebx,0x10	406	add ebx,0x10
394	add ebx,edx	407	add ebx,edx
395	mov [ebx],al	408	mov [ebx],al
396	inc edx	409	inc edx
397	mov [edi],edx	410	mov [edi],edx
398		411
399	add esi,4	412	add esi,4
400	jmp irqnewread	413	jmp irqnewread
401		414
402	noirqbyte:	415	noirqbyte:
403		416
404		417
405	cmp [esi+3],byte 2 ; word read	418	cmp [esi+3],byte 2 ; word read
406	jne noirqword	419	jne noirqword
407		420
408	in ax,dx	421	in ax,dx
409		422
410	mov edx,[edi]	423	mov edx,[edi]
411	cmp edx,4000	424	cmp edx,4000
412	je irqfull	425	je irqfull
413	mov ebx,edi	426	mov ebx,edi
414	add ebx,0x10	427	add ebx,0x10
415	add ebx,edx	428	add ebx,edx
416	mov [ebx],ax	429	mov [ebx],ax
417	add edx,2	430	add edx,2
418	mov [edi],edx	431	mov [edi],edx
419	add esi,4	432	add esi,4
420	jmp irqnewread	433	jmp irqnewread
421		434
422	noirqword:	435	noirqword:
423	irqfull:	436	irqfull:
424	irqover:	437	irqover:
425		438
426	mov al,0x20 ; ready for next irq	439	mov al,0x20 ; ready for next irq
427	out 0x20,al	440	out 0x20,al
428		441
429	pop ebx	442	pop ebx
430	cmp ebx,7	443	cmp ebx,7
431	jbe noa0	444	jbe noa0
432	out 0xa0,al	445	out 0xa0,al
433	noa0:	446	noa0:
434		447
435	ret	448	ret
436		449
437		450
438		451
439	set_application_table_status:	452	set_application_table_status:
440	push eax	453	push eax
441		454
442	mov eax,[0x3000]	455	mov eax,[0x3000]
443	shl eax, 5	456	shl eax, 5
444	add eax,0x3000+4	457	add eax,0x3000+4
445	mov eax,[eax]	458	mov eax,[eax]
446		459
447	mov [application_table_status],eax	460	mov [application_table_status],eax
448		461
449	pop eax	462	pop eax
450		463
451	ret	464	ret
452		465
453		466
454	clear_application_table_status:	467	clear_application_table_status:
455	push eax	468	push eax
456		469
457	mov eax,[0x3000]	470	mov eax,[0x3000]
458	shl eax, 5	471	shl eax, 5
459	add eax,0x3000+4	472	add eax,0x3000+4
460	mov eax,[eax]	473	mov eax,[eax]
461		474
462	cmp eax,[application_table_status]	475	cmp eax,[application_table_status]
463	jne apptsl1	476	jne apptsl1
464	mov [application_table_status],0	477	mov [application_table_status],0
465	apptsl1:	478	apptsl1:
466		479
467	pop eax	480	pop eax
468		481
469	ret	482	ret
470		483
471		484
472		485
473	sys_resize_app_memory:	486	sys_resize_app_memory:
474	; eax = 1 - resize	487	; eax = 1 - resize
475	; ebx = new amount of memory	488	; ebx = new amount of memory
476		489
477	cmp eax,1	490	cmp eax,1
478	jne .no_application_mem_resize	491	jne .no_application_mem_resize
479		492
480	jmp new_mem_resize ;resize for new type of processes	493	jmp new_mem_resize ;resize for new type of processes
481		494
482		495
483	.no_application_mem_resize:	496	.no_application_mem_resize:
484		497
485	ret	498	ret
486		499
487		500

Subversion Repositories Kolibri OS

(root)/kernel/trunk/core/sys32.inc @ 321 – Rev 20 → 22