Subversion Repositories Kolibri OS

Rev

Rev 2511 | Rev 2515 | 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: 2513 $
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
; for guarantee the updating data
2082
        call    change_task
2083
noprocessterminate:
2472 mario79 2084
        add     esp, 4
2288 clevermous 2085
        ret
2086
;------------------------------------------------------------------------------
2087
sysfn_terminate2:
2088
;lock application_table_status mutex
2089
.table_status:
2090
        cli
2091
        cmp     [application_table_status], 0
2092
        je      .stf
2093
        sti
2094
        call    change_task
2095
        jmp     .table_status
2096
.stf:
2097
        call    set_application_table_status
2098
        mov     eax, ecx
2099
        call    pid_to_slot
2100
        test    eax, eax
2101
        jz      .not_found
2102
        mov     ecx, eax
2103
        cli
2104
        call    sysfn_terminate
2105
        and     [application_table_status], 0
2106
        sti
2107
        and     dword [esp+32], 0
2108
        ret
2109
.not_found:
2110
        mov     [application_table_status], 0
2111
        or      dword [esp+32], -1
2112
        ret
2113
;------------------------------------------------------------------------------
2114
sysfn_deactivate:         ; 18.1 = DEACTIVATE WINDOW
2115
        cmp     ecx, 2
2116
        jb      .nowindowdeactivate
2117
        cmp     ecx, [TASK_COUNT]
2118
        ja      .nowindowdeactivate
2408 Serge 2119
 
2288 clevermous 2120
        movzx   esi, word [WIN_STACK + ecx*2]
2121
        cmp     esi, 1
2122
        je      .nowindowdeactivate ; already deactive
2123
 
2124
        mov     edi, ecx
2125
        shl     edi, 5
2126
        add     edi, window_data
2127
        movzx   esi, word [WIN_STACK + ecx * 2]
2128
        lea     esi, [WIN_POS + esi * 2]
2129
        call    window._.window_deactivate
2408 Serge 2130
 
2288 clevermous 2131
        xor     eax, eax
2132
        mov     byte[MOUSE_BACKGROUND], al
2133
        mov     byte[DONT_DRAW_MOUSE], al
2134
        mov     byte[MOUSE_DOWN], 0
2135
 
2136
        call    syscall_display_settings._.calculate_whole_screen
2137
        call    syscall_display_settings._.redraw_whole_screen
2138
.nowindowdeactivate:
2139
        ret
2411 Serge 2140
 ;------------------------------------------------------------------------------
2288 clevermous 2141
sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
2142
        cmp     ecx, 2
2143
        jb      .nowindowactivate
2144
        cmp     ecx, [TASK_COUNT]
2145
        ja      .nowindowactivate
2146
 
2147
        mov     [window_minimize], 2; restore window if minimized
2148
 
2149
        movzx   esi, word [WIN_STACK + ecx*2]
2150
        cmp     esi, [TASK_COUNT]
2151
        je      .nowindowactivate; already active
2152
 
2153
        mov     edi, ecx
2154
        shl     edi, 5
2155
        add     edi, window_data
2156
        movzx   esi, word [WIN_STACK + ecx * 2]
2157
        lea     esi, [WIN_POS + esi * 2]
2158
        call    waredraw
2159
.nowindowactivate:
2160
        ret
2161
;------------------------------------------------------------------------------
2162
sysfn_getidletime:              ; 18.4 = GET IDLETIME
2163
        mov     eax, [idleusesec]
2164
        mov     [esp+32], eax
2165
        ret
2166
;------------------------------------------------------------------------------
2167
sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
2168
        mov     eax, [CPU_FREQ]
2169
        mov     [esp+32], eax
2170
        ret
2171
;------------------------------------------------------------------------------
2172
;  SAVE ramdisk to /hd/1/menuet.img
2173
;!!!!!!!!!!!!!!!!!!!!!!!!
2174
   include 'blkdev/rdsave.inc'
2175
;!!!!!!!!!!!!!!!!!!!!!!!!
2176
;------------------------------------------------------------------------------
2177
align 4
2178
sysfn_getactive:        ; 18.7 = get active window
2179
        mov     eax, [TASK_COUNT]
2180
        movzx   eax, word [WIN_POS + eax*2]
2181
        mov     [esp+32], eax
2182
        ret
2183
;------------------------------------------------------------------------------
2184
sysfn_sound_flag:       ; 18.8 = get/set sound_flag
2185
;     cmp  ecx,1
2186
        dec     ecx
2187
        jnz     nogetsoundflag
2188
        movzx   eax, byte [sound_flag]; get sound_flag
2189
        mov     [esp+32], eax
2190
        ret
2191
 nogetsoundflag:
2192
;     cmp  ecx,2
2193
        dec     ecx
2194
        jnz     nosoundflag
2195
        xor     byte [sound_flag], 1
2196
 nosoundflag:
2197
        ret
2198
;------------------------------------------------------------------------------
2199
sysfn_minimize:         ; 18.10 = minimize window
2200
        mov     [window_minimize], 1
2201
        ret
2202
;------------------------------------------------------------------------------
2203
align 4
2204
sysfn_getdiskinfo:      ; 18.11 = get disk info table
2205
;     cmp  ecx,1
2206
        dec     ecx
2207
        jnz     full_table
2208
  small_table:
2209
        call    for_all_tables
2210
        mov     ecx, 10
2211
        cld
2212
        rep movsb
2213
        ret
2214
   for_all_tables:
2215
        mov     edi, edx
2216
        mov     esi, DRIVE_DATA
2217
        ret
2218
  full_table:
2219
;     cmp  ecx,2
2220
        dec     ecx
2221
        jnz     exit_for_anyone
2222
        call    for_all_tables
2223
        mov     ecx, 16384
2224
        cld
2225
        rep movsd
2226
        ret
2227
;------------------------------------------------------------------------------
2228
sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
2229
        and     dword [esp+32], 0
2230
        ret
2231
;------------------------------------------------------------------------------
2232
sysfn_getversion:       ; 18.13 = get kernel ID and version
2233
        mov     edi, ecx
2234
        mov     esi, version_inf
2235
        mov     ecx, version_end-version_inf
2236
        rep movsb
2237
        ret
2238
;------------------------------------------------------------------------------
2239
sysfn_waitretrace:     ; 18.14 = sys wait retrace
2240
     ;wait retrace functions
2241
 sys_wait_retrace:
2242
        mov     edx, 0x3da
2243
 WaitRetrace_loop:
2244
        in      al, dx
2245
        test    al, 1000b
2246
        jz      WaitRetrace_loop
2247
        and     [esp+32], dword 0
2248
        ret
2249
;------------------------------------------------------------------------------
2250
align 4
2251
sysfn_centermouse:      ; 18.15 = mouse centered
2252
; removed here by 
2253
;     call  mouse_centered
2254
;* mouse centered - start code- Mario79
2255
;mouse_centered:
2256
;        push  eax
2257
        mov     eax, [Screen_Max_X]
2258
        shr     eax, 1
2259
        mov     [MOUSE_X], ax
2260
        mov     eax, [Screen_Max_Y]
2261
        shr     eax, 1
2262
        mov     [MOUSE_Y], ax
2263
;        ret
2264
;* mouse centered - end code- Mario79
2265
        xor     eax, eax
2266
        and     [esp+32], eax
2267
;        pop   eax
2268
        ret
2269
;------------------------------------------------------------------------------
2270
align 4
2271
sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
2272
        test    ecx, ecx; get mouse speed factor
2273
        jnz     .set_mouse_acceleration
2274
        xor     eax, eax
2275
        mov     ax, [mouse_speed_factor]
2276
        mov     [esp+32], eax
2277
        ret
2278
 .set_mouse_acceleration:
2279
;     cmp  ecx,1  ; set mouse speed factor
2280
        dec     ecx
2281
        jnz     .get_mouse_delay
2282
        mov     [mouse_speed_factor], dx
2283
        ret
2284
 .get_mouse_delay:
2285
;     cmp  ecx,2  ; get mouse delay
2286
        dec     ecx
2287
        jnz     .set_mouse_delay
2288
        mov     eax, [mouse_delay]
2289
        mov     [esp+32], eax
2290
        ret
2291
 .set_mouse_delay:
2292
;     cmp  ecx,3  ; set mouse delay
2293
        dec     ecx
2294
        jnz     .set_pointer_position
2295
        mov     [mouse_delay], edx
2296
        ret
2297
 .set_pointer_position:
2298
;     cmp  ecx,4  ; set mouse pointer position
2299
        dec     ecx
2300
        jnz     .set_mouse_button
2301
        cmp     dx, word[Screen_Max_Y]
2302
        ja      .end
2303
        rol     edx, 16
2304
        cmp     dx, word[Screen_Max_X]
2305
        ja      .end
2306
        mov     [MOUSE_X], edx
2307
        ret
2308
 .set_mouse_button:
2309
;     cmp   ecx,5  ; set mouse button features
2310
        dec     ecx
2311
        jnz     .end
2312
        mov     [BTN_DOWN], dl
2313
        mov     [mouse_active], 1
2314
 .end:
2315
        ret
2316
;------------------------------------------------------------------------------
2317
sysfn_getfreemem:
2318
        mov     eax, [pg_data.pages_free]
2319
        shl     eax, 2
2320
        mov     [esp+32], eax
2321
        ret
2322
 
2323
sysfn_getallmem:
2324
        mov     eax, [MEM_AMOUNT]
2325
        shr     eax, 10
2326
        mov     [esp+32], eax
2327
        ret
2328
 
2329
; // Alver, 2007-22-08 // {
2330
sysfn_pid_to_slot:
2331
        mov     eax, ecx
2332
        call    pid_to_slot
2333
        mov     [esp+32], eax
2334
        ret
2335
 
2336
sysfn_min_rest_window:
2337
        pushad
2338
        mov     eax, edx ; ebx - operating
2339
        shr     ecx, 1
2340
        jnc     @f
2341
        call    pid_to_slot
2342
@@:
2343
        or      eax, eax ; eax - number of slot
2344
        jz      .error
2345
        cmp     eax, 255    ; varify maximal slot number
2346
        ja      .error
2347
        movzx   eax, word [WIN_STACK + eax*2]
2348
        shr     ecx, 1
2349
        jc      .restore
2350
 ; .minimize:
2351
        call    minimize_window
2352
        jmp     .exit
2353
.restore:
2354
        call    restore_minimized_window
2355
.exit:
2356
        popad
2357
        xor     eax, eax
2358
        mov     [esp+32], eax
2359
        ret
2360
.error:
2361
        popad
2362
        xor     eax, eax
2363
        dec     eax
2364
        mov     [esp+32], eax
2365
        ret
2366
; } \\ Alver, 2007-22-08 \\
2367
 
2368
uglobal
2369
;// mike.dld, 2006-29-01 [
2370
screen_workarea RECT
2371
;// mike.dld, 2006-29-01 ]
2372
window_minimize db 0
2373
sound_flag      db 0
2374
endg
2375
 
2376
UID_NONE=0
2377
UID_MENUETOS=1   ;official
2378
UID_KOLIBRI=2    ;russian
2379
 
2380
iglobal
2381
version_inf:
2382
  db 0,7,7,0  ; version 0.7.7.0
2383
  db 0
2384
  dd __REV__
2385
version_end:
2386
endg
2387
 
2388
sys_cachetodiskette:
2389
        cmp     ebx, 1
2390
        jne     .no_floppy_a_save
2391
        mov     [flp_number], 1
2392
        jmp     .save_image_on_floppy
2393
.no_floppy_a_save:
2394
        cmp     ebx, 2
2395
        jne     .no_floppy_b_save
2396
        mov     [flp_number], 2
2397
.save_image_on_floppy:
2398
        call    save_image
2399
        mov     [esp + 32], dword 0
2400
        cmp     [FDC_Status], 0
2401
        je      .yes_floppy_save
2402
.no_floppy_b_save:
2403
        mov     [esp + 32], dword 1
2404
.yes_floppy_save:
2405
        ret
2406
 
2407
uglobal
2408
;  bgrchanged  dd  0x0
2409
align 4
2410
bgrlockpid dd 0
2411
bgrlock db 0
2412
endg
2413
 
2414
sys_background:
2415
 
2416
        cmp     ebx, 1                     ; BACKGROUND SIZE
2417
        jnz     nosb1
2418
        test    ecx, ecx
2419
;    cmp   ecx,0
2420
        jz      sbgrr
2421
        test    edx, edx
2422
;    cmp   edx,0
2423
        jz      sbgrr
2424
@@:
2425
;;Maxis use atomic bts for mutexes  4.4.2009
2426
        bts     dword [bgrlock], 0
2427
        jnc     @f
2428
        call    change_task
2429
        jmp     @b
2430
@@:
2431
        mov     [BgrDataWidth], ecx
2432
        mov     [BgrDataHeight], edx
2433
;    mov   [bgrchanged],1
2434
 
2435
        pushad
2436
; return memory for old background
2437
        mov     eax, [img_background]
2438
        cmp     eax, static_background_data
2439
        jz      @f
2440
        stdcall kernel_free, eax
2441
@@:
2442
; calculate RAW size
2443
        xor     eax, eax
2444
        inc     eax
2445
        cmp     [BgrDataWidth], eax
2446
        jae     @f
2447
        mov     [BgrDataWidth], eax
2448
@@:
2449
        cmp     [BgrDataHeight], eax
2450
        jae     @f
2451
        mov     [BgrDataHeight], eax
2452
@@:
2453
        mov     eax, [BgrDataWidth]
2454
        imul    eax, [BgrDataHeight]
2455
        lea     eax, [eax*3]
2464 mario79 2456
; it is reserved with aligned to the boundary of 4 KB pages,
2457
; otherwise there may be exceptions a page fault for vesa20_drawbackground_tiled
2458
; because the 32 bit read is used for  high performance: "mov eax,[esi]"
2459
        shr     eax, 12
2460
        inc     eax
2461
        shl     eax, 12
2288 clevermous 2462
        mov     [mem_BACKGROUND], eax
2463
; get memory for new background
2464
        stdcall kernel_alloc, eax
2465
        test    eax, eax
2466
        jz      .memfailed
2467
        mov     [img_background], eax
2468
        jmp     .exit
