Subversion Repositories Kolibri OS

Rev

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

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