Subversion Repositories Kolibri OS

;;

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

;;

;; 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 "kglobals.inc"

include "lang.inc"

max_processes	 equ   255

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

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)

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

;;

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

public _boot_mbi

public _sys_pdbr

public _gdts

public _high_code

public _panic_printf

public _printf

public _pg_balloc

public _mem_amount

public @balloc@4

public _rd_fat

public _rd_fat_end

public _rd_root

public _rd_root_end

public _DestroyObject       ;         export

public _CommitPages         ;         export

public _GetPgAddr           ;         export

public _MapIoMem            ; stdcall export

public _UnmapPages          ;         export

public _Kfree               ;         export

public _UserAlloc           ; stdcall export

public _UserFree            ; stdcall export

public _SysMsgBoardStr      ;         export

public _SetScreen           ;         export    FIXME  make fastcall

public _PciRead8            ; stdcall export

public _PciRead16           ; stdcall export

public _PciRead32           ; stdcall export

public _PciWrite8           ; stdcall export

public _PciWrite16          ; stdcall export

public _PciWrite32          ; stdcall export

public _SetHwCursor         ; stdcall export

public _HwCursorRestore     ;         export

public _HwCursorCreate      ;         export

extrn _16bit_end

extrn _poweroff

extrn _init_mm

extrn @core_free@4

extrn @find_large_md@4

extrn _MemFree

@mem_free@4         equ  _MemFree

extrn @load_pe_driver@4

extrn _alloc_page

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

;bios32_entry    dd ?

;tmp_page_tabs   dd ?

__DEBUG_LEVEL__ fix 1

MEM_WC     equ 1               ;write combined memory

MEM_UC     equ 0               ;uncached memory

           cli

@@:

           hlt

           jmp @B

_panic_printf:

           jmp _printf

include 'printf.inc'

proc test_cpu

           locals

              cpu_type   dd ?

              cpu_id     dd ?

              cpu_Intel  dd ?

              cpu_AMD    dd ?

           endl

           xor eax, eax

           mov [cpu_caps], eax

           mov [cpu_caps+4], eax

           cpuid

           mov [cpu_vendor+4], edx

           mov [cpu_vendor+8], ecx

           cmp ebx, dword [intel_str]

           jne .check_AMD

           cmp edx, dword [intel_str+4]

           jne .check_AMD

           cmp ecx, dword [intel_str+8]

           jne .check_AMD

           mov [cpu_Intel], 1

           cmp eax, 1

           jl .end_cpuid

           mov eax, 1

           cpuid

           mov [cpu_sign], eax

           mov [cpu_info],  ebx

           mov [cpu_caps],  edx

           mov [cpu_caps+4],ecx

           and eax, 0x0f

           ret

.end_cpuid:

           mov eax, [cpu_type]

           ret

           cmp ebx, dword [AMD_str]

           jne .unknown

           cmp edx, dword [AMD_str+4]

           jne .unknown

           cmp ecx, dword [AMD_str+8]

           jne .unknown

           mov [cpu_AMD], 1

           cmp eax, 1

           jl .unknown

           mov eax, 1

           cpuid

           mov [cpu_sign], eax

           mov [cpu_info],  ebx

           mov [cpu_caps],  edx

           mov [cpu_caps+4],ecx

           shr eax, 8

           and eax, 0x0f

           ret

.unknown:

           mov eax, 1

           cpuid

           mov [cpu_sign], eax

           mov [cpu_info],  ebx

           mov [cpu_caps],  edx

           mov [cpu_caps+4],ecx

           shr eax, 8

           and eax, 0x0f

           ret

endp

_copy_pg_balloc  dd 0

           mov dx,app_data

	   mov ss,ax

           mov esp, __os_stack

           mov es, dx

           mov fs, dx

           mov gs, dx

         ;  jnc @F

         ;  or ebx, CR4_PGE

         ;  mov cr4, ebx

@@:

         ;  mov eax, cr3

         ;  mov cr3, eax           ; flush TLB

           mov eax, 3

           out dx, al

           call _init

           mov [_copy_pg_balloc], eax

           mov [tss._esp0], __os_stack

           mov [tss._esp], __os_stack

	   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

	   ltr	ax

           fastcall _balloc

           mov [_display_data], eax

                    (unpack.lc+unpack.lp)))*4

           fastcall _balloc

           mov [unpack.p], eax

           mov [pg_data.pg_mutex], 0

           mov edx, 0x40000000

           call @init_heap@8

           mov ecx, _16bit_end

           shr ecx, 2

           mov edi, _16BIT_BASE

           cld

           rep movsd