2469
.memfailed:
2470
; revert to static monotone data
2471
        mov     [img_background], static_background_data
2472
        xor     eax, eax
2473
        inc     eax
2474
        mov     [BgrDataWidth], eax
2475
        mov     [BgrDataHeight], eax
2476
        mov     [mem_BACKGROUND], 4
2477
.exit:
2478
        popad
2479
        mov     [bgrlock], 0
2480
 
2481
  sbgrr:
2482
        ret
2483
 
2484
nosb1:
2485
 
2486
        cmp     ebx, 2                     ; SET PIXEL
2487
        jnz     nosb2
2488
 
2489
        mov     eax, [img_background]
2490
        test    ecx, ecx
2491
        jz      @f
2492
        cmp     eax, static_background_data
2493
        jz      .ret
2494
@@:
2495
        mov     ebx, [mem_BACKGROUND]
2496
        add     ebx, 4095
2497
        and     ebx, -4096
2498
        sub     ebx, 4
2499
        cmp     ecx, ebx
2500
        ja      .ret
2501
 
2502
        mov     ebx, [eax+ecx]
2503
        and     ebx, 0xFF000000;255*256*256*256
2504
        and     edx, 0x00FFFFFF;255*256*256+255*256+255
2505
        add     edx, ebx
2506
        mov     [eax+ecx], edx
2507
.ret:
2508
        ret
2509
nosb2:
2510
 
2511
        cmp     ebx, 3                     ; DRAW BACKGROUND
2512
        jnz     nosb3
2513
draw_background_temp:
2514
        mov     [background_defined], 1
2515
        call    force_redraw_background
2516
   nosb31:
2517
        ret
2518
  nosb3:
2519
 
2520
        cmp     ebx, 4                     ; TILED / STRETCHED
2521
        jnz     nosb4
2522
        cmp     ecx, [BgrDrawMode]
2523
        je      nosb41
2524
        mov     [BgrDrawMode], ecx
2525
   nosb41:
2526
        ret
2527
  nosb4:
2528
 
2529
        cmp     ebx, 5                     ; BLOCK MOVE TO BGR
2530
        jnz     nosb5
2531
        cmp     [img_background], static_background_data
2532
        jnz     @f
2533
        test    edx, edx
2534
        jnz     .fin
2535
        cmp     esi, 4
2536
        ja      .fin
2537
  @@:
2538
  ; bughere
2539
        mov     eax, ecx
2540
        mov     ebx, edx
2541
        add     ebx, [img_background];IMG_BACKGROUND
2542
        mov     ecx, esi
2543
        call    memmove
2544
  .fin:
2545
        ret
2546
  nosb5:
2547
 
2548
        cmp     ebx, 6
2549
        jnz     nosb6
2550
;;Maxis use atomic bts for mutex 4.4.2009
2551
@@:
2552
        bts     dword [bgrlock], 0
2553
        jnc     @f
2554
        call    change_task
2555
        jmp     @b
2556
@@:
2557
        mov     eax, [CURRENT_TASK]
2558
        mov     [bgrlockpid], eax
2559
        cmp     [img_background], static_background_data
2560
        jz      .nomem
2561
        stdcall user_alloc, [mem_BACKGROUND]
2562
        mov     [esp+32], eax
2563
        test    eax, eax
2564
        jz      .nomem
2565
        mov     ebx, eax
2566
        shr     ebx, 12
2567
        or      dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
2568
        mov     esi, [img_background]
2569
        shr     esi, 12
2570
        mov     ecx, [mem_BACKGROUND]
2571
        add     ecx, 0xFFF
2572
        shr     ecx, 12
2573
.z:
2574
        mov     eax, [page_tabs+ebx*4]
2575
        test    al, 1
2576
        jz      @f
2577
        call    free_page
2578
@@:
2579
        mov     eax, [page_tabs+esi*4]
2580
        or      al, PG_UW
2581
        mov     [page_tabs+ebx*4], eax
2582
        mov     eax, ebx
2583
        shl     eax, 12
2584
        invlpg  [eax]
2585
        inc     ebx
2586
        inc     esi
2587
        loop    .z
2588
        ret
2589
.nomem:
2590
        and     [bgrlockpid], 0
2591
        mov     [bgrlock], 0
2592
nosb6:
2593
        cmp     ebx, 7
2594
        jnz     nosb7
2595
        cmp     [bgrlock], 0
2596
        jz      .err
2597
        mov     eax, [CURRENT_TASK]
2598
        cmp     [bgrlockpid], eax
2599
        jnz     .err
2600
        mov     eax, ecx
2601
        mov     ebx, ecx
2602
        shr     eax, 12
2603
        mov     ecx, [page_tabs+(eax-1)*4]
2604
        test    cl, USED_BLOCK+DONT_FREE_BLOCK
2605
        jz      .err
2606
        jnp     .err
2607
        push    eax
2608
        shr     ecx, 12
2609
        dec     ecx
2610
@@:
2611
        and     dword [page_tabs+eax*4], 0
2612
        mov     edx, eax
2613
        shl     edx, 12
2614
        push    eax
2615
        invlpg  [edx]
2616
        pop     eax
2617
        inc     eax
2618
        loop    @b
2619
        pop     eax
2620
        and     dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
2621
        stdcall user_free, ebx
2622
        mov     [esp+32], eax
2623
        and     [bgrlockpid], 0
2624
        mov     [bgrlock], 0
2625
        ret
2626
.err:
2627
        and     dword [esp+32], 0
2628
        ret
2629
 
2630
nosb7:
2631
        ret
2632
 
2633
force_redraw_background:
2634
        and     [draw_data+32 + RECT.left], 0
2635
        and     [draw_data+32 + RECT.top], 0
2636
        push    eax ebx
2637
        mov     eax, [Screen_Max_X]
2638
        mov     ebx, [Screen_Max_Y]
2639
        mov     [draw_data+32 + RECT.right], eax
2640
        mov     [draw_data+32 + RECT.bottom], ebx
2641
        pop     ebx eax
2642
        inc     byte[REDRAW_BACKGROUND]
2643
        ret
2644
 
2645
align 4
2646
 
2647
sys_getbackground:
2648
;    cmp   eax,1                                  ; SIZE
2649
        dec     ebx
2650
        jnz     nogb1
2651
        mov     eax, [BgrDataWidth]
2652
        shl     eax, 16
2653
        mov     ax, [BgrDataHeight]
2654
        mov     [esp+32], eax
2655
        ret
2656
 
2657
nogb1:
2658
;    cmp   eax,2                                  ; PIXEL
2659
        dec     ebx
2660
        jnz     nogb2
2661
 
2662
        mov     eax, [img_background]
2663
        test    ecx, ecx
2664
        jz      @f
2665
        cmp     eax, static_background_data
2666
        jz      .ret
2667
@@:
2668
        mov     ebx, [mem_BACKGROUND]
2669
        add     ebx, 4095
2670
        and     ebx, -4096
2671
        sub     ebx, 4
2672
        cmp     ecx, ebx
2673
        ja      .ret
2674
 
2675
        mov     eax, [ecx+eax]
2676
 
2677
        and     eax, 0xFFFFFF
2678
        mov     [esp+32], eax
2679
.ret:
2680
        ret
2681
  nogb2:
2682
 
2683
;    cmp   eax,4                                  ; TILED / STRETCHED
2684
        dec     ebx
2685
        dec     ebx
2686
        jnz     nogb4
2687
        mov     eax, [BgrDrawMode]
2688
  nogb4:
2689
        mov     [esp+32], eax
2690
        ret
2691
 
2692
align 4
2693
 
2694
sys_getkey:
2695
        mov     [esp + 32], dword 1
2696
        ; test main buffer
2697
        mov     ebx, [CURRENT_TASK]                          ; TOP OF WINDOW STACK
2698
        movzx   ecx, word [WIN_STACK + ebx * 2]
2699
        mov     edx, [TASK_COUNT]
2700
        cmp     ecx, edx
2701
        jne     .finish
2702
        cmp     [KEY_COUNT], byte 0
2703
        je      .finish
2704
        movzx   eax, byte [KEY_BUFF]
2705
        shl     eax, 8
2706
        push    eax
2707
        dec     byte [KEY_COUNT]
2708
        and     byte [KEY_COUNT], 127
2709
        movzx   ecx, byte [KEY_COUNT]
2710
        add     ecx, 2
2711
        mov     eax, KEY_BUFF + 1
2712
        mov     ebx, KEY_BUFF
2713
        call    memmove
2714
        pop     eax
2715
.ret_eax:
2716
        mov     [esp + 32], eax
2717
        ret
2718
.finish:
2719
; test hotkeys buffer
2720
        mov     ecx, hotkey_buffer
2721
@@:
2722
        cmp     [ecx], ebx
2723
        jz      .found
2724
        add     ecx, 8
2725
        cmp     ecx, hotkey_buffer + 120 * 8
2726
        jb      @b
2727
        ret
2728
.found:
2729
        mov     ax, [ecx + 6]
2730
        shl     eax, 16
2731
        mov     ah, [ecx + 4]
2732
        mov     al, 2
2733
        and     dword [ecx + 4], 0
2734
        and     dword [ecx], 0
2735
        jmp     .ret_eax
2736
 
2737
align 4
2738
 
2739
sys_getbutton:
2740
 
2741
        mov     ebx, [CURRENT_TASK]                         ; TOP OF WINDOW STACK
2742
        mov     [esp + 32], dword 1
2743
        movzx   ecx, word [WIN_STACK + ebx * 2]
2744
        mov     edx, [TASK_COUNT] ; less than 256 processes
2745
        cmp     ecx, edx
2746
        jne     .exit
2747
        movzx   eax, byte [BTN_COUNT]
2748
        test    eax, eax
2749
        jz      .exit
2750
        mov     eax, [BTN_BUFF]
2751
        and     al, 0xFE                                    ; delete left button bit
2752
        mov     [BTN_COUNT], byte 0
2753
        mov     [esp + 32], eax
2754
.exit:
2755
        ret
2756
 
2757
 
2758
align 4
2759
 
2760
sys_cpuusage:
2761
 
2762
;  RETURN:
2763
;
2764
;  +00 dword     process cpu usage
2765
;  +04  word     position in windowing stack
2766
;  +06  word     windowing stack value at current position (cpu nro)
2767
;  +10 12 bytes  name
2768
;  +22 dword     start in mem
2769
;  +26 dword     used mem
2770
;  +30 dword     PID , process idenfification number
2771
;
2772
 
2773
        cmp     ecx, -1 ; who am I ?
2774
        jne     .no_who_am_i
2775
        mov     ecx, [CURRENT_TASK]
2776
  .no_who_am_i:
2777
        cmp     ecx, max_processes
2778
        ja      .nofillbuf
2779
 
2780
; +4: word: position of the window of thread in the window stack
2781
        mov     ax, [WIN_STACK + ecx * 2]
2782
        mov     [ebx+4], ax
2783
; +6: word: number of the thread slot, which window has in the window stack
2784
;           position ecx (has no relation to the specific thread)
2785
        mov     ax, [WIN_POS + ecx * 2]
2786
        mov     [ebx+6], ax
2787
 
2788
        shl     ecx, 5
2789
 
2790
; +0: dword: memory usage
2791
        mov     eax, [ecx+CURRENT_TASK+TASKDATA.cpu_usage]
2792
        mov     [ebx], eax
2793
; +10: 11 bytes: name of the process
2794
        push    ecx
2795
        lea     eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
2796
        add     ebx, 10
2797
        mov     ecx, 11
2798
        call    memmove
2799
        pop     ecx
2800
 
2801
; +22: address of the process in memory
2802
; +26: size of used memory - 1
2803
        push    edi
2804
        lea     edi, [ebx+12]
2805
        xor     eax, eax
2806
        mov     edx, 0x100000*16
2807
        cmp     ecx, 1 shl 5
2808
        je      .os_mem
2809
        mov     edx, [SLOT_BASE+ecx*8+APPDATA.mem_size]
2810
        mov     eax, std_application_base_address
2811
.os_mem:
2812
        stosd
2813
        lea     eax, [edx-1]
2814
        stosd
2815
 
2816
; +30: PID/TID
2817
        mov     eax, [ecx+CURRENT_TASK+TASKDATA.pid]
2818
        stosd
2819
 
2820
    ; window position and size
2821
        push    esi
2822
        lea     esi, [ecx + window_data + WDATA.box]
2823
        movsd
2824
        movsd
2825
        movsd
2826
        movsd
2827
 
2828
    ; Process state (+50)
2829
        mov     eax, dword [ecx+CURRENT_TASK+TASKDATA.state]
2830
        stosd
2831
 
2832
    ; Window client area box
2833
        lea     esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
2834
        movsd
2835
        movsd
2836
        movsd
2837
        movsd
2838
 
2839
    ; Window state
2840
        mov     al, [ecx+window_data+WDATA.fl_wstate]
2841
        stosb
2842
 
2843
    ; Event mask (+71)
2844
        mov     EAX, dword [ECX+CURRENT_TASK+TASKDATA.event_mask]
2845
        stosd
2846
 
2847
        pop     esi
2848
        pop     edi
2849
 
2850
.nofillbuf:
2851
    ; return number of processes
2852
 
2853
        mov     eax, [TASK_COUNT]
2854
        mov     [esp+32], eax
2855
        ret
2856
 
2857
align 4
2858
sys_clock:
2859
        cli
2860
  ; Mikhail Lisovin  xx Jan 2005
2861
  @@:
2862
        mov     al, 10
2863
        out     0x70, al
2864
        in      al, 0x71
2865
        test    al, al
2866
        jns     @f
2867
        mov     esi, 1
2868
        call    delay_ms
2869
        jmp     @b
2870
  @@:
2871
  ; end Lisovin's fix
2872
 
2873
        xor     al, al        ; seconds
2874
        out     0x70, al
2875
        in      al, 0x71
2876
        movzx   ecx, al
2877
        mov     al, 02        ; minutes
2878
        shl     ecx, 16
2879
        out     0x70, al
2880
        in      al, 0x71
2881
        movzx   edx, al
2882
        mov     al, 04        ; hours
2883
        shl     edx, 8
2884
        out     0x70, al
2885
        in      al, 0x71
2886
        add     ecx, edx
