Subversion Repositories Kolibri OS

Rev

Rev 2130 | Rev 2434 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
431 serge 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;                                                              ;;
709 diamond 3
;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;
431 serge 4
;; Distributed under terms of the GNU General Public License    ;;
5
;;                                                              ;;
6
;;                                                              ;;
7
;;  MenuetOS process management, protected ring3                ;;
8
;;                                                              ;;
9
;;  Distributed under GPL. See file COPYING for details.        ;;
10
;;  Copyright 2003 Ville Turjanmaa                              ;;
11
;;                                                              ;;
12
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1 ha 13
 
593 mikedld 14
$Revision: 2166 $
15
 
16
 
1056 Galkov 17
align 4 ;3A08
1 ha 18
build_interrupt_table:
1056 Galkov 19
        mov     edi, idts
20
        mov     esi, sys_int
21
        mov     ecx, 0x40
22
        mov     eax, (10001110b shl 24) + os_code
23
  @@:   movsw   ;low word of code-entry
24
        stosd   ;interrupt gate type : os_code selector
25
        movsw   ;high word of code-entry
26
        loop    @b
27
        movsd   ;copy low  dword of trap gate for int 0x40
28
        movsd   ;copy high dword of trap gate for int 0x40
29
        lidt    [esi]
30
        ret
1 ha 31
 
1056 Galkov 32
iglobal
33
  align 4
34
  sys_int:
35
    ;exception handlers addresses (for interrupt gate construction)
1076 Galkov 36
        dd      e0,e1,e2,e3,e4,e5,e6,except_7 ; SEE: core/fpu.inc
1056 Galkov 37
        dd      e8,e9,e10,e11,e12,e13,page_fault_exc,e15
38
        dd      e16, e17,e18, e19
39
        times   12 dd unknown_interrupt ;int_20..int_31
164 serge 40
 
1056 Galkov 41
    ;interrupt handlers addresses (for interrupt gate construction)
1638 serge 42
	; 0x20 .. 0x2F - IRQ handlers
1056 Galkov 43
        dd      irq0, irq_serv.irq_1, irq_serv.irq_2
44
        dd      irq_serv.irq_3, irq_serv.irq_4
2010 serge 45
        dd      irq_serv.irq_5,  irq_serv.irq_6,  irq_serv.irq_7
1056 Galkov 46
        dd      irq_serv.irq_8,  irq_serv.irq_9,  irq_serv.irq_10
2010 serge 47
        dd      irq_serv.irq_11, irq_serv.irq_12, irqD, irq_serv.irq_14, irq_serv.irq_15
1638 serge 48
	dd irq_serv.irq_16
49
	dd irq_serv.irq_17
50
	dd irq_serv.irq_18
51
	dd irq_serv.irq_19
52
	dd irq_serv.irq_20
53
	dd irq_serv.irq_21
54
	dd irq_serv.irq_22
55
	dd irq_serv.irq_23
1 ha 56
 
2130 serge 57
    times 32 - IRQ_RESERVED dd unknown_interrupt
1056 Galkov 58
    ;int_0x40 gate trap (for directly copied)
59
        dw      i40 and 0xFFFF, os_code, 11101111b shl 8, i40 shr 16
656 mikedld 60
 
1076 Galkov 61
  idtreg: ; data for LIDT instruction (!!! must be immediately below sys_int data)
1056 Galkov 62
        dw      2*($-sys_int-4)-1
63
        dd      idts ;0x8000B100
64
        dw      0    ;просто выравнивание
656 mikedld 65
 
1056 Galkov 66
  msg_fault_sel dd  msg_exc_8,msg_exc_u,msg_exc_a,msg_exc_b
67
                dd  msg_exc_c,msg_exc_d,msg_exc_e
164 serge 68
 
1056 Galkov 69
  msg_exc_8     db "Double fault", 0
70
  msg_exc_u     db "Undefined Exception", 0
71
  msg_exc_a     db "Invalid TSS", 0
72
  msg_exc_b     db "Segment not present", 0
73
  msg_exc_c     db "Stack fault", 0
74
  msg_exc_d     db "General protection fault", 0
75
  msg_exc_e     db "Page fault", 0
1 ha 76
 
1056 Galkov 77
  msg_sel_ker   db "kernel", 0
78
  msg_sel_app   db "application", 0
1 ha 79
 
80
endg
81
 