__setvars:

           mov ax,os_stack

           mov dx,app_data

	   mov ss,ax

           mov esp, __os_stack

           mov es, dx

           mov fs, dx

           mov gs, dx

           xor esi, esi

           mov   edi,BOOT_VAR

           mov   ecx,0x10000 / 4

           rep   movsd

           xor eax, eax

           mov   ecx,0x10000 / 4

           rep   stosd

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

           rep stosd

           mov dword [_sys_pdbr+4], eax

           mov eax, cr3

           mov cr3, eax

	mov	ax, [BOOT_VAR + 0x9031]

	mov	[IDEContrRegsBaseAddr], ax

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

    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

    mov    [dword apm_code_32 + 2], ax

    shr    eax, 16

    mov    [dword apm_code_32 + 4], al

    mov    [dword apm_code_16 + 2], cx

    shr    ecx, 16

    mov    [dword apm_code_16 + 4], cl

    mov    [dword apm_data_16 + 2], dx

    shr    edx, 16

    mov    [dword apm_data_16 + 4], dl

    mov    word [apm_entry + 4], apm_code_32 - _gdts

    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

	mov   al,[BOOT_VAR+0x9000]	  ; bpp

	mov   [ScreenBPP],al

	dec   eax

	mov   [Screen_Max_X],eax

	mov   [screen_workarea.right],eax

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

	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

	mov   [BytesPerScanLine],ax

@@:

	mov	esi, BOOT_VAR+0x9080

	movzx	ecx, byte [esi-1]

	mov	[NumBiosDisks], ecx

	mov	edi, BiosDisksData

	rep	movsd

	mov	eax,[BOOT_VAR+0x9018]

	mov	[LFBAddress],eax

	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:

; 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

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

	   mov ecx, MSR_AMD_STAR

	   wrmsr

.noSYSCALL:

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

; LOAD IDT

	   call init_LFB

           call init_fpu

           call init_malloc

           xor edx, edx

           call @mem_alloc@8

	   mov [default_io_map], eax

	   mov [ipc_tmp], eax

	   mov ebx, 0x1000

	   mov [proc_mem_map], eax

	   mov [proc_mem_pdir], eax

	   mov [proc_mem_tab], eax

	   mov [tmp_task_pdir], eax

	   mov [tmp_task_ptab], eax

	   mov [ipc_pdir], eax

	   mov [ipc_ptab], eax

	   mov eax, srv.fd-SRV_FD_OFFSET

	   mov [srv.fd], eax

	   mov [srv.bk], eax

	   xor eax, eax

	   mov ecx, 16

	   rep stosd

	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

	mov [TASK_COUNT],dword 1

	mov [TASK_BASE],dword TASK_DATA

	mov [current_slot], SLOT_BASE+256

	xor  eax,eax

	inc  eax

	mov   [BgrDrawMode],eax

	mov   [BgrDataWidth],eax

	mov   [BgrDataHeight],eax

        mov ecx, 4095

        mov edx, PG_SW

	mov    [mem_BACKGROUND],4095

        call @mem_alloc@8

	mov [img_background], eax

        call    init_sys_v86

	out   0x43,al

	mov   al,0x9b		   ; lsb    1193180 / 1193

	out   0x40,al

	mov   al,0x2e		   ; msb

	out   0x40,al

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

	mov	al, 0xFE

	out	0x21, al

	mov	al, 0x3F

	out	0xA1, al

include 'detect/disks.inc'

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

;include 'boot/rdload.inc'

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

;    mov    [dma_hdd],1

