Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;; Copyright (C) KolibriOS team 2004-2022. 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

;; dunkaist

;; Coldy

;; rgimad

;; Boppan

;; Doczom

;; and others

;;

;; 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.

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

format binary as "mnt"

include 'macros.inc'

include 'struct.inc'

$Revision: 9941 $

USE_COM_IRQ     = 1      ; make irq 3 and irq 4 available for PCI devices

VESA_1_2_VIDEO  = 0      ; enable vesa 1.2 bank switch functions

; Enabling the next line will enable serial output console

;debug_com_base  = 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 "encoding.inc"

include "const.inc"

iglobal

; The following variable, if equal to 1, duplicates debug output to the screen.

debug_direct_print db 0

; Start the first app (LAUNCHER) after kernel is loaded? (1=yes, 2 or 0=no)

launcher_start db 1

endg

max_processes  =  255

tss_step       =  128 + 8192 ; tss & i/o - 65535 ports, * 256=557056*4

os_stack       =  os_data_l - gdts    ; GDTs

os_code        =  os_code_l - gdts

graph_data     =  3 + graph_data_l - gdts

tss0           =  tss0_l - gdts

app_code       =  3 + app_code_l - gdts

app_data       =  3 + app_data_l - gdts

app_tls        =  3 + tls_data_l - gdts

pci_code_sel   =  pci_code_32-gdts

pci_data_sel   =  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

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; In bios boot mode the kernel code below is appended to bootbios.bin file.

; That is a loading and initialization code that also draws the blue screen

; menu with svn revision number near top right corner of the screen. This fasm

; preprocessor code searches for '****' signature inside bootbios.bin and

; places revision number there.

if ~ defined UEFI

  bootbios:

  if defined extended_primary_loader

    file 'bootbios.bin.ext_loader'

  else if defined pretest_build

    file 'bootbios.bin.pretest'

  else

    file 'bootbios.bin'

  end if

  if __REV__ > 0

    cur_pos = 0

    cnt = 0

    repeat $ - bootbios

      load a byte from %

      if a = '*'

        cnt = cnt + 1

      else

        cnt = 0

      end if

      if cnt = 4

        cur_pos = % - 1

        break

      end if

    end repeat

    store byte ' ' at cur_pos + 1

    rev_var = __REV__

    while rev_var > 0

      store byte rev_var mod 10 + '0' at cur_pos

      cur_pos = cur_pos - 1

      rev_var = rev_var / 10

    end while

      store byte ' ' at cur_pos

      store dword ' SVN' at cur_pos - 4

  end if

end if

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, TMP_STACK_TOP       ; 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

        mov     edi, 0x1000

        mov     ecx, 0x8000 / 4

        rep stosd

        mov     edi, 0xa000

        mov     ecx, 0x6000 / 4

        rep stosd

        call    test_cpu

        bts     [cpu_caps - OS_BASE], CAPS_TSC    ;force use rdtsc

        call    acpi_locate

        call    init_BIOS32

; MEMORY MODEL

        call    mem_test

        call    init_mem

        call    init_page_map

; ENABLE PAGING

        mov     eax, sys_proc - OS_BASE + PROC.pdt_0

        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

ap_init16:

        cli

        lgdt    [cs:gdts_ap - ap_init16]

        mov     eax, [cs:cr3_ap - ap_init16]

        mov     cr3, eax

        mov     eax, [cs:cr4_ap - ap_init16]

        mov     cr4, eax

        mov     eax, CR0_PE + CR0_PG + CR0_WP

        mov     cr0, eax

        jmp     pword os_code:ap_init_high

align 16

gdts_ap:

        dw     gdte-gdts-1

        dd     gdts

        dw     0

cr3_ap  dd     ?

cr4_ap  dd     ?

ap_init16_size = $ - ap_init16

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

        xor     eax, eax

        mov     ebx, 0xFFFFF000 + PG_SHARED + PG_NOCACHE + PG_UWR

        bt      [cpu_caps], CAPS_PAT

        setc    al

        shl     eax, 7

        or      ebx, eax

        mov     eax, PG_GLOBAL

        bt      [cpu_caps], CAPS_PGE

        jnc     @F

        or      [sys_proc + PROC.pdt_0 + (OS_BASE shr 20)], eax

        or      ebx, eax

        mov     eax, cr4

        or      eax, CR4_PGE

        mov     cr4, eax