1056 Galkov 82
macro save_ring3_context {
83
        pushad
40 halyavin 84
}
1056 Galkov 85
macro restore_ring3_context {
86
        popad
40 halyavin 87
}
1056 Galkov 88
macro exc_wo_code [num] {
8 poddubny 89
  e#num :
1056 Galkov 90
        save_ring3_context
91
        mov     bl, num
92
        jmp     exc_c
93
} exc_wo_code   0,1,2,3,4,5,6,15,16,19
1 ha 94
 
1056 Galkov 95
macro exc_w_code [num] {
22 poddubny 96
  e#num :
1056 Galkov 97
        add     esp, 4
98
        save_ring3_context
99
        mov     bl, num
100
        jmp     exc_c
101
} exc_w_code    8,9,10,11,12,13,17,18
22 poddubny 102
 
103
 
1056 Galkov 104
uglobal
105
  pf_err_code   dd ?
106
endg
1 ha 107
 
1086 Galkov 108
page_fault_exc:                 ; дуракоусточивость: селекторы испорчены...
109
        pop     [ss:pf_err_code]; действительно до следующего #PF
1056 Galkov 110
        save_ring3_context
111
        mov     bl,14
1086 Galkov 112
 
113
exc_c:                          ; исключения (все, кроме 7-го - #NM)
1056 Galkov 114
; Фрэйм стека при исключении/прерывании из 3-го кольца + pushad (т.е., именно здесь)
115
  reg_ss        equ esp+0x30
116
  reg_esp3      equ esp+0x2C
117
  reg_eflags    equ esp+0x28
118
  reg_cs3       equ esp+0x24
119
  reg_eip       equ esp+0x20
120
 ; это фрэйм от pushad
121
  reg_eax       equ esp+0x1C
122
  reg_ecx       equ esp+0x18
123
  reg_edx       equ esp+0x14
124
  reg_ebx       equ esp+0x10
125
  reg_esp0      equ esp+0x0C
126
  reg_ebp       equ esp+0x08
127
  reg_esi       equ esp+0x04
128
  reg_edi       equ esp+0x00
129
 
2166 serge 130
	    mov	ax, app_data	    ;исключение
131
	    mov	ds, ax		        ;загрузим правильные значения
132
	    mov	es, ax		        ;в регистры
1056 Galkov 133
        cld                     ; и приводим DF к стандарту
1074 Galkov 134
        movzx   ebx,bl
709 diamond 135
; redirect to V86 manager? (EFLAGS & 0x20000) != 0?
1056 Galkov 136
        test    byte[reg_eflags+2],2
137
        jnz     v86_exc_c
138
        cmp     bl,14           ; #PF
1074 Galkov 139
        jne     @f
1076 Galkov 140
        call    page_fault_handler ; SEE: core/memory.inc
1074 Galkov 141
  @@:   mov     esi, [current_slot]
142
        btr     [esi+APPDATA.except_mask], ebx
143
        jnc     @f
144
        mov     eax,[esi+APPDATA.exc_handler]
145
        test    eax, eax
1056 Galkov 146
        jnz     IRetToUserHook
1074 Galkov 147
  @@:   cli
1056 Galkov 148
        mov     eax, [esi+APPDATA.debugger_slot]
149
        test    eax, eax
150
        jnz     .debug
151
        sti
40 halyavin 152
; not debuggee => say error and terminate
1056 Galkov 153
        call    show_error_parameters ;; only ONE using, inline ???
154
       ;mov     edx, [TASK_BASE]
155
        mov     [edx + TASKDATA.state], byte 4 ; terminate
1076 Galkov 156
        jmp     change_task     ; stack - here it does not matter at all, SEE: core/shed.inc
40 halyavin 157
.debug:
158
; we are debugged process, notify debugger and suspend ourself
159
; eax=debugger PID
1076 Galkov 160
        mov     ecx,1           ; debug_message code=other_exception
1056 Galkov 161
        cmp     bl,1            ; #DB
1076 Galkov 162
        jne     .notify         ; notify debugger and suspend ourself
163
        mov     ebx, dr6        ; debug_message data=DR6_image
164
        xor     edx, edx
165
        mov     dr6, edx
166
        mov     edx, dr7
167
        mov     cl, not 8
168
  .l1:  shl     dl,2
169
        jc      @f
170
        and     bl, cl
171
  @@:   sar     cl,1
172
        jc      .l1
173
        mov     cl, 3           ; debug_message code=debug_exception
174
.notify:
175
        push    ebx             ; debug_message data
176
        mov     ebx, [TASK_BASE]
177
        push    [ebx+TASKDATA.pid] ; PID
178
        push    ecx             ; debug_message code ((here: ecx==1/3))
179
        mov     cl, 12          ; debug_message size
180
        call    debugger_notify ;; only ONE using, inline ??? SEE: core/debug.inc
181
        add     esp,12
182
        mov     edx, [TASK_BASE]
183
        mov     byte [edx+TASKDATA.state], 1 ; suspended
184
        call    change_task     ; SEE: core/shed.inc
185
        restore_ring3_context
186
        iretd
1 ha 187
 
1056 Galkov 188
IRetToUserHook:
189
        xchg    eax, [reg_eip]
1074 Galkov 190
        sub     dword[reg_esp3], 8
1056 Galkov 191
        mov     edi, [reg_esp3]
192
        stosd
1074 Galkov 193
        mov     [edi], ebx
1056 Galkov 194
        restore_ring3_context
1638 serge 195
; simply return control to interrupted process
1056 Galkov 196
unknown_interrupt:
197
        iretd
1 ha 198
 
658 Ghost 199
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
1638 serge 200
; bl - error vector
1 ha 201
show_error_parameters:
2010 serge 202
        cmp     bl, 0x06
203
        jnz     .no_ud
204
        push    ebx
205
        mov     ebx, ud_user_message
206
        mov     ebp, notifyapp
207
        call    fs_execute_from_sysdir_param
208
        pop     ebx
209
.no_ud:
1056 Galkov 210
        mov     edx,[TASK_BASE] ;not scratched below
211
        DEBUGF  1, "K : Process - forced terminate PID: %x\n", [edx+TASKDATA.pid]
212
        cmp     bl, 0x08
213
        jb      .l0
214
        cmp     bl, 0x0e
215
        jbe     .l1
216
  .l0:  mov     bl, 0x09
1074 Galkov 217
  .l1:  mov     eax,[msg_fault_sel+ebx*4 - 0x08*4]
1056 Galkov 218
        DEBUGF  1, "K : %s\n", eax
219
        mov     eax, [reg_cs3+4]
220
        mov     edi, msg_sel_app
221
        mov     ebx, [reg_esp3+4]
222
        cmp     eax, app_code
223
        je      @f
224
        mov     edi, msg_sel_ker
225
        mov     ebx, [reg_esp0+4]
226
    @@: DEBUGF  1, "K : EAX : %x EBX : %x ECX : %x\n", [reg_eax+4], [reg_ebx+4], [reg_ecx+4]
227
        DEBUGF  1, "K : EDX : %x ESI : %x EDI : %x\n", [reg_edx+4], [reg_esi+4], [reg_edi+4]
228
        DEBUGF  1, "K : EBP : %x EIP : %x ESP : %x\n", [reg_ebp+4], [reg_eip+4], ebx
229
        DEBUGF  1, "K : Flags : %x CS : %x (%s)\n", [reg_eflags+4], eax, edi
230
        ret
658 Ghost 231
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
164 serge 232
 
1056 Galkov 233
  restore  reg_ss
234
  restore  reg_esp3
235
  restore  reg_eflags
236
  restore  reg_cs
237
  restore  reg_eip
238
  restore  reg_eax
239
  restore  reg_ecx
240
  restore  reg_edx
241
  restore  reg_ebx
242
  restore  reg_esp0
243
  restore  reg_ebp
244
  restore  reg_esi
245
  restore  reg_edi
16 poddubny 246
 
1638 serge 247
 
2106 serge 248
align 4
1 ha 249
set_application_table_status:
1056 Galkov 250
        push eax
1 ha 251
 
1056 Galkov 252
        mov  eax,[CURRENT_TASK]
253
        shl  eax, 5
254
        add  eax,CURRENT_TASK+TASKDATA.pid
255
        mov  eax,[eax]
1 ha 256
 
1056 Galkov 257
        mov  [application_table_status],eax
1 ha 258
 
1056 Galkov 259
        pop  eax
1 ha 260
 
1056 Galkov 261
        ret
1 ha 262
 
2106 serge 263
align 4
1 ha 264
clear_application_table_status:
1056 Galkov 265
        push eax
1 ha 266
 
1056 Galkov 267
        mov  eax,[CURRENT_TASK]
268
        shl  eax, 5
269
        add  eax,CURRENT_TASK+TASKDATA.pid
270
        mov  eax,[eax]
1 ha 271
 
1056 Galkov 272
        cmp  eax,[application_table_status]
273
        jne  apptsl1
1306 Lrz 274
	xor  eax,eax
275
        mov  [application_table_status],eax
1 ha 276
      apptsl1:
277
 
1056 Galkov 278
        pop  eax
1 ha 279
 
1056 Galkov 280
        ret
1 ha 281
 
1306 Lrz 282
;  * eax = 64 - номер функции
283
;  * ebx = 1 - единственная подфункция
284
;  * ecx = новый размер памяти
285
;Возвращаемое значение:
286
;  * eax = 0 - успешно
287
;  * eax = 1 - недостаточно памяти
288
 
2106 serge 289
align 4
1 ha 290
sys_resize_app_memory:
1306 Lrz 291
        ; ebx = 1 - resize
292
        ; ecx = new amount of memory
1 ha 293
 
1306 Lrz 294
;        cmp    eax,1
295
	dec	ebx
296
        jnz    .no_application_mem_resize
1307 Lrz 297
        stdcall new_mem_resize, ecx
1306 Lrz 298
        mov [esp+32], eax
164 serge 299
.no_application_mem_resize:
1056 Galkov 300
        ret
1 ha 301
 
302
iglobal
1056 Galkov 303
;  process_terminating  db 'K : Process - terminating',13,10,0
304
;  process_terminated   db 'K : Process - done',13,10,0
305
  msg_obj_destroy       db 'K : destroy app object',13,10,0
1 ha 306
endg
307
 
329 serge 308
; param
309
;  esi= slot
1 ha 310
 
2106 serge 311
align 4
1 ha 312
terminate: ; terminate application
313
 
1056 Galkov 314
           .slot equ esp   ;locals
329 serge 315
 
1056 Galkov 316
           push   esi      ;save .slot
334 serge 317
 
1056 Galkov 318
           shl esi, 8
319
           cmp [SLOT_BASE+esi+APPDATA.dir_table], 0
320
           jne @F
321
           pop    esi
322
           shl    esi, 5
323
           mov    [CURRENT_TASK+esi+TASKDATA.state], 9
324
           ret
334 serge 325
@@:
1056 Galkov 326
           ;mov    esi,process_terminating
327
           ;call   sys_msg_board_str
40 halyavin 328
@@:
1056 Galkov 329
           cli
330
           cmp   [application_table_status],0
331
           je    term9
332
           sti
333
           call  change_task
334
           jmp   @b
329 serge 335
term9:
1056 Galkov 336
           call  set_application_table_status
1 ha 337
 
709 diamond 338
; if the process is in V86 mode...
1056 Galkov 339
        mov     eax, [.slot]
340
        shl     eax, 8
341
        mov     esi, [eax+SLOT_BASE+APPDATA.pl0_stack]
342
        add     esi, RING0_STACK_SIZE
343
        cmp     [eax+SLOT_BASE+APPDATA.saved_esp0], esi
344
        jz      .nov86
709 diamond 345
; ...it has page directory for V86 mode
1056 Galkov 346
        mov     esi, [eax+SLOT_BASE+APPDATA.saved_esp0]
347
        mov     ecx, [esi+4]
348
        mov     [eax+SLOT_BASE+APPDATA.dir_table], ecx
709 diamond 349
; ...and I/O permission map for V86 mode
1056 Galkov 350
        mov     ecx, [esi+12]
351
        mov     [eax+SLOT_BASE+APPDATA.io_map], ecx
352
        mov     ecx, [esi+8]
353
        mov     [eax+SLOT_BASE+APPDATA.io_map+4], ecx
709 diamond 354
.nov86:
355
 
1056 Galkov 356
           mov esi, [.slot]
357
           shl esi,8
358
           add esi, SLOT_BASE+APP_OBJ_OFFSET
329 serge 359
@@:
1056 Galkov 360
           mov eax, [esi+APPOBJ.fd]
361
           test eax, eax
362
           jz @F
334 serge 363
 
1056 Galkov 364
           cmp eax, esi
365
           je @F
164 serge 366
 
1056 Galkov 367
           push esi
368
           call [eax+APPOBJ.destroy]
369
           DEBUGF 1,"%s",msg_obj_destroy
370
           pop esi
371
           jmp @B
329 serge 372
@@:
1311 diamond 373
 
1056 Galkov 374
           mov eax, [.slot]
375
           shl eax, 8
1311 diamond 376
           stdcall destroy_app_space, [SLOT_BASE+eax+APPDATA.dir_table], [SLOT_BASE+eax+APPDATA.dlls_list_ptr]
1 ha 377
 
1056 Galkov 378
           mov esi, [.slot]
379
           cmp [fpu_owner],esi   ; if user fpu last -> fpu user = 1
380
           jne @F
164 serge 381
 
1056 Galkov 382
           mov [fpu_owner],1
383
           mov eax, [256+SLOT_BASE+APPDATA.fpu_state]
384
           clts
385
           bt [cpu_caps], CAPS_SSE
386
           jnc .no_SSE
387
           fxrstor [eax]
388
           jmp @F
203 serge 389
.no_SSE:
1056 Galkov 390
           fnclex
391
           frstor [eax]
357 serge 392
@@:
203 serge 393
 
1056 Galkov 394
    mov   [KEY_COUNT],byte 0           ; empty keyboard buffer
395
    mov   [BTN_COUNT],byte 0           ; empty button buffer
1 ha 396
 
397
 
92 diamond 398
; remove defined hotkeys
1056 Galkov 399
        mov     eax, hotkey_list
92 diamond 400
.loop:
1056 Galkov 401
        cmp     [eax+8], esi
402
        jnz     .cont
403
        mov     ecx, [eax]
404
        jecxz   @f
405
        push    dword [eax+12]
406
        pop     dword [ecx+12]
92 diamond 407
@@:
1056 Galkov 408
        mov     ecx, [eax+12]
409
        push    dword [eax]
410
        pop     dword [ecx]
411
        xor     ecx, ecx
412
        mov     [eax], ecx
413
        mov     [eax+4], ecx
414
        mov     [eax+8], ecx
415
        mov     [eax+12], ecx
92 diamond 416
.cont:
1056 Galkov 417
        add     eax, 16
418
        cmp     eax, hotkey_list+256*16
419
        jb      .loop
92 diamond 420
; remove hotkeys in buffer
1056 Galkov 421
        mov     eax, hotkey_buffer
92 diamond 422
.loop2:
1056 Galkov 423
        cmp     [eax], esi
424
        jnz     .cont2
425
        and     dword [eax+4], 0
426
        and     dword [eax], 0
92 diamond 427
.cont2:
1056 Galkov 428
        add     eax, 8
429
        cmp     eax, hotkey_buffer+120*8
430
        jb      .loop2
92 diamond 431
 
1056 Galkov 432
    mov   ecx,esi                 ; remove buttons
1 ha 433
  bnewba2:
381 serge 434
    mov   edi,[BTN_ADDR]
1 ha 435
    mov   eax,edi
436
    cld
437
    movzx ebx,word [edi]
438
    inc   bx
439
  bnewba:
440
    dec   bx
1056 Galkov 441
    jz    bnmba
1 ha 442
    add   eax,0x10
443
    cmp   cx,[eax]
444
    jnz   bnewba
445
    pusha
446
    mov   ecx,ebx
447
    inc   ecx
448
    shl   ecx,4
449
    mov   ebx,eax
450
    add   eax,0x10
451
    call  memmove
452
    dec   dword [edi]
453
    popa
454
    jmp   bnewba2
455
  bnmba:
456
 
457
    pusha     ; save window coordinates for window restoring
458
    cld
459
    shl   esi,5
460
    add   esi,window_data
114 mikedld 461
    mov   eax,[esi+WDATA.box.left]
1362 mikedld 462
    mov   [draw_limits.left],eax
114 mikedld 463
    add   eax,[esi+WDATA.box.width]
1362 mikedld 464
    mov   [draw_limits.right],eax
114 mikedld 465
    mov   eax,[esi+WDATA.box.top]
1362 mikedld 466
    mov   [draw_limits.top],eax
114 mikedld 467
    add   eax,[esi+WDATA.box.height]
1362 mikedld 468
    mov   [draw_limits.bottom],eax
1 ha 469
 
142 diamond 470
    xor   eax, eax
471
    mov   [esi+WDATA.box.left],eax
472
    mov   [esi+WDATA.box.width],eax
114 mikedld 473
    mov   [esi+WDATA.box.top],eax
142 diamond 474
    mov   [esi+WDATA.box.height],eax
115 poddubny 475
    mov   [esi+WDATA.cl_workarea],eax
476
    mov   [esi+WDATA.cl_titlebar],eax
477
    mov   [esi+WDATA.cl_frames],eax
478
    mov   dword [esi+WDATA.reserved],eax ; clear all flags: wstate, redraw, wdrawn
102 poddubny 479
    lea   edi, [esi-window_data+draw_data]
1 ha 480
    mov   ecx,32/4
481
    rep   stosd
482
    popa
483
 
40 halyavin 484
; debuggee test
485
    pushad
486
    mov  edi, esi
487
    shl  edi, 5
380 serge 488
    mov  eax, [SLOT_BASE+edi*8+APPDATA.debugger_slot]
40 halyavin 489
    test eax, eax
1056 Galkov 490
    jz   .nodebug
40 halyavin 491
    push 8
492
    pop  ecx
1056 Galkov 493
    push dword [CURRENT_TASK+edi+TASKDATA.pid]   ; PID
40 halyavin 494
    push 2
495
    call debugger_notify
496
    pop  ecx
497
    pop  ecx
498
.nodebug:
499
    popad
500
 
1056 Galkov 501
           mov ebx, [.slot]
502
           shl ebx, 8
503
           push ebx
504
           mov ebx,[SLOT_BASE+ebx+APPDATA.pl0_stack]
1 ha 505
 
1056 Galkov 506
           stdcall kernel_free, ebx
1 ha 507
 
1056 Galkov 508
           pop ebx
509
           mov ebx,[SLOT_BASE+ebx+APPDATA.cur_dir]
510
           stdcall kernel_free, ebx
521 diamond 511
 
1056 Galkov 512
           mov edi, [.slot]
513
           shl edi,8
514
           add edi,SLOT_BASE
465 serge 515
 
1056 Galkov 516
           mov eax, [edi+APPDATA.io_map]
1310 diamond 517
           cmp eax, [SLOT_BASE+256+APPDATA.io_map]
1056 Galkov 518
           je @F
519
           call free_page
465 serge 520
@@:
1056 Galkov 521
           mov eax, [edi+APPDATA.io_map+4]
1310 diamond 522
           cmp eax, [SLOT_BASE+256+APPDATA.io_map+4]
1056 Galkov 523
           je @F
524
           call free_page
465 serge 525
@@:
1056 Galkov 526
           mov eax, 0x20202020
527
           stosd
528
           stosd
529
           stosd
530
           mov ecx,244/4
531
           xor eax, eax
532
           rep stosd
1 ha 533
 
102 poddubny 534
  ; activate window
1056 Galkov 535
        movzx  eax, word [WIN_STACK + esi*2]
536
        cmp    eax, [TASK_COUNT]
537
        jne    .dont_activate
538
        pushad
102 poddubny 539
 .check_next_window:
1056 Galkov 540
        dec    eax
541
        cmp    eax, 1
542
        jbe    .nothing_to_activate
543
        lea    esi, [WIN_POS+eax*2]
544
        movzx  edi, word [esi]               ; edi = process
545
        shl    edi, 5
546
        cmp    [CURRENT_TASK + edi + TASKDATA.state], byte 9  ; skip dead slots
547
        je     .check_next_window
548
        add    edi, window_data
154 diamond 549
; \begin{diamond}[19.09.2006]
550
; skip minimized windows
1056 Galkov 551
        test   [edi + WDATA.fl_wstate], WSTATE_MINIMIZED
552
        jnz    .check_next_window
154 diamond 553
; \end{diamond}
1056 Galkov 554
        call   waredraw
102 poddubny 555
 .nothing_to_activate:
1056 Galkov 556
        popad
102 poddubny 557
 .dont_activate:
558
 
1056 Galkov 559
        push    esi     ; remove hd1 & cd & flp reservation
560
        shl     esi, 5
561
        mov     esi, [esi+CURRENT_TASK+TASKDATA.pid]
562
        cmp     [hd1_status], esi
563
        jnz     @f
564
        call    free_hd_channel
1306 Lrz 565
        and     [hd1_status], 0
92 diamond 566
@@:
1056 Galkov 567
        cmp     [cd_status], esi
568
        jnz     @f
569
        call    free_cd_channel
1306 Lrz 570
        and     [cd_status], 0
92 diamond 571
@@:
1056 Galkov 572
        cmp     [flp_status], esi
573
        jnz     @f
1306 Lrz 574
        and     [flp_status], 0
92 diamond 575
@@:
1056 Galkov 576
        pop     esi
577
        cmp     [bgrlockpid], esi
578
        jnz     @f
579
        and     [bgrlockpid], 0
1306 Lrz 580
        and     [bgrlock], 0
546 diamond 581
@@:
1 ha 582
 
1056 Galkov 583
    pusha                     ; remove all port reservations
1 ha 584
    mov   edx,esi
115 poddubny 585
    shl   edx, 5
379 serge 586
    add   edx,CURRENT_TASK
115 poddubny 587
    mov   edx,[edx+TASKDATA.pid]
1 ha 588
 
589
  rmpr0:
590
 
381 serge 591
    mov   esi,[RESERVED_PORTS]
1 ha 592
 
1306 Lrz 593
    test  esi,esi
594
    jz    rmpr9
1 ha 595
 
596
  rmpr3:
597
 
598
    mov   edi,esi
599
    shl   edi,4
381 serge 600
    add   edi,RESERVED_PORTS
1 ha 601
 
602
    cmp   edx,[edi]
1056 Galkov 603
    je    rmpr4
1 ha 604
 
605
    dec   esi
606
    jnz   rmpr3
607
 
608
    jmp   rmpr9
609
 
610
  rmpr4:
611
 
612
    mov   ecx,256
613
    sub   ecx,esi
614
    shl   ecx,4
615
 
616
    mov   esi,edi
617
    add   esi,16
618
    cld
619
    rep   movsb
620
 
381 serge 621
    dec   dword [RESERVED_PORTS]
1 ha 622
 
623
    jmp   rmpr0
624
 
625
  rmpr9:
626
 
627
    popa
1056 Galkov 628
    mov  edi,esi         ; do not run this process slot
6 poddubny 629
    shl  edi, 5
379 serge 630
    mov  [edi+CURRENT_TASK + TASKDATA.state],byte 9
40 halyavin 631
; debugger test - terminate all debuggees
632
    mov  eax, 2
380 serge 633
    mov  ecx, SLOT_BASE+2*0x100+APPDATA.debugger_slot
40 halyavin 634
.xd0:
379 serge 635
    cmp  eax, [TASK_COUNT]
1056 Galkov 636
    ja   .xd1
40 halyavin 637
    cmp  dword [ecx], esi
638
    jnz  @f
639
    and  dword [ecx], 0
640
    pushad
684 diamond 641
    xchg eax, ecx
642
    mov  ebx, 2
40 halyavin 643
    call sys_system
644
    popad
645
@@:
646
    inc  eax
647
    add  ecx, 0x100
648
    jmp  .xd0
649
.xd1:
1 ha 650
;    call  systest
651
    sti  ; .. and life goes on
652
 
1362 mikedld 653
    mov   eax, [draw_limits.left]
654
    mov   ebx, [draw_limits.top]
655
    mov   ecx, [draw_limits.right]
656
    mov   edx, [draw_limits.bottom]
1 ha 657
    call  calculatescreen
658
    xor   eax, eax
659
    xor   esi, esi
660
    call  redrawscreen
661
 
381 serge 662
    mov   [MOUSE_BACKGROUND],byte 0  ; no mouse background
663
    mov   [DONT_DRAW_MOUSE],byte 0  ; draw mouse
1 ha 664
 
1306 Lrz 665
    and   [application_table_status],0
506 mikedld 666
    ;mov   esi,process_terminated
667
    ;call  sys_msg_board_str
357 serge 668
    add esp, 4
1 ha 669
    ret
345 serge 670
restore .slot
1 ha 671
 
672
iglobal
2130 serge 673
if lang eq ru
674
  boot_sched_1    db   '‘®§¤ ­ЁҐ GDT TSS гЄ § вҐ«п',0
675
  boot_sched_2    db   '‘®§¤ ­ЁҐ IDT в Ў«Ёжл',0
676
else
1056 Galkov 677
  boot_sched_1    db   'Building gdt tss pointer',0
678
  boot_sched_2    db   'Building IDT table',0
2130 serge 679
end if
1 ha 680
endg
681
 
682
 
683
build_scheduler:
684
 
1056 Galkov 685
        mov    esi,boot_sched_1
686
        call   boot_log
465 serge 687
  ;      call   build_process_gdt_tss_pointer
1 ha 688
 
465 serge 689
  ;      mov    esi,boot_sched_2
690
  ;      call   boot_log
1 ha 691
 
1056 Galkov 692
        ret