Subversion Repositories Kolibri OS

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

;;

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

$Revision: 2089 $

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,0x3ec00       ; 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

           mov   edi,0x40000

           mov   ecx,(0x90000-0x40000)/4

           rep   stosd

; CLEAR KERNEL UNDEFINED GLOBALS

           mov   edi, endofcode-OS_BASE

           mov   ecx, (uglobals_size/4)+4

           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 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+$

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

; SAVE REAL MODE VARIABLES

        mov     ax, [BOOT_VAR + 0x9031]

        mov     [IDEContrRegsBaseAddr], ax

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

; init selectors

    mov ebx,[BOOT_VAR+0x9040]			; offset of APM entry point

    movzx eax,word [BOOT_VAR+0x9050] 	; real-mode segment base address of

										; protected-mode 32-bit code segment

    movzx ecx,word [BOOT_VAR+0x9052] 	; real-mode segment base address of

										; protected-mode 16-bit code segment

    movzx edx,word [BOOT_VAR+0x9054] 	; 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 + 0x9044]    ; version & flags

    mov    [apm_vf], eax

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

;        movzx eax,byte [BOOT_VAR+0x9010]	; mouse port

;        mov   [0xF604],byte 1  ;al

		mov	al, [BOOT_VAR+0x901F]   	; DMA access

        mov	[allow_dma_access], al

        movzx eax, byte [BOOT_VAR+0x9000]        ; bpp

        mov [ScreenBPP],al

        mov [_display.bpp], eax

        mov [_display.vrefresh], 60

        mov [_display.disable_mouse],  __sys_disable_mouse

        movzx eax,word [BOOT_VAR+0x900A]  ; X max

        mov [_display.width], eax

        dec   eax

        mov   [Screen_Max_X],eax

        mov   [screen_workarea.right],eax

        movzx eax,word [BOOT_VAR+0x900C]  ; Y max

        mov [_display.height], eax

        dec   eax

        mov   [Screen_Max_Y],eax

        mov   [screen_workarea.bottom],eax

        movzx eax,word [BOOT_VAR+0x9008]  ; 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+0x9001]        ; for other modes

        mov   [BytesPerScanLine],ax

        mov [_display.pitch], eax

@@:

        mov eax, [_display.width]

        mul [_display.height]

        mov [_WinMapSize], eax

        mov     esi, BOOT_VAR+0x9080

        movzx   ecx, byte [esi-1]

        mov     [NumBiosDisks], ecx

        mov     edi, BiosDisksData

        rep     movsd

; GRAPHICS ADDRESSES

        and     byte [BOOT_VAR+0x901e],0x0

        mov     eax,[BOOT_VAR+0x9018]

        mov     [LFBAddress],eax

        cmp     [SCR_MODE],word 0100000000000000b

        jge     setvesa20

        cmp     [SCR_MODE],word 0x13

        je      v20ga32

        mov     [PUTPIXEL],dword Vesa12_putpixel24  ; Vesa 1.2

        mov     [GETPIXEL],dword Vesa12_getpixel24

        cmp     [ScreenBPP],byte 24

        jz      ga24

        mov     [PUTPIXEL],dword Vesa12_putpixel32

        mov     [GETPIXEL],dword Vesa12_getpixel32

      ga24:

        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

      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_OFFSET

           mov [srv.fd], eax

           mov [srv.bk], eax

           mov edi, irq_tab

           xor eax, eax

           mov ecx, 16

           rep stosd

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

; Initialize system V86 machine

        call    init_sys_v86

; TIMER SET TO 1/100 S

        mov   al,0x34              ; set to 100Hz

        out   0x43,al

        mov   al,0x9b              ; lsb    1193180 / 1193

        out   0x40,al

        mov   al,0x2e              ; msb

        out   0x40,al

; Enable timer IRQ (IRQ0) and hard drives IRQs (IRQ14, IRQ15)

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

; Also enable IRQ2, because in some configurations

; IRQs from slave controller are not delivered until IRQ2 on master is enabled

        mov     al, 0xFA

        out     0x21, al

        mov     al, 0x3F

        out     0xA1, al

; 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

; LOAD VMODE DRIVER

;!!!!!!!!!!!!!!!!!!!!!!!

include 'vmodeld.inc'

;!!!!!!!!!!!!!!!!!!!!!!!

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   esi,boot_fonts

        call  boot_log

; PRINT AMOUNT OF MEMORY

        mov     esi, boot_memdetect

        call    boot_log

        movzx   ecx, word [boot_y]

        or      ecx, (10+29*6) shl 16 ; "Determining amount of memory"

        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 PORTS FOR IRQ HANDLERS

        ;mov  esi,boot_setrports

        ;call boot_log

        ;call setirqreadports

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

        add     ecx, (10+17*6) shl 16 - 10 ; 'CPU frequency is '

        mov     edx, 0xFFFFFF

        xor     edi,edi

        mov     eax, 0x00040000

		inc		edi

        call    display_number_force

; SET VARIABLES

        call  set_variables

; SET MOUSE

        ;call   detect_devices

        stdcall load_driver, szPS2MDriver

;        stdcall load_driver, szCOM_MDriver

        mov   esi,boot_setmouse

        call  boot_log

        call  setmouse

; 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

        ; wait until 8042 is ready

        xor ecx,ecx

      @@:

        in     al,64h

        and    al,00000010b

        loopnz @b

       ; mov   al, 0xED       ; svetodiody - 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 ]

; 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

; START MULTITASKING

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   [ENABLE_TASKSWITCH],byte 1        ; multitasking enabled

; UNMASK ALL IRQ'S

;        mov   esi,boot_allirqs

;        call  boot_log

;

;        cli                          ;guarantee forbidance of interrupts.

;        mov   al,0                   ; unmask all irq's

;        out   0xA1,al

;        out   0x21,al

;

;        mov   ecx,32

;

;     ready_for_irqs:

;

;        mov   al,0x20                ; ready for irqs

;        out   0x20,al

;        out   0xa0,al

;

;        loop  ready_for_irqs         ; flush the queue

        stdcall attach_int_handler, 1, irq1, 0

;        mov    [dma_hdd],1

        cmp     [IDEContrRegsBaseAddr], 0

        setnz   [dma_hdd]

        mov [timer_ticks_enable],1              ; for cd driver

        sti

        call change_task

        jmp osloop

        ; Fly :)

include 'unpacker.inc'

include 'fdo.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    window_check_events

        call    mouse_check_events

        call   checkmisc