2887
        movzx   edx, al
2888
        add     ecx, edx
2889
        sti
2890
        mov     [esp + 32], ecx
2891
        ret
2892
 
2893
 
2894
align 4
2895
 
2896
sys_date:
2897
 
2898
        cli
2899
  @@:
2900
        mov     al, 10
2901
        out     0x70, al
2902
        in      al, 0x71
2903
        test    al, al
2904
        jns     @f
2905
        mov     esi, 1
2906
        call    delay_ms
2907
        jmp     @b
2908
  @@:
2909
 
2910
        mov     ch, 0
2911
        mov     al, 7           ; date
2912
        out     0x70, al
2913
        in      al, 0x71
2914
        mov     cl, al
2915
        mov     al, 8           ; month
2916
        shl     ecx, 16
2917
        out     0x70, al
2918
        in      al, 0x71
2919
        mov     ch, al
2920
        mov     al, 9           ; year
2921
        out     0x70, al
2922
        in      al, 0x71
2923
        mov     cl, al
2924
        sti
2925
        mov     [esp+32], ecx
2926
        ret
2927
 
2928
 
2929
; redraw status
2930
 
2931
sys_redrawstat:
2932
        cmp     ebx, 1
2933
        jne     no_widgets_away
2934
        ; buttons away
2935
        mov     ecx, [CURRENT_TASK]
2936
  sys_newba2:
2937
        mov     edi, [BTN_ADDR]
2938
        cmp     [edi], dword 0  ; empty button list ?
2939
        je      end_of_buttons_away
2940
        movzx   ebx, word [edi]
2941
        inc     ebx
2942
        mov     eax, edi
2943
  sys_newba:
2944
        dec     ebx
2945
        jz      end_of_buttons_away
2946
 
2947
        add     eax, 0x10
2948
        cmp     cx, [eax]
2949
        jnz     sys_newba
2950
 
2951
        push    eax ebx ecx
2952
        mov     ecx, ebx
2953
        inc     ecx
2954
        shl     ecx, 4
2955
        mov     ebx, eax
2956
        add     eax, 0x10
2957
        call    memmove
2958
        dec     dword [edi]
2959
        pop     ecx ebx eax
2960
 
2961
        jmp     sys_newba2
2962
 
2963
  end_of_buttons_away:
2964
 
2965
        ret
2966
 
2967
  no_widgets_away:
2968
 
2969
        cmp     ebx, 2
2970
        jnz     srl1
2971
 
2972
        mov     edx, [TASK_BASE]      ; return whole screen draw area for this app
2973
        add     edx, draw_data - CURRENT_TASK
2974
        mov     [edx + RECT.left], 0
2975
        mov     [edx + RECT.top], 0
2976
        mov     eax, [Screen_Max_X]
2977
        mov     [edx + RECT.right], eax
2978
        mov     eax, [Screen_Max_Y]
2979
        mov     [edx + RECT.bottom], eax
2980
 
2981
  srl1:
2982
        ret
2983
 
2984
;ok - 100% work
2985
;nt - not tested
2986
;---------------------------------------------------------------------------------------------
2987
;eax
2988
;0 - task switch counter. Ret switch counter in eax. Block. ok.
2989
;1 - change task. Ret nothing. Block. ok.
2990
;2 - performance control
2991
; ebx
2992
; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
2993
; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
2994
; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
2995
; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
2996
; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
2997
;eax
2998
;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
2999
;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
3000
;---------------------------------------------------------------------------------------------
3001
iglobal
3002
align 4
3003
sheduler:
3004
        dd      sys_sheduler.00
3005
        dd      change_task
3006
        dd      sys_sheduler.02
3007
        dd      sys_sheduler.03
3008
        dd      sys_sheduler.04
3009
endg
3010
sys_sheduler:
3011
;rewritten by   29.12.2009
3012
        jmp     dword [sheduler+ebx*4]
3013
;.shed_counter:
3014
.00:
3015
        mov     eax, [context_counter]
3016
        mov     [esp+32], eax
3017
        ret
3018
 
3019
.02:
3020
;.perf_control:
3021
        inc     ebx                     ;before ebx=2, ebx=3
3022
        cmp     ebx, ecx                ;if ecx=3, ebx=3
3023
        jz      cache_disable
3024
 
3025
        dec     ebx                     ;ebx=2
3026
        cmp     ebx, ecx                ;
3027
        jz      cache_enable            ;if ecx=2 and ebx=2
3028
 
3029
        dec     ebx                     ;ebx=1
3030
        cmp     ebx, ecx
3031
        jz      is_cache_enabled        ;if ecx=1 and ebx=1
3032
 
3033
        dec     ebx
3034
        test    ebx, ecx                ;ebx=0 and ecx=0
3035
        jz      modify_pce              ;if ecx=0
3036
 
3037
        ret
3038
 
3039
.03:
3040
;.rdmsr_instr:
3041
;now counter in ecx
3042
;(edx:eax) esi:edi => edx:esi
3043
        mov     eax, esi
3044
        mov     ecx, edx
3045
        rdmsr
3046
        mov     [esp+32], eax
3047
        mov     [esp+20], edx           ;ret in ebx?
3048
        ret
3049
 
3050
.04:
3051
;.wrmsr_instr:
3052
;now counter in ecx
3053
;(edx:eax) esi:edi => edx:esi
3054
        ; Fast Call MSR can't be destroy
3055
        ; ® MSR_AMD_EFER ¬®¦­® ¨§¬¥­ïâì, â.ª. ¢ í⮬ ॣ¨áâॠ«¨è
3056
        ; ¢ª«îç îâáï/¢ëª«îç îâáï à áè¨à¥­­ë¥ ¢®§¬®¦­®áâ¨
3057
        cmp     edx, MSR_SYSENTER_CS
3058
        je      @f
3059
        cmp     edx, MSR_SYSENTER_ESP
3060
        je      @f
3061
        cmp     edx, MSR_SYSENTER_EIP
3062
        je      @f
3063
        cmp     edx, MSR_AMD_STAR
3064
        je      @f
3065
 
3066
        mov     eax, esi
3067
        mov     ecx, edx
3068
        wrmsr
3069
        ; mov   [esp + 32], eax
3070
        ; mov   [esp + 20], edx ;ret in ebx?
3071
@@:
3072
        ret
3073
 
3074
cache_disable:
3075
        mov     eax, cr0
3076
        or      eax, 01100000000000000000000000000000b
3077
        mov     cr0, eax
3078
        wbinvd  ;set MESI
3079
        ret
3080
 
3081
cache_enable:
3082
        mov     eax, cr0
3083
        and     eax, 10011111111111111111111111111111b
3084
        mov     cr0, eax
3085
        ret
3086
 
3087
is_cache_enabled:
3088
        mov     eax, cr0
3089
        mov     ebx, eax
3090
        and     eax, 01100000000000000000000000000000b
3091
        jz      cache_disabled
3092
        mov     [esp+32], ebx
3093
cache_disabled:
3094
        mov     dword [esp+32], eax;0
3095
        ret
3096
 
3097
modify_pce:
3098
        mov     eax, cr4
3099
;       mov ebx,0
3100
;       or  bx,100000000b ;pce
3101
;       xor eax,ebx ;invert pce
3102
        bts     eax, 8;pce=cr4[8]
3103
        mov     cr4, eax
3104
        mov     [esp+32], eax
3105
        ret
3106
;---------------------------------------------------------------------------------------------
3107
 
3108
 
3109
; check if pixel is allowed to be drawn
3110
 
2446 mario79 3111
;checkpixel:
3112
;        push    eax edx
2288 clevermous 3113
 
2446 mario79 3114
;;        mov     edx, [Screen_Max_X] ; screen x size
3115
;;        inc     edx
3116
;;        imul    edx, ebx
3117
;        mov     edx, [d_width_calc_area + ebx*4]
3118
;        add     eax, [_WinMapAddress]
3119
;        mov     dl, [eax+edx]; lea eax, [...]
2288 clevermous 3120
 
2446 mario79 3121
;        xor     ecx, ecx
3122
;        mov     eax, [CURRENT_TASK]
3123
;        cmp     al, dl
3124
;        setne   cl
2288 clevermous 3125
 
2446 mario79 3126
;        pop     edx eax
3127
;        ret
2288 clevermous 3128
 
3129
iglobal
3130
  cpustring db 'CPU',0
3131
endg
3132
 
3133
uglobal
3134
background_defined    db    0    ; diamond, 11.04.2006
3135
endg
2513 mario79 3136
;-----------------------------------------------------------------------------
2288 clevermous 3137
align 4
3138
checkmisc:
3139
        cmp     [ctrl_alt_del], 1
3140
        jne     nocpustart
3141
 
3142
        mov     ebp, cpustring
3143
        call    fs_execute_from_sysdir
3144
 
3145
        mov     [ctrl_alt_del], 0
2513 mario79 3146
;--------------------------------------
3147
align 4
2288 clevermous 3148
nocpustart:
3149
        cmp     [mouse_active], 1
3150
        jne     mouse_not_active
3151
        mov     [mouse_active], 0
2411 Serge 3152
 
2288 clevermous 3153
        xor     edi, edi
2411 Serge 3154
        mov     ebx, CURRENT_TASK
3155
 
2288 clevermous 3156
        mov     ecx, [TASK_COUNT]
2408 Serge 3157
        movzx   eax, word [WIN_POS + ecx*2]     ; active window
3158
        shl     eax, 8
2414 Serge 3159
        push    eax
2408 Serge 3160
 
2414 Serge 3161
        movzx   eax, word [MOUSE_X]
3162
        movzx   edx, word [MOUSE_Y]
2513 mario79 3163
;--------------------------------------
2408 Serge 3164
align 4
3165
.set_mouse_event:
2288 clevermous 3166
        add     edi, 256
2411 Serge 3167
        add     ebx, 32
3168
        test    [ebx+TASKDATA.event_mask], 0x80000000
2414 Serge 3169
        jz      .pos_filter
3170
 
3171
        cmp     edi, [esp]                      ; skip if filtration active
3172
        jne     .skip
2513 mario79 3173
;--------------------------------------
3174
align 4
2414 Serge 3175
.pos_filter:
3176
        test    [ebx+TASKDATA.event_mask], 0x40000000
2411 Serge 3177
        jz      .set
2288 clevermous 3178
 
2414 Serge 3179
        mov     esi, [ebx-twdw+WDATA.box.left]
3180
        cmp     eax, esi
3181
        jb      .skip
3182
        add     esi, [ebx-twdw+WDATA.box.width]
3183
        cmp     eax, esi
3184
        ja      .skip
3185
 
3186
        mov     esi, [ebx-twdw+WDATA.box.top]
3187
        cmp     edx, esi
3188
        jb      .skip
3189
        add     esi, [ebx-twdw+WDATA.box.height]
3190
        cmp     edx, esi
3191
        ja      .skip
2513 mario79 3192
;--------------------------------------
3193
align 4
2411 Serge 3194
.set:
2513 mario79 3195
        or      [edi+SLOT_BASE+APPDATA.event_mask], 100000b  ; set event 6
3196
;--------------------------------------
3197
align 4
2411 Serge 3198
.skip:
2408 Serge 3199
        loop    .set_mouse_event
3200
 
2414 Serge 3201
        pop     eax
2513 mario79 3202
;--------------------------------------
3203
align 4
2288 clevermous 3204
mouse_not_active:
3205
        cmp     byte[REDRAW_BACKGROUND], 0         ; background update ?
3206
        jz      nobackgr
3207
        cmp     [background_defined], 0
3208
        jz      nobackgr
2513 mario79 3209
;--------------------------------------
3210
align 4
2288 clevermous 3211
@@:
3212
        call    drawbackground
2513 mario79 3213
;--------- set event 5 start ----------
3214
        push    ecx edi
3215
        xor     edi, edi
3216
        mov     ecx, [TASK_COUNT]
3217
;--------------------------------------
3218
align 4
3219
set_bgr_event:
3220
        add     edi, 256
3221
        or      [edi+SLOT_BASE+APPDATA.event_mask], 10000b  ; set event 5
3222
        loop    set_bgr_event
3223
        pop     edi ecx
3224
;--------- set event 5 stop -----------
2288 clevermous 3225
        xor     eax, eax
3226
        xchg    al, [REDRAW_BACKGROUND]
3227
        test    al, al                             ; got new update request?
3228
        jnz     @b
2513 mario79 3229
 
2288 clevermous 3230
        mov     [draw_data+32 + RECT.left], eax
3231
        mov     [draw_data+32 + RECT.top], eax
3232
        mov     [draw_data+32 + RECT.right], eax
3233
        mov     [draw_data+32 + RECT.bottom], eax
3234
        mov     [MOUSE_BACKGROUND], byte 0
2513 mario79 3235
;--------------------------------------
3236
align 4
2288 clevermous 3237
nobackgr:
2513 mario79 3238
; system shutdown request
2288 clevermous 3239
        cmp     [SYS_SHUTDOWN], byte 0
3240
        je      noshutdown
3241
 
3242
        mov     edx, [shutdown_processes]
3243
 
3244
        cmp     [SYS_SHUTDOWN], dl
3245
        jne     no_mark_system_shutdown
3246
 
3247
        lea     ecx, [edx-1]
3248
        mov     edx, OS_BASE+0x3040
3249
        jecxz   @f
2513 mario79 3250
;--------------------------------------
3251
align 4
2288 clevermous 3252
markz:
3253
        mov     [edx+TASKDATA.state], byte 3
3254
        add     edx, 0x20
3255
        loop    markz
2513 mario79 3256
;--------------------------------------
3257
align 4
2288 clevermous 3258
@@:
2513 mario79 3259
no_mark_system_shutdown:
2288 clevermous 3260
        dec     byte [SYS_SHUTDOWN]
3261
        je      system_shutdown
2513 mario79 3262
;--------------------------------------
3263
align 4
2288 clevermous 3264
noshutdown:
3265
        mov     eax, [TASK_COUNT]           ; termination
3266
        mov     ebx, TASK_DATA+TASKDATA.state
3267
        mov     esi, 1
2513 mario79 3268
;--------------------------------------
3269
align 4
2288 clevermous 3270
newct:
3271
        mov     cl, [ebx]
