WebSVN – Kolibri OS – Diff – /kernel/trunk/kernel.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Copyright (C) KolibriOS team 2004-2012. All rights reserved.
;; PROGRAMMING:
;; Ivan Poddubny
;; Marat Zakiyanov (Mario79)
;; VaStaNi
;; Trans
;; Mihail Semenyako (mike.dld)
;; Sergey Kuzmin (Wildwest)
;; Andrey Halyavin (halyavin)
;; Mihail Lisovin (Mihasik)
;; Andrey Ignatiev (andrew_programmer)
;; NoName
;; Evgeny Grechnikov (Diamond)
;; Iliya Mihailov (Ghost)
;; Sergey Semyonov (Serge)
;; Johnny_B
;; SPraid (simba)
;; Hidnplayr
;; Alexey Teplov ()
;; Rus
;; Nable
;; shurf
;; Alver
;; Maxis
;; Galkov
;; CleverMouse
;; tsdima
;; turbanoff
;; Asper
;; art_zh
;;
;; Data in this file was originally part of MenuetOS project which is
;; distributed under the terms of GNU GPL. It is modified and redistributed as
;; part of KolibriOS project under the terms of GNU GPL.
;;
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
;; PROGRAMMING:
;;
;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
;; - main os coding/design
;; Jan-Michael Brummer, BUZZ2@gmx.de
;; Felix Kaiser, info@felix-kaiser.de
;; Paolo Minazzi, paolo.minazzi@inwind.it
;; quickcode@mail.ru
;; Alexey, kgaz@crosswinds.net
;; Juan M. Caravaca, bitrider@wanadoo.es
;; kristol@nic.fi
;; Mike Hibbett, mikeh@oceanfree.net
;; Lasse Kuusijarvi, kuusijar@lut.fi
;; Jarek Pelczar, jarekp3@wp.pl
;;
;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
;; WARRANTY. No author or distributor accepts responsibility to anyone for the
;; consequences of using it or for whether it serves any particular purpose or
;; works at all, unless he says so in writing. Refer to the GNU General Public
;; License (the "GPL") for full details.
;
;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
;; but only under the conditions described in the GPL. A copy of this license
;; is supposed to have been given to you along with KolibriOS so you can know
;; your rights and responsibilities. It should be in a file named COPYING.
;; Among other things, the copyright notice and this notice must be preserved
;; on all copies.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
include 'macros.inc'
include 'struct.inc'
 
$Revision: 2620 $
 
 
USE_COM_IRQ     equ 1      ; make irq 3 and irq 4 available for PCI devices
 
; Enabling the next line will enable serial output console
;debug_com_base  equ 0x3f8  ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used
 
include "proc32.inc"
include "kglobals.inc"
include "lang.inc"
 
