Subversion Repositories Kolibri OS

Rev

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