@@:

        mov     [pte_valid_mask], ebx

        xor     eax, eax

        mov     dword [sys_proc + PROC.pdt_0], eax

        mov     dword [sys_proc + PROC.pdt_0+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

        mov     ecx, application_table_mutex

        call    mutex_init

        mov     ecx, ide_mutex

        call    mutex_init

        mov     ecx, ide_channel1_mutex

        call    mutex_init

        mov     ecx, ide_channel2_mutex

        call    mutex_init

        mov     ecx, ide_channel3_mutex

        call    mutex_init

        mov     ecx, ide_channel4_mutex

        call    mutex_init

        mov     ecx, ide_channel5_mutex

        call    mutex_init

        mov     ecx, ide_channel6_mutex

        call    mutex_init

;-----------------------------------------------------------------------------

; SAVE REAL MODE VARIABLES

;-----------------------------------------------------------------------------

; --------------- APM ---------------------

; init selectors

        mov     ebx, [BOOT.apm_entry]        ; offset of APM entry point

        movzx   eax, word [BOOT.apm_code_32] ; real-mode segment base address of

                                             ; protected-mode 32-bit code segment

        movzx   ecx, word [BOOT.apm_code_16] ; real-mode segment base address of

                                             ; protected-mode 16-bit code segment

        movzx   edx, word [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, dword[BOOT.apm_version]   ; version & flags

        mov     [apm_vf], eax

; -----------------------------------------

        mov     al, [BOOT.dma]            ; DMA access

        mov     [allow_dma_access], al

        mov     al, [BOOT.debug_print]    ; If nonzero, duplicates debug output to the screen

        mov     [debug_direct_print], al

        mov     al, [BOOT.launcher_start] ; Start the first app (LAUNCHER) after kernel is loaded?

        mov     [launcher_start], al

        mov     eax, [BOOT.devicesdat_size]

        mov     [acpi_dev_size], eax

        mov     eax, [BOOT.devicesdat_data]

        mov     [acpi_dev_data], eax

        mov     esi, BOOT.bios_hd

        movzx   ecx, byte [esi-1]

        mov     [NumBiosDisks], ecx

        mov     edi, BiosDisksData

        shl     ecx, 2

        rep movsd

; -------- 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_SWR

        stdcall alloc_page

        stdcall map_page, tss+0x80, eax, PG_SWR

        stdcall alloc_page

        stdcall map_page, tss+0x1080, eax, PG_SWR

; LOAD IDT

        call    build_interrupt_table ;lidt is executed

          ;lidt [idtreg]

        call    init_kernel_heap

        call    init_fpu

        mov     eax, [xsave_area_size]

        lea     eax, [eax*2 + RING0_STACK_SIZE*2]

        stdcall kernel_alloc, eax

        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     eax, sys_proc

        list_init eax

        add     eax, PROC.thr_list

        list_init eax

        call    init_video

        call    init_mtrr

        mov     [LFBAddress], LFB_BASE

        mov     ecx, bios_fb

        call    set_framebuffer

        call    init_malloc

        stdcall alloc_kernel_space, 0x50000         ; FIXME check size

        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_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, [_display.win_map_size]

        mov     [_display.win_map], eax

        xor     eax, eax

        inc     eax

; set background

        mov     [BgrDrawMode], eax

        mov     [BgrDataWidth], eax

        mov     [BgrDataHeight], eax

        mov     [mem_BACKGROUND], 4

        mov     [img_background], static_background_data

; set clipboard

        xor     eax, eax

        mov     [clipboard_slots], eax

        mov     [clipboard_write_lock], eax

        stdcall kernel_alloc, PAGE_SIZE

        test    eax, eax

        jnz     @f

        dec     eax

@@:

        mov     [clipboard_main_list], eax

        call    check_acpi

        mov     eax, [hpet_base]

        test    eax, eax

        jz      @F

        stdcall map_io_mem, [hpet_base], 1024, PG_GLOBAL + PAT_UC + PG_SWR

        mov     [hpet_base], eax

        mov     eax, [eax+HPET_ID]

        DEBUGF  1, "K : HPET caps %x\n", eax

        call    init_hpet

@@:

; SET UP OS TASK

        mov     esi, boot_setostask

        call    boot_log

        mov     edi, sys_proc + PROC.heap_lock

        mov     ecx, (PROC.ht_free - PROC.heap_lock)/4

        xor     eax, eax

        cld

        rep stosd

        mov     [edi], dword (PROC.pdt_0 - PROC.htab)/4 - 3

        mov     [edi+4], dword 3           ;reserve handles for stdin stdout and stderr

        mov     ecx, (PROC.pdt_0 - PROC.htab)/4

        add     edi, 8

        inc     eax

@@:

        stosd

        inc     eax

        cmp     eax, ecx

        jbe     @B

        mov     [sys_proc + PROC.pdt_0_phys], sys_proc - OS_BASE + PROC.pdt_0

        mov     eax, -1

        mov     edi, thr_slot_map+4

        mov     [edi-4], dword 0xFFFFFFF8

        stosd

        stosd

        stosd

        stosd

        stosd

        stosd

        stosd

        mov     [current_process], sys_proc

        mov     edx, SLOT_BASE + sizeof.APPDATA*1

        mov     ebx, [os_stack_seg]

        add     ebx, RING0_STACK_SIZE

        add     ebx, [xsave_area_size]

        call    setup_os_slot

        mov     dword [edx], 'IDLE'

        sub     [edx + APPDATA.saved_esp], 4

        mov     eax, [edx + APPDATA.saved_esp]

        mov     dword [eax], idle_thread

        mov     ecx, IDLE_PRIORITY

        call    scheduler_add_thread

        mov     edx, SLOT_BASE + sizeof.APPDATA*2

        mov     ebx, [os_stack_seg]

        call    setup_os_slot

        mov     dword [edx], 'OS'

        xor     ecx, ecx

        call    scheduler_add_thread

        mov     dword [current_slot_idx], 2

        mov     [thread_count], 2

        mov     dword [current_slot], SLOT_BASE + sizeof.APPDATA*2

; Move other CPUs to deep sleep, if it is useful

uglobal

use_mwait_for_idle db 0

endg

        cmp     [cpu_vendor+8], 'ntel'

        jnz     .no_wake_cpus

        bt      [cpu_caps+4], CAPS_MONITOR-32

        jnc     .no_wake_cpus

        dbgstr 'using mwait for idle loop'

        inc     [use_mwait_for_idle]

        mov     ebx, [cpu_count]

        cmp     ebx, 1

        jbe     .no_wake_cpus

        call    create_trampoline_pgmap

        mov     [cr3_ap + OS_BASE], eax

        mov     eax, cr4

        mov     [cr4_ap + OS_BASE], eax

        mov     esi, OS_BASE + ap_init16

        mov     edi, OS_BASE + 8000h

        mov     ecx, (ap_init16_size + 3) / 4

        rep movsd

        mov     eax, [LAPIC_BASE]

        test    eax, eax

        jnz     @f

        stdcall map_io_mem, [acpi_lapic_base], 0x1000, PG_GLOBAL + PG_NOCACHE + PG_SWR

        mov     [LAPIC_BASE], eax

@@:

        lea     edi, [eax + APIC_ICRL]

        mov     esi, smpt+4

        dec     ebx

.wake_cpus_loop:

        lodsd

        push    esi

        xor     esi, esi

        inc     esi

        shl     eax, 24

        mov     [edi+10h], eax

; assert INIT IPI

        mov     dword [edi], 0C500h

        call    delay_ms

@@:

        test    dword [edi], 1000h

        jnz     @b

; deassert INIT IPI

        mov     dword [edi], 8500h

        call    delay_ms

@@:

        test    dword [edi], 1000h

        jnz     @b

; send STARTUP IPI

        mov     dword [edi], 600h + (8000h shr 12)

        call    delay_ms

@@:

        test    dword [edi], 1000h

        jnz     @b

        pop     esi

        dec     ebx

        jnz     .wake_cpus_loop

        mov     eax, [cpu_count]

        dec     eax

@@:

        cmp     [ap_initialized], eax

        jnz     @b

        mov     eax, [cr3_ap + OS_BASE]

        call    free_page

.no_wake_cpus:

; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f

        mov     esi, boot_initirq

        call    boot_log

        call    init_irqs

        mov     esi, boot_picinit

        call    boot_log

        call    PIC_init

        mov     esi, boot_v86machine

        call    boot_log

; Initialize system V86 machine

        call    init_sys_v86

        mov     esi, boot_inittimer

        call    boot_log

; Initialize system timer (IRQ0)

        call    PIT_init

; Register ramdisk file system

if ~ defined extended_primary_loader

        cmp     [BOOT.rd_load_from], RD_LOAD_FROM_HD    ; will be loaded later

        je      @f

end if

        cmp     [BOOT.rd_load_from], RD_LOAD_FROM_NONE

        je      @f

        call    register_ramdisk

;--------------------------------------

@@:

        mov     esi, boot_initapic

        call    boot_log

; Try to Initialize APIC

        call    APIC_init

        mov     esi, boot_enableirq

        call    boot_log

; Enable timer IRQ (IRQ0) and co-processor IRQ (IRQ13)

; they are used: when partitions are scanned, hd_read relies on timer

        call    unmask_timer

        ; Prevent duplicate timer IRQs in APIC mode

        cmp     [irq_mode], IRQ_APIC

        jz      @f

        stdcall enable_irq, 2               ; @#$%! PIC

@@:

        stdcall enable_irq, 13              ; co-processor

; Setup serial output console (if enabled)

if defined debug_com_base

        ; reserve port so nobody else will use it

        xor     ebx, ebx

        mov     ecx, debug_com_base

        mov     edx, debug_com_base+7

        call    r_f_port_area

        ; 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

;-----------------------------------------------------------------------------

; show SVN version of kernel on the message board

;-----------------------------------------------------------------------------

        mov     eax, [version_inf.rev]

        DEBUGF  1, "K : kernel SVN r%d\n", eax

;-----------------------------------------------------------------------------

; show CPU count on the message board

;-----------------------------------------------------------------------------

        mov     eax, [cpu_count]

        test    eax, eax

        jnz     @F

        mov     al, 1                             ; at least one CPU

@@:

        DEBUGF  1, "K : %d CPU detected\n", eax

;-----------------------------------------------------------------------------

; detect Floppy drives

;-----------------------------------------------------------------------------

        mov     esi, boot_detectfloppy

        call    boot_log

include 'detect/dev_fd.inc'

;-----------------------------------------------------------------------------

; create pci-devices list

;-----------------------------------------------------------------------------

        mov     [pci_access_enabled], 1

        call    pci_enum

;-----------------------------------------------------------------------------

; initialisation IDE ATA code

;-----------------------------------------------------------------------------

include 'detect/init_ata.inc'

;-----------------------------------------------------------------------------

; initialisation AHCI code

;-----------------------------------------------------------------------------

        jmp     ahci_code_end

include 'blkdev/ahci.inc'

ahci_code_end:

        call    ahci_init

;-----------------------------------------------------------------------------

if 0

        mov     ax, [BOOT.sys_disk]

        cmp     ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}

        je      no_lib_load

        mov     esi, boot_loadlibs

        call    boot_log

; 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

; Display APIC status

        mov     esi, boot_APIC_found

        cmp     [irq_mode], IRQ_APIC

        je      @f

        mov     esi, boot_APIC_nfound

@@:

        call    boot_log

; 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 if lang eq sp

        or      ecx, (10+33*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

include "detect/vortex86.inc"                     ; Vortex86 SoC detection code

        stdcall load_pe_driver, szVidintel, 0

        call    usb_init

; 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

        mov     [SLOT_BASE + APPDATA.window], window_data

        mov     [SLOT_BASE + sizeof.APPDATA + APPDATA.window], window_data + sizeof.WDATA

        mov     [SLOT_BASE + sizeof.APPDATA*2 + APPDATA.window], window_data + sizeof.WDATA*2

        mov     [window_data + WDATA.thread], SLOT_BASE

        mov     [window_data + sizeof.WDATA + WDATA.thread], SLOT_BASE + sizeof.APPDATA

        mov     [window_data + sizeof.WDATA*2 + WDATA.thread], SLOT_BASE + sizeof.APPDATA*2

        call    init_display

        mov     eax, [def_cursor]

        mov     [window_data + sizeof.WDATA + WDATA.cursor], eax

        mov     [window_data + sizeof.WDATA*2 + WDATA.cursor], eax

; PRINT CPU FREQUENCY

        mov     esi, boot_cpufreq

        call    boot_log

        cli

        mov     ebx, [hpet_base]

        test    ebx, ebx

        jz      @F

        mov     ebx, [ebx + HPET_COUNTER]

        rdtsc

        mov     ecx, 1000

        sub     eax, [hpet_tsc_start]

        sbb     edx, [hpet_tsc_start + 4]

        shld    edx, eax, 10

        shl     eax, 10

        mov     esi, eax

        mov     eax, edx

        mul     ecx

        xchg    eax, esi

        mul     ecx

        adc     edx, esi

        div     ebx

        mul     ecx

        div     [hpet_period]

        mul     ecx

        DEBUGF  1, "K : cpu frequency %u Hz\n", eax

        jmp     .next

@@:

        rdtsc

        mov     ecx, eax

        mov     esi, 250            ; wait 1/4 a second

        call    delay_ms

        rdtsc

        sub     eax, ecx

        xor     edx, edx

        shld    edx, eax, 2

        shl     eax, 2

.next:

        mov     dword [cpu_freq], eax

        mov     dword [cpu_freq + 4], edx

        mov     ebx, 1000000

        div     ebx

        mov     ebx, eax

        movzx   ecx, word [boot_y]

        if lang eq ru

        add     ecx, (10+19*6) shl 16 - 10

        else if lang eq sp

        add     ecx, (10+25*6) shl 16 - 10

        else

        add     ecx, (10+17*6) shl 16 - 10

        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 I/O permission map

        mov     esi, [default_io_map]

        stdcall map_page, esi, [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map], PG_READ

        add     esi, 0x1000

        stdcall map_page, esi, [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map + 4], PG_READ

        stdcall map_page, tss._io_map_0, \

                [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map], PG_READ

        stdcall map_page, tss._io_map_1, \

                [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map + 4], PG_READ

; SET KEYBOARD PARAMETERS

        mov     al, 0xf6       ; reset keyboard, scan enabled

        call    kb_write_wait_ack

        test    ah, ah

        jnz     .no_keyboard

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_wait_ack

       ; mov   al, 111b

       ; call  kb_write_wait_ack

        mov     al, 0xF3     ; set repeat rate & delay

        call    kb_write_wait_ack

        mov     al, 0; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500

        call    kb_write_wait_ack

     ;// mike.dld [

        call    set_lights

     ;// mike.dld ]

        stdcall attach_int_handler, 1, irq1, 0

        DEBUGF  1, "K : IRQ1 return code %x\n", eax

.no_keyboard:

; Load PS/2 mouse driver

        mov     esi, boot_setmouse

        call    boot_log

        stdcall load_pe_driver, szPS2MDriver, 0

; LOAD FIRST APPLICATION

        cmp     byte [launcher_start], 1        ; Check if starting LAUNCHER is selected on blue screen (1 = yes)

        jnz     first_app_found

        cli

        mov     ebp, firstapp

        call    fs_execute_from_sysdir

        test    eax, eax

        jns     first_app_found

        mov     esi, boot_failed

        call    boot_log

        mov     eax, 0xDEADBEEF      ; otherwise halt

        hlt

first_app_found:

; START MULTITASKING

preboot_blogesc = 0       ; start immediately after bootlog

; 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

        mov     [timer_ticks_enable], 1         ; for cd driver

        sti

        call    mtrr_validate