Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
2288 clevermous 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;
8858 rgimad 3
;; Copyright (C) KolibriOS team 2004-2021. All rights reserved.
2288 clevermous 4
;; PROGRAMMING:
5
;; Ivan Poddubny
6
;; Marat Zakiyanov (Mario79)
7
;; VaStaNi
8
;; Trans
9
;; Mihail Semenyako (mike.dld)
10
;; Sergey Kuzmin (Wildwest)
11
;; Andrey Halyavin (halyavin)
12
;; Mihail Lisovin (Mihasik)
13
;; Andrey Ignatiev (andrew_programmer)
14
;; NoName
15
;; Evgeny Grechnikov (Diamond)
16
;; Iliya Mihailov (Ghost)
17
;; Sergey Semyonov (Serge)
18
;; Johnny_B
19
;; SPraid (simba)
20
;; Hidnplayr
21
;; Alexey Teplov ()
22
;; Rus
23
;; Nable
24
;; shurf
25
;; Alver
26
;; Maxis
27
;; Galkov
28
;; CleverMouse
29
;; tsdima
30
;; turbanoff
31
;; Asper
32
;; art_zh
8858 rgimad 33
;; dunkaist
34
;; Coldy
35
;; rgimad
36
;; Boppan
37
;; Doczom
38
;; and others
2288 clevermous 39
;;
40
;; Data in this file was originally part of MenuetOS project which is
41
;; distributed under the terms of GNU GPL. It is modified and redistributed as
42
;; part of KolibriOS project under the terms of GNU GPL.
43
;;
44
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
45
;; PROGRAMMING:
46
;;
47
;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
48
;; - main os coding/design
49
;; Jan-Michael Brummer, BUZZ2@gmx.de
50
;; Felix Kaiser, info@felix-kaiser.de
51
;; Paolo Minazzi, paolo.minazzi@inwind.it
52
;; quickcode@mail.ru
53
;; Alexey, kgaz@crosswinds.net
54
;; Juan M. Caravaca, bitrider@wanadoo.es
55
;; kristol@nic.fi
56
;; Mike Hibbett, mikeh@oceanfree.net
57
;; Lasse Kuusijarvi, kuusijar@lut.fi
58
;; Jarek Pelczar, jarekp3@wp.pl
59
;;
60
;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
61
;; WARRANTY. No author or distributor accepts responsibility to anyone for the
62
;; consequences of using it or for whether it serves any particular purpose or
63
;; works at all, unless he says so in writing. Refer to the GNU General Public
64
;; License (the "GPL") for full details.
65
;
66
;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
67
;; but only under the conditions described in the GPL. A copy of this license
68
;; is supposed to have been given to you along with KolibriOS so you can know
69
;; your rights and responsibilities. It should be in a file named COPYING.
70
;; Among other things, the copyright notice and this notice must be preserved
71
;; on all copies.
72
;;
73
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
74
 
3383 hidnplayr 75
format binary as "mnt"
76
 
2288 clevermous 77
include 'macros.inc'
2381 hidnplayr 78
include 'struct.inc'
2288 clevermous 79
 
80
$Revision: 9045 $
81
 
82
 
7136 dunkaist 83
USE_COM_IRQ     = 1      ; make irq 3 and irq 4 available for PCI devices
84
VESA_1_2_VIDEO  = 0      ; enable vesa 1.2 bank switch functions
2288 clevermous 85
 
86
; Enabling the next line will enable serial output console
7136 dunkaist 87
;debug_com_base  = 0x3f8  ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used
2288 clevermous 88
 
89
include "proc32.inc"
90
include "kglobals.inc"
91
include "lang.inc"
3539 clevermous 92
include "encoding.inc"
2288 clevermous 93
 
94
include "const.inc"
3777 yogev_ezra 95
 
96
iglobal
97
; The following variable, if equal to 1, duplicates debug output to the screen.
98
debug_direct_print db 0
99
; Start the first app (LAUNCHER) after kernel is loaded? (1=yes, 2 or 0=no)
100
launcher_start db 1
101
endg
102
 
7136 dunkaist 103
max_processes  =  255
104
tss_step       =  128 + 8192 ; tss & i/o - 65535 ports, * 256=557056*4
2288 clevermous 105
 
7136 dunkaist 106
os_stack       =  os_data_l - gdts    ; GDTs
107
os_code        =  os_code_l - gdts
108
graph_data     =  3 + graph_data_l - gdts
109
tss0           =  tss0_l - gdts
110
app_code       =  3 + app_code_l - gdts
111
app_data       =  3 + app_data_l - gdts
112
app_tls        =  3 + tls_data_l - gdts
113
pci_code_sel   =  pci_code_32-gdts
114
pci_data_sel   =  pci_data_32-gdts
2288 clevermous 115
 
116
 
117
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
118
;;
119
;;   Included files:
120
;;
121
;;   Kernel16.inc
122
;;    - Booteng.inc   English text for bootup
123
;;    - Bootcode.inc  Hardware setup
124
;;    - Pci16.inc     PCI functions
125
;;
126
;;   Kernel32.inc
127
;;    - Sys32.inc     Process management
128
;;    - Shutdown.inc  Shutdown and restart
129
;;    - Fat32.inc     Read / write hd
130
;;    - Vesa12.inc    Vesa 1.2 driver
131
;;    - Vesa20.inc    Vesa 2.0 driver
132
;;    - Vga.inc       VGA driver
133
;;    - Stack.inc     Network interface
134
;;    - Mouse.inc     Mouse pointer
135
;;    - Scincode.inc  Window skinning
136
;;    - Pci32.inc     PCI functions
137
;;
138
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
139
 
7129 dunkaist 140
; In bios boot mode the kernel code below is appended to bootbios.bin file.
141
; That is a loading and initialization code that also draws the blue screen
142
; menu with svn revision number near top right corner of the screen. This fasm
143
; preprocessor code searches for '****' signature inside bootbios.bin and
144
; places revision number there.
145
if ~ defined UEFI
146
  bootbios:
8091 dunkaist 147
  if ~ defined extended_primary_loader
148
    file 'bootbios.bin'
149
  else
150
    file 'bootbios.bin.ext_loader'
151
  end if
7129 dunkaist 152
  if __REV__ > 0
153
    cur_pos = 0
154
    cnt = 0
155
    repeat $ - bootbios
156
      load a byte from %
157
      if a = '*'
158
        cnt = cnt + 1
159
      else
160
        cnt = 0
161
      end if
162
      if cnt = 4
163
        cur_pos = % - 1
164
        break
165
      end if
166
    end repeat
167
    store byte ' ' at cur_pos + 1
168
    rev_var = __REV__
169
    while rev_var > 0
170
      store byte rev_var mod 10 + '0' at cur_pos
171
      cur_pos = cur_pos - 1
172
      rev_var = rev_var / 10
173
    end while
174
      store byte ' ' at cur_pos
175
      store dword ' SVN' at cur_pos - 4
176
  end if
3287 esevece 177
end if
2288 clevermous 178
 
179
use32
180
org $+0x10000
181
 
182
align 4
183
B32:
184
        mov     ax, os_stack       ; Selector for os
185
        mov     ds, ax
186
        mov     es, ax
187
        mov     fs, ax
188
        mov     gs, ax
189
        mov     ss, ax
6244 serge 190
        mov     esp, TMP_STACK_TOP       ; Set stack
2288 clevermous 191
 
192
; CLEAR 0x280000 - HEAP_BASE
193
 
194
        xor     eax, eax
195
        mov     edi, CLEAN_ZONE
196
        mov     ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4
197
        cld
198
        rep stosd
199
 
200
; CLEAR KERNEL UNDEFINED GLOBALS
201
        mov     edi, endofcode-OS_BASE
202
        mov     ecx, 0x90000
203
        sub     ecx, edi
204
        shr     ecx, 2
205
        rep stosd
206
 
207
; SAVE & CLEAR 0-0xffff
208
 
209
        mov     edi, 0x1000
3732 Serge 210
        mov     ecx, 0x8000 / 4
2288 clevermous 211
        rep stosd
3732 Serge 212
        mov     edi, 0xa000
213
        mov     ecx, 0x6000 / 4
214
        rep stosd
2288 clevermous 215
 
216
        call    test_cpu
217
        bts     [cpu_caps-OS_BASE], CAPS_TSC    ;force use rdtsc
218
 
8111 dunkaist 219
        call    acpi_locate
2288 clevermous 220
        call    init_BIOS32
221
; MEMORY MODEL
222
        call    mem_test
223
        call    init_mem
224
        call    init_page_map
225
 
226
; ENABLE PAGING
227
 
5130 serge 228
        mov     eax, sys_proc-OS_BASE+PROC.pdt_0
2288 clevermous 229
        mov     cr3, eax
230
 
231
        mov     eax, cr0
232
        or      eax, CR0_PG+CR0_WP
233
        mov     cr0, eax
234
 
235
        lgdt    [gdts]
236
        jmp     pword os_code:high_code
237
 
238
align 4
239
bios32_entry    dd ?
240
tmp_page_tabs   dd ?
241
use16
5033 clevermous 242
ap_init16:
243
        cli
244
        lgdt    [cs:gdts_ap-ap_init16]
245
        mov     eax, [cs:cr3_ap-ap_init16]
246
        mov     cr3, eax
247
        mov     eax, [cs:cr4_ap-ap_init16]
248
        mov     cr4, eax
249
        mov     eax, CR0_PE+CR0_PG+CR0_WP
250
        mov     cr0, eax
251
        jmp     pword os_code:ap_init_high
252
align 16
253
gdts_ap:
254
        dw     gdte-gdts-1
255
        dd     gdts
256
        dw     0
257
cr3_ap  dd     ?
258
cr4_ap  dd     ?
259
ap_init16_size = $ - ap_init16
2288 clevermous 260
use32
261
 
262
__DEBUG__ fix 1
263
__DEBUG_LEVEL__ fix 1
264
include 'init.inc'
265
 
266
org OS_BASE+$
267
 
2443 Serge 268
include 'fdo.inc'
269
 
2288 clevermous 270
align 4
271
high_code:
272
        mov     ax, os_stack
273
        mov     bx, app_data
274
        mov     cx, app_tls
275
        mov     ss, ax
276
        add     esp, OS_BASE
277
 
278
        mov     ds, bx
279
        mov     es, bx
280
        mov     fs, cx
281
        mov     gs, bx
282
 
5360 serge 283
        xor     eax, eax
284
        mov     ebx, 0xFFFFF000+PG_SHARED+PG_NOCACHE+PG_UWR
285
        bt      [cpu_caps], CAPS_PAT
286
        setc    al
287
        shl     eax, 7
288
        or      ebx, eax
289
 
5359 serge 290
        mov     eax, PG_GLOBAL
2288 clevermous 291
        bt      [cpu_caps], CAPS_PGE
292
        jnc     @F
293
 
5359 serge 294
        or      [sys_proc+PROC.pdt_0+(OS_BASE shr 20)], eax
5360 serge 295
        or      ebx, eax
2288 clevermous 296
 
5360 serge 297
        mov     eax, cr4
298
        or      eax, CR4_PGE
299
        mov     cr4, eax
2288 clevermous 300
@@:
5360 serge 301
        mov     [pte_valid_mask], ebx
302
 
2288 clevermous 303
        xor     eax, eax
5130 serge 304
        mov     dword [sys_proc+PROC.pdt_0], eax
305
        mov     dword [sys_proc+PROC.pdt_0+4], eax
2288 clevermous 306
 
307
        mov     eax, cr3
308
        mov     cr3, eax          ; flush TLB
309
 
310
        mov     ecx, pg_data.mutex
311
        call    mutex_init
312
 
313
        mov     ecx, disk_list_mutex
314
        call    mutex_init
315
 
2601 clevermous 316
        mov     ecx, keyboard_list_mutex
317
        call    mutex_init
318
 
2489 mario79 319
        mov     ecx, unpack_mutex
320
        call    mutex_init
321
 
3534 clevermous 322
        mov     ecx, application_table_mutex
323
        call    mutex_init
324
 
3742 clevermous 325
        mov     ecx, ide_mutex
326
        call    mutex_init
327
        mov     ecx, ide_channel1_mutex
328
        call    mutex_init
329
        mov     ecx, ide_channel2_mutex
330
        call    mutex_init
4700 mario79 331
        mov     ecx, ide_channel3_mutex
332
        call    mutex_init
333
        mov     ecx, ide_channel4_mutex
334
        call    mutex_init
335
        mov     ecx, ide_channel5_mutex
336
        call    mutex_init
337
        mov     ecx, ide_channel6_mutex
338
        call    mutex_init
3774 mario79 339
;-----------------------------------------------------------------------------
2288 clevermous 340
; SAVE REAL MODE VARIABLES
3774 mario79 341
;-----------------------------------------------------------------------------
2288 clevermous 342
; --------------- APM ---------------------
343
 
344
; init selectors
7132 dunkaist 345
        mov     ebx, [BOOT.apm_entry]        ; offset of APM entry point
346
        movzx   eax, word [BOOT.apm_code_32] ; real-mode segment base address of
347
                                             ; protected-mode 32-bit code segment
348
        movzx   ecx, word [BOOT.apm_code_16] ; real-mode segment base address of
349
                                             ; protected-mode 16-bit code segment
350
        movzx   edx, word [BOOT.apm_data_16] ; real-mode segment base address of
351
                                             ; protected-mode 16-bit data segment
2288 clevermous 352
 
353
        shl     eax, 4
354
        mov     [dword apm_code_32 + 2], ax
355
        shr     eax, 16
356
        mov     [dword apm_code_32 + 4], al
357
 
358
        shl     ecx, 4
359
        mov     [dword apm_code_16 + 2], cx
360
        shr     ecx, 16
361
        mov     [dword apm_code_16 + 4], cl
362
 
363
        shl     edx, 4
364
        mov     [dword apm_data_16 + 2], dx
365
        shr     edx, 16
366
        mov     [dword apm_data_16 + 4], dl
367
 
368
        mov     dword[apm_entry], ebx
369
        mov     word [apm_entry + 4], apm_code_32 - gdts
370
 
7132 dunkaist 371
        mov     eax, dword[BOOT.apm_version]   ; version & flags
2288 clevermous 372
        mov     [apm_vf], eax
373
; -----------------------------------------
7132 dunkaist 374
        mov     al, [BOOT.dma]            ; DMA access
2288 clevermous 375
        mov     [allow_dma_access], al
6263 serge 376
 
7132 dunkaist 377
        mov     al, [BOOT.debug_print]    ; If nonzero, duplicates debug output to the screen
3777 yogev_ezra 378
        mov     [debug_direct_print], al
6263 serge 379
 
7132 dunkaist 380
        mov     al, [BOOT.launcher_start] ; Start the first app (LAUNCHER) after kernel is loaded?
3777 yogev_ezra 381
        mov     [launcher_start], al
2288 clevermous 382
 
8092 dunkaist 383
        mov     eax, [BOOT.devicesdat_size]
384
        mov     [acpi_dev_size], eax
385
        mov     eax, [BOOT.devicesdat_data]
386
        mov     [acpi_dev_data], eax
387
 
7132 dunkaist 388
        mov     esi, BOOT.bios_hd
2288 clevermous 389
        movzx   ecx, byte [esi-1]
390
        mov     [NumBiosDisks], ecx
391
        mov     edi, BiosDisksData
6843 dunkaist 392
        shl     ecx, 2
2288 clevermous 393
        rep movsd
394
 
395
; -------- Fast System Call init ----------
396
; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
397
        bt      [cpu_caps], CAPS_SEP
398
        jnc     .SEnP  ; SysEnter not Present
399
        xor     edx, edx
400
        mov     ecx, MSR_SYSENTER_CS
401
        mov     eax, os_code
402
        wrmsr
403
        mov     ecx, MSR_SYSENTER_ESP
404
;           mov eax, sysenter_stack ; Check it
405
        xor     eax, eax
406
        wrmsr
407
        mov     ecx, MSR_SYSENTER_EIP
408
        mov     eax, sysenter_entry
409
        wrmsr
410
.SEnP:
411
; AMD SYSCALL/SYSRET
412
        cmp     byte[cpu_vendor], 'A'
413
        jne     .noSYSCALL
414
        mov     eax, 0x80000001
415
        cpuid
416
        test    edx, 0x800  ; bit_11 - SYSCALL/SYSRET support
417
        jz      .noSYSCALL
418
        mov     ecx, MSR_AMD_EFER
419
        rdmsr
420
        or      eax, 1 ; bit_0 - System Call Extension (SCE)
421
        wrmsr
422
 
