Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
2288 clevermous 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;
5363 yogev_ezra 3
;; Copyright (C) KolibriOS team 2004-2015. 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
33
;;
34
;; Data in this file was originally part of MenuetOS project which is
35
;; distributed under the terms of GNU GPL. It is modified and redistributed as
36
;; part of KolibriOS project under the terms of GNU GPL.
37
;;
38
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
39
;; PROGRAMMING:
40
;;
41
;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
42
;; - main os coding/design
43
;; Jan-Michael Brummer, BUZZ2@gmx.de
44
;; Felix Kaiser, info@felix-kaiser.de
45
;; Paolo Minazzi, paolo.minazzi@inwind.it
46
;; quickcode@mail.ru
47
;; Alexey, kgaz@crosswinds.net
48
;; Juan M. Caravaca, bitrider@wanadoo.es
49
;; kristol@nic.fi
50
;; Mike Hibbett, mikeh@oceanfree.net
51
;; Lasse Kuusijarvi, kuusijar@lut.fi
52
;; Jarek Pelczar, jarekp3@wp.pl
53
;;
54
;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
55
;; WARRANTY. No author or distributor accepts responsibility to anyone for the
56
;; consequences of using it or for whether it serves any particular purpose or
57
;; works at all, unless he says so in writing. Refer to the GNU General Public
58
;; License (the "GPL") for full details.
59
;
60
;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
61
;; but only under the conditions described in the GPL. A copy of this license
62
;; is supposed to have been given to you along with KolibriOS so you can know
63
;; your rights and responsibilities. It should be in a file named COPYING.
64
;; Among other things, the copyright notice and this notice must be preserved
65
;; on all copies.
66
;;
67
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
68
 
3383 hidnplayr 69
format binary as "mnt"
70
 
2288 clevermous 71
include 'macros.inc'
2381 hidnplayr 72
include 'struct.inc'
2288 clevermous 73
 
74
$Revision: 5836 $
75
 
76
 
77
USE_COM_IRQ     equ 1      ; make irq 3 and irq 4 available for PCI devices
3627 Serge 78
VESA_1_2_VIDEO  equ 0      ; enable vesa 1.2 bank switch functions
2288 clevermous 79
 
80
; Enabling the next line will enable serial output console
3556 hidnplayr 81
;debug_com_base  equ 0x3f8  ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used
2288 clevermous 82
 
83
include "proc32.inc"
84
include "kglobals.inc"
85
include "lang.inc"
3539 clevermous 86
include "encoding.inc"
2288 clevermous 87
 
88
include "const.inc"
3777 yogev_ezra 89
 
90
iglobal
91
; The following variable, if equal to 1, duplicates debug output to the screen.
92
debug_direct_print db 0
93
; Start the first app (LAUNCHER) after kernel is loaded? (1=yes, 2 or 0=no)
94
launcher_start db 1
95
endg
96
 
