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

sel_os_stack    equ  (os_stacK_l - _gdts)      ;0x18

sel_app_data    equ  (app_data_l - _gdts +3)   ;0x2B

sel_srv_stack   equ  (srv_stack_l- _gdts +1)   ;0x39

sel_pci_data    equ  (pci_data_32-_gdts)       ;0x48

;;

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

public _gdts

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 _current_thread

public _k_reenter

public pe_app_param

public _init_user_heap

public user_free

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

public init_fpu

public init_malloc

public init_mtrr

public syscall_entry

public LFBAddress

public LFBSize

extrn _16bit_end

extrn @core_free@4

extrn _MemFree

@mem_free@4         equ  _MemFree

extrn  _sys_exec

extrn @load_pe_driver@4

extrn cpu_sign

extrn cpu_info

extrn cpu_caps:dword

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

init_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

    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

    ret

system_init:

        mov   ax, [BOOT_VAR + 0x9031]

        mov   [IDEContrRegsBaseAddr], ax

        mov   [allow_dma_access], al

        mov   [ScreenBPP], eax

        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

        mov   [BytesPerScanLine], 640*4

        cmp   [scr_mode], 0x13      ; 320x200

        je    @f

        cmp   [scr_mode], 0x12      ; VGA 640x480

        je    @f

        mov   [BytesPerScanLine], eax

@@:

        mov esi, BOOT_VAR+0x9080

        movzx   ecx, byte [esi-1]

        mov [NumBiosDisks], ecx

        mov edi, BiosDisksData

        rep movsd

        jge setvesa20

        cmp [scr_mode], 0x13

        je  v20ga32

        mov [put_pixel], Vesa12_putpixel24  ; Vesa 1.2

        mov [get_pixel],dword Vesa12_getpixel24

        cmp byte [ScreenBPP], 24

        jz  ga24

        mov [put_pixel], Vesa12_putpixel32

        mov [get_pixel],dword Vesa12_getpixel32

ga24:

        jmp v20ga24

setvesa20:

        mov [put_pixel], Vesa20_putpixel24  ; Vesa 2.0

        mov [get_pixel],dword Vesa20_getpixel24

        cmp byte [ScreenBPP], 24

        jz  v20ga24

v20ga32:

        mov [put_pixel], Vesa20_putpixel32

        mov [get_pixel],dword Vesa20_getpixel32

v20ga24:

        cmp [scr_mode], 0x12            ; 16 C VGA 640x480

        jne no_mode_0x12

        mov [put_pixel], VGA_putpixel

        mov [get_pixel],dword Vesa20_getpixel32

no_mode_0x12:

           mov edx, PG_SW

           call @mem_alloc@8

           mov [_display_data], eax

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

           mov edx, PG_SW

           call @mem_alloc@8

           mov [unpack.p], eax

           mov [graph_data_l+2],ax

           shr eax,16

           mov [graph_data_l+4],al

           mov [graph_data_l+7],ah

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

        push 0

        push read_firstapp

        call _sys_exec

        add esp, 12

	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

	mov  [idleuse],ebx

	ret

	mov  [idlemem],ebx

	call change_task

	ret

	mov  [idlemem],ebx

	call change_task

	ret

  idlemem		dd   0x0

  idleuse		dd   0x0

  idleusesec		dd   0x0

  check_idle_semaphore	dd   0x0

endg

;                                                                      ;

;                   INCLUDED SYSTEM FILES                              ;

;                                                                      ;

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

;                                                                      ;

;                       KERNEL FUNCTIONS                               ;

;                                                                      ;

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

	;mov  [irq_owner+4*1], 1    ; keyboard

	mov  [irq_owner+4*6], 1    ; floppy diskette

	mov  [irq_owner+4*13], 1   ; math co-pros

	mov  [irq_owner+4*14], 1   ; ide I

	mov  [irq_owner+4*15], 1   ; ide II

	mov   edi,1		       ; 0x00-0x2d

	mov   [RESERVED_PORTS],edi

	shl   edi,4

	mov   [RESERVED_PORTS+edi+0],dword 1

	mov   [RESERVED_PORTS+edi+4],dword 0x0

	mov   [RESERVED_PORTS+edi+8],dword 0x2d

	mov   edi,[RESERVED_PORTS]

	shl   edi,4

	mov   [RESERVED_PORTS+edi+0],dword 1

	mov   [RESERVED_PORTS+edi+4],dword 0x30

	mov   [RESERVED_PORTS+edi+8],dword 0x4d

	mov   edi,[RESERVED_PORTS]

	shl   edi,4

	mov   [RESERVED_PORTS+edi+0],dword 1

	mov   [RESERVED_PORTS+edi+4],dword 0x50

	mov   [RESERVED_PORTS+edi+8],dword 0xdf

	mov   edi,[RESERVED_PORTS]

	shl   edi,4

	mov   [RESERVED_PORTS+edi+0],dword 1

	mov   [RESERVED_PORTS+edi+4],dword 0xe5

	mov   [RESERVED_PORTS+edi+8],dword 0xff

	ret

	mov   [irq12read+4],dword 0		     ; end of port list

	;mov   [irq04read+0],dword 0x3f8 + 0x01000000 ; read port 0x3f8 , byte

	;mov   [irq04read+4],dword 0                  ; end of port list

	;mov   [irq03read+0],dword 0x2f8 + 0x01000000 ; read port 0x2f8 , byte

	;mov   [irq03read+4],dword 0                  ; end of port list

  process_number dd 0x1

endg

.fl60:

        in    al,0x60

        loop  .fl60

        mov   [BTN_COUNT], 0                 ; button buffer

        mov   ax,[BOOT_VAR+0x900c]

        shr   ax,1

        shl   eax,16

        mov   ax,[BOOT_VAR+0x900A]

        shr   ax,1

        mov   dword [MOUSE_X], eax

        pop   eax

        mov   [next_usage_update], 100

        mov   [dont_switch], 0              ; change task if possible

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

	pop   eax

	ret

;* mouse centered - end code- Mario79

    and   ebx,65535

    test  ecx,ecx

    jne   sopl8

    mov   [esp+36],dword 1

    ret

    mov   edx,[TASK_BASE]

    mov   edx,[edx+0x4]

    and   ebx,65535

    cld

  sopl1:

    shl   esi,4

    add   esi,RESERVED_PORTS

    cmp   edx,[esi+0]

    jne   sopl2

    cmp   ebx,[esi+4]

    jb	  sopl2

    cmp   ebx,[esi+8]

    jg	  sopl2

    jmp   sopl3

    jnz   sopl1

    mov   [esp+36],dword 1

    ret

    jnz   sopl4

    out   dx,al

    mov   [esp+36],dword 0

    ret