3272
        cmp     cl, byte 3
3273
        jz      terminate
2513 mario79 3274
 
2288 clevermous 3275
        cmp     cl, byte 4
3276
        jz      terminate
3277
 
3278
        add     ebx, 0x20
3279
        inc     esi
3280
        dec     eax
3281
        jnz     newct
3282
        ret
2513 mario79 3283
;-----------------------------------------------------------------------------
3284
align 4
2288 clevermous 3285
redrawscreen:
3286
; eax , if process window_data base is eax, do not set flag/limits
3287
 
3288
        pushad
3289
        push    eax
3290
 
3291
;;;         mov   ebx,2
3292
;;;         call  delay_hs
3293
 
3294
         ;mov   ecx,0               ; redraw flags for apps
3295
        xor     ecx, ecx
2513 mario79 3296
;--------------------------------------
3297
align 4
3298
newdw2:
2288 clevermous 3299
        inc     ecx
3300
        push    ecx
3301
 
3302
        mov     eax, ecx
3303
        shl     eax, 5
3304
        add     eax, window_data
3305
 
3306
        cmp     eax, [esp+4]
3307
        je      not_this_task
3308
                                   ; check if window in redraw area
3309
        mov     edi, eax
3310
 
3311
        cmp     ecx, 1             ; limit for background
3312
        jz      bgli
3313
 
3314
        mov     eax, [edi + WDATA.box.left]
3315
        mov     ebx, [edi + WDATA.box.top]
3316
        mov     ecx, [edi + WDATA.box.width]
3317
        mov     edx, [edi + WDATA.box.height]
3318
        add     ecx, eax
3319
        add     edx, ebx
3320
 
3321
        mov     ecx, [draw_limits.bottom] ; ecx = area y end     ebx = window y start
3322
        cmp     ecx, ebx
3323
        jb      ricino
3324
 
3325
        mov     ecx, [draw_limits.right] ; ecx = area x end     eax = window x start
3326
        cmp     ecx, eax
3327
        jb      ricino
3328
 
3329
        mov     eax, [edi + WDATA.box.left]
3330
        mov     ebx, [edi + WDATA.box.top]
3331
        mov     ecx, [edi + WDATA.box.width]
3332
        mov     edx, [edi + WDATA.box.height]
3333
        add     ecx, eax
3334
        add     edx, ebx
3335
 
3336
        mov     eax, [draw_limits.top]  ; eax = area y start     edx = window y end
3337
        cmp     edx, eax
3338
        jb      ricino
3339
 
3340
        mov     eax, [draw_limits.left]  ; eax = area x start     ecx = window x end
3341
        cmp     ecx, eax
3342
        jb      ricino
2513 mario79 3343
;--------------------------------------
3344
align 4
3345
bgli:
2288 clevermous 3346
        cmp     dword[esp], 1
3347
        jnz     .az
2513 mario79 3348
 
2288 clevermous 3349
        cmp     byte[REDRAW_BACKGROUND], 0
3350
        jz      .az
2513 mario79 3351
 
2288 clevermous 3352
        mov     dl, 0
3353
        lea     eax, [edi+draw_data-window_data]
3354
        mov     ebx, [draw_limits.left]
3355
        cmp     ebx, [eax+RECT.left]
3356
        jae     @f
2513 mario79 3357
 
2288 clevermous 3358
        mov     [eax+RECT.left], ebx
3359
        mov     dl, 1
2513 mario79 3360
;--------------------------------------
3361
align 4
3362
@@:
2288 clevermous 3363
        mov     ebx, [draw_limits.top]
3364
        cmp     ebx, [eax+RECT.top]
3365
        jae     @f
2513 mario79 3366
 
2288 clevermous 3367
        mov     [eax+RECT.top], ebx
3368
        mov     dl, 1
2513 mario79 3369
;--------------------------------------
3370
align 4
3371
@@:
2288 clevermous 3372
        mov     ebx, [draw_limits.right]
3373
        cmp     ebx, [eax+RECT.right]
3374
        jbe     @f
2513 mario79 3375
 
2288 clevermous 3376
        mov     [eax+RECT.right], ebx
3377
        mov     dl, 1
2513 mario79 3378
;--------------------------------------
3379
align 4
3380
@@:
2288 clevermous 3381
        mov     ebx, [draw_limits.bottom]
3382
        cmp     ebx, [eax+RECT.bottom]
3383
        jbe     @f
2513 mario79 3384
 
2288 clevermous 3385
        mov     [eax+RECT.bottom], ebx
3386
        mov     dl, 1
2513 mario79 3387
;--------------------------------------
3388
align 4
3389
@@:
2288 clevermous 3390
        add     byte[REDRAW_BACKGROUND], dl
3391
        jmp     newdw8
2513 mario79 3392
;--------------------------------------
3393
align 4
3394
.az:
2288 clevermous 3395
        mov     eax, edi
3396
        add     eax, draw_data-window_data
3397
 
3398
        mov     ebx, [draw_limits.left]        ; set limits
3399
        mov     [eax + RECT.left], ebx
3400
        mov     ebx, [draw_limits.top]
3401
        mov     [eax + RECT.top], ebx
3402
        mov     ebx, [draw_limits.right]
3403
        mov     [eax + RECT.right], ebx
3404
        mov     ebx, [draw_limits.bottom]
3405
        mov     [eax + RECT.bottom], ebx
3406
 
3407
        sub     eax, draw_data-window_data
3408
 
3409
        cmp     dword [esp], 1
3410
        jne     nobgrd
3411
        inc     byte[REDRAW_BACKGROUND]
2513 mario79 3412
;--------------------------------------
3413
align 4
3414
newdw8:
3415
nobgrd:
2288 clevermous 3416
 
3417
        mov     [eax + WDATA.fl_redraw], byte 1  ; mark as redraw
2513 mario79 3418
;--------------------------------------
3419
align 4
3420
ricino:
3421
not_this_task:
2288 clevermous 3422
        pop     ecx
3423
 
3424
        cmp     ecx, [TASK_COUNT]
3425
        jle     newdw2
3426
 
3427
        pop     eax
3428
        popad
3429
        ret
2513 mario79 3430
;-----------------------------------------------------------------------------
3431
align 4
2288 clevermous 3432
calculatebackground:   ; background
3433
        mov     edi, [_WinMapAddress]              ; set os to use all pixels
3434
        mov     eax, 0x01010101
3435
        mov     ecx, [_WinMapSize]
3436
        shr     ecx, 2
3437
        rep stosd
3438
 
3439
        mov     byte[REDRAW_BACKGROUND], 0            ; do not draw background!
3440
        ret
2513 mario79 3441
;-----------------------------------------------------------------------------
2288 clevermous 3442
uglobal
3443
  imax    dd 0x0
3444
endg
2513 mario79 3445
;-----------------------------------------------------------------------------
3446
align 4
2288 clevermous 3447
delay_ms:     ; delay in 1/1000 sec
3448
        push    eax
3449
        push    ecx
3450
 
3451
        mov     ecx, esi
3452
        ; 
3453
        imul    ecx, 33941
3454
        shr     ecx, 9
3455
        ; 
3456
 
3457
        in      al, 0x61
3458
        and     al, 0x10
3459
        mov     ah, al
3460
        cld
2513 mario79 3461
;--------------------------------------
3462
align 4
3463
cnt1:
2288 clevermous 3464
        in      al, 0x61
3465
        and     al, 0x10
3466
        cmp     al, ah
3467
        jz      cnt1
3468
 
3469
        mov     ah, al
3470
        loop    cnt1
3471
 
3472
        pop     ecx
3473
        pop     eax
3474
        ret
2513 mario79 3475
;-----------------------------------------------------------------------------
2411 Serge 3476
align 4
2288 clevermous 3477
set_app_param:
3478
        mov     edi, [TASK_BASE]
2408 Serge 3479
        mov     eax, ebx
3480
        btr     eax, 3                           ; move MOUSE_FILTRATION
3481
        mov     ebx, [current_slot]              ; bit into event_filter
3482
        setc    byte [ebx+APPDATA.event_filter]
3483
        xchg    eax, [edi + TASKDATA.event_mask] ; set new event mask
3484
        mov     [esp+32], eax                    ; return old mask value
2288 clevermous 3485
        ret
2513 mario79 3486
;-----------------------------------------------------------------------------
3487
align 4
2288 clevermous 3488
delay_hs:     ; delay in 1/100 secs
3489
; ebx = delay time
3490
        push    ecx
3491
        push    edx
3492
 
3493
        mov     edx, [timer_ticks]
2513 mario79 3494
;--------------------------------------
3495
align 4
3496
newtic:
2288 clevermous 3497
        mov     ecx, [timer_ticks]
3498
        sub     ecx, edx
3499
        cmp     ecx, ebx
3500
        jae     zerodelay
3501
 
3502
        call    change_task
3503
 
3504
        jmp     newtic
2513 mario79 3505
;--------------------------------------
3506
align 4
3507
zerodelay:
2288 clevermous 3508
        pop     edx
3509
        pop     ecx
3510
        ret
2513 mario79 3511
;-----------------------------------------------------------------------------
2288 clevermous 3512
align 16        ;very often call this subrutine
3513
memmove:       ; memory move in bytes
3514
; eax = from
3515
; ebx = to
3516
; ecx = no of bytes
3517
        test    ecx, ecx
3518
        jle     .ret
3519
 
3520
        push    esi edi ecx
3521
 
3522
        mov     edi, ebx
3523
        mov     esi, eax
3524
 
3525
        test    ecx, not 11b
3526
        jz      @f
3527
 
3528
        push    ecx
3529
        shr     ecx, 2
3530
        rep movsd
3531
        pop     ecx
3532
        and     ecx, 11b
3533
        jz      .finish
2513 mario79 3534
;--------------------------------------
3535
align 4
3536
@@:
2288 clevermous 3537
        rep movsb
2513 mario79 3538
;--------------------------------------
3539
align 4
3540
.finish:
2288 clevermous 3541
        pop     ecx edi esi
2513 mario79 3542
;--------------------------------------
3543
align 4
3544
.ret:
2288 clevermous 3545
        ret
2513 mario79 3546
;-----------------------------------------------------------------------------
2288 clevermous 3547
;  Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
3548
;align 4
3549
;
3550
;read_floppy_file:
3551
;
3552
;; as input
3553
;;
3554
;; eax pointer to file
3555
;; ebx file lenght
3556
;; ecx start 512 byte block number
3557
;; edx number of blocks to read
3558
;; esi pointer to return/work area (atleast 20 000 bytes)
3559
;;
3560
;;
3561
;; on return
3562
;;
3563
;; eax = 0 command succesful
3564
;;       1 no fd base and/or partition defined
3565
;;       2 yet unsupported FS
3566
;;       3 unknown FS
3567
;;       4 partition not defined at hd
3568
;;       5 file not found
3569
;; ebx = size of file
3570
;
3571
;     mov   edi,[TASK_BASE]
3572
;     add   edi,0x10
3573
;     add   esi,[edi]
3574
;     add   eax,[edi]
3575
;
3576
;     pushad
3577
;     mov  edi,esi
3578
;     add  edi,1024
3579
;     mov  esi,0x100000+19*512
3580
;     sub  ecx,1
3581
;     shl  ecx,9
3582
;     add  esi,ecx
3583
;     shl  edx,9
3584
;     mov  ecx,edx
3585
;     cld
3586
;     rep  movsb
3587
;     popad
3588
;
3589
;     mov   [esp+36],eax
3590
;     mov   [esp+24],ebx
3591
;     ret
3592
 
3593
 
3594
 
3595
align 4
3596
set_io_access_rights:
3597
        push    edi eax
3598
        mov     edi, tss._io_map_0
3599
;     mov   ecx,eax
3600
;     and   ecx,7    ; offset in byte
3601
;     shr   eax,3    ; number of byte
3602
;     add   edi,eax
3603
;     mov   ebx,1
3604
;     shl   ebx,cl
3605
        test    ebp, ebp
3606
;     cmp   ebp,0                ; enable access - ebp = 0
3607
        jnz     .siar1
3608
;     not   ebx
3609
;     and   [edi],byte bl
3610
        btr     [edi], eax
3611
        pop     eax edi
3612
        ret
3613
.siar1:
3614
        bts     [edi], eax
3615
  ;  or    [edi],byte bl        ; disable access - ebp = 1
3616
        pop     eax edi
3617
        ret
3618
;reserve/free group of ports
3619
;  * eax = 46 - number function
3620
;  * ebx = 0 - reserve, 1 - free
3621
;  * ecx = number start arrea of ports
3622
;  * edx = number end arrea of ports (include last number of port)
3623
;Return value:
3624
;  * eax = 0 - succesful
3625
;  * eax = 1 - error
3626
;  * The system has reserve this ports:
3627
;    0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
3628
;destroys eax,ebx, ebp
3629
r_f_port_area:
3630
 
3631
        test    ebx, ebx
3632
        jnz     free_port_area
3633
;     je    r_port_area
3634
;     jmp   free_port_area
3635
 
3636
;   r_port_area:
3637
 
3638
;     pushad
3639
 
3640
        cmp     ecx, edx      ; beginning > end ?
3641
        ja      rpal1
3642
        cmp     edx, 65536
3643
        jae     rpal1
3644
        mov     eax, [RESERVED_PORTS]
3645
        test    eax, eax      ; no reserved areas ?
3646
        je      rpal2
3647
        cmp     eax, 255      ; max reserved
3648
        jae     rpal1
3649
 rpal3:
3650
        mov     ebx, eax
3651
        shl     ebx, 4
3652
        add     ebx, RESERVED_PORTS
3653
        cmp     ecx, [ebx+8]
3654
        ja      rpal4
3655
        cmp     edx, [ebx+4]
3656
        jae     rpal1
3657
;     jb    rpal4
3658
;     jmp   rpal1
3659
 rpal4:
3660
        dec     eax
3661
        jnz     rpal3
3662
        jmp     rpal2
3663
   rpal1:
3664
;     popad
3665
;     mov   eax,1
3666
        xor     eax, eax
3667
        inc     eax
3668
        ret
3669
   rpal2:
3670
;     popad
3671
     ; enable port access at port IO map
3672
        cli
3673
        pushad                        ; start enable io map
3674
 