; CALCULATE FAT CHAIN FOR RAMDISK

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

        stdcall read_file, char2, FONT_II, 0, 2560

	call  boot_log

	mov	esi, boot_memdetect

	call	boot_log

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

	sub	ecx, 10

	mov	edx, 0xFFFFFF

        mov     ebx, [_mem_amount]

	shr	ebx, 20

	mov	edi, 1

	mov	eax, 0x00040000

	call	display_number_force

	call   boot_log

	call  boot_log

	call  setwindowdefaults

	call  boot_log

	call  init_background

	call  calculatebackground

	call  boot_log

	call  reserve_irqs_ports

	call boot_log

	;call setirqreadports

	call boot_log

	mov  dword [SLOT_BASE+APPDATA.fpu_state], fpu_data

	mov  dword [SLOT_BASE+APPDATA.fpu_handler], eax

	mov  dword [SLOT_BASE+APPDATA.sse_handler], eax

	mov dword [SLOT_BASE+256+APPDATA.app_name+4], dword 'DLE '

        mov edi,  __os_stack-8192+512

	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

	mov dword [SLOT_BASE+256+APPDATA.io_map],\

		  (tss._io_map_0-OS_BASE+PG_MAP)

	mov dword [SLOT_BASE+256+APPDATA.io_map+4],\

		  (tss._io_map_1-OS_BASE+PG_MAP)

	mov ecx, 512/4

	cld

	rep movsd

	mov dword [SLOT_BASE+256+APPDATA.sse_handler], eax

	mov  dword [SLOT_BASE+256+APPDATA.fd_obj], ebx

	mov  dword [SLOT_BASE+256+APPDATA.bk_obj], ebx

	mov  [CURRENT_TASK],dword 1

	mov  [TASK_COUNT],dword 1

	mov  [current_slot], SLOT_BASE+256

	mov  [TASK_BASE],dword TASK_DATA

	mov  [TASK_DATA+TASKDATA.wnd_number], 1 ; on screen number

	mov  [TASK_DATA+TASKDATA.pid], 1	; process id number

	mov  [TASK_DATA+TASKDATA.mem_start], 0	; process base address

        mov eax, [def_cursor]

	mov [SLOT_BASE+APPDATA.cursor],eax

	mov [SLOT_BASE+APPDATA.cursor+256],eax

        ;call @load_pe_driver@4

	call  boot_log

	mov   ecx,eax

	mov   esi,250		    ; wait 1/4 a second

	call  delay_ms

	call  _rdtsc

	shl   eax,2

	mov   [CPU_FREQ],eax	      ; save tsc / sec

	mov ebx, 1000000

	div ebx

	mov [stall_mcs], eax

       ; stdcall load_driver, szCOM_MDriver

	call  boot_log

	call  setmouse

	call  fdc_init

	jne   no_pal_vga

	mov   esi,boot_pal_vga

	call  boot_log

	call  paletteVGA

      no_pal_vga:

	jne   no_pal_ega

	mov   esi,boot_pal_ega

	call  boot_log

	call  palette320x200

      no_pal_ega:

         ;  stdcall map_page,esi,(tss._io_map_0-OS_BASE), PG_MAP

         ;  add esi, 0x1000

         ;  stdcall map_page,esi,(tss._io_map_1-OS_BASE), PG_MAP

         ;          (tss._io_map_0-OS_BASE), PG_MAP

         ;  stdcall map_page,tss._io_map_1,\

         ;          (tss._io_map_1-OS_BASE), PG_MAP

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

	call	fs_execute_from_sysdir

	je    first_app_found

	call	boot_log

	hlt

	mov   [CURRENT_TASK],dword 1	   ; set OS task fisrt

	mov   al, 0xf6	       ; reset keyboard, scan enabled

	call  kb_write

	xor ecx,ecx

@@:

	in     al,64h

	and    al,00000010b

	loopnz @b

	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 ]

;        mov     esi, boot_tasking

;        call    boot_log

;.bll1:  in      al, 0x60        ; wait for ESC key press

;        cmp     al, 129

;        jne     .bll1

;end if

	call  boot_log

	out   0xA1,al

	out   0x21,al

	out   0x20,al

	out   0xa0,al

	cmp	[IDEContrRegsBaseAddr], 0

	setnz	[dma_hdd]

	mov [timer_ticks_enable],1		; for cd driver

	call change_task

include 'fdo.inc'

boot_log:

	 pushad

	 mov   bx,word [boot_y]

	 add   [boot_y],dword 10

	 mov   ecx,0x80ffffff	; ASCIIZ string with white color

	 mov   edx,esi

	 mov   edi,1

	 call  checkVga_N13

;                                                                    ;

;                    MAIN OS LOOP START                              ;

;                                                                    ;

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

align 32

osloop:

	call   [draw_pointer]

	call   checkbuttons

	call   checkwindows

;       call   check_window_move_request

	call   checkmisc

	call   checkVga_N13

        call   stack_handler

	call   checkidle

	call   check_fdd_motor_status

	call   check_ATAPI_device_event

	jmp    osloop

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

;                                                                    ;

;                      MAIN OS LOOP END                              ;

;                                                                    ;

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

	pushad

	jne  no_idle_state

	mov  eax,[idlemem]

	mov  ebx,[timer_ticks] ;[0xfdf0]

	cmp  eax,ebx

	jnz  idle_exit

	call _rdtsc

	mov  ecx,eax

      idle_loop:

	hlt

	cmp  [check_idle_semaphore],0

	jne  idle_loop_exit

	mov  eax,[timer_ticks] ;[0xfdf0]

	cmp  ebx,eax

	jz   idle_loop

      idle_loop_exit:

	mov  [idlemem],eax

	call _rdtsc

	sub  eax,ecx

	mov  ebx,[idleuse]

	add  ebx,eax