Subversion Repositories Kolibri OS

Rev

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

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