423
        ; !!!! It`s dirty hack, fix it !!!
424
        ; Bits of EDX :
3539 clevermous 425
        ; Bit 31–16 During the SYSRET instruction, this field is copied into the CS register
2288 clevermous 426
        ;  and the contents of this field, plus 8, are copied into the SS register.
3539 clevermous 427
        ; Bit 15–0 During the SYSCALL instruction, this field is copied into the CS register
2288 clevermous 428
        ;  and the contents of this field, plus 8, are copied into the SS register.
429
 
430
        ; mov   edx, (os_code + 16) * 65536 + os_code
431
        mov     edx, 0x1B0008
432
 
433
        mov     eax, syscall_entry
434
        mov     ecx, MSR_AMD_STAR
435
        wrmsr
436
.noSYSCALL:
437
; -----------------------------------------
438
        stdcall alloc_page
5356 serge 439
        stdcall map_page, tss-0xF80, eax, PG_SWR
2288 clevermous 440
        stdcall alloc_page
5356 serge 441
        stdcall map_page, tss+0x80, eax, PG_SWR
2288 clevermous 442
        stdcall alloc_page
5356 serge 443
        stdcall map_page, tss+0x1080, eax, PG_SWR
2288 clevermous 444
 
445
; LOAD IDT
446
 
447
        call    build_interrupt_table ;lidt is executed
448
          ;lidt [idtreg]
449
 
450
        call    init_kernel_heap
7276 dunkaist 451
        call    init_fpu
452
        mov     eax, [xsave_area_size]
453
        lea     eax, [eax*2 + RING0_STACK_SIZE*2]
454
        stdcall kernel_alloc, eax
2288 clevermous 455
        mov     [os_stack_seg], eax
456
 
457
        lea     esp, [eax+RING0_STACK_SIZE]
458
 
459
        mov     [tss._ss0], os_stack
460
        mov     [tss._esp0], esp
461
        mov     [tss._esp], esp
462
        mov     [tss._cs], os_code
463
        mov     [tss._ss], os_stack
464
        mov     [tss._ds], app_data
465
        mov     [tss._es], app_data
466
        mov     [tss._fs], app_data
467
        mov     [tss._gs], app_data
468
        mov     [tss._io], 128
469
;Add IO access table - bit array of permitted ports
470
        mov     edi, tss._io_map_0
471
        xor     eax, eax
472
        not     eax
473
        mov     ecx, 8192/4
474
        rep stosd                    ; access to 4096*8=65536 ports
475
 
476
        mov     ax, tss0
477
        ltr     ax
478
 
6263 serge 479
        mov     eax, sys_proc
480
        list_init eax
481
        add     eax, PROC.thr_list
482
        list_init eax
483
 
484
        call    init_video
485
        call    init_mtrr
486
        mov     [LFBAddress], LFB_BASE
487
        mov     ecx, bios_fb
488
        call    set_framebuffer
2288 clevermous 489
        call    init_malloc
490
 
5130 serge 491
        stdcall alloc_kernel_space, 0x50000         ; FIXME check size
2288 clevermous 492
        mov     [default_io_map], eax
493
 
494
        add     eax, 0x2000
495
        mov     [ipc_tmp], eax
496
        mov     ebx, 0x1000
497
 
498
        add     eax, 0x40000
499
        mov     [proc_mem_map], eax
500
 
501
        add     eax, 0x8000
502
        mov     [proc_mem_pdir], eax
503
 
504
        add     eax, ebx
505
        mov     [proc_mem_tab], eax
506
 
507
        add     eax, ebx
508
        mov     [tmp_task_ptab], eax
509
 
510
        add     eax, ebx
511
        mov     [ipc_pdir], eax
512
 
513
        add     eax, ebx
514
        mov     [ipc_ptab], eax
515
 
516
        stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE+(unpack.LZMA_LIT_SIZE shl \
517
                (unpack.lc+unpack.lp)))*4
518
 
519
        mov     [unpack.p], eax
520
 
521
        call    init_events
2384 hidnplayr 522
        mov     eax, srv.fd-SRV.fd
2288 clevermous 523
        mov     [srv.fd], eax
524
        mov     [srv.bk], eax
525
 
526
;Set base of graphic segment to linear address of LFB
527
        mov     eax, [LFBAddress]         ; set for gs
528
        mov     [graph_data_l+2], ax
529
        shr     eax, 16
530
        mov     [graph_data_l+4], al
531
        mov     [graph_data_l+7], ah
532
 
5351 serge 533
        stdcall kernel_alloc, [_display.win_map_size]
534
        mov     [_display.win_map], eax
2288 clevermous 535
 
536
        xor     eax, eax
537
        inc     eax
538
 
539
; set background
540
 
541
        mov     [BgrDrawMode], eax
542
        mov     [BgrDataWidth], eax
543
        mov     [BgrDataHeight], eax
544
        mov     [mem_BACKGROUND], 4
545
        mov     [img_background], static_background_data
546
 
4199 mario79 547
; set clipboard
548
 
549
        xor     eax, eax
550
        mov     [clipboard_slots], eax
551
        mov     [clipboard_write_lock], eax
552
        stdcall kernel_alloc, 4096
553
        test    eax, eax
554
        jnz     @f
555
 
556
        dec     eax
557
@@:
558
        mov     [clipboard_main_list], eax
559
 
8111 dunkaist 560
        call    check_acpi
561
 
5787 serge 562
        mov     eax, [hpet_base]
563
        test    eax, eax
564
        jz      @F
565
        stdcall map_io_mem, [hpet_base], 1024, PG_GLOBAL+PAT_UC+PG_SWR
566
        mov     [hpet_base], eax
8111 dunkaist 567
        mov     eax, [eax+HPET_ID]
5787 serge 568
        DEBUGF  1, "K : HPET caps %x\n", eax
8111 dunkaist 569
        call    init_hpet
5787 serge 570
@@:
3296 clevermous 571
; SET UP OS TASK
572
 
573
        mov     esi, boot_setostask
574
        call    boot_log
575
 
6263 serge 576
        mov     edi, sys_proc+PROC.heap_lock
5595 serge 577
        mov     ecx, (PROC.ht_free-PROC.heap_lock)/4
5130 serge 578
 
5595 serge 579
        xor     eax, eax
580
        cld
581
        rep stosd
582
 
583
        mov     [edi], dword (PROC.pdt_0 - PROC.htab)/4 - 3
584
        mov     [edi+4], dword 3           ;reserve handles for stdin stdout and stderr
585
        mov     ecx, (PROC.pdt_0 - PROC.htab)/4
586
        add     edi, 8
587
        inc     eax
588
@@:
589
        stosd
590
        inc     eax
591
        cmp     eax, ecx
592
        jbe     @B
593
 
594
        mov     [sys_proc+PROC.pdt_0_phys], sys_proc-OS_BASE+PROC.pdt_0
595
 
5130 serge 596
        mov     eax, -1
597
        mov     edi, thr_slot_map+4
598
        mov     [edi-4], dword 0xFFFFFFF8
599
        stosd
600
        stosd
601
        stosd
602
        stosd
603
        stosd
604
        stosd
605
        stosd
606
 
607
        mov     [current_process], sys_proc
608
 
8093 dunkaist 609
        mov     edx, SLOT_BASE+sizeof.APPDATA*1
3534 clevermous 610
        mov     ebx, [os_stack_seg]
7276 dunkaist 611
        add     ebx, RING0_STACK_SIZE
612
        add     ebx, [xsave_area_size]
3534 clevermous 613
        call    setup_os_slot
614
        mov     dword [edx], 'IDLE'
615
        sub     [edx+APPDATA.saved_esp], 4
616
        mov     eax, [edx+APPDATA.saved_esp]
617
        mov     dword [eax], idle_thread
618
        mov     ecx, IDLE_PRIORITY
619
        call    scheduler_add_thread
3296 clevermous 620
 
8093 dunkaist 621
        mov     edx, SLOT_BASE+sizeof.APPDATA*2
3534 clevermous 622
        mov     ebx, [os_stack_seg]
623
        call    setup_os_slot
624
        mov     dword [edx], 'OS'
625
        xor     ecx, ecx
626
        call    scheduler_add_thread
3296 clevermous 627
 
8869 rgimad 628
        mov     dword [current_slot_idx], 2
8867 rgimad 629
        mov     [thread_count], 2
8093 dunkaist 630
        mov     dword [current_slot], SLOT_BASE + sizeof.APPDATA*2
8869 rgimad 631
        mov     dword [TASK_BASE], TASK_TABLE + sizeof.TASKDATA*2
3296 clevermous 632
 
5033 clevermous 633
; Move other CPUs to deep sleep, if it is useful
634
uglobal
635
use_mwait_for_idle db 0
636
endg
637
        cmp     [cpu_vendor+8], 'ntel'
638
        jnz     .no_wake_cpus
639
        bt      [cpu_caps+4], CAPS_MONITOR-32
640
        jnc     .no_wake_cpus
641
        dbgstr 'using mwait for idle loop'
642
        inc     [use_mwait_for_idle]
643
        mov     ebx, [cpu_count]
644
        cmp     ebx, 1
645
        jbe     .no_wake_cpus
646
        call    create_trampoline_pgmap
647
        mov     [cr3_ap+OS_BASE], eax
648
        mov     eax, cr4
649
        mov     [cr4_ap+OS_BASE], eax
650
        mov     esi, OS_BASE + ap_init16
651
        mov     edi, OS_BASE + 8000h
652
        mov     ecx, (ap_init16_size + 3) / 4
653
        rep movsd
8119 dunkaist 654
        mov     eax, [LAPIC_BASE]
655
        test    eax, eax
656
        jnz     @f
5359 serge 657
        stdcall map_io_mem, [acpi_lapic_base], 0x1000, PG_GLOBAL+PG_NOCACHE+PG_SWR
5033 clevermous 658
        mov     [LAPIC_BASE], eax
8119 dunkaist 659
@@:
660
        lea     edi, [eax+APIC_ICRL]
5033 clevermous 661
        mov     esi, smpt+4
662
        dec     ebx
663
.wake_cpus_loop:
664
        lodsd
5049 clevermous 665
        push    esi
666
        xor     esi, esi
667
        inc     esi
5033 clevermous 668
        shl     eax, 24
669
        mov     [edi+10h], eax
670
; assert INIT IPI
671
        mov     dword [edi], 0C500h
5049 clevermous 672
        call    delay_ms
5033 clevermous 673
@@:
674
        test    dword [edi], 1000h
675
        jnz     @b
676
; deassert INIT IPI
677
        mov     dword [edi], 8500h
5049 clevermous 678
        call    delay_ms
5033 clevermous 679
@@:
680
        test    dword [edi], 1000h
681
        jnz     @b
682
; send STARTUP IPI
683
        mov     dword [edi], 600h + (8000h shr 12)
5049 clevermous 684
        call    delay_ms
5033 clevermous 685
@@:
686
        test    dword [edi], 1000h
687
        jnz     @b
5049 clevermous 688
        pop     esi
5033 clevermous 689
        dec     ebx
690
        jnz     .wake_cpus_loop
691
        mov     eax, [cpu_count]
692
        dec     eax
693
@@:
694
        cmp     [ap_initialized], eax
695
        jnz     @b
696
        mov     eax, [cr3_ap+OS_BASE]
697
        call    free_page
698
.no_wake_cpus:
2288 clevermous 699
 
700
; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
2642 mario79 701
        mov     esi, boot_initirq
702
        call    boot_log
703
        call    init_irqs
2288 clevermous 704
 
2642 mario79 705
        mov     esi, boot_picinit
706
        call    boot_log
2288 clevermous 707
        call    PIC_init
708
 
2642 mario79 709
        mov     esi, boot_v86machine
710
        call    boot_log
2288 clevermous 711
; Initialize system V86 machine
712
        call    init_sys_v86
713
 
2642 mario79 714
        mov     esi, boot_inittimer
715
        call    boot_log
2288 clevermous 716
; Initialize system timer (IRQ0)
717
        call    PIT_init
718
 
4273 clevermous 719
; Register ramdisk file system
8091 dunkaist 720
if ~ defined extended_primary_loader
8089 dunkaist 721
        cmp     [BOOT.rd_load_from], RD_LOAD_FROM_HD    ; will be loaded later
4772 mario79 722
        je      @f
8091 dunkaist 723
end if
8089 dunkaist 724
        cmp     [BOOT.rd_load_from], RD_LOAD_FROM_NONE
725
        je      @f
726
        call    register_ramdisk
4772 mario79 727
;--------------------------------------
728
@@:
2642 mario79 729
        mov     esi, boot_initapic
730
        call    boot_log
2288 clevermous 731
; Try to Initialize APIC
732
        call    APIC_init
733
 
2642 mario79 734
        mov     esi, boot_enableirq
735
        call    boot_log
3785 mario79 736
; Enable timer IRQ (IRQ0) and co-processor IRQ (IRQ13)
2288 clevermous 737
; they are used: when partitions are scanned, hd_read relies on timer
738
        call    unmask_timer
7733 dunkaist 739
        ; Prevent duplicate timer IRQs in APIC mode
740
        cmp     [irq_mode], IRQ_APIC
741
        jz      @f
2288 clevermous 742
        stdcall enable_irq, 2               ; @#$%! PIC
7733 dunkaist 743
@@:
2288 clevermous 744
        stdcall enable_irq, 13              ; co-processor
4741 hidnplayr 745
 
746
; Setup serial output console (if enabled)
747
if defined debug_com_base
748
 
749
        ; reserve port so nobody else will use it
750
        xor     ebx, ebx
751
        mov     ecx, debug_com_base
752
        mov     edx, debug_com_base+7
753
        call    r_f_port_area
754
 
755
        ; enable Divisor latch
756
        mov     dx, debug_com_base+3
757
        mov     al, 1 shl 7
758
        out     dx, al
759
 
760
        ; Set speed to 115200 baud (max speed)
761
        mov     dx, debug_com_base
762
        mov     al, 0x01
763
        out     dx, al
764
 
765
        mov     dx, debug_com_base+1
766
        mov     al, 0x00
767
        out     dx, al
768
 
769
        ; No parity, 8bits words, one stop bit, dlab bit back to 0
770
        mov     dx, debug_com_base+3
771
        mov     al, 3
772
        out     dx, al
773
 
774
        ; disable interrupts
775
        mov     dx, debug_com_base+1
776
        mov     al, 0
777
        out     dx, al
778
 
779
        ; clear +  enable fifo (64 bits)
780
        mov     dx, debug_com_base+2
781
        mov     al, 0x7 + 1 shl 5
782
        out     dx, al
783
 
784
end if
785
 
786
 
4575 mario79 787
;-----------------------------------------------------------------------------
788
; show SVN version of kernel on the message board
789
;-----------------------------------------------------------------------------
790
        mov     eax, [version_inf.rev]
791
        DEBUGF  1, "K : kernel SVN r%d\n", eax
792
;-----------------------------------------------------------------------------
793
; show CPU count on the message board
794
;-----------------------------------------------------------------------------
795
        mov     eax, [cpu_count]
796
        test    eax, eax
797
        jnz     @F
798
        mov     al, 1                             ; at least one CPU
799
@@:
800
        DEBUGF  1, "K : %d CPU detected\n", eax
801
;-----------------------------------------------------------------------------
802
; detect Floppy drives
803
;-----------------------------------------------------------------------------
804
        mov     esi, boot_detectfloppy
805
        call    boot_log
806
include 'detect/dev_fd.inc'
807
;-----------------------------------------------------------------------------
4624 mario79 808
; create pci-devices list
4575 mario79 809
;-----------------------------------------------------------------------------
4624 mario79 810
        mov     [pci_access_enabled], 1
811
        call    pci_enum
3762 mario79 812
;-----------------------------------------------------------------------------
4624 mario79 813
; initialisation IDE ATA code
4575 mario79 814
;-----------------------------------------------------------------------------
4624 mario79 815
include 'detect/init_ata.inc'
4575 mario79 816
;-----------------------------------------------------------------------------
2288 clevermous 817
if 0
8089 dunkaist 818
        mov     ax, [BOOT.sys_disk]
2288 clevermous 819
        cmp     ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}
820
        je      no_lib_load
2642 mario79 821
 
822
        mov     esi, boot_loadlibs
823
        call    boot_log
2288 clevermous 824
; LOADING LIBRARES
825
        stdcall dll.Load, @IMPORT           ; loading librares for kernel (.obj files)
826
        call    load_file_parse_table       ; prepare file parse table
827
        call    set_kernel_conf             ; configure devices and gui
828
no_lib_load:
829
end if
830
 
831
; Display APIC status
832
        mov     esi, boot_APIC_found
833
        cmp     [irq_mode], IRQ_APIC
834
        je      @f
835
        mov     esi, boot_APIC_nfound
836
@@:
2642 mario79 837
        call    boot_log
2288 clevermous 838
 
839
; PRINT AMOUNT OF MEMORY
840
        mov     esi, boot_memdetect
841
        call    boot_log
842
 
843
        movzx   ecx, word [boot_y]
844
        if lang eq ru
845
        or      ecx, (10+30*6) shl 16
3274 esevece 846
        else if lang eq sp
847
        or      ecx, (10+33*6) shl 16
848
        else
2288 clevermous 849
        or      ecx, (10+29*6) shl 16
3274 esevece 850
        end if
2288 clevermous 851
        sub     ecx, 10
852
        mov     edx, 0xFFFFFF
853
        mov     ebx, [MEM_AMOUNT]
854
        shr     ebx, 20
855
        xor     edi, edi
856
        mov     eax, 0x00040000
857
        inc     edi
858
        call    display_number_force
859
 
860
; BUILD SCHEDULER
861
 
2642 mario79 862
;        call    build_scheduler; sys32.inc
2288 clevermous 863
 
2642 mario79 864
;        mov     esi, boot_devices
865
;        call    boot_log
2288 clevermous 866
 
4297 yogev_ezra 867
include "detect/vortex86.inc"                     ; Vortex86 SoC detection code
868
 
5039 clevermous 869
        stdcall load_pe_driver, szVidintel, 0
3508 clevermous 870
 
3520 clevermous 871
        call    usb_init
872
 
2288 clevermous 873
; SET PRELIMINARY WINDOW STACK AND POSITIONS
874
 
875
        mov     esi, boot_windefs
876
        call    boot_log
877
        call    set_window_defaults
878
 
879
; SET BACKGROUND DEFAULTS
880
 
881
        mov     esi, boot_bgr
882
        call    boot_log
883
        call    init_background
884
        call    calculatebackground
885
 
886
; RESERVE SYSTEM IRQ'S JA PORT'S
887
 
888
        mov     esi, boot_resirqports
889
        call    boot_log
890
        call    reserve_irqs_ports
891
 
892
        call    init_display
893
        mov     eax, [def_cursor]
8093 dunkaist 894
        mov     [SLOT_BASE+APPDATA.cursor+sizeof.APPDATA], eax
895
        mov     [SLOT_BASE+APPDATA.cursor+sizeof.APPDATA*2], eax
2288 clevermous 896
 
3501 Serge 897
; PRINT CPU FREQUENCY
2288 clevermous 898
 
3501 Serge 899
        mov     esi, boot_cpufreq
2288 clevermous 900
        call    boot_log
3501 Serge 901
 
5792 serge 902
        cli
903
        mov     ebx, [hpet_base]
904
        test    ebx, ebx
905
        jz      @F
8111 dunkaist 906
        mov     ebx, [ebx+HPET_COUNTER]
5792 serge 907
 
3501 Serge 908
        rdtsc
5792 serge 909
        mov     ecx, 1000
910
        sub     eax, [hpet_tsc_start]
911
        sbb     edx, [hpet_tsc_start+4]
912
        shld    edx, eax, 10
913
        shl     eax, 10
914
        mov     esi, eax
915
        mov     eax, edx
916
        mul     ecx
917
        xchg    eax, esi
918
        mul     ecx
919
        adc     edx, esi
920
        div     ebx
921
        mul     ecx
922
        div     [hpet_period]
923
        mul     ecx
924
        DEBUGF  1, "K : cpu frequency %u Hz\n", eax
925
        jmp     .next
926
@@:
927
        rdtsc
2288 clevermous 928
        mov     ecx, eax
929
        mov     esi, 250            ; wait 1/4 a second
930
        call    delay_ms
3501 Serge 931
        rdtsc
932
 
2288 clevermous 933
        sub     eax, ecx
3481 Serge 934
        xor     edx, edx
935
        shld    edx, eax, 2
2288 clevermous 936
        shl     eax, 2
5792 serge 937
.next:
3481 Serge 938
        mov     dword [cpu_freq], eax
939
        mov     dword [cpu_freq+4], edx
3502 Serge 940
        mov     ebx, 1000000
941
        div     ebx
3501 Serge 942
        mov     ebx, eax
2288 clevermous 943
 
944
        movzx   ecx, word [boot_y]
945
        if lang eq ru
3501 Serge 946
        add     ecx, (10+19*6) shl 16 - 10
3274 esevece 947
        else if lang eq sp
3501 Serge 948
        add     ecx, (10+25*6) shl 16 - 10
3274 esevece 949
        else
3501 Serge 950
        add     ecx, (10+17*6) shl 16 - 10
3274 esevece 951
        end if
3501 Serge 952
 
2288 clevermous 953
        mov     edx, 0xFFFFFF
954
        xor     edi, edi
955
        mov     eax, 0x00040000
956
        inc     edi
957
        call    display_number_force
958
 
959
; SET VARIABLES
960
 
961
        call    set_variables
962
 
963
; STACK AND FDC
964
 
965
        call    stack_init
966
        call    fdc_init
967
 
968
; PALETTE FOR 320x200 and 640x480 16 col
969
 
970
        cmp     [SCR_MODE], word 0x12
971
        jne     no_pal_vga
972
        mov     esi, boot_pal_vga
973
        call    boot_log
974
        call    paletteVGA
975
      no_pal_vga:
976
 
977
        cmp     [SCR_MODE], word 0x13
978
        jne     no_pal_ega
979
        mov     esi, boot_pal_ega
980
        call    boot_log
981
        call    palette320x200
982
      no_pal_ega:
983
 
984
; LOAD DEFAULT SKIN
985
 
986
        call    load_default_skin
987
 
5635 hidnplayr 988
; Protect I/O permission map
2288 clevermous 989
 
990
        mov     esi, [default_io_map]
8093 dunkaist 991
        stdcall map_page, esi, [SLOT_BASE+sizeof.APPDATA+APPDATA.io_map], PG_READ
2288 clevermous 992
        add     esi, 0x1000
8093 dunkaist 993
        stdcall map_page, esi, [SLOT_BASE+sizeof.APPDATA+APPDATA.io_map+4], PG_READ
2288 clevermous 994
 
995
        stdcall map_page, tss._io_map_0, \
8093 dunkaist 996
                [SLOT_BASE+sizeof.APPDATA+APPDATA.io_map], PG_READ
2288 clevermous 997
        stdcall map_page, tss._io_map_1, \
8093 dunkaist 998
                [SLOT_BASE+sizeof.APPDATA+APPDATA.io_map+4], PG_READ
2288 clevermous 999
 
1000
; SET KEYBOARD PARAMETERS
1001
        mov     al, 0xf6       ; reset keyboard, scan enabled
5012 clevermous 1002
        call    kb_write_wait_ack
2601 clevermous 1003
        test    ah, ah
1004
        jnz     .no_keyboard
2288 clevermous 1005
 
2601 clevermous 1006
iglobal
1007
align 4
1008
ps2_keyboard_functions:
1009
        dd      .end - $
1010
        dd      0       ; no close
1011
        dd      ps2_set_lights
1012
.end:
1013
endg
1014
        stdcall register_keyboard, ps2_keyboard_functions, 0
2288 clevermous 1015
       ; mov   al, 0xED       ; Keyboard LEDs - only for testing!
5012 clevermous 1016
       ; call  kb_write_wait_ack
2288 clevermous 1017
       ; mov   al, 111b
5012 clevermous 1018
       ; call  kb_write_wait_ack
2288 clevermous 1019
 
1020
        mov     al, 0xF3     ; set repeat rate & delay
5012 clevermous 1021
        call    kb_write_wait_ack
2288 clevermous 1022
        mov     al, 0; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
5012 clevermous 1023
        call    kb_write_wait_ack
2288 clevermous 1024
     ;// mike.dld [
1025
        call    set_lights
1026
     ;// mike.dld ]
1027
        stdcall attach_int_handler, 1, irq1, 0
4734 mario79 1028
        DEBUGF  1, "K : IRQ1 return code %x\n", eax
2601 clevermous 1029
.no_keyboard:
2288 clevermous 1030
 
4553 hidnplayr 1031
; Load PS/2 mouse driver
2288 clevermous 1032
 
5044 clevermous 1033
        stdcall load_pe_driver, szPS2MDriver, 0
2288 clevermous 1034
 
1035
        mov     esi, boot_setmouse
1036
        call    boot_log
1037
        call    setmouse
1038
 
5031 clevermous 1039
; LOAD FIRST APPLICATION
1040
        cmp     byte [launcher_start], 1        ; Check if starting LAUNCHER is selected on blue screen (1 = yes)
1041
        jnz     first_app_found
1042
 
1043
        cli
1044
        mov     ebp, firstapp
1045
        call    fs_execute_from_sysdir
1046
        test    eax, eax
1047
        jns     first_app_found
1048
 
1049
        mov     esi, boot_failed
1050
        call    boot_log
1051
 
1052
        mov     eax, 0xDEADBEEF      ; otherwise halt
1053
        hlt
1054
 
1055
first_app_found:
1056
 
2288 clevermous 1057
; START MULTITASKING
7129 dunkaist 1058
preboot_blogesc = 0       ; start immediately after bootlog
2288 clevermous 1059
 
1060
; A 'All set - press ESC to start' messages if need
1061
if preboot_blogesc
1062
        mov     esi, boot_tasking
1063
        call    boot_log
1064
.bll1:
1065
        in      al, 0x60        ; wait for ESC key press
1066
        cmp     al, 129
1067
        jne     .bll1
1068
end if
1069
 
1070
        mov     [timer_ticks_enable], 1         ; for cd driver
1071
 
1072
        sti
4734 mario79 1073
 
4608 clevermous 1074
        call    mtrr_validate
1075
 
2288 clevermous 1076
        jmp     osloop
1077
 
1078
 
1079
        ; Fly :)
1080
 
5033 clevermous 1081
uglobal
1082
align 4
1083
ap_initialized  dd      0
1084
endg
1085
 
1086
ap_init_high:
1087
        mov     ax, os_stack
1088
        mov     bx, app_data
1089
        mov     cx, app_tls
1090
        mov     ss, ax
1091
        mov     ds, bx
1092
        mov     es, bx
1093
        mov     fs, cx
1094
        mov     gs, bx
1095
        xor     esp, esp
5130 serge 1096
        mov     eax, sys_proc-OS_BASE+PROC.pdt_0
5033 clevermous 1097
        mov     cr3, eax
1098
        lock inc [ap_initialized]
1099
        jmp     idle_loop
1100
 
1101
 
2288 clevermous 1102
include 'unpacker.inc'
1103
 
1104
align 4
1105
boot_log:
1106
        pushad
1107
 
1108
        mov     ebx, 10*65536
1109
        mov     bx, word [boot_y]
1110
        add     [boot_y], dword 10
1111
        mov     ecx, 0x80ffffff; ASCIIZ string with white color
1112
        xor     edi, edi
1113
        mov     edx, esi
1114
        inc     edi
1115
        call    dtext
1116
 
1117
        mov     [novesachecksum], 1000
1118
        call    checkVga_N13
1119
 
1120
        popad
1121
 
1122
        ret
1123
 
8091 dunkaist 1124
;-----------------------------------------------------------------------------
1125
; Register ramdisk file system
1126
register_ramdisk:
1127
        mov     esi, boot_initramdisk
1128
        call    boot_log
1129
        call    ramdisk_init
1130
        ret
1131
 
3534 clevermous 1132
; in: edx -> APPDATA for OS/IDLE slot
1133
; in: ebx = stack base
1134
proc setup_os_slot
1135
        xor     eax, eax
8093 dunkaist 1136
        mov     ecx, sizeof.APPDATA/4
3534 clevermous 1137
        mov     edi, edx
1138
        rep stosd
1139
 
3535 clevermous 1140
        mov     eax, tss+0x80
1141
        call    get_pg_addr
1142
        inc     eax
1143
        mov     [edx+APPDATA.io_map], eax
1144
        mov     eax, tss+0x1080
1145
        call    get_pg_addr
1146
        inc     eax
1147
        mov     [edx+APPDATA.io_map+4], eax
1148
 
3534 clevermous 1149
        mov     dword [edx+APPDATA.pl0_stack], ebx
7124 dunkaist 1150
        lea     edi, [ebx+RING0_STACK_SIZE]
3534 clevermous 1151
        mov     dword [edx+APPDATA.fpu_state], edi
1152
        mov     dword [edx+APPDATA.saved_esp0], edi
1153
        mov     dword [edx+APPDATA.saved_esp], edi
1154
        mov     dword [edx+APPDATA.terminate_protection], 1 ; make unkillable
1155
 
1156
        mov     esi, fpu_data
7165 clevermous 1157
        mov     ecx, [xsave_area_size]
1158
        add     ecx, 3
1159
        shr     ecx, 2
3534 clevermous 1160
        rep movsd
1161
 
8087 dunkaist 1162
        lea     eax, [edx+APP_EV_OFFSET]
1163
        mov     dword [edx+APPDATA.fd_ev], eax
1164
        mov     dword [edx+APPDATA.bk_ev], eax
1165
 
3534 clevermous 1166
        lea     eax, [edx+APP_OBJ_OFFSET]
1167
        mov     dword [edx+APPDATA.fd_obj], eax
1168
        mov     dword [edx+APPDATA.bk_obj], eax
1169
 
6502 pathoswith 1170
        mov     dword [edx+APPDATA.cur_dir], sysdir_path-2
3534 clevermous 1171
 
5130 serge 1172
        mov     [edx + APPDATA.process], sys_proc
3534 clevermous 1173
 
5130 serge 1174
        lea     ebx, [edx+APPDATA.list]
1175
        lea     ecx, [sys_proc+PROC.thr_list]
1176
        list_add_tail ebx, ecx
1177
 
3534 clevermous 1178
        mov     eax, edx
1179
        shr     eax, 3
8869 rgimad 1180
        add     eax, TASK_TABLE - (SLOT_BASE shr 3)
3534 clevermous 1181
        mov     [eax+TASKDATA.wnd_number], dh
1182
        mov     byte [eax+TASKDATA.pid], dh
1183
 
1184
        ret
1185
endp
1186
 
2288 clevermous 1187
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1188
;                                                                    ;
1189
;                    MAIN OS LOOP START                              ;
1190
;                                                                    ;
1191
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1192
align 32
1193
osloop:
3534 clevermous 1194
        mov     edx, osloop_has_work?
1195
        xor     ecx, ecx
1196
        call    Wait_events
1197
        xor     eax, eax
1198
        xchg    eax, [osloop_nonperiodic_work]
1199
        test    eax, eax
1200
        jz      .no_periodic
4734 mario79 1201
 
2453 mario79 1202
        call    __sys_draw_pointer
2288 clevermous 1203
        call    window_check_events
1204
        call    mouse_check_events
1205
        call    checkmisc
1206
        call    checkVga_N13
4734 mario79 1207
;--------------------------------------
3534 clevermous 1208
.no_periodic:
2288 clevermous 1209
        call    stack_handler
1210
        call    check_fdd_motor_status
1211
        call    check_ATAPI_device_event
2601 clevermous 1212
        call    check_lights_state
2288 clevermous 1213
        call    check_timers
4734 mario79 1214
 
2288 clevermous 1215
        jmp     osloop
1216
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1217
;                                                                    ;
1218
;                      MAIN OS LOOP END                              ;
1219
;                                                                    ;
1220
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3534 clevermous 1221
proc osloop_has_work?
1222
        cmp     [osloop_nonperiodic_work], 0
1223
        jnz     .yes
1224
        call    stack_handler_has_work?
1225
        jnz     .yes
4273 clevermous 1226
        call    check_fdd_motor_status_has_work?
1227
        jnz     .yes
3534 clevermous 1228
        call    check_ATAPI_device_event_has_work?
1229
        jnz     .yes
1230
        call    check_lights_state_has_work?
1231
        jnz     .yes
1232
        call    check_timers_has_work?
1233
        jnz     .yes
1234
.no:
1235
        xor     eax, eax
2288 clevermous 1236
        ret
3534 clevermous 1237
.yes:
1238
        xor     eax, eax
1239
        inc     eax
1240
        ret
1241
endp
2288 clevermous 1242
 
3534 clevermous 1243
proc wakeup_osloop
1244
        mov     [osloop_nonperiodic_work], 1
1245
        ret
1246
endp
1247
 
2288 clevermous 1248
uglobal
3534 clevermous 1249
align 4
1250
osloop_nonperiodic_work dd      ?
2288 clevermous 1251
endg
1252
 
5033 clevermous 1253
uglobal
1254
align 64
1255
idle_addr       rb      64
1256
endg
1257
 
3534 clevermous 1258
idle_thread:
1259
        sti
5033 clevermous 1260
 
1261
; The following code can be executed by all CPUs in the system.
1262
; All other parts of the kernel do not expect multi-CPU.
1263
; Also, APs don't even have a stack here.
1264
; Beware. Don't do anything here. Anything at all.
3534 clevermous 1265
idle_loop:
5033 clevermous 1266
        cmp     [use_mwait_for_idle], 0
1267
        jnz     idle_loop_mwait
1268
 
1269
idle_loop_hlt:
3534 clevermous 1270
        hlt
5033 clevermous 1271
        jmp     idle_loop_hlt
2288 clevermous 1272
 
5033 clevermous 1273
idle_loop_mwait:
1274
        mov     eax, idle_addr
1275
        xor     ecx, ecx
1276
        xor     edx, edx
1277
        monitor
1278
        xor     ecx, ecx
1279
        mov     eax, 20h        ; or 10h
1280
        mwait
1281
        jmp     idle_loop_mwait
2288 clevermous 1282
 
3534 clevermous 1283
 
2288 clevermous 1284
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1285
;                                                                      ;
1286
;                   INCLUDED SYSTEM FILES                              ;
1287
;                                                                      ;
1288
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1289
 
1290
 
1291
include "kernel32.inc"
1292
 
1293
 
1294
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1295
;                                                                      ;
1296
;                       KERNEL FUNCTIONS                               ;
1297
;                                                                      ;
1298
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1299
 
1300
reserve_irqs_ports:
1301
 
1302
 
1303
; RESERVE PORTS
1304
        mov     eax, RESERVED_PORTS
1305
        mov     ecx, 1
1306
 
1307
        mov     [eax], dword 4
1308
 
1309
        mov     [eax+16], ecx
1310
        mov     [eax+16+4], dword 0
3426 hidnplayr 1311
        mov     [eax+16+8], dword 0x2D
2288 clevermous 1312
 
1313
        mov     [eax+32], ecx
1314
        mov     [eax+32+4], dword 0x30
1315
        mov     [eax+32+8], dword 0x4D
1316
 
1317
        mov     [eax+48], ecx
1318
        mov     [eax+48+4], dword 0x50
3426 hidnplayr 1319
        mov     [eax+48+8], dword 0xDF
2288 clevermous 1320
 
1321
        mov     [eax+64], ecx
1322
        mov     [eax+64+4], dword 0xE5
1323
        mov     [eax+64+8], dword 0xFF
1324
 
1325
        ret
1326
 
1327
 
1328
iglobal
3534 clevermous 1329
  process_number dd 0x2
2288 clevermous 1330
endg
1331
 
1332
set_variables:
1333
 
1334
        mov     ecx, 0x16                    ; flush port 0x60
1335
.fl60:
1336
        in      al, 0x60
1337
        loop    .fl60
1338
        push    eax
1339
 
7132 dunkaist 1340
        mov     ax, [BOOT.y_res]
2288 clevermous 1341
        shr     ax, 1
1342
        shl     eax, 16
7132 dunkaist 1343
        mov     ax, [BOOT.x_res]
2288 clevermous 1344
        shr     ax, 1
1345
        mov     [MOUSE_X], eax
3534 clevermous 1346
        call    wakeup_osloop
2288 clevermous 1347
 
1348
        xor     eax, eax
1349
        mov     [BTN_ADDR], dword BUTTON_INFO ; address of button list
1350
 
1351
        mov     byte [KEY_COUNT], al              ; keyboard buffer
1352
        mov     byte [BTN_COUNT], al              ; button buffer
1353
;        mov   [MOUSE_X],dword 100*65536+100    ; mouse x/y
1354
 
1355
        pop     eax
1356
        ret
1357
 
1358
align 4
1359
;input  eax=43,bl-byte of output, ecx - number of port
1360
sys_outport:
1361
 
1362
        mov     edi, ecx   ; separate flag for read / write
1363
        and     ecx, 65535
1364
 
1365
        mov     eax, [RESERVED_PORTS]
1366
        test    eax, eax
1367
        jnz     .sopl8
1368
        inc     eax
1369
        mov     [esp+32], eax
1370
        ret
1371
 
1372
  .sopl8:
1373
        mov     edx, [TASK_BASE]
1374
        mov     edx, [edx+0x4]
1375
    ;and   ecx,65535
1376
    ;cld - set on interrupt 0x40
1377
  .sopl1:
1378
 
1379
        mov     esi, eax
1380
        shl     esi, 4
1381
        add     esi, RESERVED_PORTS
1382
        cmp     edx, [esi+0]
1383
        jne     .sopl2
1384
        cmp     ecx, [esi+4]
1385
        jb      .sopl2
1386
        cmp     ecx, [esi+8]
1387
        jg      .sopl2
1388
.sopl3:
1389
 
1390
        test    edi, 0x80000000; read ?
1391
        jnz     .sopl4
1392
 
1393
        mov     eax, ebx
1394
        mov     dx, cx   ; write
1395
        out     dx, al
1396
        and     [esp+32], dword 0
1397
        ret
1398
 
1399
        .sopl2:
1400
 
1401
        dec     eax
1402
        jnz     .sopl1
1403
        inc     eax
1404
        mov     [esp+32], eax
1405
        ret
1406
 
1407
 
1408
  .sopl4:
1409
 
1410
        mov     dx, cx   ; read
1411
        in      al, dx
1412
        and     eax, 0xff
1413
        and     [esp+32], dword 0
1414
        mov     [esp+20], eax
1415
        ret
1416
 
1417
display_number:
8713 Doczom 1418
; add check pointers
1419
        test    bl, bl
1420
        jz      @f
1421
        stdcall is_region_userspace, ecx, 1
9045 dunkaist 1422
        jz      @f
8713 Doczom 1423
        ret
1424
@@:
1425
        test    esi, 0x08000000
1426
        jz      @f
1427
        stdcall is_region_userspace, edi, 1
9045 dunkaist 1428
        jz      @f
8713 Doczom 1429
        ret
1430
@@:
2288 clevermous 1431
;It is not optimization
1432
        mov     eax, ebx
1433
        mov     ebx, ecx
1434
        mov     ecx, edx
1435
        mov     edx, esi
1436
        mov     esi, edi
1437
; eax = print type, al=0 -> ebx is number
1438
;                   al=1 -> ebx is pointer
1439
;                   ah=0 -> display decimal
1440
;                   ah=1 -> display hexadecimal
1441
;                   ah=2 -> display binary
1442
;                   eax bits 16-21 = number of digits to display (0-32)
1443
;                   eax bits 22-31 = reserved
1444
;
1445
; ebx = number or pointer
1446
; ecx = x shl 16 + y
1447
; edx = color
1448
        xor     edi, edi
1449
display_number_force:
1450
        push    eax
1451
        and     eax, 0x3fffffff
1452
        cmp     eax, 0xffff     ; length > 0 ?
1453
        pop     eax
1454
        jge     cont_displ
1455
        ret
1456
   cont_displ:
1457
        push    eax
1458
        and     eax, 0x3fffffff
1459
        cmp     eax, 61*0x10000  ; length <= 60 ?
1460
        pop     eax
1461
        jb      cont_displ2
1462
        ret
1463
   cont_displ2:
1464
 
1465
        pushad
1466
 
1467
        cmp     al, 1            ; ecx is a pointer ?
1468
        jne     displnl1
1469
        mov     ebp, ebx
1470
        add     ebp, 4
1471
        mov     ebp, [ebp+std_application_base_address]
1472
        mov     ebx, [ebx+std_application_base_address]
1473
 displnl1:
1474
        sub     esp, 64
1475
 
1476
        test    ah, ah            ; DECIMAL
1477
        jnz     no_display_desnum
1478
        shr     eax, 16
1479
        and     eax, 0xC03f
1480
;     and   eax,0x3f
1481
        push    eax
1482
        and     eax, 0x3f
1483
        mov     edi, esp
1484
        add     edi, 4+64-1
1485
        mov     ecx, eax
1486
        mov     eax, ebx
1487
        mov     ebx, 10
1488
 d_desnum:
1489
        xor     edx, edx
1490
        call    division_64_bits
1491
        div     ebx
1492
        add     dl, 48
1493
        mov     [edi], dl
1494
        dec     edi
1495
        loop    d_desnum
1496
        pop     eax
1497
        call    normalize_number
1498
        call    draw_num_text
1499
        add     esp, 64
1500
        popad
1501
        ret
1502
   no_display_desnum:
1503
 
1504
        cmp     ah, 0x01         ; HEXADECIMAL
1505
        jne     no_display_hexnum
1506
        shr     eax, 16
1507
        and     eax, 0xC03f
1508
;     and   eax,0x3f
1509
        push    eax
1510
        and     eax, 0x3f
1511
        mov     edi, esp
1512
        add     edi, 4+64-1
1513
        mov     ecx, eax
1514
        mov     eax, ebx
1515
        mov     ebx, 16
1516
   d_hexnum:
1517
        xor     edx, edx
1518
        call    division_64_bits
1519
        div     ebx
1520
   hexletters = __fdo_hexdigits
1521
        add     edx, hexletters
1522
        mov     dl, [edx]
1523
        mov     [edi], dl
1524
        dec     edi
1525
        loop    d_hexnum
1526
        pop     eax
1527
        call    normalize_number
1528
        call    draw_num_text
1529
        add     esp, 64
1530
        popad
1531
        ret
1532
   no_display_hexnum:
1533
 
1534
        cmp     ah, 0x02         ; BINARY
1535
        jne     no_display_binnum
1536
        shr     eax, 16
1537
        and     eax, 0xC03f
1538
;     and   eax,0x3f
1539
        push    eax
1540
        and     eax, 0x3f
1541
        mov     edi, esp
1542
        add     edi, 4+64-1
1543
        mov     ecx, eax
1544
        mov     eax, ebx
1545
        mov     ebx, 2
1546
   d_binnum:
1547
        xor     edx, edx
1548
        call    division_64_bits
1549
        div     ebx
1550
        add     dl, 48
1551
        mov     [edi], dl
1552
        dec     edi
1553
        loop    d_binnum
1554
        pop     eax
1555
        call    normalize_number
1556
        call    draw_num_text
1557
        add     esp, 64
1558
        popad
1559
        ret
1560
   no_display_binnum:
1561
 
1562
        add     esp, 64
1563
        popad
1564
        ret
1565
 
1566
normalize_number:
1567
        test    ah, 0x80
1568
        jz      .continue
1569
        mov     ecx, 48
1570
        and     eax, 0x3f
1571
@@:
1572
        inc     edi
1573
        cmp     [edi], cl
1574
        jne     .continue
1575
        dec     eax
1576
        cmp     eax, 1
1577
        ja      @r
1578
        mov     al, 1
1579
.continue:
1580
        and     eax, 0x3f
1581
        ret
1582
 
1583
division_64_bits:
1584
        test    [esp+1+4], byte 0x40
1585
        jz      .continue
1586
        push    eax
1587
        mov     eax, ebp
1588
        div     ebx
1589
        mov     ebp, eax
1590
        pop     eax
1591
.continue:
1592
        ret
1593
 
1594
draw_num_text:
1595
        mov     esi, eax
1596
        mov     edx, 64+4
1597
        sub     edx, eax
1598
        add     edx, esp
1599
        mov     ebx, [esp+64+32-8+4]
1600
; add window start x & y
1601
        mov     ecx, [TASK_BASE]
1602
 
8869 rgimad 1603
        mov     edi, [current_slot_idx]
2288 clevermous 1604
        shl     edi, 8
1605
 
1606
        mov     eax, [ecx-twdw+WDATA.box.left]
1607
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
1608
        shl     eax, 16
1609
        add     eax, [ecx-twdw+WDATA.box.top]
1610
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
1611
        add     ebx, eax
1612
        mov     ecx, [esp+64+32-12+4]
1613
        mov     eax, [esp+64+8]         ; background color (if given)
1614
        mov     edi, [esp+64+4]
6272 pathoswith 1615
        and     ecx, 5FFFFFFFh
1616
        bt      ecx, 27
1617
        jnc     @f
1618
        mov     edi, eax
1619
@@:
2288 clevermous 1620
        jmp     dtext
4700 mario79 1621
;-----------------------------------------------------------------------------
1622
iglobal
1623
midi_base dw 0
1624
endg
1625
;-----------------------------------------------------------------------------
2288 clevermous 1626
align 4
1627
sys_setup:
4700 mario79 1628
;  1 = roland mpu midi base , base io address
1629
;  2 = keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
1630
;  3 = not used
1631
;  4 = not used
1632
;  5 = system language, 1eng 2fi 3ger 4rus
1633
;  6 = not used
1634
;  7 = not used
1635
;  8 = not used
1636
;  9 = not used
1637
; 10 = not used
2288 clevermous 1638
; 11 = enable lba read
1639
; 12 = enable pci access
4700 mario79 1640
;-----------------------------------------------------------------------------
1641
        and     [esp+32], dword 0
1642
; F.21.1 - set MPU MIDI base port
1643
        dec     ebx
1644
        jnz     @f
2288 clevermous 1645
 
1646
        cmp     ecx, 0x100
4700 mario79 1647
        jb      @f
2288 clevermous 1648
 
1649
        mov     esi, 65535
1650
        cmp     esi, ecx
4700 mario79 1651
        jb      @f
2288 clevermous 1652
 
4700 mario79 1653
        mov     [midi_base], cx
1654
        mov     word [mididp], cx
1655
        inc     cx
1656
        mov     word [midisp], cx
2288 clevermous 1657
        ret
4700 mario79 1658
;--------------------------------------
1659
@@:
1660
; F.21.2 - set keyboard layout
1661
        dec     ebx
1662
        jnz     @f
2288 clevermous 1663
 
1664
        mov     edi, [TASK_BASE]
1665
        mov     eax, [edi+TASKDATA.mem_start]
1666
        add     eax, edx
4700 mario79 1667
; 1 = normal layout
1668
        dec     ecx
1669
        jnz     .shift
2288 clevermous 1670
 
1671
        mov     ebx, keymap
1672
        mov     ecx, 128
1673
        call    memmove
1674
        ret
4700 mario79 1675
;--------------------------------------
1676
.shift:
1677
; 2 = layout at pressed Shift
2288 clevermous 1678
        dec     ecx
4700 mario79 1679
        jnz     .alt
2288 clevermous 1680
 
1681
        mov     ebx, keymap_shift
1682
        mov     ecx, 128
1683
        call    memmove
1684
        ret
4700 mario79 1685
;--------------------------------------
1686
.alt:
1687
; 3 = layout at pressed Alt
2288 clevermous 1688
        dec     ecx
4700 mario79 1689
        jnz     .country
1690
 
2288 clevermous 1691
        mov     ebx, keymap_alt
1692
        mov     ecx, 128
1693
        call    memmove
1694
        ret
4700 mario79 1695
;--------------------------------------
1696
.country:
1697
; country identifier
2288 clevermous 1698
        sub     ecx, 6
4700 mario79 1699
        jnz     .error
1700
 
2288 clevermous 1701
        mov     word [keyboard], dx
1702
        ret
4700 mario79 1703
;--------------------------------------
1704
@@:
1705
; F.21.5 - set system language
1706
        sub     ebx, 3
1707
        jnz     @f
2288 clevermous 1708
 
1709
        mov     [syslang], ecx
1710
        ret
4700 mario79 1711
;--------------------------------------
1712
@@:
1713
; F.21.11 - enable/disable low-level access to HD
1714
        and     ecx, 1
1715
        sub     ebx, 6
1716
        jnz     @f
2288 clevermous 1717
 
4700 mario79 1718
        mov     [lba_read_enabled], ecx
2288 clevermous 1719
        ret
4700 mario79 1720
;--------------------------------------
1721
@@:
1722
; F.21.12 - enable/disable low-level access to PCI
2288 clevermous 1723
        dec     ebx
4700 mario79 1724
        jnz     .error
2288 clevermous 1725
 
1726
        mov     [pci_access_enabled], ecx
1727
        ret
4700 mario79 1728
;--------------------------------------
1729
.error:
2288 clevermous 1730
        or      [esp+32], dword -1
1731
        ret
4700 mario79 1732
;-----------------------------------------------------------------------------
2288 clevermous 1733
align 4
1734
sys_getsetup:
4700 mario79 1735
;  1 = roland mpu midi base , base io address
1736
;  2 = keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
1737
;  3 = not used
1738
;  4 = not used
1739
;  5 = system language, 1eng 2fi 3ger 4rus
1740
;  6 = not used
1741
;  7 = not used
1742
;  8 = not used
1743
;  9 = get hs timer tic
1744
; 10 = not used
1745
; 11 = get the state "lba read"
1746
; 12 = get the state "pci access"
1747
;-----------------------------------------------------------------------------
1748
; F.26.1 - get MPU MIDI base port
1749
        dec     ebx
1750
        jnz     @f
2288 clevermous 1751
 
1752
        movzx   eax, [midi_base]
1753
        mov     [esp+32], eax
1754
        ret
4700 mario79 1755
;--------------------------------------
1756
@@:
1757
; F.26.2 - get keyboard layout
2288 clevermous 1758
        dec     ebx
4700 mario79 1759
        jnz     @f
2288 clevermous 1760
 
1761
        mov     edi, [TASK_BASE]
1762
        mov     ebx, [edi+TASKDATA.mem_start]
1763
        add     ebx, edx
4700 mario79 1764
; 1 = normal layout
1765
        dec     ecx
1766
        jnz     .shift
2288 clevermous 1767
 
8160 rgimad 1768
        ; if given memory address belongs to kernel then error
8329 rgimad 1769
        stdcall is_region_userspace, ebx, 128
9045 dunkaist 1770
        jnz     .addr_error
8158 rgimad 1771
 
2288 clevermous 1772
        mov     eax, keymap
1773
        mov     ecx, 128
1774
        call    memmove
1775
        ret
4700 mario79 1776
;--------------------------------------
1777
.shift:
1778
; 2 = layout with pressed Shift
2288 clevermous 1779
        dec     ecx
4700 mario79 1780
        jnz     .alt
2288 clevermous 1781
 
8329 rgimad 1782
        stdcall is_region_userspace, ebx, 128
9045 dunkaist 1783
        jnz     .addr_error
8158 rgimad 1784
 
2288 clevermous 1785
        mov     eax, keymap_shift
1786
        mov     ecx, 128
1787
        call    memmove
1788
        ret
4700 mario79 1789
;--------------------------------------
1790
.alt:
1791
; 3 = layout with pressed Alt
2288 clevermous 1792
        dec     ecx
4700 mario79 1793
        jne     .country
2288 clevermous 1794
 
8329 rgimad 1795
        stdcall is_region_userspace, ebx, 128
9045 dunkaist 1796
        jnz     .addr_error
8158 rgimad 1797
 
2288 clevermous 1798
        mov     eax, keymap_alt
1799
        mov     ecx, 128
1800
        call    memmove
1801
        ret
4700 mario79 1802
;--------------------------------------
1803
.country:
1804
; 9 = country identifier
2288 clevermous 1805
        sub     ecx, 6
4700 mario79 1806
        jnz     .error
1807
 
2288 clevermous 1808
        movzx   eax, word [keyboard]
1809
        mov     [esp+32], eax
1810
        ret
8158 rgimad 1811
 
1812
.addr_error:    ; if given memory address is illegal
8249 rgimad 1813
        mov     dword [esp+32], -1
8158 rgimad 1814
        ret
4700 mario79 1815
;--------------------------------------
1816
@@:
1817
; F.26.5 - get system language
1818
        sub     ebx, 3
1819
        jnz     @f
2288 clevermous 1820
 
1821
        mov     eax, [syslang]
1822
        mov     [esp+32], eax
1823
        ret
4700 mario79 1824
;--------------------------------------
1825
@@:
1826
; F.26.9 - get the value of the time counter
4573 clevermous 1827
        sub     ebx, 4
4700 mario79 1828
        jnz     @f
1829
 
1830
        mov     eax, [timer_ticks]
2288 clevermous 1831
        mov     [esp+32], eax
1832
        ret
4700 mario79 1833
;--------------------------------------
1834
@@:
5794 serge 1835
; F.26.10 - get the time from kernel launch in nanoseconds
1836
        sub     ebx, 1
1837
        jnz     @f
1838
 
1839
        call    get_clock_ns
1840
        mov     [esp+24], edx
1841
        mov     [esp+32], eax
1842
        ret
1843
;--------------------------------------
1844
@@:
4700 mario79 1845
; F.26.11 - Find out whether low-level HD access is enabled
5794 serge 1846
        sub     ebx, 1
4700 mario79 1847
        jnz     @f
1848
 
2288 clevermous 1849
        mov     eax, [lba_read_enabled]
1850
        mov     [esp+32], eax
1851
        ret
4700 mario79 1852
;--------------------------------------
1853
@@:
1854
; F.26.12 - Find out whether low-level PCI access is enabled
2288 clevermous 1855
        dec     ebx
4700 mario79 1856
        jnz     .error
1857
 
2288 clevermous 1858
        mov     eax, [pci_access_enabled]
1859
        mov     [esp+32], eax
1860
        ret
4700 mario79 1861
;--------------------------------------
1862
.error:
1863
        or      [esp+32], dword -1
2288 clevermous 1864
        ret
4700 mario79 1865
;-----------------------------------------------------------------------------
2288 clevermous 1866
get_timer_ticks:
1867
        mov     eax, [timer_ticks]
1868
        ret
4700 mario79 1869
;-----------------------------------------------------------------------------
2288 clevermous 1870
readmousepos:
1871
; eax=0 screen relative
1872
; eax=1 window relative
1873
; eax=2 buttons pressed
5851 pathoswith 1874
; eax=3 buttons pressed ext
2288 clevermous 1875
; eax=4 load cursor
1876
; eax=5 set cursor
5851 pathoswith 1877
; eax=6 delete cursor
2288 clevermous 1878
; eax=7 get mouse_z
6800 pathoswith 1879
; eax=8 load cursor unicode
1880
        cmp     ebx, 8
5851 pathoswith 1881
        ja      @f
6800 pathoswith 1882
        jmp     dword[.mousefn+ebx*4]
5851 pathoswith 1883
 
6800 pathoswith 1884
align 4
1885
.mousefn:
1886
dd  .msscreen
1887
dd  .mswin
1888
dd  .msbutton
1889
dd  .msbuttonExt
1890
dd  .app_load_cursor
1891
dd  .app_set_cursor
1892
dd  .app_delete_cursor
1893
dd  .msz
1894
dd  .loadCursorUni
1895
 
1896
.msscreen:
2288 clevermous 1897
        mov     eax, [MOUSE_X]
1898
        shl     eax, 16
1899
        mov     ax, [MOUSE_Y]
1900
        mov     [esp+36-4], eax
5851 pathoswith 1901
@@:
2288 clevermous 1902
        ret
5851 pathoswith 1903
 
6800 pathoswith 1904
.mswin:
2288 clevermous 1905
        mov     eax, [MOUSE_X]
1906
        shl     eax, 16
1907
        mov     ax, [MOUSE_Y]
1908
        mov     esi, [TASK_BASE]
1909
        mov     bx, word [esi-twdw+WDATA.box.left]
1910
        shl     ebx, 16
1911
        mov     bx, word [esi-twdw+WDATA.box.top]
1912
        sub     eax, ebx
8869 rgimad 1913
        mov     edi, [current_slot_idx]
2288 clevermous 1914
        shl     edi, 8
1915
        sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
1916
        rol     eax, 16
1917
        sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
1918
        rol     eax, 16
1919
        mov     [esp+36-4], eax
1920
        ret
5851 pathoswith 1921
 
6800 pathoswith 1922
.msbutton:
2288 clevermous 1923
        movzx   eax, byte [BTN_DOWN]
1924
        mov     [esp+36-4], eax
1925
        ret
5851 pathoswith 1926
 
6800 pathoswith 1927
.msbuttonExt:
5851 pathoswith 1928
        mov     eax, [BTN_DOWN]
2288 clevermous 1929
        mov     [esp+36-4], eax
1930
        ret
1931
 
6800 pathoswith 1932
.app_load_cursor:
2288 clevermous 1933
        cmp     ecx, OS_BASE
5851 pathoswith 1934
        jae     @f
2288 clevermous 1935
        stdcall load_cursor, ecx, edx
1936
        mov     [esp+36-4], eax
5851 pathoswith 1937
@@:
2288 clevermous 1938
        ret
1939
 
6800 pathoswith 1940
.loadCursorUni:
1941
        cmp     ecx, OS_BASE
1942
        jae     @b
1943
        push    ecx edx
1944
        stdcall kernel_alloc, maxPathLength
1945
        mov     edi, eax
1946
        pop     eax esi
1947
        push    edi
1948
        call    getFullPath
1949
        pop     ebp
1950
        test    eax, eax
1951
        jz      @f
1952
        stdcall load_cursor, ebp, LOAD_FROM_FILE
1953
        mov     [esp+32], eax
1954
@@:
1955
        stdcall kernel_free, ebp
1956
        ret
1957
 
1958
.app_set_cursor:
2288 clevermous 1959
        stdcall set_cursor, ecx
1960
        mov     [esp+36-4], eax
1961
        ret
1962
 
6800 pathoswith 1963
.app_delete_cursor:
2288 clevermous 1964
        stdcall delete_cursor, ecx
1965
        mov     [esp+36-4], eax
1966
        ret
1967
 
6800 pathoswith 1968
.msz:
8866 rgimad 1969
        mov     edi, [thread_count]
5851 pathoswith 1970
        movzx   edi, word [WIN_POS + edi*2]
8869 rgimad 1971
        cmp     edi, [current_slot_idx]
5851 pathoswith 1972
        jne     @f
1973
        mov     ax, [MOUSE_SCROLL_H]
1974
        shl     eax, 16
1975
        mov     ax, [MOUSE_SCROLL_V]
1976
        mov     [esp+36-4], eax
1977
        and     [MOUSE_SCROLL_H], word 0
1978
        and     [MOUSE_SCROLL_V], word 0
1979
        ret
1980
@@:
1981
        and     [esp+36-4], dword 0
1982
        ret
1983
 
2288 clevermous 1984
is_input:
1985
 
1986
        push    edx
1987
        mov     dx, word [midisp]
1988
        in      al, dx
1989
        and     al, 0x80
1990
        pop     edx
1991
        ret
1992
 
1993
is_output:
1994
 
1995
        push    edx
1996
        mov     dx, word [midisp]
1997
        in      al, dx
1998
        and     al, 0x40
1999
        pop     edx
2000
        ret
2001
 
2002
 
2003
get_mpu_in:
2004
 
2005
        push    edx
2006
        mov     dx, word [mididp]
2007
        in      al, dx
2008
        pop     edx
2009
        ret
2010
 
2011
 
2012
put_mpu_out:
2013
 
2014
        push    edx
2015
        mov     dx, word [mididp]
2016
        out     dx, al
2017
        pop     edx
2018
        ret
2019
 
2020
 
2021
 
2022
align 4
2023
 
2024
sys_midi:
2025
        cmp     [mididp], 0
2026
        jnz     sm0
2027
        mov     [esp+36], dword 1
2028
        ret
2029
sm0:
2030
        and     [esp+36], dword 0
2031
        dec     ebx
2032
        jnz     smn1
2033
 ;    call setuart
2034
su1:
2035
        call    is_output
2036
        test    al, al
2037
        jnz     su1
2038
        mov     dx, word [midisp]
2039
        mov     al, 0xff
2040
        out     dx, al
2041
su2:
2042
        mov     dx, word [midisp]
2043
        mov     al, 0xff
2044
        out     dx, al
2045
        call    is_input
2046
        test    al, al
2047
        jnz     su2
2048
        call    get_mpu_in
2049
        cmp     al, 0xfe
2050
        jnz     su2
2051
su3:
2052
        call    is_output
2053
        test    al, al
2054
        jnz     su3
2055
        mov     dx, word [midisp]
2056
        mov     al, 0x3f
2057
        out     dx, al
2058
        ret
2059
smn1:
2060
        dec     ebx
2061
        jnz     smn2
2062
sm10:
2063
        call    get_mpu_in
2064
        call    is_output
2065
        test    al, al
2066
        jnz     sm10
2067
        mov     al, bl
2068
        call    put_mpu_out
2069
        smn2:
2070
        ret
2071
 
2072
detect_devices:
2073
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2074
;include 'detect/commouse.inc'
2075
;include 'detect/ps2mouse.inc'
2076
;include 'detect/dev_fd.inc'
2077
;include 'detect/dev_hdcd.inc'
2078
;include 'detect/sear_par.inc'
2079
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2080
        ret
2081
 
2082
sys_end:
2430 mario79 2083
;--------------------------------------
2084
        cmp     [_display.select_cursor], 0
2085
        je      @f
2086
; restore default cursor before killing
2087
        pusha
2088
        mov     ecx, [current_slot]
2435 mario79 2089
        call    restore_default_cursor_before_killing
2430 mario79 2090
        popa
2091
@@:
2092
;--------------------------------------
3545 hidnplayr 2093
; kill all sockets this process owns
2094
        pusha
2095
        mov     edx, [TASK_BASE]
2096
        mov     edx, [edx+TASKDATA.pid]
6011 hidnplayr 2097
        call    socket_process_end
3545 hidnplayr 2098
        popa
2099
;--------------------------------------
2288 clevermous 2100
        mov     ecx, [current_slot]
2101
        mov     eax, [ecx+APPDATA.tls_base]
2102
        test    eax, eax
2103
        jz      @F
2104
 
2105
        stdcall user_free, eax
2106
@@:
2107
 
2108
        mov     eax, [TASK_BASE]
6122 hidnplayr 2109
        mov     [eax+TASKDATA.state], TSTATE_ZOMBIE
3534 clevermous 2110
        call    wakeup_osloop
2288 clevermous 2111
 
3597 Serge 2112
.waitterm:            ; wait here for termination
2113
        call    change_task
2114
        jmp     .waitterm
2435 mario79 2115
;------------------------------------------------------------------------------
2452 mario79 2116
align 4
2435 mario79 2117
restore_default_cursor_before_killing:
2468 mario79 2118
        pushfd
2119
        cli
2435 mario79 2120
        mov     eax, [def_cursor]
2121
        mov     [ecx+APPDATA.cursor], eax
2288 clevermous 2122
 
2435 mario79 2123
        movzx   eax, word [MOUSE_Y]
2124
        movzx   ebx, word [MOUSE_X]
2446 mario79 2125
        mov     eax, [d_width_calc_area + eax*4]
2126
 
5351 serge 2127
        add     eax, [_display.win_map]
2435 mario79 2128
        movzx   edx, byte [ebx+eax]
2129
        shl     edx, 8
2130
        mov     esi, [edx+SLOT_BASE+APPDATA.cursor]
2452 mario79 2131
 
2132
        cmp     esi, [current_cursor]
2133
        je      @f
2134
 
2435 mario79 2135
        push    esi
2136
        call    [_display.select_cursor]
2137
        mov     [current_cursor], esi
2452 mario79 2138
@@:
2450 mario79 2139
        mov     [redrawmouse_unconditional], 1
3534 clevermous 2140
        call    wakeup_osloop
2468 mario79 2141
        popfd
2435 mario79 2142
        ret
2143
;------------------------------------------------------------------------------
2288 clevermous 2144
iglobal
2145
align 4
2146
sys_system_table:
2147
        dd      sysfn_deactivate        ; 1 = deactivate window
2148
        dd      sysfn_terminate         ; 2 = terminate thread
2149
        dd      sysfn_activate          ; 3 = activate window
2150
        dd      sysfn_getidletime       ; 4 = get idle time
2151
        dd      sysfn_getcpuclock       ; 5 = get cpu clock
2152
        dd      sysfn_saveramdisk       ; 6 = save ramdisk
2153
        dd      sysfn_getactive         ; 7 = get active window
2154
        dd      sysfn_sound_flag        ; 8 = get/set sound_flag
2155
        dd      sysfn_shutdown          ; 9 = shutdown with parameter
2156
        dd      sysfn_minimize          ; 10 = minimize window
2157
        dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
2158
        dd      sysfn_lastkey           ; 12 = get last pressed key
2159
        dd      sysfn_getversion        ; 13 = get kernel version
2160
        dd      sysfn_waitretrace       ; 14 = wait retrace
2161
        dd      sysfn_centermouse       ; 15 = center mouse cursor
2162
        dd      sysfn_getfreemem        ; 16 = get free memory size
2163
        dd      sysfn_getallmem         ; 17 = get total memory size
2164
        dd      sysfn_terminate2        ; 18 = terminate thread using PID
2165
                                        ;                 instead of slot
2166
        dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
2167
        dd      sysfn_meminfo           ; 20 = get extended memory info
2168
        dd      sysfn_pid_to_slot       ; 21 = get slot number for pid
2169
        dd      sysfn_min_rest_window   ; 22 = minimize and restore any window
2648 mario79 2170
        dd      sysfn_min_windows       ; 23 = minimize all windows
2654 mario79 2171
        dd      sysfn_set_screen_sizes  ; 24 = set screen sizes for Vesa
5836 GerdtR 2172
 
2173
        dd      sysfn_zmodif            ; 25 = get/set window z modifier  ;Fantomer
2288 clevermous 2174
sysfn_num = ($ - sys_system_table)/4
2175
endg
2176
;------------------------------------------------------------------------------
2177
sys_system:
2178
        dec     ebx
2179
        cmp     ebx, sysfn_num
2180
        jae     @f
2181
        jmp     dword [sys_system_table + ebx*4]
2182
@@:
2183
        ret
2184
;------------------------------------------------------------------------------
2185
sysfn_shutdown:          ; 18.9 = system shutdown
7122 dunkaist 2186
        cmp     ecx, SYSTEM_SHUTDOWN
2288 clevermous 2187
        jl      exit_for_anyone
7122 dunkaist 2188
        cmp     ecx, SYSTEM_RESTART
2288 clevermous 2189
        jg      exit_for_anyone
7132 dunkaist 2190
        mov     [BOOT.shutdown_type], cl
2288 clevermous 2191
 
8866 rgimad 2192
        mov     eax, [thread_count]
2288 clevermous 2193
        mov     [SYS_SHUTDOWN], al
2194
        mov     [shutdown_processes], eax
3534 clevermous 2195
        call    wakeup_osloop
2288 clevermous 2196
        and     dword [esp+32], 0
2197
 exit_for_anyone:
2198
        ret
2199
  uglobal
2200
   shutdown_processes:
2201
                       dd 0x0
2202
  endg
2203
;------------------------------------------------------------------------------
8270 dunkaist 2204
; in: eax -- APPDATA ptr
2205
; out: Z/z -- is/not kernel thread
2206
is_kernel_thread:
2207
        mov     eax, [eax+APPDATA.process]
2208
        cmp     eax, [SLOT_BASE+2*sizeof.APPDATA+APPDATA.process]       ; OS
2209
        ret
2210
;------------------------------------------------------------------------------
2288 clevermous 2211
sysfn_terminate:        ; 18.2 = TERMINATE
2472 mario79 2212
        push    ecx
2288 clevermous 2213
        cmp     ecx, 2
2214
        jb      noprocessterminate
8866 rgimad 2215
        mov     edx, [thread_count]
2288 clevermous 2216
        cmp     ecx, edx
2217
        ja      noprocessterminate
8866 rgimad 2218
        mov     eax, [thread_count]
8270 dunkaist 2219
        shl     ecx, BSF sizeof.TASKDATA
8869 rgimad 2220
        mov     edx, [ecx+TASK_TABLE+TASKDATA.pid]
2221
        add     ecx, TASK_TABLE+TASKDATA.state
8270 dunkaist 2222
        cmp     byte [ecx], TSTATE_FREE
2288 clevermous 2223
        jz      noprocessterminate
8270 dunkaist 2224
        push    eax
8869 rgimad 2225
        lea     eax, [(ecx-(TASK_TABLE and 1FFFFFFFh)-TASKDATA.state)*8+SLOT_BASE]
8270 dunkaist 2226
        call    is_kernel_thread
2227
        pop     eax
2228
        jz      noprocessterminate
3296 clevermous 2229
        push    ecx edx
8869 rgimad 2230
        lea     edx, [(ecx-(TASK_TABLE and 1FFFFFFFh)-TASKDATA.state)*8+SLOT_BASE]
3296 clevermous 2231
        call    request_terminate
2232
        pop     edx ecx
2233
        test    eax, eax
2234
        jz      noprocessterminate
2430 mario79 2235
;--------------------------------------
3545 hidnplayr 2236
; terminate all network sockets it used
2237
        pusha
2238
        mov     eax, edx
6011 hidnplayr 2239
        call    socket_process_end
3545 hidnplayr 2240
        popa
2241
;--------------------------------------
2430 mario79 2242
        cmp     [_display.select_cursor], 0
2452 mario79 2243
        je      .restore_end
2430 mario79 2244
; restore default cursor before killing
2245
        pusha
2246
        mov     ecx, [esp+32]
2247
        shl     ecx, 8
2435 mario79 2248
        add     ecx, SLOT_BASE
2452 mario79 2249
        mov     eax, [def_cursor]
2250
        cmp     [ecx+APPDATA.cursor], eax
2251
        je      @f
2435 mario79 2252
        call    restore_default_cursor_before_killing
2452 mario79 2253
@@:
2430 mario79 2254
        popa
2452 mario79 2255
.restore_end:
2430 mario79 2256
;--------------------------------------
2288 clevermous 2257
     ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
2258
        mov     [ecx], byte 3; clear possible i40's
3534 clevermous 2259
        call    wakeup_osloop
2288 clevermous 2260
     ;call MEM_Heap_UnLock
2261
 
3534 clevermous 2262
        cmp     edx, [application_table_owner]; clear app table stat
2288 clevermous 2263
        jne     noatsc
3534 clevermous 2264
        call    unlock_application_table
2468 mario79 2265
noatsc:
2266
noprocessterminate:
2472 mario79 2267
        add     esp, 4
2288 clevermous 2268
        ret
2269
;------------------------------------------------------------------------------
2270
sysfn_terminate2:
2271
;lock application_table_status mutex
2272
.table_status:
3534 clevermous 2273
        call    lock_application_table
2288 clevermous 2274
        mov     eax, ecx
2275
        call    pid_to_slot
2276
        test    eax, eax
2277
        jz      .not_found
2278
        mov     ecx, eax
2279
        cli
2280
        call    sysfn_terminate
3534 clevermous 2281
        call    unlock_application_table
2288 clevermous 2282
        sti
2283
        and     dword [esp+32], 0
2284
        ret
2285
.not_found:
3534 clevermous 2286
        call    unlock_application_table
2288 clevermous 2287
        or      dword [esp+32], -1
2288
        ret
2289
;------------------------------------------------------------------------------
2290
sysfn_deactivate:         ; 18.1 = DEACTIVATE WINDOW
2291
        cmp     ecx, 2
2292
        jb      .nowindowdeactivate
8866 rgimad 2293
        cmp     ecx, [thread_count]
2288 clevermous 2294
        ja      .nowindowdeactivate
2408 Serge 2295
 
2288 clevermous 2296
        movzx   esi, word [WIN_STACK + ecx*2]
2297
        cmp     esi, 1
2298
        je      .nowindowdeactivate ; already deactive
2299
 
2300
        mov     edi, ecx
2301
        shl     edi, 5
2302
        add     edi, window_data
2303
        movzx   esi, word [WIN_STACK + ecx * 2]
2304
        lea     esi, [WIN_POS + esi * 2]
2305
        call    window._.window_deactivate
6800 pathoswith 2306
        call    syscall_display_settings.calculateScreen
2307
        call    syscall_display_settings.redrawScreen
2288 clevermous 2308
.nowindowdeactivate:
2309
        ret
3455 mario79 2310
;------------------------------------------------------------------------------
2288 clevermous 2311
sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
5675 leency 2312
        cmp     ecx, 2
2313
        jb      .nowindowactivate
8866 rgimad 2314
        cmp     ecx, [thread_count]
2288 clevermous 2315
        ja      .nowindowactivate
3455 mario79 2316
;-------------------------------------
2317
@@:
2318
; If the window is captured and moved by the user,
2319
; then you can't change the position in window stack!!!
2320
        mov     al, [mouse.active_sys_window.action]
2321
        and     al, WINDOW_MOVE_AND_RESIZE_FLAGS
2322
        test    al, al
2323
        jz      @f
2324
        call    change_task
2325
        jmp     @b
2326
@@:
2327
;-------------------------------------
2288 clevermous 2328
        mov     [window_minimize], 2; restore window if minimized
3534 clevermous 2329
        call    wakeup_osloop
2288 clevermous 2330
 
2331
        movzx   esi, word [WIN_STACK + ecx*2]
8866 rgimad 2332
        cmp     esi, [thread_count]
2288 clevermous 2333
        je      .nowindowactivate; already active
2334
 
2335
        mov     edi, ecx
2336
        shl     edi, 5
2337
        add     edi, window_data
2338
        movzx   esi, word [WIN_STACK + ecx * 2]
2339
        lea     esi, [WIN_POS + esi * 2]
2340
        call    waredraw
2341
.nowindowactivate:
2342
        ret
2343
;------------------------------------------------------------------------------
5865 GerdtR 2344
align 4
5836 GerdtR 2345
sysfn_zmodif:
2346
;18,25,1 - get z_modif
2347
;18,25,2 - set z_modif
2348
;edx = -1(for current task) or TID
2349
;esi(for 2) = new value z_modif
2350
;return:
2351
;1:   eax = z_modif
2352
;2: eax=0(fail),1(success) for set z_modif
2353
 
2354
        cmp     edx, -1
2355
        jne     @f
8869 rgimad 2356
        mov     edx, [current_slot_idx]
5836 GerdtR 2357
     @@:
8866 rgimad 2358
        cmp     edx, [thread_count]
5865 GerdtR 2359
        ja      .fail
5836 GerdtR 2360
        cmp     edx, 1
5865 GerdtR 2361
        je      .fail
5836 GerdtR 2362
 
5865 GerdtR 2363
        mov     eax, edx
5836 GerdtR 2364
        shl     edx, 5
2365
 
8876 rgimad 2366
        cmp     [edx + TASK_TABLE + TASKDATA.state], TSTATE_FREE
5865 GerdtR 2367
        je      .fail
5836 GerdtR 2368
 
2369
        cmp     ecx, 1
2370
        jnz     .set_zmod
2371
 
2372
        mov     al, [edx + window_data + WDATA.z_modif]
5865 GerdtR 2373
        jmp     .exit
5836 GerdtR 2374
 
2375
.set_zmod:
2376
        cmp     ecx, 2
5865 GerdtR 2377
        jnz     .fail
5836 GerdtR 2378
 
5865 GerdtR 2379
        mov     ebx, esi
2380
        mov     esi, eax
5836 GerdtR 2381
 
5865 GerdtR 2382
        cmp     bl, ZPOS_ALWAYS_TOP
2383
        jg      .fail
5836 GerdtR 2384
 
5865 GerdtR 2385
        mov     [edx + window_data + WDATA.z_modif], bl
5836 GerdtR 2386
 
2387
        mov     eax, [edx + window_data + WDATA.box.left]
2388
        mov     ebx, [edx + window_data + WDATA.box.top]
2389
        mov     ecx, [edx + window_data + WDATA.box.width]
2390
        mov     edx, [edx + window_data + WDATA.box.height]
2391
        add     ecx, eax
2392
        add     edx, ebx
5865 GerdtR 2393
        call    window._.set_screen
5836 GerdtR 2394
        call    window._.set_top_wnd
5865 GerdtR 2395
        call    window._.redraw_top_wnd
5836 GerdtR 2396
 
5865 GerdtR 2397
        shl     esi, 5
2398
        mov     [esi + window_data + WDATA.fl_redraw], 1
2399
 
2400
 
5836 GerdtR 2401
        mov     eax, 1
5865 GerdtR 2402
        jmp     .exit
2403
.fail:
2404
        xor     eax, eax
5836 GerdtR 2405
.exit:
2406
        mov     [esp+32], eax
2407
        ret
2408
 
2409
;------------------------------------------------------------------------------
2288 clevermous 2410
sysfn_getidletime:              ; 18.4 = GET IDLETIME
8869 rgimad 2411
        mov     eax, [TASK_TABLE+32+TASKDATA.cpu_usage]
2288 clevermous 2412
        mov     [esp+32], eax
2413
        ret
2414
;------------------------------------------------------------------------------
2415
sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
3481 Serge 2416
        mov     eax, dword [cpu_freq]
2288 clevermous 2417
        mov     [esp+32], eax
2418
        ret
2419
;------------------------------------------------------------------------------
3481 Serge 2420
get_cpu_freq:
2421
        mov     eax, dword [cpu_freq]
2422
        mov     edx, dword [cpu_freq+4]
2423
        ret
2288 clevermous 2424
;  SAVE ramdisk to /hd/1/menuet.img
2425
;!!!!!!!!!!!!!!!!!!!!!!!!
2426
   include 'blkdev/rdsave.inc'
2427
;!!!!!!!!!!!!!!!!!!!!!!!!
2428
;------------------------------------------------------------------------------
2429
align 4
2430
sysfn_getactive:        ; 18.7 = get active window
8866 rgimad 2431
        mov     eax, [thread_count]
2288 clevermous 2432
        movzx   eax, word [WIN_POS + eax*2]
2433
        mov     [esp+32], eax
2434
        ret
2435
;------------------------------------------------------------------------------
2436
sysfn_sound_flag:       ; 18.8 = get/set sound_flag
2437
;     cmp  ecx,1
2438
        dec     ecx
2439
        jnz     nogetsoundflag
2440
        movzx   eax, byte [sound_flag]; get sound_flag
2441
        mov     [esp+32], eax
2442
        ret
2443
 nogetsoundflag:
2444
;     cmp  ecx,2
2445
        dec     ecx
2446
        jnz     nosoundflag
2447
        xor     byte [sound_flag], 1
2448
 nosoundflag:
2449
        ret
2450
;------------------------------------------------------------------------------
2451
sysfn_minimize:         ; 18.10 = minimize window
2452
        mov     [window_minimize], 1
3534 clevermous 2453
        call    wakeup_osloop
2288 clevermous 2454
        ret
2455
;------------------------------------------------------------------------------
2456
align 4
2457
sysfn_getdiskinfo:      ; 18.11 = get disk info table
2458
        dec     ecx
4641 mario79 2459
        jnz     .exit
2460
.small_table:
8598 rgimad 2461
        stdcall is_region_userspace, edx, DRIVE_DATA_SIZE
9045 dunkaist 2462
        jnz     .exit
2288 clevermous 2463
        mov     edi, edx
2464
        mov     esi, DRIVE_DATA
4641 mario79 2465
        mov     ecx, DRIVE_DATA_SIZE ;10
2288 clevermous 2466
        cld
4641 mario79 2467
        rep movsb
2468
.exit:
2288 clevermous 2469
        ret
2470
;------------------------------------------------------------------------------
2471
sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
2472
        and     dword [esp+32], 0
2473
        ret
2474
;------------------------------------------------------------------------------
2475
sysfn_getversion:       ; 18.13 = get kernel ID and version
8247 rgimad 2476
        ; if given memory address belongs to kernel then error
8329 rgimad 2477
        stdcall is_region_userspace, ecx, version_end-version_inf
9045 dunkaist 2478
        jnz     .addr_error
8247 rgimad 2479
 
2288 clevermous 2480
        mov     edi, ecx
2481
        mov     esi, version_inf
2482
        mov     ecx, version_end-version_inf
2483
        rep movsb
2484
        ret
8247 rgimad 2485
.addr_error:    ; if given memory address is illegal
8248 rgimad 2486
        mov     dword [esp+32], -1
8247 rgimad 2487
        ret
2288 clevermous 2488
;------------------------------------------------------------------------------
2489
sysfn_waitretrace:     ; 18.14 = sys wait retrace
2490
     ;wait retrace functions
2491
 sys_wait_retrace:
2492
        mov     edx, 0x3da
2493
 WaitRetrace_loop:
2494
        in      al, dx
2495
        test    al, 1000b
2496
        jz      WaitRetrace_loop
2497
        and     [esp+32], dword 0
2498
        ret
2499
;------------------------------------------------------------------------------
2500
align 4
2501
sysfn_centermouse:      ; 18.15 = mouse centered
5350 serge 2502
        mov     eax, [_display.width]
2288 clevermous 2503
        shr     eax, 1
2504
        mov     [MOUSE_X], ax
5350 serge 2505
        mov     eax, [_display.height]
2288 clevermous 2506
        shr     eax, 1
2507
        mov     [MOUSE_Y], ax
3534 clevermous 2508
        call    wakeup_osloop
2288 clevermous 2509
        xor     eax, eax
2510
        and     [esp+32], eax
2511
        ret
2512
;------------------------------------------------------------------------------
5851 pathoswith 2513
sysfn_mouse_acceleration:       ; 18.19 = set/get mouse features
2514
        cmp     ecx, 8
2515
        jnc     @f
2516
        jmp     dword [.table+ecx*4]
2517
.get_mouse_acceleration:
2288 clevermous 2518
        xor     eax, eax
2519
        mov     ax, [mouse_speed_factor]
2520
        mov     [esp+32], eax
2521
        ret
5851 pathoswith 2522
.set_mouse_acceleration:
2288 clevermous 2523
        mov     [mouse_speed_factor], dx
2524
        ret
5851 pathoswith 2525
.get_mouse_delay:
5853 pathoswith 2526
        xor     eax, eax
2527
        mov     al, [mouse_delay]
2288 clevermous 2528
        mov     [esp+32], eax
2529
        ret
5851 pathoswith 2530
.set_mouse_delay:
5853 pathoswith 2531
        mov     [mouse_delay], dl
5851 pathoswith 2532
@@:
2288 clevermous 2533
        ret
5851 pathoswith 2534
.set_pointer_position:
5350 serge 2535
        cmp     dx, word[_display.height]
5851 pathoswith 2536
        jae     @b
2288 clevermous 2537
        rol     edx, 16
5350 serge 2538
        cmp     dx, word[_display.width]
5851 pathoswith 2539
        jae     @b
2288 clevermous 2540
        mov     [MOUSE_X], edx
4381 hidnplayr 2541
        mov     [mouse_active], 1
5851 pathoswith 2542
        jmp     wakeup_osloop
2543
.set_mouse_button:
2544
        mov     [BTN_DOWN], edx
2288 clevermous 2545
        mov     [mouse_active], 1
5851 pathoswith 2546
        jmp     wakeup_osloop
2547
.get_doubleclick_delay:
2548
        xor     eax, eax
2549
        mov     al, [mouse_doubleclick_delay]
2550
        mov     [esp+32], eax
2288 clevermous 2551
        ret
5851 pathoswith 2552
.set_doubleclick_delay:
2553
        mov     [mouse_doubleclick_delay], dl
2554
        ret
2555
align 4
2556
.table:
2557
dd      .get_mouse_acceleration
2558
dd      .set_mouse_acceleration
2559
dd      .get_mouse_delay
2560
dd      .set_mouse_delay
2561
dd      .set_pointer_position
2562
dd      .set_mouse_button
2563
dd      .get_doubleclick_delay
2564
dd      .set_doubleclick_delay
2288 clevermous 2565
;------------------------------------------------------------------------------
2566
sysfn_getfreemem:
2567
        mov     eax, [pg_data.pages_free]
2568
        shl     eax, 2
2569
        mov     [esp+32], eax
2570
        ret
2648 mario79 2571
;------------------------------------------------------------------------------
2288 clevermous 2572
sysfn_getallmem:
2573
        mov     eax, [MEM_AMOUNT]
2574
        shr     eax, 10
2575
        mov     [esp+32], eax
2576
        ret
2648 mario79 2577
;------------------------------------------------------------------------------
2288 clevermous 2578
sysfn_pid_to_slot:
2579
        mov     eax, ecx
2580
        call    pid_to_slot
2581
        mov     [esp+32], eax
2582
        ret
2648 mario79 2583
;------------------------------------------------------------------------------
2288 clevermous 2584
sysfn_min_rest_window:
2585
        pushad
2586
        mov     eax, edx ; ebx - operating
2587
        shr     ecx, 1
2588
        jnc     @f
2589
        call    pid_to_slot
2590
@@:
2591
        or      eax, eax ; eax - number of slot
2592
        jz      .error
2593
        cmp     eax, 255    ; varify maximal slot number
2594
        ja      .error
2595
        movzx   eax, word [WIN_STACK + eax*2]
2596
        shr     ecx, 1
2597
        jc      .restore
2598
 ; .minimize:
2599
        call    minimize_window
2600
        jmp     .exit
2601
.restore:
2602
        call    restore_minimized_window
2603
.exit:
2604
        popad
2605
        xor     eax, eax
2606
        mov     [esp+32], eax
2607
        ret
2608
.error:
2609
        popad
2610
        xor     eax, eax
2611
        dec     eax
2612
        mov     [esp+32], eax
2613
        ret
2648 mario79 2614
;------------------------------------------------------------------------------
2615
sysfn_min_windows:
2616
        call    minimize_all_window
2617
        mov     [esp+32], eax
2618
        call    change_task
2619
        ret
2620
;------------------------------------------------------------------------------
2654 mario79 2621
sysfn_set_screen_sizes:
2622
        cmp     [SCR_MODE], word 0x13
2623
        jbe     .exit
2624
 
2625
        cmp     [_display.select_cursor], select_cursor
2626
        jne     .exit
2627
 
2628
        cmp     ecx, [display_width_standard]
2629
        ja      .exit
2630
 
2631
        cmp     edx, [display_height_standard]
2632
        ja      .exit
2633
 
2634
        pushfd
2635
        cli
2636
        mov     eax, ecx
5351 serge 2637
        mov     ecx, [_display.lfb_pitch]
2654 mario79 2638
        mov     [_display.width], eax
2639
        dec     eax
2640
        mov     [_display.height], edx
2641
        dec     edx
2642
; eax - new Screen_Max_X
2643
; edx - new Screen_Max_Y
2644
        mov     [do_not_touch_winmap], 1
2645
        call    set_screen
2646
        mov     [do_not_touch_winmap], 0
2647
        popfd
2648
        call    change_task
2649
.exit:
2650
        ret
2651
;------------------------------------------------------------------------------
2288 clevermous 2652
uglobal
2653
screen_workarea RECT
2654 mario79 2654
display_width_standard dd 0
2655
display_height_standard dd 0
2656
do_not_touch_winmap db 0
2288 clevermous 2657
window_minimize db 0
2658
sound_flag      db 0
2654 mario79 2659
 
2288 clevermous 2660
endg
2661
 
2662
UID_NONE=0
2663
UID_MENUETOS=1   ;official
2664
UID_KOLIBRI=2    ;russian
2665
 
2666
iglobal
2667
version_inf:
3454 mario79 2668
        db 0,7,7,0  ; version 0.7.7.0
2669
        db 0
2670
.rev    dd __REV__
2288 clevermous 2671
version_end:
2672
endg
2515 mario79 2673
;------------------------------------------------------------------------------
2674
align 4
2288 clevermous 2675
sys_cachetodiskette:
2676
        cmp     ebx, 1
4273 clevermous 2677
        jb      .no_floppy_save
2288 clevermous 2678
        cmp     ebx, 2
4273 clevermous 2679
        ja      .no_floppy_save
2288 clevermous 2680
        call    save_image
4273 clevermous 2681
        mov     [esp + 32], eax
2682
        ret
2683
.no_floppy_save:
2288 clevermous 2684
        mov     [esp + 32], dword 1
2685
        ret
2515 mario79 2686
;------------------------------------------------------------------------------
2288 clevermous 2687
uglobal
2688
;  bgrchanged  dd  0x0
2689
align 4
2690
bgrlockpid dd 0
2691
bgrlock db 0
2692
endg
2515 mario79 2693
;------------------------------------------------------------------------------
2694
align 4
2288 clevermous 2695
sys_background:
2696
        cmp     ebx, 1                     ; BACKGROUND SIZE
2697
        jnz     nosb1
2698
        test    ecx, ecx
2699
        jz      sbgrr
2547 mario79 2700
 
2288 clevermous 2701
        test    edx, edx
2702
        jz      sbgrr
2515 mario79 2703
;--------------------------------------
2704
align 4
2288 clevermous 2705
@@:
2706
;;Maxis use atomic bts for mutexes  4.4.2009
2707
        bts     dword [bgrlock], 0
2708
        jnc     @f
2709
        call    change_task
2710
        jmp     @b
2515 mario79 2711
;--------------------------------------
2712
align 4
2288 clevermous 2713
@@:
2714
        mov     [BgrDataWidth], ecx
2715
        mov     [BgrDataHeight], edx
2716
;    mov   [bgrchanged],1
2717
 
2718
        pushad
2719
; return memory for old background
2720
        mov     eax, [img_background]
2721
        cmp     eax, static_background_data
2722
        jz      @f
2723
        stdcall kernel_free, eax
2515 mario79 2724
;--------------------------------------
2725
align 4
2288 clevermous 2726
@@:
2727
; calculate RAW size
2728
        xor     eax, eax
2729
        inc     eax
2730
        cmp     [BgrDataWidth], eax
2731
        jae     @f
2732
        mov     [BgrDataWidth], eax
2515 mario79 2733
;--------------------------------------
2734
align 4
2288 clevermous 2735
@@:
2736
        cmp     [BgrDataHeight], eax
2737
        jae     @f
2738
        mov     [BgrDataHeight], eax
2515 mario79 2739
;--------------------------------------
2740
align 4
2288 clevermous 2741
@@:
2742
        mov     eax, [BgrDataWidth]
2743
        imul    eax, [BgrDataHeight]
2744
        lea     eax, [eax*3]
2464 mario79 2745
; it is reserved with aligned to the boundary of 4 KB pages,
2746
; otherwise there may be exceptions a page fault for vesa20_drawbackground_tiled
2747
; because the 32 bit read is used for  high performance: "mov eax,[esi]"
2748
        shr     eax, 12
2749
        inc     eax
2750
        shl     eax, 12
2288 clevermous 2751
        mov     [mem_BACKGROUND], eax
2752
; get memory for new background
2753
        stdcall kernel_alloc, eax
2754
        test    eax, eax
2755
        jz      .memfailed
2756
        mov     [img_background], eax
2757
        jmp     .exit
2515 mario79 2758
;--------------------------------------
2759
align 4
2288 clevermous 2760
.memfailed:
2761
; revert to static monotone data
2762
        mov     [img_background], static_background_data
2763
        xor     eax, eax
2764
        inc     eax
2765
        mov     [BgrDataWidth], eax
2766
        mov     [BgrDataHeight], eax
2767
        mov     [mem_BACKGROUND], 4
2515 mario79 2768
;--------------------------------------
2769
align 4
2288 clevermous 2770
.exit:
2771
        popad
2772
        mov     [bgrlock], 0
2515 mario79 2773
;--------------------------------------
2774
align 4
2775
sbgrr:
2288 clevermous 2776
        ret
2515 mario79 2777
;------------------------------------------------------------------------------
2778
align 4
2288 clevermous 2779
nosb1:
2780
        cmp     ebx, 2                     ; SET PIXEL
2781
        jnz     nosb2
2782
 
2783
        mov     eax, [img_background]
2784
        test    ecx, ecx
2785
        jz      @f
2786
        cmp     eax, static_background_data
2787
        jz      .ret
2515 mario79 2788
;--------------------------------------
2789
align 4
2288 clevermous 2790
@@:
2791
        mov     ebx, [mem_BACKGROUND]
2792
        add     ebx, 4095
2793
        and     ebx, -4096
2794
        sub     ebx, 4
2795
        cmp     ecx, ebx
2796
        ja      .ret
2797
 
2798
        mov     ebx, [eax+ecx]
2799
        and     ebx, 0xFF000000;255*256*256*256
2800
        and     edx, 0x00FFFFFF;255*256*256+255*256+255
2801
        add     edx, ebx
2802
        mov     [eax+ecx], edx
2515 mario79 2803
;--------------------------------------
2804
align 4
2288 clevermous 2805
.ret:
2806
        ret
2515 mario79 2807
;------------------------------------------------------------------------------
2808
align 4
2288 clevermous 2809
nosb2:
2810
        cmp     ebx, 3                     ; DRAW BACKGROUND
2811
        jnz     nosb3
2515 mario79 2812
;--------------------------------------
2813
align 4
2288 clevermous 2814
draw_background_temp:
2815
        mov     [background_defined], 1
2816
        call    force_redraw_background
2515 mario79 2817
;--------------------------------------
2818
align 4
2819
nosb31:
2288 clevermous 2820
        ret
2515 mario79 2821
;------------------------------------------------------------------------------
2822
align 4
2823
nosb3:
2288 clevermous 2824
        cmp     ebx, 4                     ; TILED / STRETCHED
2825
        jnz     nosb4
2826
        cmp     ecx, [BgrDrawMode]
2827
        je      nosb41
2828
        mov     [BgrDrawMode], ecx
2515 mario79 2829
;--------------------------------------
2830
align 4
2831
nosb41:
2288 clevermous 2832
        ret
2515 mario79 2833
;------------------------------------------------------------------------------
2834
align 4
2835
nosb4:
2288 clevermous 2836
        cmp     ebx, 5                     ; BLOCK MOVE TO BGR
2837
        jnz     nosb5
8714 Doczom 2838
 
2839
; add check pointer
2840
        stdcall is_region_userspace, ecx, esi
9045 dunkaist 2841
        jnz     .fin
8714 Doczom 2842
 
2288 clevermous 2843
        cmp     [img_background], static_background_data
2844
        jnz     @f
2845
        test    edx, edx
2846
        jnz     .fin
2847
        cmp     esi, 4
2848
        ja      .fin
2515 mario79 2849
;--------------------------------------
2850
align 4
2851
@@:
2288 clevermous 2852
  ; bughere
2853
        mov     eax, ecx
2854
        mov     ebx, edx
2855
        add     ebx, [img_background];IMG_BACKGROUND
2856
        mov     ecx, esi
2857
        call    memmove
2515 mario79 2858
;--------------------------------------
2859
align 4
2860
.fin:
2288 clevermous 2861
        ret
2515 mario79 2862
;------------------------------------------------------------------------------
2863
align 4
2864
nosb5:
2288 clevermous 2865
        cmp     ebx, 6
2866
        jnz     nosb6
2515 mario79 2867
;--------------------------------------
2868
align 4
2288 clevermous 2869
;;Maxis use atomic bts for mutex 4.4.2009
2870
@@:
2871
        bts     dword [bgrlock], 0
2872
        jnc     @f
2873
        call    change_task
2874
        jmp     @b
2515 mario79 2875
;--------------------------------------
2876
align 4
2288 clevermous 2877
@@:
8869 rgimad 2878
        mov     eax, [current_slot_idx]
2288 clevermous 2879
        mov     [bgrlockpid], eax
2880
        cmp     [img_background], static_background_data
2881
        jz      .nomem
2882
        stdcall user_alloc, [mem_BACKGROUND]
2883
        mov     [esp+32], eax
2884
        test    eax, eax
2885
        jz      .nomem
2886
        mov     ebx, eax
2887
        shr     ebx, 12
7965 hidnplayr 2888
        or      dword [page_tabs+(ebx-1)*4], MEM_BLOCK_DONT_FREE
2288 clevermous 2889
        mov     esi, [img_background]
2890
        shr     esi, 12
2891
        mov     ecx, [mem_BACKGROUND]
2892
        add     ecx, 0xFFF
2893
        shr     ecx, 12
2515 mario79 2894
;--------------------------------------
2895
align 4
2288 clevermous 2896
.z:
2897
        mov     eax, [page_tabs+ebx*4]
2898
        test    al, 1
2899
        jz      @f
2900
        call    free_page
2515 mario79 2901
;--------------------------------------
2902
align 4
2288 clevermous 2903
@@:
2904
        mov     eax, [page_tabs+esi*4]
5356 serge 2905
        or      al, PG_UWR
2288 clevermous 2906
        mov     [page_tabs+ebx*4], eax
2907
        mov     eax, ebx
2908
        shl     eax, 12
2909
        invlpg  [eax]
2910
        inc     ebx
2911
        inc     esi
2912
        loop    .z
2913
        ret
2515 mario79 2914
;--------------------------------------
2915
align 4
2288 clevermous 2916
.nomem:
2917
        and     [bgrlockpid], 0
2918
        mov     [bgrlock], 0
2515 mario79 2919
;------------------------------------------------------------------------------
2920
align 4
2288 clevermous 2921
nosb6:
2922
        cmp     ebx, 7
2923
        jnz     nosb7
2924
        cmp     [bgrlock], 0
2925
        jz      .err
8869 rgimad 2926
        mov     eax, [current_slot_idx]
2288 clevermous 2927
        cmp     [bgrlockpid], eax
2928
        jnz     .err
2929
        mov     eax, ecx
2930
        mov     ebx, ecx
2931
        shr     eax, 12
2932
        mov     ecx, [page_tabs+(eax-1)*4]
7965 hidnplayr 2933
        test    cl, MEM_BLOCK_USED or MEM_BLOCK_DONT_FREE
2288 clevermous 2934
        jz      .err
2935
        jnp     .err
2936
        push    eax
2937
        shr     ecx, 12
2938
        dec     ecx
2515 mario79 2939
;--------------------------------------
2940
align 4
2288 clevermous 2941
@@:
2942
        and     dword [page_tabs+eax*4], 0
2943
        mov     edx, eax
2944
        shl     edx, 12
2945
        push    eax
2946
        invlpg  [edx]
2947
        pop     eax
2948
        inc     eax
2949
        loop    @b
2950
        pop     eax
7965 hidnplayr 2951
        and     dword [page_tabs+(eax-1)*4], not MEM_BLOCK_DONT_FREE
2288 clevermous 2952
        stdcall user_free, ebx
2953
        mov     [esp+32], eax
2954
        and     [bgrlockpid], 0
2955
        mov     [bgrlock], 0
2956
        ret
2515 mario79 2957
;--------------------------------------
2958
align 4
2288 clevermous 2959
.err:
2960
        and     dword [esp+32], 0
2961
        ret
2515 mario79 2962
;------------------------------------------------------------------------------
2963
align 4
2288 clevermous 2964
nosb7:
2515 mario79 2965
        cmp     ebx, 8
2966
        jnz     nosb8
2537 mario79 2967
 
3536 clevermous 2968
        mov     ecx, [current_slot]
2969
        xor     eax, eax
2970
        xchg    eax, [ecx+APPDATA.draw_bgr_x]
2515 mario79 2971
        mov     [esp + 32], eax ; eax = [left]*65536 + [right]
3536 clevermous 2972
        xor     eax, eax
2973
        xchg    eax, [ecx+APPDATA.draw_bgr_y]
2515 mario79 2974
        mov     [esp + 20], eax ; ebx = [top]*65536 + [bottom]
2288 clevermous 2975
        ret
2515 mario79 2976
;------------------------------------------------------------------------------
2977
align 4
2978
nosb8:
2547 mario79 2979
        cmp     ebx, 9
2980
        jnz     nosb9
2981
; ecx = [left]*65536 + [right]
2982
; edx = [top]*65536 + [bottom]
5350 serge 2983
        mov     eax, [_display.width]
2984
        mov     ebx, [_display.height]
2547 mario79 2985
; check [right]
2986
        cmp     cx, ax
6593 serge 2987
        jae     .exit
2547 mario79 2988
; check [left]
2989
        ror     ecx, 16
2990
        cmp     cx, ax
6593 serge 2991
        jae     .exit
2547 mario79 2992
; check [bottom]
2993
        cmp     dx, bx
6593 serge 2994
        jae     .exit
2547 mario79 2995
; check [top]
2996
        ror     edx, 16
2997
        cmp     dx, bx
6593 serge 2998
        jae     .exit
2547 mario79 2999
 
3000
        movzx   eax, cx  ; [left]
3001
        movzx   ebx, dx  ; [top]
3002
 
3003
        shr     ecx, 16 ; [right]
3004
        shr     edx, 16 ; [bottom]
3005
 
3006
        mov     [background_defined], 1
3007
 
3008
        mov     [draw_data+32 + RECT.left], eax
3009
        mov     [draw_data+32 + RECT.top], ebx
3010
 
3011
        mov     [draw_data+32 + RECT.right], ecx
3012
        mov     [draw_data+32 + RECT.bottom], edx
3013
 
6585 pathoswith 3014
        inc     [REDRAW_BACKGROUND]
3534 clevermous 3015
        call    wakeup_osloop
2547 mario79 3016
;--------------------------------------
3017
align 4
3018
.exit:
2515 mario79 3019
        ret
3020
;------------------------------------------------------------------------------
3021
align 4
2547 mario79 3022
nosb9:
3023
        ret
3024
;------------------------------------------------------------------------------
3025
align 4
2537 mario79 3026
uglobal
3027
  BG_Rect_X_left_right  dd   0x0
3028
  BG_Rect_Y_top_bottom  dd   0x0
3029
endg
3030
;------------------------------------------------------------------------------
3031
align 4
2288 clevermous 3032
force_redraw_background:
3033
        and     [draw_data+32 + RECT.left], 0
3034
        and     [draw_data+32 + RECT.top], 0
3035
        push    eax ebx
5350 serge 3036
        mov     eax, [_display.width]
3037
        mov     ebx, [_display.height]
3038
        dec     eax
3039
        dec     ebx
2288 clevermous 3040
        mov     [draw_data+32 + RECT.right], eax
3041
        mov     [draw_data+32 + RECT.bottom], ebx
3042
        pop     ebx eax
6585 pathoswith 3043
        inc     [REDRAW_BACKGROUND]
3534 clevermous 3044
        call    wakeup_osloop
2288 clevermous 3045
        ret
2515 mario79 3046
;------------------------------------------------------------------------------
2288 clevermous 3047
align 4
3048
sys_getbackground:
3049
;    cmp   eax,1                                  ; SIZE
3050
        dec     ebx
3051
        jnz     nogb1
3052
        mov     eax, [BgrDataWidth]
3053
        shl     eax, 16
3588 Serge 3054
        mov     ax, word [BgrDataHeight]
2288 clevermous 3055
        mov     [esp+32], eax
3056
        ret
2515 mario79 3057
;------------------------------------------------------------------------------
3058
align 4
2288 clevermous 3059
nogb1:
3060
;    cmp   eax,2                                  ; PIXEL
3061
        dec     ebx
3062
        jnz     nogb2
3063
 
3064
        mov     eax, [img_background]
3065
        test    ecx, ecx
3066
        jz      @f
3067
        cmp     eax, static_background_data
3068
        jz      .ret
2515 mario79 3069
;--------------------------------------
3070
align 4
2288 clevermous 3071
@@:
3072
        mov     ebx, [mem_BACKGROUND]
3073
        add     ebx, 4095
3074
        and     ebx, -4096
3075
        sub     ebx, 4
3076
        cmp     ecx, ebx
3077
        ja      .ret
3078
 
3079
        mov     eax, [ecx+eax]
3080
 
3081
        and     eax, 0xFFFFFF
3082
        mov     [esp+32], eax
2515 mario79 3083
;--------------------------------------
3084
align 4
2288 clevermous 3085
.ret:
3086
        ret
2515 mario79 3087
;------------------------------------------------------------------------------
3088
align 4
3089
nogb2:
2288 clevermous 3090
 
3091
;    cmp   eax,4                                  ; TILED / STRETCHED
3092
        dec     ebx
3093
        dec     ebx
3094
        jnz     nogb4
3095
        mov     eax, [BgrDrawMode]
2515 mario79 3096
;--------------------------------------
3097
align 4
3098
nogb4:
2288 clevermous 3099
        mov     [esp+32], eax
3100
        ret
2515 mario79 3101
;------------------------------------------------------------------------------
2288 clevermous 3102
align 4
3103
sys_getkey:
3104
        mov     [esp + 32], dword 1
3105
        ; test main buffer
8869 rgimad 3106
        mov     ebx, [current_slot_idx]                          ; TOP OF WINDOW STACK
2288 clevermous 3107
        movzx   ecx, word [WIN_STACK + ebx * 2]
8866 rgimad 3108
        mov     edx, [thread_count]
2288 clevermous 3109
        cmp     ecx, edx
3110
        jne     .finish
3111
        cmp     [KEY_COUNT], byte 0
3112
        je      .finish
4588 mario79 3113
        movzx   ax, byte [KEY_BUFF + 120 + 2]
2288 clevermous 3114
        shl     eax, 8
4588 mario79 3115
        mov     al, byte [KEY_BUFF]
3116
        shl     eax, 8
2288 clevermous 3117
        push    eax
3118
        dec     byte [KEY_COUNT]
3119
        and     byte [KEY_COUNT], 127
3120
        movzx   ecx, byte [KEY_COUNT]
3121
        add     ecx, 2
3122
        mov     eax, KEY_BUFF + 1
3123
        mov     ebx, KEY_BUFF
3124
        call    memmove
4588 mario79 3125
        add     eax, 120 + 2
3126
        add     ebx, 120 + 2
3127
        call    memmove
2288 clevermous 3128
        pop     eax
2515 mario79 3129
;--------------------------------------
3130
align 4
2288 clevermous 3131
.ret_eax:
3132
        mov     [esp + 32], eax
3133
        ret
2515 mario79 3134
;--------------------------------------
3135
align 4
2288 clevermous 3136
.finish:
3137
; test hotkeys buffer
3138
        mov     ecx, hotkey_buffer
2515 mario79 3139
;--------------------------------------
3140
align 4
2288 clevermous 3141
@@:
3142
        cmp     [ecx], ebx
3143
        jz      .found
3144
        add     ecx, 8
3145
        cmp     ecx, hotkey_buffer + 120 * 8
3146
        jb      @b
3147
        ret
2515 mario79 3148
;--------------------------------------
3149
align 4
2288 clevermous 3150
.found:
3151
        mov     ax, [ecx + 6]
3152
        shl     eax, 16
3153
        mov     ah, [ecx + 4]
3154
        mov     al, 2
3155
        and     dword [ecx + 4], 0
3156
        and     dword [ecx], 0
3157
        jmp     .ret_eax
2515 mario79 3158
;------------------------------------------------------------------------------
2288 clevermous 3159
align 4
3160
sys_getbutton:
8869 rgimad 3161
        mov     ebx, [current_slot_idx]                         ; TOP OF WINDOW STACK
2288 clevermous 3162
        mov     [esp + 32], dword 1
3163
        movzx   ecx, word [WIN_STACK + ebx * 2]
8866 rgimad 3164
        mov     edx, [thread_count] ; less than 256 processes
2288 clevermous 3165
        cmp     ecx, edx
3166
        jne     .exit
3167
        movzx   eax, byte [BTN_COUNT]
3168
        test    eax, eax
3169
        jz      .exit
3170
        mov     eax, [BTN_BUFF]
3171
        and     al, 0xFE                                    ; delete left button bit
3172
        mov     [BTN_COUNT], byte 0
3173
        mov     [esp + 32], eax
2515 mario79 3174
;--------------------------------------
3175
align 4
2288 clevermous 3176
.exit:
3177
        ret
2515 mario79 3178
;------------------------------------------------------------------------------
2288 clevermous 3179
align 4
3180
sys_cpuusage:
3181
 
3182
;  RETURN:
3183
;
3184
;  +00 dword     process cpu usage
3185
;  +04  word     position in windowing stack
3186
;  +06  word     windowing stack value at current position (cpu nro)
3187
;  +10 12 bytes  name
3188
;  +22 dword     start in mem
3189
;  +26 dword     used mem
3190
;  +30 dword     PID , process idenfification number
3191
;
8246 rgimad 3192
        ; if given memory address belongs to kernel then error
8329 rgimad 3193
        stdcall is_region_userspace, ebx, 0x4C
9045 dunkaist 3194
        jnz     .addr_error
2288 clevermous 3195
 
3196
        cmp     ecx, -1 ; who am I ?
3197
        jne     .no_who_am_i
8869 rgimad 3198
        mov     ecx, [current_slot_idx]
2288 clevermous 3199
  .no_who_am_i:
3200
        cmp     ecx, max_processes
3201
        ja      .nofillbuf
3202
 
3203
; +4: word: position of the window of thread in the window stack
3204
        mov     ax, [WIN_STACK + ecx * 2]
3205
        mov     [ebx+4], ax
3206
; +6: word: number of the thread slot, which window has in the window stack
3207
;           position ecx (has no relation to the specific thread)
3208
        mov     ax, [WIN_POS + ecx * 2]
3209
        mov     [ebx+6], ax
3210
 
3211
        shl     ecx, 5
3212
 
3213
; +0: dword: memory usage
8869 rgimad 3214
        mov     eax, [ecx+TASK_TABLE+TASKDATA.cpu_usage]
2288 clevermous 3215
        mov     [ebx], eax
3216
; +10: 11 bytes: name of the process
3217
        push    ecx
3218
        lea     eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
3219
        add     ebx, 10
3220
        mov     ecx, 11
3221
        call    memmove
3222
        pop     ecx
3223
 
3224
; +22: address of the process in memory
3225
; +26: size of used memory - 1
3226
        push    edi
3227
        lea     edi, [ebx+12]
3228
        xor     eax, eax
3229
        mov     edx, 0x100000*16
3230
        cmp     ecx, 1 shl 5
3231
        je      .os_mem
5130 serge 3232
        mov     edx, [SLOT_BASE+ecx*8+APPDATA.process]
3233
        mov     edx, [edx+PROC.mem_used]
2288 clevermous 3234
        mov     eax, std_application_base_address
3235
.os_mem:
3236
        stosd
3237
        lea     eax, [edx-1]
3238
        stosd
3239
 
3240
; +30: PID/TID
8869 rgimad 3241
        mov     eax, [ecx+TASK_TABLE+TASKDATA.pid]
2288 clevermous 3242
        stosd
3243
 
3244
    ; window position and size
3245
        push    esi
3246
        lea     esi, [ecx + window_data + WDATA.box]
3247
        movsd
3248
        movsd
3249
        movsd
3250
        movsd
3251
 
3252
    ; Process state (+50)
8869 rgimad 3253
        movzx   eax, byte [ecx+TASK_TABLE+TASKDATA.state]
2288 clevermous 3254
        stosd
3255
 
3256
    ; Window client area box
3257
        lea     esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
3258
        movsd
3259
        movsd
3260
        movsd
3261
        movsd
3262
 
3263
    ; Window state
3264
        mov     al, [ecx+window_data+WDATA.fl_wstate]
3265
        stosb
3266
 
3267
    ; Event mask (+71)
8869 rgimad 3268
        mov     EAX, dword [ECX+TASK_TABLE+TASKDATA.event_mask]
2288 clevermous 3269
        stosd
4286 Serge 3270
 
4262 0CodErr 3271
    ; Keyboard mode (+75)
3272
        mov     al, byte [ecx*8 + SLOT_BASE + APPDATA.keyboard_mode]
4286 Serge 3273
        stosb
2288 clevermous 3274
 
3275
        pop     esi
3276
        pop     edi
3277
 
3278
.nofillbuf:
3279
    ; return number of processes
3280
 
8866 rgimad 3281
        mov     eax, [thread_count]
2288 clevermous 3282
        mov     [esp+32], eax
3283
        ret
3284
 
8246 rgimad 3285
.addr_error:    ; if given memory address is illegal
8249 rgimad 3286
        mov     dword [esp+32], -1
8246 rgimad 3287
        ret
3288
 
2288 clevermous 3289
align 4
3290
sys_clock:
3291
        cli
3292
  ; Mikhail Lisovin  xx Jan 2005
3293
  @@:
3294
        mov     al, 10
3295
        out     0x70, al
3296
        in      al, 0x71
3297
        test    al, al
3298
        jns     @f
3299
        mov     esi, 1
3300
        call    delay_ms
3301
        jmp     @b
3302
  @@:
3303
  ; end Lisovin's fix
3304
 
3305
        xor     al, al        ; seconds
3306
        out     0x70, al
3307
        in      al, 0x71
3308
        movzx   ecx, al
3309
        mov     al, 02        ; minutes
3310
        shl     ecx, 16
3311
        out     0x70, al
3312
        in      al, 0x71
3313
        movzx   edx, al
3314
        mov     al, 04        ; hours
3315
        shl     edx, 8
3316
        out     0x70, al
3317
        in      al, 0x71
3318
        add     ecx, edx
3319
        movzx   edx, al
3320
        add     ecx, edx
3321
        sti
3322
        mov     [esp + 32], ecx
3323
        ret
3324
 
3325
 
3326
align 4
3327
 
3328
sys_date:
3329
 
3330
        cli
3331
  @@:
3332
        mov     al, 10
3333
        out     0x70, al
3334
        in      al, 0x71
3335
        test    al, al
3336
        jns     @f
3337
        mov     esi, 1
3338
        call    delay_ms
3339
        jmp     @b
3340
  @@:
3341
 
3342
        mov     ch, 0
3343
        mov     al, 7           ; date
3344
        out     0x70, al
3345
        in      al, 0x71
3346
        mov     cl, al
3347
        mov     al, 8           ; month
3348
        shl     ecx, 16
3349
        out     0x70, al
3350
        in      al, 0x71
3351
        mov     ch, al
3352
        mov     al, 9           ; year
3353
        out     0x70, al
3354
        in      al, 0x71
3355
        mov     cl, al
3356
        sti
3357
        mov     [esp+32], ecx
3358
        ret
3359
 
3360
 
3361
; redraw status
3362
 
3363
sys_redrawstat:
3364
        cmp     ebx, 1
3365
        jne     no_widgets_away
3366
        ; buttons away
8869 rgimad 3367
        mov     ecx, [current_slot_idx]
2288 clevermous 3368
  sys_newba2:
3369
        mov     edi, [BTN_ADDR]
3370
        cmp     [edi], dword 0  ; empty button list ?
3371
        je      end_of_buttons_away
3372
        movzx   ebx, word [edi]
3373
        inc     ebx
3374
        mov     eax, edi
3375
  sys_newba:
3376
        dec     ebx
3377
        jz      end_of_buttons_away
3378
 
3379
        add     eax, 0x10
3380
        cmp     cx, [eax]
3381
        jnz     sys_newba
3382
 
3383
        push    eax ebx ecx
3384
        mov     ecx, ebx
3385
        inc     ecx
3386
        shl     ecx, 4
3387
        mov     ebx, eax
3388
        add     eax, 0x10
3389
        call    memmove
3390
        dec     dword [edi]
3391
        pop     ecx ebx eax
3392
 
3393
        jmp     sys_newba2
3394
 
3395
  end_of_buttons_away:
3396
 
3397
        ret
3398
 
3399
  no_widgets_away:
3400
 
3401
        cmp     ebx, 2
3402
        jnz     srl1
3403
 
3404
        mov     edx, [TASK_BASE]      ; return whole screen draw area for this app
8869 rgimad 3405
        add     edx, draw_data - TASK_TABLE
2288 clevermous 3406
        mov     [edx + RECT.left], 0
3407
        mov     [edx + RECT.top], 0
5350 serge 3408
        mov     eax, [_display.width]
3409
        dec     eax
2288 clevermous 3410
        mov     [edx + RECT.right], eax
5350 serge 3411
        mov     eax, [_display.height]
3412
        dec     eax
2288 clevermous 3413
        mov     [edx + RECT.bottom], eax
3414
 
3415
  srl1:
3416
        ret
3417
 
3418
;ok - 100% work
3419
;nt - not tested
3420
;---------------------------------------------------------------------------------------------
3421
;eax
3422
;0 - task switch counter. Ret switch counter in eax. Block. ok.
3423
;1 - change task. Ret nothing. Block. ok.
3424
;2 - performance control
3425
; ebx
3426
; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
3427
; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
3428
; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
3429
; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
3430
; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
3431
;eax
3432
;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
3433
;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
3434
;---------------------------------------------------------------------------------------------
3435
iglobal
3436
align 4
3437
sheduler:
3438
        dd      sys_sheduler.00
3439
        dd      change_task
3440
        dd      sys_sheduler.02
3441
        dd      sys_sheduler.03
3442
        dd      sys_sheduler.04
3443
endg
3444
sys_sheduler:
3445
;rewritten by   29.12.2009
3446
        jmp     dword [sheduler+ebx*4]
3447
;.shed_counter:
3448
.00:
3449
        mov     eax, [context_counter]
3450
        mov     [esp+32], eax
3451
        ret
3452
 
3453
.02:
3454
;.perf_control:
3455
        inc     ebx                     ;before ebx=2, ebx=3
3456
        cmp     ebx, ecx                ;if ecx=3, ebx=3
3457
        jz      cache_disable
3458
 
3459
        dec     ebx                     ;ebx=2
3460
        cmp     ebx, ecx                ;
3461
        jz      cache_enable            ;if ecx=2 and ebx=2
3462
 
3463
        dec     ebx                     ;ebx=1
3464
        cmp     ebx, ecx
3465
        jz      is_cache_enabled        ;if ecx=1 and ebx=1
3466
 
3467
        dec     ebx
3468
        test    ebx, ecx                ;ebx=0 and ecx=0
3469
        jz      modify_pce              ;if ecx=0
3470
 
3471
        ret
3472
 
3473
.03:
3474
;.rdmsr_instr:
3475
;now counter in ecx
3476
;(edx:eax) esi:edi => edx:esi
3477
        mov     eax, esi
3478
        mov     ecx, edx
3479
        rdmsr
3480
        mov     [esp+32], eax
3481
        mov     [esp+20], edx           ;ret in ebx?
3482
        ret
3483
 
3484
.04:
3485
;.wrmsr_instr:
3486
;now counter in ecx
3487
;(edx:eax) esi:edi => edx:esi
3488
        ; Fast Call MSR can't be destroy
3539 clevermous 3489
        ; Но MSR_AMD_EFER можно изменять, т.к. в этом регистре лиш
3490
        ; включаются/выключаются расширенные возможности
2288 clevermous 3491
        cmp     edx, MSR_SYSENTER_CS
3492
        je      @f
3493
        cmp     edx, MSR_SYSENTER_ESP
3494
        je      @f
3495
        cmp     edx, MSR_SYSENTER_EIP
3496
        je      @f
3497
        cmp     edx, MSR_AMD_STAR
3498
        je      @f
3499
 
3500
        mov     eax, esi
3501
        mov     ecx, edx
3502
        wrmsr
3503
        ; mov   [esp + 32], eax
3504
        ; mov   [esp + 20], edx ;ret in ebx?
3505
@@:
3506
        ret
3507
 
3508
cache_disable:
3509
        mov     eax, cr0
3510
        or      eax, 01100000000000000000000000000000b
3511
        mov     cr0, eax
3512
        wbinvd  ;set MESI
3513
        ret
3514
 
3515
cache_enable:
3516
        mov     eax, cr0
3517
        and     eax, 10011111111111111111111111111111b
3518
        mov     cr0, eax
3519
        ret
3520
 
3521
is_cache_enabled:
3522
        mov     eax, cr0
3523
        mov     ebx, eax
3524
        and     eax, 01100000000000000000000000000000b
3525
        jz      cache_disabled
3526
        mov     [esp+32], ebx
3527
cache_disabled:
3528
        mov     dword [esp+32], eax;0
3529
        ret
3530
 
3531
modify_pce:
3532
        mov     eax, cr4
3533
;       mov ebx,0
3534
;       or  bx,100000000b ;pce
3535
;       xor eax,ebx ;invert pce
3536
        bts     eax, 8;pce=cr4[8]
3537
        mov     cr4, eax
3538
        mov     [esp+32], eax
3539
        ret
3540
;---------------------------------------------------------------------------------------------
3541
 
3542
 
3543
iglobal
3544
  cpustring db 'CPU',0
3545
endg
3546
 
3547
uglobal
3548
background_defined    db    0    ; diamond, 11.04.2006
3549
endg
2513 mario79 3550
;-----------------------------------------------------------------------------
2288 clevermous 3551
align 4
3552
checkmisc:
3553
        cmp     [ctrl_alt_del], 1
3554
        jne     nocpustart
3555
 
3556
        mov     ebp, cpustring
3557
        call    fs_execute_from_sysdir
3558
 
3559
        mov     [ctrl_alt_del], 0
2513 mario79 3560
;--------------------------------------
3561
align 4
2288 clevermous 3562
nocpustart:
3563
        cmp     [mouse_active], 1
3564
        jne     mouse_not_active
3565
        mov     [mouse_active], 0
2411 Serge 3566
 
2288 clevermous 3567
        xor     edi, edi
8869 rgimad 3568
        mov     ebx, TASK_TABLE
2411 Serge 3569
 
8866 rgimad 3570
        mov     ecx, [thread_count]
2408 Serge 3571
        movzx   eax, word [WIN_POS + ecx*2]     ; active window
3572
        shl     eax, 8
2414 Serge 3573
        push    eax
2408 Serge 3574
 
2414 Serge 3575
        movzx   eax, word [MOUSE_X]
3576
        movzx   edx, word [MOUSE_Y]
2513 mario79 3577
;--------------------------------------
2408 Serge 3578
align 4
3579
.set_mouse_event:
8093 dunkaist 3580
        add     edi, sizeof.APPDATA
3581
        add     ebx, sizeof.TASKDATA
2411 Serge 3582
        test    [ebx+TASKDATA.event_mask], 0x80000000
2414 Serge 3583
        jz      .pos_filter
3584
 
3585
        cmp     edi, [esp]                      ; skip if filtration active
3586
        jne     .skip
2513 mario79 3587
;--------------------------------------
3588
align 4
2414 Serge 3589
.pos_filter:
3590
        test    [ebx+TASKDATA.event_mask], 0x40000000
2411 Serge 3591
        jz      .set
2288 clevermous 3592
 
2414 Serge 3593
        mov     esi, [ebx-twdw+WDATA.box.left]
3594
        cmp     eax, esi
3595
        jb      .skip
3596
        add     esi, [ebx-twdw+WDATA.box.width]
3597
        cmp     eax, esi
3598
        ja      .skip
3599
 
3600
        mov     esi, [ebx-twdw+WDATA.box.top]
3601
        cmp     edx, esi
3602
        jb      .skip
3603
        add     esi, [ebx-twdw+WDATA.box.height]
3604
        cmp     edx, esi
3605
        ja      .skip
2513 mario79 3606
;--------------------------------------
3607
align 4
2411 Serge 3608
.set:
8876 rgimad 3609
        or      [edi+SLOT_BASE+APPDATA.occurred_events], EVENT_MOUSE
2513 mario79 3610
;--------------------------------------
3611
align 4
2411 Serge 3612
.skip:
2408 Serge 3613
        loop    .set_mouse_event
3614
 
2414 Serge 3615
        pop     eax
2513 mario79 3616
;--------------------------------------
3617
align 4
2288 clevermous 3618
mouse_not_active:
6585 pathoswith 3619
        cmp     [REDRAW_BACKGROUND], 0  ; background update ?
2288 clevermous 3620
        jz      nobackgr
2524 mario79 3621
 
2288 clevermous 3622
        cmp     [background_defined], 0
3623
        jz      nobackgr
2513 mario79 3624
;--------------------------------------
3625
align 4
3536 clevermous 3626
backgr:
2537 mario79 3627
        mov     eax, [draw_data+32 + RECT.left]
3628
        shl     eax, 16
3629
        add     eax, [draw_data+32 + RECT.right]
3630
        mov     [BG_Rect_X_left_right], eax ; [left]*65536 + [right]
3631
 
3632
        mov     eax, [draw_data+32 + RECT.top]
3633
        shl     eax, 16
3634
        add     eax, [draw_data+32 + RECT.bottom]
3635
        mov     [BG_Rect_Y_top_bottom], eax ; [top]*65536 + [bottom]
3636
 
2288 clevermous 3637
        call    drawbackground
2580 mario79 3638
;        DEBUGF  1, "K : drawbackground\n"
2620 mario79 3639
;        DEBUGF  1, "K : backg x %x\n",[BG_Rect_X_left_right]
3640
;        DEBUGF  1, "K : backg y %x\n",[BG_Rect_Y_top_bottom]
2513 mario79 3641
;--------- set event 5 start ----------
3642
        push    ecx edi
3643
        xor     edi, edi
8866 rgimad 3644
        mov     ecx, [thread_count]
2513 mario79 3645
;--------------------------------------
3646
align 4
3647
set_bgr_event:
8093 dunkaist 3648
        add     edi, sizeof.APPDATA
3536 clevermous 3649
        mov     eax, [BG_Rect_X_left_right]
3650
        mov     edx, [BG_Rect_Y_top_bottom]
3651
        cmp     [edi+SLOT_BASE+APPDATA.draw_bgr_x], 0
3652
        jz      .set
3653
.join:
3611 clevermous 3654
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
3655
        jae     @f
3656
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
3657
@@:
3658
        shr     eax, 16
3536 clevermous 3659
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
3660
        jbe     @f
3661
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
3662
@@:
3611 clevermous 3663
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3536 clevermous 3664
        jae     @f
3611 clevermous 3665
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3536 clevermous 3666
@@:
3611 clevermous 3667
        shr     edx, 16
3536 clevermous 3668
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
3669
        jbe     @f
3670
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
3671
@@:
3672
        jmp     .common
3673
.set:
3674
        mov     [edi+SLOT_BASE+APPDATA.draw_bgr_x], eax
3675
        mov     [edi+SLOT_BASE+APPDATA.draw_bgr_y], edx
3676
.common:
8876 rgimad 3677
        or      [edi+SLOT_BASE+APPDATA.occurred_events], EVENT_BACKGROUND
2513 mario79 3678
        loop    set_bgr_event
3679
        pop     edi ecx
3680
;--------- set event 5 stop -----------
6585 pathoswith 3681
        dec     [REDRAW_BACKGROUND]     ; got new update request?
3536 clevermous 3682
        jnz     backgr
2513 mario79 3683
 
3536 clevermous 3684
        xor     eax, eax
2288 clevermous 3685
        mov     [draw_data+32 + RECT.left], eax
3686
        mov     [draw_data+32 + RECT.top], eax
3687
        mov     [draw_data+32 + RECT.right], eax
3688
        mov     [draw_data+32 + RECT.bottom], eax
2513 mario79 3689
;--------------------------------------
3690
align 4
2288 clevermous 3691
nobackgr:
2513 mario79 3692
; system shutdown request
2288 clevermous 3693
        cmp     [SYS_SHUTDOWN], byte 0
3694
        je      noshutdown
3695
 
3696
        mov     edx, [shutdown_processes]
3697
 
3698
        cmp     [SYS_SHUTDOWN], dl
3325 clevermous 3699
        jne     noshutdown
2288 clevermous 3700
 
3701
        lea     ecx, [edx-1]
3702
        mov     edx, OS_BASE+0x3040
3325 clevermous 3703
        jecxz   no_mark_system_shutdown
2513 mario79 3704
;--------------------------------------
3705
align 4
2288 clevermous 3706
markz:
3296 clevermous 3707
        push    ecx edx
6122 hidnplayr 3708
        cmp     [edx+TASKDATA.state], TSTATE_FREE
3325 clevermous 3709
        jz      .nokill
8869 rgimad 3710
        lea     edx, [(edx-(TASK_TABLE and 1FFFFFFFh))*8+SLOT_BASE]
5130 serge 3711
        cmp     [edx+APPDATA.process], sys_proc
3325 clevermous 3712
        jz      .nokill
3296 clevermous 3713
        call    request_terminate
3325 clevermous 3714
        jmp     .common
3715
.nokill:
3716
        dec     byte [SYS_SHUTDOWN]
3717
        xor     eax, eax
3718
.common:
3296 clevermous 3719
        pop     edx ecx
3720
        test    eax, eax
3721
        jz      @f
6122 hidnplayr 3722
        mov     [edx+TASKDATA.state], TSTATE_ZOMBIE
3296 clevermous 3723
@@:
2288 clevermous 3724
        add     edx, 0x20
3725
        loop    markz
3534 clevermous 3726
        call    wakeup_osloop
2513 mario79 3727
;--------------------------------------
3728
align 4
2288 clevermous 3729
@@:
2513 mario79 3730
no_mark_system_shutdown:
2288 clevermous 3731
        dec     byte [SYS_SHUTDOWN]
3732
        je      system_shutdown
2513 mario79 3733
;--------------------------------------
3734
align 4
2288 clevermous 3735
noshutdown:
8866 rgimad 3736
        mov     eax, [thread_count]           ; termination
2288 clevermous 3737
        mov     ebx, TASK_DATA+TASKDATA.state
3738
        mov     esi, 1
2513 mario79 3739
;--------------------------------------
3740
align 4
2288 clevermous 3741
newct:
3742
        mov     cl, [ebx]
3743
        cmp     cl, byte 3
3325 clevermous 3744
        jz      .terminate
2513 mario79 3745
 
2288 clevermous 3746
        cmp     cl, byte 4
3325 clevermous 3747
        jnz     .noterminate
3748
.terminate:
3749
        pushad
3493 mario79 3750
        mov     ecx, eax
3751
        shl     ecx, 8
3752
        add     ecx, SLOT_BASE
3753
        call    restore_default_cursor_before_killing
3754
        popad
3755
 
3756
        pushad
3325 clevermous 3757
        call    terminate
3758
        popad
3759
        cmp     byte [SYS_SHUTDOWN], 0
3760
        jz      .noterminate
3761
        dec     byte [SYS_SHUTDOWN]
3762
        je      system_shutdown
2288 clevermous 3763
 
3325 clevermous 3764
.noterminate:
2288 clevermous 3765
        add     ebx, 0x20
3766
        inc     esi
3767
        dec     eax
3768
        jnz     newct
3769
        ret
2513 mario79 3770
;-----------------------------------------------------------------------------
3771
align 4
2288 clevermous 3772
redrawscreen:
3773
; eax , if process window_data base is eax, do not set flag/limits
3774
 
3775
        pushad
3776
        push    eax
3777
 
3778
;;;         mov   ebx,2
3779
;;;         call  delay_hs
3780
 
3781
         ;mov   ecx,0               ; redraw flags for apps
3782
        xor     ecx, ecx
2513 mario79 3783
;--------------------------------------
3784
align 4
3785
newdw2:
2288 clevermous 3786
        inc     ecx
3787
        push    ecx
3788
 
3789
        mov     eax, ecx
3790
        shl     eax, 5
3791
        add     eax, window_data
3792
 
3793
        cmp     eax, [esp+4]
3794
        je      not_this_task
3795
                                   ; check if window in redraw area
3796
        mov     edi, eax
3797
 
3798
        cmp     ecx, 1             ; limit for background
3799
        jz      bgli
3800
 
5870 GerdtR 3801
        mov     eax, [esp+4]        ;if upper in z-position - no redraw
3802
        test    eax, eax
3803
        jz      @f
3804
        mov     al, [eax + WDATA.z_modif]
3805
        cmp     [edi + WDATA.z_modif], al
3806
        jg      ricino
3807
      @@:
3808
 
2288 clevermous 3809
        mov     eax, [edi + WDATA.box.left]
3810
        mov     ebx, [edi + WDATA.box.top]
3811
 
3812
        mov     ecx, [draw_limits.bottom] ; ecx = area y end     ebx = window y start
3813
        cmp     ecx, ebx
3814
        jb      ricino
3815
 
3816
        mov     ecx, [draw_limits.right] ; ecx = area x end     eax = window x start
3817
        cmp     ecx, eax
3818
        jb      ricino
3819
 
3820
        mov     eax, [edi + WDATA.box.left]
3821
        mov     ebx, [edi + WDATA.box.top]
3822
        mov     ecx, [edi + WDATA.box.width]
3823
        mov     edx, [edi + WDATA.box.height]
3824
        add     ecx, eax
3825
        add     edx, ebx
3826
 
3827
        mov     eax, [draw_limits.top]  ; eax = area y start     edx = window y end
3828
        cmp     edx, eax
3829
        jb      ricino
3830
 
3831
        mov     eax, [draw_limits.left]  ; eax = area x start     ecx = window x end
3832
        cmp     ecx, eax
3833
        jb      ricino
2513 mario79 3834
;--------------------------------------
3835
align 4
3836
bgli:
2288 clevermous 3837
        cmp     dword[esp], 1
3838
        jnz     .az
2513 mario79 3839
 
6585 pathoswith 3840
        cmp     [REDRAW_BACKGROUND], 0
2288 clevermous 3841
        jz      .az
2513 mario79 3842
 
2288 clevermous 3843
        mov     dl, 0
3844
        lea     eax, [edi+draw_data-window_data]
3845
        mov     ebx, [draw_limits.left]
3846
        cmp     ebx, [eax+RECT.left]
3847
        jae     @f
2513 mario79 3848
 
2288 clevermous 3849
        mov     [eax+RECT.left], ebx
3850
        mov     dl, 1
2513 mario79 3851
;--------------------------------------
3852
align 4
3853
@@:
2288 clevermous 3854
        mov     ebx, [draw_limits.top]
3855
        cmp     ebx, [eax+RECT.top]
3856
        jae     @f
2513 mario79 3857
 
2288 clevermous 3858
        mov     [eax+RECT.top], ebx
3859
        mov     dl, 1
2513 mario79 3860
;--------------------------------------
3861
align 4
3862
@@:
2288 clevermous 3863
        mov     ebx, [draw_limits.right]
3864
        cmp     ebx, [eax+RECT.right]
3865
        jbe     @f
2513 mario79 3866
 
2288 clevermous 3867
        mov     [eax+RECT.right], ebx
3868
        mov     dl, 1
2513 mario79 3869
;--------------------------------------
3870
align 4
3871
@@:
2288 clevermous 3872
        mov     ebx, [draw_limits.bottom]
3873
        cmp     ebx, [eax+RECT.bottom]
3874
        jbe     @f
2513 mario79 3875
 
2288 clevermous 3876
        mov     [eax+RECT.bottom], ebx
3877
        mov     dl, 1
2513 mario79 3878
;--------------------------------------
3879
align 4
3880
@@:
6585 pathoswith 3881
        add     [REDRAW_BACKGROUND], dl
3534 clevermous 3882
        call    wakeup_osloop
2288 clevermous 3883
        jmp     newdw8
2513 mario79 3884
;--------------------------------------
3885
align 4
3886
.az:
2288 clevermous 3887
        mov     eax, edi
3888
        add     eax, draw_data-window_data
3889
 
3890
        mov     ebx, [draw_limits.left]        ; set limits
3891
        mov     [eax + RECT.left], ebx
3892
        mov     ebx, [draw_limits.top]
3893
        mov     [eax + RECT.top], ebx
3894
        mov     ebx, [draw_limits.right]
3895
        mov     [eax + RECT.right], ebx
3896
        mov     ebx, [draw_limits.bottom]
3897
        mov     [eax + RECT.bottom], ebx
3898
 
3899
        sub     eax, draw_data-window_data
3900
 
3901
        cmp     dword [esp], 1
3902
        jne     nobgrd
6585 pathoswith 3903
        inc     [REDRAW_BACKGROUND]
3534 clevermous 3904
        call    wakeup_osloop
2513 mario79 3905
;--------------------------------------
3906
align 4
3907
newdw8:
3908
nobgrd:
3936 mario79 3909
;--------------------------------------
3910
        push    eax  edi ebp
3911
        mov     edi, [esp+12]
3912
        cmp     edi, 1
3913
        je      .found
2288 clevermous 3914
 
3936 mario79 3915
        mov     eax, [draw_limits.left]
3916
        mov     ebx, [draw_limits.top]
3917
        mov     ecx, [draw_limits.right]
3918
        sub     ecx, eax
3919
        test    ecx, ecx
3920
        jz      .not_found
3921
 
3922
        mov     edx, [draw_limits.bottom]
3923
        sub     edx, ebx
3924
        test    edx, edx
3925
        jz      .not_found
3926
 
3927
; eax - x, ebx - y
3928
; ecx - size x, edx - size y
3929
        add     ebx, edx
3930
;--------------------------------------
3931
align 4
3932
.start_y:
3933
        push    ecx
3934
;--------------------------------------
3935
align 4
3936
.start_x:
3937
        add     eax, ecx
3938
        mov     ebp, [d_width_calc_area + ebx*4]
5351 serge 3939
        add     ebp, [_display.win_map]
3936 mario79 3940
        movzx   ebp, byte[eax+ebp] ; get value for current point
3941
        cmp     ebp, edi
3942
        jne     @f
3943
 
3944
        pop     ecx
3945
        jmp     .found
3946
;--------------------------------------
3947
align 4
3948
@@:
3949
        sub     eax, ecx
3950
 
3951
        dec     ecx
3952
        jnz     .start_x
3953
 
3954
        pop     ecx
3955
        dec     ebx
3956
        dec     edx
3957
        jnz     .start_y
3958
;--------------------------------------
3959
align 4
3960
.not_found:
3961
        pop     ebp edi eax
3962
        jmp     ricino
3963
;--------------------------------------
3964
align 4
3965
.found:
3966
        pop     ebp edi eax
3967
 
2288 clevermous 3968
        mov     [eax + WDATA.fl_redraw], byte 1  ; mark as redraw
2513 mario79 3969
;--------------------------------------
3970
align 4
3971
ricino:
3972
not_this_task:
2288 clevermous 3973
        pop     ecx
3974
 
8866 rgimad 3975
        cmp     ecx, [thread_count]
2288 clevermous 3976
        jle     newdw2
3977
 
3978
        pop     eax
3979
        popad
3980
        ret
2513 mario79 3981
;-----------------------------------------------------------------------------
3982
align 4
2288 clevermous 3983
calculatebackground:   ; background
5351 serge 3984
        mov     edi, [_display.win_map]              ; set os to use all pixels
2288 clevermous 3985
        mov     eax, 0x01010101
5351 serge 3986
        mov     ecx, [_display.win_map_size]
2288 clevermous 3987
        shr     ecx, 2
3988
        rep stosd
6585 pathoswith 3989
        mov     byte[window_data+32+WDATA.z_modif], ZPOS_DESKTOP
3990
        mov     [REDRAW_BACKGROUND], 0
2288 clevermous 3991
        ret
2513 mario79 3992
;-----------------------------------------------------------------------------
2288 clevermous 3993
uglobal
3994
  imax    dd 0x0
3995
endg
2513 mario79 3996
;-----------------------------------------------------------------------------
3997
align 4
2288 clevermous 3998
delay_ms:     ; delay in 1/1000 sec
8139 dunkaist 3999
        pushad
4000
 
4001
        cmp     [hpet_base], 0
4002
        jz      .no_hpet
4003
        mov     eax, esi
8176 dunkaist 4004
        mov     edx, 1_000_000 ; ms to ns
8139 dunkaist 4005
        mul     edx
4006
        mov     ebx, edx
4007
        mov     ecx, eax
4008
 
2288 clevermous 4009
        push    ecx
8139 dunkaist 4010
        call    get_clock_ns
4011
        pop     ecx
4012
        mov     edi, edx
4013
        mov     esi, eax
4014
.wait:
4015
        push    ecx
4016
        call    get_clock_ns
4017
        pop     ecx
4018
        sub     eax, esi
4019
        sbb     edx, edi
4020
        sub     eax, ecx
4021
        sbb     edx, ebx
4022
        jc      .wait
4023
        jmp     .done
2288 clevermous 4024
 
8139 dunkaist 4025
.no_hpet:
2288 clevermous 4026
        mov     ecx, esi
4027
        ; 
4028
        imul    ecx, 33941
4029
        shr     ecx, 9
4030
        ; 
4031
 
4032
        in      al, 0x61
4033
        and     al, 0x10
4034
        mov     ah, al
4035
        cld
8139 dunkaist 4036
 
4037
.cnt1:
2288 clevermous 4038
        in      al, 0x61
4039
        and     al, 0x10
4040
        cmp     al, ah
8139 dunkaist 4041
        jz      .cnt1
2288 clevermous 4042
 
4043
        mov     ah, al
8139 dunkaist 4044
        loop    .cnt1
2288 clevermous 4045
 
8139 dunkaist 4046
.done:
4047
        popad
2288 clevermous 4048
        ret
2513 mario79 4049
;-----------------------------------------------------------------------------
2411 Serge 4050
align 4
2288 clevermous 4051
set_app_param:
4052
        mov     edi, [TASK_BASE]
2408 Serge 4053
        mov     eax, ebx
4054
        xchg    eax, [edi + TASKDATA.event_mask] ; set new event mask
4055
        mov     [esp+32], eax                    ; return old mask value
2288 clevermous 4056
        ret
2513 mario79 4057
;-----------------------------------------------------------------------------
3303 clevermous 4058
 
4059
; this is for syscall
4060
proc delay_hs_unprotected
4061
        call    unprotect_from_terminate
4062
        call    delay_hs
4063
        call    protect_from_terminate
4064
        ret
4065
endp
4066
 
3597 Serge 4067
if 1
2513 mario79 4068
align 4
2288 clevermous 4069
delay_hs:     ; delay in 1/100 secs
4070
; ebx = delay time
4071
 
3595 Serge 4072
        pushad
4073
        push    ebx
4074
        xor     esi, esi
4075
        mov     ecx, MANUAL_DESTROY
4076
        call    create_event
4077
        test    eax, eax
4078
        jz      .done
2288 clevermous 4079
 
3595 Serge 4080
        mov     ebx, edx
4081
        mov     ecx, [esp]
3597 Serge 4082
        push    edx
3595 Serge 4083
        push    eax
4084
        call    wait_event_timeout
4085
        pop     eax
3597 Serge 4086
        pop     ebx
3595 Serge 4087
        call    destroy_event
4088
.done:
4089
        add     esp, 4
4090
        popad
2288 clevermous 4091
        ret
3596 Serge 4092
 
4093
else
4094
 
4095
align 4
4096
delay_hs:     ; delay in 1/100 secs
4097
; ebx = delay time
4098
        push    ecx
4099
        push    edx
4100
 
4101
        mov     edx, [timer_ticks]
4102
;--------------------------------------
4103
align 4
4104
newtic:
4105
        mov     ecx, [timer_ticks]
4106
        sub     ecx, edx
4107
        cmp     ecx, ebx
4108
        jae     zerodelay
4109
 
4110
        call    change_task
4111
 
4112
        jmp     newtic
4113
;--------------------------------------
4114
align 4
4115
zerodelay:
4116
        pop     edx
4117
        pop     ecx
4118
        ret
4119
end if
4120
 
2513 mario79 4121
;-----------------------------------------------------------------------------
2288 clevermous 4122
align 16        ;very often call this subrutine
4123
memmove:       ; memory move in bytes
4124
; eax = from
4125
; ebx = to
4126
; ecx = no of bytes
4127
        test    ecx, ecx
4128
        jle     .ret
4129
 
4130
        push    esi edi ecx
4131
 
4132
        mov     edi, ebx
4133
        mov     esi, eax
4134
 
4135
        test    ecx, not 11b
4136
        jz      @f
4137
 
4138
        push    ecx
4139
        shr     ecx, 2
4140
        rep movsd
4141
        pop     ecx
4142
        and     ecx, 11b
4143
        jz      .finish
2513 mario79 4144
;--------------------------------------
4145
align 4
4146
@@:
2288 clevermous 4147
        rep movsb
2513 mario79 4148
;--------------------------------------
4149
align 4
4150
.finish:
2288 clevermous 4151
        pop     ecx edi esi
2513 mario79 4152
;--------------------------------------
4153
align 4
4154
.ret:
2288 clevermous 4155
        ret
2513 mario79 4156
;-----------------------------------------------------------------------------
2288 clevermous 4157
;  Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
4158
;align 4
4159
;
4160
;read_floppy_file:
4161
;
4162
;; as input
4163
;;
4164
;; eax pointer to file
4165
;; ebx file lenght
4166
;; ecx start 512 byte block number
4167
;; edx number of blocks to read
4168
;; esi pointer to return/work area (atleast 20 000 bytes)
4169
;;
4170
;;
4171
;; on return
4172
;;
4173
;; eax = 0 command succesful
4174
;;       1 no fd base and/or partition defined
4175
;;       2 yet unsupported FS
4176
;;       3 unknown FS
4177
;;       4 partition not defined at hd
4178
;;       5 file not found
4179
;; ebx = size of file
4180
;
4181
;     mov   edi,[TASK_BASE]
4182
;     add   edi,0x10
4183
;     add   esi,[edi]
4184
;     add   eax,[edi]
4185
;
4186
;     pushad
4187
;     mov  edi,esi
4188
;     add  edi,1024
4189
;     mov  esi,0x100000+19*512
4190
;     sub  ecx,1
4191
;     shl  ecx,9
4192
;     add  esi,ecx
4193
;     shl  edx,9
4194
;     mov  ecx,edx
4195
;     cld
4196
;     rep  movsb
4197
;     popad
4198
;
4199
;     mov   [esp+36],eax
4200
;     mov   [esp+24],ebx
4201
;     ret
4202
 
4203
 
4204
 
4205
align 4
4206
set_io_access_rights:
4207
        push    edi eax
4208
        mov     edi, tss._io_map_0
4209
;     mov   ecx,eax
4210
;     and   ecx,7    ; offset in byte
4211
;     shr   eax,3    ; number of byte
4212
;     add   edi,eax
4213
;     mov   ebx,1
4214
;     shl   ebx,cl
4215
        test    ebp, ebp
4216
;     cmp   ebp,0                ; enable access - ebp = 0
4217
        jnz     .siar1
4218
;     not   ebx
4219
;     and   [edi],byte bl
4220
        btr     [edi], eax
4221
        pop     eax edi
4222
        ret
4223
.siar1:
4224
        bts     [edi], eax
4225
  ;  or    [edi],byte bl        ; disable access - ebp = 1
4226
        pop     eax edi
4227
        ret
4228
;reserve/free group of ports
4229
;  * eax = 46 - number function
4230
;  * ebx = 0 - reserve, 1 - free
4231
;  * ecx = number start arrea of ports
4232
;  * edx = number end arrea of ports (include last number of port)
4233
;Return value:
4234
;  * eax = 0 - succesful
4235
;  * eax = 1 - error
4236
;  * The system has reserve this ports:
4237
;    0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
4238
;destroys eax,ebx, ebp
4239
r_f_port_area:
4240
 
4241
        test    ebx, ebx
4242
        jnz     free_port_area
4243
;     je    r_port_area
4244
;     jmp   free_port_area
4245
 
4246
;   r_port_area:
4247
 
4248
;     pushad
4249
 
4250
        cmp     ecx, edx      ; beginning > end ?
4251
        ja      rpal1
4252
        cmp     edx, 65536
4253
        jae     rpal1
4254
        mov     eax, [RESERVED_PORTS]
4255
        test    eax, eax      ; no reserved areas ?
4256
        je      rpal2
4257
        cmp     eax, 255      ; max reserved
4258
        jae     rpal1
4259
 rpal3:
4260
        mov     ebx, eax
4261
        shl     ebx, 4
4262
        add     ebx, RESERVED_PORTS
4263
        cmp     ecx, [ebx+8]
4264
        ja      rpal4
4265
        cmp     edx, [ebx+4]
4266
        jae     rpal1
4267
;     jb    rpal4
4268
;     jmp   rpal1
4269
 rpal4:
4270
        dec     eax
4271
        jnz     rpal3
4272
        jmp     rpal2
4273
   rpal1:
4274
;     popad
4275
;     mov   eax,1
4276
        xor     eax, eax
4277
        inc     eax
4278
        ret
4279
   rpal2:
4280
;     popad
4281
     ; enable port access at port IO map
4282
        cli
4283
        pushad                        ; start enable io map