3675
        cmp     edx, 65536;16384
3676
        jae     no_unmask_io; jge
3677
        mov     eax, ecx
3678
;       push    ebp
3679
        xor     ebp, ebp               ; enable - eax = port
3680
new_port_access:
3681
;     pushad
3682
        call    set_io_access_rights
3683
;     popad
3684
        inc     eax
3685
        cmp     eax, edx
3686
        jbe     new_port_access
3687
;       pop     ebp
3688
no_unmask_io:
3689
        popad                         ; end enable io map
3690
        sti
3691
 
3692
        mov     eax, [RESERVED_PORTS]
3693
        add     eax, 1
3694
        mov     [RESERVED_PORTS], eax
3695
        shl     eax, 4
3696
        add     eax, RESERVED_PORTS
3697
        mov     ebx, [TASK_BASE]
3698
        mov     ebx, [ebx+TASKDATA.pid]
3699
        mov     [eax], ebx
3700
        mov     [eax+4], ecx
3701
        mov     [eax+8], edx
3702
 
3703
        xor     eax, eax
3704
        ret
3705
 
3706
free_port_area:
3707
 
3708
;     pushad
3709
        mov     eax, [RESERVED_PORTS]; no reserved areas ?
3710
        test    eax, eax
3711
        jz      frpal2
3712
        mov     ebx, [TASK_BASE]
3713
        mov     ebx, [ebx+TASKDATA.pid]
3714
   frpal3:
3715
        mov     edi, eax
3716
        shl     edi, 4
3717
        add     edi, RESERVED_PORTS
3718
        cmp     ebx, [edi]
3719
        jne     frpal4
3720
        cmp     ecx, [edi+4]
3721
        jne     frpal4
3722
        cmp     edx, [edi+8]
3723
        jne     frpal4
3724
        jmp     frpal1
3725
   frpal4:
3726
        dec     eax
3727
        jnz     frpal3
3728
   frpal2:
3729
;     popad
3730
        inc     eax
3731
        ret
3732
   frpal1:
3733
        push    ecx
3734
        mov     ecx, 256
3735
        sub     ecx, eax
3736
        shl     ecx, 4
3737
        mov     esi, edi
3738
        add     esi, 16
3739
        cld
3740
        rep movsb
3741
 
3742
        dec     dword [RESERVED_PORTS]
3743
;popad
3744
;disable port access at port IO map
3745
 
3746
;     pushad                        ; start disable io map
3747
        pop     eax     ;start port
3748
        cmp     edx, 65536;16384
3749
        jge     no_mask_io
3750
 
3751
;     mov   eax,ecx
3752
        xor     ebp, ebp
3753
        inc     ebp
3754
new_port_access_disable:
3755
;     pushad
3756
;     mov   ebp,1                  ; disable - eax = port
3757
        call    set_io_access_rights
3758
;     popad
3759
        inc     eax
3760
        cmp     eax, edx
3761
        jbe     new_port_access_disable
3762
no_mask_io:
3763
;     popad                         ; end disable io map
3764
        xor     eax, eax
3765
        ret
2430 mario79 3766
;-----------------------------------------------------------------------------
2288 clevermous 3767
align 4
3768
drawbackground:
2430 mario79 3769
dbrv20:
2288 clevermous 3770
        cmp     [BgrDrawMode], dword 1
3771
        jne     bgrstr
3772
        call    vesa20_drawbackground_tiled
2453 mario79 3773
;        call    [draw_pointer]
3774
        call    __sys_draw_pointer
2288 clevermous 3775
        ret
2430 mario79 3776
;--------------------------------------
3777
align 4
3778
bgrstr:
2288 clevermous 3779
        call    vesa20_drawbackground_stretch
2453 mario79 3780
;        call    [draw_pointer]
3781
        call    __sys_draw_pointer
2288 clevermous 3782
        ret
2430 mario79 3783
;-----------------------------------------------------------------------------
2288 clevermous 3784
align 4
3785
syscall_putimage:                       ; PutImage
3786
sys_putimage:
3787
        test    ecx, 0x80008000
3788
        jnz     .exit
3789
        test    ecx, 0x0000FFFF
3790
        jz      .exit
3791
        test    ecx, 0xFFFF0000
3792
        jnz     @f
2430 mario79 3793
;--------------------------------------
3794
align 4
3795
.exit:
2288 clevermous 3796
        ret
2430 mario79 3797
;--------------------------------------
3798
align 4
3799
@@:
2288 clevermous 3800
        mov     edi, [current_slot]
3801
        add     dx, word[edi+APPDATA.wnd_clientbox.top]
3802
        rol     edx, 16
3803
        add     dx, word[edi+APPDATA.wnd_clientbox.left]
3804
        rol     edx, 16
2430 mario79 3805
;--------------------------------------
3806
align 4
3807
.forced:
2288 clevermous 3808
        push    ebp esi 0
3809
        mov     ebp, putimage_get24bpp
3810
        mov     esi, putimage_init24bpp
2430 mario79 3811
;--------------------------------------
3812
align 4
2288 clevermous 3813
sys_putimage_bpp:
2430 mario79 3814
        call    vesa20_putimage
2288 clevermous 3815
        pop     ebp esi ebp
2430 mario79 3816
        ret
3817
;        jmp     [draw_pointer]
3818
;-----------------------------------------------------------------------------
2288 clevermous 3819
align 4
3820
sys_putimage_palette:
3821
; ebx = pointer to image
3822
; ecx = [xsize]*65536 + [ysize]
3823
; edx = [xstart]*65536 + [ystart]
3824
; esi = number of bits per pixel, must be 8, 24 or 32
3825
; edi = pointer to palette
3826
; ebp = row delta
3827
        mov     eax, [CURRENT_TASK]
3828
        shl     eax, 8
3829
        add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
3830
        rol     edx, 16
3831
        add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
3832
        rol     edx, 16
2430 mario79 3833
;--------------------------------------
3834
align 4
2288 clevermous 3835
.forced:
3836
        cmp     esi, 1
3837
        jnz     @f
3838
        push    edi
3839
        mov     eax, [edi+4]
3840
        sub     eax, [edi]
3841
        push    eax
3842
        push    dword [edi]
3843
        push    0ffffff80h
3844
        mov     edi, esp
3845
        call    put_mono_image
3846
        add     esp, 12
3847
        pop     edi
3848
        ret
2430 mario79 3849
;--------------------------------------
3850
align 4
2288 clevermous 3851
@@:
3852
        cmp     esi, 2
3853
        jnz     @f
3854
        push    edi
3855
        push    0ffffff80h
3856
        mov     edi, esp
3857
        call    put_2bit_image
3858
        pop     eax
3859
        pop     edi
3860
        ret
2430 mario79 3861
;--------------------------------------
3862
align 4
2288 clevermous 3863
@@:
3864
        cmp     esi, 4
3865
        jnz     @f
3866
        push    edi
3867
        push    0ffffff80h
3868
        mov     edi, esp
3869
        call    put_4bit_image
3870
        pop     eax
3871
        pop     edi
3872
        ret
2430 mario79 3873
;--------------------------------------
3874
align 4
2288 clevermous 3875
@@:
3876
        push    ebp esi ebp
3877
        cmp     esi, 8
3878
        jnz     @f
3879
        mov     ebp, putimage_get8bpp
3880
        mov     esi, putimage_init8bpp
3881
        jmp     sys_putimage_bpp
2430 mario79 3882
;--------------------------------------
3883
align 4
2288 clevermous 3884
@@:
3885
        cmp     esi, 15
3886
        jnz     @f
3887
        mov     ebp, putimage_get15bpp
3888
        mov     esi, putimage_init15bpp
3889
        jmp     sys_putimage_bpp
2430 mario79 3890
;--------------------------------------
3891
align 4
2288 clevermous 3892
@@:
3893
        cmp     esi, 16
3894
        jnz     @f
3895
        mov     ebp, putimage_get16bpp
3896
        mov     esi, putimage_init16bpp
3897
        jmp     sys_putimage_bpp
2430 mario79 3898
;--------------------------------------
3899
align 4
2288 clevermous 3900
@@:
3901
        cmp     esi, 24
3902
        jnz     @f
3903
        mov     ebp, putimage_get24bpp
3904
        mov     esi, putimage_init24bpp
3905
        jmp     sys_putimage_bpp
2430 mario79 3906
;--------------------------------------
3907
align 4
2288 clevermous 3908
@@:
3909
        cmp     esi, 32
3910
        jnz     @f
3911
        mov     ebp, putimage_get32bpp
3912
        mov     esi, putimage_init32bpp
3913
        jmp     sys_putimage_bpp
2430 mario79 3914
;--------------------------------------
3915
align 4
2288 clevermous 3916
@@:
3917
        pop     ebp esi ebp
3918
        ret
2430 mario79 3919
;-----------------------------------------------------------------------------
3920
align 4
2288 clevermous 3921
put_mono_image:
3922
        push    ebp esi ebp
3923
        mov     ebp, putimage_get1bpp
3924
        mov     esi, putimage_init1bpp
3925
        jmp     sys_putimage_bpp
2430 mario79 3926
;-----------------------------------------------------------------------------
3927
align 4
2288 clevermous 3928
put_2bit_image:
3929
        push    ebp esi ebp
3930
        mov     ebp, putimage_get2bpp
3931
        mov     esi, putimage_init2bpp
3932
        jmp     sys_putimage_bpp
2430 mario79 3933
;-----------------------------------------------------------------------------
3934
align 4
2288 clevermous 3935
put_4bit_image:
3936
        push    ebp esi ebp
3937
        mov     ebp, putimage_get4bpp
3938
        mov     esi, putimage_init4bpp
3939
        jmp     sys_putimage_bpp
2430 mario79 3940
;-----------------------------------------------------------------------------
3941
align 4
2288 clevermous 3942
putimage_init24bpp:
3943
        lea     eax, [eax*3]
3944
putimage_init8bpp:
3945
        ret
2430 mario79 3946
;-----------------------------------------------------------------------------
2288 clevermous 3947
align 16
3948
putimage_get24bpp:
3949
        movzx   eax, byte [esi+2]
3950
        shl     eax, 16
3951
        mov     ax, [esi]
3952
        add     esi, 3
3953
        ret     4
2430 mario79 3954
;-----------------------------------------------------------------------------
2288 clevermous 3955
align 16
3956
putimage_get8bpp:
3957
        movzx   eax, byte [esi]
3958
        push    edx
3959
        mov     edx, [esp+8]
3960
        mov     eax, [edx+eax*4]
3961
        pop     edx
3962
        inc     esi
3963
        ret     4
2430 mario79 3964
;-----------------------------------------------------------------------------
3965
align 4
2288 clevermous 3966
putimage_init1bpp:
3967
        add     eax, ecx
3968
        push    ecx
3969
        add     eax, 7
3970
        add     ecx, 7
3971
        shr     eax, 3
3972
        shr     ecx, 3
3973
        sub     eax, ecx
3974
        pop     ecx
3975
        ret
2430 mario79 3976
;-----------------------------------------------------------------------------
2288 clevermous 3977
align 16
3978
putimage_get1bpp:
3979
        push    edx
3980
        mov     edx, [esp+8]
3981
        mov     al, [edx]
3982
        add     al, al
3983
        jnz     @f
3984
        lodsb
3985
        adc     al, al
3986
@@:
3987
        mov     [edx], al
3988
        sbb     eax, eax
3989
        and     eax, [edx+8]
3990
        add     eax, [edx+4]
3991
        pop     edx
3992
        ret     4
2430 mario79 3993
;-----------------------------------------------------------------------------
3994
align 4
2288 clevermous 3995
putimage_init2bpp:
3996
        add     eax, ecx
3997
        push    ecx
3998
        add     ecx, 3
3999
        add     eax, 3
4000
        shr     ecx, 2
4001
        shr     eax, 2
4002
        sub     eax, ecx
4003
        pop     ecx
4004
        ret
2430 mario79 4005
;-----------------------------------------------------------------------------
2288 clevermous 4006
align 16
4007
putimage_get2bpp:
4008
        push    edx
4009
        mov     edx, [esp+8]
4010
        mov     al, [edx]
4011
        mov     ah, al
4012
        shr     al, 6
4013
        shl     ah, 2
4014
        jnz     .nonewbyte
4015
        lodsb
4016
        mov     ah, al
4017
        shr     al, 6
4018
        shl     ah, 2
4019
        add     ah, 1
4020
.nonewbyte:
4021
        mov     [edx], ah
4022
        mov     edx, [edx+4]
4023
        movzx   eax, al
4024
        mov     eax, [edx+eax*4]
4025
        pop     edx
4026
        ret     4
2430 mario79 4027
;-----------------------------------------------------------------------------
4028
align 4
2288 clevermous 4029
putimage_init4bpp:
4030
        add     eax, ecx
4031
        push    ecx
4032
        add     ecx, 1
4033
        add     eax, 1
4034
        shr     ecx, 1
4035
        shr     eax, 1
4036
        sub     eax, ecx
4037
        pop     ecx
4038
        ret
2430 mario79 4039
;-----------------------------------------------------------------------------
2288 clevermous 4040
align 16
4041
putimage_get4bpp:
4042
        push    edx
4043
        mov     edx, [esp+8]
4044
        add     byte [edx], 80h
4045
        jc      @f
4046
        movzx   eax, byte [edx+1]
4047
        mov     edx, [edx+4]
4048
        and     eax, 0x0F
4049
        mov     eax, [edx+eax*4]
4050
        pop     edx
4051
        ret     4
4052
@@:
4053
        movzx   eax, byte [esi]
4054
        add     esi, 1
4055
        mov     [edx+1], al
4056
        shr     eax, 4
4057
        mov     edx, [edx+4]
4058
        mov     eax, [edx+eax*4]
4059
        pop     edx
4060
        ret     4
2430 mario79 4061
;-----------------------------------------------------------------------------
4062
align 4
2288 clevermous 4063
putimage_init32bpp:
4064
        shl     eax, 2
4065
        ret
2430 mario79 4066
;-----------------------------------------------------------------------------
2288 clevermous 4067
align 16
4068
putimage_get32bpp:
4069
        lodsd
4070
        ret     4