include "const.inc"
max_processes    equ   255
tss_step         equ   (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4
 
 
os_stack       equ  (os_data_l-gdts)    ; GDTs
os_code        equ  (os_code_l-gdts)
graph_data     equ  (3+graph_data_l-gdts)
tss0           equ  (tss0_l-gdts)
app_code       equ  (3+app_code_l-gdts)
app_data       equ  (3+app_data_l-gdts)
app_tls        equ  (3+tls_data_l-gdts)
pci_code_sel   equ  (pci_code_32-gdts)
pci_data_sel   equ  (pci_data_32-gdts)
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;   Included files:
;;
;;   Kernel16.inc
;;    - Booteng.inc   English text for bootup
;;    - Bootcode.inc  Hardware setup
;;    - Pci16.inc     PCI functions
;;
;;   Kernel32.inc
;;    - Sys32.inc     Process management
;;    - Shutdown.inc  Shutdown and restart
;;    - Fat32.inc     Read / write hd
;;    - Vesa12.inc    Vesa 1.2 driver
;;    - Vesa20.inc    Vesa 2.0 driver
;;    - Vga.inc       VGA driver
;;    - Stack.inc     Network interface
;;    - Mouse.inc     Mouse pointer
;;    - Scincode.inc  Window skinning
;;    - Pci32.inc     PCI functions
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                      ;;
;;                  16 BIT ENTRY FROM BOOTSECTOR                        ;;
;;                                                                      ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
use16
                  org   0x0
        jmp     start_of_code
 
version db    'Kolibri OS  version 0.7.7.0+     ',13,10,13,10,0
 
include "boot/bootstr.inc"     ; language-independent boot messages
include "boot/preboot.inc"
 
if lang eq en
include "boot/booteng.inc"     ; english system boot messages
else if lang eq ru
include "boot/bootru.inc"      ; russian system boot messages
include "boot/ru.inc"          ; Russian font
else if lang eq et
include "boot/bootet.inc"      ; estonian system boot messages
include "boot/et.inc"          ; Estonian font
else
include "boot/bootge.inc"      ; german system boot messages
end if
 
include "boot/bootcode.inc"    ; 16 bit system boot code
include "bus/pci/pci16.inc"
include "detect/biosdisk.inc"
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                      ;;
;;                  SWITCH TO 32 BIT PROTECTED MODE                     ;;
;;                                                                      ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
; CR0 Flags - Protected mode and Paging
 
        mov     ecx, CR0_PE
 
; Enabling 32 bit protected mode
 
        sidt    [cs:old_ints_h]
 
        cli                             ; disable all irqs
        cld
        mov     al, 255                 ; mask all irqs
        out     0xa1, al
        out     0x21, al
   l.5:
        in      al, 0x64                ; Enable A20
        test    al, 2
        jnz     l.5
        mov     al, 0xD1
        out     0x64, al
   l.6:
        in      al, 0x64
        test    al, 2
        jnz     l.6
        mov     al, 0xDF
        out     0x60, al
   l.7:
        in      al, 0x64
        test    al, 2
        jnz     l.7
        mov     al, 0xFF
        out     0x64, al
 
        lgdt    [cs:tmp_gdt]            ; Load GDT
        mov     eax, cr0                ; protected mode
        or      eax, ecx
        and     eax, 10011111b *65536*256 + 0xffffff ; caching enabled
        mov     cr0, eax
        jmp     pword os_code:B32       ; jmp to enable 32 bit mode
 
align 8
tmp_gdt:
 
        dw     23
        dd     tmp_gdt+0x10000
        dw     0
 
        dw     0xffff
        dw     0x0000
        db     0x00
        dw     11011111b *256 +10011010b
        db     0x00
 
        dw     0xffff
        dw     0x0000
        db     0x00
        dw     11011111b *256 +10010010b
        db     0x00
 
include "data16.inc"
 
use32
org $+0x10000
 
align 4
B32:
        mov     ax, os_stack       ; Selector for os
        mov     ds, ax
        mov     es, ax
        mov     fs, ax
        mov     gs, ax
        mov     ss, ax
        mov     esp, 0x006CC00       ; Set stack
 
; CLEAR 0x280000 - HEAP_BASE
 
        xor     eax, eax
        mov     edi, CLEAN_ZONE
        mov     ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4
        cld
        rep stosd
 
; CLEAR KERNEL UNDEFINED GLOBALS
        mov     edi, endofcode-OS_BASE
        mov     ecx, 0x90000
        sub     ecx, edi
        shr     ecx, 2
        rep stosd
 
; SAVE & CLEAR 0-0xffff
 
        xor     esi, esi
        mov     edi, (BOOT_VAR-OS_BASE)
        mov     ecx, 0x10000 / 4
        rep movsd
        mov     edi, 0x1000
        mov     ecx, 0xf000 / 4
        rep stosd
 
        call    test_cpu
        bts     [cpu_caps-OS_BASE], CAPS_TSC    ;force use rdtsc
 
        call    check_acpi
        call    init_BIOS32
; MEMORY MODEL
        call    mem_test
        call    init_mem
        call    init_page_map
 
; ENABLE PAGING
 
        mov     eax, sys_pgdir-OS_BASE
        mov     cr3, eax
 
        mov     eax, cr0
        or      eax, CR0_PG+CR0_WP
        mov     cr0, eax
 
        lgdt    [gdts]
        jmp     pword os_code:high_code
 
align 4
bios32_entry    dd ?
tmp_page_tabs   dd ?
 
use16
org $-0x10000
include "boot/shutdown.inc" ; shutdown or restart
org $+0x10000
use32
 
__DEBUG__ fix 1
__DEBUG_LEVEL__ fix 1
include 'init.inc'
 
org OS_BASE+$
 
include 'fdo.inc'
 
align 4
high_code:
        mov     ax, os_stack
        mov     bx, app_data
        mov     cx, app_tls
        mov     ss, ax
        add     esp, OS_BASE
 
        mov     ds, bx
        mov     es, bx
        mov     fs, cx
        mov     gs, bx
 
        bt      [cpu_caps], CAPS_PGE
        jnc     @F
 
        or      dword [sys_pgdir+(OS_BASE shr 20)], PG_GLOBAL
 
        mov     ebx, cr4
        or      ebx, CR4_PGE
        mov     cr4, ebx
@@:
        xor     eax, eax
        mov     dword [sys_pgdir], eax
        mov     dword [sys_pgdir+4], eax
 
        mov     eax, cr3
        mov     cr3, eax          ; flush TLB
 
        mov     ecx, pg_data.mutex
        call    mutex_init
 
        mov     ecx, disk_list_mutex
        call    mutex_init
 
        mov     ecx, keyboard_list_mutex
        call    mutex_init
 
        mov     ecx, unpack_mutex
        call    mutex_init
 
; SAVE REAL MODE VARIABLES
        mov     ax, [BOOT_VAR + BOOT_IDE_BASE_ADDR]
        mov     [IDEContrRegsBaseAddr], ax
; --------------- APM ---------------------
 
; init selectors
        mov     ebx, [BOOT_VAR+BOOT_APM_ENTRY]        ; offset of APM entry point
        movzx   eax, word [BOOT_VAR+BOOT_APM_CODE_32] ; real-mode segment base address of
                                                                                ; protected-mode 32-bit code segment
        movzx   ecx, word [BOOT_VAR+BOOT_APM_CODE_16]; real-mode segment base address of
                                                                                ; protected-mode 16-bit code segment
        movzx   edx, word [BOOT_VAR+BOOT_APM_DATA_16]; real-mode segment base address of
                                                                                ; protected-mode 16-bit data segment
 
        shl     eax, 4
        mov     [dword apm_code_32 + 2], ax
        shr     eax, 16
        mov     [dword apm_code_32 + 4], al
 
        shl     ecx, 4
        mov     [dword apm_code_16 + 2], cx
        shr     ecx, 16
        mov     [dword apm_code_16 + 4], cl
 
        shl     edx, 4
        mov     [dword apm_data_16 + 2], dx
        shr     edx, 16
        mov     [dword apm_data_16 + 4], dl
 
        mov     dword[apm_entry], ebx
        mov     word [apm_entry + 4], apm_code_32 - gdts
 
        mov     eax, [BOOT_VAR + BOOT_APM_VERSION] ; version & flags
        mov     [apm_vf], eax
; -----------------------------------------
        mov     al, [BOOT_VAR+BOOT_DMA]            ; DMA access
        mov     [allow_dma_access], al
        movzx   eax, byte [BOOT_VAR+BOOT_BPP]      ; bpp
        mov     [ScreenBPP], al
 
        mov     [_display.bpp], eax
        mov     [_display.vrefresh], 60
 
        movzx   eax, word [BOOT_VAR+BOOT_X_RES]; X max
        mov     [_display.width], eax
        dec     eax
        mov     [Screen_Max_X], eax
        mov     [screen_workarea.right], eax
        movzx   eax, word [BOOT_VAR+BOOT_Y_RES]; Y max
        mov     [_display.height], eax
        dec     eax
        mov     [Screen_Max_Y], eax
        mov     [screen_workarea.bottom], eax
        movzx   eax, word [BOOT_VAR+BOOT_VESA_MODE]; screen mode
        mov     [SCR_MODE], eax
;        mov     eax, [BOOT_VAR+0x9014]    ; Vesa 1.2 bnk sw add
;        mov     [BANK_SWITCH], eax
        mov     [BytesPerScanLine], word 640*4      ; Bytes PerScanLine
        cmp     [SCR_MODE], word 0x13       ; 320x200
        je      @f
        cmp     [SCR_MODE], word 0x12       ; VGA 640x480
        je      @f
        movzx   eax, word[BOOT_VAR+BOOT_PITCH]   ; for other modes
        mov     [BytesPerScanLine], ax
        mov     [_display.pitch], eax
@@:
        mov     eax, [_display.width]
        mul     [_display.height]
        mov     [_WinMapSize], eax
 
        call    calculate_fast_getting_offset_for_WinMapAddress
; for Qemu or non standart video cards
; Unfortunately [BytesPerScanLine] does not always 
;                             equal to [_display.width] * [ScreenBPP] / 8
        call    calculate_fast_getting_offset_for_LFB
 
        mov     esi, BOOT_VAR+0x9080
        movzx   ecx, byte [esi-1]
        mov     [NumBiosDisks], ecx
        mov     edi, BiosDisksData
        rep movsd
 
; GRAPHICS ADDRESSES
 
        mov     eax, [BOOT_VAR+BOOT_LFB]
        mov     [LFBAddress], eax
 
        cmp     [SCR_MODE], word 0100000000000000b
        jge     setvesa20
        cmp     [SCR_MODE], word 0x13  ; EGA 320*200 256 colors
        je      v20ga32
        jmp     v20ga24
 
setvesa20:
        mov     [PUTPIXEL], dword Vesa20_putpixel24 ; Vesa 2.0
        mov     [GETPIXEL], dword Vesa20_getpixel24
        cmp     [ScreenBPP], byte 24
        jz      v20ga24
v20ga32:
        mov     [PUTPIXEL], dword Vesa20_putpixel32
        mov     [GETPIXEL], dword Vesa20_getpixel32
        jmp     no_mode_0x12
v20ga24:
        cmp     [SCR_MODE], word 0x12               ; 16 C VGA 640x480
        jne     no_mode_0x12
        mov     [PUTPIXEL], dword VGA_putpixel
        mov     [GETPIXEL], dword Vesa20_getpixel32
no_mode_0x12:
 
; -------- Fast System Call init ----------
; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
        bt      [cpu_caps], CAPS_SEP
        jnc     .SEnP  ; SysEnter not Present
        xor     edx, edx
        mov     ecx, MSR_SYSENTER_CS
        mov     eax, os_code
        wrmsr
        mov     ecx, MSR_SYSENTER_ESP
;           mov eax, sysenter_stack ; Check it
        xor     eax, eax
        wrmsr
        mov     ecx, MSR_SYSENTER_EIP
        mov     eax, sysenter_entry
        wrmsr
.SEnP:
; AMD SYSCALL/SYSRET
        cmp     byte[cpu_vendor], 'A'
        jne     .noSYSCALL
        mov     eax, 0x80000001
        cpuid
        test    edx, 0x800  ; bit_11 - SYSCALL/SYSRET support
        jz      .noSYSCALL
        mov     ecx, MSR_AMD_EFER
        rdmsr
        or      eax, 1 ; bit_0 - System Call Extension (SCE)
        wrmsr
 
        ; !!!! It`s dirty hack, fix it !!!
        ; Bits of EDX :
        ; Bit 3116 During the SYSRET instruction, this field is copied into the CS register
        ;  and the contents of this field, plus 8, are copied into the SS register.
        ; Bit 150 During the SYSCALL instruction, this field is copied into the CS register
        ;  and the contents of this field, plus 8, are copied into the SS register.
 
        ; mov   edx, (os_code + 16) * 65536 + os_code
        mov     edx, 0x1B0008
 
        mov     eax, syscall_entry
        mov     ecx, MSR_AMD_STAR
        wrmsr
.noSYSCALL:
; -----------------------------------------
        stdcall alloc_page
        stdcall map_page, tss-0xF80, eax, PG_SW
        stdcall alloc_page
        inc     eax
        mov     [SLOT_BASE+256+APPDATA.io_map], eax
        stdcall map_page, tss+0x80, eax, PG_SW
        stdcall alloc_page
        inc     eax
        mov     dword [SLOT_BASE+256+APPDATA.io_map+4], eax
        stdcall map_page, tss+0x1080, eax, PG_SW
 
; LOAD IDT
 
        call    build_interrupt_table ;lidt is executed
          ;lidt [idtreg]
 
        call    init_kernel_heap
        stdcall kernel_alloc, RING0_STACK_SIZE+512
        mov     [os_stack_seg], eax
 
        lea     esp, [eax+RING0_STACK_SIZE]
 
        mov     [tss._ss0], os_stack
        mov     [tss._esp0], esp
        mov     [tss._esp], esp
        mov     [tss._cs], os_code
        mov     [tss._ss], os_stack
        mov     [tss._ds], app_data
        mov     [tss._es], app_data
        mov     [tss._fs], app_data
        mov     [tss._gs], app_data
        mov     [tss._io], 128
;Add IO access table - bit array of permitted ports
        mov     edi, tss._io_map_0
        xor     eax, eax
        not     eax
        mov     ecx, 8192/4
        rep stosd                    ; access to 4096*8=65536 ports
 
        mov     ax, tss0
        ltr     ax
 
        mov     [LFBSize], 0x800000
        call    init_LFB
        call    init_fpu
        call    init_malloc
 
        stdcall alloc_kernel_space, 0x51000
        mov     [default_io_map], eax
 
        add     eax, 0x2000
        mov     [ipc_tmp], eax
        mov     ebx, 0x1000
 
        add     eax, 0x40000
        mov     [proc_mem_map], eax
 
        add     eax, 0x8000
        mov     [proc_mem_pdir], eax
 
        add     eax, ebx
        mov     [proc_mem_tab], eax
 
        add     eax, ebx
        mov     [tmp_task_pdir], eax
 
        add     eax, ebx
        mov     [tmp_task_ptab], eax
 
        add     eax, ebx
        mov     [ipc_pdir], eax
 
        add     eax, ebx
        mov     [ipc_ptab], eax
 
        stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE+(unpack.LZMA_LIT_SIZE shl \
                (unpack.lc+unpack.lp)))*4
 
        mov     [unpack.p], eax
 
        call    init_events
        mov     eax, srv.fd-SRV.fd
        mov     [srv.fd], eax
        mov     [srv.bk], eax
 
;Set base of graphic segment to linear address of LFB
        mov     eax, [LFBAddress]         ; set for gs
        mov     [graph_data_l+2], ax
        shr     eax, 16
        mov     [graph_data_l+4], al
        mov     [graph_data_l+7], ah
 
        stdcall kernel_alloc, [_WinMapSize]
        mov     [_WinMapAddress], eax
 
        xor     eax, eax
        inc     eax
        mov     [CURRENT_TASK], eax     ;dword 1
        mov     [TASK_COUNT], eax       ;dword 1
        mov     [TASK_BASE], dword TASK_DATA
        mov     [current_slot], SLOT_BASE+256
 
; set background
 
        mov     [BgrDrawMode], eax
        mov     [BgrDataWidth], eax
        mov     [BgrDataHeight], eax
        mov     [mem_BACKGROUND], 4
        mov     [img_background], static_background_data
 
        mov     [SLOT_BASE + 256 + APPDATA.dir_table], sys_pgdir - OS_BASE
 
        stdcall kernel_alloc, 0x10000/8
        mov     edi, eax
        mov     [network_free_ports], eax
        or      eax, -1
        mov     ecx, 0x10000/32
        rep stosd
 
; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
 
        call    init_irqs
        call    PIC_init
 
; Initialize system V86 machine
        call    init_sys_v86
 
; Initialize system timer (IRQ0)
        call    PIT_init
 
; Try to Initialize APIC
        call    APIC_init
 
; Enable timer IRQ (IRQ0) and hard drives IRQs (IRQ14, IRQ15)
; they are used: when partitions are scanned, hd_read relies on timer
        call    unmask_timer
        stdcall enable_irq, 2               ; @#$%! PIC
        stdcall enable_irq, 6               ; FDD
        stdcall enable_irq, 13              ; co-processor
        stdcall enable_irq, 14
        stdcall enable_irq, 15
 
; Enable interrupts in IDE controller
        mov     al, 0
        mov     dx, 0x3F6
        out     dx, al
        mov     dl, 0x76
        out     dx, al
 
;!!!!!!!!!!!!!!!!!!!!!!!!!!
include 'detect/disks.inc'
;!!!!!!!!!!!!!!!!!!!!!!!!!!
 
        call    Parser_params
 
if ~ defined extended_primary_loader
; ramdisk image should be loaded by extended primary loader if it exists
; READ RAMDISK IMAGE FROM HD
 
;!!!!!!!!!!!!!!!!!!!!!!!
include 'boot/rdload.inc'
;!!!!!!!!!!!!!!!!!!!!!!!
end if
;    mov    [dma_hdd],1
; CALCULATE FAT CHAIN FOR RAMDISK
 
        call    calculatefatchain
 
if 0
        mov     ax, [OS_BASE+0x10000+bx_from_load]
        cmp     ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}
        je      no_lib_load
; LOADING LIBRARES
        stdcall dll.Load, @IMPORT           ; loading librares for kernel (.obj files)
        call    load_file_parse_table       ; prepare file parse table
        call    set_kernel_conf             ; configure devices and gui
no_lib_load:
end if
 
; LOAD FONTS I and II
 
        stdcall read_file, char, FONT_I, 0, 2304
        stdcall read_file, char2, FONT_II, 0, 2560
 
        mov     [MOUSE_PICTURE], dword mousepointer
        mov     [_display.check_mouse], check_mouse_area_for_putpixel
        mov     [_display.check_m_pixel], check_mouse_area_for_getpixel
 
        mov     esi, boot_fonts
        call    boot_log
 
; Display APIC status
        mov     esi, boot_APIC_found
        cmp     [irq_mode], IRQ_APIC
        je      @f
        mov     esi, boot_APIC_nfound
@@:
 
; PRINT AMOUNT OF MEMORY
        mov     esi, boot_memdetect
        call    boot_log
 
        movzx   ecx, word [boot_y]
        if lang eq ru
        or      ecx, (10+30*6) shl 16
                else
        or      ecx, (10+29*6) shl 16
                end if
        sub     ecx, 10
        mov     edx, 0xFFFFFF
        mov     ebx, [MEM_AMOUNT]
        shr     ebx, 20
        xor     edi, edi
        mov     eax, 0x00040000
        inc     edi
        call    display_number_force
 
; BUILD SCHEDULER
 
        call    build_scheduler; sys32.inc
 
        mov     esi, boot_devices
        call    boot_log
 
        mov     [pci_access_enabled], 1
 
 
; SET PRELIMINARY WINDOW STACK AND POSITIONS
 
        mov     esi, boot_windefs
        call    boot_log
        call    set_window_defaults
 
; SET BACKGROUND DEFAULTS
 
        mov     esi, boot_bgr
        call    boot_log
        call    init_background
        call    calculatebackground
 
; RESERVE SYSTEM IRQ'S JA PORT'S
 
        mov     esi, boot_resirqports
        call    boot_log
        call    reserve_irqs_ports
 
; SET UP OS TASK
 
        mov     esi, boot_setostask
        call    boot_log
 
        xor     eax, eax
        mov     dword [SLOT_BASE+APPDATA.fpu_state], fpu_data
        mov     dword [SLOT_BASE+APPDATA.exc_handler], eax
        mov     dword [SLOT_BASE+APPDATA.except_mask], eax
 
        ; name for OS/IDLE process
 
        mov     dword [SLOT_BASE+256+APPDATA.app_name], dword 'OS/I'
        mov     dword [SLOT_BASE+256+APPDATA.app_name+4], dword 'DLE '
        mov     edi, [os_stack_seg]
        mov     dword [SLOT_BASE+256+APPDATA.pl0_stack], edi
        add     edi, 0x2000-512
        mov     dword [SLOT_BASE+256+APPDATA.fpu_state], edi
        mov     dword [SLOT_BASE+256+APPDATA.saved_esp0], edi; just for case
        ; [SLOT_BASE+256+APPDATA.io_map] was set earlier
 
        mov     esi, fpu_data
        mov     ecx, 512/4
        cld
        rep movsd
 
        mov     dword [SLOT_BASE+256+APPDATA.exc_handler], eax
        mov     dword [SLOT_BASE+256+APPDATA.except_mask], eax
 
        mov     ebx, SLOT_BASE+256+APP_OBJ_OFFSET
        mov     dword [SLOT_BASE+256+APPDATA.fd_obj], ebx
        mov     dword [SLOT_BASE+256+APPDATA.bk_obj], ebx
 
        mov     dword [SLOT_BASE+256+APPDATA.cur_dir], sysdir_path
        mov     dword [SLOT_BASE+256+APPDATA.tls_base], eax
 
        ; task list
        mov     dword [TASK_DATA+TASKDATA.mem_start], eax; process base address
        inc     eax
        mov     dword [CURRENT_TASK], eax
        mov     dword [TASK_COUNT], eax
        mov     [current_slot], SLOT_BASE+256
        mov     [TASK_BASE], dword TASK_DATA
        mov     byte[TASK_DATA+TASKDATA.wnd_number], al ; on screen number
        mov     dword [TASK_DATA+TASKDATA.pid], eax     ; process id number
 
        call    init_display
        mov     eax, [def_cursor]
        mov     [SLOT_BASE+APPDATA.cursor], eax
        mov     [SLOT_BASE+APPDATA.cursor+256], eax
 
  ; READ TSC / SECOND
 
        mov     esi, boot_tsc
        call    boot_log
        cli
        rdtsc   ;call  _rdtsc
        mov     ecx, eax
        mov     esi, 250            ; wait 1/4 a second
        call    delay_ms
        rdtsc   ;call  _rdtsc
        sti
        sub     eax, ecx
        shl     eax, 2
        mov     [CPU_FREQ], eax       ; save tsc / sec
;       mov ebx, 1000000
;       div ebx
; ¢®®¡é¥-â® ¯à®¨§¢®¤¨â¥«ì­®áâì ¢ ¤ ­­®¬ ª®­ªà¥â­®¬ ¬¥áâ¥
; á®¢¥àè¥­­® ­¥ªà¨â¨ç­ , ­® çâ®¡ë § âª­ãâì «î¡¨â¥«¥©
; ®¯â¨¬¨§¨àãîé¨å ª®¬¯¨«ïâ®à®¢ ...
        mov     edx, 2251799814
        mul     edx
        shr     edx, 19
        mov     [stall_mcs], edx
; PRINT CPU FREQUENCY
        mov     esi, boot_cpufreq
        call    boot_log
 
        mov     ebx, edx
        movzx   ecx, word [boot_y]
        if lang eq ru
        add     ecx, (10+19*6) shl 16 - 10         ; 'Determining amount of memory'
                else
        add     ecx, (10+17*6) shl 16 - 10         ; 'Determining amount of memory'
                end if
        mov     edx, 0xFFFFFF
        xor     edi, edi
        mov     eax, 0x00040000
        inc     edi
        call    display_number_force
 
; SET VARIABLES
 
        call    set_variables
 
; STACK AND FDC
 
        call    stack_init
        call    fdc_init
 
; PALETTE FOR 320x200 and 640x480 16 col
 
        cmp     [SCR_MODE], word 0x12
        jne     no_pal_vga
        mov     esi, boot_pal_vga
        call    boot_log
        call    paletteVGA
      no_pal_vga:
 
        cmp     [SCR_MODE], word 0x13
        jne     no_pal_ega
        mov     esi, boot_pal_ega
        call    boot_log
        call    palette320x200
      no_pal_ega:
 
; LOAD DEFAULT SKIN
 
        call    load_default_skin
 
;protect io permission map
 
        mov     esi, [default_io_map]
        stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map], PG_MAP
        add     esi, 0x1000
        stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map+4], PG_MAP
 
        stdcall map_page, tss._io_map_0, \
                [SLOT_BASE+256+APPDATA.io_map], PG_MAP
        stdcall map_page, tss._io_map_1, \
                [SLOT_BASE+256+APPDATA.io_map+4], PG_MAP
 
        mov     ax, [OS_BASE+0x10000+bx_from_load]
        cmp     ax, 'r1'; if not rused ram disk - load network configuration from files {SPraid.simba}
        je      no_st_network
        call    set_network_conf
  no_st_network:
 
; LOAD FIRST APPLICATION
        cli
 
;        cmp   byte [BOOT_VAR+0x9030],1
;        jne   no_load_vrr_m
 
;        mov     ebp, vrr_m
;        call    fs_execute_from_sysdir
;
;;        cmp   eax,2                  ; if vrr_m app found (PID=2)
;       sub   eax,2
;        jz    first_app_found
;
;no_load_vrr_m:
 
        mov     ebp, firstapp
        call    fs_execute_from_sysdir
 
;        cmp   eax,2                  ; continue if a process has been loaded
        sub     eax, 2
        jz      first_app_found
 
        mov     esi, boot_failed
        call    boot_log
 
        mov     eax, 0xDEADBEEF      ; otherwise halt
        hlt
 
first_app_found:
 
        cli
 
        ;mov   [TASK_COUNT],dword 2
        push    1
        pop     dword [CURRENT_TASK]    ; set OS task fisrt
 
; SET KEYBOARD PARAMETERS
        mov     al, 0xf6       ; reset keyboard, scan enabled
        call    kb_write
        test    ah, ah
        jnz     .no_keyboard
 
        ; wait until 8042 is ready
        xor     ecx, ecx
      @@:
        in      al, 64h
        and     al, 00000010b
        loopnz  @b
 
iglobal
align 4
ps2_keyboard_functions:
        dd      .end - $
        dd      0       ; no close
        dd      ps2_set_lights
.end:
endg
        stdcall register_keyboard, ps2_keyboard_functions, 0
       ; mov   al, 0xED       ; Keyboard LEDs - only for testing!
       ; call  kb_write
       ; call  kb_read
       ; mov   al, 111b
       ; call  kb_write
       ; call  kb_read
 
        mov     al, 0xF3     ; set repeat rate & delay
        call    kb_write
;        call  kb_read
        mov     al, 0; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
        call    kb_write
;        call  kb_read
     ;// mike.dld [
        call    set_lights
     ;// mike.dld ]
        stdcall attach_int_handler, 1, irq1, 0
.no_keyboard:
 
; SET MOUSE
 
        stdcall load_driver, szPS2MDriver
;        stdcall load_driver, szCOM_MDriver
 
        mov     esi, boot_setmouse
        call    boot_log
        call    setmouse
 
; Setup serial output console (if enabled)
 
if defined debug_com_base
 
        ; enable Divisor latch
 
        mov     dx, debug_com_base+3
        mov     al, 1 shl 7
        out     dx, al
 
        ; Set speed to 115200 baud (max speed)
 
        mov     dx, debug_com_base
        mov     al, 0x01
        out     dx, al
 
        mov     dx, debug_com_base+1
        mov     al, 0x00
        out     dx, al
 
        ; No parity, 8bits words, one stop bit, dlab bit back to 0
 
        mov     dx, debug_com_base+3
        mov     al, 3
        out     dx, al
 
        ; disable interrupts
 
        mov     dx, debug_com_base+1
        mov     al, 0
        out     dx, al
 
        ; clear +  enable fifo (64 bits)
 
        mov     dx, debug_com_base+2
        mov     al, 0x7 + 1 shl 5
        out     dx, al
 
 
end if
 
        mov     eax, [cpu_count]
        test    eax, eax
        jnz     @F
        mov     al, 1                             ; at least one CPU
@@:
        DEBUGF  1, "K : %d CPU detected\n", eax
 
; START MULTITASKING
 
; A 'All set - press ESC to start' messages if need
if preboot_blogesc
        mov     esi, boot_tasking
        call    boot_log
.bll1:
        in      al, 0x60        ; wait for ESC key press
        cmp     al, 129
        jne     .bll1
end if
 
        cmp     [IDEContrRegsBaseAddr], 0
        setnz   [dma_hdd]
        mov     [timer_ticks_enable], 1         ; for cd driver
 
        sti
        call    change_task
 
        jmp     osloop
 
 
        ; Fly :)
 
include 'unpacker.inc'
 
align 4
boot_log:
        pushad
 
        mov     ebx, 10*65536
        mov     bx, word [boot_y]
        add     [boot_y], dword 10
        mov     ecx, 0x80ffffff; ASCIIZ string with white color
        xor     edi, edi
        mov     edx, esi
        inc     edi
        call    dtext
 
        mov     [novesachecksum], 1000
        call    checkVga_N13
 
        popad
 
        ret
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                    ;
;                    MAIN OS LOOP START                              ;
;                                                                    ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
align 32
osloop:
;        call    [draw_pointer]
        call    __sys_draw_pointer
        call    window_check_events
        call    mouse_check_events
        call    checkmisc
        call    checkVga_N13
        call    stack_handler
        call    checkidle
        call    check_fdd_motor_status
        call    check_ATAPI_device_event
        call    check_lights_state
        call    check_timers
        jmp     osloop
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                    ;
;                      MAIN OS LOOP END                              ;
;                                                                    ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
align 4
checkidle:
        pushad
        call    change_task
        jmp     idle_loop_entry
  idle_loop:
        cmp     eax, [idlemem]    ; eax == [timer_ticks]
        jne     idle_exit
        rdtsc   ;call _rdtsc
        mov     ecx, eax
        hlt
        rdtsc   ;call _rdtsc
        sub     eax, ecx
        add     [idleuse], eax
  idle_loop_entry:
        mov     eax, [timer_ticks]; eax =  [timer_ticks]
        cmp     [check_idle_semaphore], 0
        je      idle_loop
        dec     [check_idle_semaphore]
  idle_exit:
        mov     [idlemem], eax    ; eax == [timer_ticks]
        popad
        ret
 
uglobal
  idlemem               dd   0x0
  idleuse               dd   0x0
  idleusesec            dd   0x0
  check_idle_semaphore  dd   0x0
endg
 
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                      ;
;                   INCLUDED SYSTEM FILES                              ;
;                                                                      ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
include "kernel32.inc"
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                      ;
;                       KERNEL FUNCTIONS                               ;
;                                                                      ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
reserve_irqs_ports:
 
 
; RESERVE PORTS
        mov     eax, RESERVED_PORTS
        mov     ecx, 1
 
        mov     [eax], dword 4
 
        mov     [eax+16], ecx
        mov     [eax+16+4], dword 0
        mov     [eax+16+4], dword 0x2D
 
        mov     [eax+32], ecx
        mov     [eax+32+4], dword 0x30
        mov     [eax+32+8], dword 0x4D
 
        mov     [eax+48], ecx
        mov     [eax+48+4], dword 0x50
        mov     [eax+28+8], dword 0xDF
 
        mov     [eax+64], ecx
        mov     [eax+64+4], dword 0xE5
        mov     [eax+64+8], dword 0xFF
 
        ret
 
 
iglobal
  process_number dd 0x1
endg
 
set_variables:
 
        mov     ecx, 0x16                    ; flush port 0x60
.fl60:
        in      al, 0x60
        loop    .fl60
        push    eax
 
        mov     ax, [BOOT_VAR+BOOT_Y_RES]
        shr     ax, 1
        shl     eax, 16
        mov     ax, [BOOT_VAR+BOOT_X_RES]
        shr     ax, 1
        mov     [MOUSE_X], eax
 
        xor     eax, eax
        mov     [BTN_ADDR], dword BUTTON_INFO ; address of button list
 
        mov     byte [MOUSE_BUFF_COUNT], al              ; mouse buffer
        mov     byte [KEY_COUNT], al              ; keyboard buffer
        mov     byte [BTN_COUNT], al              ; button buffer
;        mov   [MOUSE_X],dword 100*65536+100    ; mouse x/y
 
     ;!! IP 04.02.2005:
        mov     byte [DONT_SWITCH], al; change task if possible
        pop     eax
        ret
 
align 4
;input  eax=43,bl-byte of output, ecx - number of port
sys_outport:
 
        mov     edi, ecx   ; separate flag for read / write
        and     ecx, 65535
 
        mov     eax, [RESERVED_PORTS]
        test    eax, eax
        jnz     .sopl8
        inc     eax
        mov     [esp+32], eax
        ret
 
  .sopl8:
        mov     edx, [TASK_BASE]
        mov     edx, [edx+0x4]
    ;and   ecx,65535
    ;cld - set on interrupt 0x40
  .sopl1:
 
        mov     esi, eax
        shl     esi, 4
        add     esi, RESERVED_PORTS
        cmp     edx, [esi+0]
        jne     .sopl2
        cmp     ecx, [esi+4]
        jb      .sopl2
        cmp     ecx, [esi+8]
        jg      .sopl2
.sopl3:
 
        test    edi, 0x80000000; read ?
        jnz     .sopl4
 
        mov     eax, ebx
        mov     dx, cx   ; write
        out     dx, al
        and     [esp+32], dword 0
        ret
 
        .sopl2:
 
        dec     eax
        jnz     .sopl1
        inc     eax
        mov     [esp+32], eax
        ret
 
 
  .sopl4:
 
        mov     dx, cx   ; read
        in      al, dx
        and     eax, 0xff
        and     [esp+32], dword 0
        mov     [esp+20], eax
        ret
 
display_number:
;It is not optimization
        mov     eax, ebx
        mov     ebx, ecx
        mov     ecx, edx
        mov     edx, esi
        mov     esi, edi
; eax = print type, al=0 -> ebx is number
;                   al=1 -> ebx is pointer
;                   ah=0 -> display decimal
;                   ah=1 -> display hexadecimal
;                   ah=2 -> display binary
;                   eax bits 16-21 = number of digits to display (0-32)
;                   eax bits 22-31 = reserved
;
; ebx = number or pointer
; ecx = x shl 16 + y
; edx = color
        xor     edi, edi
display_number_force:
        push    eax
        and     eax, 0x3fffffff
        cmp     eax, 0xffff     ; length > 0 ?
        pop     eax
        jge     cont_displ
        ret
   cont_displ:
        push    eax
        and     eax, 0x3fffffff
        cmp     eax, 61*0x10000  ; length <= 60 ?
        pop     eax
        jb      cont_displ2
        ret
   cont_displ2:
 
        pushad
 
        cmp     al, 1            ; ecx is a pointer ?
        jne     displnl1
        mov     ebp, ebx
        add     ebp, 4
        mov     ebp, [ebp+std_application_base_address]
        mov     ebx, [ebx+std_application_base_address]
 displnl1:
        sub     esp, 64
 
        test    ah, ah            ; DECIMAL
        jnz     no_display_desnum
        shr     eax, 16
        and     eax, 0xC03f
;     and   eax,0x3f
        push    eax
        and     eax, 0x3f
        mov     edi, esp
        add     edi, 4+64-1
        mov     ecx, eax
        mov     eax, ebx
        mov     ebx, 10
 d_desnum:
        xor     edx, edx
        call    division_64_bits
        div     ebx
        add     dl, 48
        mov     [edi], dl
        dec     edi
        loop    d_desnum
        pop     eax
        call    normalize_number
        call    draw_num_text
        add     esp, 64
        popad
        ret
   no_display_desnum:
 
        cmp     ah, 0x01         ; HEXADECIMAL
        jne     no_display_hexnum
        shr     eax, 16
        and     eax, 0xC03f
;     and   eax,0x3f
        push    eax
        and     eax, 0x3f
        mov     edi, esp
        add     edi, 4+64-1
        mov     ecx, eax
        mov     eax, ebx
        mov     ebx, 16
   d_hexnum:
        xor     edx, edx
        call    division_64_bits
        div     ebx
   hexletters = __fdo_hexdigits
        add     edx, hexletters
        mov     dl, [edx]
        mov     [edi], dl
        dec     edi
        loop    d_hexnum
        pop     eax
        call    normalize_number
        call    draw_num_text
        add     esp, 64
        popad
        ret
   no_display_hexnum:
 
        cmp     ah, 0x02         ; BINARY
        jne     no_display_binnum
        shr     eax, 16
        and     eax, 0xC03f
;     and   eax,0x3f
        push    eax
        and     eax, 0x3f
        mov     edi, esp
        add     edi, 4+64-1
        mov     ecx, eax
        mov     eax, ebx
        mov     ebx, 2
   d_binnum:
        xor     edx, edx
        call    division_64_bits
        div     ebx
        add     dl, 48
        mov     [edi], dl
        dec     edi
        loop    d_binnum
        pop     eax
        call    normalize_number
        call    draw_num_text
        add     esp, 64
        popad
        ret
   no_display_binnum:
 
        add     esp, 64
        popad
        ret
 
normalize_number:
        test    ah, 0x80
        jz      .continue
        mov     ecx, 48
        and     eax, 0x3f
@@:
        inc     edi
        cmp     [edi], cl
        jne     .continue
        dec     eax
        cmp     eax, 1
        ja      @r
        mov     al, 1
.continue:
        and     eax, 0x3f
        ret
 
division_64_bits:
        test    [esp+1+4], byte 0x40
        jz      .continue
        push    eax
        mov     eax, ebp
        div     ebx
        mov     ebp, eax
        pop     eax
.continue:
        ret
 
draw_num_text:
        mov     esi, eax
        mov     edx, 64+4
        sub     edx, eax
        add     edx, esp
        mov     ebx, [esp+64+32-8+4]
; add window start x & y
        mov     ecx, [TASK_BASE]
 
        mov     edi, [CURRENT_TASK]
        shl     edi, 8
 
        mov     eax, [ecx-twdw+WDATA.box.left]
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
        shl     eax, 16
        add     eax, [ecx-twdw+WDATA.box.top]
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
        add     ebx, eax
        mov     ecx, [esp+64+32-12+4]
        and     ecx, not 0x80000000     ; force counted string
        mov     eax, [esp+64+8]         ; background color (if given)
        mov     edi, [esp+64+4]
        jmp     dtext
 
align 4
 
sys_setup:
 
; 1=roland mpu midi base , base io address
; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
; 5=system language, 1eng 2fi 3ger 4rus
; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
; 8=fat32 partition in hd
; 9
; 10 = sound dma channel
; 11 = enable lba read
; 12 = enable pci access
 
 
        and     [esp+32], dword 0
        dec     ebx                             ; MIDI
        jnz     nsyse1
        cmp     ecx, 0x100
 
        jb      nsyse1
        mov     esi, 65535
        cmp     esi, ecx
 
        jb      nsyse1
        mov     [midi_base], cx ;bx
        mov     word [mididp], cx;bx
        inc     cx              ;bx
        mov     word [midisp], cx;bx
        ret
 
iglobal
midi_base dw 0
endg
 
   nsyse1:
        dec     ebx                              ; KEYBOARD
        jnz     nsyse2
        mov     edi, [TASK_BASE]
        mov     eax, [edi+TASKDATA.mem_start]
        add     eax, edx
 
        dec     ecx
        jnz     kbnobase
        mov     ebx, keymap
        mov     ecx, 128
        call    memmove
        ret
   kbnobase:
        dec     ecx
        jnz     kbnoshift
 
        mov     ebx, keymap_shift
        mov     ecx, 128
        call    memmove
        ret
   kbnoshift:
        dec     ecx
        jnz     kbnoalt
        mov     ebx, keymap_alt
        mov     ecx, 128
        call    memmove
        ret
   kbnoalt:
        sub     ecx, 6
        jnz     kbnocountry
        mov     word [keyboard], dx
        ret
   kbnocountry:
        mov     [esp+32], dword 1
        ret
   nsyse2:
        dec     ebx                         ; CD
        jnz     nsyse4
 
        test    ecx, ecx
        jz      nosesl
 
        cmp     ecx, 4
        ja      nosesl
        mov     [cd_base], cl
 
        dec     ecx
        jnz     noprma
        mov     [cdbase], 0x1f0
        mov     [cdid], 0xa0
   noprma:
 
        dec     ecx
        jnz     noprsl
        mov     [cdbase], 0x1f0
        mov     [cdid], 0xb0
   noprsl:
        dec     ecx
        jnz     nosema
        mov     [cdbase], 0x170
        mov     [cdid], 0xa0
   nosema:
        dec     ecx
        jnz     nosesl
        mov     [cdbase], 0x170
        mov     [cdid], 0xb0
   nosesl:
        ret
 
iglobal
cd_base db 0
 
endg
   nsyse4:
 
        sub     ebx, 2           ; SYSTEM LANGUAGE
        jnz     nsyse5
        mov     [syslang], ecx
        ret
   nsyse5:
 
        sub     ebx, 2          ; HD BASE
        jnz     nsyse7
 
        test    ecx, ecx
        jz      nosethd
 
        cmp     ecx, 4
        ja      nosethd
        mov     [hd_base], cl
 
        cmp     ecx, 1
        jnz     noprmahd
        mov     [hdbase], 0x1f0
        and     dword [hdid], 0x0
        mov     dword [hdpos], ecx
;     call set_FAT32_variables
   noprmahd:
 
        cmp     ecx, 2
        jnz     noprslhd
        mov     [hdbase], 0x1f0
        mov     [hdid], 0x10
        mov     dword [hdpos], ecx
;     call set_FAT32_variables
   noprslhd:
 
        cmp     ecx, 3
        jnz     nosemahd
        mov     [hdbase], 0x170
        and     dword [hdid], 0x0
        mov     dword [hdpos], ecx
;     call set_FAT32_variables
   nosemahd:
 
        cmp     ecx, 4
        jnz     noseslhd
        mov     [hdbase], 0x170
        mov     [hdid], 0x10
        mov     dword [hdpos], ecx
;     call set_FAT32_variables
   noseslhd:
        call    reserve_hd1
        call    reserve_hd_channel
        call    free_hd_channel
        and     dword [hd1_status], 0     ; free
   nosethd:
        ret
 
iglobal
hd_base db 0
endg
 
nsyse7:
 
;     cmp  eax,8                      ; HD PARTITION
        dec     ebx
        jnz     nsyse8
        mov     [fat32part], ecx
;     call set_FAT32_variables
        call    reserve_hd1
        call    reserve_hd_channel
        call    free_hd_channel
;       pusha
        call    choice_necessity_partition_1
;       popa
        and     dword [hd1_status], 0   ; free
        ret
 
nsyse8:
;     cmp  eax,11                     ; ENABLE LBA READ
        and     ecx, 1
        sub     ebx, 3
        jnz     no_set_lba_read
        mov     [lba_read_enabled], ecx
        ret
 
no_set_lba_read:
;     cmp  eax,12                     ; ENABLE PCI ACCESS
        dec     ebx
        jnz     sys_setup_err
        mov     [pci_access_enabled], ecx
        ret
 
sys_setup_err:
        or      [esp+32], dword -1
        ret
 
align 4
 
sys_getsetup:
 
; 1=roland mpu midi base , base io address
; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
; 5=system language, 1eng 2fi 3ger 4rus
; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
; 8=fat32 partition in hd
; 9=get hs timer tic
 
;     cmp  eax,1
        dec     ebx
        jnz     ngsyse1
        movzx   eax, [midi_base]
        mov     [esp+32], eax
        ret
ngsyse1:
;     cmp  eax,2
        dec     ebx
        jnz     ngsyse2
 
        mov     edi, [TASK_BASE]
        mov     ebx, [edi+TASKDATA.mem_start]
        add     ebx, edx
 
;     cmp  ebx,1
        dec     ecx
        jnz     kbnobaseret
        mov     eax, keymap
        mov     ecx, 128
        call    memmove
        ret
kbnobaseret:
;     cmp  ebx,2
        dec     ecx
        jnz     kbnoshiftret
 
        mov     eax, keymap_shift
        mov     ecx, 128
        call    memmove
        ret
kbnoshiftret:
;     cmp  ebx,3
        dec     ecx
        jne     kbnoaltret
 
        mov     eax, keymap_alt
        mov     ecx, 128
        call    memmove
        ret
kbnoaltret:
;     cmp  ebx,9
        sub     ecx, 6
        jnz     ngsyse2
        movzx   eax, word [keyboard]
        mov     [esp+32], eax
        ret
 
 
ngsyse2:
;         cmp  eax,3
        dec     ebx
        jnz     ngsyse3
        movzx   eax, [cd_base]
        mov     [esp+32], eax
        ret
ngsyse3:
;         cmp  eax,5
        sub     ebx, 2
        jnz     ngsyse5
        mov     eax, [syslang]
        mov     [esp+32], eax
        ret
ngsyse5:
;     cmp  eax,7
        sub     ebx, 2
        jnz     ngsyse7
        movzx   eax, [hd_base]
        mov     [esp+32], eax
        ret
ngsyse7:
;     cmp  eax,8
        dec     ebx
        jnz     ngsyse8
        mov     eax, [fat32part]
        mov     [esp+32], eax
        ret
ngsyse8:
;     cmp  eax,9
        dec     ebx
        jnz     ngsyse9
        mov     eax, [timer_ticks];[0xfdf0]
        mov     [esp+32], eax
        ret
ngsyse9:
;     cmp  eax,11
        sub     ebx, 2
        jnz     ngsyse11
        mov     eax, [lba_read_enabled]
        mov     [esp+32], eax
        ret
ngsyse11:
;     cmp  eax,12
        dec     ebx
        jnz     ngsyse12
        mov     eax, [pci_access_enabled]
        mov     [esp+32], eax
        ret
ngsyse12:
        mov     [esp+32], dword 1
        ret
 
 
get_timer_ticks:
        mov     eax, [timer_ticks]
        ret
 
iglobal
align 4
mousefn dd msscreen, mswin, msbutton, msset
        dd app_load_cursor
        dd app_set_cursor
        dd app_delete_cursor
        dd msz
endg
 
readmousepos:
 
; eax=0 screen relative
; eax=1 window relative
; eax=2 buttons pressed
; eax=3 set mouse pos   ; reserved
; eax=4 load cursor
; eax=5 set cursor
; eax=6 delete cursor   ; reserved
; eax=7 get mouse_z
 
        cmp     ebx, 7
        ja      msset
        jmp     [mousefn+ebx*4]
msscreen:
        mov     eax, [MOUSE_X]
        shl     eax, 16
        mov     ax, [MOUSE_Y]
        mov     [esp+36-4], eax
        ret
mswin:
        mov     eax, [MOUSE_X]
        shl     eax, 16
        mov     ax, [MOUSE_Y]
        mov     esi, [TASK_BASE]
        mov     bx, word [esi-twdw+WDATA.box.left]
        shl     ebx, 16
        mov     bx, word [esi-twdw+WDATA.box.top]
        sub     eax, ebx
 
        mov     edi, [CURRENT_TASK]
        shl     edi, 8
        sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
        rol     eax, 16
        sub     ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
        rol     eax, 16
        mov     [esp+36-4], eax
        ret
msbutton:
        movzx   eax, byte [BTN_DOWN]
        mov     [esp+36-4], eax
        ret
msz:
        mov     edi, [TASK_COUNT]
        movzx   edi, word [WIN_POS + edi*2]
        cmp     edi, [CURRENT_TASK]
        jne     @f
        mov     ax, [MOUSE_SCROLL_H]
        shl     eax, 16
        mov     ax, [MOUSE_SCROLL_V]
        mov     [esp+36-4], eax
        and     [MOUSE_SCROLL_H], word 0
        and     [MOUSE_SCROLL_V], word 0
        ret
       @@:
        and     [esp+36-4], dword 0
;           ret
msset:
        ret
 
app_load_cursor:
        cmp     ecx, OS_BASE
        jae     msset
        stdcall load_cursor, ecx, edx
        mov     [esp+36-4], eax
        ret
 
app_set_cursor:
        stdcall set_cursor, ecx
        mov     [esp+36-4], eax
        ret
 
app_delete_cursor:
        stdcall delete_cursor, ecx
        mov     [esp+36-4], eax
        ret
 
is_input:
 
        push    edx
        mov     dx, word [midisp]
        in      al, dx
        and     al, 0x80
        pop     edx
        ret
 
is_output:
 
        push    edx
        mov     dx, word [midisp]
        in      al, dx
        and     al, 0x40
        pop     edx
        ret
 
 
get_mpu_in:
 
        push    edx
        mov     dx, word [mididp]
        in      al, dx
        pop     edx
        ret
 
 
put_mpu_out:
 
        push    edx
        mov     dx, word [mididp]
        out     dx, al
        pop     edx
        ret
 
 
 
align 4
 
sys_midi:
        cmp     [mididp], 0
        jnz     sm0
        mov     [esp+36], dword 1
        ret
sm0:
        and     [esp+36], dword 0
        dec     ebx
        jnz     smn1
 ;    call setuart
su1:
        call    is_output
        test    al, al
        jnz     su1
        mov     dx, word [midisp]
        mov     al, 0xff
        out     dx, al
su2:
        mov     dx, word [midisp]
        mov     al, 0xff
        out     dx, al
        call    is_input
        test    al, al
        jnz     su2
        call    get_mpu_in
        cmp     al, 0xfe
        jnz     su2
su3:
        call    is_output
        test    al, al
        jnz     su3
        mov     dx, word [midisp]
        mov     al, 0x3f
        out     dx, al
        ret
smn1:
        dec     ebx
        jnz     smn2
sm10:
        call    get_mpu_in
        call    is_output
        test    al, al
        jnz     sm10
        mov     al, bl
        call    put_mpu_out
        smn2:
        ret
 
detect_devices:
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;include 'detect/commouse.inc'
;include 'detect/ps2mouse.inc'
;include 'detect/dev_fd.inc'
;include 'detect/dev_hdcd.inc'
;include 'detect/sear_par.inc'
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        ret
 
sys_end:
;--------------------------------------
        cmp     [_display.select_cursor], 0
        je      @f
; restore default cursor before killing
        pusha
        mov     ecx, [current_slot]
        call    restore_default_cursor_before_killing
        popa
@@:
;--------------------------------------
        mov     ecx, [current_slot]
        mov     eax, [ecx+APPDATA.tls_base]
        test    eax, eax
        jz      @F
 
        stdcall user_free, eax
@@:
 
        mov     eax, [TASK_BASE]
        mov     [eax+TASKDATA.state], 3; terminate this program
 
    waitterm:            ; wait here for termination
        mov     ebx, 100
        call    delay_hs
        jmp     waitterm
;------------------------------------------------------------------------------
align 4
restore_default_cursor_before_killing:
        pushfd
        cli
        mov     eax, [def_cursor]
        mov     [ecx+APPDATA.cursor], eax
 
        movzx   eax, word [MOUSE_Y]
        movzx   ebx, word [MOUSE_X]
;        mov     ecx, [Screen_Max_X]
;        inc     ecx
;        mul     ecx
        mov     eax, [d_width_calc_area + eax*4]
 
        add     eax, [_WinMapAddress]
        movzx   edx, byte [ebx+eax]
        shl     edx, 8
        mov     esi, [edx+SLOT_BASE+APPDATA.cursor]
 
        cmp     esi, [current_cursor]
        je      @f
 
        push    esi
        call    [_display.select_cursor]
        mov     [current_cursor], esi
@@:
        mov     [redrawmouse_unconditional], 1
        popfd
;        call    [draw_pointer]
        call    __sys_draw_pointer
        ret
;------------------------------------------------------------------------------
iglobal
align 4
sys_system_table:
        dd      sysfn_deactivate        ; 1 = deactivate window
        dd      sysfn_terminate         ; 2 = terminate thread
        dd      sysfn_activate          ; 3 = activate window
        dd      sysfn_getidletime       ; 4 = get idle time
        dd      sysfn_getcpuclock       ; 5 = get cpu clock
        dd      sysfn_saveramdisk       ; 6 = save ramdisk
        dd      sysfn_getactive         ; 7 = get active window
        dd      sysfn_sound_flag        ; 8 = get/set sound_flag
        dd      sysfn_shutdown          ; 9 = shutdown with parameter
        dd      sysfn_minimize          ; 10 = minimize window
        dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
        dd      sysfn_lastkey           ; 12 = get last pressed key
        dd      sysfn_getversion        ; 13 = get kernel version
        dd      sysfn_waitretrace       ; 14 = wait retrace
        dd      sysfn_centermouse       ; 15 = center mouse cursor
        dd      sysfn_getfreemem        ; 16 = get free memory size
        dd      sysfn_getallmem         ; 17 = get total memory size
        dd      sysfn_terminate2        ; 18 = terminate thread using PID
                                        ;                 instead of slot
        dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
        dd      sysfn_meminfo           ; 20 = get extended memory info
        dd      sysfn_pid_to_slot       ; 21 = get slot number for pid
        dd      sysfn_min_rest_window   ; 22 = minimize and restore any window
sysfn_num = ($ - sys_system_table)/4
endg
;------------------------------------------------------------------------------
sys_system:
        dec     ebx
        cmp     ebx, sysfn_num
        jae     @f
        jmp     dword [sys_system_table + ebx*4]
@@:
        ret
;------------------------------------------------------------------------------
sysfn_shutdown:          ; 18.9 = system shutdown
        cmp     ecx, 1
        jl      exit_for_anyone
        cmp     ecx, 4
        jg      exit_for_anyone
        mov     [BOOT_VAR+0x9030], cl
 
        mov     eax, [TASK_COUNT]
        mov     [SYS_SHUTDOWN], al
        mov     [shutdown_processes], eax
        and     dword [esp+32], 0
 exit_for_anyone:
        ret
  uglobal
   shutdown_processes:
                       dd 0x0
  endg
;------------------------------------------------------------------------------
sysfn_terminate:        ; 18.2 = TERMINATE
        push    ecx
        cmp     ecx, 2
        jb      noprocessterminate
        mov     edx, [TASK_COUNT]
        cmp     ecx, edx
        ja      noprocessterminate
        mov     eax, [TASK_COUNT]
        shl     ecx, 5
        mov     edx, [ecx+CURRENT_TASK+TASKDATA.pid]
        add     ecx, CURRENT_TASK+TASKDATA.state
        cmp     byte [ecx], 9
        jz      noprocessterminate
;--------------------------------------
        cmp     [_display.select_cursor], 0
        je      .restore_end
; restore default cursor before killing
        pusha
        mov     ecx, [esp+32]
        shl     ecx, 8
        add     ecx, SLOT_BASE
        mov     eax, [def_cursor]
        cmp     [ecx+APPDATA.cursor], eax
        je      @f
        call    restore_default_cursor_before_killing
@@:
        popa
.restore_end:
;--------------------------------------
     ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
        mov     [ecx], byte 3; clear possible i40's
     ;call MEM_Heap_UnLock
 
        cmp     edx, [application_table_status]; clear app table stat
        jne     noatsc
        and     [application_table_status], 0
noatsc:
noprocessterminate:
        add     esp, 4
        ret
;------------------------------------------------------------------------------
sysfn_terminate2:
;lock application_table_status mutex
.table_status:
        cli
        cmp     [application_table_status], 0
        je      .stf
        sti
        call    change_task
        jmp     .table_status
.stf:
        call    set_application_table_status
        mov     eax, ecx
        call    pid_to_slot
        test    eax, eax
        jz      .not_found
        mov     ecx, eax
        cli
        call    sysfn_terminate
        and     [application_table_status], 0
        sti
        and     dword [esp+32], 0
        ret
.not_found:
        mov     [application_table_status], 0
        or      dword [esp+32], -1
        ret
;------------------------------------------------------------------------------
sysfn_deactivate:         ; 18.1 = DEACTIVATE WINDOW
        cmp     ecx, 2
        jb      .nowindowdeactivate
        cmp     ecx, [TASK_COUNT]
        ja      .nowindowdeactivate
 
        movzx   esi, word [WIN_STACK + ecx*2]
        cmp     esi, 1
        je      .nowindowdeactivate ; already deactive
 
        mov     edi, ecx
        shl     edi, 5
        add     edi, window_data
        movzx   esi, word [WIN_STACK + ecx * 2]
        lea     esi, [WIN_POS + esi * 2]
        call    window._.window_deactivate
 
        xor     eax, eax
        mov     byte[MOUSE_BACKGROUND], al
        mov     byte[DONT_DRAW_MOUSE], al
        mov     byte[MOUSE_DOWN], 0
 
        call    syscall_display_settings._.calculate_whole_screen
        call    syscall_display_settings._.redraw_whole_screen
.nowindowdeactivate:
        ret
 ;------------------------------------------------------------------------------
sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
        cmp     ecx, 2
        jb      .nowindowactivate
        cmp     ecx, [TASK_COUNT]
        ja      .nowindowactivate
 
        mov     [window_minimize], 2; restore window if minimized
 
        movzx   esi, word [WIN_STACK + ecx*2]
        cmp     esi, [TASK_COUNT]
        je      .nowindowactivate; already active
 
        mov     edi, ecx
        shl     edi, 5
        add     edi, window_data
        movzx   esi, word [WIN_STACK + ecx * 2]
        lea     esi, [WIN_POS + esi * 2]
        call    waredraw
.nowindowactivate:
        ret
;------------------------------------------------------------------------------
sysfn_getidletime:              ; 18.4 = GET IDLETIME
        mov     eax, [idleusesec]
        mov     [esp+32], eax
        ret
;------------------------------------------------------------------------------
sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
        mov     eax, [CPU_FREQ]
        mov     [esp+32], eax
        ret
;------------------------------------------------------------------------------
;  SAVE ramdisk to /hd/1/menuet.img
;!!!!!!!!!!!!!!!!!!!!!!!!
   include 'blkdev/rdsave.inc'
;!!!!!!!!!!!!!!!!!!!!!!!!
;------------------------------------------------------------------------------
align 4
sysfn_getactive:        ; 18.7 = get active window
        mov     eax, [TASK_COUNT]
        movzx   eax, word [WIN_POS + eax*2]
        mov     [esp+32], eax
        ret
;------------------------------------------------------------------------------
sysfn_sound_flag:       ; 18.8 = get/set sound_flag
;     cmp  ecx,1
        dec     ecx
        jnz     nogetsoundflag
        movzx   eax, byte [sound_flag]; get sound_flag
        mov     [esp+32], eax
        ret
 nogetsoundflag:
;     cmp  ecx,2
        dec     ecx
        jnz     nosoundflag
        xor     byte [sound_flag], 1
 nosoundflag:
        ret
;------------------------------------------------------------------------------
sysfn_minimize:         ; 18.10 = minimize window
        mov     [window_minimize], 1
        ret
;------------------------------------------------------------------------------
align 4
sysfn_getdiskinfo:      ; 18.11 = get disk info table
;     cmp  ecx,1
        dec     ecx
        jnz     full_table
  small_table:
        call    for_all_tables
        mov     ecx, 10
        cld
        rep movsb
        ret
   for_all_tables:
        mov     edi, edx
        mov     esi, DRIVE_DATA
        ret
  full_table:
;     cmp  ecx,2
        dec     ecx
        jnz     exit_for_anyone
        call    for_all_tables
        mov     ecx, 16384
        cld
        rep movsd
        ret
;------------------------------------------------------------------------------
sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
        and     dword [esp+32], 0
        ret
;------------------------------------------------------------------------------
sysfn_getversion:       ; 18.13 = get kernel ID and version
        mov     edi, ecx
        mov     esi, version_inf
        mov     ecx, version_end-version_inf
        rep movsb
        ret
;------------------------------------------------------------------------------
sysfn_waitretrace:     ; 18.14 = sys wait retrace
     ;wait retrace functions
 sys_wait_retrace:
        mov     edx, 0x3da
 WaitRetrace_loop:
        in      al, dx
        test    al, 1000b
        jz      WaitRetrace_loop
        and     [esp+32], dword 0
        ret
;------------------------------------------------------------------------------
align 4
sysfn_centermouse:      ; 18.15 = mouse centered
; removed here by 
;     call  mouse_centered
;* mouse centered - start code- Mario79
;mouse_centered:
;        push  eax
        mov     eax, [Screen_Max_X]
        shr     eax, 1
        mov     [MOUSE_X], ax
        mov     eax, [Screen_Max_Y]
        shr     eax, 1
        mov     [MOUSE_Y], ax
;        ret
;* mouse centered - end code- Mario79
        xor     eax, eax
        and     [esp+32], eax
;        pop   eax
        ret
;------------------------------------------------------------------------------
align 4
sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
        test    ecx, ecx; get mouse speed factor
        jnz     .set_mouse_acceleration
        xor     eax, eax
        mov     ax, [mouse_speed_factor]
        mov     [esp+32], eax
        ret
 .set_mouse_acceleration:
;     cmp  ecx,1  ; set mouse speed factor
        dec     ecx
        jnz     .get_mouse_delay
        mov     [mouse_speed_factor], dx
        ret
 .get_mouse_delay:
;     cmp  ecx,2  ; get mouse delay
        dec     ecx
        jnz     .set_mouse_delay
        mov     eax, [mouse_delay]
        mov     [esp+32], eax
        ret
 .set_mouse_delay:
;     cmp  ecx,3  ; set mouse delay
        dec     ecx
        jnz     .set_pointer_position
        mov     [mouse_delay], edx
        ret
 .set_pointer_position:
;     cmp  ecx,4  ; set mouse pointer position
        dec     ecx
        jnz     .set_mouse_button
        cmp     dx, word[Screen_Max_Y]
        ja      .end
        rol     edx, 16
        cmp     dx, word[Screen_Max_X]
        ja      .end
        mov     [MOUSE_X], edx
        ret
 .set_mouse_button:
;     cmp   ecx,5  ; set mouse button features
        dec     ecx
        jnz     .end
        mov     [BTN_DOWN], dl
        mov     [mouse_active], 1
 .end:
        ret
;------------------------------------------------------------------------------
sysfn_getfreemem:
        mov     eax, [pg_data.pages_free]
        shl     eax, 2
        mov     [esp+32], eax
        ret
 
sysfn_getallmem:
        mov     eax, [MEM_AMOUNT]
        shr     eax, 10
        mov     [esp+32], eax
        ret
 
; // Alver, 2007-22-08 // {
sysfn_pid_to_slot:
        mov     eax, ecx
        call    pid_to_slot
        mov     [esp+32], eax
        ret
 
sysfn_min_rest_window:
        pushad
        mov     eax, edx ; ebx - operating
        shr     ecx, 1
        jnc     @f
        call    pid_to_slot
@@:
        or      eax, eax ; eax - number of slot
        jz      .error
        cmp     eax, 255    ; varify maximal slot number
        ja      .error
        movzx   eax, word [WIN_STACK + eax*2]
        shr     ecx, 1
        jc      .restore
 ; .minimize:
        call    minimize_window
        jmp     .exit
.restore:
        call    restore_minimized_window
.exit:
        popad
        xor     eax, eax
        mov     [esp+32], eax
        ret
.error:
        popad
        xor     eax, eax
        dec     eax
        mov     [esp+32], eax
        ret
; } \\ Alver, 2007-22-08 \\
 
uglobal
;// mike.dld, 2006-29-01 [
screen_workarea RECT
;// mike.dld, 2006-29-01 ]
window_minimize db 0
sound_flag      db 0
endg
 
UID_NONE=0
UID_MENUETOS=1   ;official
UID_KOLIBRI=2    ;russian
 
iglobal
version_inf:
  db 0,7,7,0  ; version 0.7.7.0
  db 0
  dd __REV__
version_end:
endg
;------------------------------------------------------------------------------
align 4
sys_cachetodiskette:
        cmp     ebx, 1
        jne     .no_floppy_a_save
        mov     [flp_number], 1
        jmp     .save_image_on_floppy
;--------------------------------------
align 4
.no_floppy_a_save:
        cmp     ebx, 2
        jne     .no_floppy_b_save
        mov     [flp_number], 2
;--------------------------------------
align 4
.save_image_on_floppy:
        call    save_image
        mov     [esp + 32], dword 0
        cmp     [FDC_Status], 0
        je      .yes_floppy_save
;--------------------------------------
align 4
.no_floppy_b_save:
        mov     [esp + 32], dword 1
;--------------------------------------
align 4
.yes_floppy_save:
        ret
;------------------------------------------------------------------------------
uglobal
;  bgrchanged  dd  0x0
align 4
bgrlockpid dd 0
bgrlock db 0
endg
;------------------------------------------------------------------------------
align 4
sys_background:
        cmp     ebx, 1                     ; BACKGROUND SIZE
        jnz     nosb1
        test    ecx, ecx
        jz      sbgrr
 
        test    edx, edx
        jz      sbgrr
;--------------------------------------
align 4
@@:
;;Maxis use atomic bts for mutexes  4.4.2009
        bts     dword [bgrlock], 0
        jnc     @f
        call    change_task
        jmp     @b
;--------------------------------------
align 4
@@:
        mov     [BgrDataWidth], ecx
        mov     [BgrDataHeight], edx
;    mov   [bgrchanged],1
 
        pushad
; return memory for old background
        mov     eax, [img_background]
        cmp     eax, static_background_data
        jz      @f
        stdcall kernel_free, eax
;--------------------------------------
align 4
@@:
; calculate RAW size
        xor     eax, eax
        inc     eax
        cmp     [BgrDataWidth], eax
        jae     @f
        mov     [BgrDataWidth], eax
;--------------------------------------
align 4
@@:
        cmp     [BgrDataHeight], eax
        jae     @f
        mov     [BgrDataHeight], eax
;--------------------------------------
align 4
@@:
        mov     eax, [BgrDataWidth]
        imul    eax, [BgrDataHeight]
        lea     eax, [eax*3]
; it is reserved with aligned to the boundary of 4 KB pages,
; otherwise there may be exceptions a page fault for vesa20_drawbackground_tiled
; because the 32 bit read is used for  high performance: "mov eax,[esi]"
        shr     eax, 12
        inc     eax
        shl     eax, 12
        mov     [mem_BACKGROUND], eax
; get memory for new background
        stdcall kernel_alloc, eax
        test    eax, eax
        jz      .memfailed
        mov     [img_background], eax
        jmp     .exit
;--------------------------------------
align 4
.memfailed:
; revert to static monotone data
        mov     [img_background], static_background_data
        xor     eax, eax
        inc     eax
        mov     [BgrDataWidth], eax
        mov     [BgrDataHeight], eax
        mov     [mem_BACKGROUND], 4
;--------------------------------------
align 4
.exit:
        popad
        mov     [bgrlock], 0
;--------------------------------------
align 4
sbgrr:
        ret
;------------------------------------------------------------------------------
align 4
nosb1:
        cmp     ebx, 2                     ; SET PIXEL
        jnz     nosb2
 
        mov     eax, [img_background]
        test    ecx, ecx
        jz      @f
        cmp     eax, static_background_data
        jz      .ret
;--------------------------------------
align 4
@@:
        mov     ebx, [mem_BACKGROUND]
        add     ebx, 4095
        and     ebx, -4096
        sub     ebx, 4
        cmp     ecx, ebx
        ja      .ret
 
        mov     ebx, [eax+ecx]
        and     ebx, 0xFF000000;255*256*256*256
        and     edx, 0x00FFFFFF;255*256*256+255*256+255
        add     edx, ebx
        mov     [eax+ecx], edx
;--------------------------------------
align 4
.ret:
        ret
;------------------------------------------------------------------------------
align 4
nosb2:
        cmp     ebx, 3                     ; DRAW BACKGROUND
        jnz     nosb3
;--------------------------------------
align 4
draw_background_temp:
        mov     [background_defined], 1
        call    force_redraw_background
;--------------------------------------
align 4
nosb31:
        ret
;------------------------------------------------------------------------------
align 4
nosb3:
        cmp     ebx, 4                     ; TILED / STRETCHED
        jnz     nosb4
        cmp     ecx, [BgrDrawMode]
        je      nosb41
        mov     [BgrDrawMode], ecx
;--------------------------------------
align 4
nosb41:
        ret
;------------------------------------------------------------------------------
align 4
nosb4:
        cmp     ebx, 5                     ; BLOCK MOVE TO BGR
        jnz     nosb5
        cmp     [img_background], static_background_data
        jnz     @f
        test    edx, edx
        jnz     .fin
        cmp     esi, 4
        ja      .fin
;--------------------------------------
align 4
@@:
  ; bughere
        mov     eax, ecx
        mov     ebx, edx
        add     ebx, [img_background];IMG_BACKGROUND
        mov     ecx, esi
        call    memmove
;--------------------------------------
align 4
.fin:
        ret
;------------------------------------------------------------------------------
align 4
nosb5:
        cmp     ebx, 6
        jnz     nosb6
;--------------------------------------
align 4
;;Maxis use atomic bts for mutex 4.4.2009
@@:
        bts     dword [bgrlock], 0
        jnc     @f
        call    change_task
        jmp     @b
;--------------------------------------
align 4
@@:
        mov     eax, [CURRENT_TASK]
        mov     [bgrlockpid], eax
        cmp     [img_background], static_background_data
        jz      .nomem
        stdcall user_alloc, [mem_BACKGROUND]
        mov     [esp+32], eax
        test    eax, eax
        jz      .nomem
        mov     ebx, eax
        shr     ebx, 12
        or      dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
        mov     esi, [img_background]
        shr     esi, 12
        mov     ecx, [mem_BACKGROUND]
        add     ecx, 0xFFF
        shr     ecx, 12
;--------------------------------------
align 4
.z:
        mov     eax, [page_tabs+ebx*4]
        test    al, 1
        jz      @f
        call    free_page
;--------------------------------------
align 4
@@:
        mov     eax, [page_tabs+esi*4]
        or      al, PG_UW
        mov     [page_tabs+ebx*4], eax
        mov     eax, ebx
        shl     eax, 12
        invlpg  [eax]
        inc     ebx
        inc     esi
        loop    .z
        ret
;--------------------------------------
align 4
.nomem:
        and     [bgrlockpid], 0
        mov     [bgrlock], 0
;------------------------------------------------------------------------------
align 4
nosb6:
        cmp     ebx, 7
        jnz     nosb7
        cmp     [bgrlock], 0
        jz      .err
        mov     eax, [CURRENT_TASK]
        cmp     [bgrlockpid], eax
        jnz     .err
        mov     eax, ecx
        mov     ebx, ecx
        shr     eax, 12
        mov     ecx, [page_tabs+(eax-1)*4]
        test    cl, USED_BLOCK+DONT_FREE_BLOCK
        jz      .err
        jnp     .err
        push    eax
        shr     ecx, 12
        dec     ecx
;--------------------------------------
align 4
@@:
        and     dword [page_tabs+eax*4], 0
        mov     edx, eax
        shl     edx, 12
        push    eax
        invlpg  [edx]
        pop     eax
        inc     eax
        loop    @b
        pop     eax
        and     dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
        stdcall user_free, ebx
        mov     [esp+32], eax
        and     [bgrlockpid], 0
        mov     [bgrlock], 0
        ret
;--------------------------------------
align 4
.err:
        and     dword [esp+32], 0
        ret
;------------------------------------------------------------------------------
align 4
nosb7:
        cmp     ebx, 8
        jnz     nosb8
 
        mov     eax, [BG_Rect_X_left_right]
        mov     [esp + 32], eax ; eax = [left]*65536 + [right]
        mov     eax, [BG_Rect_Y_top_bottom]
        mov     [esp + 20], eax ; ebx = [top]*65536 + [bottom]
        ret
;------------------------------------------------------------------------------
align 4
nosb8:
        cmp     ebx, 9
        jnz     nosb9
; ecx = [left]*65536 + [right]
; edx = [top]*65536 + [bottom]
        mov     eax, [Screen_Max_X]
        mov     ebx, [Screen_Max_Y]
; check [right]
        cmp     cx, ax
        ja      .exit
; check [left]
        ror     ecx, 16
        cmp     cx, ax
        ja      .exit
; check [bottom]
        cmp     dx, bx
        ja      .exit
; check [top]
        ror     edx, 16
        cmp     dx, bx
        ja      .exit
 
        movzx   eax, cx  ; [left]
        movzx   ebx, dx  ; [top]
 
        shr     ecx, 16 ; [right]
        shr     edx, 16 ; [bottom]
 
        mov     [background_defined], 1
 
        mov     [draw_data+32 + RECT.left], eax
        mov     [draw_data+32 + RECT.top], ebx
 
        mov     [draw_data+32 + RECT.right], ecx
        mov     [draw_data+32 + RECT.bottom], edx
 
        inc     byte[REDRAW_BACKGROUND]
;--------------------------------------
align 4
.exit:
        ret
;------------------------------------------------------------------------------
align 4
nosb9:
        ret
;------------------------------------------------------------------------------
align 4
uglobal
  BG_Rect_X_left_right  dd   0x0
  BG_Rect_Y_top_bottom  dd   0x0
endg
;------------------------------------------------------------------------------
align 4
force_redraw_background:
        and     [draw_data+32 + RECT.left], 0
        and     [draw_data+32 + RECT.top], 0
        push    eax ebx
        mov     eax, [Screen_Max_X]
        mov     ebx, [Screen_Max_Y]
        mov     [draw_data+32 + RECT.right], eax
        mov     [draw_data+32 + RECT.bottom], ebx
        pop     ebx eax
        inc     byte[REDRAW_BACKGROUND]
        ret
;------------------------------------------------------------------------------
align 4
sys_getbackground:
;    cmp   eax,1                                  ; SIZE
        dec     ebx
        jnz     nogb1
        mov     eax, [BgrDataWidth]
        shl     eax, 16
        mov     ax, [BgrDataHeight]
        mov     [esp+32], eax
        ret
;------------------------------------------------------------------------------
align 4
nogb1:
;    cmp   eax,2                                  ; PIXEL
        dec     ebx
        jnz     nogb2
 
        mov     eax, [img_background]
        test    ecx, ecx
        jz      @f
        cmp     eax, static_background_data
        jz      .ret
;--------------------------------------
align 4
@@:
        mov     ebx, [mem_BACKGROUND]
        add     ebx, 4095
        and     ebx, -4096
        sub     ebx, 4
        cmp     ecx, ebx
        ja      .ret
 
        mov     eax, [ecx+eax]
 
        and     eax, 0xFFFFFF
        mov     [esp+32], eax
;--------------------------------------
align 4
.ret:
        ret
;------------------------------------------------------------------------------
align 4
nogb2:
 
;    cmp   eax,4                                  ; TILED / STRETCHED
        dec     ebx
        dec     ebx
        jnz     nogb4
        mov     eax, [BgrDrawMode]
;--------------------------------------
align 4
nogb4:
        mov     [esp+32], eax
        ret
;------------------------------------------------------------------------------
align 4
sys_getkey:
        mov     [esp + 32], dword 1
        ; test main buffer
        mov     ebx, [CURRENT_TASK]                          ; TOP OF WINDOW STACK
        movzx   ecx, word [WIN_STACK + ebx * 2]
        mov     edx, [TASK_COUNT]
        cmp     ecx, edx
        jne     .finish
        cmp     [KEY_COUNT], byte 0
        je      .finish
        movzx   eax, byte [KEY_BUFF]
        shl     eax, 8
        push    eax
        dec     byte [KEY_COUNT]
        and     byte [KEY_COUNT], 127
        movzx   ecx, byte [KEY_COUNT]
        add     ecx, 2
        mov     eax, KEY_BUFF + 1
        mov     ebx, KEY_BUFF
        call    memmove
        pop     eax
;--------------------------------------
align 4
.ret_eax:
        mov     [esp + 32], eax
        ret
;--------------------------------------
align 4
.finish:
; test hotkeys buffer
        mov     ecx, hotkey_buffer
;--------------------------------------
align 4
@@:
        cmp     [ecx], ebx
        jz      .found
        add     ecx, 8
        cmp     ecx, hotkey_buffer + 120 * 8
        jb      @b
        ret
;--------------------------------------
align 4
.found:
        mov     ax, [ecx + 6]
        shl     eax, 16
        mov     ah, [ecx + 4]
        mov     al, 2
        and     dword [ecx + 4], 0
        and     dword [ecx], 0
        jmp     .ret_eax
;------------------------------------------------------------------------------
align 4
sys_getbutton:
        mov     ebx, [CURRENT_TASK]                         ; TOP OF WINDOW STACK
        mov     [esp + 32], dword 1
        movzx   ecx, word [WIN_STACK + ebx * 2]
        mov     edx, [TASK_COUNT] ; less than 256 processes
        cmp     ecx, edx
        jne     .exit
        movzx   eax, byte [BTN_COUNT]
        test    eax, eax
        jz      .exit
        mov     eax, [BTN_BUFF]
        and     al, 0xFE                                    ; delete left button bit
        mov     [BTN_COUNT], byte 0
        mov     [esp + 32], eax
;--------------------------------------
align 4
.exit:
        ret
;------------------------------------------------------------------------------
align 4
sys_cpuusage:
 
;  RETURN:
;
;  +00 dword     process cpu usage
;  +04  word     position in windowing stack
;  +06  word     windowing stack value at current position (cpu nro)
;  +10 12 bytes  name
;  +22 dword     start in mem
;  +26 dword     used mem
;  +30 dword     PID , process idenfification number
;
 
        cmp     ecx, -1 ; who am I ?
        jne     .no_who_am_i
        mov     ecx, [CURRENT_TASK]
  .no_who_am_i:
        cmp     ecx, max_processes
        ja      .nofillbuf
 
; +4: word: position of the window of thread in the window stack
        mov     ax, [WIN_STACK + ecx * 2]
        mov     [ebx+4], ax
; +6: word: number of the thread slot, which window has in the window stack
;           position ecx (has no relation to the specific thread)
        mov     ax, [WIN_POS + ecx * 2]
        mov     [ebx+6], ax
 
        shl     ecx, 5
 
; +0: dword: memory usage
        mov     eax, [ecx+CURRENT_TASK+TASKDATA.cpu_usage]
        mov     [ebx], eax
; +10: 11 bytes: name of the process
        push    ecx
        lea     eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
        add     ebx, 10
        mov     ecx, 11
        call    memmove
        pop     ecx
 
; +22: address of the process in memory
; +26: size of used memory - 1
        push    edi
        lea     edi, [ebx+12]
        xor     eax, eax
        mov     edx, 0x100000*16
        cmp     ecx, 1 shl 5
        je      .os_mem
        mov     edx, [SLOT_BASE+ecx*8+APPDATA.mem_size]
        mov     eax, std_application_base_address
.os_mem:
        stosd
        lea     eax, [edx-1]
        stosd
 
; +30: PID/TID
        mov     eax, [ecx+CURRENT_TASK+TASKDATA.pid]
        stosd
 
    ; window position and size
        push    esi
        lea     esi, [ecx + window_data + WDATA.box]
        movsd
        movsd
        movsd
        movsd
 
    ; Process state (+50)
        mov     eax, dword [ecx+CURRENT_TASK+TASKDATA.state]
        stosd
 
    ; Window client area box
        lea     esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
        movsd
        movsd
        movsd
        movsd
 
    ; Window state
        mov     al, [ecx+window_data+WDATA.fl_wstate]
        stosb
 
    ; Event mask (+71)
        mov     EAX, dword [ECX+CURRENT_TASK+TASKDATA.event_mask]
        stosd
 
        pop     esi
        pop     edi
 
.nofillbuf:
    ; return number of processes
 
        mov     eax, [TASK_COUNT]
        mov     [esp+32], eax
        ret
 
align 4
sys_clock:
        cli
  ; Mikhail Lisovin  xx Jan 2005
  @@:
        mov     al, 10
        out     0x70, al
        in      al, 0x71
        test    al, al
        jns     @f
        mov     esi, 1
        call    delay_ms
        jmp     @b
  @@:
  ; end Lisovin's fix
 
        xor     al, al        ; seconds
        out     0x70, al
        in      al, 0x71
        movzx   ecx, al
        mov     al, 02        ; minutes
        shl     ecx, 16
        out     0x70, al
        in      al, 0x71
        movzx   edx, al
        mov     al, 04        ; hours
        shl     edx, 8
        out     0x70, al
        in      al, 0x71
        add     ecx, edx
        movzx   edx, al
        add     ecx, edx
        sti
        mov     [esp + 32], ecx
        ret
 
 
align 4
 
sys_date:
 
        cli
  @@:
        mov     al, 10
        out     0x70, al
        in      al, 0x71
        test    al, al
        jns     @f
        mov     esi, 1
        call    delay_ms
        jmp     @b
  @@:
 
        mov     ch, 0
        mov     al, 7           ; date
        out     0x70, al
        in      al, 0x71
        mov     cl, al
        mov     al, 8           ; month
        shl     ecx, 16
        out     0x70, al
        in      al, 0x71
        mov     ch, al
        mov     al, 9           ; year
        out     0x70, al
        in      al, 0x71
        mov     cl, al
        sti
        mov     [esp+32], ecx
        ret
 
 
; redraw status
 
sys_redrawstat:
        cmp     ebx, 1
        jne     no_widgets_away
        ; buttons away
        mov     ecx, [CURRENT_TASK]
  sys_newba2:
        mov     edi, [BTN_ADDR]
        cmp     [edi], dword 0  ; empty button list ?
        je      end_of_buttons_away
        movzx   ebx, word [edi]
        inc     ebx
        mov     eax, edi
  sys_newba:
        dec     ebx
        jz      end_of_buttons_away
 
        add     eax, 0x10
        cmp     cx, [eax]
        jnz     sys_newba
 
        push    eax ebx ecx
        mov     ecx, ebx
        inc     ecx
        shl     ecx, 4
        mov     ebx, eax
        add     eax, 0x10
        call    memmove
        dec     dword [edi]
        pop     ecx ebx eax
 
        jmp     sys_newba2
 
  end_of_buttons_away:
 
        ret
 
  no_widgets_away:
 
        cmp     ebx, 2
        jnz     srl1
 
        mov     edx, [TASK_BASE]      ; return whole screen draw area for this app
        add     edx, draw_data - CURRENT_TASK
        mov     [edx + RECT.left], 0
        mov     [edx + RECT.top], 0
        mov     eax, [Screen_Max_X]
        mov     [edx + RECT.right], eax
        mov     eax, [Screen_Max_Y]
        mov     [edx + RECT.bottom], eax
 
  srl1:
        ret
 
;ok - 100% work
;nt - not tested
;---------------------------------------------------------------------------------------------
;eax
;0 - task switch counter. Ret switch counter in eax. Block. ok.
;1 - change task. Ret nothing. Block. ok.
;2 - performance control
; ebx
; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
;eax
;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
;---------------------------------------------------------------------------------------------
iglobal
align 4
sheduler:
        dd      sys_sheduler.00
        dd      change_task
        dd      sys_sheduler.02
        dd      sys_sheduler.03
        dd      sys_sheduler.04
endg
sys_sheduler:
;rewritten by   29.12.2009
        jmp     dword [sheduler+ebx*4]
;.shed_counter:
.00:
        mov     eax, [context_counter]
        mov     [esp+32], eax
        ret
 
.02:
;.perf_control:
        inc     ebx                     ;before ebx=2, ebx=3
        cmp     ebx, ecx                ;if ecx=3, ebx=3
        jz      cache_disable
 
        dec     ebx                     ;ebx=2
        cmp     ebx, ecx                ;
        jz      cache_enable            ;if ecx=2 and ebx=2
 
        dec     ebx                     ;ebx=1
        cmp     ebx, ecx
        jz      is_cache_enabled        ;if ecx=1 and ebx=1
 
        dec     ebx
        test    ebx, ecx                ;ebx=0 and ecx=0
        jz      modify_pce              ;if ecx=0
 
        ret
 
.03:
;.rdmsr_instr:
;now counter in ecx
;(edx:eax) esi:edi => edx:esi
        mov     eax, esi
        mov     ecx, edx
        rdmsr
        mov     [esp+32], eax
        mov     [esp+20], edx           ;ret in ebx?
        ret
 
.04:
;.wrmsr_instr:
;now counter in ecx
;(edx:eax) esi:edi => edx:esi
        ; Fast Call MSR can't be destroy
        ; ® MSR_AMD_EFER ¬®¦­® ¨§¬¥­ïâì, â.ª. ¢ íâ®¬ à¥£¨áâà¥ «¨è
        ; ¢ª«îç îâáï/¢ëª«îç îâáï à áè¨à¥­­ë¥ ¢®§¬®¦­®áâ¨
        cmp     edx, MSR_SYSENTER_CS
        je      @f
        cmp     edx, MSR_SYSENTER_ESP
        je      @f
        cmp     edx, MSR_SYSENTER_EIP
        je      @f
        cmp     edx, MSR_AMD_STAR
        je      @f
 
        mov     eax, esi
        mov     ecx, edx
        wrmsr
        ; mov   [esp + 32], eax
        ; mov   [esp + 20], edx ;ret in ebx?
@@:
        ret
 
cache_disable:
        mov     eax, cr0
        or      eax, 01100000000000000000000000000000b
        mov     cr0, eax
        wbinvd  ;set MESI
        ret
 
cache_enable:
        mov     eax, cr0
        and     eax, 10011111111111111111111111111111b
        mov     cr0, eax
        ret
 
is_cache_enabled:
        mov     eax, cr0
        mov     ebx, eax
        and     eax, 01100000000000000000000000000000b
        jz      cache_disabled
        mov     [esp+32], ebx
cache_disabled:
        mov     dword [esp+32], eax;0
        ret
 
modify_pce:
        mov     eax, cr4
;       mov ebx,0
;       or  bx,100000000b ;pce
;       xor eax,ebx ;invert pce
        bts     eax, 8;pce=cr4[8]
        mov     cr4, eax
        mov     [esp+32], eax
        ret
;---------------------------------------------------------------------------------------------
 
 
; check if pixel is allowed to be drawn
 
;checkpixel:
;        push    eax edx
 
;;        mov     edx, [Screen_Max_X] ; screen x size
;;        inc     edx
;;        imul    edx, ebx
;        mov     edx, [d_width_calc_area + ebx*4]
;        add     eax, [_WinMapAddress]
;        mov     dl, [eax+edx]; lea eax, [...]
 
;        xor     ecx, ecx
;        mov     eax, [CURRENT_TASK]
;        cmp     al, dl
;        setne   cl
 
;        pop     edx eax
;        ret
 
iglobal
  cpustring db 'CPU',0
endg
 
uglobal
background_defined    db    0    ; diamond, 11.04.2006
endg
;-----------------------------------------------------------------------------
align 4
checkmisc:
        cmp     [ctrl_alt_del], 1
        jne     nocpustart
 
        mov     ebp, cpustring
        call    fs_execute_from_sysdir
 
        mov     [ctrl_alt_del], 0
;--------------------------------------
align 4
nocpustart:
        cmp     [mouse_active], 1
        jne     mouse_not_active
        mov     [mouse_active], 0
 
        xor     edi, edi
        mov     ebx, CURRENT_TASK
 
        mov     ecx, [TASK_COUNT]
        movzx   eax, word [WIN_POS + ecx*2]     ; active window
        shl     eax, 8
        push    eax
 
        movzx   eax, word [MOUSE_X]
        movzx   edx, word [MOUSE_Y]
;--------------------------------------
align 4
.set_mouse_event:
        add     edi, 256
        add     ebx, 32
        test    [ebx+TASKDATA.event_mask], 0x80000000
        jz      .pos_filter
 
        cmp     edi, [esp]                      ; skip if filtration active
        jne     .skip
;--------------------------------------
align 4
.pos_filter:
        test    [ebx+TASKDATA.event_mask], 0x40000000
        jz      .set
 
        mov     esi, [ebx-twdw+WDATA.box.left]
        cmp     eax, esi
        jb      .skip
        add     esi, [ebx-twdw+WDATA.box.width]
        cmp     eax, esi
        ja      .skip
 
        mov     esi, [ebx-twdw+WDATA.box.top]
        cmp     edx, esi
        jb      .skip
        add     esi, [ebx-twdw+WDATA.box.height]
        cmp     edx, esi
        ja      .skip
;--------------------------------------
align 4
.set:
        or      [edi+SLOT_BASE+APPDATA.event_mask], 100000b  ; set event 6
;--------------------------------------
align 4
.skip:
        loop    .set_mouse_event
 
        pop     eax
;--------------------------------------
align 4
mouse_not_active:
        cmp     byte[REDRAW_BACKGROUND], 0         ; background update ?
        jz      nobackgr
 
        cmp     [background_defined], 0
        jz      nobackgr
;--------------------------------------
align 4
@@:
        push    eax
        mov     eax, [draw_data+32 + RECT.left]
        shl     eax, 16
        add     eax, [draw_data+32 + RECT.right]
        mov     [BG_Rect_X_left_right], eax ; [left]*65536 + [right]
 
        mov     eax, [draw_data+32 + RECT.top]
        shl     eax, 16
        add     eax, [draw_data+32 + RECT.bottom]
        mov     [BG_Rect_Y_top_bottom], eax ; [top]*65536 + [bottom]
        pop     eax
 
        call    drawbackground
;        DEBUGF  1, "K : drawbackground\n"
;        DEBUGF  1, "K : backg x %x\n",[BG_Rect_X_left_right]
;        DEBUGF  1, "K : backg y %x\n",[BG_Rect_Y_top_bottom]
;--------- set event 5 start ----------
        push    ecx edi
        xor     edi, edi
        mov     ecx, [TASK_COUNT]
;--------------------------------------
align 4
set_bgr_event:
        add     edi, 256
        or      [edi+SLOT_BASE+APPDATA.event_mask], 10000b  ; set event 5
        loop    set_bgr_event
        pop     edi ecx
; call change_task - because the application must have time to call f.15.8
        call    change_task
;--------- set event 5 stop -----------
        dec     byte[REDRAW_BACKGROUND]    ; got new update request?
        jnz     @b
 
        mov     [draw_data+32 + RECT.left], eax
        mov     [draw_data+32 + RECT.top], eax
        mov     [draw_data+32 + RECT.right], eax
        mov     [draw_data+32 + RECT.bottom], eax
        mov     [MOUSE_BACKGROUND], byte 0
;--------------------------------------
align 4
nobackgr:
; system shutdown request
        cmp     [SYS_SHUTDOWN], byte 0
        je      noshutdown
 
        mov     edx, [shutdown_processes]
 
        cmp     [SYS_SHUTDOWN], dl
        jne     no_mark_system_shutdown
 
        lea     ecx, [edx-1]
        mov     edx, OS_BASE+0x3040
        jecxz   @f
;--------------------------------------
align 4
markz:
        mov     [edx+TASKDATA.state], byte 3
        add     edx, 0x20
        loop    markz
;--------------------------------------
align 4
@@:
no_mark_system_shutdown:
        dec     byte [SYS_SHUTDOWN]
        je      system_shutdown
;--------------------------------------
align 4
noshutdown:
        mov     eax, [TASK_COUNT]           ; termination
        mov     ebx, TASK_DATA+TASKDATA.state
        mov     esi, 1
;--------------------------------------
align 4
newct:
        mov     cl, [ebx]
        cmp     cl, byte 3
        jz      terminate
 
        cmp     cl, byte 4
        jz      terminate
 
        add     ebx, 0x20
        inc     esi
        dec     eax
        jnz     newct
        ret
;-----------------------------------------------------------------------------
align 4
redrawscreen:
; eax , if process window_data base is eax, do not set flag/limits
 
        pushad
        push    eax
 
;;;         mov   ebx,2
;;;         call  delay_hs
 
         ;mov   ecx,0               ; redraw flags for apps
        xor     ecx, ecx
;--------------------------------------
align 4
newdw2:
        inc     ecx
        push    ecx
 
        mov     eax, ecx
        shl     eax, 5
        add     eax, window_data
 
        cmp     eax, [esp+4]
        je      not_this_task
                                   ; check if window in redraw area
        mov     edi, eax
 
        cmp     ecx, 1             ; limit for background
        jz      bgli
 
        mov     eax, [edi + WDATA.box.left]
        mov     ebx, [edi + WDATA.box.top]
        mov     ecx, [edi + WDATA.box.width]
        mov     edx, [edi + WDATA.box.height]
        add     ecx, eax
        add     edx, ebx
 
        mov     ecx, [draw_limits.bottom] ; ecx = area y end     ebx = window y start
        cmp     ecx, ebx
        jb      ricino
 
        mov     ecx, [draw_limits.right] ; ecx = area x end     eax = window x start
        cmp     ecx, eax
        jb      ricino
 
        mov     eax, [edi + WDATA.box.left]
        mov     ebx, [edi + WDATA.box.top]
        mov     ecx, [edi + WDATA.box.width]
        mov     edx, [edi + WDATA.box.height]
        add     ecx, eax
        add     edx, ebx
 
        mov     eax, [draw_limits.top]  ; eax = area y start     edx = window y end
        cmp     edx, eax
        jb      ricino
 
        mov     eax, [draw_limits.left]  ; eax = area x start     ecx = window x end
        cmp     ecx, eax
        jb      ricino
;--------------------------------------
align 4
bgli:
        cmp     dword[esp], 1
        jnz     .az
 
        cmp     byte[REDRAW_BACKGROUND], 0
        jz      .az
 
        mov     dl, 0
        lea     eax, [edi+draw_data-window_data]
        mov     ebx, [draw_limits.left]
        cmp     ebx, [eax+RECT.left]
        jae     @f
 
        mov     [eax+RECT.left], ebx
        mov     dl, 1
;--------------------------------------
align 4
@@:
        mov     ebx, [draw_limits.top]
        cmp     ebx, [eax+RECT.top]
        jae     @f
 
        mov     [eax+RECT.top], ebx
        mov     dl, 1
;--------------------------------------
align 4
@@:
        mov     ebx, [draw_limits.right]
        cmp     ebx, [eax+RECT.right]
        jbe     @f
 
        mov     [eax+RECT.right], ebx
        mov     dl, 1
;--------------------------------------
align 4
@@:
        mov     ebx, [draw_limits.bottom]
        cmp     ebx, [eax+RECT.bottom]
        jbe     @f
 
        mov     [eax+RECT.bottom], ebx
        mov     dl, 1
;--------------------------------------
align 4
@@:
        add     byte[REDRAW_BACKGROUND], dl
        jmp     newdw8
;--------------------------------------
align 4
.az:
        mov     eax, edi
        add     eax, draw_data-window_data
 
        mov     ebx, [draw_limits.left]        ; set limits
        mov     [eax + RECT.left], ebx
        mov     ebx, [draw_limits.top]
        mov     [eax + RECT.top], ebx
        mov     ebx, [draw_limits.right]
        mov     [eax + RECT.right], ebx
        mov     ebx, [draw_limits.bottom]
        mov     [eax + RECT.bottom], ebx
 
        sub     eax, draw_data-window_data
 
        cmp     dword [esp], 1
        jne     nobgrd
        inc     byte[REDRAW_BACKGROUND]
;--------------------------------------
align 4
newdw8:
nobgrd:
 
        mov     [eax + WDATA.fl_redraw], byte 1  ; mark as redraw
;--------------------------------------
align 4
ricino:
not_this_task:
        pop     ecx
 
        cmp     ecx, [TASK_COUNT]
        jle     newdw2
 
        pop     eax
        popad
        ret
;-----------------------------------------------------------------------------
align 4
calculatebackground:   ; background
        mov     edi, [_WinMapAddress]              ; set os to use all pixels
        mov     eax, 0x01010101
        mov     ecx, [_WinMapSize]
        shr     ecx, 2
        rep stosd
 
        mov     byte[REDRAW_BACKGROUND], 0            ; do not draw background!
        ret
;-----------------------------------------------------------------------------
uglobal
  imax    dd 0x0
endg
;-----------------------------------------------------------------------------
align 4
delay_ms:     ; delay in 1/1000 sec
        push    eax
        push    ecx
 
        mov     ecx, esi
        ; 
        imul    ecx, 33941
        shr     ecx, 9
        ; 
 
        in      al, 0x61
        and     al, 0x10
        mov     ah, al
        cld
;--------------------------------------
align 4
cnt1:
        in      al, 0x61
        and     al, 0x10
        cmp     al, ah
        jz      cnt1
 
        mov     ah, al
        loop    cnt1
 
        pop     ecx
        pop     eax
        ret
;-----------------------------------------------------------------------------
align 4
set_app_param:
        mov     edi, [TASK_BASE]
        mov     eax, ebx
        btr     eax, 3                           ; move MOUSE_FILTRATION
        mov     ebx, [current_slot]              ; bit into event_filter
        setc    byte [ebx+APPDATA.event_filter]
        xchg    eax, [edi + TASKDATA.event_mask] ; set new event mask
        mov     [esp+32], eax                    ; return old mask value
        ret
;-----------------------------------------------------------------------------
align 4
delay_hs:     ; delay in 1/100 secs
; ebx = delay time
        push    ecx
        push    edx
 
        mov     edx, [timer_ticks]
;--------------------------------------
align 4
newtic:
        mov     ecx, [timer_ticks]
        sub     ecx, edx
        cmp     ecx, ebx
        jae     zerodelay
 
        call    change_task
 
        jmp     newtic
;--------------------------------------
align 4
zerodelay:
        pop     edx
        pop     ecx
        ret
;-----------------------------------------------------------------------------
align 16        ;very often call this subrutine
memmove:       ; memory move in bytes
; eax = from
; ebx = to
; ecx = no of bytes
        test    ecx, ecx
        jle     .ret
 
        push    esi edi ecx
 
        mov     edi, ebx
        mov     esi, eax
 
        test    ecx, not 11b
        jz      @f
 
        push    ecx
        shr     ecx, 2
        rep movsd
        pop     ecx
        and     ecx, 11b
        jz      .finish
;--------------------------------------
align 4
@@:
        rep movsb
;--------------------------------------
align 4
.finish:
        pop     ecx edi esi
;--------------------------------------
align 4
.ret:
        ret
;-----------------------------------------------------------------------------
;  Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
;align 4
;
;read_floppy_file:
;
;; as input
;;
;; eax pointer to file
;; ebx file lenght
;; ecx start 512 byte block number
;; edx number of blocks to read
;; esi pointer to return/work area (atleast 20 000 bytes)
;;
;;
;; on return
;;
;; eax = 0 command succesful
;;       1 no fd base and/or partition defined
;;       2 yet unsupported FS
;;       3 unknown FS
;;       4 partition not defined at hd
;;       5 file not found
;; ebx = size of file
;
;     mov   edi,[TASK_BASE]
;     add   edi,0x10
;     add   esi,[edi]
;     add   eax,[edi]
;
;     pushad
;     mov  edi,esi
;     add  edi,1024
;     mov  esi,0x100000+19*512
;     sub  ecx,1
;     shl  ecx,9
;     add  esi,ecx
;     shl  edx,9
;     mov  ecx,edx
;     cld
;     rep  movsb
;     popad
;
;     mov   [esp+36],eax
;     mov   [esp+24],ebx
;     ret
 
 
 
align 4
set_io_access_rights:
        push    edi eax
        mov     edi, tss._io_map_0
;     mov   ecx,eax
;     and   ecx,7    ; offset in byte
;     shr   eax,3    ; number of byte
;     add   edi,eax
;     mov   ebx,1
;     shl   ebx,cl
        test    ebp, ebp
;     cmp   ebp,0                ; enable access - ebp = 0
        jnz     .siar1
;     not   ebx
;     and   [edi],byte bl
        btr     [edi], eax
        pop     eax edi
        ret
.siar1:
        bts     [edi], eax
  ;  or    [edi],byte bl        ; disable access - ebp = 1
        pop     eax edi
        ret
;reserve/free group of ports
;  * eax = 46 - number function
;  * ebx = 0 - reserve, 1 - free
;  * ecx = number start arrea of ports
;  * edx = number end arrea of ports (include last number of port)
;Return value:
;  * eax = 0 - succesful
;  * eax = 1 - error
;  * The system has reserve this ports:
;    0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
;destroys eax,ebx, ebp
r_f_port_area:
 
        test    ebx, ebx
        jnz     free_port_area
;     je    r_port_area
;     jmp   free_port_area
 
;   r_port_area:
 
;     pushad
 
        cmp     ecx, edx      ; beginning > end ?
        ja      rpal1
        cmp     edx, 65536
        jae     rpal1
        mov     eax, [RESERVED_PORTS]
        test    eax, eax      ; no reserved areas ?
        je      rpal2
        cmp     eax, 255      ; max reserved
        jae     rpal1
 rpal3:
        mov     ebx, eax
        shl     ebx, 4
        add     ebx, RESERVED_PORTS
        cmp     ecx, [ebx+8]
        ja      rpal4
        cmp     edx, [ebx+4]
        jae     rpal1
;     jb    rpal4
;     jmp   rpal1
 rpal4:
        dec     eax
        jnz     rpal3
        jmp     rpal2
   rpal1:
;     popad
;     mov   eax,1
        xor     eax, eax
        inc     eax
        ret
   rpal2:
;     popad
     ; enable port access at port IO map
        cli
        pushad                        ; start enable io map
 
        cmp     edx, 65536;16384
        jae     no_unmask_io; jge
        mov     eax, ecx
;       push    ebp
        xor     ebp, ebp               ; enable - eax = port
new_port_access:
;     pushad
        call    set_io_access_rights
;     popad
        inc     eax
        cmp     eax, edx
        jbe     new_port_access
;       pop     ebp
no_unmask_io:
        popad                         ; end enable io map
        sti
 
        mov     eax, [RESERVED_PORTS]
        add     eax, 1
        mov     [RESERVED_PORTS], eax
        shl     eax, 4
        add     eax, RESERVED_PORTS
        mov     ebx, [TASK_BASE]
        mov     ebx, [ebx+TASKDATA.pid]
        mov     [eax], ebx
        mov     [eax+4], ecx
        mov     [eax+8], edx
 
        xor     eax, eax
        ret
 
free_port_area:
 
;     pushad
        mov     eax, [RESERVED_PORTS]; no reserved areas ?
        test    eax, eax
        jz      frpal2
        mov     ebx, [TASK_BASE]
        mov     ebx, [ebx+TASKDATA.pid]
   frpal3:
        mov     edi, eax
        shl     edi, 4
        add     edi, RESERVED_PORTS
        cmp     ebx, [edi]
        jne     frpal4
        cmp     ecx, [edi+4]
        jne     frpal4
        cmp     edx, [edi+8]
        jne     frpal4
        jmp     frpal1
   frpal4:
        dec     eax
        jnz     frpal3
   frpal2:
;     popad
        inc     eax
        ret
   frpal1:
        push    ecx
        mov     ecx, 256
        sub     ecx, eax
        shl     ecx, 4
        mov     esi, edi
        add     esi, 16
        cld
        rep movsb
 
        dec     dword [RESERVED_PORTS]
;popad
;disable port access at port IO map
 
;     pushad                        ; start disable io map
        pop     eax     ;start port
        cmp     edx, 65536;16384
        jge     no_mask_io
 
;     mov   eax,ecx
        xor     ebp, ebp
        inc     ebp
new_port_access_disable:
;     pushad
;     mov   ebp,1                  ; disable - eax = port
        call    set_io_access_rights
;     popad
        inc     eax
        cmp     eax, edx
        jbe     new_port_access_disable
no_mask_io:
;     popad                         ; end disable io map
        xor     eax, eax
        ret
;-----------------------------------------------------------------------------
align 4
drawbackground:
dbrv20:
        cmp     [BgrDrawMode], dword 1
        jne     bgrstr
        call    vesa20_drawbackground_tiled
;        call    [draw_pointer]
        call    __sys_draw_pointer
        ret
;--------------------------------------
align 4
bgrstr:
        call    vesa20_drawbackground_stretch
;        call    [draw_pointer]
        call    __sys_draw_pointer
        ret
;-----------------------------------------------------------------------------
align 4
syscall_putimage:                       ; PutImage
sys_putimage:
        test    ecx, 0x80008000
        jnz     .exit
        test    ecx, 0x0000FFFF
        jz      .exit
        test    ecx, 0xFFFF0000
        jnz     @f
;--------------------------------------
align 4
.exit:
        ret
;--------------------------------------
align 4
@@:
        mov     edi, [current_slot]
        add     dx, word[edi+APPDATA.wnd_clientbox.top]
        rol     edx, 16
        add     dx, word[edi+APPDATA.wnd_clientbox.left]
        rol     edx, 16
;--------------------------------------
align 4
.forced:
        push    ebp esi 0
        mov     ebp, putimage_get24bpp
        mov     esi, putimage_init24bpp
;--------------------------------------
align 4
sys_putimage_bpp:
        call    vesa20_putimage
        pop     ebp esi ebp
        ret
;        jmp     [draw_pointer]
;-----------------------------------------------------------------------------
align 4
sys_putimage_palette:
; ebx = pointer to image
; ecx = [xsize]*65536 + [ysize]
; edx = [xstart]*65536 + [ystart]
; esi = number of bits per pixel, must be 8, 24 or 32
; edi = pointer to palette
; ebp = row delta
        mov     eax, [CURRENT_TASK]
        shl     eax, 8
        add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
        rol     edx, 16
        add     dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
        rol     edx, 16
;--------------------------------------
align 4
.forced:
        cmp     esi, 1
        jnz     @f
        push    edi
        mov     eax, [edi+4]
        sub     eax, [edi]
        push    eax
        push    dword [edi]
        push    0ffffff80h
        mov     edi, esp
        call    put_mono_image
        add     esp, 12
        pop     edi
        ret
;--------------------------------------
align 4
@@:
        cmp     esi, 2
        jnz     @f
        push    edi
        push    0ffffff80h
        mov     edi, esp
        call    put_2bit_image
        pop     eax
        pop     edi
        ret
;--------------------------------------
align 4
@@:
        cmp     esi, 4
        jnz     @f
        push    edi
        push    0ffffff80h
        mov     edi, esp
        call    put_4bit_image
        pop     eax
        pop     edi
        ret
;--------------------------------------
align 4
@@:
        push    ebp esi ebp
        cmp     esi, 8
        jnz     @f
        mov     ebp, putimage_get8bpp
        mov     esi, putimage_init8bpp
        jmp     sys_putimage_bpp
;--------------------------------------
align 4
@@:
        cmp     esi, 15
        jnz     @f
        mov     ebp, putimage_get15bpp
        mov     esi, putimage_init15bpp
        jmp     sys_putimage_bpp
;--------------------------------------
align 4
@@:
        cmp     esi, 16
        jnz     @f
        mov     ebp, putimage_get16bpp
        mov     esi, putimage_init16bpp
        jmp     sys_putimage_bpp
;--------------------------------------
align 4
@@:
        cmp     esi, 24
        jnz     @f
        mov     ebp, putimage_get24bpp
        mov     esi, putimage_init24bpp
        jmp     sys_putimage_bpp
;--------------------------------------
align 4
@@:
        cmp     esi, 32
        jnz     @f
        mov     ebp, putimage_get32bpp
        mov     esi, putimage_init32bpp
        jmp     sys_putimage_bpp
;--------------------------------------
align 4
@@:
        pop     ebp esi ebp
        ret
;-----------------------------------------------------------------------------
align 4
put_mono_image:
        push    ebp esi ebp
        mov     ebp, putimage_get1bpp
        mov     esi, putimage_init1bpp
        jmp     sys_putimage_bpp
;-----------------------------------------------------------------------------
align 4
put_2bit_image:
        push    ebp esi ebp
        mov     ebp, putimage_get2bpp
        mov     esi, putimage_init2bpp
        jmp     sys_putimage_bpp
;-----------------------------------------------------------------------------
align 4
put_4bit_image:
        push    ebp esi ebp
        mov     ebp, putimage_get4bpp
        mov     esi, putimage_init4bpp
        jmp     sys_putimage_bpp
;-----------------------------------------------------------------------------
align 4
putimage_init24bpp:
        lea     eax, [eax*3]
putimage_init8bpp:
        ret
;-----------------------------------------------------------------------------
align 16
putimage_get24bpp:
        movzx   eax, byte [esi+2]
        shl     eax, 16
        mov     ax, [esi]
        add     esi, 3
        ret     4
;-----------------------------------------------------------------------------
align 16
putimage_get8bpp:
        movzx   eax, byte [esi]
        push    edx
        mov     edx, [esp+8]
        mov     eax, [edx+eax*4]
        pop     edx
        inc     esi
        ret     4
;-----------------------------------------------------------------------------
align 4
putimage_init1bpp:
        add     eax, ecx
        push    ecx
        add     eax, 7
        add     ecx, 7
        shr     eax, 3
        shr     ecx, 3
        sub     eax, ecx
        pop     ecx
        ret
;-----------------------------------------------------------------------------
align 16
putimage_get1bpp:
        push    edx
        mov     edx, [esp+8]
        mov     al, [edx]
        add     al, al
        jnz     @f
        lodsb
        adc     al, al
@@:
        mov     [edx], al
        sbb     eax, eax
        and     eax, [edx+8]
        add     eax, [edx+4]
        pop     edx
        ret     4
;-----------------------------------------------------------------------------
align 4
putimage_init2bpp:
        add     eax, ecx
        push    ecx
        add     ecx, 3
        add     eax, 3
        shr     ecx, 2
        shr     eax, 2
        sub     eax, ecx
        pop     ecx
        ret
;-----------------------------------------------------------------------------
align 16
putimage_get2bpp:
        push    edx
        mov     edx, [esp+8]
        mov     al, [edx]
        mov     ah, al
        shr     al, 6
        shl     ah, 2
        jnz     .nonewbyte
        lodsb
        mov     ah, al
        shr     al, 6
        shl     ah, 2
        add     ah, 1
.nonewbyte:
        mov     [edx], ah
        mov     edx, [edx+4]
        movzx   eax, al
        mov     eax, [edx+eax*4]
        pop     edx
        ret     4
;-----------------------------------------------------------------------------
align 4
putimage_init4bpp:
        add     eax, ecx
        push    ecx
        add     ecx, 1
        add     eax, 1
        shr     ecx, 1
        shr     eax, 1
        sub     eax, ecx
        pop     ecx
        ret
;-----------------------------------------------------------------------------
align 16
putimage_get4bpp:
        push    edx
        mov     edx, [esp+8]
        add     byte [edx], 80h
        jc      @f
        movzx   eax, byte [edx+1]
        mov     edx, [edx+4]
        and     eax, 0x0F
        mov     eax, [edx+eax*4]
        pop     edx
        ret     4
@@:
        movzx   eax, byte [esi]
        add     esi, 1
        mov     [edx+1], al
        shr     eax, 4
        mov     edx, [edx+4]
        mov     eax, [edx+eax*4]
        pop     edx
        ret     4
;-----------------------------------------------------------------------------
align 4
putimage_init32bpp:
        shl     eax, 2
        ret
;-----------------------------------------------------------------------------
align 16
putimage_get32bpp:
        lodsd
        ret     4
;-----------------------------------------------------------------------------
align 4
putimage_init15bpp:
putimage_init16bpp:
        add     eax, eax
        ret
;-----------------------------------------------------------------------------
align 16
putimage_get15bpp:
; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
        push    ecx edx
        movzx   eax, word [esi]
        add     esi, 2
        mov     ecx, eax
        mov     edx, eax
        and     eax, 0x1F
        and     ecx, 0x1F shl 5
        and     edx, 0x1F shl 10
        shl     eax, 3
        shl     ecx, 6
        shl     edx, 9
        or      eax, ecx
        or      eax, edx
        pop     edx ecx
        ret     4
;-----------------------------------------------------------------------------
align 16
putimage_get16bpp:
; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
        push    ecx edx
        movzx   eax, word [esi]
        add     esi, 2
        mov     ecx, eax
        mov     edx, eax
        and     eax, 0x1F
        and     ecx, 0x3F shl 5
        and     edx, 0x1F shl 11
        shl     eax, 3
        shl     ecx, 5
        shl     edx, 8
        or      eax, ecx
        or      eax, edx
        pop     edx ecx
        ret     4
;-----------------------------------------------------------------------------
;align 4
; eax x beginning
; ebx y beginning
; ecx x end
        ; edx y end
; edi color
;__sys_drawbar:
;        mov     esi, [current_slot]
;        add     eax, [esi+APPDATA.wnd_clientbox.left]
;        add     ecx, [esi+APPDATA.wnd_clientbox.left]
;        add     ebx, [esi+APPDATA.wnd_clientbox.top]
;        add     edx, [esi+APPDATA.wnd_clientbox.top]
;--------------------------------------
;align 4
;.forced:
;        call    vesa20_drawbar
;        call    [draw_pointer]
;        ret
;-----------------------------------------------------------------------------
align 4
kb_read:
 
        push    ecx edx
 
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
      kr_loop:
        in      al, 0x64
        test    al, 1
        jnz     kr_ready
        loop    kr_loop
        mov     ah, 1
        jmp     kr_exit
      kr_ready:
        push    ecx
        mov     ecx, 32
      kr_delay:
        loop    kr_delay
        pop     ecx
        in      al, 0x60
        xor     ah, ah
      kr_exit:
 
        pop     edx ecx
 
        ret
;-----------------------------------------------------------------------------
align 4
kb_write:
 
        push    ecx edx
 
        mov     dl, al
;        mov     ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
;      kw_loop1:
;        in      al,0x64
;        test    al,0x20
;        jz      kw_ok1
;        loop    kw_loop1
;        mov     ah,1
;        jmp     kw_exit
;      kw_ok1:
        in      al, 0x60
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
      kw_loop:
        in      al, 0x64
        test    al, 2
        jz      kw_ok
        loop    kw_loop
        mov     ah, 1
        jmp     kw_exit
      kw_ok:
        mov     al, dl
        out     0x60, al
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
      kw_loop3:
        in      al, 0x64
        test    al, 2
        jz      kw_ok3
        loop    kw_loop3
        mov     ah, 1
        jmp     kw_exit
      kw_ok3:
        mov     ah, 8
      kw_loop4:
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
      kw_loop5:
        in      al, 0x64
        test    al, 1
        jnz     kw_ok4
        loop    kw_loop5
        dec     ah
        jnz     kw_loop4
      kw_ok4:
        xor     ah, ah
      kw_exit:
 
        pop     edx ecx
 
        ret
;-----------------------------------------------------------------------------
align 4
kb_cmd:
 
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
      c_wait:
        in      al, 0x64
        test    al, 2
        jz      c_send
        loop    c_wait
        jmp     c_error
      c_send:
        mov     al, bl
        out     0x64, al
        mov     ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
      c_accept:
        in      al, 0x64
        test    al, 2
        jz      c_ok
        loop    c_accept
      c_error:
        mov     ah, 1
        jmp     c_exit
      c_ok:
        xor     ah, ah
      c_exit:
        ret
 
 
setmouse:  ; set mousepicture -pointer
           ; ps2 mouse enable
 
;        mov     [MOUSE_PICTURE], dword mousepointer
 
        cli
 
        ret
 
if used _rdtsc
_rdtsc:
        bt      [cpu_caps], CAPS_TSC
        jnc     ret_rdtsc
        rdtsc
        ret
   ret_rdtsc:
        mov     edx, 0xffffffff
        mov     eax, 0xffffffff
        ret
end if
 
sys_msg_board_str:
 
        pushad
   @@:
        cmp     [esi], byte 0
        je      @f
        mov     eax, 1
        movzx   ebx, byte [esi]
        call    sys_msg_board
        inc     esi
        jmp     @b
   @@:
        popad
        ret
 
sys_msg_board_byte:
; in: al = byte to display
; out: nothing
; destroys: nothing
        pushad
        mov     ecx, 2
        shl     eax, 24
        jmp     @f
 
sys_msg_board_word:
; in: ax = word to display
; out: nothing
; destroys: nothing
        pushad
        mov     ecx, 4
        shl     eax, 16
        jmp     @f
 
sys_msg_board_dword:
; in: eax = dword to display
; out: nothing
; destroys: nothing
        pushad
        mov     ecx, 8
@@:
        push    ecx
        rol     eax, 4
        push    eax
        and     al, 0xF
        cmp     al, 10
        sbb     al, 69h
        das
        mov     bl, al
        xor     eax, eax
        inc     eax
        call    sys_msg_board
        pop     eax
        pop     ecx
        loop    @b
        popad
        ret
 
uglobal
  msg_board_data:
                  times 4096 db 0
  msg_board_count dd 0x0
endg
 
sys_msg_board:
 
; eax=1 : write :  bl byte to write
; eax=2 :  read :  ebx=0 -> no data, ebx=1 -> data in al
 
        mov     ecx, [msg_board_count]
        cmp     eax, 1
        jne     .smbl1
 
if defined debug_com_base
 
        push    dx ax
 
       @@:                              ; Wait for empty transmit register  (yes, this slows down system..)
        mov     dx, debug_com_base+5
        in      al, dx
        test    al, 1 shl 5
        jz      @r
 
        mov     dx, debug_com_base      ; Output the byte
        mov     al, bl
        out     dx, al
 
        pop     ax dx
 
end if
 
        mov     [msg_board_data+ecx], bl
        inc     ecx
        and     ecx, 4095
        mov     [msg_board_count], ecx
        mov     [check_idle_semaphore], 5
        ret
.smbl1:
        cmp     eax, 2
        jne     .smbl2
        test    ecx, ecx
        jz      .smbl21
        mov     eax, msg_board_data+1
        mov     ebx, msg_board_data
        movzx   edx, byte [ebx]
        call    memmove
        dec     [msg_board_count]
        mov     [esp + 36], edx ;eax
        mov     [esp + 24], dword 1
        ret
.smbl21:
        mov     [esp+36], ecx
        mov     [esp+24], ecx
.smbl2:
        ret
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 66 sys function.                                                ;;
;; in eax=66,ebx in [0..5],ecx,edx                                 ;;
;; out eax                                                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
iglobal
align 4
f66call:
           dd sys_process_def.1   ; 1 = set keyboard mode
           dd sys_process_def.2   ; 2 = get keyboard mode
           dd sys_process_def.3   ; 3 = get keyboard ctrl, alt, shift
           dd sys_process_def.4
           dd sys_process_def.5
endg
 
 
 
 
sys_process_def:
        dec     ebx
        cmp     ebx, 5
        jae     .not_support    ;if >=6 then or eax,-1
 
        mov     edi, [CURRENT_TASK]
        jmp     dword [f66call+ebx*4]
 
.not_support:
        or      eax, -1
        ret
 
.1:
        shl     edi, 8
        mov     [edi+SLOT_BASE + APPDATA.keyboard_mode], cl
 
        ret
 
.2:                             ; 2 = get keyboard mode
        shl     edi, 8
        movzx   eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
        mov     [esp+32], eax
        ret
;     xor   eax,eax
;     movzx eax,byte [shift]
;     movzx ebx,byte [ctrl]
;     shl   ebx,2
;     add   eax,ebx
;     movzx ebx,byte [alt]
;     shl   ebx,3
;     add   eax,ebx
.3:                             ;3 = get keyboard ctrl, alt, shift
 ;// mike.dld [
        mov     eax, [kb_state]
 ;// mike.dld ]
        mov     [esp+32], eax
        ret
 
.4:
        mov     eax, hotkey_list
@@:
        cmp     dword [eax+8], 0
        jz      .found_free
        add     eax, 16
        cmp     eax, hotkey_list+16*256
        jb      @b
        mov     dword [esp+32], 1
        ret
.found_free:
        mov     [eax+8], edi
        mov     [eax+4], edx
        movzx   ecx, cl
        lea     ecx, [hotkey_scancodes+ecx*4]
        mov     edx, [ecx]
        mov     [eax], edx
        mov     [ecx], eax
        mov     [eax+12], ecx
        jecxz   @f
        mov     [edx+12], eax
@@:
        and     dword [esp+32], 0
        ret
 
.5:
        movzx   ebx, cl
        lea     ebx, [hotkey_scancodes+ebx*4]
        mov     eax, [ebx]
.scan:
        test    eax, eax
        jz      .notfound
        cmp     [eax+8], edi
        jnz     .next
        cmp     [eax+4], edx
        jz      .found
.next:
        mov     eax, [eax]
        jmp     .scan
.notfound:
        mov     dword [esp+32], 1
        ret
.found:
        mov     ecx, [eax]
        jecxz   @f
        mov     edx, [eax+12]
        mov     [ecx+12], edx
@@:
        mov     ecx, [eax+12]
        mov     edx, [eax]
        mov     [ecx], edx
        xor     edx, edx
        mov     [eax+4], edx
        mov     [eax+8], edx
        mov     [eax+12], edx
        mov     [eax], edx
        mov     [esp+32], edx
        ret
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 61 sys function.                                                ;;
;; in eax=61,ebx in [1..3]                                         ;;
;; out eax                                                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
iglobal
align 4
f61call:
           dd sys_gs.1   ; resolution
           dd sys_gs.2   ; bits per pixel
           dd sys_gs.3   ; bytes per scanline
endg
 
 
align 4
 
sys_gs:                         ; direct screen access
        dec     ebx
        cmp     ebx, 2
        ja      .not_support
        jmp     dword [f61call+ebx*4]
.not_support:
        or      [esp+32], dword -1
        ret
 
 
.1:                             ; resolution
        mov     eax, [Screen_Max_X]
        shl     eax, 16
        mov     ax, [Screen_Max_Y]
        add     eax, 0x00010001
        mov     [esp+32], eax
        ret
.2:                             ; bits per pixel
        movzx   eax, byte [ScreenBPP]
        mov     [esp+32], eax
        ret
.3:                             ; bytes per scanline
        mov     eax, [BytesPerScanLine]
        mov     [esp+32], eax
        ret
 
align 4  ;  system functions
 
syscall_setpixel:                       ; SetPixel
 
        mov     eax, ebx
        mov     ebx, ecx
        mov     ecx, edx
        mov     edx, [TASK_BASE]
        add     eax, [edx-twdw+WDATA.box.left]
        add     ebx, [edx-twdw+WDATA.box.top]
        mov     edi, [current_slot]
        add     eax, [edi+APPDATA.wnd_clientbox.left]
        add     ebx, [edi+APPDATA.wnd_clientbox.top]
        xor     edi, edi ; no force
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 save to mouseunder area
;        jmp     [putpixel]
        jmp     __sys_putpixel
 
align 4
 
syscall_writetext:                      ; WriteText
 
        mov     eax, [TASK_BASE]
        mov     ebp, [eax-twdw+WDATA.box.left]
        push    esi
        mov     esi, [current_slot]
        add     ebp, [esi+APPDATA.wnd_clientbox.left]
        shl     ebp, 16
        add     ebp, [eax-twdw+WDATA.box.top]
        add     bp, word[esi+APPDATA.wnd_clientbox.top]
        pop     esi
        add     ebx, ebp
        mov     eax, edi
        test    ecx, 0x08000000  ; redirect the output to the user area
        jnz     dtext
        xor     edi, edi
        jmp     dtext
 
align 4
 
syscall_openramdiskfile:                ; OpenRamdiskFile
 
        mov     eax, ebx
        mov     ebx, ecx
        mov     ecx, edx
        mov     edx, esi
        mov     esi, 12
        call    fileread
        mov     [esp+32], eax
        ret
 
align 4
 
syscall_drawrect:                       ; DrawRect
 
        mov     edi, edx ; color + gradient
        and     edi, 0x80FFFFFF
        test    bx, bx  ; x.size
        je      .drectr
        test    cx, cx ; y.size
        je      .drectr
 
        mov     eax, ebx ; bad idea
        mov     ebx, ecx
 
        movzx   ecx, ax ; ecx - x.size
        shr     eax, 16 ; eax - x.coord
        movzx   edx, bx ; edx - y.size
        shr     ebx, 16 ; ebx - y.coord
        mov     esi, [current_slot]
 
        add     eax, [esi + APPDATA.wnd_clientbox.left]
        add     ebx, [esi + APPDATA.wnd_clientbox.top]
        add     ecx, eax
        add     edx, ebx
;        jmp     [drawbar]
        jmp     vesa20_drawbar
.drectr:
        ret
 
align 4
syscall_getscreensize:                  ; GetScreenSize
        mov     ax, [Screen_Max_X]
        shl     eax, 16
        mov     ax, [Screen_Max_Y]
        mov     [esp + 32], eax
        ret
 
align 4
 
syscall_cdaudio:                        ; CD
 
        cmp     ebx, 4
        jb      .audio
        jz      .eject
        cmp     ebx, 5
        jnz     .ret
.load:
        call    .reserve
        call    LoadMedium
        ;call    .free
        jmp     .free
;        ret
.eject:
        call    .reserve
        call    clear_CD_cache
        call    allow_medium_removal
        call    EjectMedium
;        call    .free
        jmp     .free
;        ret
.audio:
        call    sys_cd_audio
        mov     [esp+36-4], eax
.ret:
        ret
 
.reserve:
        call    reserve_cd
        mov     eax, ecx
        shr     eax, 1
        and     eax, 1
        inc     eax
        mov     [ChannelNumber], ax
        mov     eax, ecx
        and     eax, 1
        mov     [DiskNumber], al
        call    reserve_cd_channel
        and     ebx, 3
        inc     ebx
        mov     [cdpos], ebx
        add     ebx, ebx
        mov     cl, 8
        sub     cl, bl
        mov     al, [DRIVE_DATA+1]
        shr     al, cl
        test    al, 2
        jz      .free;.err
        ret
.free:
        call    free_cd_channel
        and     [cd_status], 0
        ret
.err:
        call    .free
;        pop     eax
        ret
;-----------------------------------------------------------------------------
align 4
syscall_getpixel_WinMap:                       ; GetPixel WinMap
        cmp     ebx, [Screen_Max_X]
        jbe     @f
        cmp     ecx, [Screen_Max_Y]
        jbe     @f
        xor     eax, eax
        jmp     .store
;--------------------------------------
align 4
@@:
        mov     eax, [d_width_calc_area + ecx*4]
        add     eax, [_WinMapAddress]
        movzx   eax, byte[eax+ebx]        ; get value for current point
;--------------------------------------
align 4
.store:
        mov     [esp + 32], eax
        ret
;-----------------------------------------------------------------------------
align 4
syscall_getpixel:                       ; GetPixel
        mov     ecx, [Screen_Max_X]
        inc     ecx
        xor     edx, edx
        mov     eax, ebx
        div     ecx
        mov     ebx, edx
        xchg    eax, ebx
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 use mouseunder area
        call    dword [GETPIXEL]; eax - x, ebx - y
        mov     [esp + 32], ecx
        ret
;-----------------------------------------------------------------------------
align 4
syscall_getarea:
;eax = 36
;ebx = pointer to bufer for img BBGGRRBBGGRR...
;ecx = [size x]*65536 + [size y]
;edx = [start x]*65536 + [start y]
        pushad
        mov     edi, ebx
        mov     eax, edx
        shr     eax, 16
        mov     ebx, edx
        and     ebx, 0xffff
        dec     eax
        dec     ebx
     ; eax - x, ebx - y
        mov     edx, ecx
 
        shr     ecx, 16
        and     edx, 0xffff
        mov     esi, ecx
     ; ecx - size x, edx - size y
 
        mov     ebp, edx
        dec     ebp
        lea     ebp, [ebp*3]
 
        imul    ebp, esi
 
        mov     esi, ecx
        dec     esi
        lea     esi, [esi*3]
 
        add     ebp, esi
        add     ebp, edi
 
        add     ebx, edx
;--------------------------------------
align 4
.start_y:
        push    ecx edx
;--------------------------------------
align 4
.start_x:
        push    eax ebx ecx
        add     eax, ecx
 
        and     ecx, 0xFBFFFFFF  ;negate 0x04000000 use mouseunder area
        call    dword [GETPIXEL]; eax - x, ebx - y
 
        mov     [ebp], cx
        shr     ecx, 16
        mov     [ebp+2], cl
 
        pop     ecx ebx eax
        sub     ebp, 3
        dec     ecx
        jnz     .start_x
        pop     edx ecx
        dec     ebx
        dec     edx
        jnz     .start_y
        popad
        ret
;-----------------------------------------------------------------------------
align 4
syscall_putarea_backgr:
;eax = 25
;ebx = pointer to bufer for img BBGGRRBBGGRR...
;ecx = [size x]*65536 + [size y]
;edx = [start x]*65536 + [start y]
        pushad
        mov     edi, ebx
        mov     eax, edx
        shr     eax, 16
        mov     ebx, edx
        and     ebx, 0xffff
        dec     eax
        dec     ebx
; eax - x, ebx - y
        mov     edx, ecx
        shr     ecx, 16
        and     edx, 0xffff
        mov     esi, ecx
; ecx - size x, edx - size y
        mov     ebp, edx
        dec     ebp
        shl     ebp, 2
 
        imul    ebp, esi
 
        mov     esi, ecx
        dec     esi
        shl     esi, 2
 
        add     ebp, esi
        add     ebp, edi
 
        add     ebx, edx
;--------------------------------------
align 4
.start_y:
        push    ecx edx
;--------------------------------------
align 4
.start_x:
        push    eax ecx
        add     eax, ecx
 
        mov     ecx, [ebp]
        rol     ecx, 8
        test    cl, cl        ; transparensy = 0
        jz      .no_put
 
        xor     cl, cl
        ror     ecx, 8
 
        pushad
        mov     edx, [d_width_calc_area + ebx*4]
        add     edx, [_WinMapAddress]
        movzx   edx, byte [eax+edx]
        cmp     dl, byte 1
        jne     @f
 
        call    dword [PUTPIXEL]; eax - x, ebx - y
;--------------------------------------
align 4
@@:
        popad
;--------------------------------------
align 4
.no_put:
        pop     ecx eax
        
        sub     ebp, 4
        dec     ecx
        jnz     .start_x
 
        pop     edx ecx
        dec     ebx
        dec     edx
        jnz     .start_y
 
        popad
        ret
;-----------------------------------------------------------------------------
align 4
syscall_drawline:                       ; DrawLine
 
        mov     edi, [TASK_BASE]
        movzx   eax, word[edi-twdw+WDATA.box.left]
        mov     ebp, eax
        mov     esi, [current_slot]
        add     ebp, [esi+APPDATA.wnd_clientbox.left]
        add     ax, word[esi+APPDATA.wnd_clientbox.left]
        add     ebp, ebx
        shl     eax, 16
        movzx   ebx, word[edi-twdw+WDATA.box.top]
        add     eax, ebp
        mov     ebp, ebx
        add     ebp, [esi+APPDATA.wnd_clientbox.top]
        add     bx, word[esi+APPDATA.wnd_clientbox.top]
        add     ebp, ecx
        shl     ebx, 16
        xor     edi, edi
        add     ebx, ebp
        mov     ecx, edx
;        jmp     [draw_line]
        jmp     __sys_draw_line
 
 
align 4
syscall_reserveportarea:                ; ReservePortArea and FreePortArea
 
        call    r_f_port_area
        mov     [esp+32], eax
        ret
 
align 4
syscall_threads:                        ; CreateThreads
; eax=1 create thread
;
;   ebx=thread start
;   ecx=thread stack value
;
; on return : eax = pid
 
        call    new_sys_threads
 
        mov     [esp+32], eax
        ret
 
align 4
 
stack_driver_stat:
 
        call    app_stack_handler       ; Stack status
 
;     mov   [check_idle_semaphore],5    ; enable these for zero delay
;     call  change_task                 ; between sent packet
 
        mov     [esp+32], eax
        ret
 
align 4
 
socket:                                 ; Socket interface
        call    app_socket_handler
 
;     mov   [check_idle_semaphore],5    ; enable these for zero delay
;     call  change_task                 ; between sent packet
 
        mov     [esp+36], eax
        mov     [esp+24], ebx
        ret
 
align 4
 
read_from_hd:                           ; Read from hd - fn not in use
 
        mov     edi, [TASK_BASE]
        add     edi, TASKDATA.mem_start
        add     eax, [edi]
        add     ecx, [edi]
        add     edx, [edi]
        call    file_read
 
        mov     [esp+36], eax
        mov     [esp+24], ebx
 
        ret
 
paleholder:
        ret
;------------------------------------------------------------------------------
align 4
calculate_fast_getting_offset_for_WinMapAddress:
; calculate data area for fast getting offset to _WinMapAddress
        xor     eax, eax
        mov     ecx, [_display.height]
        inc     ecx
        mov     edi, d_width_calc_area
        cld
@@:
        stosd
        add     eax, [_display.width]
        dec     ecx
        jnz     @r
        ret
;------------------------------------------------------------------------------
align 4
calculate_fast_getting_offset_for_LFB:
; calculate data area for fast getting offset to LFB
        xor     eax, eax
        mov     ecx, [_display.height]
        inc     ecx
        mov     edi, BPSLine_calc_area
        cld
@@:
        stosd
        add     eax, [BytesPerScanLine]
        dec     ecx
        jnz     @r
        ret
;------------------------------------------------------------------------------
align 4
set_screen:
        cmp     eax, [Screen_Max_X]
        jne     .set
 
        cmp     edx, [Screen_Max_Y]
        jne     .set
        ret
.set:
        pushfd
        cli
 
        mov     [Screen_Max_X], eax
        mov     [Screen_Max_Y], edx
        mov     [BytesPerScanLine], ecx
 
        mov     [screen_workarea.right], eax
        mov     [screen_workarea.bottom], edx
 
        push    ebx
        push    esi
        push    edi
 
        pushad
 
        stdcall kernel_free, [_WinMapAddress]
 
        mov     eax, [_display.width]
        mul     [_display.height]
        mov     [_WinMapSize], eax
 
        stdcall kernel_alloc, eax
        mov     [_WinMapAddress], eax
        test    eax, eax
        jz      .epic_fail
 
        call    calculate_fast_getting_offset_for_WinMapAddress
; for Qemu or non standart video cards
; Unfortunately [BytesPerScanLine] does not always 
;                             equal to [_display.width] * [ScreenBPP] / 8
        call    calculate_fast_getting_offset_for_LFB
        popad
 
        call    repos_windows
        xor     eax, eax
        xor     ebx, ebx
        mov     ecx, [Screen_Max_X]
        mov     edx, [Screen_Max_Y]
        call    calculatescreen
        pop     edi
        pop     esi
        pop     ebx
 
        popfd
        ret
 
.epic_fail:
        hlt                     ; Houston, we've had a problem
 
; --------------- APM ---------------------
uglobal
apm_entry       dp      0
apm_vf          dd      0
endg
 
align 4
sys_apm:
        xor     eax, eax
        cmp     word [apm_vf], ax       ; Check APM BIOS enable
        jne     @f
        inc     eax
        or      dword [esp + 44], eax   ; error
        add     eax, 7
        mov     dword [esp + 32], eax   ; 32-bit protected-mode interface not supported
        ret
 
@@:
;       xchg    eax, ecx
;       xchg    ebx, ecx
 
        cmp     dx, 3
        ja      @f
        and     [esp + 44], byte 0xfe    ; emulate func 0..3 as func 0
        mov     eax, [apm_vf]
        mov     [esp + 32], eax
        shr     eax, 16
        mov     [esp + 28], eax
        ret
 
@@:
 
        mov     esi, [master_tab+(OS_BASE shr 20)]
        xchg    [master_tab], esi
        push    esi
        mov     edi, cr3
        mov     cr3, edi                ;flush TLB
 
        call    pword [apm_entry]       ;call APM BIOS
 
        xchg    eax, [esp]
        mov     [master_tab], eax
        mov     eax, cr3
        mov     cr3, eax
        pop     eax
 
        mov     [esp + 4 ], edi
        mov     [esp + 8], esi
        mov     [esp + 20], ebx
        mov     [esp + 24], edx
        mov     [esp + 28], ecx
        mov     [esp + 32], eax
        setc    al
        and     [esp + 44], byte 0xfe
        or      [esp + 44], al
        ret
; -----------------------------------------
 
align 4
 
undefined_syscall:                      ; Undefined system call
        mov     [esp + 32], dword -1
        ret
 
align 4
system_shutdown:          ; shut down the system
 
        cmp     byte [BOOT_VAR+0x9030], 1
        jne     @F
        ret
@@:
        call    stop_all_services
        push    3                ; stop playing cd
        pop     eax
        call    sys_cd_audio
 
yes_shutdown_param:
        cli
 
if ~ defined extended_primary_loader
        mov     eax, kernel_file ; load kernel.mnt to 0x7000:0
        push    12
        pop     esi
        xor     ebx, ebx
        or      ecx, -1
        mov     edx, OS_BASE+0x70000
        call    fileread
 
        mov     esi, restart_kernel_4000+OS_BASE+0x10000 ; move kernel re-starter to 0x4000:0
        mov     edi, OS_BASE+0x40000
        mov     ecx, 1000
        rep movsb
end if
 
        mov     esi, BOOT_VAR    ; restore 0x0 - 0xffff
        mov     edi, OS_BASE
        mov     ecx, 0x10000/4
        cld
        rep movsd
 
        call    restorefatchain
 
        call    IRQ_mask_all
 
if 0
        mov     word [OS_BASE+0x467+0], pr_mode_exit
        mov     word [OS_BASE+0x467+2], 0x1000
 
        mov     al, 0x0F
        out     0x70, al
        mov     al, 0x05
        out     0x71, al
 
        mov     al, 0xFE
        out     0x64, al
 
        hlt
        jmp     $-1
 
else
        cmp     byte [OS_BASE + 0x9030], 2
        jnz     no_acpi_power_off
 
; scan for RSDP
; 1) The first 1 Kb of the Extended BIOS Data Area (EBDA).
        movzx   eax, word [OS_BASE + 0x40E]
        shl     eax, 4
        jz      @f
        mov     ecx, 1024/16
        call    scan_rsdp
        jnc     .rsdp_found
@@:
; 2) The BIOS read-only memory space between 0E0000h and 0FFFFFh.
        mov     eax, 0xE0000
        mov     ecx, 0x2000
        call    scan_rsdp
        jc      no_acpi_power_off
.rsdp_found:
        mov     esi, [eax+16]   ; esi contains physical address of the RSDT
        mov     ebp, [ipc_tmp]
        stdcall map_page, ebp, esi, PG_MAP
        lea     eax, [esi+1000h]
        lea     edx, [ebp+1000h]
        stdcall map_page, edx, eax, PG_MAP
        and     esi, 0xFFF
        add     esi, ebp
        cmp     dword [esi], 'RSDT'
        jnz     no_acpi_power_off
        mov     ecx, [esi+4]
        sub     ecx, 24h
        jbe     no_acpi_power_off
        shr     ecx, 2
        add     esi, 24h
.scan_fadt:
        lodsd
        mov     ebx, eax
        lea     eax, [ebp+2000h]
        stdcall map_page, eax, ebx, PG_MAP
        lea     eax, [ebp+3000h]
        add     ebx, 0x1000
        stdcall map_page, eax, ebx, PG_MAP
        and     ebx, 0xFFF
        lea     ebx, [ebx+ebp+2000h]
        cmp     dword [ebx], 'FACP'
        jz      .fadt_found
        loop    .scan_fadt
        jmp     no_acpi_power_off
.fadt_found:
; ebx is linear address of FADT
        mov     edi, [ebx+40] ; physical address of the DSDT
        lea     eax, [ebp+4000h]
        stdcall map_page, eax, edi, PG_MAP
        lea     eax, [ebp+5000h]
        lea     esi, [edi+0x1000]
        stdcall map_page, eax, esi, PG_MAP
        and     esi, 0xFFF
        sub     edi, esi
        cmp     dword [esi+ebp+4000h], 'DSDT'
        jnz     no_acpi_power_off
        mov     eax, [esi+ebp+4004h] ; DSDT length
        sub     eax, 36+4
        jbe     no_acpi_power_off
        add     esi, 36
.scan_dsdt:
        cmp     dword [esi+ebp+4000h], '_S5_'
        jnz     .scan_dsdt_cont
        cmp     byte [esi+ebp+4000h+4], 12h ; DefPackage opcode
        jnz     .scan_dsdt_cont
        mov     dl, [esi+ebp+4000h+6]
        cmp     dl, 4 ; _S5_ package must contain 4 bytes
                      ; ...in theory; in practice, VirtualBox has 2 bytes
        ja      .scan_dsdt_cont
        cmp     dl, 1
        jb      .scan_dsdt_cont
        lea     esi, [esi+ebp+4000h+7]
        xor     ecx, ecx
        cmp     byte [esi], 0 ; 0 means zero byte, 0Ah xx means byte xx
        jz      @f
        cmp     byte [esi], 0xA
        jnz     no_acpi_power_off
        inc     esi
        mov     cl, [esi]
@@:
        inc     esi
        cmp     dl, 2
        jb      @f
        cmp     byte [esi], 0
        jz      @f
        cmp     byte [esi], 0xA
        jnz     no_acpi_power_off
        inc     esi
        mov     ch, [esi]
@@:
        jmp     do_acpi_power_off
.scan_dsdt_cont:
        inc     esi
        cmp     esi, 0x1000
        jb      @f
        sub     esi, 0x1000
        add     edi, 0x1000
        push    eax
        lea     eax, [ebp+4000h]
        stdcall map_page, eax, edi, PG_MAP
        push    PG_MAP
        lea     eax, [edi+1000h]
        push    eax
        lea     eax, [ebp+5000h]
        push    eax
        stdcall map_page
        pop     eax
@@:
        dec     eax
        jnz     .scan_dsdt
        jmp     no_acpi_power_off
do_acpi_power_off:
        mov     edx, [ebx+48]
        test    edx, edx
        jz      .nosmi
        mov     al, [ebx+52]
        out     dx, al
        mov     edx, [ebx+64]
@@:
        in      ax, dx
        test    al, 1
        jz      @b
.nosmi:
        and     cx, 0x0707
        shl     cx, 2
        or      cx, 0x2020
        mov     edx, [ebx+64]
        in      ax, dx
        and     ax, 203h
        or      ah, cl
        out     dx, ax
        mov     edx, [ebx+68]
        test    edx, edx
        jz      @f
        in      ax, dx
        and     ax, 203h
        or      ah, ch
        out     dx, ax
@@:
        jmp     $
 
 
no_acpi_power_off:
        mov     word [OS_BASE+0x467+0], pr_mode_exit
        mov     word [OS_BASE+0x467+2], 0x1000
 
        mov     al, 0x0F
        out     0x70, al
        mov     al, 0x05
        out     0x71, al
 
        mov     al, 0xFE
        out     0x64, al
 
        hlt
        jmp     $-1
 
scan_rsdp:
        add     eax, OS_BASE
.s:
        cmp     dword [eax], 'RSD '
        jnz     .n
        cmp     dword [eax+4], 'PTR '
        jnz     .n
        xor     edx, edx
        xor     esi, esi
@@:
        add     dl, [eax+esi]
        inc     esi
        cmp     esi, 20
        jnz     @b
        test    dl, dl
        jz      .ok
.n:
        add     eax, 10h
        loop    .s
        stc
.ok:
        ret
end if
 
include "data32.inc"
 
__REV__ = __REV
 
uglobals_size = $ - endofcode
diff16 "end of kernel code",0,$

Rev 2601	Rev 2620
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;;	2	;;
3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved.	3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved.
4	;; PROGRAMMING:	4	;; PROGRAMMING:
5	;; Ivan Poddubny	5	;; Ivan Poddubny
6	;; Marat Zakiyanov (Mario79)	6	;; Marat Zakiyanov (Mario79)
7	;; VaStaNi	7	;; VaStaNi
8	;; Trans	8	;; Trans
9	;; Mihail Semenyako (mike.dld)	9	;; Mihail Semenyako (mike.dld)
10	;; Sergey Kuzmin (Wildwest)	10	;; Sergey Kuzmin (Wildwest)
11	;; Andrey Halyavin (halyavin)	11	;; Andrey Halyavin (halyavin)
12	;; Mihail Lisovin (Mihasik)	12	;; Mihail Lisovin (Mihasik)
13	;; Andrey Ignatiev (andrew_programmer)	13	;; Andrey Ignatiev (andrew_programmer)
14	;; NoName	14	;; NoName
15	;; Evgeny Grechnikov (Diamond)	15	;; Evgeny Grechnikov (Diamond)
16	;; Iliya Mihailov (Ghost)	16	;; Iliya Mihailov (Ghost)
17	;; Sergey Semyonov (Serge)	17	;; Sergey Semyonov (Serge)
18	;; Johnny_B	18	;; Johnny_B
19	;; SPraid (simba)	19	;; SPraid (simba)
20	;; Hidnplayr	20	;; Hidnplayr
21	;; Alexey Teplov ()	21	;; Alexey Teplov ()
22	;; Rus	22	;; Rus
23	;; Nable	23	;; Nable
24	;; shurf	24	;; shurf
25	;; Alver	25	;; Alver
26	;; Maxis	26	;; Maxis
27	;; Galkov	27	;; Galkov
28	;; CleverMouse	28	;; CleverMouse
29	;; tsdima	29	;; tsdima
30	;; turbanoff	30	;; turbanoff
31	;; Asper	31	;; Asper
32	;; art_zh	32	;; art_zh
33	;;	33	;;
34	;; Data in this file was originally part of MenuetOS project which is	34	;; Data in this file was originally part of MenuetOS project which is
35	;; distributed under the terms of GNU GPL. It is modified and redistributed as	35	;; distributed under the terms of GNU GPL. It is modified and redistributed as
36	;; part of KolibriOS project under the terms of GNU GPL.	36	;; part of KolibriOS project under the terms of GNU GPL.
37	;;	37	;;
38	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa	38	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
39	;; PROGRAMMING:	39	;; PROGRAMMING:
40	;;	40	;;
41	;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi	41	;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
42	;; - main os coding/design	42	;; - main os coding/design
43	;; Jan-Michael Brummer, BUZZ2@gmx.de	43	;; Jan-Michael Brummer, BUZZ2@gmx.de
44	;; Felix Kaiser, info@felix-kaiser.de	44	;; Felix Kaiser, info@felix-kaiser.de
45	;; Paolo Minazzi, paolo.minazzi@inwind.it	45	;; Paolo Minazzi, paolo.minazzi@inwind.it
46	;; quickcode@mail.ru	46	;; quickcode@mail.ru
47	;; Alexey, kgaz@crosswinds.net	47	;; Alexey, kgaz@crosswinds.net
48	;; Juan M. Caravaca, bitrider@wanadoo.es	48	;; Juan M. Caravaca, bitrider@wanadoo.es
49	;; kristol@nic.fi	49	;; kristol@nic.fi
50	;; Mike Hibbett, mikeh@oceanfree.net	50	;; Mike Hibbett, mikeh@oceanfree.net
51	;; Lasse Kuusijarvi, kuusijar@lut.fi	51	;; Lasse Kuusijarvi, kuusijar@lut.fi
52	;; Jarek Pelczar, jarekp3@wp.pl	52	;; Jarek Pelczar, jarekp3@wp.pl
53	;;	53	;;
54	;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY	54	;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
55	;; WARRANTY. No author or distributor accepts responsibility to anyone for the	55	;; WARRANTY. No author or distributor accepts responsibility to anyone for the
56	;; consequences of using it or for whether it serves any particular purpose or	56	;; consequences of using it or for whether it serves any particular purpose or
57	;; works at all, unless he says so in writing. Refer to the GNU General Public	57	;; works at all, unless he says so in writing. Refer to the GNU General Public
58	;; License (the "GPL") for full details.	58	;; License (the "GPL") for full details.
59	;	59	;
60	;; Everyone is granted permission to copy, modify and redistribute KolibriOS,	60	;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
61	;; but only under the conditions described in the GPL. A copy of this license	61	;; but only under the conditions described in the GPL. A copy of this license
62	;; is supposed to have been given to you along with KolibriOS so you can know	62	;; is supposed to have been given to you along with KolibriOS so you can know
63	;; your rights and responsibilities. It should be in a file named COPYING.	63	;; your rights and responsibilities. It should be in a file named COPYING.
64	;; Among other things, the copyright notice and this notice must be preserved	64	;; Among other things, the copyright notice and this notice must be preserved
65	;; on all copies.	65	;; on all copies.
66	;;	66	;;
67	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	67	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
68		68
69	include 'macros.inc'	69	include 'macros.inc'
70	include 'struct.inc'	70	include 'struct.inc'
71		71
72	$Revision: 2601 $	72	$Revision: 2620 $
73		73
74		74
75	USE_COM_IRQ equ 1 ; make irq 3 and irq 4 available for PCI devices	75	USE_COM_IRQ equ 1 ; make irq 3 and irq 4 available for PCI devices
76		76
77	; Enabling the next line will enable serial output console	77	; Enabling the next line will enable serial output console
78	;debug_com_base equ 0x3f8 ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used	78	;debug_com_base equ 0x3f8 ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used
79		79
80	include "proc32.inc"	80	include "proc32.inc"
81	include "kglobals.inc"	81	include "kglobals.inc"
82	include "lang.inc"	82	include "lang.inc"
83		83
84	include "const.inc"	84	include "const.inc"
85	max_processes equ 255	85	max_processes equ 255
86	tss_step equ (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4	86	tss_step equ (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4
87		87
88		88
89	os_stack equ (os_data_l-gdts) ; GDTs	89	os_stack equ (os_data_l-gdts) ; GDTs
90	os_code equ (os_code_l-gdts)	90	os_code equ (os_code_l-gdts)
91	graph_data equ (3+graph_data_l-gdts)	91	graph_data equ (3+graph_data_l-gdts)
92	tss0 equ (tss0_l-gdts)	92	tss0 equ (tss0_l-gdts)
93	app_code equ (3+app_code_l-gdts)	93	app_code equ (3+app_code_l-gdts)
94	app_data equ (3+app_data_l-gdts)	94	app_data equ (3+app_data_l-gdts)
95	app_tls equ (3+tls_data_l-gdts)	95	app_tls equ (3+tls_data_l-gdts)
96	pci_code_sel equ (pci_code_32-gdts)	96	pci_code_sel equ (pci_code_32-gdts)
97	pci_data_sel equ (pci_data_32-gdts)	97	pci_data_sel equ (pci_data_32-gdts)
98		98
99		99
100	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	100	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
101	;;	101	;;
102	;; Included files:	102	;; Included files:
103	;;	103	;;
104	;; Kernel16.inc	104	;; Kernel16.inc
105	;; - Booteng.inc English text for bootup	105	;; - Booteng.inc English text for bootup
106	;; - Bootcode.inc Hardware setup	106	;; - Bootcode.inc Hardware setup
107	;; - Pci16.inc PCI functions	107	;; - Pci16.inc PCI functions
108	;;	108	;;
109	;; Kernel32.inc	109	;; Kernel32.inc
110	;; - Sys32.inc Process management	110	;; - Sys32.inc Process management
111	;; - Shutdown.inc Shutdown and restart	111	;; - Shutdown.inc Shutdown and restart
112	;; - Fat32.inc Read / write hd	112	;; - Fat32.inc Read / write hd
113	;; - Vesa12.inc Vesa 1.2 driver	113	;; - Vesa12.inc Vesa 1.2 driver
114	;; - Vesa20.inc Vesa 2.0 driver	114	;; - Vesa20.inc Vesa 2.0 driver
115	;; - Vga.inc VGA driver	115	;; - Vga.inc VGA driver
116	;; - Stack.inc Network interface	116	;; - Stack.inc Network interface
117	;; - Mouse.inc Mouse pointer	117	;; - Mouse.inc Mouse pointer
118	;; - Scincode.inc Window skinning	118	;; - Scincode.inc Window skinning
119	;; - Pci32.inc PCI functions	119	;; - Pci32.inc PCI functions
120	;;	120	;;
121	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	121	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
122		122
123		123
124	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	124	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
125	;; ;;	125	;; ;;
126	;; 16 BIT ENTRY FROM BOOTSECTOR ;;	126	;; 16 BIT ENTRY FROM BOOTSECTOR ;;
127	;; ;;	127	;; ;;
128	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	128	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
129		129
130	use16	130	use16
131	org 0x0	131	org 0x0
132	jmp start_of_code	132	jmp start_of_code
133		133
134	version db 'Kolibri OS version 0.7.7.0+ ',13,10,13,10,0	134	version db 'Kolibri OS version 0.7.7.0+ ',13,10,13,10,0
135		135
136	include "boot/bootstr.inc" ; language-independent boot messages	136	include "boot/bootstr.inc" ; language-independent boot messages
137	include "boot/preboot.inc"	137	include "boot/preboot.inc"
138		138
139	if lang eq en	139	if lang eq en
140	include "boot/booteng.inc" ; english system boot messages	140	include "boot/booteng.inc" ; english system boot messages
141	else if lang eq ru	141	else if lang eq ru
142	include "boot/bootru.inc" ; russian system boot messages	142	include "boot/bootru.inc" ; russian system boot messages
143	include "boot/ru.inc" ; Russian font	143	include "boot/ru.inc" ; Russian font
144	else if lang eq et	144	else if lang eq et
145	include "boot/bootet.inc" ; estonian system boot messages	145	include "boot/bootet.inc" ; estonian system boot messages
146	include "boot/et.inc" ; Estonian font	146	include "boot/et.inc" ; Estonian font
147	else	147	else
148	include "boot/bootge.inc" ; german system boot messages	148	include "boot/bootge.inc" ; german system boot messages
149	end if	149	end if
150		150
151	include "boot/bootcode.inc" ; 16 bit system boot code	151	include "boot/bootcode.inc" ; 16 bit system boot code
152	include "bus/pci/pci16.inc"	152	include "bus/pci/pci16.inc"
153	include "detect/biosdisk.inc"	153	include "detect/biosdisk.inc"
154		154
155	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	155	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
156	;; ;;	156	;; ;;
157	;; SWITCH TO 32 BIT PROTECTED MODE ;;	157	;; SWITCH TO 32 BIT PROTECTED MODE ;;
158	;; ;;	158	;; ;;
159	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	159	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
160		160
161		161
162	; CR0 Flags - Protected mode and Paging	162	; CR0 Flags - Protected mode and Paging
163		163
164	mov ecx, CR0_PE	164	mov ecx, CR0_PE
165		165
166	; Enabling 32 bit protected mode	166	; Enabling 32 bit protected mode
167		167
168	sidt [cs:old_ints_h]	168	sidt [cs:old_ints_h]
169		169
170	cli ; disable all irqs	170	cli ; disable all irqs
171	cld	171	cld
172	mov al, 255 ; mask all irqs	172	mov al, 255 ; mask all irqs
173	out 0xa1, al	173	out 0xa1, al
174	out 0x21, al	174	out 0x21, al
175	l.5:	175	l.5:
176	in al, 0x64 ; Enable A20	176	in al, 0x64 ; Enable A20
177	test al, 2	177	test al, 2
178	jnz l.5	178	jnz l.5
179	mov al, 0xD1	179	mov al, 0xD1
180	out 0x64, al	180	out 0x64, al
181	l.6:	181	l.6:
182	in al, 0x64	182	in al, 0x64
183	test al, 2	183	test al, 2
184	jnz l.6	184	jnz l.6
185	mov al, 0xDF	185	mov al, 0xDF
186	out 0x60, al	186	out 0x60, al
187	l.7:	187	l.7:
188	in al, 0x64	188	in al, 0x64
189	test al, 2	189	test al, 2
190	jnz l.7	190	jnz l.7
191	mov al, 0xFF	191	mov al, 0xFF
192	out 0x64, al	192	out 0x64, al
193		193
194	lgdt [cs:tmp_gdt] ; Load GDT	194	lgdt [cs:tmp_gdt] ; Load GDT
195	mov eax, cr0 ; protected mode	195	mov eax, cr0 ; protected mode
196	or eax, ecx	196	or eax, ecx
197	and eax, 10011111b 65536256 + 0xffffff ; caching enabled	197	and eax, 10011111b 65536256 + 0xffffff ; caching enabled
198	mov cr0, eax	198	mov cr0, eax
199	jmp pword os_code:B32 ; jmp to enable 32 bit mode	199	jmp pword os_code:B32 ; jmp to enable 32 bit mode
200		200
201	align 8	201	align 8
202	tmp_gdt:	202	tmp_gdt:
203		203
204	dw 23	204	dw 23
205	dd tmp_gdt+0x10000	205	dd tmp_gdt+0x10000
206	dw 0	206	dw 0
207		207
208	dw 0xffff	208	dw 0xffff
209	dw 0x0000	209	dw 0x0000
210	db 0x00	210	db 0x00
211	dw 11011111b *256 +10011010b	211	dw 11011111b *256 +10011010b
212	db 0x00	212	db 0x00
213		213
214	dw 0xffff	214	dw 0xffff
215	dw 0x0000	215	dw 0x0000
216	db 0x00	216	db 0x00
217	dw 11011111b *256 +10010010b	217	dw 11011111b *256 +10010010b
218	db 0x00	218	db 0x00
219		219
220	include "data16.inc"	220	include "data16.inc"
221		221
222	use32	222	use32
223	org $+0x10000	223	org $+0x10000
224		224
225	align 4	225	align 4
226	B32:	226	B32:
227	mov ax, os_stack ; Selector for os	227	mov ax, os_stack ; Selector for os
228	mov ds, ax	228	mov ds, ax
229	mov es, ax	229	mov es, ax
230	mov fs, ax	230	mov fs, ax
231	mov gs, ax	231	mov gs, ax
232	mov ss, ax	232	mov ss, ax
233	mov esp, 0x006CC00 ; Set stack	233	mov esp, 0x006CC00 ; Set stack
234		234
235	; CLEAR 0x280000 - HEAP_BASE	235	; CLEAR 0x280000 - HEAP_BASE
236		236
237	xor eax, eax	237	xor eax, eax
238	mov edi, CLEAN_ZONE	238	mov edi, CLEAN_ZONE
239	mov ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4	239	mov ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4
240	cld	240	cld
241	rep stosd	241	rep stosd
242		242
243	; CLEAR KERNEL UNDEFINED GLOBALS	243	; CLEAR KERNEL UNDEFINED GLOBALS
244	mov edi, endofcode-OS_BASE	244	mov edi, endofcode-OS_BASE
245	mov ecx, 0x90000	245	mov ecx, 0x90000
246	sub ecx, edi	246	sub ecx, edi
247	shr ecx, 2	247	shr ecx, 2
248	rep stosd	248	rep stosd
249		249
250	; SAVE & CLEAR 0-0xffff	250	; SAVE & CLEAR 0-0xffff
251		251
252	xor esi, esi	252	xor esi, esi
253	mov edi, (BOOT_VAR-OS_BASE)	253	mov edi, (BOOT_VAR-OS_BASE)
254	mov ecx, 0x10000 / 4	254	mov ecx, 0x10000 / 4
255	rep movsd	255	rep movsd
256	mov edi, 0x1000	256	mov edi, 0x1000
257	mov ecx, 0xf000 / 4	257	mov ecx, 0xf000 / 4
258	rep stosd	258	rep stosd
259		259
260	call test_cpu	260	call test_cpu
261	bts [cpu_caps-OS_BASE], CAPS_TSC ;force use rdtsc	261	bts [cpu_caps-OS_BASE], CAPS_TSC ;force use rdtsc
262		262
263	call check_acpi	263	call check_acpi
264	call init_BIOS32	264	call init_BIOS32
265	; MEMORY MODEL	265	; MEMORY MODEL
266	call mem_test	266	call mem_test
267	call init_mem	267	call init_mem
268	call init_page_map	268	call init_page_map
269		269
270	; ENABLE PAGING	270	; ENABLE PAGING
271		271
272	mov eax, sys_pgdir-OS_BASE	272	mov eax, sys_pgdir-OS_BASE
273	mov cr3, eax	273	mov cr3, eax
274		274
275	mov eax, cr0	275	mov eax, cr0
276	or eax, CR0_PG+CR0_WP	276	or eax, CR0_PG+CR0_WP
277	mov cr0, eax	277	mov cr0, eax
278		278
279	lgdt [gdts]	279	lgdt [gdts]
280	jmp pword os_code:high_code	280	jmp pword os_code:high_code
281		281
282	align 4	282	align 4
283	bios32_entry dd ?	283	bios32_entry dd ?
284	tmp_page_tabs dd ?	284	tmp_page_tabs dd ?
285		285
286	use16	286	use16
287	org $-0x10000	287	org $-0x10000
288	include "boot/shutdown.inc" ; shutdown or restart	288	include "boot/shutdown.inc" ; shutdown or restart
289	org $+0x10000	289	org $+0x10000
290	use32	290	use32
291		291
292	__DEBUG__ fix 1	292	__DEBUG__ fix 1
293	__DEBUG_LEVEL__ fix 1	293	__DEBUG_LEVEL__ fix 1
294	include 'init.inc'	294	include 'init.inc'
295		295
296	org OS_BASE+$	296	org OS_BASE+$
297		297
298	include 'fdo.inc'	298	include 'fdo.inc'
299		299
300	align 4	300	align 4
301	high_code:	301	high_code:
302	mov ax, os_stack	302	mov ax, os_stack
303	mov bx, app_data	303	mov bx, app_data
304	mov cx, app_tls	304	mov cx, app_tls
305	mov ss, ax	305	mov ss, ax
306	add esp, OS_BASE	306	add esp, OS_BASE
307		307
308	mov ds, bx	308	mov ds, bx
309	mov es, bx	309	mov es, bx
310	mov fs, cx	310	mov fs, cx
311	mov gs, bx	311	mov gs, bx
312		312
313	bt [cpu_caps], CAPS_PGE	313	bt [cpu_caps], CAPS_PGE
314	jnc @F	314	jnc @F
315		315
316	or dword [sys_pgdir+(OS_BASE shr 20)], PG_GLOBAL	316	or dword [sys_pgdir+(OS_BASE shr 20)], PG_GLOBAL
317		317
318	mov ebx, cr4	318	mov ebx, cr4
319	or ebx, CR4_PGE	319	or ebx, CR4_PGE
320	mov cr4, ebx	320	mov cr4, ebx
321	@@:	321	@@:
322	xor eax, eax	322	xor eax, eax
323	mov dword [sys_pgdir], eax	323	mov dword [sys_pgdir], eax
324	mov dword [sys_pgdir+4], eax	324	mov dword [sys_pgdir+4], eax
325		325
326	mov eax, cr3	326	mov eax, cr3
327	mov cr3, eax ; flush TLB	327	mov cr3, eax ; flush TLB
328		328
329	mov ecx, pg_data.mutex	329	mov ecx, pg_data.mutex
330	call mutex_init	330	call mutex_init
331		331
332	mov ecx, disk_list_mutex	332	mov ecx, disk_list_mutex
333	call mutex_init	333	call mutex_init
334		334
335	mov ecx, keyboard_list_mutex	335	mov ecx, keyboard_list_mutex
336	call mutex_init	336	call mutex_init
337		337
338	mov ecx, unpack_mutex	338	mov ecx, unpack_mutex
339	call mutex_init	339	call mutex_init
340		340
341	; SAVE REAL MODE VARIABLES	341	; SAVE REAL MODE VARIABLES
342	mov ax, [BOOT_VAR + BOOT_IDE_BASE_ADDR]	342	mov ax, [BOOT_VAR + BOOT_IDE_BASE_ADDR]
343	mov [IDEContrRegsBaseAddr], ax	343	mov [IDEContrRegsBaseAddr], ax
344	; --------------- APM ---------------------	344	; --------------- APM ---------------------
345		345
346	; init selectors	346	; init selectors
347	mov ebx, [BOOT_VAR+BOOT_APM_ENTRY] ; offset of APM entry point	347	mov ebx, [BOOT_VAR+BOOT_APM_ENTRY] ; offset of APM entry point
348	movzx eax, word [BOOT_VAR+BOOT_APM_CODE_32] ; real-mode segment base address of	348	movzx eax, word [BOOT_VAR+BOOT_APM_CODE_32] ; real-mode segment base address of
349	; protected-mode 32-bit code segment	349	; protected-mode 32-bit code segment
350	movzx ecx, word [BOOT_VAR+BOOT_APM_CODE_16]; real-mode segment base address of	350	movzx ecx, word [BOOT_VAR+BOOT_APM_CODE_16]; real-mode segment base address of
351	; protected-mode 16-bit code segment	351	; protected-mode 16-bit code segment
352	movzx edx, word [BOOT_VAR+BOOT_APM_DATA_16]; real-mode segment base address of	352	movzx edx, word [BOOT_VAR+BOOT_APM_DATA_16]; real-mode segment base address of
353	; protected-mode 16-bit data segment	353	; protected-mode 16-bit data segment
354		354
355	shl eax, 4	355	shl eax, 4
356	mov [dword apm_code_32 + 2], ax	356	mov [dword apm_code_32 + 2], ax
357	shr eax, 16	357	shr eax, 16
358	mov [dword apm_code_32 + 4], al	358	mov [dword apm_code_32 + 4], al
359		359
360	shl ecx, 4	360	shl ecx, 4
361	mov [dword apm_code_16 + 2], cx	361	mov [dword apm_code_16 + 2], cx
362	shr ecx, 16	362	shr ecx, 16
363	mov [dword apm_code_16 + 4], cl	363	mov [dword apm_code_16 + 4], cl
364		364
365	shl edx, 4	365	shl edx, 4
366	mov [dword apm_data_16 + 2], dx	366	mov [dword apm_data_16 + 2], dx
367	shr edx, 16	367	shr edx, 16
368	mov [dword apm_data_16 + 4], dl	368	mov [dword apm_data_16 + 4], dl
369		369
370	mov dword[apm_entry], ebx	370	mov dword[apm_entry], ebx
371	mov word [apm_entry + 4], apm_code_32 - gdts	371	mov word [apm_entry + 4], apm_code_32 - gdts
372		372
373	mov eax, [BOOT_VAR + BOOT_APM_VERSION] ; version & flags	373	mov eax, [BOOT_VAR + BOOT_APM_VERSION] ; version & flags
374	mov [apm_vf], eax	374	mov [apm_vf], eax
375	; -----------------------------------------	375	; -----------------------------------------
376	mov al, [BOOT_VAR+BOOT_DMA] ; DMA access	376	mov al, [BOOT_VAR+BOOT_DMA] ; DMA access
377	mov [allow_dma_access], al	377	mov [allow_dma_access], al
378	movzx eax, byte [BOOT_VAR+BOOT_BPP] ; bpp	378	movzx eax, byte [BOOT_VAR+BOOT_BPP] ; bpp
379	mov [ScreenBPP], al	379	mov [ScreenBPP], al
380		380
381	mov [_display.bpp], eax	381	mov [_display.bpp], eax
382	mov [_display.vrefresh], 60	382	mov [_display.vrefresh], 60
383		383
384	movzx eax, word [BOOT_VAR+BOOT_X_RES]; X max	384	movzx eax, word [BOOT_VAR+BOOT_X_RES]; X max
385	mov [_display.width], eax	385	mov [_display.width], eax
386	dec eax	386	dec eax
387	mov [Screen_Max_X], eax	387	mov [Screen_Max_X], eax
388	mov [screen_workarea.right], eax	388	mov [screen_workarea.right], eax
389	movzx eax, word [BOOT_VAR+BOOT_Y_RES]; Y max	389	movzx eax, word [BOOT_VAR+BOOT_Y_RES]; Y max
390	mov [_display.height], eax	390	mov [_display.height], eax
391	dec eax	391	dec eax
392	mov [Screen_Max_Y], eax	392	mov [Screen_Max_Y], eax
393	mov [screen_workarea.bottom], eax	393	mov [screen_workarea.bottom], eax
394	movzx eax, word [BOOT_VAR+BOOT_VESA_MODE]; screen mode	394	movzx eax, word [BOOT_VAR+BOOT_VESA_MODE]; screen mode
395	mov [SCR_MODE], eax	395	mov [SCR_MODE], eax
396	; mov eax, [BOOT_VAR+0x9014] ; Vesa 1.2 bnk sw add	396	; mov eax, [BOOT_VAR+0x9014] ; Vesa 1.2 bnk sw add
397	; mov [BANK_SWITCH], eax	397	; mov [BANK_SWITCH], eax
398	mov [BytesPerScanLine], word 640*4 ; Bytes PerScanLine	398	mov [BytesPerScanLine], word 640*4 ; Bytes PerScanLine
399	cmp [SCR_MODE], word 0x13 ; 320x200	399	cmp [SCR_MODE], word 0x13 ; 320x200
400	je @f	400	je @f
401	cmp [SCR_MODE], word 0x12 ; VGA 640x480	401	cmp [SCR_MODE], word 0x12 ; VGA 640x480
402	je @f	402	je @f
403	movzx eax, word[BOOT_VAR+BOOT_PITCH] ; for other modes	403	movzx eax, word[BOOT_VAR+BOOT_PITCH] ; for other modes
404	mov [BytesPerScanLine], ax	404	mov [BytesPerScanLine], ax
405	mov [_display.pitch], eax	405	mov [_display.pitch], eax
406	@@:	406	@@:
407	mov eax, [_display.width]	407	mov eax, [_display.width]
408	mul [_display.height]	408	mul [_display.height]
409	mov [_WinMapSize], eax	409	mov [_WinMapSize], eax
410		410
411	call calculate_fast_getting_offset_for_WinMapAddress	411	call calculate_fast_getting_offset_for_WinMapAddress
412	; for Qemu or non standart video cards	412	; for Qemu or non standart video cards
413	; Unfortunately [BytesPerScanLine] does not always	413	; Unfortunately [BytesPerScanLine] does not always
414	; equal to [_display.width] * [ScreenBPP] / 8	414	; equal to [_display.width] * [ScreenBPP] / 8
415	call calculate_fast_getting_offset_for_LFB	415	call calculate_fast_getting_offset_for_LFB
416		416
417	mov esi, BOOT_VAR+0x9080	417	mov esi, BOOT_VAR+0x9080
418	movzx ecx, byte [esi-1]	418	movzx ecx, byte [esi-1]
419	mov [NumBiosDisks], ecx	419	mov [NumBiosDisks], ecx
420	mov edi, BiosDisksData	420	mov edi, BiosDisksData
421	rep movsd	421	rep movsd
422		422
423	; GRAPHICS ADDRESSES	423	; GRAPHICS ADDRESSES
424		424
425	mov eax, [BOOT_VAR+BOOT_LFB]	425	mov eax, [BOOT_VAR+BOOT_LFB]
426	mov [LFBAddress], eax	426	mov [LFBAddress], eax
427		427
428	cmp [SCR_MODE], word 0100000000000000b	428	cmp [SCR_MODE], word 0100000000000000b
429	jge setvesa20	429	jge setvesa20
430	cmp [SCR_MODE], word 0x13 ; EGA 320*200 256 colors	430	cmp [SCR_MODE], word 0x13 ; EGA 320*200 256 colors
431	je v20ga32	431	je v20ga32
432	jmp v20ga24	432	jmp v20ga24
433		433
434	setvesa20:	434	setvesa20:
435	mov [PUTPIXEL], dword Vesa20_putpixel24 ; Vesa 2.0	435	mov [PUTPIXEL], dword Vesa20_putpixel24 ; Vesa 2.0
436	mov [GETPIXEL], dword Vesa20_getpixel24	436	mov [GETPIXEL], dword Vesa20_getpixel24
437	cmp [ScreenBPP], byte 24	437	cmp [ScreenBPP], byte 24
438	jz v20ga24	438	jz v20ga24
439	v20ga32:	439	v20ga32:
440	mov [PUTPIXEL], dword Vesa20_putpixel32	440	mov [PUTPIXEL], dword Vesa20_putpixel32
441	mov [GETPIXEL], dword Vesa20_getpixel32	441	mov [GETPIXEL], dword Vesa20_getpixel32
442	jmp no_mode_0x12	442	jmp no_mode_0x12
443	v20ga24:	443	v20ga24:
444	cmp [SCR_MODE], word 0x12 ; 16 C VGA 640x480	444	cmp [SCR_MODE], word 0x12 ; 16 C VGA 640x480
445	jne no_mode_0x12	445	jne no_mode_0x12
446	mov [PUTPIXEL], dword VGA_putpixel	446	mov [PUTPIXEL], dword VGA_putpixel
447	mov [GETPIXEL], dword Vesa20_getpixel32	447	mov [GETPIXEL], dword Vesa20_getpixel32
448	no_mode_0x12:	448	no_mode_0x12:
449		449
450	; -------- Fast System Call init ----------	450	; -------- Fast System Call init ----------
451	; Intel SYSENTER/SYSEXIT (AMD CPU support it too)	451	; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
452	bt [cpu_caps], CAPS_SEP	452	bt [cpu_caps], CAPS_SEP
453	jnc .SEnP ; SysEnter not Present	453	jnc .SEnP ; SysEnter not Present
454	xor edx, edx	454	xor edx, edx
455	mov ecx, MSR_SYSENTER_CS	455	mov ecx, MSR_SYSENTER_CS
456	mov eax, os_code	456	mov eax, os_code
457	wrmsr	457	wrmsr
458	mov ecx, MSR_SYSENTER_ESP	458	mov ecx, MSR_SYSENTER_ESP
459	; mov eax, sysenter_stack ; Check it	459	; mov eax, sysenter_stack ; Check it
460	xor eax, eax	460	xor eax, eax
461	wrmsr	461	wrmsr
462	mov ecx, MSR_SYSENTER_EIP	462	mov ecx, MSR_SYSENTER_EIP
463	mov eax, sysenter_entry	463	mov eax, sysenter_entry
464	wrmsr	464	wrmsr
465	.SEnP:	465	.SEnP:
466	; AMD SYSCALL/SYSRET	466	; AMD SYSCALL/SYSRET
467	cmp byte[cpu_vendor], 'A'	467	cmp byte[cpu_vendor], 'A'
468	jne .noSYSCALL	468	jne .noSYSCALL
469	mov eax, 0x80000001	469	mov eax, 0x80000001
470	cpuid	470	cpuid
471	test edx, 0x800 ; bit_11 - SYSCALL/SYSRET support	471	test edx, 0x800 ; bit_11 - SYSCALL/SYSRET support
472	jz .noSYSCALL	472	jz .noSYSCALL
473	mov ecx, MSR_AMD_EFER	473	mov ecx, MSR_AMD_EFER
474	rdmsr	474	rdmsr
475	or eax, 1 ; bit_0 - System Call Extension (SCE)	475	or eax, 1 ; bit_0 - System Call Extension (SCE)
476	wrmsr	476	wrmsr
477		477
478	; !!!! It`s dirty hack, fix it !!!	478	; !!!! It`s dirty hack, fix it !!!
479	; Bits of EDX :	479	; Bits of EDX :
480	; Bit 3116 During the SYSRET instruction, this field is copied into the CS register	480	; Bit 3116 During the SYSRET instruction, this field is copied into the CS register
481	; and the contents of this field, plus 8, are copied into the SS register.	481	; and the contents of this field, plus 8, are copied into the SS register.
482	; Bit 150 During the SYSCALL instruction, this field is copied into the CS register	482	; Bit 150 During the SYSCALL instruction, this field is copied into the CS register
483	; and the contents of this field, plus 8, are copied into the SS register.	483	; and the contents of this field, plus 8, are copied into the SS register.
484		484
485	; mov edx, (os_code + 16) * 65536 + os_code	485	; mov edx, (os_code + 16) * 65536 + os_code
486	mov edx, 0x1B0008	486	mov edx, 0x1B0008
487		487
488	mov eax, syscall_entry	488	mov eax, syscall_entry
489	mov ecx, MSR_AMD_STAR	489	mov ecx, MSR_AMD_STAR
490	wrmsr	490	wrmsr
491	.noSYSCALL:	491	.noSYSCALL:
492	; -----------------------------------------	492	; -----------------------------------------
493	stdcall alloc_page	493	stdcall alloc_page
494	stdcall map_page, tss-0xF80, eax, PG_SW	494	stdcall map_page, tss-0xF80, eax, PG_SW
495	stdcall alloc_page	495	stdcall alloc_page
496	inc eax	496	inc eax
497	mov [SLOT_BASE+256+APPDATA.io_map], eax	497	mov [SLOT_BASE+256+APPDATA.io_map], eax
498	stdcall map_page, tss+0x80, eax, PG_SW	498	stdcall map_page, tss+0x80, eax, PG_SW
499	stdcall alloc_page	499	stdcall alloc_page
500	inc eax	500	inc eax

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm – Rev 2601 → 2620