2288 clevermous 97
max_processes    equ   255
98
tss_step         equ   (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4
99
 
100
os_stack       equ  (os_data_l-gdts)    ; GDTs
101
os_code        equ  (os_code_l-gdts)
102
graph_data     equ  (3+graph_data_l-gdts)
103
tss0           equ  (tss0_l-gdts)
104
app_code       equ  (3+app_code_l-gdts)
105
app_data       equ  (3+app_data_l-gdts)
106
app_tls        equ  (3+tls_data_l-gdts)
107
pci_code_sel   equ  (pci_code_32-gdts)
108
pci_data_sel   equ  (pci_data_32-gdts)
109
 
110
 
111
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
112
;;
113
;;   Included files:
114
;;
115
;;   Kernel16.inc
116
;;    - Booteng.inc   English text for bootup
117
;;    - Bootcode.inc  Hardware setup
118
;;    - Pci16.inc     PCI functions
119
;;
120
;;   Kernel32.inc
121
;;    - Sys32.inc     Process management
122
;;    - Shutdown.inc  Shutdown and restart
123
;;    - Fat32.inc     Read / write hd
124
;;    - Vesa12.inc    Vesa 1.2 driver
125
;;    - Vesa20.inc    Vesa 2.0 driver
126
;;    - Vga.inc       VGA driver
127
;;    - Stack.inc     Network interface
128
;;    - Mouse.inc     Mouse pointer
129
;;    - Scincode.inc  Window skinning
130
;;    - Pci32.inc     PCI functions
131
;;
132
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
133
 
134
 
135
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
136
;;                                                                      ;;
137
;;                  16 BIT ENTRY FROM BOOTSECTOR                        ;;
138
;;                                                                      ;;
139
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
140
 
141
use16
142
                  org   0x0
143
        jmp     start_of_code
144
 
3287 esevece 145
if lang eq sp
146
include "kernelsp.inc"  ; spanish kernel messages
3927 kaitz 147
else if lang eq et
148
version db    'Kolibri OS  versioon 0.7.7.0+    ',13,10,13,10,0
3287 esevece 149
else
2288 clevermous 150
version db    'Kolibri OS  version 0.7.7.0+     ',13,10,13,10,0
3287 esevece 151
end if
2288 clevermous 152
 
153
include "boot/bootstr.inc"     ; language-independent boot messages
154
include "boot/preboot.inc"
155
 
3274 esevece 156
if lang eq ge
157
include "boot/bootge.inc"     ; german system boot messages
158
else if lang eq sp
159
include "boot/bootsp.inc"     ; spanish system boot messages
2288 clevermous 160
else if lang eq ru
161
include "boot/bootru.inc"      ; russian system boot messages
162
include "boot/ru.inc"          ; Russian font
163
else if lang eq et
164
include "boot/bootet.inc"      ; estonian system boot messages
165
include "boot/et.inc"          ; Estonian font
166
else
3274 esevece 167
include "boot/booten.inc"      ; english system boot messages
2288 clevermous 168
end if
169
 
170
include "boot/bootcode.inc"    ; 16 bit system boot code
171
include "bus/pci/pci16.inc"
172
include "detect/biosdisk.inc"
173
 
174
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
175
;;                                                                      ;;
176
;;                  SWITCH TO 32 BIT PROTECTED MODE                     ;;
177
;;                                                                      ;;
178
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
179
 
180
 
181
; CR0 Flags - Protected mode and Paging
182
 
183
        mov     ecx, CR0_PE
184
 
185
; Enabling 32 bit protected mode
186
 
187
        sidt    [cs:old_ints_h]
188
 
189
        cli                             ; disable all irqs
190
        cld
191
        mov     al, 255                 ; mask all irqs
192
        out     0xa1, al
193
        out     0x21, al
194
   l.5:
195
        in      al, 0x64                ; Enable A20
196
        test    al, 2
197
        jnz     l.5
198
        mov     al, 0xD1
199
        out     0x64, al
200
   l.6:
201
        in      al, 0x64
202
        test    al, 2
203
        jnz     l.6
204
        mov     al, 0xDF
205
        out     0x60, al
206
   l.7:
207
        in      al, 0x64
208
        test    al, 2
209
        jnz     l.7
210
        mov     al, 0xFF
211
        out     0x64, al
212
 
213
        lgdt    [cs:tmp_gdt]            ; Load GDT
214
        mov     eax, cr0                ; protected mode
215
        or      eax, ecx
216
        and     eax, 10011111b *65536*256 + 0xffffff ; caching enabled
217
        mov     cr0, eax
218
        jmp     pword os_code:B32       ; jmp to enable 32 bit mode
219
 
220
align 8
221
tmp_gdt:
222
 
223
        dw     23
224
        dd     tmp_gdt+0x10000
225
        dw     0
226
 
227
        dw     0xffff
228
        dw     0x0000
229
        db     0x00
230
        dw     11011111b *256 +10011010b
231
        db     0x00
232
 
233
        dw     0xffff
234
        dw     0x0000
235
        db     0x00
236
        dw     11011111b *256 +10010010b
237
        db     0x00
238
 
239
include "data16.inc"
240
 
3627 Serge 241
if ~ lang eq sp
242
diff16 "end of bootcode",0,$+0x10000
243
end if
244
 
2288 clevermous 245
use32
246
org $+0x10000
247
 
248
align 4
249
B32:
250
        mov     ax, os_stack       ; Selector for os
251
        mov     ds, ax
252
        mov     es, ax
253
        mov     fs, ax
254
        mov     gs, ax
255
        mov     ss, ax
256
        mov     esp, 0x006CC00       ; Set stack
257
 
258
; CLEAR 0x280000 - HEAP_BASE
259
 
260
        xor     eax, eax
261
        mov     edi, CLEAN_ZONE
262
        mov     ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4
263
        cld
264
        rep stosd
265
 
266
; CLEAR KERNEL UNDEFINED GLOBALS
267
        mov     edi, endofcode-OS_BASE
268
        mov     ecx, 0x90000
269
        sub     ecx, edi
270
        shr     ecx, 2
271
        rep stosd
272
 
273
; SAVE & CLEAR 0-0xffff
274
 
275
        mov     edi, 0x1000
3732 Serge 276
        mov     ecx, 0x8000 / 4
2288 clevermous 277
        rep stosd
3732 Serge 278
        mov     edi, 0xa000
279
        mov     ecx, 0x6000 / 4
280
        rep stosd
2288 clevermous 281
 
282
        call    test_cpu
283
        bts     [cpu_caps-OS_BASE], CAPS_TSC    ;force use rdtsc
284
 
285
        call    check_acpi
5787 serge 286
        call    init_hpet
2288 clevermous 287
        call    init_BIOS32
288
; MEMORY MODEL
289
        call    mem_test
290
        call    init_mem
291
        call    init_page_map
292
 
293
; ENABLE PAGING
294
 
5130 serge 295
        mov     eax, sys_proc-OS_BASE+PROC.pdt_0
2288 clevermous 296
        mov     cr3, eax
297
 
298
        mov     eax, cr0
299
        or      eax, CR0_PG+CR0_WP
300
        mov     cr0, eax
301
 
302
        lgdt    [gdts]
303
        jmp     pword os_code:high_code
304
 
305
align 4
306
bios32_entry    dd ?
307
tmp_page_tabs   dd ?
308
 
309
use16
310
org $-0x10000
311
include "boot/shutdown.inc" ; shutdown or restart
312
org $+0x10000
5033 clevermous 313
 
314
ap_init16:
315
        cli
316
        lgdt    [cs:gdts_ap-ap_init16]
317
        mov     eax, [cs:cr3_ap-ap_init16]
318
        mov     cr3, eax
319
        mov     eax, [cs:cr4_ap-ap_init16]
320
        mov     cr4, eax
321
        mov     eax, CR0_PE+CR0_PG+CR0_WP
322
        mov     cr0, eax
323
        jmp     pword os_code:ap_init_high
324
align 16
325
gdts_ap:
326
        dw     gdte-gdts-1
327
        dd     gdts
328
        dw     0
329
cr3_ap  dd     ?
330
cr4_ap  dd     ?
331
ap_init16_size = $ - ap_init16
2288 clevermous 332
use32
333
 
334
__DEBUG__ fix 1
335
__DEBUG_LEVEL__ fix 1
336
include 'init.inc'
337
 
338
org OS_BASE+$
339
 
2443 Serge 340
include 'fdo.inc'
341
 
2288 clevermous 342
align 4
343
high_code:
344
        mov     ax, os_stack
345
        mov     bx, app_data
346
        mov     cx, app_tls
347
        mov     ss, ax
348
        add     esp, OS_BASE
349
 
350
        mov     ds, bx
351
        mov     es, bx
352
        mov     fs, cx
353
        mov     gs, bx
354
 
5360 serge 355
        xor     eax, eax
356
        mov     ebx, 0xFFFFF000+PG_SHARED+PG_NOCACHE+PG_UWR
357
        bt      [cpu_caps], CAPS_PAT
358
        setc    al
359
        shl     eax, 7
360
        or      ebx, eax
361
 
5359 serge 362
        mov     eax, PG_GLOBAL
2288 clevermous 363
        bt      [cpu_caps], CAPS_PGE
364
        jnc     @F
365
 
5359 serge 366
        or      [sys_proc+PROC.pdt_0+(OS_BASE shr 20)], eax
5360 serge 367
        or      ebx, eax
2288 clevermous 368
 
5360 serge 369
        mov     eax, cr4
370
        or      eax, CR4_PGE
371
        mov     cr4, eax
2288 clevermous 372
@@:
5360 serge 373
        mov     [pte_valid_mask], ebx
374
 
2288 clevermous 375
        xor     eax, eax
5130 serge 376
        mov     dword [sys_proc+PROC.pdt_0], eax
377
        mov     dword [sys_proc+PROC.pdt_0+4], eax
2288 clevermous 378
 
379
        mov     eax, cr3
380
        mov     cr3, eax          ; flush TLB
381
 
382
        mov     ecx, pg_data.mutex
383
        call    mutex_init
384
 
385
        mov     ecx, disk_list_mutex
386
        call    mutex_init
387
 
2601 clevermous 388
        mov     ecx, keyboard_list_mutex
389
        call    mutex_init
390
 
2489 mario79 391
        mov     ecx, unpack_mutex
392
        call    mutex_init
393
 
3534 clevermous 394
        mov     ecx, application_table_mutex
395
        call    mutex_init
396
 
3742 clevermous 397
        mov     ecx, ide_mutex
398
        call    mutex_init
399
        mov     ecx, ide_channel1_mutex
400
        call    mutex_init
401
        mov     ecx, ide_channel2_mutex
402
        call    mutex_init
4700 mario79 403
        mov     ecx, ide_channel3_mutex
404
        call    mutex_init
405
        mov     ecx, ide_channel4_mutex
406
        call    mutex_init
407
        mov     ecx, ide_channel5_mutex
408
        call    mutex_init
409
        mov     ecx, ide_channel6_mutex
410
        call    mutex_init
3774 mario79 411
;-----------------------------------------------------------------------------
2288 clevermous 412
; SAVE REAL MODE VARIABLES
3774 mario79 413
;-----------------------------------------------------------------------------
2288 clevermous 414
; --------------- APM ---------------------
415
 
416
; init selectors
3732 Serge 417
        mov     ebx, [BOOT_VARS+BOOT_APM_ENTRY]        ; offset of APM entry point
418
        movzx   eax, word [BOOT_VARS+BOOT_APM_CODE_32] ; real-mode segment base address of
2288 clevermous 419
                                                                                ; protected-mode 32-bit code segment
3732 Serge 420
        movzx   ecx, word [BOOT_VARS+BOOT_APM_CODE_16]; real-mode segment base address of
2288 clevermous 421
                                                                                ; protected-mode 16-bit code segment
3732 Serge 422
        movzx   edx, word [BOOT_VARS+BOOT_APM_DATA_16]; real-mode segment base address of
2288 clevermous 423
                                                                                ; protected-mode 16-bit data segment
424
 
425
        shl     eax, 4
426
        mov     [dword apm_code_32 + 2], ax
427
        shr     eax, 16
428
        mov     [dword apm_code_32 + 4], al
429
 
430
        shl     ecx, 4
431
        mov     [dword apm_code_16 + 2], cx
432
        shr     ecx, 16
433
        mov     [dword apm_code_16 + 4], cl
434
 
435
        shl     edx, 4
436
        mov     [dword apm_data_16 + 2], dx
437
        shr     edx, 16
438
        mov     [dword apm_data_16 + 4], dl
439
 
440
        mov     dword[apm_entry], ebx
441
        mov     word [apm_entry + 4], apm_code_32 - gdts
442
 
3732 Serge 443
        mov     eax, [BOOT_VARS + BOOT_APM_VERSION] ; version & flags
2288 clevermous 444
        mov     [apm_vf], eax
445
; -----------------------------------------
3732 Serge 446
        mov     al, [BOOT_VARS+BOOT_DMA]            ; DMA access
2288 clevermous 447
        mov     [allow_dma_access], al
3732 Serge 448
        movzx   eax, byte [BOOT_VARS+BOOT_BPP]      ; bpp
5154 hidnplayr 449
        mov     [_display.bits_per_pixel], eax
2288 clevermous 450
        mov     [_display.vrefresh], 60
3777 yogev_ezra 451
        mov     al, [BOOT_VARS+BOOT_DEBUG_PRINT]    ; If nonzero, duplicates debug output to the screen
452
        mov     [debug_direct_print], al
453
        mov     al, [BOOT_VARS+BOOT_LAUNCHER_START] ; Start the first app (LAUNCHER) after kernel is loaded?
454
        mov     [launcher_start], al
3732 Serge 455
        movzx   eax, word [BOOT_VARS+BOOT_X_RES]; X max
2288 clevermous 456
        mov     [_display.width], eax
2654 mario79 457
        mov     [display_width_standard], eax
2288 clevermous 458
        dec     eax
459
        mov     [screen_workarea.right], eax
3732 Serge 460
        movzx   eax, word [BOOT_VARS+BOOT_Y_RES]; Y max
2288 clevermous 461
        mov     [_display.height], eax
2654 mario79 462
        mov     [display_height_standard], eax
2288 clevermous 463
        dec     eax
464
        mov     [screen_workarea.bottom], eax
3732 Serge 465
        movzx   eax, word [BOOT_VARS+BOOT_VESA_MODE] ; screen mode
3606 Serge 466
        mov     dword [SCR_MODE], eax
467
;        mov     eax, [BOOT_VAR+0x9014]             ; Vesa 1.2 bnk sw add
2407 mario79 468
;        mov     [BANK_SWITCH], eax
3606 Serge 469
        mov     eax, 640 *4                         ; Bytes PerScanLine
470
        cmp     [SCR_MODE], word 0x13               ; 320x200
2288 clevermous 471
        je      @f
3606 Serge 472
        cmp     [SCR_MODE], word 0x12               ; VGA 640x480
2288 clevermous 473
        je      @f
3732 Serge 474
        movzx   eax, word[BOOT_VARS+BOOT_PITCH]      ; for other modes
3606 Serge 475
@@:
5351 serge 476
        mov     [_display.lfb_pitch], eax
2288 clevermous 477
        mov     eax, [_display.width]
478
        mul     [_display.height]
5351 serge 479
        mov     [_display.win_map_size], eax
2288 clevermous 480
 
2438 mario79 481
        call    calculate_fast_getting_offset_for_WinMapAddress
2480 mario79 482
; for Qemu or non standart video cards
3481 Serge 483
; Unfortunately [BytesPerScanLine] does not always
2480 mario79 484
;                             equal to [_display.width] * [ScreenBPP] / 8
485
        call    calculate_fast_getting_offset_for_LFB
2438 mario79 486
 
3732 Serge 487
        mov     esi, BOOT_VARS+0x9080
2288 clevermous 488
        movzx   ecx, byte [esi-1]
489
        mov     [NumBiosDisks], ecx
490
        mov     edi, BiosDisksData
491
        rep movsd
492
 
5154 hidnplayr 493
setvideomode:
2288 clevermous 494
 
3732 Serge 495
        mov     eax, [BOOT_VARS+BOOT_LFB]
2288 clevermous 496
        mov     [LFBAddress], eax
497
 
5154 hidnplayr 498
        cmp     word [SCR_MODE], 0x0012                 ; VGA (640x480 16 colors)
499
        je      .vga
500
        cmp     word [SCR_MODE], 0x0013                 ; MCGA (320*200 256 colors)
501
        je      .32bpp
502
        cmp     byte [_display.bits_per_pixel], 32
503
        je      .32bpp
504
        cmp     byte [_display.bits_per_pixel], 24
505
        je      .24bpp
506
        cmp     byte [_display.bits_per_pixel], 16
507
        je      .16bpp
508
;        cmp     byte [_display.bits_per_pixel], 15
509
;        je      .15bpp
2436 mario79 510
 
5154 hidnplayr 511
  .vga:
512
        mov     [PUTPIXEL], VGA_putpixel
513
        mov     [GETPIXEL], Vesa20_getpixel32           ; Conversion buffer is 32 bpp
514
        mov     [_display.bytes_per_pixel], 4           ; Conversion buffer is 32 bpp
515
        jmp     .finish
2288 clevermous 516
 
5154 hidnplayr 517
;  .15bpp:
518
;        mov     [PUTPIXEL], Vesa20_putpixel15
519
;        mov     [GETPIXEL], Vesa20_getpixel15
520
;        mov     [_display.bytes_per_pixel], 2
521
;        jmp     .finish
522
 
523
  .16bpp:
524
        mov     [PUTPIXEL], Vesa20_putpixel16
525
        mov     [GETPIXEL], Vesa20_getpixel16
526
        mov     [_display.bytes_per_pixel], 2
527
        jmp     .finish
528
 
529
  .24bpp:
530
        mov     [PUTPIXEL], Vesa20_putpixel24
531
        mov     [GETPIXEL], Vesa20_getpixel24
532
        mov     [_display.bytes_per_pixel], 3
533
        jmp     .finish
534
 
535
  .32bpp:
536
        mov     [PUTPIXEL], Vesa20_putpixel32
537
        mov     [GETPIXEL], Vesa20_getpixel32
538
        mov     [_display.bytes_per_pixel], 4
539
;        jmp     .finish
540
 
541
  .finish:
542
        mov     [MOUSE_PICTURE], mousepointer
2642 mario79 543
        mov     [_display.check_mouse], check_mouse_area_for_putpixel
544
        mov     [_display.check_m_pixel], check_mouse_area_for_getpixel
545
 
2288 clevermous 546
; -------- Fast System Call init ----------
547
; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
548
        bt      [cpu_caps], CAPS_SEP
549
        jnc     .SEnP  ; SysEnter not Present
550
        xor     edx, edx
551
        mov     ecx, MSR_SYSENTER_CS
552
        mov     eax, os_code
553
        wrmsr
554
        mov     ecx, MSR_SYSENTER_ESP
555
;           mov eax, sysenter_stack ; Check it
556
        xor     eax, eax
557
        wrmsr
558
        mov     ecx, MSR_SYSENTER_EIP
559
        mov     eax, sysenter_entry
560
        wrmsr
561
.SEnP:
562
; AMD SYSCALL/SYSRET
563
        cmp     byte[cpu_vendor], 'A'
564
        jne     .noSYSCALL
565
        mov     eax, 0x80000001
566
        cpuid
567
        test    edx, 0x800  ; bit_11 - SYSCALL/SYSRET support
568
        jz      .noSYSCALL
569
        mov     ecx, MSR_AMD_EFER
570
        rdmsr
571
        or      eax, 1 ; bit_0 - System Call Extension (SCE)
572
        wrmsr
573
 
574
        ; !!!! It`s dirty hack, fix it !!!
575
        ; Bits of EDX :
3539 clevermous 576
        ; Bit 31–16 During the SYSRET instruction, this field is copied into the CS register
2288 clevermous 577
        ;  and the contents of this field, plus 8, are copied into the SS register.
3539 clevermous 578
        ; Bit 15–0 During the SYSCALL instruction, this field is copied into the CS register
2288 clevermous 579
        ;  and the contents of this field, plus 8, are copied into the SS register.
580
 
581
        ; mov   edx, (os_code + 16) * 65536 + os_code
582
        mov     edx, 0x1B0008
583
 
584
        mov     eax, syscall_entry
585
        mov     ecx, MSR_AMD_STAR
586
        wrmsr
587
.noSYSCALL:
588
; -----------------------------------------
589
        stdcall alloc_page
5356 serge 590
        stdcall map_page, tss-0xF80, eax, PG_SWR
2288 clevermous 591
        stdcall alloc_page
5356 serge 592
        stdcall map_page, tss+0x80, eax, PG_SWR
2288 clevermous 593
        stdcall alloc_page
5356 serge 594
        stdcall map_page, tss+0x1080, eax, PG_SWR
2288 clevermous 595
 
596
; LOAD IDT
597
 
598
        call    build_interrupt_table ;lidt is executed
599
          ;lidt [idtreg]
600
 
601
        call    init_kernel_heap
3534 clevermous 602
        stdcall kernel_alloc, (RING0_STACK_SIZE+512) * 2
2288 clevermous 603
        mov     [os_stack_seg], eax
604
 
605
        lea     esp, [eax+RING0_STACK_SIZE]
606
 
607
        mov     [tss._ss0], os_stack
608
        mov     [tss._esp0], esp
609
        mov     [tss._esp], esp
610
        mov     [tss._cs], os_code
611
        mov     [tss._ss], os_stack
612
        mov     [tss._ds], app_data
613
        mov     [tss._es], app_data
614
        mov     [tss._fs], app_data
615
        mov     [tss._gs], app_data
616
        mov     [tss._io], 128
617
;Add IO access table - bit array of permitted ports
618
        mov     edi, tss._io_map_0
619
        xor     eax, eax
620
        not     eax
621
        mov     ecx, 8192/4
622
        rep stosd                    ; access to 4096*8=65536 ports
623
 
624
        mov     ax, tss0
625
        ltr     ax
626
 
2991 Serge 627
        mov     [LFBSize], 0xC00000
2288 clevermous 628
        call    init_LFB
629
        call    init_fpu
630
        call    init_malloc
631
 
5130 serge 632
        stdcall alloc_kernel_space, 0x50000         ; FIXME check size
2288 clevermous 633
        mov     [default_io_map], eax
634
 
635
        add     eax, 0x2000
636
        mov     [ipc_tmp], eax
637
        mov     ebx, 0x1000
638
 
639
        add     eax, 0x40000
640
        mov     [proc_mem_map], eax
641
 
642
        add     eax, 0x8000
643
        mov     [proc_mem_pdir], eax
644
 
645
        add     eax, ebx
646
        mov     [proc_mem_tab], eax
647
 
648
        add     eax, ebx
649
        mov     [tmp_task_ptab], eax
650
 
651
        add     eax, ebx
652
        mov     [ipc_pdir], eax
653
 
654
        add     eax, ebx
655
        mov     [ipc_ptab], eax
656
 
657
        stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE+(unpack.LZMA_LIT_SIZE shl \
658
                (unpack.lc+unpack.lp)))*4
659
 
660
        mov     [unpack.p], eax
661
 
662
        call    init_events
2384 hidnplayr 663
        mov     eax, srv.fd-SRV.fd
2288 clevermous 664
        mov     [srv.fd], eax
665
        mov     [srv.bk], eax
666
 
667
;Set base of graphic segment to linear address of LFB
668
        mov     eax, [LFBAddress]         ; set for gs
669
        mov     [graph_data_l+2], ax
670
        shr     eax, 16
671
        mov     [graph_data_l+4], al
672
        mov     [graph_data_l+7], ah
673
 
5351 serge 674
        stdcall kernel_alloc, [_display.win_map_size]
675
        mov     [_display.win_map], eax
2288 clevermous 676
 
677
        xor     eax, eax
678
        inc     eax
679
 
680
; set background
681
 
682
        mov     [BgrDrawMode], eax
683
        mov     [BgrDataWidth], eax
684
        mov     [BgrDataHeight], eax
685
        mov     [mem_BACKGROUND], 4
686
        mov     [img_background], static_background_data
687
 
4199 mario79 688
; set clipboard
689
 
690
        xor     eax, eax
691
        mov     [clipboard_slots], eax
692
        mov     [clipboard_write_lock], eax
693
        stdcall kernel_alloc, 4096
694
        test    eax, eax
695
        jnz     @f
696
 
697
        dec     eax
698
@@:
699
        mov     [clipboard_main_list], eax
700
 
5787 serge 701
        mov     eax, [hpet_base]
702
        test    eax, eax
703
        jz      @F
704
        mov     eax, [hpet_base]
705
        stdcall map_io_mem, [hpet_base], 1024, PG_GLOBAL+PAT_UC+PG_SWR
706
        mov     [hpet_base], eax
707
        mov     eax, [eax]
708
        DEBUGF  1, "K : HPET caps %x\n", eax
709
@@:
3296 clevermous 710
; SET UP OS TASK
711
 
712
        mov     esi, boot_setostask
713
        call    boot_log
714
 
5595 serge 715
        mov     eax, sys_proc
716
        lea     edi, [eax+PROC.heap_lock]
717
        mov     ecx, (PROC.ht_free-PROC.heap_lock)/4
5130 serge 718
 
5595 serge 719
        list_init eax
720
        add     eax, PROC.thr_list
721
        list_init eax
722
 
723
        xor     eax, eax
724
        cld
725
        rep stosd
726
 
727
        mov     [edi], dword (PROC.pdt_0 - PROC.htab)/4 - 3
728
        mov     [edi+4], dword 3           ;reserve handles for stdin stdout and stderr
729
        mov     ecx, (PROC.pdt_0 - PROC.htab)/4
730
        add     edi, 8
731
        inc     eax
732
@@:
733
        stosd
734
        inc     eax
735
        cmp     eax, ecx
736
        jbe     @B
737
 
738
        mov     [sys_proc+PROC.pdt_0_phys], sys_proc-OS_BASE+PROC.pdt_0
739
 
5130 serge 740
        mov     eax, -1
741
        mov     edi, thr_slot_map+4
742
        mov     [edi-4], dword 0xFFFFFFF8
743
        stosd
744
        stosd
745
        stosd
746
        stosd
747
        stosd
748
        stosd
749
        stosd
750
 
751
        mov     [current_process], sys_proc
752
 
753
        mov     edx, SLOT_BASE+256*1
3534 clevermous 754
        mov     ebx, [os_stack_seg]
755
        add     ebx, 0x2000
756
        call    setup_os_slot
757
        mov     dword [edx], 'IDLE'
758
        sub     [edx+APPDATA.saved_esp], 4
759
        mov     eax, [edx+APPDATA.saved_esp]
760
        mov     dword [eax], idle_thread
761
        mov     ecx, IDLE_PRIORITY
762
        call    scheduler_add_thread
3296 clevermous 763
 
3534 clevermous 764
        mov     edx, SLOT_BASE+256*2
765
        mov     ebx, [os_stack_seg]
766
        call    setup_os_slot
767
        mov     dword [edx], 'OS'
768
        xor     ecx, ecx
769
        call    scheduler_add_thread
3296 clevermous 770
 
3534 clevermous 771
        mov     dword [CURRENT_TASK], 2
772
        mov     dword [TASK_COUNT], 2
773
        mov     dword [current_slot], SLOT_BASE + 256*2
774
        mov     dword [TASK_BASE], CURRENT_TASK + 32*2
3296 clevermous 775
 
5033 clevermous 776
; Move other CPUs to deep sleep, if it is useful
777
uglobal
778
use_mwait_for_idle db 0
779
endg
780
        cmp     [cpu_vendor+8], 'ntel'
781
        jnz     .no_wake_cpus
782
        bt      [cpu_caps+4], CAPS_MONITOR-32
783
        jnc     .no_wake_cpus
784
        dbgstr 'using mwait for idle loop'
785
        inc     [use_mwait_for_idle]
786
        mov     ebx, [cpu_count]
787
        cmp     ebx, 1
788
        jbe     .no_wake_cpus
789
        call    create_trampoline_pgmap
790
        mov     [cr3_ap+OS_BASE], eax
791
        mov     eax, cr4
792
        mov     [cr4_ap+OS_BASE], eax
793
        mov     esi, OS_BASE + ap_init16
794
        mov     edi, OS_BASE + 8000h
795
        mov     ecx, (ap_init16_size + 3) / 4
796
        rep movsd
5359 serge 797
        stdcall map_io_mem, [acpi_lapic_base], 0x1000, PG_GLOBAL+PG_NOCACHE+PG_SWR
5033 clevermous 798
        mov     [LAPIC_BASE], eax
799
        lea     edi, [eax+300h]
800
        mov     esi, smpt+4
801
        dec     ebx
802
.wake_cpus_loop:
803
        lodsd
5049 clevermous 804
        push    esi
805
        xor     esi, esi
806
        inc     esi
5033 clevermous 807
        shl     eax, 24
808
        mov     [edi+10h], eax
809
; assert INIT IPI
810
        mov     dword [edi], 0C500h
5049 clevermous 811
        call    delay_ms
5033 clevermous 812
@@:
813
        test    dword [edi], 1000h
814
        jnz     @b
815
; deassert INIT IPI
816
        mov     dword [edi], 8500h
5049 clevermous 817
        call    delay_ms
5033 clevermous 818
@@:
819
        test    dword [edi], 1000h
820
        jnz     @b
821
; send STARTUP IPI
822
        mov     dword [edi], 600h + (8000h shr 12)
5049 clevermous 823
        call    delay_ms
5033 clevermous 824
@@:
825
        test    dword [edi], 1000h
826
        jnz     @b
5049 clevermous 827
        pop     esi
5033 clevermous 828
        dec     ebx
829
        jnz     .wake_cpus_loop
830
        mov     eax, [cpu_count]
831
        dec     eax
832
@@:
833
        cmp     [ap_initialized], eax
834
        jnz     @b
835
        mov     eax, [cr3_ap+OS_BASE]
836
        call    free_page
837
.no_wake_cpus:
2288 clevermous 838
 
839
; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
2642 mario79 840
        mov     esi, boot_initirq
841
        call    boot_log
842
        call    init_irqs
2288 clevermous 843
 
2642 mario79 844
        mov     esi, boot_picinit
845
        call    boot_log
2288 clevermous 846
        call    PIC_init
847
 
2642 mario79 848
        mov     esi, boot_v86machine
849
        call    boot_log
2288 clevermous 850
; Initialize system V86 machine
851
        call    init_sys_v86
852
 
2642 mario79 853
        mov     esi, boot_inittimer
854
        call    boot_log
2288 clevermous 855
; Initialize system timer (IRQ0)
856
        call    PIT_init
857
 
4273 clevermous 858
; Register ramdisk file system
4772 mario79 859
        cmp     [boot_dev+OS_BASE+0x10000], 1
860
        je      @f
3613 clevermous 861
 
4772 mario79 862
        call    register_ramdisk
863
;--------------------------------------
864
@@:
2642 mario79 865
        mov     esi, boot_initapic
866
        call    boot_log
2288 clevermous 867
; Try to Initialize APIC
868
        call    APIC_init
869
 
2642 mario79 870
        mov     esi, boot_enableirq
871
        call    boot_log
3785 mario79 872
; Enable timer IRQ (IRQ0) and co-processor IRQ (IRQ13)
2288 clevermous 873
; they are used: when partitions are scanned, hd_read relies on timer
874
        call    unmask_timer
875
        stdcall enable_irq, 2               ; @#$%! PIC
876
        stdcall enable_irq, 13              ; co-processor
4741 hidnplayr 877
 
878
; Setup serial output console (if enabled)
879
if defined debug_com_base
880
 
881
        ; reserve port so nobody else will use it
882
        xor     ebx, ebx
883
        mov     ecx, debug_com_base
884
        mov     edx, debug_com_base+7
885
        call    r_f_port_area
886
 
887
        ; enable Divisor latch
888
        mov     dx, debug_com_base+3
889
        mov     al, 1 shl 7
890
        out     dx, al
891
 
892
        ; Set speed to 115200 baud (max speed)
893
        mov     dx, debug_com_base
894
        mov     al, 0x01
895
        out     dx, al
896
 
897
        mov     dx, debug_com_base+1
898
        mov     al, 0x00
899
        out     dx, al
900
 
901
        ; No parity, 8bits words, one stop bit, dlab bit back to 0
902
        mov     dx, debug_com_base+3
903
        mov     al, 3
904
        out     dx, al
905
 
906
        ; disable interrupts
907
        mov     dx, debug_com_base+1
908
        mov     al, 0
909
        out     dx, al
910
 
911
        ; clear +  enable fifo (64 bits)
912
        mov     dx, debug_com_base+2
913
        mov     al, 0x7 + 1 shl 5
914
        out     dx, al
915
 
916
end if
917
 
918
 
4575 mario79 919
;-----------------------------------------------------------------------------
920
; show SVN version of kernel on the message board
921
;-----------------------------------------------------------------------------
922
        mov     eax, [version_inf.rev]
923
        DEBUGF  1, "K : kernel SVN r%d\n", eax
924
;-----------------------------------------------------------------------------
925
; show CPU count on the message board
926
;-----------------------------------------------------------------------------
927
        mov     eax, [cpu_count]
928
        test    eax, eax
929
        jnz     @F
930
        mov     al, 1                             ; at least one CPU
931
@@:
932
        DEBUGF  1, "K : %d CPU detected\n", eax
933
;-----------------------------------------------------------------------------
934
; detect Floppy drives
935
;-----------------------------------------------------------------------------
936
        mov     esi, boot_detectfloppy
937
        call    boot_log
938
include 'detect/dev_fd.inc'
939
;-----------------------------------------------------------------------------
4624 mario79 940
; create pci-devices list
4575 mario79 941
;-----------------------------------------------------------------------------
4624 mario79 942
        mov     [pci_access_enabled], 1
943
        call    pci_enum
3762 mario79 944
;-----------------------------------------------------------------------------
4624 mario79 945
; initialisation IDE ATA code
4575 mario79 946
;-----------------------------------------------------------------------------
4624 mario79 947
include 'detect/init_ata.inc'
4575 mario79 948
;-----------------------------------------------------------------------------
2288 clevermous 949
if 0
950
        mov     ax, [OS_BASE+0x10000+bx_from_load]
951
        cmp     ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}
952
        je      no_lib_load
2642 mario79 953
 
954
        mov     esi, boot_loadlibs
955
        call    boot_log
2288 clevermous 956
; LOADING LIBRARES
957
        stdcall dll.Load, @IMPORT           ; loading librares for kernel (.obj files)
958
        call    load_file_parse_table       ; prepare file parse table
959
        call    set_kernel_conf             ; configure devices and gui
960
no_lib_load:
961
end if
962
 
963
; Display APIC status
964
        mov     esi, boot_APIC_found
965
        cmp     [irq_mode], IRQ_APIC
966
        je      @f
967
        mov     esi, boot_APIC_nfound
968
@@:
2642 mario79 969
        call    boot_log
2288 clevermous 970
 
971
; PRINT AMOUNT OF MEMORY
972
        mov     esi, boot_memdetect
973
        call    boot_log
974
 
975
        movzx   ecx, word [boot_y]
976
        if lang eq ru
977
        or      ecx, (10+30*6) shl 16
3274 esevece 978
        else if lang eq sp
979
        or      ecx, (10+33*6) shl 16
980
        else
2288 clevermous 981
        or      ecx, (10+29*6) shl 16
3274 esevece 982
        end if
2288 clevermous 983
        sub     ecx, 10
984
        mov     edx, 0xFFFFFF
985
        mov     ebx, [MEM_AMOUNT]
986
        shr     ebx, 20
987
        xor     edi, edi
988
        mov     eax, 0x00040000
989
        inc     edi
990
        call    display_number_force
991
 
992
; BUILD SCHEDULER
993
 
2642 mario79 994
;        call    build_scheduler; sys32.inc
2288 clevermous 995
 
2642 mario79 996
;        mov     esi, boot_devices
997
;        call    boot_log
2288 clevermous 998
 
4578 clevermous 999
        call    clear_pci_ide_interrupts
4575 mario79 1000
 
4297 yogev_ezra 1001
include "detect/vortex86.inc"                     ; Vortex86 SoC detection code
1002
 
5039 clevermous 1003
        stdcall load_pe_driver, szVidintel, 0
3508 clevermous 1004
 
3520 clevermous 1005
        call    usb_init
1006
 
2288 clevermous 1007
; SET PRELIMINARY WINDOW STACK AND POSITIONS
1008
 
1009
        mov     esi, boot_windefs
1010
        call    boot_log
1011
        call    set_window_defaults
1012
 
1013
; SET BACKGROUND DEFAULTS
1014
 
1015
        mov     esi, boot_bgr
1016
        call    boot_log
1017
        call    init_background
1018
        call    calculatebackground
1019
 
1020
; RESERVE SYSTEM IRQ'S JA PORT'S
1021
 
1022
        mov     esi, boot_resirqports
1023
        call    boot_log
1024
        call    reserve_irqs_ports
1025
 
1026
        call    init_display
1027
        mov     eax, [def_cursor]
1028
        mov     [SLOT_BASE+APPDATA.cursor+256], eax
3534 clevermous 1029
        mov     [SLOT_BASE+APPDATA.cursor+256*2], eax
2288 clevermous 1030
 
3501 Serge 1031
; PRINT CPU FREQUENCY
2288 clevermous 1032
 
3501 Serge 1033
        mov     esi, boot_cpufreq
2288 clevermous 1034
        call    boot_log
3501 Serge 1035
 
5792 serge 1036
        cli
1037
        mov     ebx, [hpet_base]
1038
        test    ebx, ebx
1039
        jz      @F
1040
        mov     ebx, [ebx+0xF0]
1041
 
3501 Serge 1042
        rdtsc
5792 serge 1043
        mov     ecx, 1000
1044
        sub     eax, [hpet_tsc_start]
1045
        sbb     edx, [hpet_tsc_start+4]
1046
        shld    edx, eax, 10
1047
        shl     eax, 10
1048
        mov     esi, eax
1049
        mov     eax, edx
1050
        mul     ecx
1051
        xchg    eax, esi
1052
        mul     ecx
1053
        adc     edx, esi
1054
        div     ebx
1055
        mul     ecx
1056
        div     [hpet_period]
1057
        mul     ecx
1058
        DEBUGF  1, "K : cpu frequency %u Hz\n", eax
1059
        jmp     .next
1060
@@:
1061
        rdtsc
2288 clevermous 1062
        mov     ecx, eax
1063
        mov     esi, 250            ; wait 1/4 a second
1064
        call    delay_ms
3501 Serge 1065
        rdtsc
5031 clevermous 1066
        sti
3501 Serge 1067
 
2288 clevermous 1068
        sub     eax, ecx
3481 Serge 1069
        xor     edx, edx
1070
        shld    edx, eax, 2
2288 clevermous 1071
        shl     eax, 2
5792 serge 1072
.next:
3481 Serge 1073
        mov     dword [cpu_freq], eax
1074
        mov     dword [cpu_freq+4], edx
3502 Serge 1075
        mov     ebx, 1000000
1076
        div     ebx
3501 Serge 1077
        mov     ebx, eax
2288 clevermous 1078
 
1079
        movzx   ecx, word [boot_y]
1080
        if lang eq ru
3501 Serge 1081
        add     ecx, (10+19*6) shl 16 - 10
3274 esevece 1082
        else if lang eq sp
3501 Serge 1083
        add     ecx, (10+25*6) shl 16 - 10
3274 esevece 1084
        else
3501 Serge 1085
        add     ecx, (10+17*6) shl 16 - 10
3274 esevece 1086
        end if
3501 Serge 1087
 
2288 clevermous 1088
        mov     edx, 0xFFFFFF
1089
        xor     edi, edi
1090
        mov     eax, 0x00040000
1091
        inc     edi
1092
        call    display_number_force
1093
 
1094
; SET VARIABLES
1095
 
1096
        call    set_variables
1097
 
1098
; STACK AND FDC
1099
 
1100
        call    stack_init
1101
        call    fdc_init
1102
 
1103
; PALETTE FOR 320x200 and 640x480 16 col
1104
 
1105
        cmp     [SCR_MODE], word 0x12
1106
        jne     no_pal_vga
1107
        mov     esi, boot_pal_vga
1108
        call    boot_log
1109
        call    paletteVGA
1110
      no_pal_vga:
1111
 
1112
        cmp     [SCR_MODE], word 0x13
1113
        jne     no_pal_ega
1114
        mov     esi, boot_pal_ega
1115
        call    boot_log
1116
        call    palette320x200
1117
      no_pal_ega:
1118
 
1119
; LOAD DEFAULT SKIN
1120
 
1121
        call    load_default_skin
1122
 
5635 hidnplayr 1123
; Protect I/O permission map
2288 clevermous 1124
 
1125
        mov     esi, [default_io_map]
5356 serge 1126
        stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map], PG_READ
2288 clevermous 1127
        add     esi, 0x1000
5356 serge 1128
        stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map+4], PG_READ
2288 clevermous 1129
 
1130
        stdcall map_page, tss._io_map_0, \
5356 serge 1131
                [SLOT_BASE+256+APPDATA.io_map], PG_READ
2288 clevermous 1132
        stdcall map_page, tss._io_map_1, \
5356 serge 1133
                [SLOT_BASE+256+APPDATA.io_map+4], PG_READ
2288 clevermous 1134
 
1135
; SET KEYBOARD PARAMETERS
1136
        mov     al, 0xf6       ; reset keyboard, scan enabled
5012 clevermous 1137
        call    kb_write_wait_ack
2601 clevermous 1138
        test    ah, ah
1139
        jnz     .no_keyboard
2288 clevermous 1140
 
2601 clevermous 1141
iglobal
1142
align 4
1143
ps2_keyboard_functions:
1144
        dd      .end - $
1145
        dd      0       ; no close
1146
        dd      ps2_set_lights
1147
.end:
1148
endg
1149
        stdcall register_keyboard, ps2_keyboard_functions, 0
2288 clevermous 1150
       ; mov   al, 0xED       ; Keyboard LEDs - only for testing!
5012 clevermous 1151
       ; call  kb_write_wait_ack
2288 clevermous 1152
       ; mov   al, 111b
5012 clevermous 1153
       ; call  kb_write_wait_ack
2288 clevermous 1154
 
1155
        mov     al, 0xF3     ; set repeat rate & delay
5012 clevermous 1156
        call    kb_write_wait_ack
2288 clevermous 1157
        mov     al, 0; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
5012 clevermous 1158
        call    kb_write_wait_ack
2288 clevermous 1159
     ;// mike.dld [
1160
        call    set_lights
1161
     ;// mike.dld ]
1162
        stdcall attach_int_handler, 1, irq1, 0
4734 mario79 1163
        DEBUGF  1, "K : IRQ1 return code %x\n", eax
2601 clevermous 1164
.no_keyboard:
2288 clevermous 1165
 
4553 hidnplayr 1166
; Load PS/2 mouse driver
2288 clevermous 1167
 
5044 clevermous 1168
        stdcall load_pe_driver, szPS2MDriver, 0
2288 clevermous 1169
 
1170
        mov     esi, boot_setmouse
1171
        call    boot_log
1172
        call    setmouse
1173
 
5031 clevermous 1174
; LOAD FIRST APPLICATION
1175
        cmp     byte [launcher_start], 1        ; Check if starting LAUNCHER is selected on blue screen (1 = yes)
1176
        jnz     first_app_found
1177
 
1178
        cli
1179
        mov     ebp, firstapp
1180
        call    fs_execute_from_sysdir
1181
        test    eax, eax
1182
        jns     first_app_found
1183
 
1184
        mov     esi, boot_failed
1185
        call    boot_log
1186
 
1187
        mov     eax, 0xDEADBEEF      ; otherwise halt
1188
        hlt
1189
 
1190
first_app_found:
1191
 
2288 clevermous 1192
; START MULTITASKING
1193
 
1194
; A 'All set - press ESC to start' messages if need
1195
if preboot_blogesc
1196
        mov     esi, boot_tasking
1197
        call    boot_log
1198
.bll1:
1199
        in      al, 0x60        ; wait for ESC key press
1200
        cmp     al, 129
1201
        jne     .bll1
1202
end if
1203
 
1204
        mov     [timer_ticks_enable], 1         ; for cd driver
1205
 
1206
        sti
4734 mario79 1207
 
4608 clevermous 1208
        call    mtrr_validate
1209
 
2288 clevermous 1210
        jmp     osloop
1211
 
1212
 
1213
        ; Fly :)
1214
 
5033 clevermous 1215
uglobal
1216
align 4
1217
ap_initialized  dd      0
1218
endg
1219
 
1220
ap_init_high:
1221
        mov     ax, os_stack
1222
        mov     bx, app_data
1223
        mov     cx, app_tls
1224
        mov     ss, ax
1225
        mov     ds, bx
1226
        mov     es, bx
1227
        mov     fs, cx
1228
        mov     gs, bx
1229
        xor     esp, esp
5130 serge 1230
        mov     eax, sys_proc-OS_BASE+PROC.pdt_0
5033 clevermous 1231
        mov     cr3, eax
1232
        lock inc [ap_initialized]
1233
        jmp     idle_loop
1234
 
1235
 
2288 clevermous 1236
include 'unpacker.inc'
1237
 
1238
align 4
1239
boot_log:
1240
        pushad
1241
 
1242
        mov     ebx, 10*65536
1243
        mov     bx, word [boot_y]
1244
        add     [boot_y], dword 10
1245
        mov     ecx, 0x80ffffff; ASCIIZ string with white color
1246
        xor     edi, edi
1247
        mov     edx, esi
1248
        inc     edi
1249
        call    dtext
1250
 
1251
        mov     [novesachecksum], 1000
1252
        call    checkVga_N13
1253
 
1254
        popad
1255
 
1256
        ret
1257
 
3534 clevermous 1258
; in: edx -> APPDATA for OS/IDLE slot
1259
; in: ebx = stack base
1260
proc setup_os_slot
1261
        xor     eax, eax
1262
        mov     ecx, 256/4
1263
        mov     edi, edx
1264
        rep stosd
1265
 
3535 clevermous 1266
        mov     eax, tss+0x80
1267
        call    get_pg_addr
1268
        inc     eax
1269
        mov     [edx+APPDATA.io_map], eax
1270
        mov     eax, tss+0x1080
1271
        call    get_pg_addr
1272
        inc     eax
1273
        mov     [edx+APPDATA.io_map+4], eax
1274
 
3534 clevermous 1275
        mov     dword [edx+APPDATA.pl0_stack], ebx
1276
        lea     edi, [ebx+0x2000-512]
1277
        mov     dword [edx+APPDATA.fpu_state], edi
1278
        mov     dword [edx+APPDATA.saved_esp0], edi
1279
        mov     dword [edx+APPDATA.saved_esp], edi
1280
        mov     dword [edx+APPDATA.terminate_protection], 1 ; make unkillable
1281
 
1282
        mov     esi, fpu_data
1283
        mov     ecx, 512/4
1284
        cld
1285
        rep movsd
1286
 
1287
        lea     eax, [edx+APP_OBJ_OFFSET]
1288
        mov     dword [edx+APPDATA.fd_obj], eax
1289
        mov     dword [edx+APPDATA.bk_obj], eax
1290
 
1291
        mov     dword [edx+APPDATA.cur_dir], sysdir_path
1292
 
5130 serge 1293
        mov     [edx + APPDATA.process], sys_proc
3534 clevermous 1294
 
5130 serge 1295
        lea     ebx, [edx+APPDATA.list]
1296
        lea     ecx, [sys_proc+PROC.thr_list]
1297
        list_add_tail ebx, ecx
1298
 
3534 clevermous 1299
        mov     eax, edx
1300
        shr     eax, 3
1301
        add     eax, CURRENT_TASK - (SLOT_BASE shr 3)
1302
        mov     [eax+TASKDATA.wnd_number], dh
1303
        mov     byte [eax+TASKDATA.pid], dh
1304
 
1305
        ret
1306
endp
1307
 
2288 clevermous 1308
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1309
;                                                                    ;
1310
;                    MAIN OS LOOP START                              ;
1311
;                                                                    ;
1312
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1313
align 32
1314
osloop:
3534 clevermous 1315
        mov     edx, osloop_has_work?
1316
        xor     ecx, ecx
1317
        call    Wait_events
1318
        xor     eax, eax
1319
        xchg    eax, [osloop_nonperiodic_work]
1320
        test    eax, eax
1321
        jz      .no_periodic
4734 mario79 1322
 
2453 mario79 1323
        call    __sys_draw_pointer
2288 clevermous 1324
        call    window_check_events
1325
        call    mouse_check_events
1326
        call    checkmisc
1327
        call    checkVga_N13
4734 mario79 1328
;--------------------------------------
3534 clevermous 1329
.no_periodic:
2288 clevermous 1330
        call    stack_handler
1331
        call    check_fdd_motor_status
1332
        call    check_ATAPI_device_event
2601 clevermous 1333
        call    check_lights_state
2288 clevermous 1334
        call    check_timers
4734 mario79 1335
 
2288 clevermous 1336
        jmp     osloop
1337
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1338
;                                                                    ;
1339
;                      MAIN OS LOOP END                              ;
1340
;                                                                    ;
1341
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3534 clevermous 1342
proc osloop_has_work?
1343
        cmp     [osloop_nonperiodic_work], 0
1344
        jnz     .yes
1345
        call    stack_handler_has_work?
1346
        jnz     .yes
4273 clevermous 1347
        call    check_fdd_motor_status_has_work?
1348
        jnz     .yes
3534 clevermous 1349
        call    check_ATAPI_device_event_has_work?
1350
        jnz     .yes
1351
        call    check_lights_state_has_work?
1352
        jnz     .yes
1353
        call    check_timers_has_work?
1354
        jnz     .yes
1355
.no:
1356
        xor     eax, eax
2288 clevermous 1357
        ret
3534 clevermous 1358
.yes:
1359
        xor     eax, eax
1360
        inc     eax
1361
        ret
1362
endp
2288 clevermous 1363
 
3534 clevermous 1364
proc wakeup_osloop
1365
        mov     [osloop_nonperiodic_work], 1
1366
        ret
1367
endp
1368
 
2288 clevermous 1369
uglobal
3534 clevermous 1370
align 4
1371
osloop_nonperiodic_work dd      ?
2288 clevermous 1372
endg
1373
 
5033 clevermous 1374
uglobal
1375
align 64
1376
idle_addr       rb      64
1377
endg
1378
 
3534 clevermous 1379
idle_thread:
1380
        sti
5033 clevermous 1381
 
1382
; The following code can be executed by all CPUs in the system.
1383
; All other parts of the kernel do not expect multi-CPU.
1384
; Also, APs don't even have a stack here.
1385
; Beware. Don't do anything here. Anything at all.
3534 clevermous 1386
idle_loop:
5033 clevermous 1387
        cmp     [use_mwait_for_idle], 0
1388
        jnz     idle_loop_mwait
1389
 
1390
idle_loop_hlt:
3534 clevermous 1391
        hlt
5033 clevermous 1392
        jmp     idle_loop_hlt
2288 clevermous 1393
 
5033 clevermous 1394
idle_loop_mwait:
1395
        mov     eax, idle_addr
1396
        xor     ecx, ecx
1397
        xor     edx, edx
1398
        monitor
1399
        xor     ecx, ecx
1400
        mov     eax, 20h        ; or 10h
1401
        mwait
1402
        jmp     idle_loop_mwait
2288 clevermous 1403
 
3534 clevermous 1404
 
2288 clevermous 1405
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1406
;                                                                      ;
1407
;                   INCLUDED SYSTEM FILES                              ;
1408
;                                                                      ;
1409
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1410
 
1411
 
1412
include "kernel32.inc"
1413
 
1414
 
1415
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1416
;                                                                      ;
1417
;                       KERNEL FUNCTIONS                               ;
1418
;                                                                      ;
1419
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1420
 
1421
reserve_irqs_ports:
1422
 
1423
 
1424
; RESERVE PORTS
1425
        mov     eax, RESERVED_PORTS
1426
        mov     ecx, 1
1427
 
1428
        mov     [eax], dword 4
1429
 
1430
        mov     [eax+16], ecx
1431
        mov     [eax+16+4], dword 0
3426 hidnplayr 1432
        mov     [eax+16+8], dword 0x2D
2288 clevermous 1433
 
1434
        mov     [eax+32], ecx
1435
        mov     [eax+32+4], dword 0x30
1436
        mov     [eax+32+8], dword 0x4D
1437
 
1438
        mov     [eax+48], ecx
1439
        mov     [eax+48+4], dword 0x50
3426 hidnplayr 1440
        mov     [eax+48+8], dword 0xDF
2288 clevermous 1441
 
1442
        mov     [eax+64], ecx
1443
        mov     [eax+64+4], dword 0xE5
1444
        mov     [eax+64+8], dword 0xFF
1445
 
1446
        ret
1447
 
1448
 
1449
iglobal
3534 clevermous 1450
  process_number dd 0x2
2288 clevermous 1451
endg
1452
 
1453
set_variables:
1454
 
1455
        mov     ecx, 0x16                    ; flush port 0x60
1456
.fl60:
1457
        in      al, 0x60
1458
        loop    .fl60
1459
        push    eax
1460
 
3732 Serge 1461
        mov     ax, [BOOT_VARS+BOOT_Y_RES]
2288 clevermous 1462
        shr     ax, 1
1463
        shl     eax, 16
3732 Serge 1464
        mov     ax, [BOOT_VARS+BOOT_X_RES]
2288 clevermous 1465
        shr     ax, 1
1466
        mov     [MOUSE_X], eax
3534 clevermous 1467
        call    wakeup_osloop
2288 clevermous 1468
 
1469
        xor     eax, eax
1470
        mov     [BTN_ADDR], dword BUTTON_INFO ; address of button list
1471
 
1472
        mov     byte [KEY_COUNT], al              ; keyboard buffer
1473
        mov     byte [BTN_COUNT], al              ; button buffer
1474
;        mov   [MOUSE_X],dword 100*65536+100    ; mouse x/y
1475
 
1476
        pop     eax
1477
        ret
1478
 
1479
align 4
1480
;input  eax=43,bl-byte of output, ecx - number of port
1481
sys_outport:
1482
 
1483
        mov     edi, ecx   ; separate flag for read / write
1484
        and     ecx, 65535
1485
 
1486
        mov     eax, [RESERVED_PORTS]
1487
        test    eax, eax
1488
        jnz     .sopl8
1489
        inc     eax
1490
        mov     [esp+32], eax
1491
        ret
1492
 
1493
  .sopl8:
1494
        mov     edx, [TASK_BASE]
1495
        mov     edx, [edx+0x4]
1496
    ;and   ecx,65535
1497
    ;cld - set on interrupt 0x40
1498
  .sopl1:
1499
 
1500
        mov     esi, eax
1501
        shl     esi, 4
1502
        add     esi, RESERVED_PORTS
1503
        cmp     edx, [esi+0]
1504
        jne     .sopl2
1505
        cmp     ecx, [esi+4]
1506
        jb      .sopl2
1507
        cmp     ecx, [esi+8]
1508
        jg      .sopl2
1509
.sopl3:
1510
 
1511
        test    edi, 0x80000000; read ?
1512
        jnz     .sopl4
1513
 
1514
        mov     eax, ebx
1515
        mov     dx, cx   ; write
1516
        out     dx, al
1517
        and     [esp+32], dword 0
1518
        ret
1519
 
1520
        .sopl2:
1521
 
1522
        dec     eax
1523
        jnz     .sopl1
1524
        inc     eax
1525
        mov     [esp+32], eax
1526
        ret
1527
 
1528
 
1529
  .sopl4:
1530
 
1531
        mov     dx, cx   ; read
1532
        in      al, dx
1533
        and     eax, 0xff
1534
        and     [esp+32], dword 0
1535
        mov     [esp+20], eax
1536
        ret
1537
 
1538
display_number:
1539
;It is not optimization
1540
        mov     eax, ebx
1541
        mov     ebx, ecx
1542
        mov     ecx, edx
1543
        mov     edx, esi
1544
        mov     esi, edi
1545
; eax = print type, al=0 -> ebx is number
1546
;                   al=1 -> ebx is pointer
1547
;                   ah=0 -> display decimal
1548
;                   ah=1 -> display hexadecimal
1549
;                   ah=2 -> display binary
1550
;                   eax bits 16-21 = number of digits to display (0-32)
1551
;                   eax bits 22-31 = reserved
1552
;
1553
; ebx = number or pointer
1554
; ecx = x shl 16 + y
1555
; edx = color
1556
        xor     edi, edi
1557
display_number_force:
1558
        push    eax
1559
        and     eax, 0x3fffffff
1560
        cmp     eax, 0xffff     ; length > 0 ?
1561
        pop     eax
1562
        jge     cont_displ
1563
        ret
1564
   cont_displ:
1565
        push    eax
1566
        and     eax, 0x3fffffff
1567
        cmp     eax, 61*0x10000  ; length <= 60 ?
1568
        pop     eax
1569
        jb      cont_displ2
1570
        ret
1571
   cont_displ2:
1572
 
1573
        pushad
1574
 
1575
        cmp     al, 1            ; ecx is a pointer ?
1576
        jne     displnl1
1577
        mov     ebp, ebx
1578
        add     ebp, 4
1579
        mov     ebp, [ebp+std_application_base_address]
1580
        mov     ebx, [ebx+std_application_base_address]
1581
 displnl1:
1582
        sub     esp, 64
1583
 
1584
        test    ah, ah            ; DECIMAL
1585
        jnz     no_display_desnum
1586
        shr     eax, 16
1587
        and     eax, 0xC03f
1588
;     and   eax,0x3f
1589
        push    eax
1590
        and     eax, 0x3f
1591
        mov     edi, esp
1592
        add     edi, 4+64-1
1593
        mov     ecx, eax
1594
        mov     eax, ebx
1595
        mov     ebx, 10
1596
 d_desnum:
1597
        xor     edx, edx
1598
        call    division_64_bits
1599
        div     ebx
1600
        add     dl, 48
1601
        mov     [edi], dl
1602
        dec     edi
1603
        loop    d_desnum
1604
        pop     eax
1605
        call    normalize_number
1606
        call    draw_num_text
1607
        add     esp, 64
1608
        popad
1609
        ret
1610
   no_display_desnum:
1611
 
1612
        cmp     ah, 0x01         ; HEXADECIMAL
1613
        jne     no_display_hexnum
1614
        shr     eax, 16
1615
        and     eax, 0xC03f
1616
;     and   eax,0x3f
1617
        push    eax
1618
        and     eax, 0x3f
1619
        mov     edi, esp
1620
        add     edi, 4+64-1
1621
        mov     ecx, eax
1622
        mov     eax, ebx
1623
        mov     ebx, 16
1624
   d_hexnum:
1625
        xor     edx, edx
1626
        call    division_64_bits
1627
        div     ebx
1628
   hexletters = __fdo_hexdigits
1629
        add     edx, hexletters
1630
        mov     dl, [edx]
1631
        mov     [edi], dl
1632
        dec     edi
1633
        loop    d_hexnum
1634
        pop     eax
1635
        call    normalize_number
1636
        call    draw_num_text
1637
        add     esp, 64
1638
        popad
1639
        ret
1640
   no_display_hexnum:
1641
 
1642
        cmp     ah, 0x02         ; BINARY
1643
        jne     no_display_binnum
1644
        shr     eax, 16
1645
        and     eax, 0xC03f
1646
;     and   eax,0x3f
1647
        push    eax
1648
        and     eax, 0x3f
1649
        mov     edi, esp
1650
        add     edi, 4+64-1
1651
        mov     ecx, eax
1652
        mov     eax, ebx
1653
        mov     ebx, 2
1654
   d_binnum:
1655
        xor     edx, edx
1656
        call    division_64_bits
1657
        div     ebx
1658
        add     dl, 48
1659
        mov     [edi], dl
1660
        dec     edi
1661
        loop    d_binnum
1662
        pop     eax
1663
        call    normalize_number
1664
        call    draw_num_text
1665
        add     esp, 64
1666
        popad
1667
        ret
1668
   no_display_binnum:
1669
 
1670
        add     esp, 64
1671
        popad
1672
        ret
1673
 
1674
normalize_number:
1675
        test    ah, 0x80
1676
        jz      .continue
1677
        mov     ecx, 48
1678
        and     eax, 0x3f
1679
@@:
1680
        inc     edi
1681
        cmp     [edi], cl
1682
        jne     .continue
1683
        dec     eax
1684
        cmp     eax, 1
1685
        ja      @r
1686
        mov     al, 1
1687
.continue:
1688
        and     eax, 0x3f
1689
        ret
1690
 
1691
division_64_bits:
1692
        test    [esp+1+4], byte 0x40
1693
        jz      .continue
1694
        push    eax
1695
        mov     eax, ebp
1696
        div     ebx
1697
        mov     ebp, eax
1698
        pop     eax
1699
.continue:
1700
        ret
1701
 
1702
draw_num_text:
1703
        mov     esi, eax
1704
        mov     edx, 64+4
1705
        sub     edx, eax
1706
        add     edx, esp
1707
        mov     ebx, [esp+64+32-8+4]
1708
; add window start x & y
1709
        mov     ecx, [TASK_BASE]
1710
 
1711
        mov     edi, [CURRENT_TASK]
1712
        shl     edi, 8
1713
 
1714
        mov     eax, [ecx-twdw+WDATA.box.left]
1715
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
1716
        shl     eax, 16
1717
        add     eax, [ecx-twdw+WDATA.box.top]
1718
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
1719
        add     ebx, eax
1720
        mov     ecx, [esp+64+32-12+4]
1721
        and     ecx, not 0x80000000     ; force counted string
1722
        mov     eax, [esp+64+8]         ; background color (if given)
1723
        mov     edi, [esp+64+4]
1724
        jmp     dtext
4700 mario79 1725
;-----------------------------------------------------------------------------
1726
iglobal
1727
midi_base dw 0
1728
endg
1729
;-----------------------------------------------------------------------------
2288 clevermous 1730
align 4
1731
sys_setup:
4700 mario79 1732
;  1 = roland mpu midi base , base io address
1733
;  2 = keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
1734
;  3 = not used
1735
;  4 = not used
1736
;  5 = system language, 1eng 2fi 3ger 4rus
1737
;  6 = not used
1738
;  7 = not used
1739
;  8 = not used
1740
;  9 = not used
1741
; 10 = not used
2288 clevermous 1742
; 11 = enable lba read
1743
; 12 = enable pci access
4700 mario79 1744
;-----------------------------------------------------------------------------
1745
        and     [esp+32], dword 0
1746
; F.21.1 - set MPU MIDI base port
1747
        dec     ebx
1748
        jnz     @f
2288 clevermous 1749
 
1750
        cmp     ecx, 0x100
4700 mario79 1751
        jb      @f
2288 clevermous 1752
 
1753
        mov     esi, 65535
1754
        cmp     esi, ecx
4700 mario79 1755
        jb      @f
2288 clevermous 1756
 
4700 mario79 1757
        mov     [midi_base], cx
1758
        mov     word [mididp], cx
1759
        inc     cx
1760
        mov     word [midisp], cx
2288 clevermous 1761
        ret
4700 mario79 1762
;--------------------------------------
1763
@@:
1764
; F.21.2 - set keyboard layout
1765
        dec     ebx
1766
        jnz     @f
2288 clevermous 1767
 
1768
        mov     edi, [TASK_BASE]
1769
        mov     eax, [edi+TASKDATA.mem_start]
1770
        add     eax, edx
4700 mario79 1771
; 1 = normal layout
1772
        dec     ecx
1773
        jnz     .shift
2288 clevermous 1774
 
1775
        mov     ebx, keymap
1776
        mov     ecx, 128
1777
        call    memmove
1778
        ret
4700 mario79 1779
;--------------------------------------
1780
.shift:
1781
; 2 = layout at pressed Shift
2288 clevermous 1782
        dec     ecx
4700 mario79 1783
        jnz     .alt
2288 clevermous 1784
 
1785
        mov     ebx, keymap_shift
1786
        mov     ecx, 128
1787
        call    memmove
1788
        ret
4700 mario79 1789
;--------------------------------------
1790
.alt:
1791
; 3 = layout at pressed Alt
2288 clevermous 1792
        dec     ecx
4700 mario79 1793
        jnz     .country
1794
 
2288 clevermous 1795
        mov     ebx, keymap_alt
1796
        mov     ecx, 128
1797
        call    memmove
1798
        ret
4700 mario79 1799
;--------------------------------------
1800
.country:
1801
; country identifier
2288 clevermous 1802
        sub     ecx, 6
4700 mario79 1803
        jnz     .error
1804
 
2288 clevermous 1805
        mov     word [keyboard], dx
1806
        ret
4700 mario79 1807
;--------------------------------------
1808
@@:
1809
; F.21.5 - set system language
1810
        sub     ebx, 3
1811
        jnz     @f
2288 clevermous 1812
 
1813
        mov     [syslang], ecx
1814
        ret
4700 mario79 1815
;--------------------------------------
1816
@@:
1817
; F.21.11 - enable/disable low-level access to HD
1818
        and     ecx, 1
1819
        sub     ebx, 6
1820
        jnz     @f
2288 clevermous 1821
 
4700 mario79 1822
        mov     [lba_read_enabled], ecx
2288 clevermous 1823
        ret
4700 mario79 1824
;--------------------------------------
1825
@@:
1826
; F.21.12 - enable/disable low-level access to PCI
2288 clevermous 1827
        dec     ebx
4700 mario79 1828
        jnz     .error
2288 clevermous 1829
 
1830
        mov     [pci_access_enabled], ecx
1831
        ret
4700 mario79 1832
;--------------------------------------
1833
.error:
2288 clevermous 1834
        or      [esp+32], dword -1
1835
        ret
4700 mario79 1836
;-----------------------------------------------------------------------------
2288 clevermous 1837
align 4
1838
sys_getsetup:
4700 mario79 1839
;  1 = roland mpu midi base , base io address
1840
;  2 = keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
1841
;  3 = not used
1842
;  4 = not used
1843
;  5 = system language, 1eng 2fi 3ger 4rus
1844
;  6 = not used
1845
;  7 = not used
1846
;  8 = not used
1847
;  9 = get hs timer tic
1848
; 10 = not used
1849
; 11 = get the state "lba read"
1850
; 12 = get the state "pci access"
1851
;-----------------------------------------------------------------------------
1852
; F.26.1 - get MPU MIDI base port
1853
        dec     ebx
1854
        jnz     @f
2288 clevermous 1855
 
1856
        movzx   eax, [midi_base]
1857
        mov     [esp+32], eax
1858
        ret
4700 mario79 1859
;--------------------------------------
1860
@@:
1861
; F.26.2 - get keyboard layout
2288 clevermous 1862
        dec     ebx
4700 mario79 1863
        jnz     @f
2288 clevermous 1864
 
1865
        mov     edi, [TASK_BASE]
1866
        mov     ebx, [edi+TASKDATA.mem_start]
1867
        add     ebx, edx
4700 mario79 1868
; 1 = normal layout
1869
        dec     ecx
1870
        jnz     .shift
2288 clevermous 1871
 
1872
        mov     eax, keymap
1873
        mov     ecx, 128
1874
        call    memmove
1875
        ret
4700 mario79 1876
;--------------------------------------
1877
.shift:
1878
; 2 = layout with pressed Shift
2288 clevermous 1879
        dec     ecx
4700 mario79 1880
        jnz     .alt
2288 clevermous 1881
 
1882
        mov     eax, keymap_shift
1883
        mov     ecx, 128
1884
        call    memmove
1885
        ret
4700 mario79 1886
;--------------------------------------
1887
.alt:
1888
; 3 = layout with pressed Alt
2288 clevermous 1889
        dec     ecx
4700 mario79 1890
        jne     .country
2288 clevermous 1891
 
1892
        mov     eax, keymap_alt
1893
        mov     ecx, 128
1894
        call    memmove
1895
        ret
4700 mario79 1896
;--------------------------------------
1897
.country:
1898
; 9 = country identifier
2288 clevermous 1899
        sub     ecx, 6
4700 mario79 1900
        jnz     .error
1901
 
2288 clevermous 1902
        movzx   eax, word [keyboard]
1903
        mov     [esp+32], eax
1904
        ret
4700 mario79 1905
;--------------------------------------
1906
@@:
1907
; F.26.5 - get system language
1908
        sub     ebx, 3
1909
        jnz     @f
2288 clevermous 1910
 
1911
        mov     eax, [syslang]
1912
        mov     [esp+32], eax
1913
        ret
4700 mario79 1914
;--------------------------------------
1915
@@:
1916
; F.26.9 - get the value of the time counter
4573 clevermous 1917
        sub     ebx, 4
4700 mario79 1918
        jnz     @f
1919
 
1920
        mov     eax, [timer_ticks]
2288 clevermous 1921
        mov     [esp+32], eax
1922
        ret
4700 mario79 1923
;--------------------------------------
1924
@@:
5794 serge 1925
; F.26.10 - get the time from kernel launch in nanoseconds
1926
        sub     ebx, 1
1927
        jnz     @f
1928
 
1929
        call    get_clock_ns
1930
        mov     [esp+24], edx
1931
        mov     [esp+32], eax
1932
        ret
1933
;--------------------------------------
1934
@@:
4700 mario79 1935
; F.26.11 - Find out whether low-level HD access is enabled
5794 serge 1936
        sub     ebx, 1
4700 mario79 1937
        jnz     @f
1938
 
2288 clevermous 1939
        mov     eax, [lba_read_enabled]
1940
        mov     [esp+32], eax
1941
        ret
4700 mario79 1942
;--------------------------------------
1943
@@:
1944
; F.26.12 - Find out whether low-level PCI access is enabled
2288 clevermous 1945
        dec     ebx
4700 mario79 1946
        jnz     .error
1947
 
2288 clevermous 1948
        mov     eax, [pci_access_enabled]
1949
        mov     [esp+32], eax
1950
        ret
4700 mario79 1951
;--------------------------------------
1952
.error:
1953
        or      [esp+32], dword -1
2288 clevermous 1954
        ret
4700 mario79 1955
;-----------------------------------------------------------------------------
2288 clevermous 1956
get_timer_ticks:
1957
        mov     eax, [timer_ticks]
1958
        ret
4700 mario79 1959
;-----------------------------------------------------------------------------
2288 clevermous 1960
iglobal
1961
align 4
1962
mousefn dd msscreen, mswin, msbutton, msset
1963
        dd app_load_cursor
1964
        dd app_set_cursor
1965
        dd app_delete_cursor
1966
        dd msz
1967
endg
4700 mario79 1968
;-----------------------------------------------------------------------------
2288 clevermous 1969
readmousepos:
1970
 
1971
; eax=0 screen relative
1972
; eax=1 window relative
1973
; eax=2 buttons pressed
1974
; eax=3 set mouse pos   ; reserved
1975
; eax=4 load cursor
1976
; eax=5 set cursor
1977
; eax=6 delete cursor   ; reserved
1978
; eax=7 get mouse_z
1979
 
1980
        cmp     ebx, 7
1981
        ja      msset
1982
        jmp     [mousefn+ebx*4]
1983
msscreen:
1984
        mov     eax, [MOUSE_X]
1985
        shl     eax, 16
1986
        mov     ax, [MOUSE_Y]
1987
        mov     [esp+36-4], eax
1988
        ret
1989
mswin:
1990
        mov     eax, [MOUSE_X]
1991
        shl     eax, 16
1992
        mov     ax, [MOUSE_Y]
1993
        mov     esi, [TASK_BASE]
1994
        mov     bx, word [esi-twdw+WDATA.box.left]
1995
        shl     ebx, 16
1996
        mov     bx, word [esi-twdw+WDATA.box.top]
1997
        sub     eax, ebx
1998
 
1999
        mov     edi, [CURRENT_TASK]
2000
        shl     edi, 8
2001
        sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
2002
        rol     eax, 16
2003
        sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
2004
        rol     eax, 16
2005
        mov     [esp+36-4], eax
2006
        ret
2007
msbutton:
2008
        movzx   eax, byte [BTN_DOWN]
2009
        mov     [esp+36-4], eax
2010
        ret
2011
msz:
2012
        mov     edi, [TASK_COUNT]
2013
        movzx   edi, word [WIN_POS + edi*2]
2014
        cmp     edi, [CURRENT_TASK]
2015
        jne     @f
2016
        mov     ax, [MOUSE_SCROLL_H]
2017
        shl     eax, 16
2018
        mov     ax, [MOUSE_SCROLL_V]
2019
        mov     [esp+36-4], eax
2020
        and     [MOUSE_SCROLL_H], word 0
2021
        and     [MOUSE_SCROLL_V], word 0
2022
        ret
2023
       @@:
2024
        and     [esp+36-4], dword 0
2025
;           ret
2026
msset:
2027
        ret
2028
 
2029
app_load_cursor:
2030
        cmp     ecx, OS_BASE
2031
        jae     msset
2032
        stdcall load_cursor, ecx, edx
2033
        mov     [esp+36-4], eax
2034
        ret
2035
 
2036
app_set_cursor:
2037
        stdcall set_cursor, ecx
2038
        mov     [esp+36-4], eax
2039
        ret
2040
 
2041
app_delete_cursor:
2042
        stdcall delete_cursor, ecx
2043
        mov     [esp+36-4], eax
2044
        ret
2045
 
2046
is_input:
2047
 
2048
        push    edx
2049
        mov     dx, word [midisp]
2050
        in      al, dx
2051
        and     al, 0x80
2052
        pop     edx
2053
        ret
2054
 
2055
is_output:
2056
 
2057
        push    edx
2058
        mov     dx, word [midisp]
2059
        in      al, dx
2060
        and     al, 0x40
2061
        pop     edx
2062
        ret
2063
 
2064
 
2065
get_mpu_in:
2066
 
2067
        push    edx
2068
        mov     dx, word [mididp]
2069
        in      al, dx
2070
        pop     edx
2071
        ret
2072
 
2073
 
2074
put_mpu_out:
2075
 
2076
        push    edx
2077
        mov     dx, word [mididp]
2078
        out     dx, al
2079
        pop     edx
2080
        ret
2081
 
2082
 
2083
 
2084
align 4
2085
 
2086
sys_midi:
2087
        cmp     [mididp], 0
2088
        jnz     sm0
2089
        mov     [esp+36], dword 1
2090
        ret
2091
sm0:
2092
        and     [esp+36], dword 0
2093
        dec     ebx
2094
        jnz     smn1
2095
 ;    call setuart
2096
su1:
2097
        call    is_output
2098
        test    al, al
2099
        jnz     su1
2100
        mov     dx, word [midisp]
2101
        mov     al, 0xff
2102
        out     dx, al
2103
su2:
2104
        mov     dx, word [midisp]
2105
        mov     al, 0xff
2106
        out     dx, al
2107
        call    is_input
2108
        test    al, al
2109
        jnz     su2
2110
        call    get_mpu_in
2111
        cmp     al, 0xfe
2112
        jnz     su2
2113
su3:
2114
        call    is_output
2115
        test    al, al
2116
        jnz     su3
2117
        mov     dx, word [midisp]
2118
        mov     al, 0x3f
2119
        out     dx, al
2120
        ret
2121
smn1:
2122
        dec     ebx
2123
        jnz     smn2
2124
sm10:
2125
        call    get_mpu_in
2126
        call    is_output
2127
        test    al, al
2128
        jnz     sm10
2129
        mov     al, bl
2130
        call    put_mpu_out
2131
        smn2:
2132
        ret
2133
 
2134
detect_devices:
2135
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2136
;include 'detect/commouse.inc'
2137
;include 'detect/ps2mouse.inc'
2138
;include 'detect/dev_fd.inc'
2139
;include 'detect/dev_hdcd.inc'
2140
;include 'detect/sear_par.inc'
2141
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2142
        ret
2143
 
2144
sys_end:
2430 mario79 2145
;--------------------------------------
2146
        cmp     [_display.select_cursor], 0
2147
        je      @f
2148
; restore default cursor before killing
2149
        pusha
2150
        mov     ecx, [current_slot]
2435 mario79 2151
        call    restore_default_cursor_before_killing
2430 mario79 2152
        popa
2153
@@:
2154
;--------------------------------------
3545 hidnplayr 2155
; kill all sockets this process owns
2156
        pusha
2157
        mov     edx, [TASK_BASE]
2158
        mov     edx, [edx+TASKDATA.pid]
2159
        call    SOCKET_process_end
2160
        popa
2161
;--------------------------------------
2288 clevermous 2162
        mov     ecx, [current_slot]
2163
        mov     eax, [ecx+APPDATA.tls_base]
2164
        test    eax, eax
2165
        jz      @F
2166
 
2167
        stdcall user_free, eax
2168
@@:
2169
 
2170
        mov     eax, [TASK_BASE]
2171
        mov     [eax+TASKDATA.state], 3; terminate this program
3534 clevermous 2172
        call    wakeup_osloop
2288 clevermous 2173
 
3597 Serge 2174
.waitterm:            ; wait here for termination
2175
        call    change_task
2176
        jmp     .waitterm
2435 mario79 2177
;------------------------------------------------------------------------------
2452 mario79 2178
align 4
2435 mario79 2179
restore_default_cursor_before_killing:
2468 mario79 2180
        pushfd
2181
        cli
2435 mario79 2182
        mov     eax, [def_cursor]
2183
        mov     [ecx+APPDATA.cursor], eax
2288 clevermous 2184
 
2435 mario79 2185
        movzx   eax, word [MOUSE_Y]
2186
        movzx   ebx, word [MOUSE_X]
2446 mario79 2187
        mov     eax, [d_width_calc_area + eax*4]
2188
 
5351 serge 2189
        add     eax, [_display.win_map]
2435 mario79 2190
        movzx   edx, byte [ebx+eax]
2191
        shl     edx, 8
2192
        mov     esi, [edx+SLOT_BASE+APPDATA.cursor]
2452 mario79 2193
 
2194
        cmp     esi, [current_cursor]
2195
        je      @f
2196
 
2435 mario79 2197
        push    esi
2198
        call    [_display.select_cursor]
2199
        mov     [current_cursor], esi
2452 mario79 2200
@@:
2450 mario79 2201
        mov     [redrawmouse_unconditional], 1
3534 clevermous 2202
        call    wakeup_osloop
2468 mario79 2203
        popfd
2435 mario79 2204
        ret
2205
;------------------------------------------------------------------------------
2288 clevermous 2206
iglobal
2207
align 4
2208
sys_system_table:
2209
        dd      sysfn_deactivate        ; 1 = deactivate window
2210
        dd      sysfn_terminate         ; 2 = terminate thread
2211
        dd      sysfn_activate          ; 3 = activate window
2212
        dd      sysfn_getidletime       ; 4 = get idle time
2213
        dd      sysfn_getcpuclock       ; 5 = get cpu clock
2214
        dd      sysfn_saveramdisk       ; 6 = save ramdisk
2215
        dd      sysfn_getactive         ; 7 = get active window
2216
        dd      sysfn_sound_flag        ; 8 = get/set sound_flag
2217
        dd      sysfn_shutdown          ; 9 = shutdown with parameter
2218
        dd      sysfn_minimize          ; 10 = minimize window
2219
        dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
2220
        dd      sysfn_lastkey           ; 12 = get last pressed key
2221
        dd      sysfn_getversion        ; 13 = get kernel version
2222
        dd      sysfn_waitretrace       ; 14 = wait retrace
2223
        dd      sysfn_centermouse       ; 15 = center mouse cursor
2224
        dd      sysfn_getfreemem        ; 16 = get free memory size
2225
        dd      sysfn_getallmem         ; 17 = get total memory size
2226
        dd      sysfn_terminate2        ; 18 = terminate thread using PID
2227
                                        ;                 instead of slot
2228
        dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
2229
        dd      sysfn_meminfo           ; 20 = get extended memory info
2230
        dd      sysfn_pid_to_slot       ; 21 = get slot number for pid
2231
        dd      sysfn_min_rest_window   ; 22 = minimize and restore any window
2648 mario79 2232
        dd      sysfn_min_windows       ; 23 = minimize all windows
2654 mario79 2233
        dd      sysfn_set_screen_sizes  ; 24 = set screen sizes for Vesa
5836 GerdtR 2234
 
2235
        dd      sysfn_zmodif            ; 25 = get/set window z modifier  ;Fantomer
2288 clevermous 2236
sysfn_num = ($ - sys_system_table)/4
2237
endg
2238
;------------------------------------------------------------------------------
2239
sys_system:
2240
        dec     ebx
2241
        cmp     ebx, sysfn_num
2242
        jae     @f
2243
        jmp     dword [sys_system_table + ebx*4]
2244
@@:
2245
        ret
2246
;------------------------------------------------------------------------------
2247
sysfn_shutdown:          ; 18.9 = system shutdown
2248
        cmp     ecx, 1
2249
        jl      exit_for_anyone
2250
        cmp     ecx, 4
2251
        jg      exit_for_anyone
3732 Serge 2252
        mov     [BOOT_VARS+0x9030], cl
2288 clevermous 2253
 
2254
        mov     eax, [TASK_COUNT]
2255
        mov     [SYS_SHUTDOWN], al
2256
        mov     [shutdown_processes], eax
3534 clevermous 2257
        call    wakeup_osloop
2288 clevermous 2258
        and     dword [esp+32], 0
2259
 exit_for_anyone:
2260
        ret
2261
  uglobal
2262
   shutdown_processes:
2263
                       dd 0x0
2264
  endg
2265
;------------------------------------------------------------------------------
2266
sysfn_terminate:        ; 18.2 = TERMINATE
2472 mario79 2267
        push    ecx
2288 clevermous 2268
        cmp     ecx, 2
2269
        jb      noprocessterminate
2270
        mov     edx, [TASK_COUNT]
2271
        cmp     ecx, edx
2272
        ja      noprocessterminate
2273
        mov     eax, [TASK_COUNT]
2274
        shl     ecx, 5
2275
        mov     edx, [ecx+CURRENT_TASK+TASKDATA.pid]
2276
        add     ecx, CURRENT_TASK+TASKDATA.state
2277
        cmp     byte [ecx], 9
2278
        jz      noprocessterminate
3296 clevermous 2279
        push    ecx edx
2280
        lea     edx, [(ecx-(CURRENT_TASK and 1FFFFFFFh)-TASKDATA.state)*8+SLOT_BASE]
2281
        call    request_terminate
2282
        pop     edx ecx
2283
        test    eax, eax
2284
        jz      noprocessterminate
2430 mario79 2285
;--------------------------------------
3545 hidnplayr 2286
; terminate all network sockets it used
2287
        pusha
2288
        mov     eax, edx
2289
        call    SOCKET_process_end
2290
        popa
2291
;--------------------------------------
2430 mario79 2292
        cmp     [_display.select_cursor], 0
2452 mario79 2293
        je      .restore_end
2430 mario79 2294
; restore default cursor before killing
2295
        pusha
2296
        mov     ecx, [esp+32]
2297
        shl     ecx, 8
2435 mario79 2298
        add     ecx, SLOT_BASE
2452 mario79 2299
        mov     eax, [def_cursor]
2300
        cmp     [ecx+APPDATA.cursor], eax
2301
        je      @f
2435 mario79 2302
        call    restore_default_cursor_before_killing
2452 mario79 2303
@@:
2430 mario79 2304
        popa
2452 mario79 2305
.restore_end:
2430 mario79 2306
;--------------------------------------
2288 clevermous 2307
     ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
2308
        mov     [ecx], byte 3; clear possible i40's
3534 clevermous 2309
        call    wakeup_osloop
2288 clevermous 2310
     ;call MEM_Heap_UnLock
2311
 
3534 clevermous 2312
        cmp     edx, [application_table_owner]; clear app table stat
2288 clevermous 2313
        jne     noatsc
3534 clevermous 2314
        call    unlock_application_table
2468 mario79 2315
noatsc:
2316
noprocessterminate:
2472 mario79 2317
        add     esp, 4
2288 clevermous 2318
        ret
2319
;------------------------------------------------------------------------------
2320
sysfn_terminate2:
2321
;lock application_table_status mutex
2322
.table_status:
3534 clevermous 2323
        call    lock_application_table
2288 clevermous 2324
        mov     eax, ecx
2325
        call    pid_to_slot
2326
        test    eax, eax
2327
        jz      .not_found
2328
        mov     ecx, eax
2329
        cli
2330
        call    sysfn_terminate
3534 clevermous 2331
        call    unlock_application_table
2288 clevermous 2332
        sti
2333
        and     dword [esp+32], 0
2334
        ret
2335
.not_found:
3534 clevermous 2336
        call    unlock_application_table
2288 clevermous 2337
        or      dword [esp+32], -1
2338
        ret
2339
;------------------------------------------------------------------------------
2340
sysfn_deactivate:         ; 18.1 = DEACTIVATE WINDOW
2341
        cmp     ecx, 2
2342
        jb      .nowindowdeactivate
2343
        cmp     ecx, [TASK_COUNT]
2344
        ja      .nowindowdeactivate
2408 Serge 2345
 
2288 clevermous 2346
        movzx   esi, word [WIN_STACK + ecx*2]
2347
        cmp     esi, 1
2348
        je      .nowindowdeactivate ; already deactive
2349
 
2350
        mov     edi, ecx
2351
        shl     edi, 5
2352
        add     edi, window_data
2353
        movzx   esi, word [WIN_STACK + ecx * 2]
2354
        lea     esi, [WIN_POS + esi * 2]
2355
        call    window._.window_deactivate
2408 Serge 2356
 
2288 clevermous 2357
        call    syscall_display_settings._.calculate_whole_screen
2358
        call    syscall_display_settings._.redraw_whole_screen
2359
.nowindowdeactivate:
2360
        ret
3455 mario79 2361
;------------------------------------------------------------------------------
2288 clevermous 2362
sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
5675 leency 2363
        cmp     ecx, 2
2364
        jb      .nowindowactivate
2288 clevermous 2365
        cmp     ecx, [TASK_COUNT]
2366
        ja      .nowindowactivate
3455 mario79 2367
;-------------------------------------
2368
@@:
2369
; If the window is captured and moved by the user,
2370
; then you can't change the position in window stack!!!
2371
        mov     al, [mouse.active_sys_window.action]
2372
        and     al, WINDOW_MOVE_AND_RESIZE_FLAGS
2373
        test    al, al
2374
        jz      @f
2375
        call    change_task
2376
        jmp     @b
2377
@@:
2378
;-------------------------------------
2288 clevermous 2379
        mov     [window_minimize], 2; restore window if minimized
3534 clevermous 2380
        call    wakeup_osloop
2288 clevermous 2381
 
2382
        movzx   esi, word [WIN_STACK + ecx*2]
2383
        cmp     esi, [TASK_COUNT]
2384
        je      .nowindowactivate; already active
2385
 
2386
        mov     edi, ecx
2387
        shl     edi, 5
2388
        add     edi, window_data
2389
        movzx   esi, word [WIN_STACK + ecx * 2]
2390
        lea     esi, [WIN_POS + esi * 2]
2391
        call    waredraw
2392
.nowindowactivate:
2393
        ret
2394
;------------------------------------------------------------------------------
5836 GerdtR 2395
align 4                         ;Fantomer
2396
sysfn_zmodif:
2397
;18,25,1 - get z_modif
2398
;18,25,2 - set z_modif
2399
;edx = -1(for current task) or TID
2400
;esi(for 2) = new value z_modif
2401
;return:
2402
;1:   eax = z_modif
2403
;2: eax=0(fail),1(success) for set z_modif
2404
 
2405
        xor     eax, eax
2406
 
2407
        cmp     edx, -1
2408
        jne     @f
2409
        mov     edx, [CURRENT_TASK]
2410
     @@:
2411
        cmp     edx, [TASK_COUNT]
2412
        ja      .exit
2413
        cmp     edx, 1
2414
        je      .exit
2415
 
2416
 
2417
        shl     edx, 5
2418
 
2419
        cmp     [edx + CURRENT_TASK + TASKDATA.state], 9
2420
        je      .exit
2421
 
2422
        cmp     ecx, 1
2423
        jnz     .set_zmod
2424
 
2425
        mov     al, [edx + window_data + WDATA.z_modif]
2426
 
2427
        jmp     .exit
2428
align 4
2429
.set_zmod:
2430
        cmp     ecx, 2
2431
        jnz     .exit
2432
 
2433
        mov     eax, esi
2434
        mov     esi, edx
2435
 
2436
        cmp     al, ZPOS_ALWAYS_TOP
2437
        ja      .exit
2438
 
2439
        mov     [edx + window_data + WDATA.z_modif], al
2440
 
2441
        mov     eax, [edx + window_data + WDATA.box.left]
2442
        mov     ebx, [edx + window_data + WDATA.box.top]
2443
        mov     ecx, [edx + window_data + WDATA.box.width]
2444
        mov     edx, [edx + window_data + WDATA.box.height]
2445
        add     ecx, eax
2446
        add     edx, ebx
2447
        call    window._.set_top_wnd
2448
 
2449
        mov     eax, 1
2450
align 4
2451
.exit:
2452
        mov     [esp+32], eax
2453
        ret
2454
 
2455
;------------------------------------------------------------------------------
2288 clevermous 2456
sysfn_getidletime:              ; 18.4 = GET IDLETIME
3534 clevermous 2457
        mov     eax, [CURRENT_TASK+32+TASKDATA.cpu_usage]
2288 clevermous 2458
        mov     [esp+32], eax
2459
        ret
2460
;------------------------------------------------------------------------------
2461
sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
3481 Serge 2462
        mov     eax, dword [cpu_freq]
2288 clevermous 2463
        mov     [esp+32], eax
2464
        ret
2465
;------------------------------------------------------------------------------
3481 Serge 2466
get_cpu_freq:
2467
        mov     eax, dword [cpu_freq]
2468
        mov     edx, dword [cpu_freq+4]
2469
        ret
2288 clevermous 2470
;  SAVE ramdisk to /hd/1/menuet.img
2471
;!!!!!!!!!!!!!!!!!!!!!!!!
2472
   include 'blkdev/rdsave.inc'
2473
;!!!!!!!!!!!!!!!!!!!!!!!!
2474
;------------------------------------------------------------------------------
2475
align 4
2476
sysfn_getactive:        ; 18.7 = get active window
2477
        mov     eax, [TASK_COUNT]
2478
        movzx   eax, word [WIN_POS + eax*2]
2479
        mov     [esp+32], eax
2480
        ret
2481
;------------------------------------------------------------------------------
2482
sysfn_sound_flag:       ; 18.8 = get/set sound_flag
2483
;     cmp  ecx,1
2484
        dec     ecx
2485
        jnz     nogetsoundflag
2486
        movzx   eax, byte [sound_flag]; get sound_flag
2487
        mov     [esp+32], eax
2488
        ret
2489
 nogetsoundflag:
2490
;     cmp  ecx,2
2491
        dec     ecx
2492
        jnz     nosoundflag
2493
        xor     byte [sound_flag], 1
2494
 nosoundflag:
2495
        ret
2496
;------------------------------------------------------------------------------
2497
sysfn_minimize:         ; 18.10 = minimize window
2498
        mov     [window_minimize], 1
3534 clevermous 2499
        call    wakeup_osloop
2288 clevermous 2500
        ret
2501
;------------------------------------------------------------------------------
2502
align 4
2503
sysfn_getdiskinfo:      ; 18.11 = get disk info table
2504
        dec     ecx
4641 mario79 2505
        jnz     .exit
2506
.small_table:
2288 clevermous 2507
        mov     edi, edx
2508
        mov     esi, DRIVE_DATA
4641 mario79 2509
        mov     ecx, DRIVE_DATA_SIZE ;10
2288 clevermous 2510
        cld
4641 mario79 2511
        rep movsb
2512
.exit:
2288 clevermous 2513
        ret
2514
;------------------------------------------------------------------------------
2515
sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
2516
        and     dword [esp+32], 0
2517
        ret
2518
;------------------------------------------------------------------------------
2519
sysfn_getversion:       ; 18.13 = get kernel ID and version
2520
        mov     edi, ecx
2521
        mov     esi, version_inf
2522
        mov     ecx, version_end-version_inf
2523
        rep movsb
2524
        ret
2525
;------------------------------------------------------------------------------
2526
sysfn_waitretrace:     ; 18.14 = sys wait retrace
2527
     ;wait retrace functions
2528
 sys_wait_retrace:
2529
        mov     edx, 0x3da
2530
 WaitRetrace_loop:
2531
        in      al, dx
2532
        test    al, 1000b
2533
        jz      WaitRetrace_loop
2534
        and     [esp+32], dword 0
2535
        ret
2536
;------------------------------------------------------------------------------
2537
align 4
2538
sysfn_centermouse:      ; 18.15 = mouse centered
2539
; removed here by 
2540
;     call  mouse_centered
2541
;* mouse centered - start code- Mario79
2542
;mouse_centered:
2543
;        push  eax
5350 serge 2544
        mov     eax, [_display.width]
2288 clevermous 2545
        shr     eax, 1
2546
        mov     [MOUSE_X], ax
5350 serge 2547
        mov     eax, [_display.height]
2288 clevermous 2548
        shr     eax, 1
2549
        mov     [MOUSE_Y], ax
3534 clevermous 2550
        call    wakeup_osloop
2288 clevermous 2551
;        ret
2552
;* mouse centered - end code- Mario79
2553
        xor     eax, eax
2554
        and     [esp+32], eax
2555
;        pop   eax
2556
        ret
2557
;------------------------------------------------------------------------------
2558
align 4
2559
sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
2560
        test    ecx, ecx; get mouse speed factor
2561
        jnz     .set_mouse_acceleration
2562
        xor     eax, eax
2563
        mov     ax, [mouse_speed_factor]
2564
        mov     [esp+32], eax
2565
        ret
2566
 .set_mouse_acceleration:
2567
;     cmp  ecx,1  ; set mouse speed factor
2568
        dec     ecx
2569
        jnz     .get_mouse_delay
2570
        mov     [mouse_speed_factor], dx
2571
        ret
2572
 .get_mouse_delay:
2573
;     cmp  ecx,2  ; get mouse delay
2574
        dec     ecx
2575
        jnz     .set_mouse_delay
2576
        mov     eax, [mouse_delay]
2577
        mov     [esp+32], eax
2578
        ret
2579
 .set_mouse_delay:
2580
;     cmp  ecx,3  ; set mouse delay
2581
        dec     ecx
2582
        jnz     .set_pointer_position
2583
        mov     [mouse_delay], edx
2584
        ret
2585
 .set_pointer_position:
2586
;     cmp  ecx,4  ; set mouse pointer position
2587
        dec     ecx
2588
        jnz     .set_mouse_button
5350 serge 2589
        cmp     dx, word[_display.height]
2590
        jae     .end
2288 clevermous 2591
        rol     edx, 16
5350 serge 2592
        cmp     dx, word[_display.width]
2593
        jae     .end
2288 clevermous 2594
        mov     [MOUSE_X], edx
4381 hidnplayr 2595
        mov     [mouse_active], 1
3534 clevermous 2596
        call    wakeup_osloop
2288 clevermous 2597
        ret
2598
 .set_mouse_button:
2599
;     cmp   ecx,5  ; set mouse button features
2600
        dec     ecx
2601
        jnz     .end
2602
        mov     [BTN_DOWN], dl
2603
        mov     [mouse_active], 1
3534 clevermous 2604
        call    wakeup_osloop
2288 clevermous 2605
 .end:
2606
        ret
2607
;------------------------------------------------------------------------------
2608
sysfn_getfreemem:
2609
        mov     eax, [pg_data.pages_free]
2610
        shl     eax, 2
2611
        mov     [esp+32], eax
2612
        ret
2648 mario79 2613
;------------------------------------------------------------------------------
2288 clevermous 2614
sysfn_getallmem:
2615
        mov     eax, [MEM_AMOUNT]
2616
        shr     eax, 10
2617
        mov     [esp+32], eax
2618
        ret
2648 mario79 2619
;------------------------------------------------------------------------------
2288 clevermous 2620
sysfn_pid_to_slot:
2621
        mov     eax, ecx
2622
        call    pid_to_slot
2623
        mov     [esp+32], eax
2624
        ret
2648 mario79 2625
;------------------------------------------------------------------------------
2288 clevermous 2626
sysfn_min_rest_window:
2627
        pushad
2628
        mov     eax, edx ; ebx - operating
2629
        shr     ecx, 1
2630
        jnc     @f
2631
        call    pid_to_slot
2632
@@:
2633
        or      eax, eax ; eax - number of slot
2634
        jz      .error
2635
        cmp     eax, 255    ; varify maximal slot number
2636
        ja      .error
2637
        movzx   eax, word [WIN_STACK + eax*2]
2638
        shr     ecx, 1
2639
        jc      .restore
2640
 ; .minimize:
2641
        call    minimize_window
2642
        jmp     .exit
2643
.restore:
2644
        call    restore_minimized_window
2645
.exit:
2646
        popad
2647
        xor     eax, eax
2648
        mov     [esp+32], eax
2649
        ret
2650
.error:
2651
        popad
2652
        xor     eax, eax
2653
        dec     eax
2654
        mov     [esp+32], eax
2655
        ret
2648 mario79 2656
;------------------------------------------------------------------------------
2657
sysfn_min_windows:
2658
        call    minimize_all_window
2659
        mov     [esp+32], eax
2660
        call    change_task
2661
        ret
2662
;------------------------------------------------------------------------------
2654 mario79 2663
sysfn_set_screen_sizes:
2664
        cmp     [SCR_MODE], word 0x13
2665
        jbe     .exit
2666
 
2667
        cmp     [_display.select_cursor], select_cursor
2668
        jne     .exit
2669
 
2670
        cmp     ecx, [display_width_standard]
2671
        ja      .exit
2672
 
2673
        cmp     edx, [display_height_standard]
2674
        ja      .exit
2675
 
2676
        pushfd
2677
        cli
2678
        mov     eax, ecx
5351 serge 2679
        mov     ecx, [_display.lfb_pitch]
2654 mario79 2680
        mov     [_display.width], eax
2681
        dec     eax
2682
        mov     [_display.height], edx
2683
        dec     edx
2684
; eax - new Screen_Max_X
2685
; edx - new Screen_Max_Y
2686
        mov     [do_not_touch_winmap], 1
2687
        call    set_screen
2688
        mov     [do_not_touch_winmap], 0
2689
        popfd
2690
        call    change_task
2691
.exit:
2692
        ret
2693
;------------------------------------------------------------------------------
2288 clevermous 2694
uglobal
2695
screen_workarea RECT
2654 mario79 2696
display_width_standard dd 0
2697
display_height_standard dd 0
2698
do_not_touch_winmap db 0
2288 clevermous 2699
window_minimize db 0
2700
sound_flag      db 0
2654 mario79 2701
 
2288 clevermous 2702
endg
2703
 
2704
UID_NONE=0
2705
UID_MENUETOS=1   ;official
2706
UID_KOLIBRI=2    ;russian
2707
 
2708
iglobal
2709
version_inf:
3454 mario79 2710
        db 0,7,7,0  ; version 0.7.7.0
2711
        db 0
2712
.rev    dd __REV__
2288 clevermous 2713
version_end:
2714
endg
2515 mario79 2715
;------------------------------------------------------------------------------
2716
align 4
2288 clevermous 2717
sys_cachetodiskette:
2718
        cmp     ebx, 1
4273 clevermous 2719
        jb      .no_floppy_save
2288 clevermous 2720
        cmp     ebx, 2
4273 clevermous 2721
        ja      .no_floppy_save
2288 clevermous 2722
        call    save_image
4273 clevermous 2723
        mov     [esp + 32], eax
2724
        ret
2725
.no_floppy_save:
2288 clevermous 2726
        mov     [esp + 32], dword 1
2727
        ret
2515 mario79 2728
;------------------------------------------------------------------------------
2288 clevermous 2729
uglobal
2730
;  bgrchanged  dd  0x0
2731
align 4
2732
bgrlockpid dd 0
2733
bgrlock db 0
2734
endg
2515 mario79 2735
;------------------------------------------------------------------------------
2736
align 4
2288 clevermous 2737
sys_background:
2738
        cmp     ebx, 1                     ; BACKGROUND SIZE
2739
        jnz     nosb1
2740
        test    ecx, ecx
2741
        jz      sbgrr
2547 mario79 2742
 
2288 clevermous 2743
        test    edx, edx
2744
        jz      sbgrr
2515 mario79 2745
;--------------------------------------
2746
align 4
2288 clevermous 2747
@@:
2748
;;Maxis use atomic bts for mutexes  4.4.2009
2749
        bts     dword [bgrlock], 0
2750
        jnc     @f
2751
        call    change_task
2752
        jmp     @b
2515 mario79 2753
;--------------------------------------
2754
align 4
2288 clevermous 2755
@@:
2756
        mov     [BgrDataWidth], ecx
2757
        mov     [BgrDataHeight], edx
2758
;    mov   [bgrchanged],1
2759
 
2760
        pushad
2761
; return memory for old background
2762
        mov     eax, [img_background]
2763
        cmp     eax, static_background_data
2764
        jz      @f
2765
        stdcall kernel_free, eax
2515 mario79 2766
;--------------------------------------
2767
align 4
2288 clevermous 2768
@@:
2769
; calculate RAW size
2770
        xor     eax, eax
2771
        inc     eax
2772
        cmp     [BgrDataWidth], eax
2773
        jae     @f
2774
        mov     [BgrDataWidth], eax
2515 mario79 2775
;--------------------------------------
2776
align 4
2288 clevermous 2777
@@:
2778
        cmp     [BgrDataHeight], eax
2779
        jae     @f
2780
        mov     [BgrDataHeight], eax
2515 mario79 2781
;--------------------------------------
2782
align 4
2288 clevermous 2783
@@:
2784
        mov     eax, [BgrDataWidth]
2785
        imul    eax, [BgrDataHeight]
2786
        lea     eax, [eax*3]
2464 mario79 2787
; it is reserved with aligned to the boundary of 4 KB pages,
2788
; otherwise there may be exceptions a page fault for vesa20_drawbackground_tiled
2789
; because the 32 bit read is used for  high performance: "mov eax,[esi]"
2790
        shr     eax, 12
2791
        inc     eax
2792
        shl     eax, 12
2288 clevermous 2793
        mov     [mem_BACKGROUND], eax
2794
; get memory for new background
2795
        stdcall kernel_alloc, eax
2796
        test    eax, eax
2797
        jz      .memfailed
2798
        mov     [img_background], eax
2799
        jmp     .exit
2515 mario79 2800
;--------------------------------------
2801
align 4
2288 clevermous 2802
.memfailed:
2803
; revert to static monotone data
2804
        mov     [img_background], static_background_data
2805
        xor     eax, eax
2806
        inc     eax
2807
        mov     [BgrDataWidth], eax
2808
        mov     [BgrDataHeight], eax
2809
        mov     [mem_BACKGROUND], 4
2515 mario79 2810
;--------------------------------------
2811
align 4
2288 clevermous 2812
.exit:
2813
        popad
2814
        mov     [bgrlock], 0
2515 mario79 2815
;--------------------------------------
2816
align 4
2817
sbgrr:
2288 clevermous 2818
        ret
2515 mario79 2819
;------------------------------------------------------------------------------
2820
align 4
2288 clevermous 2821
nosb1:
2822
        cmp     ebx, 2                     ; SET PIXEL
2823
        jnz     nosb2
2824
 
2825
        mov     eax, [img_background]
2826
        test    ecx, ecx
2827
        jz      @f
2828
        cmp     eax, static_background_data
2829
        jz      .ret
2515 mario79 2830
;--------------------------------------
2831
align 4
2288 clevermous 2832
@@:
2833
        mov     ebx, [mem_BACKGROUND]
2834
        add     ebx, 4095
2835
        and     ebx, -4096
2836
        sub     ebx, 4
2837
        cmp     ecx, ebx
2838
        ja      .ret
2839
 
2840
        mov     ebx, [eax+ecx]
2841
        and     ebx, 0xFF000000;255*256*256*256
2842
        and     edx, 0x00FFFFFF;255*256*256+255*256+255
2843
        add     edx, ebx
2844
        mov     [eax+ecx], edx
2515 mario79 2845
;--------------------------------------
2846
align 4
2288 clevermous 2847
.ret:
2848
        ret
2515 mario79 2849
;------------------------------------------------------------------------------
2850
align 4
2288 clevermous 2851
nosb2:
2852
        cmp     ebx, 3                     ; DRAW BACKGROUND
2853
        jnz     nosb3
2515 mario79 2854
;--------------------------------------
2855
align 4
2288 clevermous 2856
draw_background_temp:
2857
        mov     [background_defined], 1
2858
        call    force_redraw_background
2515 mario79 2859
;--------------------------------------
2860
align 4
2861
nosb31:
2288 clevermous 2862
        ret
2515 mario79 2863
;------------------------------------------------------------------------------
2864
align 4
2865
nosb3:
2288 clevermous 2866
        cmp     ebx, 4                     ; TILED / STRETCHED
2867
        jnz     nosb4
2868
        cmp     ecx, [BgrDrawMode]
2869
        je      nosb41
2870
        mov     [BgrDrawMode], ecx
2515 mario79 2871
;--------------------------------------
2872
align 4
2873
nosb41:
2288 clevermous 2874
        ret
2515 mario79 2875
;------------------------------------------------------------------------------
2876
align 4
2877
nosb4:
2288 clevermous 2878
        cmp     ebx, 5                     ; BLOCK MOVE TO BGR
2879
        jnz     nosb5
2880
        cmp     [img_background], static_background_data
2881
        jnz     @f
2882
        test    edx, edx
2883
        jnz     .fin
2884
        cmp     esi, 4
2885
        ja      .fin
2515 mario79 2886
;--------------------------------------
2887
align 4
2888
@@:
2288 clevermous 2889
  ; bughere
2890
        mov     eax, ecx
2891
        mov     ebx, edx
2892
        add     ebx, [img_background];IMG_BACKGROUND
2893
        mov     ecx, esi
2894
        call    memmove
2515 mario79 2895
;--------------------------------------
2896
align 4
2897
.fin:
2288 clevermous 2898
        ret
2515 mario79 2899
;------------------------------------------------------------------------------
2900
align 4
2901
nosb5:
2288 clevermous 2902
        cmp     ebx, 6
2903
        jnz     nosb6
2515 mario79 2904
;--------------------------------------
2905
align 4
2288 clevermous 2906
;;Maxis use atomic bts for mutex 4.4.2009
2907
@@:
2908
        bts     dword [bgrlock], 0
2909
        jnc     @f
2910
        call    change_task
2911
        jmp     @b
2515 mario79 2912
;--------------------------------------
2913
align 4
2288 clevermous 2914
@@:
2915
        mov     eax, [CURRENT_TASK]
2916
        mov     [bgrlockpid], eax
2917
        cmp     [img_background], static_background_data
2918
        jz      .nomem
2919
        stdcall user_alloc, [mem_BACKGROUND]
2920
        mov     [esp+32], eax
2921
        test    eax, eax
2922
        jz      .nomem
2923
        mov     ebx, eax
2924
        shr     ebx, 12
2925
        or      dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
2926
        mov     esi, [img_background]
2927
        shr     esi, 12
2928
        mov     ecx, [mem_BACKGROUND]
2929
        add     ecx, 0xFFF
2930
        shr     ecx, 12
2515 mario79 2931
;--------------------------------------
2932
align 4
2288 clevermous 2933
.z:
2934
        mov     eax, [page_tabs+ebx*4]
2935
        test    al, 1
2936
        jz      @f
2937
        call    free_page
2515 mario79 2938
;--------------------------------------
2939
align 4
2288 clevermous 2940
@@:
2941
        mov     eax, [page_tabs+esi*4]
5356 serge 2942
        or      al, PG_UWR
2288 clevermous 2943
        mov     [page_tabs+ebx*4], eax
2944
        mov     eax, ebx
2945
        shl     eax, 12
2946
        invlpg  [eax]
2947
        inc     ebx
2948
        inc     esi
2949
        loop    .z
2950
        ret
2515 mario79 2951
;--------------------------------------
2952
align 4
2288 clevermous 2953
.nomem:
2954
        and     [bgrlockpid], 0
2955
        mov     [bgrlock], 0
2515 mario79 2956
;------------------------------------------------------------------------------
2957
align 4
2288 clevermous 2958
nosb6:
2959
        cmp     ebx, 7
2960
        jnz     nosb7
2961
        cmp     [bgrlock], 0
2962
        jz      .err
2963
        mov     eax, [CURRENT_TASK]
2964
        cmp     [bgrlockpid], eax
2965
        jnz     .err
2966
        mov     eax, ecx
2967
        mov     ebx, ecx
2968
        shr     eax, 12
2969
        mov     ecx, [page_tabs+(eax-1)*4]
2970
        test    cl, USED_BLOCK+DONT_FREE_BLOCK
2971
        jz      .err
2972
        jnp     .err
2973
        push    eax
2974
        shr     ecx, 12
2975
        dec     ecx
2515 mario79 2976
;--------------------------------------
2977
align 4
2288 clevermous 2978
@@:
2979
        and     dword [page_tabs+eax*4], 0
2980
        mov     edx, eax
2981
        shl     edx, 12
2982
        push    eax
2983
        invlpg  [edx]
2984
        pop     eax
2985
        inc     eax
2986
        loop    @b
2987
        pop     eax
2988
        and     dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
2989
        stdcall user_free, ebx
2990
        mov     [esp+32], eax
2991
        and     [bgrlockpid], 0
2992
        mov     [bgrlock], 0
2993
        ret
2515 mario79 2994
;--------------------------------------
2995
align 4
2288 clevermous 2996
.err:
2997
        and     dword [esp+32], 0
2998
        ret
2515 mario79 2999
;------------------------------------------------------------------------------
3000
align 4
2288 clevermous 3001
nosb7:
2515 mario79 3002
        cmp     ebx, 8
3003
        jnz     nosb8
2537 mario79 3004
 
3536 clevermous 3005
        mov     ecx, [current_slot]
3006
        xor     eax, eax
3007
        xchg    eax, [ecx+APPDATA.draw_bgr_x]
2515 mario79 3008
        mov     [esp + 32], eax ; eax = [left]*65536 + [right]
3536 clevermous 3009
        xor     eax, eax
3010
        xchg    eax, [ecx+APPDATA.draw_bgr_y]
2515 mario79 3011
        mov     [esp + 20], eax ; ebx = [top]*65536 + [bottom]
2288 clevermous 3012
        ret
2515 mario79 3013
;------------------------------------------------------------------------------
3014
align 4
3015
nosb8:
2547 mario79 3016
        cmp     ebx, 9
3017
        jnz     nosb9
3018
; ecx = [left]*65536 + [right]
3019
; edx = [top]*65536 + [bottom]
5350 serge 3020
        mov     eax, [_display.width]
3021
        mov     ebx, [_display.height]
3022
        dec     eax
3023
        dec     ebx
2547 mario79 3024
; check [right]
3025
        cmp     cx, ax
3026
        ja      .exit
3027
; check [left]
3028
        ror     ecx, 16
3029
        cmp     cx, ax
3030
        ja      .exit
3031
; check [bottom]
3032
        cmp     dx, bx
3033
        ja      .exit
3034
; check [top]
3035
        ror     edx, 16
3036
        cmp     dx, bx
3037
        ja      .exit
3038
 
3039
        movzx   eax, cx  ; [left]
3040
        movzx   ebx, dx  ; [top]
3041
 
3042
        shr     ecx, 16 ; [right]
3043
        shr     edx, 16 ; [bottom]
3044
 
3045
        mov     [background_defined], 1
3046
 
3047
        mov     [draw_data+32 + RECT.left], eax
3048
        mov     [draw_data+32 + RECT.top], ebx
3049
 
3050
        mov     [draw_data+32 + RECT.right], ecx
3051
        mov     [draw_data+32 + RECT.bottom], edx
3052
 
3053
        inc     byte[REDRAW_BACKGROUND]
3534 clevermous 3054
        call    wakeup_osloop
2547 mario79 3055
;--------------------------------------
3056
align 4
3057
.exit:
2515 mario79 3058
        ret
3059
;------------------------------------------------------------------------------
3060
align 4
2547 mario79 3061
nosb9:
3062
        ret
3063
;------------------------------------------------------------------------------
3064
align 4
2537 mario79 3065
uglobal
3066
  BG_Rect_X_left_right  dd   0x0
3067
  BG_Rect_Y_top_bottom  dd   0x0
3068
endg
3069
;------------------------------------------------------------------------------
3070
align 4
2288 clevermous 3071
force_redraw_background:
3072
        and     [draw_data+32 + RECT.left], 0
3073
        and     [draw_data+32 + RECT.top], 0
3074
        push    eax ebx
5350 serge 3075
        mov     eax, [_display.width]
3076
        mov     ebx, [_display.height]
3077
        dec     eax
3078
        dec     ebx
2288 clevermous 3079
        mov     [draw_data+32 + RECT.right], eax
3080
        mov     [draw_data+32 + RECT.bottom], ebx
3081
        pop     ebx eax
3082
        inc     byte[REDRAW_BACKGROUND]
3534 clevermous 3083
        call    wakeup_osloop
2288 clevermous 3084
        ret
2515 mario79 3085
;------------------------------------------------------------------------------
2288 clevermous 3086
align 4
3087
sys_getbackground:
3088
;    cmp   eax,1                                  ; SIZE
3089
        dec     ebx
3090
        jnz     nogb1
3091
        mov     eax, [BgrDataWidth]
3092
        shl     eax, 16
3588 Serge 3093
        mov     ax, word [BgrDataHeight]
2288 clevermous 3094
        mov     [esp+32], eax
3095
        ret
2515 mario79 3096
;------------------------------------------------------------------------------
3097
align 4
2288 clevermous 3098
nogb1:
3099
;    cmp   eax,2                                  ; PIXEL
3100
        dec     ebx
3101
        jnz     nogb2
3102
 
3103
        mov     eax, [img_background]
3104
        test    ecx, ecx
3105
        jz      @f
3106
        cmp     eax, static_background_data
3107
        jz      .ret
2515 mario79 3108
;--------------------------------------
3109
align 4
2288 clevermous 3110
@@:
3111
        mov     ebx, [mem_BACKGROUND]
3112
        add     ebx, 4095
3113
        and     ebx, -4096
3114
        sub     ebx, 4
3115
        cmp     ecx, ebx
3116
        ja      .ret
3117
 
3118
        mov     eax, [ecx+eax]
3119
 
3120
        and     eax, 0xFFFFFF
3121
        mov     [esp+32], eax
2515 mario79 3122
;--------------------------------------
3123
align 4
2288 clevermous 3124
.ret:
3125
        ret
2515 mario79 3126
;------------------------------------------------------------------------------
3127
align 4
3128
nogb2:
2288 clevermous 3129
 
3130
;    cmp   eax,4                                  ; TILED / STRETCHED
3131
        dec     ebx
3132
        dec     ebx
3133
        jnz     nogb4
3134
        mov     eax, [BgrDrawMode]
2515 mario79 3135
;--------------------------------------
3136
align 4
3137
nogb4:
2288 clevermous 3138
        mov     [esp+32], eax
3139
        ret
2515 mario79 3140
;------------------------------------------------------------------------------
2288 clevermous 3141
align 4
3142
sys_getkey:
3143
        mov     [esp + 32], dword 1
3144
        ; test main buffer
3145
        mov     ebx, [CURRENT_TASK]                          ; TOP OF WINDOW STACK
3146
        movzx   ecx, word [WIN_STACK + ebx * 2]
3147
        mov     edx, [TASK_COUNT]
3148
        cmp     ecx, edx
3149
        jne     .finish
3150
        cmp     [KEY_COUNT], byte 0
3151
        je      .finish
4588 mario79 3152
        movzx   ax, byte [KEY_BUFF + 120 + 2]
2288 clevermous 3153
        shl     eax, 8
4588 mario79 3154
        mov     al, byte [KEY_BUFF]
3155
        shl     eax, 8
2288 clevermous 3156
        push    eax
3157
        dec     byte [KEY_COUNT]
3158
        and     byte [KEY_COUNT], 127
3159
        movzx   ecx, byte [KEY_COUNT]
3160
        add     ecx, 2
3161
        mov     eax, KEY_BUFF + 1
3162
        mov     ebx, KEY_BUFF
3163
        call    memmove
4588 mario79 3164
        add     eax, 120 + 2
3165
        add     ebx, 120 + 2
3166
        call    memmove
2288 clevermous 3167
        pop     eax
2515 mario79 3168
;--------------------------------------
3169
align 4
2288 clevermous 3170
.ret_eax:
3171
        mov     [esp + 32], eax
3172
        ret
2515 mario79 3173
;--------------------------------------
3174
align 4
2288 clevermous 3175
.finish:
3176
; test hotkeys buffer
3177
        mov     ecx, hotkey_buffer
2515 mario79 3178
;--------------------------------------
3179
align 4
2288 clevermous 3180
@@:
3181
        cmp     [ecx], ebx
3182
        jz      .found
3183
        add     ecx, 8
3184
        cmp     ecx, hotkey_buffer + 120 * 8
3185
        jb      @b
3186
        ret
2515 mario79 3187
;--------------------------------------
3188
align 4
2288 clevermous 3189
.found:
3190
        mov     ax, [ecx + 6]
3191
        shl     eax, 16
3192
        mov     ah, [ecx + 4]
3193
        mov     al, 2
3194
        and     dword [ecx + 4], 0
3195
        and     dword [ecx], 0
3196
        jmp     .ret_eax
2515 mario79 3197
;------------------------------------------------------------------------------
2288 clevermous 3198
align 4
3199
sys_getbutton:
3200
        mov     ebx, [CURRENT_TASK]                         ; TOP OF WINDOW STACK
3201
        mov     [esp + 32], dword 1
3202
        movzx   ecx, word [WIN_STACK + ebx * 2]
3203
        mov     edx, [TASK_COUNT] ; less than 256 processes
3204
        cmp     ecx, edx
3205
        jne     .exit
3206
        movzx   eax, byte [BTN_COUNT]
3207
        test    eax, eax
3208
        jz      .exit
3209
        mov     eax, [BTN_BUFF]
3210
        and     al, 0xFE                                    ; delete left button bit
3211
        mov     [BTN_COUNT], byte 0
3212
        mov     [esp + 32], eax
2515 mario79 3213
;--------------------------------------
3214
align 4
2288 clevermous 3215
.exit:
3216
        ret
2515 mario79 3217
;------------------------------------------------------------------------------
2288 clevermous 3218
align 4
3219
sys_cpuusage:
3220
 
3221
;  RETURN:
3222
;
3223
;  +00 dword     process cpu usage
3224
;  +04  word     position in windowing stack
3225
;  +06  word     windowing stack value at current position (cpu nro)
3226
;  +10 12 bytes  name
3227
;  +22 dword     start in mem
3228
;  +26 dword     used mem
3229
;  +30 dword     PID , process idenfification number
3230
;
3231
 
3232
        cmp     ecx, -1 ; who am I ?
3233
        jne     .no_who_am_i
3234
        mov     ecx, [CURRENT_TASK]
3235
  .no_who_am_i:
3236
        cmp     ecx, max_processes
3237
        ja      .nofillbuf
3238
 
3239
; +4: word: position of the window of thread in the window stack
3240
        mov     ax, [WIN_STACK + ecx * 2]
3241
        mov     [ebx+4], ax
3242
; +6: word: number of the thread slot, which window has in the window stack
3243
;           position ecx (has no relation to the specific thread)
3244
        mov     ax, [WIN_POS + ecx * 2]
3245
        mov     [ebx+6], ax
3246
 
3247
        shl     ecx, 5
3248
 
3249
; +0: dword: memory usage
3250
        mov     eax, [ecx+CURRENT_TASK+TASKDATA.cpu_usage]
3251
        mov     [ebx], eax
3252
; +10: 11 bytes: name of the process
3253
        push    ecx
3254
        lea     eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
3255
        add     ebx, 10
3256
        mov     ecx, 11
3257
        call    memmove
3258
        pop     ecx
3259
 
3260
; +22: address of the process in memory
3261
; +26: size of used memory - 1
3262
        push    edi
3263
        lea     edi, [ebx+12]
3264
        xor     eax, eax
3265
        mov     edx, 0x100000*16
3266
        cmp     ecx, 1 shl 5
3267
        je      .os_mem
5130 serge 3268
        mov     edx, [SLOT_BASE+ecx*8+APPDATA.process]
3269
        mov     edx, [edx+PROC.mem_used]
2288 clevermous 3270
        mov     eax, std_application_base_address
3271
.os_mem:
3272
        stosd
3273
        lea     eax, [edx-1]
3274
        stosd
3275
 
3276
; +30: PID/TID
3277
        mov     eax, [ecx+CURRENT_TASK+TASKDATA.pid]
3278
        stosd
3279
 
3280
    ; window position and size
3281
        push    esi
3282
        lea     esi, [ecx + window_data + WDATA.box]
3283
        movsd
3284
        movsd
3285
        movsd
3286
        movsd
3287
 
3288
    ; Process state (+50)
3289
        mov     eax, dword [ecx+CURRENT_TASK+TASKDATA.state]
3290
        stosd
3291
 
3292
    ; Window client area box
3293
        lea     esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
3294
        movsd
3295
        movsd
3296
        movsd
3297
        movsd
3298
 
3299
    ; Window state
3300
        mov     al, [ecx+window_data+WDATA.fl_wstate]
3301
        stosb
3302
 
3303
    ; Event mask (+71)
3304
        mov     EAX, dword [ECX+CURRENT_TASK+TASKDATA.event_mask]
3305
        stosd
4286 Serge 3306
 
4262 0CodErr 3307
    ; Keyboard mode (+75)
3308
        mov     al, byte [ecx*8 + SLOT_BASE + APPDATA.keyboard_mode]
4286 Serge 3309
        stosb
2288 clevermous 3310
 
3311
        pop     esi
3312
        pop     edi
3313
 
3314
.nofillbuf:
3315
    ; return number of processes
3316
 
3317
        mov     eax, [TASK_COUNT]
3318
        mov     [esp+32], eax
3319
        ret
3320
 
3321
align 4
3322
sys_clock:
3323
        cli
3324
  ; Mikhail Lisovin  xx Jan 2005
3325
  @@:
3326
        mov     al, 10
3327
        out     0x70, al
3328
        in      al, 0x71
3329
        test    al, al
3330
        jns     @f
3331
        mov     esi, 1
3332
        call    delay_ms
3333
        jmp     @b
3334
  @@:
3335
  ; end Lisovin's fix
3336
 
3337
        xor     al, al        ; seconds
3338
        out     0x70, al
3339
        in      al, 0x71
3340
        movzx   ecx, al
3341
        mov     al, 02        ; minutes
3342
        shl     ecx, 16
3343
        out     0x70, al
3344
        in      al, 0x71
3345
        movzx   edx, al
3346
        mov     al, 04        ; hours
3347
        shl     edx, 8
3348
        out     0x70, al
3349
        in      al, 0x71
3350
        add     ecx, edx
3351
        movzx   edx, al
3352
        add     ecx, edx
3353
        sti
3354
        mov     [esp + 32], ecx
3355
        ret
3356
 
3357
 
3358
align 4
3359
 
3360
sys_date:
3361
 
3362
        cli
3363
  @@:
3364
        mov     al, 10
3365
        out     0x70, al
3366
        in      al, 0x71
3367
        test    al, al
3368
        jns     @f
3369
        mov     esi, 1
3370
        call    delay_ms
3371
        jmp     @b
3372
  @@:
3373
 
3374
        mov     ch, 0
3375
        mov     al, 7           ; date
3376
        out     0x70, al
3377
        in      al, 0x71
3378
        mov     cl, al
3379
        mov     al, 8           ; month
3380
        shl     ecx, 16
3381
        out     0x70, al
3382
        in      al, 0x71
3383
        mov     ch, al
3384
        mov     al, 9           ; year
3385
        out     0x70, al
3386
        in      al, 0x71
3387
        mov     cl, al
3388
        sti
3389
        mov     [esp+32], ecx
3390
        ret
3391
 
3392
 
3393
; redraw status
3394
 
3395
sys_redrawstat:
3396
        cmp     ebx, 1
3397
        jne     no_widgets_away
3398
        ; buttons away
3399
        mov     ecx, [CURRENT_TASK]
3400
  sys_newba2:
3401
        mov     edi, [BTN_ADDR]
3402
        cmp     [edi], dword 0  ; empty button list ?
3403
        je      end_of_buttons_away
3404
        movzx   ebx, word [edi]
3405
        inc     ebx
3406
        mov     eax, edi
3407
  sys_newba:
3408
        dec     ebx
3409
        jz      end_of_buttons_away
3410
 
3411
        add     eax, 0x10
3412
        cmp     cx, [eax]
3413
        jnz     sys_newba
3414
 
3415
        push    eax ebx ecx
3416
        mov     ecx, ebx
3417
        inc     ecx
3418
        shl     ecx, 4
3419
        mov     ebx, eax
3420
        add     eax, 0x10
3421
        call    memmove
3422
        dec     dword [edi]
3423
        pop     ecx ebx eax
3424
 
3425
        jmp     sys_newba2
3426
 
3427
  end_of_buttons_away:
3428
 
3429
        ret
3430
 
3431
  no_widgets_away:
3432
 
3433
        cmp     ebx, 2
3434
        jnz     srl1
3435
 
3436
        mov     edx, [TASK_BASE]      ; return whole screen draw area for this app
3437
        add     edx, draw_data - CURRENT_TASK
3438
        mov     [edx + RECT.left], 0
3439
        mov     [edx + RECT.top], 0
5350 serge 3440
        mov     eax, [_display.width]
3441
        dec     eax
2288 clevermous 3442
        mov     [edx + RECT.right], eax
5350 serge 3443
        mov     eax, [_display.height]
3444
        dec     eax
2288 clevermous 3445
        mov     [edx + RECT.bottom], eax
3446
 
3447
  srl1:
3448
        ret
3449
 
3450
;ok - 100% work
3451
;nt - not tested
3452
;---------------------------------------------------------------------------------------------
3453
;eax
3454
;0 - task switch counter. Ret switch counter in eax. Block. ok.
3455
;1 - change task. Ret nothing. Block. ok.
3456
;2 - performance control
3457
; ebx
3458
; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
3459
; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
3460
; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
3461
; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
3462
; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
3463
;eax
3464
;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
3465
;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
3466
;---------------------------------------------------------------------------------------------
3467
iglobal
3468
align 4
3469
sheduler:
3470
        dd      sys_sheduler.00
3471
        dd      change_task
3472
        dd      sys_sheduler.02
3473
        dd      sys_sheduler.03
3474
        dd      sys_sheduler.04
3475
endg
3476
sys_sheduler:
3477
;rewritten by   29.12.2009
3478
        jmp     dword [sheduler+ebx*4]
3479
;.shed_counter:
3480
.00:
3481
        mov     eax, [context_counter]
3482
        mov     [esp+32], eax
3483
        ret
3484
 
3485
.02:
3486
;.perf_control:
3487
        inc     ebx                     ;before ebx=2, ebx=3
3488
        cmp     ebx, ecx                ;if ecx=3, ebx=3
3489
        jz      cache_disable
3490
 
3491
        dec     ebx                     ;ebx=2
3492
        cmp     ebx, ecx                ;
3493
        jz      cache_enable            ;if ecx=2 and ebx=2
3494
 
3495
        dec     ebx                     ;ebx=1
3496
        cmp     ebx, ecx
3497
        jz      is_cache_enabled        ;if ecx=1 and ebx=1
3498
 
3499
        dec     ebx
3500
        test    ebx, ecx                ;ebx=0 and ecx=0
3501
        jz      modify_pce              ;if ecx=0
3502
 
3503
        ret
3504
 
3505
.03:
3506
;.rdmsr_instr:
3507
;now counter in ecx
3508
;(edx:eax) esi:edi => edx:esi
3509
        mov     eax, esi
3510
        mov     ecx, edx
3511
        rdmsr
3512
        mov     [esp+32], eax
3513
        mov     [esp+20], edx           ;ret in ebx?
3514
        ret
3515
 
3516
.04:
3517
;.wrmsr_instr:
3518
;now counter in ecx
3519
;(edx:eax) esi:edi => edx:esi
3520
        ; Fast Call MSR can't be destroy
3539 clevermous 3521
        ; Но MSR_AMD_EFER можно изменять, т.к. в этом регистре лиш
3522
        ; включаются/выключаются расширенные возможности
2288 clevermous 3523
        cmp     edx, MSR_SYSENTER_CS
3524
        je      @f
3525
        cmp     edx, MSR_SYSENTER_ESP
3526
        je      @f
3527
        cmp     edx, MSR_SYSENTER_EIP
3528
        je      @f
3529
        cmp     edx, MSR_AMD_STAR
3530
        je      @f
3531
 
3532
        mov     eax, esi
3533
        mov     ecx, edx
3534
        wrmsr
3535
        ; mov   [esp + 32], eax
3536
        ; mov   [esp + 20], edx ;ret in ebx?
3537
@@:
3538
        ret
3539
 
3540
cache_disable:
3541
        mov     eax, cr0
3542
        or      eax, 01100000000000000000000000000000b
3543
        mov     cr0, eax
3544
        wbinvd  ;set MESI
3545
        ret
3546
 
3547
cache_enable:
3548
        mov     eax, cr0
3549
        and     eax, 10011111111111111111111111111111b
3550
        mov     cr0, eax
3551
        ret
3552
 
3553
is_cache_enabled:
3554
        mov     eax, cr0
3555
        mov     ebx, eax
3556
        and     eax, 01100000000000000000000000000000b
3557
        jz      cache_disabled
3558
        mov     [esp+32], ebx
3559
cache_disabled:
3560
        mov     dword [esp+32], eax;0
3561
        ret
3562
 
3563
modify_pce:
3564
        mov     eax, cr4
3565
;       mov ebx,0
3566
;       or  bx,100000000b ;pce
3567
;       xor eax,ebx ;invert pce
3568
        bts     eax, 8;pce=cr4[8]
3569
        mov     cr4, eax
3570
        mov     [esp+32], eax
3571
        ret
3572
;---------------------------------------------------------------------------------------------
3573
 
3574
 
3575
iglobal
3576
  cpustring db 'CPU',0
3577
endg
3578
 
3579
uglobal
3580
background_defined    db    0    ; diamond, 11.04.2006
3581
endg
2513 mario79 3582
;-----------------------------------------------------------------------------
2288 clevermous 3583
align 4
3584
checkmisc:
3585
        cmp     [ctrl_alt_del], 1
3586
        jne     nocpustart
3587
 
3588
        mov     ebp, cpustring
3589
        call    fs_execute_from_sysdir
3590
 
3591
        mov     [ctrl_alt_del], 0
2513 mario79 3592
;--------------------------------------
3593
align 4
2288 clevermous 3594
nocpustart:
3595
        cmp     [mouse_active], 1
3596
        jne     mouse_not_active
3597
        mov     [mouse_active], 0
2411 Serge 3598
 
2288 clevermous 3599
        xor     edi, edi
2411 Serge 3600
        mov     ebx, CURRENT_TASK
3601
 
2288 clevermous 3602
        mov     ecx, [TASK_COUNT]
2408 Serge 3603
        movzx   eax, word [WIN_POS + ecx*2]     ; active window
3604
        shl     eax, 8
2414 Serge 3605
        push    eax
2408 Serge 3606
 
2414 Serge 3607
        movzx   eax, word [MOUSE_X]
3608
        movzx   edx, word [MOUSE_Y]
2513 mario79 3609
;--------------------------------------
2408 Serge 3610
align 4
3611
.set_mouse_event:
2288 clevermous 3612
        add     edi, 256
2411 Serge 3613
        add     ebx, 32
3614
        test    [ebx+TASKDATA.event_mask], 0x80000000
2414 Serge 3615
        jz      .pos_filter
3616
 
3617
        cmp     edi, [esp]                      ; skip if filtration active
3618
        jne     .skip
2513 mario79 3619
;--------------------------------------
3620
align 4
2414 Serge 3621
.pos_filter:
3622
        test    [ebx+TASKDATA.event_mask], 0x40000000
2411 Serge 3623
        jz      .set
2288 clevermous 3624
 
2414 Serge 3625
        mov     esi, [ebx-twdw+WDATA.box.left]
3626
        cmp     eax, esi
3627
        jb      .skip
3628
        add     esi, [ebx-twdw+WDATA.box.width]
3629
        cmp     eax, esi
3630
        ja      .skip
3631
 
3632
        mov     esi, [ebx-twdw+WDATA.box.top]
3633
        cmp     edx, esi
3634
        jb      .skip
3635
        add     esi, [ebx-twdw+WDATA.box.height]
3636
        cmp     edx, esi
3637
        ja      .skip
2513 mario79 3638
;--------------------------------------
3639
align 4
2411 Serge 3640
.set:
2513 mario79 3641
        or      [edi+SLOT_BASE+APPDATA.event_mask], 100000b  ; set event 6
3642
;--------------------------------------
3643
align 4
2411 Serge 3644
.skip:
2408 Serge 3645
        loop    .set_mouse_event
3646
 
2414 Serge 3647
        pop     eax
2513 mario79 3648
;--------------------------------------
3649
align 4
2288 clevermous 3650
mouse_not_active:
2580 mario79 3651
        cmp     byte[REDRAW_BACKGROUND], 0         ; background update ?
2288 clevermous 3652
        jz      nobackgr
2524 mario79 3653
 
2288 clevermous 3654
        cmp     [background_defined], 0
3655
        jz      nobackgr
2513 mario79 3656
;--------------------------------------
3657
align 4
3536 clevermous 3658
backgr:
2537 mario79 3659
        mov     eax, [draw_data+32 + RECT.left]
3660
        shl     eax, 16
3661
        add     eax, [draw_data+32 + RECT.right]
3662
        mov     [BG_Rect_X_left_right], eax ; [left]*65536 + [right]
3663
 
3664
        mov     eax, [draw_data+32 + RECT.top]
3665
        shl     eax, 16
3666
        add     eax, [draw_data+32 + RECT.bottom]
3667
        mov     [BG_Rect_Y_top_bottom], eax ; [top]*65536 + [bottom]
3668
 
2288 clevermous 3669
        call    drawbackground
2580 mario79 3670
;        DEBUGF  1, "K : drawbackground\n"
2620 mario79 3671
;        DEBUGF  1, "K : backg x %x\n",[BG_Rect_X_left_right]
3672
;        DEBUGF  1, "K : backg y %x\n",[BG_Rect_Y_top_bottom]
2513 mario79 3673
;--------- set event 5 start ----------
3674
        push    ecx edi
3675
        xor     edi, edi
3676
        mov     ecx, [TASK_COUNT]
3677
;--------------------------------------
3678
align 4
3679
set_bgr_event:
3680
        add     edi, 256
3536 clevermous 3681
        mov     eax, [BG_Rect_X_left_right]
3682
        mov     edx, [BG_Rect_Y_top_bottom]
3683
        cmp     [edi+SLOT_BASE+APPDATA.draw_bgr_x], 0
3684
        jz      .set
3685
.join:
3611 clevermous 3686
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
3687
        jae     @f
3688
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
3689
@@:
3690
        shr     eax, 16
3536 clevermous 3691
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
3692
        jbe     @f
3693
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
3694
@@:
3611 clevermous 3695
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3536 clevermous 3696
        jae     @f
3611 clevermous 3697
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3536 clevermous 3698
@@:
3611 clevermous 3699
        shr     edx, 16
3536 clevermous 3700
        cmp     word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
3701
        jbe     @f
3702
        mov     word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
3703
@@:
3704
        jmp     .common
3705
.set:
3706
        mov     [edi+SLOT_BASE+APPDATA.draw_bgr_x], eax
3707
        mov     [edi+SLOT_BASE+APPDATA.draw_bgr_y], edx
3708
.common:
2513 mario79 3709
        or      [edi+SLOT_BASE+APPDATA.event_mask], 10000b  ; set event 5
3710
        loop    set_bgr_event
3711
        pop     edi ecx
3712
;--------- set event 5 stop -----------
2580 mario79 3713
        dec     byte[REDRAW_BACKGROUND]    ; got new update request?
3536 clevermous 3714
        jnz     backgr
2513 mario79 3715
 
3536 clevermous 3716
        xor     eax, eax
2288 clevermous 3717
        mov     [draw_data+32 + RECT.left], eax
3718
        mov     [draw_data+32 + RECT.top], eax
3719
        mov     [draw_data+32 + RECT.right], eax
3720
        mov     [draw_data+32 + RECT.bottom], eax
2513 mario79 3721
;--------------------------------------
3722
align 4
2288 clevermous 3723
nobackgr:
2513 mario79 3724
; system shutdown request
2288 clevermous 3725
        cmp     [SYS_SHUTDOWN], byte 0
3726
        je      noshutdown
3727
 
3728
        mov     edx, [shutdown_processes]
3729
 
3730
        cmp     [SYS_SHUTDOWN], dl
3325 clevermous 3731
        jne     noshutdown
2288 clevermous 3732
 
3733
        lea     ecx, [edx-1]
3734
        mov     edx, OS_BASE+0x3040
3325 clevermous 3735
        jecxz   no_mark_system_shutdown
2513 mario79 3736
;--------------------------------------
3737
align 4
2288 clevermous 3738
markz:
3296 clevermous 3739
        push    ecx edx
3325 clevermous 3740
        cmp     [edx+TASKDATA.state], 9
3741
        jz      .nokill
3742
        lea     edx, [(edx-(CURRENT_TASK and 1FFFFFFFh))*8+SLOT_BASE]
5130 serge 3743
        cmp     [edx+APPDATA.process], sys_proc
3325 clevermous 3744
        jz      .nokill
3296 clevermous 3745
        call    request_terminate
3325 clevermous 3746
        jmp     .common
3747
.nokill:
3748
        dec     byte [SYS_SHUTDOWN]
3749
        xor     eax, eax
3750
.common:
3296 clevermous 3751
        pop     edx ecx
3752
        test    eax, eax
3753
        jz      @f
2288 clevermous 3754
        mov     [edx+TASKDATA.state], byte 3
3296 clevermous 3755
@@:
2288 clevermous 3756
        add     edx, 0x20
3757
        loop    markz
3534 clevermous 3758
        call    wakeup_osloop
2513 mario79 3759
;--------------------------------------
3760
align 4
2288 clevermous 3761
@@:
2513 mario79 3762
no_mark_system_shutdown:
2288 clevermous 3763
        dec     byte [SYS_SHUTDOWN]
3764
        je      system_shutdown
2513 mario79 3765
;--------------------------------------
3766
align 4
2288 clevermous 3767
noshutdown:
3768
        mov     eax, [TASK_COUNT]           ; termination
3769
        mov     ebx, TASK_DATA+TASKDATA.state
3770
        mov     esi, 1
2513 mario79 3771
;--------------------------------------
3772
align 4
2288 clevermous 3773
newct:
3774
        mov     cl, [ebx]
3775
        cmp     cl, byte 3
3325 clevermous 3776
        jz      .terminate
2513 mario79 3777
 
2288 clevermous 3778
        cmp     cl, byte 4
3325 clevermous 3779
        jnz     .noterminate
3780
.terminate:
3781
        pushad
3493 mario79 3782
        mov     ecx, eax
3783
        shl     ecx, 8
3784
        add     ecx, SLOT_BASE
3785
        call    restore_default_cursor_before_killing
3786
        popad
3787
 
3788
        pushad
3325 clevermous 3789
        call    terminate
3790
        popad
3791
        cmp     byte [SYS_SHUTDOWN], 0
3792
        jz      .noterminate
3793
        dec     byte [SYS_SHUTDOWN]
3794
        je      system_shutdown
2288 clevermous 3795
 
3325 clevermous 3796
.noterminate:
2288 clevermous 3797
        add     ebx, 0x20
3798
        inc     esi
3799
        dec     eax
3800
        jnz     newct
3801
        ret
2513 mario79 3802
;-----------------------------------------------------------------------------
3803
align 4
2288 clevermous 3804
redrawscreen:
3805
; eax , if process window_data base is eax, do not set flag/limits
3806
 
3807
        pushad
3808
        push    eax
3809
 
3810
;;;         mov   ebx,2
3811
;;;         call  delay_hs
3812
 
3813
         ;mov   ecx,0               ; redraw flags for apps
3814
        xor     ecx, ecx
2513 mario79 3815
;--------------------------------------
3816
align 4
3817
newdw2:
2288 clevermous 3818
        inc     ecx
3819
        push    ecx
3820
 
3821
        mov     eax, ecx
3822
        shl     eax, 5
3823
        add     eax, window_data
3824
 
3825
        cmp     eax, [esp+4]
3826
        je      not_this_task
3827
                                   ; check if window in redraw area
3828
        mov     edi, eax
3829
 
3830
        cmp     ecx, 1             ; limit for background
3831
        jz      bgli
3832
 
3833
        mov     eax, [edi + WDATA.box.left]
3834
        mov     ebx, [edi + WDATA.box.top]
3835
 
3836
        mov     ecx, [draw_limits.bottom] ; ecx = area y end     ebx = window y start
3837
        cmp     ecx, ebx
3838
        jb      ricino
3839
 
3840
        mov     ecx, [draw_limits.right] ; ecx = area x end     eax = window x start
3841
        cmp     ecx, eax
3842
        jb      ricino
3843
 
3844
        mov     eax, [edi + WDATA.box.left]
3845
        mov     ebx, [edi + WDATA.box.top]
3846
        mov     ecx, [edi + WDATA.box.width]
3847
        mov     edx, [edi + WDATA.box.height]
3848
        add     ecx, eax
3849
        add     edx, ebx
3850
 
3851
        mov     eax, [draw_limits.top]  ; eax = area y start     edx = window y end
3852
        cmp     edx, eax
3853
        jb      ricino
3854
 
3855
        mov     eax, [draw_limits.left]  ; eax = area x start     ecx = window x end
3856
        cmp     ecx, eax
3857
        jb      ricino
2513 mario79 3858
;--------------------------------------
3859
align 4
3860
bgli:
2288 clevermous 3861
        cmp     dword[esp], 1
3862
        jnz     .az
2513 mario79 3863
 
2288 clevermous 3864
        cmp     byte[REDRAW_BACKGROUND], 0
3865
        jz      .az
2513 mario79 3866
 
2288 clevermous 3867
        mov     dl, 0
3868
        lea     eax, [edi+draw_data-window_data]
3869
        mov     ebx, [draw_limits.left]
3870
        cmp     ebx, [eax+RECT.left]
3871
        jae     @f
2513 mario79 3872
 
2288 clevermous 3873
        mov     [eax+RECT.left], ebx
3874
        mov     dl, 1
2513 mario79 3875
;--------------------------------------
3876
align 4
3877
@@:
2288 clevermous 3878
        mov     ebx, [draw_limits.top]
3879
        cmp     ebx, [eax+RECT.top]
3880
        jae     @f
2513 mario79 3881
 
2288 clevermous 3882
        mov     [eax+RECT.top], ebx
3883
        mov     dl, 1
2513 mario79 3884
;--------------------------------------
3885
align 4
3886
@@:
2288 clevermous 3887
        mov     ebx, [draw_limits.right]
3888
        cmp     ebx, [eax+RECT.right]
3889
        jbe     @f
2513 mario79 3890
 
2288 clevermous 3891
        mov     [eax+RECT.right], ebx
3892
        mov     dl, 1
2513 mario79 3893
;--------------------------------------
3894
align 4
3895
@@:
2288 clevermous 3896
        mov     ebx, [draw_limits.bottom]
3897
        cmp     ebx, [eax+RECT.bottom]
3898
        jbe     @f
2513 mario79 3899
 
2288 clevermous 3900
        mov     [eax+RECT.bottom], ebx
3901
        mov     dl, 1
2513 mario79 3902
;--------------------------------------
3903
align 4
3904
@@:
2288 clevermous 3905
        add     byte[REDRAW_BACKGROUND], dl
3534 clevermous 3906
        call    wakeup_osloop
2288 clevermous 3907
        jmp     newdw8
2513 mario79 3908
;--------------------------------------
3909
align 4
3910
.az:
2288 clevermous 3911
        mov     eax, edi
3912
        add     eax, draw_data-window_data
3913
 
3914
        mov     ebx, [draw_limits.left]        ; set limits
3915
        mov     [eax + RECT.left], ebx
3916
        mov     ebx, [draw_limits.top]
3917
        mov     [eax + RECT.top], ebx
3918
        mov     ebx, [draw_limits.right]
3919
        mov     [eax + RECT.right], ebx
3920
        mov     ebx, [draw_limits.bottom]
3921
        mov     [eax + RECT.bottom], ebx
3922
 
3923
        sub     eax, draw_data-window_data
3924
 
3925
        cmp     dword [esp], 1
3926
        jne     nobgrd
3927
        inc     byte[REDRAW_BACKGROUND]
3534 clevermous 3928
        call    wakeup_osloop
2513 mario79 3929
;--------------------------------------
3930
align 4
3931
newdw8:
3932
nobgrd:
3936 mario79 3933
;--------------------------------------
3934
        push    eax  edi ebp
3935
        mov     edi, [esp+12]
3936
        cmp     edi, 1
3937
        je      .found
2288 clevermous 3938
 
3936 mario79 3939
        mov     eax, [draw_limits.left]
3940
        mov     ebx, [draw_limits.top]
3941
        mov     ecx, [draw_limits.right]
3942
        sub     ecx, eax
3943
        test    ecx, ecx
3944
        jz      .not_found
3945
 
3946
        mov     edx, [draw_limits.bottom]
3947
        sub     edx, ebx
3948
        test    edx, edx
3949
        jz      .not_found
3950
 
3951
; eax - x, ebx - y
3952
; ecx - size x, edx - size y
3953
        add     ebx, edx
3954
;--------------------------------------
3955
align 4
3956
.start_y:
3957
        push    ecx
3958
;--------------------------------------
3959
align 4
3960
.start_x:
3961
        add     eax, ecx
3962
        mov     ebp, [d_width_calc_area + ebx*4]
5351 serge 3963
        add     ebp, [_display.win_map]
3936 mario79 3964
        movzx   ebp, byte[eax+ebp] ; get value for current point
3965
        cmp     ebp, edi
3966
        jne     @f
3967
 
3968
        pop     ecx
3969
        jmp     .found
3970
;--------------------------------------
3971
align 4
3972
@@:
3973
        sub     eax, ecx
3974
 
3975
        dec     ecx
3976
        jnz     .start_x
3977
 
3978
        pop     ecx
3979
        dec     ebx
3980
        dec     edx
3981
        jnz     .start_y
3982
;--------------------------------------
3983
align 4
3984
.not_found:
3985
        pop     ebp edi eax
3986
        jmp     ricino
3987
;--------------------------------------
3988
align 4
3989
.found:
3990
        pop     ebp edi eax
3991
 
2288 clevermous 3992
        mov     [eax + WDATA.fl_redraw], byte 1  ; mark as redraw
2513 mario79 3993
;--------------------------------------
3994
align 4
3995
ricino:
3996
not_this_task:
2288 clevermous 3997
        pop     ecx
3998
 
3999
        cmp     ecx, [TASK_COUNT]
4000
        jle     newdw2
4001
 
4002
        pop     eax
4003
        popad
4004
        ret
2513 mario79 4005
;-----------------------------------------------------------------------------
4006
align 4
2288 clevermous 4007
calculatebackground:   ; background
5351 serge 4008
        mov     edi, [_display.win_map]              ; set os to use all pixels
2288 clevermous 4009
        mov     eax, 0x01010101
5351 serge 4010
        mov     ecx, [_display.win_map_size]
2288 clevermous 4011
        shr     ecx, 2
4012
        rep stosd
4013
 
4014
        mov     byte[REDRAW_BACKGROUND], 0            ; do not draw background!
4015
        ret
2513 mario79 4016
;-----------------------------------------------------------------------------
2288 clevermous 4017
uglobal
4018
  imax    dd 0x0
4019
endg
2513 mario79 4020
;-----------------------------------------------------------------------------
4021
align 4
2288 clevermous 4022
delay_ms:     ; delay in 1/1000 sec
4023
        push    eax
4024
        push    ecx
4025
 
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
2513 mario79 4036
;--------------------------------------
4037
align 4
4038
cnt1:
2288 clevermous 4039
        in      al, 0x61
4040
        and     al, 0x10
4041
        cmp     al, ah
4042
        jz      cnt1
4043
 
4044
        mov     ah, al
4045
        loop    cnt1
4046
 
4047
        pop     ecx
4048
        pop     eax
4049
        ret
2513 mario79 4050
;-----------------------------------------------------------------------------
2411 Serge 4051
align 4
2288 clevermous 4052
set_app_param:
4053
        mov     edi, [TASK_BASE]
2408 Serge 4054
        mov     eax, ebx
4055
        btr     eax, 3                           ; move MOUSE_FILTRATION
4056
        mov     ebx, [current_slot]              ; bit into event_filter
4057
        setc    byte [ebx+APPDATA.event_filter]
4058
        xchg    eax, [edi + TASKDATA.event_mask] ; set new event mask
4059
        mov     [esp+32], eax                    ; return old mask value
2288 clevermous 4060
        ret
2513 mario79 4061
;-----------------------------------------------------------------------------
3303 clevermous 4062
 
4063
; this is for syscall
4064
proc delay_hs_unprotected
4065
        call    unprotect_from_terminate
4066
        call    delay_hs
4067
        call    protect_from_terminate
4068
        ret
4069
endp
4070
 
3597 Serge 4071
if 1
2513 mario79 4072
align 4
2288 clevermous 4073
delay_hs:     ; delay in 1/100 secs
4074
; ebx = delay time
4075
 
3595 Serge 4076
        pushad
4077
        push    ebx
4078
        xor     esi, esi
4079
        mov     ecx, MANUAL_DESTROY
4080
        call    create_event
4081
        test    eax, eax
4082
        jz      .done
2288 clevermous 4083
 
3595 Serge 4084
        mov     ebx, edx
4085
        mov     ecx, [esp]
3597 Serge 4086
        push    edx
3595 Serge 4087
        push    eax
4088
        call    wait_event_timeout
4089
        pop     eax
3597 Serge 4090
        pop     ebx
3595 Serge 4091
        call    destroy_event
4092
.done:
4093
        add     esp, 4
4094
        popad
2288 clevermous 4095
        ret
3596 Serge 4096
 
4097
else
4098
 
4099
align 4
4100
delay_hs:     ; delay in 1/100 secs
4101
; ebx = delay time
4102
        push    ecx
4103
        push    edx
4104
 
4105
        mov     edx, [timer_ticks]
4106
;--------------------------------------
4107
align 4
4108
newtic:
4109
        mov     ecx, [timer_ticks]
4110
        sub     ecx, edx
4111
        cmp     ecx, ebx
4112
        jae     zerodelay
4113
 
4114
        call    change_task
4115
 
4116
        jmp     newtic
4117
;--------------------------------------
4118
align 4
4119
zerodelay:
4120
        pop     edx
4121
        pop     ecx
4122
        ret
4123
end if
4124
 
2513 mario79 4125
;-----------------------------------------------------------------------------
2288 clevermous 4126
align 16        ;very often call this subrutine
4127
memmove:       ; memory move in bytes
4128
; eax = from
4129
; ebx = to
4130
; ecx = no of bytes
4131
        test    ecx, ecx
4132
        jle     .ret
4133
 
4134
        push    esi edi ecx
4135
 
4136
        mov     edi, ebx
4137
        mov     esi, eax
4138
 
4139
        test    ecx, not 11b
4140
        jz      @f
4141
 
4142
        push    ecx
4143
        shr     ecx, 2
4144
        rep movsd
4145
        pop     ecx
4146
        and     ecx, 11b
4147
        jz      .finish
2513 mario79 4148
;--------------------------------------
4149
align 4
4150
@@:
2288 clevermous 4151
        rep movsb
2513 mario79 4152
;--------------------------------------
4153
align 4
4154
.finish:
2288 clevermous 4155
        pop     ecx edi esi
2513 mario79 4156
;--------------------------------------
4157
align 4
4158
.ret:
2288 clevermous 4159
        ret
2513 mario79 4160
;-----------------------------------------------------------------------------
2288 clevermous 4161
;  Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
4162
;align 4
4163
;
4164
;read_floppy_file:
4165
;
4166
;; as input
4167
;;
4168
;; eax pointer to file
4169
;; ebx file lenght
4170
;; ecx start 512 byte block number
4171
;; edx number of blocks to read
4172
;; esi pointer to return/work area (atleast 20 000 bytes)
4173
;;
4174
;;
4175
;; on return
4176
;;
4177
;; eax = 0 command succesful
4178
;;       1 no fd base and/or partition defined
4179
;;       2 yet unsupported FS
4180
;;       3 unknown FS
4181
;;       4 partition not defined at hd
4182
;;       5 file not found
4183
;; ebx = size of file
4184
;
4185
;     mov   edi,[TASK_BASE]
4186
;     add   edi,0x10
4187
;     add   esi,[edi]
4188
;     add   eax,[edi]
4189
;
4190
;     pushad
4191
;     mov  edi,esi
4192
;     add  edi,1024
4193
;     mov  esi,0x100000+19*512
4194
;     sub  ecx,1
4195
;     shl  ecx,9
4196
;     add  esi,ecx
4197
;     shl  edx,9
4198
;     mov  ecx,edx
4199
;     cld
4200
;     rep  movsb
4201
;     popad
4202
;
4203
;     mov   [esp+36],eax
4204
;     mov   [esp+24],ebx
4205
;     ret
4206
 
4207
 
4208
 
4209
align 4
4210
set_io_access_rights:
4211
        push    edi eax
4212
        mov     edi, tss._io_map_0
4213
;     mov   ecx,eax
4214
;     and   ecx,7    ; offset in byte
4215
;     shr   eax,3    ; number of byte
4216
;     add   edi,eax
4217
;     mov   ebx,1
4218
;     shl   ebx,cl
4219
        test    ebp, ebp
4220
;     cmp   ebp,0                ; enable access - ebp = 0
4221
        jnz     .siar1
4222
;     not   ebx
4223
;     and   [edi],byte bl
4224
        btr     [edi], eax
4225
        pop     eax edi
4226
        ret
4227
.siar1:
4228
        bts     [edi], eax
4229
  ;  or    [edi],byte bl        ; disable access - ebp = 1
4230
        pop     eax edi
4231
        ret
4232
;reserve/free group of ports
4233
;  * eax = 46 - number function
4234
;  * ebx = 0 - reserve, 1 - free
4235
;  * ecx = number start arrea of ports
4236
;  * edx = number end arrea of ports (include last number of port)
4237
;Return value:
4238
;  * eax = 0 - succesful
4239
;  * eax = 1 - error
4240
;  * The system has reserve this ports:
4241
;    0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
4242
;destroys eax,ebx, ebp
4243
r_f_port_area:
4244
 
4245
        test    ebx, ebx
4246
        jnz     free_port_area
4247
;     je    r_port_area
4248
;     jmp   free_port_area
4249
 
4250
;   r_port_area:
4251
 
4252
;     pushad
4253
 
4254
        cmp     ecx, edx      ; beginning > end ?
4255
        ja      rpal1
4256
        cmp     edx, 65536
4257
        jae     rpal1
4258
        mov     eax, [RESERVED_PORTS]
4259
        test    eax, eax      ; no reserved areas ?
4260
        je      rpal2
4261
        cmp     eax, 255      ; max reserved
4262
        jae     rpal1
4263
 rpal3:
4264
        mov     ebx, eax
4265
        shl     ebx, 4
4266
        add     ebx, RESERVED_PORTS
4267
        cmp     ecx, [ebx+8]
4268
        ja      rpal4
4269
        cmp     edx, [ebx+4]
4270
        jae     rpal1
4271
;     jb    rpal4
4272
;     jmp   rpal1
4273
 rpal4:
4274
        dec     eax
4275
        jnz     rpal3
4276
        jmp     rpal2
4277
   rpal1:
4278
;     popad
4279
;     mov   eax,1
4280
        xor     eax, eax
4281
        inc     eax
4282
        ret
4283
   rpal2:
4284
;     popad
4285
     ; enable port access at port IO map
4286
        cli
4287
        pushad                        ; start enable io map
4288
 
4289
        cmp     edx, 65536;16384
4290
        jae     no_unmask_io; jge
4291
        mov     eax, ecx
4292
;       push    ebp
4293
        xor     ebp, ebp               ; enable - eax = port
4294
new_port_access:
4295
;     pushad
4296
        call    set_io_access_rights
4297
;     popad
4298
        inc     eax
4299
        cmp     eax, edx
4300
        jbe     new_port_access
4301
;       pop     ebp
4302
no_unmask_io:
4303
        popad                         ; end enable io map
4304
        sti
4305
 
4306
        mov     eax, [RESERVED_PORTS]
4307
        add     eax, 1
4308
        mov     [RESERVED_PORTS], eax
4309
        shl     eax, 4
4310
        add     eax, RESERVED_PORTS
4311
        mov     ebx, [TASK_BASE]
4312
        mov     ebx, [ebx+TASKDATA.pid]
4313
        mov     [eax], ebx
4314
        mov     [eax+4], ecx
4315
        mov     [eax+8], edx
4316
 
4317
        xor     eax, eax
4318
        ret
4319
 
4320
free_port_area:
4321
 
4322
;     pushad
4323
        mov     eax, [RESERVED_PORTS]; no reserved areas ?
4324
        test    eax, eax
4325
        jz      frpal2
4326
        mov     ebx, [TASK_BASE]
4327
        mov     ebx, [ebx+TASKDATA.pid]
4328
   frpal3:
4329
        mov     edi, eax
4330
        shl     edi, 4
4331
        add     edi, RESERVED_PORTS
4332
        cmp     ebx, [edi]
4333
        jne     frpal4
4334
        cmp     ecx, [edi+4]
4335
        jne     frpal4
4336
        cmp     edx, [edi+8]
4337
        jne     frpal4
4338
        jmp     frpal1
4339
   frpal4:
4340
        dec     eax
4341
        jnz     frpal3
4342
   frpal2:
4343
;     popad
4344
        inc     eax
4345
        ret
4346
   frpal1:
4347
        push    ecx
4348
        mov     ecx, 256
4349
        sub     ecx, eax
4350
        shl     ecx, 4
4351
        mov     esi, edi
4352
        add     esi, 16
4353
        cld
4354
        rep movsb
4355
 
4356
        dec     dword [RESERVED_PORTS]
4357
;popad
4358
;disable port access at port IO map
4359
 
4360
;     pushad                        ; start disable io map
4361
        pop     eax     ;start port
4362
        cmp     edx, 65536;16384
4363
        jge     no_mask_io
4364
 
4365
;     mov   eax,ecx
4366
        xor     ebp, ebp
4367
        inc     ebp
4368
new_port_access_disable:
4369
;     pushad
4370
;     mov   ebp,1                  ; disable - eax = port
4371
        call    set_io_access_rights
4372
;     popad
4373
        inc     eax
4374
        cmp     eax, edx
4375
        jbe     new_port_access_disable
4376
no_mask_io:
4377
;     popad                         ; end disable io map
4378
        xor     eax, eax
4379
        ret
2430 mario79 4380
;-----------------------------------------------------------------------------
2288 clevermous 4381
align 4
4382
drawbackground:
2430 mario79 4383
dbrv20:
2288 clevermous 4384
        cmp     [BgrDrawMode], dword 1
4385
        jne     bgrstr
4386
        call    vesa20_drawbackground_tiled
2453 mario79 4387
;        call    [draw_pointer]
4388
        call    __sys_draw_pointer
2288 clevermous 4389
        ret
2430 mario79 4390
;--------------------------------------
4391
align 4
4392
bgrstr:
2288 clevermous 4393
        call    vesa20_drawbackground_stretch
2453 mario79 4394
;        call    [draw_pointer]
4395
        call    __sys_draw_pointer
2288 clevermous 4396
        ret
2430 mario79 4397
;-----------------------------------------------------------------------------
2288 clevermous 4398
align 4
4399
syscall_putimage:                       ; PutImage
4400
sys_putimage:
4401
        test    ecx, 0x80008000
4402
        jnz     .exit
4403
        test    ecx, 0x0000FFFF
4404
        jz      .exit
4405
        test    ecx, 0xFFFF0000
4406
        jnz     @f
2430 mario79 4407
;--------------------------------------
4408
align 4
4409
.exit:
2288 clevermous 4410
        ret
2430 mario79 4411
;--------------------------------------
4412
align 4
4413
@@:
2288 clevermous 4414
        mov     edi, [current_slot]
4415
        add     dx, word[edi+APPDATA.wnd_clientbox.top]
4416
        rol     edx, 16
4417
        add     dx, word[edi+APPDATA.wnd_clientbox.left]
4418
        rol     edx, 16
2430 mario79 4419
;--------------------------------------
4420
align 4
4421
.forced:
2288 clevermous 4422
        push    ebp esi 0
4423
        mov     ebp, putimage_get24bpp
4424
        mov     esi, putimage_init24bpp
2430 mario79 4425
;--------------------------------------
4426
align 4
2288 clevermous 4427
sys_putimage_bpp:
2430 mario79 4428
        call    vesa20_putimage
2288 clevermous 4429
        pop     ebp esi ebp
2430 mario79 4430
        ret
4431
;        jmp     [draw_pointer]
4432
;-----------------------------------------------------------------------------
2288 clevermous 4433
align 4
4434
sys_putimage_palette:
4435
; ebx = pointer to image
4436
; ecx = [xsize]*65536 + [ysize]
4437
; edx = [xstart]*65536 + [ystart]
4438
; esi = number of bits per pixel, must be 8, 24 or 32
4439
; edi = pointer to palette
4440
; ebp = row delta
4441
        mov     eax, [CURRENT_TASK]
4442
        shl     eax, 8
4443
        add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
4444
        rol     edx, 16
4445
        add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
4446
        rol     edx, 16
2430 mario79 4447
;--------------------------------------
4448
align 4
2288 clevermous 4449
.forced:
4450
        cmp     esi, 1
4451
        jnz     @f
4452
        push    edi
4453
        mov     eax, [edi+4]
4454
        sub     eax, [edi]
4455
        push    eax
4456
        push    dword [edi]
4457
        push    0ffffff80h
4458
        mov     edi, esp
4459
        call    put_mono_image
4460
        add     esp, 12
4461
        pop     edi
4462
        ret
2430 mario79 4463
;--------------------------------------
4464
align 4
2288 clevermous 4465
@@:
4466
        cmp     esi, 2
4467
        jnz     @f
4468
        push    edi
4469
        push    0ffffff80h
4470
        mov     edi, esp
4471
        call    put_2bit_image
4472
        pop     eax
4473
        pop     edi
4474
        ret
2430 mario79 4475
;--------------------------------------
4476
align 4
2288 clevermous 4477
@@:
4478
        cmp     esi, 4
4479
        jnz     @f
4480
        push    edi
4481
        push    0ffffff80h
4482
        mov     edi, esp
4483
        call    put_4bit_image
4484
        pop     eax
4485
        pop     edi
4486
        ret
2430 mario79 4487
;--------------------------------------
4488
align 4
2288 clevermous 4489
@@:
4490
        push    ebp esi ebp
4491
        cmp     esi, 8
4492
        jnz     @f
4493
        mov     ebp, putimage_get8bpp
4494
        mov     esi, putimage_init8bpp
4495
        jmp     sys_putimage_bpp
2430 mario79 4496
;--------------------------------------
4497
align 4
2288 clevermous 4498
@@:
2727 dunkaist 4499
        cmp     esi, 9
4500
        jnz     @f
4501
        mov     ebp, putimage_get9bpp
4502
        mov     esi, putimage_init9bpp
4503
        jmp     sys_putimage_bpp
4504
;--------------------------------------
4505
align 4
4506
@@:
2288 clevermous 4507
        cmp     esi, 15
4508
        jnz     @f
4509
        mov     ebp, putimage_get15bpp
4510
        mov     esi, putimage_init15bpp
4511
        jmp     sys_putimage_bpp
2430 mario79 4512
;--------------------------------------
4513
align 4
2288 clevermous 4514
@@:
4515
        cmp     esi, 16
4516
        jnz     @f
4517
        mov     ebp, putimage_get16bpp
4518
        mov     esi, putimage_init16bpp
4519
        jmp     sys_putimage_bpp
2430 mario79 4520
;--------------------------------------
4521
align 4
2288 clevermous 4522
@@:
4523
        cmp     esi, 24
4524
        jnz     @f
4525
        mov     ebp, putimage_get24bpp
4526
        mov     esi, putimage_init24bpp
4527
        jmp     sys_putimage_bpp
2430 mario79 4528
;--------------------------------------
4529
align 4
2288 clevermous 4530
@@:
4531
        cmp     esi, 32
4532
        jnz     @f
4533
        mov     ebp, putimage_get32bpp
4534
        mov     esi, putimage_init32bpp
4535
        jmp     sys_putimage_bpp
2430 mario79 4536
;--------------------------------------
4537
align 4
2288 clevermous 4538
@@:
4539
        pop     ebp esi ebp
4540
        ret
2430 mario79 4541
;-----------------------------------------------------------------------------
4542
align 4
2288 clevermous 4543
put_mono_image:
4544
        push    ebp esi ebp
4545
        mov     ebp, putimage_get1bpp
4546
        mov     esi, putimage_init1bpp
4547
        jmp     sys_putimage_bpp
2430 mario79 4548
;-----------------------------------------------------------------------------
4549
align 4
2288 clevermous 4550
put_2bit_image:
4551
        push    ebp esi ebp
4552
        mov     ebp, putimage_get2bpp
4553
        mov     esi, putimage_init2bpp
4554
        jmp     sys_putimage_bpp
2430 mario79 4555
;-----------------------------------------------------------------------------
4556
align 4
2288 clevermous 4557
put_4bit_image:
4558
        push    ebp esi ebp
4559
        mov     ebp, putimage_get4bpp
4560
        mov     esi, putimage_init4bpp
4561
        jmp     sys_putimage_bpp
2430 mario79 4562
;-----------------------------------------------------------------------------
4563
align 4
2288 clevermous 4564
putimage_init24bpp:
4565
        lea     eax, [eax*3]
4566
putimage_init8bpp:
2727 dunkaist 4567
putimage_init9bpp:
2288 clevermous 4568
        ret
2430 mario79 4569
;-----------------------------------------------------------------------------
2288 clevermous 4570
align 16
4571
putimage_get24bpp:
4572
        movzx   eax, byte [esi+2]
4573
        shl     eax, 16
4574
        mov     ax, [esi]
4575
        add     esi, 3
4576
        ret     4
2430 mario79 4577
;-----------------------------------------------------------------------------
2288 clevermous 4578
align 16
4579
putimage_get8bpp:
4580
        movzx   eax, byte [esi]
4581
        push    edx
4582
        mov     edx, [esp+8]
4583
        mov     eax, [edx+eax*4]
4584
        pop     edx
4585
        inc     esi
4586
        ret     4
2430 mario79 4587
;-----------------------------------------------------------------------------
2727 dunkaist 4588
align 16
4589
putimage_get9bpp:
4590
        lodsb
4591
        mov     ah, al
4592
        shl     eax, 8
4593
        mov     al, ah
4594
        ret     4
4595
;-----------------------------------------------------------------------------
2430 mario79 4596
align 4
2288 clevermous 4597
putimage_init1bpp:
4598
        add     eax, ecx
4599
        push    ecx
4600
        add     eax, 7
4601
        add     ecx, 7
4602
        shr     eax, 3
4603
        shr     ecx, 3
4604
        sub     eax, ecx
4605
        pop     ecx
4606
        ret
2430 mario79 4607
;-----------------------------------------------------------------------------
2288 clevermous 4608
align 16
4609
putimage_get1bpp:
4610
        push    edx
4611
        mov     edx, [esp+8]
4612
        mov     al, [edx]
4613
        add     al, al
4614
        jnz     @f
4615
        lodsb
4616
        adc     al, al
4617
@@:
4618
        mov     [edx], al
4619
        sbb     eax, eax
4620
        and     eax, [edx+8]
4621
        add     eax, [edx+4]
4622
        pop     edx
4623
        ret     4
2430 mario79 4624
;-----------------------------------------------------------------------------
4625
align 4
2288 clevermous 4626
putimage_init2bpp:
4627
        add     eax, ecx
4628
        push    ecx
4629
        add     ecx, 3
4630
        add     eax, 3
4631
        shr     ecx, 2
4632
        shr     eax, 2
4633
        sub     eax, ecx
4634
        pop     ecx
4635
        ret
2430 mario79 4636
;-----------------------------------------------------------------------------
2288 clevermous 4637
align 16
4638
putimage_get2bpp:
4639
        push    edx
4640
        mov     edx, [esp+8]
4641
        mov     al, [edx]
4642
        mov     ah, al
4643
        shr     al, 6
4644
        shl     ah, 2
4645
        jnz     .nonewbyte
4646
        lodsb
4647
        mov     ah, al
4648
        shr     al, 6
4649
        shl     ah, 2
4650
        add     ah, 1
4651
.nonewbyte:
4652
        mov     [edx], ah
4653
        mov     edx, [edx+4]
4654
        movzx   eax, al
4655
        mov     eax, [edx+eax*4]
4656
        pop     edx
4657
        ret     4
2430 mario79 4658
;-----------------------------------------------------------------------------
4659
align 4
2288 clevermous 4660
putimage_init4bpp:
4661
        add     eax, ecx
4662
        push    ecx
4663
        add     ecx, 1
4664
        add     eax, 1
4665
        shr     ecx, 1
4666
        shr     eax, 1
4667
        sub     eax, ecx
4668
        pop     ecx
4669
        ret
2430 mario79 4670
;-----------------------------------------------------------------------------
2288 clevermous 4671
align 16
4672
putimage_get4bpp:
4673
        push    edx
4674
        mov     edx, [esp+8]
4675
        add     byte [edx], 80h
4676
        jc      @f
4677
        movzx   eax, byte [edx+1]
4678
        mov     edx, [edx+4]
4679
        and     eax, 0x0F
4680
        mov     eax, [edx+eax*4]
4681
        pop     edx
4682
        ret     4
4683
@@:
4684
        movzx   eax, byte [esi]
4685
        add     esi, 1
4686
        mov     [edx+1], al
4687
        shr     eax, 4
4688
        mov     edx, [edx+4]
4689
        mov     eax, [edx+eax*4]
4690
        pop     edx
4691
        ret     4
2430 mario79 4692
;-----------------------------------------------------------------------------
4693
align 4
2288 clevermous 4694
putimage_init32bpp:
4695
        shl     eax, 2
4696
        ret
2430 mario79 4697
;-----------------------------------------------------------------------------
2288 clevermous 4698
align 16
4699
putimage_get32bpp:
4700
        lodsd
4701
        ret     4
2430 mario79 4702
;-----------------------------------------------------------------------------
4703
align 4
2288 clevermous 4704
putimage_init15bpp:
4705
putimage_init16bpp:
4706
        add     eax, eax
4707
        ret
2430 mario79 4708
;-----------------------------------------------------------------------------
2288 clevermous 4709
align 16
4710
putimage_get15bpp:
4711
; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
4712
        push    ecx edx
4713
        movzx   eax, word [esi]
4714
        add     esi, 2
4715
        mov     ecx, eax
4716
        mov     edx, eax
4717
        and     eax, 0x1F
4718
        and     ecx, 0x1F shl 5
4719
        and     edx, 0x1F shl 10
4720
        shl     eax, 3
4721
        shl     ecx, 6
4722
        shl     edx, 9
4723
        or      eax, ecx
4724
        or      eax, edx
4725
        pop     edx ecx
4726
        ret     4
2430 mario79 4727
;-----------------------------------------------------------------------------
2288 clevermous 4728
align 16
4729
putimage_get16bpp:
4730
; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
4731
        push    ecx edx
4732
        movzx   eax, word [esi]
4733
        add     esi, 2
4734
        mov     ecx, eax
4735
        mov     edx, eax
4736
        and     eax, 0x1F
4737
        and     ecx, 0x3F shl 5
4738
        and     edx, 0x1F shl 11
4739
        shl     eax, 3
4740
        shl     ecx, 5
4741
        shl     edx, 8
4742
        or      eax, ecx
4743
        or      eax, edx
4744
        pop     edx ecx
4745
        ret     4
2430 mario79 4746
;-----------------------------------------------------------------------------
4747
;align 4
2288 clevermous 4748
; eax x beginning
4749
; ebx y beginning
4750
; ecx x end
4751
        ; edx y end
4752
; edi color
2430 mario79 4753
;__sys_drawbar:
4754
;        mov     esi, [current_slot]
4755
;        add     eax, [esi+APPDATA.wnd_clientbox.left]
4756
;        add     ecx, [esi+APPDATA.wnd_clientbox.left]
4757
;        add     ebx, [esi+APPDATA.wnd_clientbox.top]
4758
;        add     edx, [esi+APPDATA.wnd_clientbox.top]
4759
;--------------------------------------
4760
;align 4
4761
;.forced:
4762
;        call    vesa20_drawbar
2407 mario79 4763
;        call    [draw_pointer]
4764
;        ret
2430 mario79 4765
;-----------------------------------------------------------------------------
4766
align 4
5012 clevermous 4767
kb_write_wait_ack:
2288 clevermous 4768
 
4769
        push    ecx edx
4770
 
4771
        mov     dl, al
4772
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
5012 clevermous 4773
.wait_output_ready:
2288 clevermous 4774
        in      al, 0x64
4775
        test    al, 2
5012 clevermous 4776
        jz      @f
4777
        loop    .wait_output_ready
2288 clevermous 4778
        mov     ah, 1
5012 clevermous 4779
        jmp     .nothing
4780
@@:
2288 clevermous 4781
        mov     al, dl
4782
        out     0x60, al
5012 clevermous 4783
        mov     ecx, 0xfffff; last 0xffff, new value in view of fast CPU's
4784
.wait_ack:
2288 clevermous 4785
        in      al, 0x64
5012 clevermous 4786
        test    al, 1
4787
        jnz     @f
4788
        loop    .wait_ack
2288 clevermous 4789
        mov     ah, 1
5012 clevermous 4790
        jmp     .nothing
4791
@@:
4792
        in      al, 0x60
2288 clevermous 4793
        xor     ah, ah
4794
 
5012 clevermous 4795
.nothing:
2288 clevermous 4796
        pop     edx ecx
4797
 
4798
        ret
2430 mario79 4799
;-----------------------------------------------------------------------------
2288 clevermous 4800
 
4801
setmouse:  ; set mousepicture -pointer
4802
           ; ps2 mouse enable
4803
 
2430 mario79 4804
;        mov     [MOUSE_PICTURE], dword mousepointer
2288 clevermous 4805
 
4806
        cli
4807
 
4808
        ret
4809
 
4810
if used _rdtsc
4811
_rdtsc:
4812
        bt      [cpu_caps], CAPS_TSC
4813
        jnc     ret_rdtsc
4814
        rdtsc
4815
        ret
4816
   ret_rdtsc:
4817
        mov     edx, 0xffffffff
4818
        mov     eax, 0xffffffff
4819
        ret
4820
end if
4821
 
4822
sys_msg_board_str:
4823
 
4824
        pushad
4825
   @@:
4826
        cmp     [esi], byte 0
4827
        je      @f
3614 shikhin 4828
        mov     ebx, 1
4829
        movzx   ecx, byte [esi]
2288 clevermous 4830
        call    sys_msg_board
4831
        inc     esi
4832
        jmp     @b
4833
   @@:
4834
        popad
4835
        ret
4836
 
4837
sys_msg_board_byte:
4838
; in: al = byte to display
4839
; out: nothing
4840
; destroys: nothing
4841
        pushad
4842
        mov     ecx, 2
4843
        shl     eax, 24
4844
        jmp     @f
4845
 
4846
sys_msg_board_word:
4847
; in: ax = word to display
4848
; out: nothing
4849
; destroys: nothing
4850
        pushad
4851
        mov     ecx, 4
4852
        shl     eax, 16
4853
        jmp     @f
4854
 
4855
sys_msg_board_dword:
4856
; in: eax = dword to display
4857
; out: nothing
4858
; destroys: nothing
4859
        pushad
4860
        mov     ecx, 8
4861
@@:
4862
        push    ecx
4863
        rol     eax, 4
4864
        push    eax
4865
        and     al, 0xF
4866
        cmp     al, 10
4867
        sbb     al, 69h
4868
        das
3614 shikhin 4869
        mov     cl, al
4870
        xor     ebx, ebx
4871
        inc     ebx
2288 clevermous 4872
        call    sys_msg_board
4873
        pop     eax
4874
        pop     ecx
4875
        loop    @b
4876
        popad
4877
        ret
4878
 
3392 clevermous 4879
msg_board_data_size = 65536 ; Must be power of two
4880
 
2288 clevermous 4881
uglobal
3392 clevermous 4882
  msg_board_data  rb msg_board_data_size
2288 clevermous 4883
  msg_board_count dd 0x0
4884
endg
4885
 
4886
sys_msg_board:
4887
 
3614 shikhin 4888
; ebx=1 : write :  bl byte to write
4889
; ebx=2 :  read :  ebx=0 -> no data, ebx=1 -> data in al
2288 clevermous 4890
 
3614 shikhin 4891
        push    eax ebx                 ; Save eax and ebx, since we're restoring their order required.
4892
        mov     eax, ebx
4893
        mov     ebx, ecx
4894
 
2288 clevermous 4895
        mov     ecx, [msg_board_count]
4896
        cmp     eax, 1
4897
        jne     .smbl1
4898
 
4899
if defined debug_com_base
4900
 
4901
        push    dx ax
4902
 
4903
       @@:                              ; Wait for empty transmit register  (yes, this slows down system..)
4904
        mov     dx, debug_com_base+5
4905
        in      al, dx
4906
        test    al, 1 shl 5
4907
        jz      @r
4908
 
4909
        mov     dx, debug_com_base      ; Output the byte
4910
        mov     al, bl
4911
        out     dx, al
4912
 
4913
        pop     ax dx
4914
 
4915
end if
4916
 
4917
        mov     [msg_board_data+ecx], bl
3777 yogev_ezra 4918
; // if debug_direct_print == 1
4919
        cmp     byte [debug_direct_print], 1
4920
        jnz     @f
3507 clevermous 4921
        pusha
4922
iglobal
3778 mario79 4923
msg_board_pos   dd      (42*6)*65536+10 ; for printing debug output on the screen
3507 clevermous 4924
endg
4925
        lea     edx, [msg_board_data+ecx]
4926
        mov     ecx, 0x40FFFFFF
4927
        mov     ebx, [msg_board_pos]
4928
        mov     edi, 1
4929
        mov     esi, 1
4930
        call    dtext
4931
        popa
4932
        add     word [msg_board_pos+2], 6
4933
        cmp     bl, 10
4934
        jnz     @f
3778 mario79 4935
        mov     word [msg_board_pos+2], (42*6)
3507 clevermous 4936
        add     word [msg_board_pos], 10
5350 serge 4937
        mov     ax, word [_display.width]
3507 clevermous 4938
        cmp     word [msg_board_pos], ax
5350 serge 4939
        jb      @f
3507 clevermous 4940
        mov     word [msg_board_pos], 10
4941
@@:
3777 yogev_ezra 4942
; // end if
4943
 
3534 clevermous 4944
if 0
4945
        pusha
4946
        mov     al, bl
4947
        mov     edx, 402h
4948
        out     dx, al
4949
        popa
4950
end if
2288 clevermous 4951
        inc     ecx
3392 clevermous 4952
        and     ecx, msg_board_data_size - 1
2288 clevermous 4953
        mov     [msg_board_count], ecx
3614 shikhin 4954
 
4955
        pop     ebx eax
2288 clevermous 4956
        ret
4957
.smbl1:
4958
        cmp     eax, 2
4959
        jne     .smbl2
4960
        test    ecx, ecx
4961
        jz      .smbl21
3614 shikhin 4962
 
4963
        add     esp, 8                  ; Returning data in ebx and eax, so no need to restore them.
2288 clevermous 4964
        mov     eax, msg_board_data+1
4965
        mov     ebx, msg_board_data
4966
        movzx   edx, byte [ebx]
4967
        call    memmove
4968
        dec     [msg_board_count]
3614 shikhin 4969
        mov     [esp + 32], edx ;eax
4970
        mov     [esp + 20], dword 1
2288 clevermous 4971
        ret
4972
.smbl21:
3614 shikhin 4973
        mov     [esp+32], ecx
4974
        mov     [esp+20], ecx
2288 clevermous 4975
.smbl2:
3614 shikhin 4976
        pop     ebx eax
2288 clevermous 4977
        ret
4978
 
4979
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4980
;; 66 sys function.                                                ;;
4981
;; in eax=66,ebx in [0..5],ecx,edx                                 ;;
4982
;; out eax                                                         ;;
4983
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4984
iglobal
4985
align 4
4986
f66call:
4987
           dd sys_process_def.1   ; 1 = set keyboard mode
4988
           dd sys_process_def.2   ; 2 = get keyboard mode
4989
           dd sys_process_def.3   ; 3 = get keyboard ctrl, alt, shift
2709 mario79 4990
           dd sys_process_def.4   ; 4 = set system-wide hotkey
4991
           dd sys_process_def.5   ; 5 = delete installed hotkey
4992
           dd sys_process_def.6   ; 6 = disable input, work only hotkeys
4993
           dd sys_process_def.7   ; 7 = enable input, opposition to f.66.6
2288 clevermous 4994
endg
2709 mario79 4995
;-----------------------------------------------------------------------------
4996
align 4
2288 clevermous 4997
sys_process_def:
4998
        dec     ebx
2709 mario79 4999
        cmp     ebx, 7
5000
        jae     .not_support    ;if >=8 then or eax,-1
2288 clevermous 5001
 
5002
        mov     edi, [CURRENT_TASK]
5003
        jmp     dword [f66call+ebx*4]
5004
 
5005
.not_support:
5006
        or      eax, -1
5007
        ret
2709 mario79 5008
;-----------------------------------------------------------------------------
5009
align 4
2288 clevermous 5010
.1:
5011
        shl     edi, 8
5012
        mov     [edi+SLOT_BASE + APPDATA.keyboard_mode], cl
5013
 
5014
        ret
2709 mario79 5015
;-----------------------------------------------------------------------------
5016
align 4
2288 clevermous 5017
.2:                             ; 2 = get keyboard mode
5018
        shl     edi, 8
5019
        movzx   eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
5020
        mov     [esp+32], eax
5021
        ret
2709 mario79 5022
;-----------------------------------------------------------------------------
5023
align 4
2288 clevermous 5024
.3:                             ;3 = get keyboard ctrl, alt, shift
5025
        mov     eax, [kb_state]
5026
        mov     [esp+32], eax
5027
        ret
2709 mario79 5028
;-----------------------------------------------------------------------------
5029
align 4
2288 clevermous 5030
.4:
5031
        mov     eax, hotkey_list
5032
@@:
5033
        cmp     dword [eax+8], 0
5034
        jz      .found_free
5035
        add     eax, 16
5036
        cmp     eax, hotkey_list+16*256
5037
        jb      @b
5038
        mov     dword [esp+32], 1
5039
        ret
5040
.found_free:
5041
        mov     [eax+8], edi
5042
        mov     [eax+4], edx
5043
        movzx   ecx, cl
5044
        lea     ecx, [hotkey_scancodes+ecx*4]
5045
        mov     edx, [ecx]
5046
        mov     [eax], edx
5047
        mov     [ecx], eax
5048
        mov     [eax+12], ecx
3383 hidnplayr 5049
        test    edx, edx
5050
        jz      @f
2288 clevermous 5051
        mov     [edx+12], eax
5052
@@:
5053
        and     dword [esp+32], 0
5054
        ret
2709 mario79 5055
;-----------------------------------------------------------------------------
5056
align 4
2288 clevermous 5057
.5:
5058
        movzx   ebx, cl
5059
        lea     ebx, [hotkey_scancodes+ebx*4]
5060
        mov     eax, [ebx]
5061
.scan:
5062
        test    eax, eax
5063
        jz      .notfound
5064
        cmp     [eax+8], edi
5065
        jnz     .next
5066
        cmp     [eax+4], edx
5067
        jz      .found
5068
.next:
5069
        mov     eax, [eax]
5070
        jmp     .scan
5071
.notfound:
5072
        mov     dword [esp+32], 1
5073
        ret
5074
.found:
5075
        mov     ecx, [eax]
5076
        jecxz   @f
5077
        mov     edx, [eax+12]
5078
        mov     [ecx+12], edx
5079
@@:
5080
        mov     ecx, [eax+12]
5081
        mov     edx, [eax]
5082
        mov     [ecx], edx
5083
        xor     edx, edx
5084
        mov     [eax+4], edx
5085
        mov     [eax+8], edx
5086
        mov     [eax+12], edx
5087
        mov     [eax], edx
5088
        mov     [esp+32], edx
5089
        ret
2709 mario79 5090
;-----------------------------------------------------------------------------
5091
align 4
5092
.6:
5093
        pushfd
5094
        cli
5095
        mov     eax, [PID_lock_input]
5096
        test    eax, eax
5097
        jnz     @f
5098
; get current PID
5099
        mov     eax, [CURRENT_TASK]
5100
        shl     eax, 5
5101
        mov     eax, [eax+CURRENT_TASK+TASKDATA.pid]
5102
; set current PID for lock input
5103
        mov     [PID_lock_input], eax
5104
@@:
5105
        popfd
5106
        ret
5107
;-----------------------------------------------------------------------------
5108
align 4
5109
.7:
5110
        mov     eax, [PID_lock_input]
5111
        test    eax, eax
5112
        jz      @f
5113
; get current PID
5114
        mov     ebx, [CURRENT_TASK]
5115
        shl     ebx, 5
5116
        mov     ebx, [ebx+CURRENT_TASK+TASKDATA.pid]
5117
; compare current lock input with current PID
5118
        cmp     ebx, eax
5119
        jne     @f
2288 clevermous 5120
 
2709 mario79 5121
        xor     eax, eax
5122
        mov     [PID_lock_input], eax
5123
@@:
5124
        ret
5125
;-----------------------------------------------------------------------------
5126
uglobal
5127
  PID_lock_input dd 0x0
5128
endg
2288 clevermous 5129
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5130
;; 61 sys function.                                                ;;
5131
;; in eax=61,ebx in [1..3]                                         ;;
5132
;; out eax                                                         ;;
5133
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5134
iglobal
5135
align 4
5136
f61call:
5137
           dd sys_gs.1   ; resolution
5138
           dd sys_gs.2   ; bits per pixel
5139
           dd sys_gs.3   ; bytes per scanline
5140
endg
5141
 
5142
 
5143
align 4
5144
 
5145
sys_gs:                         ; direct screen access
5146
        dec     ebx
5147
        cmp     ebx, 2
5148
        ja      .not_support
5149
        jmp     dword [f61call+ebx*4]
5150
.not_support:
5151
        or      [esp+32], dword -1
5152
        ret
5153
 
5154
 
5155
.1:                             ; resolution
5350 serge 5156
        mov     eax, [_display.width]
2288 clevermous 5157
        shl     eax, 16
5350 serge 5158
        mov     ax, word [_display.height]
2288 clevermous 5159
        mov     [esp+32], eax
5160
        ret
5161
.2:                             ; bits per pixel
5154 hidnplayr 5162
        mov     eax, [_display.bits_per_pixel]
2288 clevermous 5163
        mov     [esp+32], eax
5164
        ret
5165
.3:                             ; bytes per scanline
5351 serge 5166
        mov     eax, [_display.lfb_pitch]
2288 clevermous 5167
        mov     [esp+32], eax
5168
        ret
5169
 
5170
align 4  ;  system functions
5171
 
5172
syscall_setpixel:                       ; SetPixel
5173
 
5174
        mov     eax, ebx
5175
        mov     ebx, ecx
5176
        mov     ecx, edx
5177
        mov     edx, [TASK_BASE]
5178
        add     eax, [edx-twdw+WDATA.box.left]
5179
        add     ebx, [edx-twdw+WDATA.box.top]
5180
        mov     edi, [current_slot]
5181
        add     eax, [edi+APPDATA.wnd_clientbox.left]
5182
        add     ebx, [edi+APPDATA.wnd_clientbox.top]
5183
        xor     edi, edi ; no force
2430 mario79 5184
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 save to mouseunder area
2453 mario79 5185
;        jmp     [putpixel]
5186
        jmp     __sys_putpixel
2288 clevermous 5187
 
5188
align 4
5189
 
5190
syscall_writetext:                      ; WriteText
5191
 
5192
        mov     eax, [TASK_BASE]
5193
        mov     ebp, [eax-twdw+WDATA.box.left]
5194
        push    esi
5195
        mov     esi, [current_slot]
5196
        add     ebp, [esi+APPDATA.wnd_clientbox.left]
5197
        shl     ebp, 16
5198
        add     ebp, [eax-twdw+WDATA.box.top]
5199
        add     bp, word[esi+APPDATA.wnd_clientbox.top]
5200
        pop     esi
3462 mario79 5201
        test    ecx, 0x08000000  ; redirect the output to the user area
5202
        jnz     @f
2288 clevermous 5203
        add     ebx, ebp
3462 mario79 5204
align 4
5205
@@:
2288 clevermous 5206
        mov     eax, edi
2536 mario79 5207
        test    ecx, 0x08000000  ; redirect the output to the user area
5208
        jnz     dtext
2288 clevermous 5209
        xor     edi, edi
5210
        jmp     dtext
5211
 
5212
align 4
5213
 
5214
syscall_drawrect:                       ; DrawRect
5215
 
5216
        mov     edi, edx ; color + gradient
5217
        and     edi, 0x80FFFFFF
5218
        test    bx, bx  ; x.size
5219
        je      .drectr
5220
        test    cx, cx ; y.size
5221
        je      .drectr
5222
 
5223
        mov     eax, ebx ; bad idea
5224
        mov     ebx, ecx
5225
 
5226
        movzx   ecx, ax ; ecx - x.size
5227
        shr     eax, 16 ; eax - x.coord
5228
        movzx   edx, bx ; edx - y.size
5229
        shr     ebx, 16 ; ebx - y.coord
5230
        mov     esi, [current_slot]
5231
 
5232
        add     eax, [esi + APPDATA.wnd_clientbox.left]
5233
        add     ebx, [esi + APPDATA.wnd_clientbox.top]
5234
        add     ecx, eax
5235
        add     edx, ebx
2453 mario79 5236
;        jmp     [drawbar]
5237
        jmp     vesa20_drawbar
2288 clevermous 5238
.drectr:
5239
        ret
5240
 
5241
align 4
5242
syscall_getscreensize:                  ; GetScreenSize
5350 serge 5243
        mov     ax, word [_display.width]
5244
        dec     ax
2288 clevermous 5245
        shl     eax, 16
5350 serge 5246
        mov     ax, word [_display.height]
5247
        dec     ax
2288 clevermous 5248
        mov     [esp + 32], eax
5249
        ret
4700 mario79 5250
;-----------------------------------------------------------------------------
2288 clevermous 5251
align 4
4713 mario79 5252
syscall_cdaudio:
4711 mario79 5253
; ECX - position of CD/DVD-drive
5254
; from 0=Primary Master to 3=Secondary Slave for first IDE contr.
5255
; from 4=Primary Master to 7=Secondary Slave for second IDE contr.
5256
; from 8=Primary Master to 11=Secondary Slave for third IDE contr.
5257
        cmp     ecx, 11
5258
        ja      .exit
5259
 
5260
        mov     eax, ecx
5261
        shr     eax, 2
5262
        lea     eax, [eax*5]
5263
        mov     al, [eax+DRIVE_DATA+1]
5264
 
5265
        push    ecx ebx
5266
        mov     ebx, ecx
5267
        and     ebx, 11b
5268
        shl     ebx, 1
5269
        mov     cl, 6
5270
        sub     cl, bl
5271
        shr     al, cl
5272
        test    al, 2 ; it's not an ATAPI device
5273
        pop     ebx ecx
5274
 
5275
        jz      .exit
5276
 
4700 mario79 5277
        cmp     ebx, 4
5278
        je      .eject
2288 clevermous 5279
 
5280
        cmp     ebx, 5
4700 mario79 5281
        je      .load
4711 mario79 5282
;--------------------------------------
5283
.exit:
4700 mario79 5284
        ret
5285
;--------------------------------------
2288 clevermous 5286
.load:
5287
        call    .reserve
5288
        call    LoadMedium
5289
        jmp     .free
4700 mario79 5290
;--------------------------------------
2288 clevermous 5291
.eject:
5292
        call    .reserve
5293
        call    clear_CD_cache
5294
        call    allow_medium_removal
5295
        call    EjectMedium
5296
        jmp     .free
4700 mario79 5297
;--------------------------------------
2288 clevermous 5298
.reserve:
5299
        call    reserve_cd
4700 mario79 5300
 
5301
        mov     ebx, ecx
5302
        inc     ebx
5303
        mov     [cdpos], ebx
5304
 
2288 clevermous 5305
        mov     eax, ecx
5306
        shr     eax, 1
5307
        and     eax, 1
5308
        inc     eax
5309
        mov     [ChannelNumber], ax
5310
        mov     eax, ecx
5311
        and     eax, 1
5312
        mov     [DiskNumber], al
5313
        call    reserve_cd_channel
5314
        ret
4700 mario79 5315
;--------------------------------------
2288 clevermous 5316
.free:
5317
        call    free_cd_channel
5318
        and     [cd_status], 0
5319
        ret
2511 mario79 5320
;-----------------------------------------------------------------------------
2288 clevermous 5321
align 4
2511 mario79 5322
syscall_getpixel_WinMap:                       ; GetPixel WinMap
5350 serge 5323
        cmp     ebx, [_display.width]
5324
        jb      @f
5325
        cmp     ecx, [_display.height]
5326
        jb      @f
2511 mario79 5327
        xor     eax, eax
5328
        jmp     .store
5329
;--------------------------------------
5330
align 4
5331
@@:
5332
        mov     eax, [d_width_calc_area + ecx*4]
5351 serge 5333
        add     eax, [_display.win_map]
2511 mario79 5334
        movzx   eax, byte[eax+ebx]        ; get value for current point
5335
;--------------------------------------
5336
align 4
5337
.store:
5338
        mov     [esp + 32], eax
5339
        ret
5340
;-----------------------------------------------------------------------------
5341
align 4
2288 clevermous 5342
syscall_getpixel:                       ; GetPixel
5350 serge 5343
        mov     ecx, [_display.width]
2288 clevermous 5344
        xor     edx, edx
5345
        mov     eax, ebx
5346
        div     ecx
5347
        mov     ebx, edx
5348
        xchg    eax, ebx
2430 mario79 5349
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 use mouseunder area
2288 clevermous 5350
        call    dword [GETPIXEL]; eax - x, ebx - y
5351
        mov     [esp + 32], ecx
5352
        ret
2509 mario79 5353
;-----------------------------------------------------------------------------
2288 clevermous 5354
align 4
5355
syscall_getarea:
5356
;eax = 36
5357
;ebx = pointer to bufer for img BBGGRRBBGGRR...
5358
;ecx = [size x]*65536 + [size y]
5359
;edx = [start x]*65536 + [start y]
5360
        pushad
5361
        mov     edi, ebx
5362
        mov     eax, edx
5363
        shr     eax, 16
5364
        mov     ebx, edx
5365
        and     ebx, 0xffff
5366
        dec     eax
5367
        dec     ebx
5368
     ; eax - x, ebx - y
5369
        mov     edx, ecx
5370
 
5371
        shr     ecx, 16
5372
        and     edx, 0xffff
5373
        mov     esi, ecx
5374
     ; ecx - size x, edx - size y
5375
 
5376
        mov     ebp, edx
5377
        dec     ebp
5378
        lea     ebp, [ebp*3]
5379
 
5380
        imul    ebp, esi
5381
 
5382
        mov     esi, ecx
5383
        dec     esi
5384
        lea     esi, [esi*3]
5385
 
5386
        add     ebp, esi
5387
        add     ebp, edi
5388
 
5389
        add     ebx, edx
2509 mario79 5390
;--------------------------------------
5391
align 4
2288 clevermous 5392
.start_y:
5393
        push    ecx edx
2509 mario79 5394
;--------------------------------------
5395
align 4
2288 clevermous 5396
.start_x:
5397
        push    eax ebx ecx
5398
        add     eax, ecx
5399
 
2430 mario79 5400
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 use mouseunder area
2288 clevermous 5401
        call    dword [GETPIXEL]; eax - x, ebx - y
5402
 
5403
        mov     [ebp], cx
5404
        shr     ecx, 16
5405
        mov     [ebp+2], cl
5406
 
5407
        pop     ecx ebx eax
5408
        sub     ebp, 3
5409
        dec     ecx
5410
        jnz     .start_x
5411
        pop     edx ecx
5412
        dec     ebx
5413
        dec     edx
5414
        jnz     .start_y
5415
        popad
5416
        ret
2509 mario79 5417
;-----------------------------------------------------------------------------
5418
align 4
5419
syscall_putarea_backgr:
5420
;eax = 25
5421
;ebx = pointer to bufer for img BBGGRRBBGGRR...
5422
;ecx = [size x]*65536 + [size y]
5423
;edx = [start x]*65536 + [start y]
5424
        pushad
5425
        mov     edi, ebx
5426
        mov     eax, edx
5427
        shr     eax, 16
5428
        mov     ebx, edx
5429
        and     ebx, 0xffff
5430
        dec     eax
5431
        dec     ebx
5432
; eax - x, ebx - y
5433
        mov     edx, ecx
5434
        shr     ecx, 16
5435
        and     edx, 0xffff
5436
        mov     esi, ecx
5437
; ecx - size x, edx - size y
5438
        mov     ebp, edx
5439
        dec     ebp
5440
        shl     ebp, 2
2288 clevermous 5441
 
2509 mario79 5442
        imul    ebp, esi
5443
 
5444
        mov     esi, ecx
5445
        dec     esi
5446
        shl     esi, 2
5447
 
5448
        add     ebp, esi
5449
        add     ebp, edi
5450
 
5451
        add     ebx, edx
5452
;--------------------------------------
2288 clevermous 5453
align 4
2509 mario79 5454
.start_y:
5455
        push    ecx edx
5456
;--------------------------------------
5457
align 4
5458
.start_x:
5459
        push    eax ecx
5460
        add     eax, ecx
2288 clevermous 5461
 
2509 mario79 5462
        mov     ecx, [ebp]
5463
        rol     ecx, 8
5464
        test    cl, cl        ; transparensy = 0
5465
        jz      .no_put
5466
 
5467
        xor     cl, cl
5468
        ror     ecx, 8
5469
 
5470
        pushad
5471
        mov     edx, [d_width_calc_area + ebx*4]
5351 serge 5472
        add     edx, [_display.win_map]
2509 mario79 5473
        movzx   edx, byte [eax+edx]
5474
        cmp     dl, byte 1
5475
        jne     @f
5476
 
5477
        call    dword [PUTPIXEL]; eax - x, ebx - y
5478
;--------------------------------------
5479
align 4
5480
@@:
5481
        popad
5482
;--------------------------------------
5483
align 4
5484
.no_put:
5485
        pop     ecx eax
2991 Serge 5486
 
2509 mario79 5487
        sub     ebp, 4
5488
        dec     ecx
5489
        jnz     .start_x
5490
 
5491
        pop     edx ecx
5492
        dec     ebx
5493
        dec     edx
5494
        jnz     .start_y
5495
 
5496
        popad
5497
        ret
5498
;-----------------------------------------------------------------------------
5499
align 4
2288 clevermous 5500
syscall_drawline:                       ; DrawLine
5501
 
5502
        mov     edi, [TASK_BASE]
5503
        movzx   eax, word[edi-twdw+WDATA.box.left]
5504
        mov     ebp, eax
5505
        mov     esi, [current_slot]
5506
        add     ebp, [esi+APPDATA.wnd_clientbox.left]
5507
        add     ax, word[esi+APPDATA.wnd_clientbox.left]
5508
        add     ebp, ebx
5509
        shl     eax, 16
5510
        movzx   ebx, word[edi-twdw+WDATA.box.top]
5511
        add     eax, ebp
5512
        mov     ebp, ebx
5513
        add     ebp, [esi+APPDATA.wnd_clientbox.top]
5514
        add     bx, word[esi+APPDATA.wnd_clientbox.top]
5515
        add     ebp, ecx
5516
        shl     ebx, 16
5517
        xor     edi, edi
5518
        add     ebx, ebp
5519
        mov     ecx, edx
2453 mario79 5520
;        jmp     [draw_line]
5521
        jmp     __sys_draw_line
2288 clevermous 5522
 
5523
 
5524
align 4
5525
syscall_reserveportarea:                ; ReservePortArea and FreePortArea
5526
 
5527
        call    r_f_port_area
5528
        mov     [esp+32], eax
5529
        ret
5530
 
5531
align 4
5532
syscall_threads:                        ; CreateThreads
5533
;
4105 Serge 5534
;   ecx=thread entry point
5535
;   edx=thread stack pointer
2288 clevermous 5536
;
5537
; on return : eax = pid
5538
 
4105 Serge 5539
        xor     ebx, ebx
2288 clevermous 5540
        call    new_sys_threads
5541
 
5542
        mov     [esp+32], eax
5543
        ret
5544
 
5545
align 4
5546
 
5547
paleholder:
5548
        ret
2438 mario79 5549
;------------------------------------------------------------------------------
2288 clevermous 5550
align 4
2438 mario79 5551
calculate_fast_getting_offset_for_WinMapAddress:
5552
; calculate data area for fast getting offset to _WinMapAddress
2446 mario79 5553
        xor     eax, eax
2438 mario79 5554
        mov     ecx, [_display.height]
5555
        mov     edi, d_width_calc_area
5556
        cld
5557
@@:
5558
        stosd
5559
        add     eax, [_display.width]
5560
        dec     ecx
5561
        jnz     @r
5562
        ret
5563
;------------------------------------------------------------------------------
5564
align 4
2480 mario79 5565
calculate_fast_getting_offset_for_LFB:
5566
; calculate data area for fast getting offset to LFB
5567
        xor     eax, eax
5568
        mov     ecx, [_display.height]
5569
        mov     edi, BPSLine_calc_area
5570
        cld
5571
@@:
5572
        stosd
5351 serge 5573
        add     eax, [_display.lfb_pitch]
2480 mario79 5574
        dec     ecx
5575
        jnz     @r
5576
        ret
5577
;------------------------------------------------------------------------------
5578
align 4
2288 clevermous 5579
set_screen:
2654 mario79 5580
; in:
5581
; eax - new Screen_Max_X
5582
; ecx - new BytesPerScanLine
5583
; edx - new Screen_Max_Y
2288 clevermous 5584
 
5585
        pushfd
5586
        cli
5587
 
5351 serge 5588
        mov     [_display.lfb_pitch], ecx
2288 clevermous 5589
 
5590
        mov     [screen_workarea.right], eax
5591
        mov     [screen_workarea.bottom], edx
5592
 
5593
        push    ebx
5594
        push    esi
5595
        push    edi
5596
 
5597
        pushad
5598
 
2654 mario79 5599
        cmp     [do_not_touch_winmap], 1
5600
        je      @f
5601
 
5351 serge 5602
        stdcall kernel_free, [_display.win_map]
2288 clevermous 5603
 
5604
        mov     eax, [_display.width]
5605
        mul     [_display.height]
5351 serge 5606
        mov     [_display.win_map_size], eax
2288 clevermous 5607
 
5608
        stdcall kernel_alloc, eax
5351 serge 5609
        mov     [_display.win_map], eax
2288 clevermous 5610
        test    eax, eax
5611
        jz      .epic_fail
2654 mario79 5612
; store for f.18.24
5613
        mov     eax, [_display.width]
5614
        mov     [display_width_standard], eax
2288 clevermous 5615
 
2654 mario79 5616
        mov     eax, [_display.height]
5617
        mov     [display_height_standard], eax
5618
@@:
2438 mario79 5619
        call    calculate_fast_getting_offset_for_WinMapAddress
2545 mario79 5620
; for Qemu or non standart video cards
2991 Serge 5621
; Unfortunately [BytesPerScanLine] does not always
2545 mario79 5622
;                             equal to [_display.width] * [ScreenBPP] / 8
5623
        call    calculate_fast_getting_offset_for_LFB
2288 clevermous 5624
        popad
5625
 
5626
        call    repos_windows
5627
        xor     eax, eax
5628
        xor     ebx, ebx
5350 serge 5629
        mov     ecx, [_display.width]
5630
        mov     edx, [_display.height]
5631
        dec     ecx
5632
        dec     edx
2288 clevermous 5633
        call    calculatescreen
5634
        pop     edi
5635
        pop     esi
5636
        pop     ebx
5637
 
5638
        popfd
5639
        ret
5640
 
5641
.epic_fail:
5642
        hlt                     ; Houston, we've had a problem
5643
 
5644
; --------------- APM ---------------------
5645
uglobal
5646
apm_entry       dp      0
5647
apm_vf          dd      0
5648
endg
5649
 
5650
align 4
5651
sys_apm:
5652
        xor     eax, eax
5653
        cmp     word [apm_vf], ax       ; Check APM BIOS enable
5654
        jne     @f
5655
        inc     eax
5656
        or      dword [esp + 44], eax   ; error
5657
        add     eax, 7
5658
        mov     dword [esp + 32], eax   ; 32-bit protected-mode interface not supported
5659
        ret
5660
 
5661
@@:
5662
;       xchg    eax, ecx
5663
;       xchg    ebx, ecx
5664
 
5665
        cmp     dx, 3
5666
        ja      @f
5667
        and     [esp + 44], byte 0xfe    ; emulate func 0..3 as func 0
5668
        mov     eax, [apm_vf]
5669
        mov     [esp + 32], eax
5670
        shr     eax, 16
5671
        mov     [esp + 28], eax
5672
        ret
5673
 
5674
@@:
5675
 
5676
        mov     esi, [master_tab+(OS_BASE shr 20)]
5677
        xchg    [master_tab], esi
5678
        push    esi
5679
        mov     edi, cr3
5680
        mov     cr3, edi                ;flush TLB
5681
 
5682
        call    pword [apm_entry]       ;call APM BIOS
5683
 
5684
        xchg    eax, [esp]
5685
        mov     [master_tab], eax
5686
        mov     eax, cr3
5687
        mov     cr3, eax
5688
        pop     eax
5689
 
5690
        mov     [esp + 4 ], edi
5691
        mov     [esp + 8], esi
5692
        mov     [esp + 20], ebx
5693
        mov     [esp + 24], edx
5694
        mov     [esp + 28], ecx
5695
        mov     [esp + 32], eax
5696
        setc    al
5697
        and     [esp + 44], byte 0xfe
5698
        or      [esp + 44], al
5699
        ret
5700
; -----------------------------------------
5701
 
5702
align 4
5703
 
5704
undefined_syscall:                      ; Undefined system call
5705
        mov     [esp + 32], dword -1
5706
        ret
5707
 
5708
align 4
5709
system_shutdown:          ; shut down the system
5710
 
3732 Serge 5711
        cmp     byte [BOOT_VARS+0x9030], 1
2288 clevermous 5712
        jne     @F
5713
        ret
5714
@@:
5715
        call    stop_all_services
5716
 
5717
yes_shutdown_param:
5033 clevermous 5718
; Shutdown other CPUs, if initialized
5719
        cmp     [ap_initialized], 0
5720
        jz      .no_shutdown_cpus
5721
        mov     edi, [LAPIC_BASE]
5722
        add     edi, 300h
5723
        mov     esi, smpt+4
5724
        mov     ebx, [cpu_count]
5725
        dec     ebx
5726
.shutdown_cpus_loop:
5727
        lodsd
5049 clevermous 5728
        push    esi
5729
        xor     esi, esi
5730
        inc     esi
5033 clevermous 5731
        shl     eax, 24
5732
        mov     [edi+10h], eax
5733
; assert INIT IPI
5734
        mov     dword [edi], 0C500h
5049 clevermous 5735
        call    delay_ms
5033 clevermous 5736
@@:
5737
        test    dword [edi], 1000h
5738
        jnz     @b
5739
; deassert INIT IPI
5740
        mov     dword [edi], 8500h
5049 clevermous 5741
        call    delay_ms
5033 clevermous 5742
@@:
5743
        test    dword [edi], 1000h
5744
        jnz     @b
5745
; don't send STARTUP IPI: let other CPUs be in wait-for-startup state
5049 clevermous 5746
        pop     esi
5033 clevermous 5747
        dec     ebx
5748
        jnz     .shutdown_cpus_loop
5749
.no_shutdown_cpus:
5750
 
2288 clevermous 5751
        cli
5752
 
5753
if ~ defined extended_primary_loader
4273 clevermous 5754
; load kernel.mnt to 0x7000:0
5755
        mov     ebx, kernel_file_load
5756
        pushad
5757
        call    file_system_lfn
5758
        popad
2288 clevermous 5759
 
5760
        mov     esi, restart_kernel_4000+OS_BASE+0x10000 ; move kernel re-starter to 0x4000:0
5761
        mov     edi, OS_BASE+0x40000
5762
        mov     ecx, 1000
5763
        rep movsb
5764
end if
5765
 
3732 Serge 5766
;        mov     esi, BOOT_VAR    ; restore 0x0 - 0xffff
5767
;        mov     edi, OS_BASE
5768
;        mov     ecx, 0x10000/4
5769
;        cld
5770
;        rep movsd
2288 clevermous 5771
 
5772
        call    IRQ_mask_all
5773
 
5774
        cmp     byte [OS_BASE + 0x9030], 2
5775
        jnz     no_acpi_power_off
5776
 
5777
; scan for RSDP
5778
; 1) The first 1 Kb of the Extended BIOS Data Area (EBDA).
5779
        movzx   eax, word [OS_BASE + 0x40E]
5780
        shl     eax, 4
5781
        jz      @f
5782
        mov     ecx, 1024/16
5783
        call    scan_rsdp
5784
        jnc     .rsdp_found
5785
@@:
5786
; 2) The BIOS read-only memory space between 0E0000h and 0FFFFFh.
5787
        mov     eax, 0xE0000
5788
        mov     ecx, 0x2000
5789
        call    scan_rsdp
5790
        jc      no_acpi_power_off
5791
.rsdp_found:
5792
        mov     esi, [eax+16]   ; esi contains physical address of the RSDT
5793
        mov     ebp, [ipc_tmp]
5356 serge 5794
        stdcall map_page, ebp, esi, PG_READ
2288 clevermous 5795
        lea     eax, [esi+1000h]
5796
        lea     edx, [ebp+1000h]
5356 serge 5797
        stdcall map_page, edx, eax, PG_READ
2288 clevermous 5798
        and     esi, 0xFFF
5799
        add     esi, ebp
5800
        cmp     dword [esi], 'RSDT'
5801
        jnz     no_acpi_power_off
5802
        mov     ecx, [esi+4]
5803
        sub     ecx, 24h
5804
        jbe     no_acpi_power_off
5805
        shr     ecx, 2
5806
        add     esi, 24h
5807
.scan_fadt:
5808
        lodsd
5809
        mov     ebx, eax
5810
        lea     eax, [ebp+2000h]
5356 serge 5811
        stdcall map_page, eax, ebx, PG_READ
2288 clevermous 5812
        lea     eax, [ebp+3000h]
5813
        add     ebx, 0x1000
5356 serge 5814
        stdcall map_page, eax, ebx, PG_READ
2288 clevermous 5815
        and     ebx, 0xFFF
5816
        lea     ebx, [ebx+ebp+2000h]
5817
        cmp     dword [ebx], 'FACP'
5818
        jz      .fadt_found
5819
        loop    .scan_fadt
5820
        jmp     no_acpi_power_off
5821
.fadt_found:
5822
; ebx is linear address of FADT
5823
        mov     edi, [ebx+40] ; physical address of the DSDT
5824
        lea     eax, [ebp+4000h]
5356 serge 5825
        stdcall map_page, eax, edi, PG_READ
2288 clevermous 5826
        lea     eax, [ebp+5000h]
5827
        lea     esi, [edi+0x1000]
5356 serge 5828
        stdcall map_page, eax, esi, PG_READ
2288 clevermous 5829
        and     esi, 0xFFF
5830
        sub     edi, esi
5831
        cmp     dword [esi+ebp+4000h], 'DSDT'
5832
        jnz     no_acpi_power_off
5833
        mov     eax, [esi+ebp+4004h] ; DSDT length
5834
        sub     eax, 36+4
5835
        jbe     no_acpi_power_off
5836
        add     esi, 36
5837
.scan_dsdt:
5838
        cmp     dword [esi+ebp+4000h], '_S5_'
5839
        jnz     .scan_dsdt_cont
5840
        cmp     byte [esi+ebp+4000h+4], 12h ; DefPackage opcode
5841
        jnz     .scan_dsdt_cont
5842
        mov     dl, [esi+ebp+4000h+6]
5843
        cmp     dl, 4 ; _S5_ package must contain 4 bytes
5844
                      ; ...in theory; in practice, VirtualBox has 2 bytes
5845
        ja      .scan_dsdt_cont
5846
        cmp     dl, 1
5847
        jb      .scan_dsdt_cont
5848
        lea     esi, [esi+ebp+4000h+7]
5849
        xor     ecx, ecx
5850
        cmp     byte [esi], 0 ; 0 means zero byte, 0Ah xx means byte xx
5851
        jz      @f
5852
        cmp     byte [esi], 0xA
5853
        jnz     no_acpi_power_off
5854
        inc     esi
5855
        mov     cl, [esi]
5856
@@:
5857
        inc     esi
5858
        cmp     dl, 2
5859
        jb      @f
5860
        cmp     byte [esi], 0
5861
        jz      @f
5862
        cmp     byte [esi], 0xA
5863
        jnz     no_acpi_power_off
5864
        inc     esi
5865
        mov     ch, [esi]
5866
@@:
5867
        jmp     do_acpi_power_off
5868
.scan_dsdt_cont:
5869
        inc     esi
5870
        cmp     esi, 0x1000
5871
        jb      @f
5872
        sub     esi, 0x1000
5873
        add     edi, 0x1000
5874
        push    eax
5875
        lea     eax, [ebp+4000h]
5356 serge 5876
        stdcall map_page, eax, edi, PG_READ
5877
        push    PG_READ
2288 clevermous 5878
        lea     eax, [edi+1000h]
5879
        push    eax
5880
        lea     eax, [ebp+5000h]
5881
        push    eax
5882
        stdcall map_page
5883
        pop     eax
5884
@@:
5885
        dec     eax
5886
        jnz     .scan_dsdt
5887
        jmp     no_acpi_power_off
5888
do_acpi_power_off:
5889
        mov     edx, [ebx+48]
5890
        test    edx, edx
5891
        jz      .nosmi
5892
        mov     al, [ebx+52]
5893
        out     dx, al
5894
        mov     edx, [ebx+64]
5895
@@:
5896
        in      ax, dx
5897
        test    al, 1
5898
        jz      @b
5899
.nosmi:
5900
        and     cx, 0x0707
5901
        shl     cx, 2
5902
        or      cx, 0x2020
5903
        mov     edx, [ebx+64]
5904
        in      ax, dx
5905
        and     ax, 203h
5906
        or      ah, cl
5907
        out     dx, ax
5908
        mov     edx, [ebx+68]
5909
        test    edx, edx
5910
        jz      @f
5911
        in      ax, dx
5912
        and     ax, 203h
5913
        or      ah, ch
5914
        out     dx, ax
5915
@@:
5916
        jmp     $
5917
 
5918
 
5919
scan_rsdp:
5920
        add     eax, OS_BASE
5921
.s:
5922
        cmp     dword [eax], 'RSD '
5923
        jnz     .n
5924
        cmp     dword [eax+4], 'PTR '
5925
        jnz     .n
5926
        xor     edx, edx
5927
        xor     esi, esi
5928
@@:
5929
        add     dl, [eax+esi]
5930
        inc     esi
5931
        cmp     esi, 20
5932
        jnz     @b
5933
        test    dl, dl
5934
        jz      .ok
5935
.n:
5936
        add     eax, 10h
5937
        loop    .s
5938
        stc
5939
.ok:
5940
        ret
5941
 
5032 clevermous 5942
no_acpi_power_off:
5943
        call    create_trampoline_pgmap
5944
        mov     cr3, eax
5945
        jmp     become_real+0x10000
5946
iglobal
5947
align 4
5948
realmode_gdt:
5949
; selector 0 - not used
5950
        dw      23
5951
        dd      realmode_gdt-OS_BASE
5952
        dw      0
5953
; selector 8 - code from 1000:0000 to 1000:FFFF
5954
        dw      0FFFFh
5955
        dw      0
5956
        db      1
5957
        db      10011011b
5958
        db      00000000b
5959
        db      0
5960
; selector 10h - data from 1000:0000 to 1000:FFFF
5961
        dw      0FFFFh
5962
        dw      0
5963
        db      1
5964
        db      10010011b
5965
        db      00000000b
5966
        db      0
5967
endg
5968
 
3627 Serge 5969
if ~ lang eq sp
5970
diff16 "end of .text segment",0,$
5971
end if
5972
 
2288 clevermous 5973
include "data32.inc"
5974
 
5975
__REV__ = __REV
5976
 
3341 yogev_ezra 5977
if ~ lang eq sp
2288 clevermous 5978
diff16 "end of kernel code",0,$
3287 esevece 5979
end if