2430 mario79 4071
;-----------------------------------------------------------------------------
4072
align 4
2288 clevermous 4073
putimage_init15bpp:
4074
putimage_init16bpp:
4075
        add     eax, eax
4076
        ret
2430 mario79 4077
;-----------------------------------------------------------------------------
2288 clevermous 4078
align 16
4079
putimage_get15bpp:
4080
; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
4081
        push    ecx edx
4082
        movzx   eax, word [esi]
4083
        add     esi, 2
4084
        mov     ecx, eax
4085
        mov     edx, eax
4086
        and     eax, 0x1F
4087
        and     ecx, 0x1F shl 5
4088
        and     edx, 0x1F shl 10
4089
        shl     eax, 3
4090
        shl     ecx, 6
4091
        shl     edx, 9
4092
        or      eax, ecx
4093
        or      eax, edx
4094
        pop     edx ecx
4095
        ret     4
2430 mario79 4096
;-----------------------------------------------------------------------------
2288 clevermous 4097
align 16
4098
putimage_get16bpp:
4099
; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
4100
        push    ecx edx
4101
        movzx   eax, word [esi]
4102
        add     esi, 2
4103
        mov     ecx, eax
4104
        mov     edx, eax
4105
        and     eax, 0x1F
4106
        and     ecx, 0x3F shl 5
4107
        and     edx, 0x1F shl 11
4108
        shl     eax, 3
4109
        shl     ecx, 5
4110
        shl     edx, 8
4111
        or      eax, ecx
4112
        or      eax, edx
4113
        pop     edx ecx
4114
        ret     4
2430 mario79 4115
;-----------------------------------------------------------------------------
4116
;align 4
2288 clevermous 4117
; eax x beginning
4118
; ebx y beginning
4119
; ecx x end
4120
        ; edx y end
4121
; edi color
2430 mario79 4122
;__sys_drawbar:
4123
;        mov     esi, [current_slot]
4124
;        add     eax, [esi+APPDATA.wnd_clientbox.left]
4125
;        add     ecx, [esi+APPDATA.wnd_clientbox.left]
4126
;        add     ebx, [esi+APPDATA.wnd_clientbox.top]
4127
;        add     edx, [esi+APPDATA.wnd_clientbox.top]
4128
;--------------------------------------
4129
;align 4
4130
;.forced:
4131
;        call    vesa20_drawbar
2407 mario79 4132
;        call    [draw_pointer]
4133
;        ret
2430 mario79 4134
;-----------------------------------------------------------------------------
4135
align 4
2288 clevermous 4136
kb_read:
4137
 
4138
        push    ecx edx
4139
 
4140
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
4141
      kr_loop:
4142
        in      al, 0x64
4143
        test    al, 1
4144
        jnz     kr_ready
4145
        loop    kr_loop
4146
        mov     ah, 1
4147
        jmp     kr_exit
4148
      kr_ready:
4149
        push    ecx
4150
        mov     ecx, 32
4151
      kr_delay:
4152
        loop    kr_delay
4153
        pop     ecx
4154
        in      al, 0x60
4155
        xor     ah, ah
4156
      kr_exit:
4157
 
4158
        pop     edx ecx
4159
 
4160
        ret
2430 mario79 4161
;-----------------------------------------------------------------------------
4162
align 4
2288 clevermous 4163
kb_write:
4164
 
4165
        push    ecx edx
4166
 
4167
        mov     dl, al
4168
;        mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
4169
;      kw_loop1:
4170
;        in      al,0x64
4171
;        test    al,0x20
4172
;        jz      kw_ok1
4173
;        loop    kw_loop1
4174
;        mov     ah,1
4175
;        jmp     kw_exit
4176
;      kw_ok1:
4177
        in      al, 0x60
4178
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
4179
      kw_loop:
4180
        in      al, 0x64
4181
        test    al, 2
4182
        jz      kw_ok
4183
        loop    kw_loop
4184
        mov     ah, 1
4185
        jmp     kw_exit
4186
      kw_ok:
4187
        mov     al, dl
4188
        out     0x60, al
4189
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
4190
      kw_loop3:
4191
        in      al, 0x64
4192
        test    al, 2
4193
        jz      kw_ok3
4194
        loop    kw_loop3
4195
        mov     ah, 1
4196
        jmp     kw_exit
4197
      kw_ok3:
4198
        mov     ah, 8
4199
      kw_loop4:
4200
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
4201
      kw_loop5:
4202
        in      al, 0x64
4203
        test    al, 1
4204
        jnz     kw_ok4
4205
        loop    kw_loop5
4206
        dec     ah
4207
        jnz     kw_loop4
4208
      kw_ok4:
4209
        xor     ah, ah
4210
      kw_exit:
4211
 
4212
        pop     edx ecx
4213
 
4214
        ret
2430 mario79 4215
;-----------------------------------------------------------------------------
4216
align 4
2288 clevermous 4217
kb_cmd:
4218
 
4219
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
4220
      c_wait:
4221
        in      al, 0x64
4222
        test    al, 2
4223
        jz      c_send
4224
        loop    c_wait
4225
        jmp     c_error
4226
      c_send:
4227
        mov     al, bl
4228
        out     0x64, al
4229
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
4230
      c_accept:
4231
        in      al, 0x64
4232
        test    al, 2
4233
        jz      c_ok
4234
        loop    c_accept
4235
      c_error:
4236
        mov     ah, 1
4237
        jmp     c_exit
4238
      c_ok:
4239
        xor     ah, ah
4240
      c_exit:
4241
        ret
4242
 
4243
 
4244
setmouse:  ; set mousepicture -pointer
4245
           ; ps2 mouse enable
4246
 
2430 mario79 4247
;        mov     [MOUSE_PICTURE], dword mousepointer
2288 clevermous 4248
 
4249
        cli
4250
 
4251
        ret
4252
 
4253
if used _rdtsc
4254
_rdtsc:
4255
        bt      [cpu_caps], CAPS_TSC
4256
        jnc     ret_rdtsc
4257
        rdtsc
4258
        ret
4259
   ret_rdtsc:
4260
        mov     edx, 0xffffffff
4261
        mov     eax, 0xffffffff
4262
        ret
4263
end if
4264
 
4265
sys_msg_board_str:
4266
 
4267
        pushad
4268
   @@:
4269
        cmp     [esi], byte 0
4270
        je      @f
4271
        mov     eax, 1
4272
        movzx   ebx, byte [esi]
4273
        call    sys_msg_board
4274
        inc     esi
4275
        jmp     @b
4276
   @@:
4277
        popad
4278
        ret
4279
 
4280
sys_msg_board_byte:
4281
; in: al = byte to display
4282
; out: nothing
4283
; destroys: nothing
4284
        pushad
4285
        mov     ecx, 2
4286
        shl     eax, 24
4287
        jmp     @f
4288
 
4289
sys_msg_board_word:
4290
; in: ax = word to display
4291
; out: nothing
4292
; destroys: nothing
4293
        pushad
4294
        mov     ecx, 4
4295
        shl     eax, 16
4296
        jmp     @f
4297
 
4298
sys_msg_board_dword:
4299
; in: eax = dword to display
4300
; out: nothing
4301
; destroys: nothing
4302
        pushad
4303
        mov     ecx, 8
4304
@@:
4305
        push    ecx
4306
        rol     eax, 4
4307
        push    eax
4308
        and     al, 0xF
4309
        cmp     al, 10
4310
        sbb     al, 69h
4311
        das
4312
        mov     bl, al
4313
        xor     eax, eax
4314
        inc     eax
4315
        call    sys_msg_board
4316
        pop     eax
4317
        pop     ecx
4318
        loop    @b
4319
        popad
4320
        ret
4321
 
4322
uglobal
4323
  msg_board_data:
4324
                  times 4096 db 0
4325
  msg_board_count dd 0x0
4326
endg
4327
 
4328
sys_msg_board:
4329
 
4330
; eax=1 : write :  bl byte to write
4331
; eax=2 :  read :  ebx=0 -> no data, ebx=1 -> data in al
4332
 
4333
        mov     ecx, [msg_board_count]
4334
        cmp     eax, 1
4335
        jne     .smbl1
4336
 
4337
if defined debug_com_base
4338
 
4339
        push    dx ax
4340
 
4341
       @@:                              ; Wait for empty transmit register  (yes, this slows down system..)
4342
        mov     dx, debug_com_base+5
4343
        in      al, dx
4344
        test    al, 1 shl 5
4345
        jz      @r
4346
 
4347
        mov     dx, debug_com_base      ; Output the byte
4348
        mov     al, bl
4349
        out     dx, al
4350
 
4351
        pop     ax dx
4352
 
4353
end if
4354
 
4355
        mov     [msg_board_data+ecx], bl
4356
        inc     ecx
4357
        and     ecx, 4095
4358
        mov     [msg_board_count], ecx
4359
        mov     [check_idle_semaphore], 5
4360
        ret
4361
.smbl1:
4362
        cmp     eax, 2
4363
        jne     .smbl2
4364
        test    ecx, ecx
4365
        jz      .smbl21
4366
        mov     eax, msg_board_data+1
4367
        mov     ebx, msg_board_data
4368
        movzx   edx, byte [ebx]
4369
        call    memmove
4370
        dec     [msg_board_count]
4371
        mov     [esp + 36], edx ;eax
4372
        mov     [esp + 24], dword 1
4373
        ret
4374
.smbl21:
4375
        mov     [esp+36], ecx
4376
        mov     [esp+24], ecx
4377
.smbl2:
4378
        ret
4379
 
4380
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4381
;; 66 sys function.                                                ;;
4382
;; in eax=66,ebx in [0..5],ecx,edx                                 ;;
4383
;; out eax                                                         ;;
4384
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4385
iglobal
4386
align 4
4387
f66call:
4388
           dd sys_process_def.1   ; 1 = set keyboard mode
4389
           dd sys_process_def.2   ; 2 = get keyboard mode
4390
           dd sys_process_def.3   ; 3 = get keyboard ctrl, alt, shift
4391
           dd sys_process_def.4
4392
           dd sys_process_def.5
4393
endg
4394
 
4395
 
4396
 
4397
 
4398
sys_process_def:
4399
        dec     ebx
4400
        cmp     ebx, 5
4401
        jae     .not_support    ;if >=6 then or eax,-1
4402
 
4403
        mov     edi, [CURRENT_TASK]
4404
        jmp     dword [f66call+ebx*4]
4405
 
4406
.not_support:
4407
        or      eax, -1
4408
        ret
4409
 
4410
.1:
4411
        shl     edi, 8
4412
        mov     [edi+SLOT_BASE + APPDATA.keyboard_mode], cl
4413
 
4414
        ret
4415
 
4416
.2:                             ; 2 = get keyboard mode
4417
        shl     edi, 8
4418
        movzx   eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
4419
        mov     [esp+32], eax
4420
        ret
4421
;     xor   eax,eax
4422
;     movzx eax,byte [shift]
4423
;     movzx ebx,byte [ctrl]
4424
;     shl   ebx,2
4425
;     add   eax,ebx
4426
;     movzx ebx,byte [alt]
4427
;     shl   ebx,3
4428
;     add   eax,ebx
4429
.3:                             ;3 = get keyboard ctrl, alt, shift
4430
 ;// mike.dld [
4431
        mov     eax, [kb_state]
4432
 ;// mike.dld ]
4433
        mov     [esp+32], eax
4434
        ret
4435
 
4436
.4:
4437
        mov     eax, hotkey_list
4438
@@:
4439
        cmp     dword [eax+8], 0
4440
        jz      .found_free
4441
        add     eax, 16
4442
        cmp     eax, hotkey_list+16*256
4443
        jb      @b
4444
        mov     dword [esp+32], 1
4445
        ret
4446
.found_free:
4447
        mov     [eax+8], edi
4448
        mov     [eax+4], edx
4449
        movzx   ecx, cl
4450
        lea     ecx, [hotkey_scancodes+ecx*4]
4451
        mov     edx, [ecx]
4452
        mov     [eax], edx
4453
        mov     [ecx], eax
4454
        mov     [eax+12], ecx
4455
        jecxz   @f
4456
        mov     [edx+12], eax
4457
@@:
4458
        and     dword [esp+32], 0
4459
        ret
4460
 
4461
.5:
4462
        movzx   ebx, cl
4463
        lea     ebx, [hotkey_scancodes+ebx*4]
4464
        mov     eax, [ebx]
4465
.scan:
4466
        test    eax, eax
4467
        jz      .notfound
4468
        cmp     [eax+8], edi
4469
        jnz     .next
4470
        cmp     [eax+4], edx
4471
        jz      .found
4472
.next:
4473
        mov     eax, [eax]
4474
        jmp     .scan
4475
.notfound:
4476
        mov     dword [esp+32], 1
4477
        ret
4478
.found:
4479
        mov     ecx, [eax]
4480
        jecxz   @f
4481
        mov     edx, [eax+12]
4482
        mov     [ecx+12], edx
4483
@@:
4484
        mov     ecx, [eax+12]
4485
        mov     edx, [eax]
4486
        mov     [ecx], edx
4487
        xor     edx, edx
4488
        mov     [eax+4], edx
4489
        mov     [eax+8], edx
4490
        mov     [eax+12], edx
4491
        mov     [eax], edx
4492
        mov     [esp+32], edx
4493
        ret
4494
 
4495
 
4496
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4497
;; 61 sys function.                                                ;;
4498
;; in eax=61,ebx in [1..3]                                         ;;
4499
;; out eax                                                         ;;
4500
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4501
iglobal
4502
align 4
4503
f61call:
4504
           dd sys_gs.1   ; resolution
4505
           dd sys_gs.2   ; bits per pixel
4506
           dd sys_gs.3   ; bytes per scanline
4507
endg
4508
 
4509
 
4510
align 4
4511
 
4512
sys_gs:                         ; direct screen access
4513
        dec     ebx
4514
        cmp     ebx, 2
4515
        ja      .not_support
4516
        jmp     dword [f61call+ebx*4]
4517
.not_support:
4518
        or      [esp+32], dword -1
4519
        ret
4520
 
4521
 
4522
.1:                             ; resolution
4523
        mov     eax, [Screen_Max_X]
4524
        shl     eax, 16
4525
        mov     ax, [Screen_Max_Y]
4526
        add     eax, 0x00010001
4527
        mov     [esp+32], eax
4528
        ret
4529
.2:                             ; bits per pixel
4530
        movzx   eax, byte [ScreenBPP]
4531
        mov     [esp+32], eax
4532
        ret
4533
.3:                             ; bytes per scanline
4534
        mov     eax, [BytesPerScanLine]
4535
        mov     [esp+32], eax
4536
        ret
4537
 
4538
align 4  ;  system functions
4539
 
4540
syscall_setpixel:                       ; SetPixel
4541
 
4542
        mov     eax, ebx
4543
        mov     ebx, ecx
4544
        mov     ecx, edx
4545
        mov     edx, [TASK_BASE]
4546
        add     eax, [edx-twdw+WDATA.box.left]
4547
        add     ebx, [edx-twdw+WDATA.box.top]
4548
        mov     edi, [current_slot]
4549
        add     eax, [edi+APPDATA.wnd_clientbox.left]
4550
        add     ebx, [edi+APPDATA.wnd_clientbox.top]
4551
        xor     edi, edi ; no force
2430 mario79 4552
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 save to mouseunder area
2453 mario79 4553
;        jmp     [putpixel]
4554
        jmp     __sys_putpixel
2288 clevermous 4555
 
4556
align 4
4557
 
4558
syscall_writetext:                      ; WriteText
4559
 
4560
        mov     eax, [TASK_BASE]
4561
        mov     ebp, [eax-twdw+WDATA.box.left]
4562
        push    esi
4563
        mov     esi, [current_slot]
4564
        add     ebp, [esi+APPDATA.wnd_clientbox.left]
4565
        shl     ebp, 16
4566
        add     ebp, [eax-twdw+WDATA.box.top]
4567
        add     bp, word[esi+APPDATA.wnd_clientbox.top]
4568
        pop     esi
4569
        add     ebx, ebp
4570
        mov     eax, edi
4571
        xor     edi, edi
4572
        jmp     dtext
4573
 
4574
align 4
4575
 
4576
syscall_openramdiskfile:                ; OpenRamdiskFile
4577
 
4578
        mov     eax, ebx
4579
        mov     ebx, ecx
4580
        mov     ecx, edx
4581
        mov     edx, esi
4582
        mov     esi, 12
4583
        call    fileread
4584
        mov     [esp+32], eax
4585
        ret
4586
 
4587
align 4
4588
 
4589
syscall_drawrect:                       ; DrawRect
4590
 
4591
        mov     edi, edx ; color + gradient
4592
        and     edi, 0x80FFFFFF
4593
        test    bx, bx  ; x.size
4594
        je      .drectr
4595
        test    cx, cx ; y.size
4596
        je      .drectr
4597
 
4598
        mov     eax, ebx ; bad idea
4599
        mov     ebx, ecx
4600
 
4601
        movzx   ecx, ax ; ecx - x.size
4602
        shr     eax, 16 ; eax - x.coord
4603
        movzx   edx, bx ; edx - y.size
4604
        shr     ebx, 16 ; ebx - y.coord
4605
        mov     esi, [current_slot]
4606
 
4607
        add     eax, [esi + APPDATA.wnd_clientbox.left]
4608
        add     ebx, [esi + APPDATA.wnd_clientbox.top]
4609
        add     ecx, eax
4610
        add     edx, ebx
2453 mario79 4611
;        jmp     [drawbar]
4612
        jmp     vesa20_drawbar
2288 clevermous 4613
.drectr:
4614
        ret
4615
 
4616
align 4
4617
syscall_getscreensize:                  ; GetScreenSize
4618
        mov     ax, [Screen_Max_X]
4619
        shl     eax, 16
4620
        mov     ax, [Screen_Max_Y]
4621
        mov     [esp + 32], eax
4622
        ret
4623
 
4624
align 4
4625
 
4626
syscall_cdaudio:                        ; CD
4627
 
4628
        cmp     ebx, 4
4629
        jb      .audio
4630
        jz      .eject
4631
        cmp     ebx, 5
4632
        jnz     .ret
4633
.load:
4634
        call    .reserve
4635
        call    LoadMedium
4636
        ;call    .free
4637
        jmp     .free
4638
;        ret
4639
.eject:
4640
        call    .reserve
4641
        call    clear_CD_cache
4642
        call    allow_medium_removal
4643
        call    EjectMedium
4644
;        call    .free
4645
        jmp     .free
4646
;        ret
4647
.audio:
4648
        call    sys_cd_audio
4649
        mov     [esp+36-4], eax
4650
.ret:
4651
        ret
4652
 
4653
.reserve:
4654
        call    reserve_cd
4655
        mov     eax, ecx
4656
        shr     eax, 1
4657
        and     eax, 1
4658
        inc     eax
4659
        mov     [ChannelNumber], ax
4660
        mov     eax, ecx
4661
        and     eax, 1
4662
        mov     [DiskNumber], al
4663
        call    reserve_cd_channel
4664
        and     ebx, 3
4665
        inc     ebx
4666
        mov     [cdpos], ebx
4667
        add     ebx, ebx
4668
        mov     cl, 8
4669
        sub     cl, bl
4670
        mov     al, [DRIVE_DATA+1]
4671
        shr     al, cl
4672
        test    al, 2
4673
        jz      .free;.err
4674
        ret
4675
.free:
4676
        call    free_cd_channel
4677
        and     [cd_status], 0
4678
        ret
4679
.err:
4680
        call    .free
4681
;        pop     eax
4682
        ret
2511 mario79 4683
;-----------------------------------------------------------------------------
2288 clevermous 4684
align 4
2511 mario79 4685
syscall_getpixel_WinMap:                       ; GetPixel WinMap
4686
        cmp     ebx, [Screen_Max_X]
4687
        jbe     @f
4688
        cmp     ecx, [Screen_Max_Y]
4689
        jbe     @f
4690
        xor     eax, eax
4691
        jmp     .store
4692
;--------------------------------------
4693
align 4
4694
@@:
4695
        mov     eax, [d_width_calc_area + ecx*4]
4696
        add     eax, [_WinMapAddress]
4697
        movzx   eax, byte[eax+ebx]        ; get value for current point
4698
;--------------------------------------
4699
align 4
4700
.store:
4701
        mov     [esp + 32], eax
4702
        ret
4703
;-----------------------------------------------------------------------------
4704
align 4
2288 clevermous 4705
syscall_getpixel:                       ; GetPixel
4706
        mov     ecx, [Screen_Max_X]
4707
        inc     ecx
4708
        xor     edx, edx
4709
        mov     eax, ebx
4710
        div     ecx
4711
        mov     ebx, edx
4712
        xchg    eax, ebx
2430 mario79 4713
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 use mouseunder area
2288 clevermous 4714
        call    dword [GETPIXEL]; eax - x, ebx - y
4715
        mov     [esp + 32], ecx
4716
        ret
2509 mario79 4717
;-----------------------------------------------------------------------------
2288 clevermous 4718
align 4
4719
syscall_getarea:
4720
;eax = 36
4721
;ebx = pointer to bufer for img BBGGRRBBGGRR...
4722
;ecx = [size x]*65536 + [size y]
4723
;edx = [start x]*65536 + [start y]
4724
        pushad
4725
        mov     edi, ebx
4726
        mov     eax, edx
4727
        shr     eax, 16
4728
        mov     ebx, edx
4729
        and     ebx, 0xffff
4730
        dec     eax
4731
        dec     ebx
4732
     ; eax - x, ebx - y
4733
        mov     edx, ecx
4734
 
4735
        shr     ecx, 16
4736
        and     edx, 0xffff
4737
        mov     esi, ecx
4738
     ; ecx - size x, edx - size y
4739
 
4740
        mov     ebp, edx
4741
        dec     ebp
4742
        lea     ebp, [ebp*3]
4743
 
4744
        imul    ebp, esi
4745
 
4746
        mov     esi, ecx
4747
        dec     esi
4748
        lea     esi, [esi*3]
4749
 
4750
        add     ebp, esi
4751
        add     ebp, edi
4752
 
4753
        add     ebx, edx
2509 mario79 4754
;--------------------------------------
4755
align 4
2288 clevermous 4756
.start_y:
4757
        push    ecx edx
2509 mario79 4758
;--------------------------------------
4759
align 4
2288 clevermous 4760
.start_x:
4761
        push    eax ebx ecx
4762
        add     eax, ecx
4763
 
2430 mario79 4764
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 use mouseunder area
2288 clevermous 4765
        call    dword [GETPIXEL]; eax - x, ebx - y
4766
 
4767
        mov     [ebp], cx
4768
        shr     ecx, 16
4769
        mov     [ebp+2], cl
4770
 
4771
        pop     ecx ebx eax
4772
        sub     ebp, 3
4773
        dec     ecx
4774
        jnz     .start_x
4775
        pop     edx ecx
4776
        dec     ebx
4777
        dec     edx
4778
        jnz     .start_y
4779
        popad
4780
        ret
2509 mario79 4781
;-----------------------------------------------------------------------------
4782
align 4
4783
syscall_putarea_backgr:
4784
;eax = 25
4785
;ebx = pointer to bufer for img BBGGRRBBGGRR...
4786
;ecx = [size x]*65536 + [size y]
4787
;edx = [start x]*65536 + [start y]
4788
        pushad
4789
        mov     edi, ebx
4790
        mov     eax, edx
4791
        shr     eax, 16
4792
        mov     ebx, edx
4793
        and     ebx, 0xffff
4794
        dec     eax
4795
        dec     ebx
4796
; eax - x, ebx - y
4797
        mov     edx, ecx
4798
        shr     ecx, 16
4799
        and     edx, 0xffff
4800
        mov     esi, ecx
4801
; ecx - size x, edx - size y
4802
        mov     ebp, edx
4803
        dec     ebp
4804
        shl     ebp, 2
2288 clevermous 4805
 
2509 mario79 4806
        imul    ebp, esi
4807
 
4808
        mov     esi, ecx
4809
        dec     esi
4810
        shl     esi, 2
4811
 
4812
        add     ebp, esi
4813
        add     ebp, edi
4814
 
4815
        add     ebx, edx
4816
;--------------------------------------
2288 clevermous 4817
align 4
2509 mario79 4818
.start_y:
4819
        push    ecx edx
4820
;--------------------------------------
4821
align 4
4822
.start_x:
4823
        push    eax ecx
4824
        add     eax, ecx
2288 clevermous 4825
 
2509 mario79 4826
        mov     ecx, [ebp]
4827
        rol     ecx, 8
4828
        test    cl, cl        ; transparensy = 0
4829
        jz      .no_put
4830
 
4831
        xor     cl, cl
4832
        ror     ecx, 8
4833
 
4834
        pushad
4835
        mov     edx, [d_width_calc_area + ebx*4]
4836
        add     edx, [_WinMapAddress]
4837
        movzx   edx, byte [eax+edx]
4838
        cmp     dl, byte 1
4839
        jne     @f
4840
 
4841
        call    dword [PUTPIXEL]; eax - x, ebx - y
4842
;--------------------------------------
4843
align 4
4844
@@:
4845
        popad
4846
;--------------------------------------
4847
align 4
4848
.no_put:
4849
        pop     ecx eax
4850
 
4851
        sub     ebp, 4
4852
        dec     ecx
4853
        jnz     .start_x
4854
 
4855
        pop     edx ecx
4856
        dec     ebx
4857
        dec     edx
4858
        jnz     .start_y
4859
 
4860
        popad
4861
        ret
4862
;-----------------------------------------------------------------------------
4863
align 4
2288 clevermous 4864
syscall_drawline:                       ; DrawLine
4865
 
4866
        mov     edi, [TASK_BASE]
4867
        movzx   eax, word[edi-twdw+WDATA.box.left]
4868
        mov     ebp, eax
4869
        mov     esi, [current_slot]
4870
        add     ebp, [esi+APPDATA.wnd_clientbox.left]
4871
        add     ax, word[esi+APPDATA.wnd_clientbox.left]
4872
        add     ebp, ebx
4873
        shl     eax, 16
4874
        movzx   ebx, word[edi-twdw+WDATA.box.top]
4875
        add     eax, ebp
4876
        mov     ebp, ebx
4877
        add     ebp, [esi+APPDATA.wnd_clientbox.top]
4878
        add     bx, word[esi+APPDATA.wnd_clientbox.top]
4879
        add     ebp, ecx
4880
        shl     ebx, 16
4881
        xor     edi, edi
4882
        add     ebx, ebp
4883
        mov     ecx, edx
2453 mario79 4884
;        jmp     [draw_line]
4885
        jmp     __sys_draw_line
2288 clevermous 4886
 
4887
 
4888
align 4
4889
syscall_reserveportarea:                ; ReservePortArea and FreePortArea
4890
 
4891
        call    r_f_port_area
4892
        mov     [esp+32], eax
4893
        ret
4894
 
4895
align 4
4896
syscall_threads:                        ; CreateThreads
4897
; eax=1 create thread
4898
;
4899
;   ebx=thread start
4900
;   ecx=thread stack value
4901
;
4902
; on return : eax = pid
4903
 
4904
        call    new_sys_threads
4905
 
4906
        mov     [esp+32], eax
4907
        ret
4908
 
4909
align 4
4910
 
4911
stack_driver_stat:
4912
 
4913
        call    app_stack_handler       ; Stack status
4914
 
4915
;     mov   [check_idle_semaphore],5    ; enable these for zero delay
4916
;     call  change_task                 ; between sent packet
4917
 
4918
        mov     [esp+32], eax
4919
        ret
4920
 
4921
align 4
4922
 
4923
socket:                                 ; Socket interface
4924
        call    app_socket_handler
4925
 
4926
;     mov   [check_idle_semaphore],5    ; enable these for zero delay
4927
;     call  change_task                 ; between sent packet
4928
 
4929
        mov     [esp+36], eax
4930
        mov     [esp+24], ebx
4931
        ret
4932
 
4933
align 4
4934
 
4935
read_from_hd:                           ; Read from hd - fn not in use
4936
 
4937
        mov     edi, [TASK_BASE]
4938
        add     edi, TASKDATA.mem_start
4939
        add     eax, [edi]
4940
        add     ecx, [edi]
4941
        add     edx, [edi]
4942
        call    file_read
4943
 
4944
        mov     [esp+36], eax
4945
        mov     [esp+24], ebx
4946
 
4947
        ret
4948
 
4949
paleholder:
4950
        ret
2438 mario79 4951
;------------------------------------------------------------------------------
2288 clevermous 4952
align 4
2438 mario79 4953
calculate_fast_getting_offset_for_WinMapAddress:
4954
; calculate data area for fast getting offset to _WinMapAddress
2446 mario79 4955
        xor     eax, eax
2438 mario79 4956
        mov     ecx, [_display.height]
4957
        inc     ecx
4958
        mov     edi, d_width_calc_area
4959
        cld
4960
@@:
4961
        stosd
4962
        add     eax, [_display.width]
4963
        dec     ecx
4964
        jnz     @r
4965
        ret
4966
;------------------------------------------------------------------------------
4967
align 4
2480 mario79 4968
calculate_fast_getting_offset_for_LFB:
4969
; calculate data area for fast getting offset to LFB
4970
        xor     eax, eax
4971
        mov     ecx, [_display.height]
4972
        inc     ecx
4973
        mov     edi, BPSLine_calc_area
4974
        cld
4975
@@:
4976
        stosd
4977
        add     eax, [BytesPerScanLine]
4978
        dec     ecx
4979
        jnz     @r
4980
        ret
4981
;------------------------------------------------------------------------------
4982
align 4
2288 clevermous 4983
set_screen:
4984
        cmp     eax, [Screen_Max_X]
4985
        jne     .set
4986
 
4987
        cmp     edx, [Screen_Max_Y]
4988
        jne     .set
4989
        ret
4990
.set:
4991
        pushfd
4992
        cli
4993
 
4994
        mov     [Screen_Max_X], eax
4995
        mov     [Screen_Max_Y], edx
4996
        mov     [BytesPerScanLine], ecx
4997
 
4998
        mov     [screen_workarea.right], eax
4999
        mov     [screen_workarea.bottom], edx
5000
 
5001
        push    ebx
5002
        push    esi
5003
        push    edi
5004
 
5005
        pushad
5006
 
5007
        stdcall kernel_free, [_WinMapAddress]
5008
 
5009
        mov     eax, [_display.width]
5010
        mul     [_display.height]
5011
        mov     [_WinMapSize], eax
5012
 
5013
        stdcall kernel_alloc, eax
5014
        mov     [_WinMapAddress], eax
5015
        test    eax, eax
5016
        jz      .epic_fail
5017
 
2438 mario79 5018
        call    calculate_fast_getting_offset_for_WinMapAddress
5019
 
2288 clevermous 5020
        popad
5021
 
5022
        call    repos_windows
5023
        xor     eax, eax
5024
        xor     ebx, ebx
5025
        mov     ecx, [Screen_Max_X]
5026
        mov     edx, [Screen_Max_Y]
5027
        call    calculatescreen
5028
        pop     edi
5029
        pop     esi
5030
        pop     ebx
5031
 
5032
        popfd
5033
        ret
5034
 
5035
.epic_fail:
5036
        hlt                     ; Houston, we've had a problem
5037
 
5038
; --------------- APM ---------------------
5039
uglobal
5040
apm_entry       dp      0
5041
apm_vf          dd      0
5042
endg
5043
 
5044
align 4
5045
sys_apm:
5046
        xor     eax, eax
5047
        cmp     word [apm_vf], ax       ; Check APM BIOS enable
5048
        jne     @f
5049
        inc     eax
5050
        or      dword [esp + 44], eax   ; error
5051
        add     eax, 7
5052
        mov     dword [esp + 32], eax   ; 32-bit protected-mode interface not supported
5053
        ret
5054
 
5055
@@:
5056
;       xchg    eax, ecx
5057
;       xchg    ebx, ecx
5058
 
5059
        cmp     dx, 3
5060
        ja      @f
5061
        and     [esp + 44], byte 0xfe    ; emulate func 0..3 as func 0
5062
        mov     eax, [apm_vf]
5063
        mov     [esp + 32], eax
5064
        shr     eax, 16
5065
        mov     [esp + 28], eax
5066
        ret
5067
 
5068
@@:
5069
 
5070
        mov     esi, [master_tab+(OS_BASE shr 20)]
5071
        xchg    [master_tab], esi
5072
        push    esi
5073
        mov     edi, cr3
5074
        mov     cr3, edi                ;flush TLB
5075
 
5076
        call    pword [apm_entry]       ;call APM BIOS
5077
 
5078
        xchg    eax, [esp]
5079
        mov     [master_tab], eax
5080
        mov     eax, cr3
5081
        mov     cr3, eax
5082
        pop     eax
5083
 
5084
        mov     [esp + 4 ], edi
5085
        mov     [esp + 8], esi
5086
        mov     [esp + 20], ebx
5087
        mov     [esp + 24], edx
5088
        mov     [esp + 28], ecx
5089
        mov     [esp + 32], eax
5090
        setc    al
5091
        and     [esp + 44], byte 0xfe
5092
        or      [esp + 44], al
5093
        ret
5094
; -----------------------------------------
5095
 
5096
align 4
5097
 
5098
undefined_syscall:                      ; Undefined system call
5099
        mov     [esp + 32], dword -1
5100
        ret
5101
 
5102
align 4
5103
system_shutdown:          ; shut down the system
5104
 
5105
        cmp     byte [BOOT_VAR+0x9030], 1
5106
        jne     @F
5107
        ret
5108
@@:
5109
        call    stop_all_services
5110
        push    3                ; stop playing cd
5111
        pop     eax
5112
        call    sys_cd_audio
5113
 
5114
yes_shutdown_param:
5115
        cli
5116
 
5117
if ~ defined extended_primary_loader
5118
        mov     eax, kernel_file ; load kernel.mnt to 0x7000:0
5119
        push    12
5120
        pop     esi
5121
        xor     ebx, ebx
5122
        or      ecx, -1
5123
        mov     edx, OS_BASE+0x70000
5124
        call    fileread
5125
 
5126
        mov     esi, restart_kernel_4000+OS_BASE+0x10000 ; move kernel re-starter to 0x4000:0
5127
        mov     edi, OS_BASE+0x40000
5128
        mov     ecx, 1000
5129
        rep movsb
5130
end if
5131
 
5132
        mov     esi, BOOT_VAR    ; restore 0x0 - 0xffff
5133
        mov     edi, OS_BASE
5134
        mov     ecx, 0x10000/4
5135
        cld
5136
        rep movsd
5137
 
5138
        call    restorefatchain
5139
 
5140
        call    IRQ_mask_all
5141
 
5142
if 0
5143
        mov     word [OS_BASE+0x467+0], pr_mode_exit
5144
        mov     word [OS_BASE+0x467+2], 0x1000
5145
 
5146
        mov     al, 0x0F
5147
        out     0x70, al
5148
        mov     al, 0x05
5149
        out     0x71, al
5150
 
5151
        mov     al, 0xFE
5152
        out     0x64, al
5153
 
5154
        hlt
5155
        jmp     $-1
5156
 
5157
else
5158
        cmp     byte [OS_BASE + 0x9030], 2
5159
        jnz     no_acpi_power_off
5160
 
5161
; scan for RSDP
5162
; 1) The first 1 Kb of the Extended BIOS Data Area (EBDA).
5163
        movzx   eax, word [OS_BASE + 0x40E]
5164
        shl     eax, 4
5165
        jz      @f
5166
        mov     ecx, 1024/16
5167
        call    scan_rsdp
5168
        jnc     .rsdp_found
5169
@@:
5170
; 2) The BIOS read-only memory space between 0E0000h and 0FFFFFh.
5171
        mov     eax, 0xE0000
5172
        mov     ecx, 0x2000
5173
        call    scan_rsdp
5174
        jc      no_acpi_power_off
5175
.rsdp_found:
5176
        mov     esi, [eax+16]   ; esi contains physical address of the RSDT
5177
        mov     ebp, [ipc_tmp]
5178
        stdcall map_page, ebp, esi, PG_MAP
5179
        lea     eax, [esi+1000h]
5180
        lea     edx, [ebp+1000h]
5181
        stdcall map_page, edx, eax, PG_MAP
5182
        and     esi, 0xFFF
5183
        add     esi, ebp
5184
        cmp     dword [esi], 'RSDT'
5185
        jnz     no_acpi_power_off
5186
        mov     ecx, [esi+4]
5187
        sub     ecx, 24h
5188
        jbe     no_acpi_power_off
5189
        shr     ecx, 2
5190
        add     esi, 24h
5191
.scan_fadt:
5192
        lodsd
5193
        mov     ebx, eax
5194
        lea     eax, [ebp+2000h]
5195
        stdcall map_page, eax, ebx, PG_MAP
5196
        lea     eax, [ebp+3000h]
5197
        add     ebx, 0x1000
5198
        stdcall map_page, eax, ebx, PG_MAP
5199
        and     ebx, 0xFFF
5200
        lea     ebx, [ebx+ebp+2000h]
5201
        cmp     dword [ebx], 'FACP'
5202
        jz      .fadt_found
5203
        loop    .scan_fadt
5204
        jmp     no_acpi_power_off
5205
.fadt_found:
5206
; ebx is linear address of FADT
5207
        mov     edi, [ebx+40] ; physical address of the DSDT
5208
        lea     eax, [ebp+4000h]
5209
        stdcall map_page, eax, edi, PG_MAP
5210
        lea     eax, [ebp+5000h]
5211
        lea     esi, [edi+0x1000]
5212
        stdcall map_page, eax, esi, PG_MAP
5213
        and     esi, 0xFFF
5214
        sub     edi, esi
5215
        cmp     dword [esi+ebp+4000h], 'DSDT'
5216
        jnz     no_acpi_power_off
5217
        mov     eax, [esi+ebp+4004h] ; DSDT length
5218
        sub     eax, 36+4
5219
        jbe     no_acpi_power_off
5220
        add     esi, 36
5221
.scan_dsdt:
5222
        cmp     dword [esi+ebp+4000h], '_S5_'
5223
        jnz     .scan_dsdt_cont
5224
        cmp     byte [esi+ebp+4000h+4], 12h ; DefPackage opcode
5225
        jnz     .scan_dsdt_cont
5226
        mov     dl, [esi+ebp+4000h+6]
5227
        cmp     dl, 4 ; _S5_ package must contain 4 bytes
5228
                      ; ...in theory; in practice, VirtualBox has 2 bytes
5229
        ja      .scan_dsdt_cont
5230
        cmp     dl, 1
5231
        jb      .scan_dsdt_cont
5232
        lea     esi, [esi+ebp+4000h+7]
5233
        xor     ecx, ecx
5234
        cmp     byte [esi], 0 ; 0 means zero byte, 0Ah xx means byte xx
5235
        jz      @f
5236
        cmp     byte [esi], 0xA
5237
        jnz     no_acpi_power_off
5238
        inc     esi
5239
        mov     cl, [esi]
5240
@@:
5241
        inc     esi
5242
        cmp     dl, 2
5243
        jb      @f
5244
        cmp     byte [esi], 0
5245
        jz      @f
5246
        cmp     byte [esi], 0xA
5247
        jnz     no_acpi_power_off
5248
        inc     esi
5249
        mov     ch, [esi]
5250
@@:
5251
        jmp     do_acpi_power_off
5252
.scan_dsdt_cont:
5253
        inc     esi
5254
        cmp     esi, 0x1000
5255
        jb      @f
5256
        sub     esi, 0x1000
5257
        add     edi, 0x1000
5258
        push    eax
5259
        lea     eax, [ebp+4000h]
5260
        stdcall map_page, eax, edi, PG_MAP
5261
        push    PG_MAP
5262
        lea     eax, [edi+1000h]
5263
        push    eax
5264
        lea     eax, [ebp+5000h]
5265
        push    eax
5266
        stdcall map_page
5267
        pop     eax
5268
@@:
5269
        dec     eax
5270
        jnz     .scan_dsdt
5271
        jmp     no_acpi_power_off
5272
do_acpi_power_off:
5273
        mov     edx, [ebx+48]
5274
        test    edx, edx
5275
        jz      .nosmi
5276
        mov     al, [ebx+52]
5277
        out     dx, al
5278
        mov     edx, [ebx+64]
5279
@@:
5280
        in      ax, dx
5281
        test    al, 1
5282
        jz      @b
5283
.nosmi:
5284
        and     cx, 0x0707
5285
        shl     cx, 2
5286
        or      cx, 0x2020
5287
        mov     edx, [ebx+64]
5288
        in      ax, dx
5289
        and     ax, 203h
5290
        or      ah, cl
5291
        out     dx, ax
5292
        mov     edx, [ebx+68]
5293
        test    edx, edx
5294
        jz      @f
5295
        in      ax, dx
5296
        and     ax, 203h
5297
        or      ah, ch
5298
        out     dx, ax
5299
@@:
5300
        jmp     $
5301
 
5302
 
5303
no_acpi_power_off:
5304
        mov     word [OS_BASE+0x467+0], pr_mode_exit
5305
        mov     word [OS_BASE+0x467+2], 0x1000
5306
 
5307
        mov     al, 0x0F
5308
        out     0x70, al
5309
        mov     al, 0x05
5310
        out     0x71, al
5311
 
5312
        mov     al, 0xFE
5313
        out     0x64, al
5314
 
5315
        hlt
5316
        jmp     $-1
5317
 
5318
scan_rsdp:
5319
        add     eax, OS_BASE
5320
.s:
5321
        cmp     dword [eax], 'RSD '
5322
        jnz     .n
5323
        cmp     dword [eax+4], 'PTR '
5324
        jnz     .n
5325
        xor     edx, edx
5326
        xor     esi, esi
5327
@@:
5328
        add     dl, [eax+esi]
5329
        inc     esi
5330
        cmp     esi, 20
5331
        jnz     @b
5332
        test    dl, dl
5333
        jz      .ok
5334
.n:
5335
        add     eax, 10h
5336
        loop    .s
5337
        stc
5338
.ok:
5339
        ret
5340
end if
5341
 
5342
include "data32.inc"
5343
 
5344
__REV__ = __REV
5345
 
5346
uglobals_size = $ - endofcode
5347
diff16 "end of kernel code",0,$