WebSVN – Kolibri OS – Diff – /kernel/branches/gfx_kernel/boot/bootcode.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                        ;;
;;  BOOTCODE.INC                                          ;;
;;                                                        ;;
;;  KolibriOS 16-bit loader,                              ;;
;;                        based on bootcode for MenuetOS  ;;
;;                                                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 
;==========================================================================
;
;                           16 BIT FUNCTIONS
;
;==========================================================================
 
include 'drawtext.inc'
 
putchar:
; in: al=character
    mov    ah, 0Eh
    mov    bh, 0
    int    10h
    ret
 
print:
; in: si->string
    mov    al, 186
    call    putchar
    mov    al, ' '
    call    putchar
 
printplain:
; in: si->string
    pusha
    lodsb
@@:
    call    putchar
    lodsb
    cmp    al, 0
    jnz    @b
    popa
    ret
 
; Now int 16 is used for keyboard support.
; This is shorter, simpler and more reliable.
if 0
getkey:      push  ecx
             push  edx
             add   ebx,0x0101
             xor   eax,eax
 
           gk1:
             in    al,0x60
             mov   cl,al
           gk0:
             in    al,0x60
             cmp   al,cl
             je    gk0
             cmp   ax,11
             jg    gk0
             gk0_1:
             mov   cl,al
 
;             add   al,47
;             mov   [ds:keyinbs-0x10000],al
;             mov   si,keyinbs-0x10000
;             call  printplain
 
           gk12:
             in    al,0x60
             cmp   al,cl
             je    gk12
             cmp   ax,240
             jne   gk13
             mov   al,cl
             jmp   gk14
           gk13:
             add   cl,128
             cmp   al,cl
             jne   gk1
             sub   al,128
           gk14:
 
             movzx edx,bl
             cmp   eax,edx
             jb    gk1
             movzx edx,bh
             cmp   eax,edx
             jg    gk1
             test  ebx,0x010000
             jnz   gk3
             mov   cx,0x1000
             mov   dx,cx
             add   eax,47
             mov   cx,ax
             cmp   cx,58
             jb    gk_nozero
             sub   cx,10
           gk_nozero:
             mov   [ds:keyin-0x10000],cl
             mov   si,keyin-0x10000
             call  printplain
           gk3:
             sub   eax,48
             pop   edx
             pop   ecx
             ret
end if
 
getkey:
; get number in range [bl,bh] (bl,bh in ['0'..'9'])
; in: bx=range
; out: ax=digit (1..9, 10 for 0)
    mov    ah, 0
    int    16h
    cmp    al, bl
    jb    getkey
    cmp    al, bh
    ja    getkey
    push    ax
    call    putchar
    pop    ax
    and    ax, 0Fh
    jnz    @f
    mov    al, 10
@@:
    ret
 
setcursor:
; in: dl=column, dh=row
    mov    ah, 2
    mov    bh, 0
    int    10h
    ret
 
macro _setcursor row,column
{
    mov    dx, row*256 + column
    call    setcursor
}
 
pagetable_set:
;eax - physical address
;es:di - page table
;ecx - number of pages to map
    or    al, 7
@@:
    stosd
    add    eax, 1000h
    loop    @b
    ret
 
boot_read_floppy:
        push    si
        xor     si, si
        mov     ah, 2   ; read
@@:
        push    ax
        int     0x13
        pop     ax
        jnc     @f
        inc     si
        cmp     si, 10
        jb      @b
        mov     si, badsect-0x10000
sayerr_plain:
        call    printplain
        jmp     $
@@:
        pop     si
        ret
 
		org $+0x10000
 
; table for move to extended memory (int 15h, ah=87h)
       movedesc:
        db      0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
        db      0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
 
        db      0xff,0xff,0x0,0xa0,0x00,0x93,0x0,0x0
        db      0xff,0xff,0x0,0x00,0x10,0x93,0x0,0x0
 
        db      0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
        db      0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
        db      0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
        db      0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
        	org $-0x10000
include 'bootvesa.inc'
 
;=========================================================================
;
;                           16 BIT CODE
;
;=========================================================================
 
 
start_of_code:
    cld
; \begin{diamond}[02.12.2005]
    cmp    ax, 'KL'
    jnz    @f
    mov    word [cs:cfgmanager.loader_block-0x10000], si
    mov    word [cs:cfgmanager.loader_block+2-0x10000], ds
@@:
; \end{diamond}[02.12.2005]
 
; set up stack
    mov    ax, 3000h
    mov    ss, ax
    mov    sp, 0EC00h
; set up segment registers
    push    cs
    pop    ds
    push    cs
    pop    es
 
; set videomode
    mov    ax, 3
        int  0x10
 
if lang eq ru
 ; Load & set russian VGA font (RU.INC)
        mov  bp,RU_FNT1-10000h   ; RU_FNT1 - First part
          mov  bx,1000h            ; 768 bytes
          mov  cx,30h              ; 48 symbols
          mov  dx,80h              ; 128 - position of first symbol
        mov  ax,1100h
          int  10h
 
        mov  bp,RU_FNT2-10000h   ; RU_FNT2 -Second part
        mov  bx,1000h            ; 512 bytes
        mov  cx,20h              ; 32 symbols
        mov  dx,0E0h             ; 224 - position of first symbol
        mov  ax,1100h
          int  10h
 ; End set VGA russian font
end if
 
; draw frames
    push    0xb800
    pop    es
    xor    di, di
;        mov  si,d80x25-0x10000
;        mov  cx,80*25
;        mov  ah,1*16+15
;       dfl1:
;        lodsb
;        stosw
;        loop dfl1
    mov    ah, 1*16+15
; draw top
    mov    si, d80x25_top - 0x10000
    mov    cx, d80x25_top_num * 80
@@:
    lodsb
    stosw
    loop    @b
; draw spaces
    mov    si, space_msg - 0x10000
    mov    cx, 25 - d80x25_top_num - d80x25_bottom_num
dfl1:
    push    cx
    push    si
    mov    cx, 80
@@:
    lodsb
    stosw
    loop    @b
    pop    si
    pop    cx
    loop    dfl1
; draw bottom
    mov    si, d80x25_bottom - 0x10000
    mov    cx, d80x25_bottom_num * 80
@@:
    lodsb
    stosw
    loop    @b
 
    mov    byte [space_msg-0x10000+80], 0    ; now space_msg is null terminated
 
    _setcursor d80x25_top_num,0
 
 
; TEST FOR 386+
 
    mov    bx, 0x4000
        pushf
        pop     ax
        mov     dx,ax
        xor     ax,bx
        push    ax
        popf
        pushf
        pop     ax
        and     ax,bx
        and     dx,bx
        cmp     ax,dx
        jnz     cpugood
        mov     si,not386-0x10000
sayerr:
        call    print
        jmp     $
     cpugood:
 
; set up esp
    movzx    esp, sp
 
; FLUSH 8042 KEYBOARD CONTROLLER
 
;// mike.dld [
 ;       mov     al,0xED
 ;       out     0x60,al
 ;       or      cx,-1
 ;     @@:
 ;       in      al,0x64
 ;       test    al,2
 ;       jz      @f
 ;       loop    @b
 ;     @@:
 ;       mov     al,0
 ;       out     0x60,al
 ;       or      cx,-1
 ;     @@:
 ;       in      al,0x64
 ;       test    al,2
 ;       jz      @f
 ;       loop    @b
 ;     @@:
;// mike.dld ]
 
;       mov     ecx,10000
;      fl1:
;       in      al,0x64
;       loop    fl1
;       test    al,1
;       jz      fl2
;       in      al,0x60
;       jmp     fl1
;      fl2:
 
;****************************************************************
; The function is modified Mario79
;*****************************************************************
; wait_kbd:        ; variant 1
;       mov      cx,2500h  ;çàäåðæêà ïîðÿäêà 10 ìñåê
; test_kbd:
;       in       al,64h    ;÷èòàåì ñîñòîÿíèå êëàâèàòóðû
;       test     al,2      ;ïðîâåðêà áèòà ãîòîâíîñòè
;       loopnz   test_kbd
 
    mov   al,0xf6         ; Ñáðîñ êëàâèàòóðû, ðàçðåøèòü ñêàíèðîâàíèå
    out   0x60,al
    xor   cx,cx
wait_loop:       ; variant 2
; reading state of port of 8042 controller
        in      al,64h 
        and     al,00000010b  ; ready flag
; wait until 8042 controller is ready 
        loopnz  wait_loop
 
; --------------- APM ---------------------
    push    0
    pop    es
    mov    word [es : 0x9044], 0        ; ver = 0.0 (APM not found)
    mov    ax, 0x5300
    xor    bx, bx
    int    0x15
    jc    apm_end                ; APM not found
    test    cx, 2
    jz    apm_end                ; APM 32-bit protected-mode interface not supported
    mov    [es : 0x9044], ax        ; Save APM Version
    mov    [es : 0x9046], cx        ; Save APM flags
    
    ; Write APM ver ----
    and    ax, 0xf0f
    add    ax, '00'
    mov    si, msg_apm - 0x10000
    mov    [si + 5], ah
    mov    [si + 7], al
    _setcursor 0, 3
    call    printplain
    _setcursor d80x25_top_num,0
    ; ------------------
    
    mov    ax, 0x5304            ; Disconnect interface
    xor    bx, bx
    int    0x15
    mov    ax, 0x5303            ; Connect 32 bit mode interface
    xor    bx, bx
    int    0x15
    ; init selectors
    movzx    eax, ax ; real-mode segment base address of protected-mode 32-bit code segment
    shl    eax, 4
    mov    [apm_code_32 - 0x10000 + 2], ax
    shr    eax, 16
    mov    [apm_code_32 - 0x10000 + 4], al
    movzx    ecx, cx ; real-mode segment base address of protected-mode 16-bit code segment
    shl    ecx, 4
    mov    [apm_code_16 - 0x10000 + 2], cx
    shr    ecx, 16
    mov    [apm_code_16 - 0x10000 + 4], cl
    movzx    edx, dx ; real-mode segment base address of protected-mode 16-bit data segment
    shl    edx, 4
    mov    [apm_data_16 - 0x10000 + 2], dx
    shr    edx, 16
    mov    [apm_data_16 - 0x10000 + 4], dl
    mov    [es : 0x9040], ebx              ; offset of APM entry point
apm_end:
; -----------------------------------------        
 
; DISPLAY VESA INFORMATION
 
        call    print_vesa_info
 
; \begin{diamond}[30.11.2005]
cfgmanager:
; settings:
; a) preboot_graph = graphical mode
;    preboot_gprobe = probe this mode?
; b) preboot_mtrr = use hardware acceleration?
; c) preboot_vrrm = use VRR?
; d) preboot_device = from what boot?
    mov    di, preboot_graph-0x10000
; check bootloader block
    cmp    [.loader_block-0x10000], 0
    jz    .noloaderblock
    les    bx, [.loader_block-0x10000]
    cmp    byte [es:bx], 1
    mov    si, loader_block_error-0x10000
    jnz    sayerr
    test    byte [es:bx+1], 1
    jz    @f
; image in memory present
    cmp    [di+preboot_device-preboot_graph], 0
    jnz    @f
    mov    [di+preboot_device-preboot_graph], 3
@@:
.noloaderblock:
; determine default settings
    mov    [.bSettingsChanged-0x10000], 0
        call    calc_vmodes_table
.preboot_gr_end:
    cmp    [di+preboot_mtrr-preboot_graph], 1
    adc    [di+preboot_mtrr-preboot_graph], 0
    cmp    [di+preboot_vrrm-preboot_graph], 1
    adc    [di+preboot_vrrm-preboot_graph], 0
    cmp    [di+preboot_device-preboot_graph], 1
    adc    [di+preboot_device-preboot_graph], 0
; notify user
    mov    si, linef-0x10000
    call    print
    mov    si, start_msg-0x10000
    call    print
    mov    si, time_msg-0x10000
    call    print
; get start time
    call    .gettime
    mov    [.starttime-0x10000], eax
    mov    word [.timer-0x10000], .newtimer
    mov    word [.timer-0x10000+2], cs
.printcfg:
    _setcursor 9,0
    mov    si, current_cfg_msg-0x10000
    call    print
    mov    si, curvideo_msg-0x10000
    call    print
        call    draw_current_vmode
    mov    si, linef-0x10000
    call    printplain
    mov    si, mtrr_msg-0x10000
    cmp    [preboot_mtrr-0x10000], 1
    call    .say_on_off
    mov    si, vrrm_msg-0x10000
    cmp    [preboot_vrrm-0x10000], 1
    call    .say_on_off
    mov    si, preboot_device_msg-0x10000
    call    print
    mov    al, [preboot_device-0x10000]
    and    eax, 3
    mov    si, [preboot_device_msgs-0x10000+eax*2]
    call    printplain
.wait:
    _setcursor 25,0        ; out of screen
; set timer interrupt handler
    cli
    push    0
    pop    es
    mov    eax, [es:8*4]
    mov    [.oldtimer-0x10000], eax
    mov    eax, [.timer-0x10000]
    mov    [es:8*4], eax
    sti
; wait for keypressed
    mov    ah, 0
    int    16h
    push    ax
; restore timer interrupt
    push    0
    pop    es
    mov    eax, [.oldtimer-0x10000]
    mov    [es:8*4], eax
    mov    [.timer-0x10000], eax
        _setcursor (d80x25_top_num+3),0
    mov    si, space_msg-0x10000
    call    printplain
    pop    ax
; switch on key
    cmp    al, 13
    jz    .continue
    or    al, 20h
    cmp    al, 'a'
    jz    .change_a
    cmp    al, 'b'
    jz    .change_b
    cmp    al, 'c'
    jz    .change_c
    cmp    al, 'd'
    jnz    .wait
    _setcursor 15,0
    mov     si,bdev-0x10000
    call    print
    mov     bx,'13'
    call    getkey
    mov    [preboot_device-0x10000], al
    _setcursor 13,0
.d:
    mov    [.bSettingsChanged-0x10000], 1
    mov    si, space_msg-0x10000
    call    printplain
    _setcursor 15,0
    mov    cx, 6
@@:
    call    printplain
    loop    @b
    jmp    .printcfg
.change_a:
  .lp0: call    draw_vmodes_table
  .lp1: mov     al,[vm_row]
        sub     al,[ln_top]
        jge     @f
        dec     [ln_top]
        jmp     .lp0
    @@: cmp     al,[ln_num]
        jl      .lp2
        inc     [ln_top]
        jmp     .lp0
  .lp2: mov     cx,0x1A1B
        call    draw_vmodes_table_cursor
        mov     ax,0x0000
        int     0x16
        push    ax
        mov     cx,'  ';0x1A1B
        call    draw_vmodes_table_cursor
        pop     ax
        cmp     ah,0x48;x,0x48E0               ; up
        jne     @f
        dec     [vm_row]
        jge     .lp1
        mov     [vm_row],0
        jmp     .lp1
    @@: cmp     ah,0x50;x,0x50E0               ; down
        jne     @f
        inc     [vm_row]
        mov     al,[ln_cnt]
        dec     al
        cmp     [vm_row],al
        jle     .lp1
        mov     [vm_row],al
        jmp     .lp1
    @@: cmp     ah,0x4B;x,0x4BE0               ; left
        jne     @f
        dec     [vm_col]
        jge     .lp1
        mov     [vm_col],0
        jmp     .lp1
    @@: cmp     ah,0x4D;x,0x4DE0               ; right
        jne     @f
        inc     [vm_col]
        cmp     [vm_col],5
        jle     .lp1
        mov     [vm_col],5
        jmp     .lp1
    @@: cmp     al,0x0D;x,0x1C0D               ; enter
        jne     .lp2
    _setcursor 10,0
    jmp    .d
.change_b:
    _setcursor 15,0
    mov    si, gr_acc-0x10000
    call    print
    mov    bx, '12'
    call    getkey
    mov    [preboot_mtrr-0x10000], al
    _setcursor 11,0
    jmp    .d
.change_c:
    _setcursor 15,0
    mov    si, vrrmprint-0x10000
    call    print
    mov    bx, '12'
    call    getkey
    mov    [preboot_vrrm-0x10000], al
    _setcursor 12,0
    jmp    .d
.say_on_off:
    pushf
    call    print
    mov    si, on_msg-0x10000
    popf
    jz    @f
    mov    si, off_msg-0x10000
@@:    call    printplain
    ret
; novesa and vervesa strings are not used at the moment of executing this code
virtual at novesa
.oldtimer dd ?
.starttime dd ?
.bSettingsChanged db ?
.timer dd ?
end virtual
	org $+0x10000
.loader_block dd 0
	org $-0x10000
.gettime:
    mov    ah, 0
    int    1Ah
    xchg    ax, cx
    shl    eax, 10h
    xchg    ax, dx
    ret
.newtimer:
    push    ds
    push    cs
    pop    ds
    pushf
    call    [.oldtimer-0x10000]
    pushad
    call    .gettime
    sub    eax, [.starttime-0x10000]
    sub    ax, 18*5
    jae    .timergo
    neg    ax
    add    ax, 18-1
    mov    bx, 18
    xor    dx, dx
    div    bx
if lang eq ru
; ¯®¤®¦¤¨â¥ 5 á¥ªã­¤, 4/3/2 á¥ªã­¤ë, 1 á¥ªã­¤ã
    cmp    al, 5
    mov    cl, ' '
    jae    @f
    cmp    al, 1
    mov    cl, 'ã'
    jz    @f
    mov    cl, 'ë'
@@:    mov    [time_str+9-0x10000], cl
else
; wait 5/4/3/2 seconds, 1 second
    cmp    al, 1
    mov    cl, 's'
    ja    @f
    mov    cl, ' '
@@:    mov    [time_str+9-0x10000], cl
end if
    add    al, '0'
    mov    [time_str+1-0x10000], al
    mov    si, time_msg-0x10000
        _setcursor (d80x25_top_num+3),0
    call    print
    _setcursor 25,0
    popad
    pop    ds
    iret
.timergo:
    push    0
    pop    es
    mov    eax, [.oldtimer-0x10000]
    mov    [es:8*4], eax
    mov    sp, 0EC00h
.continue:
    sti
    _setcursor 6,0
    mov    si, space_msg-0x10000
    call    printplain
    call    printplain
    _setcursor 6,0
    mov    si, loading_msg-0x10000
    call    print
    _setcursor 15,0
    cmp    [.bSettingsChanged-0x10000], 0
    jz    .load
    cmp    [.loader_block-0x10000], 0
    jz    .load
    les    bx, [.loader_block-0x10000]
    mov    eax, [es:bx+3]
    push    ds
    pop    es
    test    eax, eax
    jz    .load
    push    eax
    mov    si, save_quest-0x10000
    call    print
.waityn:
    mov    ah, 0
    int    16h
    or    al, 20h
    cmp    al, 'n'
    jz    .loadc
    cmp    al, 'y'
    jnz    .waityn
    call    putchar
    mov    byte [space_msg-0x10000+80], 186
    pop    eax
    push    cs
    push    .cont
    push    eax
    retf
.loadc:
    pop    eax
.cont:
    push    cs
    pop    ds
    mov    si, space_msg-0x10000
    mov    byte [si+80], 0
    _setcursor 15,0
    call    printplain
    _setcursor 15,0
.load:
; \end{diamond}[02.12.2005]
 
; ASK GRAPHICS MODE
        call    set_vmode
 
 
 
; GRAPHICS ACCELERATION
 
        mov     al, [preboot_mtrr-0x10000]
        mov     [es:0x901C],al
 
; VRR_M USE
 
        mov     al,[preboot_vrrm-0x10000]
        mov     [es:0x9030],al
 
 
; MEMORY MODEL
 
;        movzx   eax,byte [es:preboot_memory-0x10000]
;        cmp     eax,0
;        jne     pre_mem
;;;;;;;;;;;;;;;;;;;;;;;;;
; mario79 - memory size ;
;;;;;;;;;;;;;;;;;;;;;;;;;
;           mov ax,0E801h
;;;           xor bx,bx    ; thanks to Alexei for bugfix [18.07.2004]
;           xor cx, cx
;           xor dx, dx
;           int 0x15
;           movzx ebx, dx ;bx
;           movzx eax, cx ;ax
;           shl   ebx,6   ; ïåðåâîä â êèëîáàéòû (x64)
;           add   eax,ebx
;           add eax, 1000h ;440h
;           cmp eax,40000h ; 256?
;           jge mem_256_z
;           cmp eax,20000h ; 128?
;           jge mem_128_z
;           cmp eax,10000h ; 64?
;           jge mem_64_z
;           cmp eax,8000h ; 32?
;           jge mem_32_z
;           jmp mem_16_z
;
;mem_256_z: mov     si,memokz256-0x10000
;           call    printplain
;           mov eax,5
;           jmp pre_mem
;mem_128_z: mov     si,memokz128-0x10000
;           call    printplain
;           mov eax,4
;           jmp pre_mem
;mem_64_z:  mov     si,memokz64-0x10000
;           call    printplain
;           mov eax,3
;           jmp pre_mem
;mem_32_z:  mov     si,memokz32-0x10000
;           call    printplain
;           mov eax,2
;           jmp pre_mem
;mem_16_z:  mov     si,memokz16-0x10000
;           call    printplain
;           mov eax,1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;      pre_mem:
;        push    word 0x0000
;        pop     es
;        mov     [es:0x9030],al
;        push    word 0x1000
;        pop     es
;        mov     si,linef-0x10000
;        call    printplain
 
 
 
 
; DIRECT WRITE TO LFB, PAGING DISABLED
 
;        movzx   eax,byte [es:preboot_lfb-0x10000]
;        mov     eax,1                             ; paging disabled
;        cmp     eax,0
;        jne     pre_lfb
;        mov     si,gr_direct-0x10000
;        call    printplain
;        mov     ebx,'12'
;        call    getkey
;      pre_lfb:
;        push    word 0x0000
;        pop     es
;        mov     [es:0x901E],al
;        mov     ax,0x1000
;        mov     es,ax
;        mov     si,linef-0x10000
;        call    printplain
        mov     [es:0x901E],byte 1
 
 
 
; BOOT DEVICE
 
    mov    al, [preboot_device-0x10000]
        dec     al
        mov     [boot_dev-0x10000],al
 
; READ DISKETTE TO MEMORY
 
;        cmp     [boot_dev-0x10000],0
        jne     no_sys_on_floppy
        mov     si,diskload-0x10000
        call    print
        xor    ax, ax            ; reset drive
        xor    dx, dx
        int     0x13
; now load floppy image to memory
; at first load boot sector and first FAT table
        mov     cx, 0x0001      ; startcyl,startsector
        xor     dx, dx          ; starthead,drive
        mov     al, 1+9         ; no of sectors to read
 
 
 
 
        mov     bx, 0xB000      ; es:bx -> data area
 
 
 
        call    boot_read_floppy
 
 
 
; and copy them to extended memory
 
 
 
 
 
        mov     si, movedesc-0x10000
        mov     [si+8*2+3], bh
        push    es
        push    ds
        pop     es
        mov     cx, 256*10
        mov     ah, 0x87
        int     0x15
        test    ah, ah
 
 
        jz      @f
sayerr_floppy:
        mov     dx, 0x3f2
        mov     al, 0
        out     dx, al
        mov     si, memmovefailed-0x10000
        jmp     sayerr_plain
@@:
        add     dword [si+8*3+2], 512*10
; copy FAT to second copy
        mov     byte [si+8*2+3], 0xB2
        mov     cx, 256*9
        mov     ah, 0x87
        int     0x15
        pop     es
        test    ah, ah
        jnz     sayerr_floppy
        add     dword [si+8*3+2], 512*9
; calculate total number of sectors to read
        mov     ax, 1+9+14      ; boot+FAT+root
        mov     di, 0xB203
.calc_loop:
        test    word [es:di], 0xFFF
        jz      @f
        inc     ax
@@:
        test    word [es:di+1], 0xFFF0
        jz      @f
        inc     ax
@@:
        add     di, 3
        cmp     di, 0xB200+1440*3
        jb      .calc_loop
        push    ax
        mov     bp, 1+9         ; already read sectors
; now read rest
        mov     byte [si+8*2+3], 0xA0
        mov     di, 2-14        ; absolute sector-31
        mov     cx, 0x0002      ; cylinder=0, sector=2
        mov     dx, 0x0100      ; head=1, disk=0
.read_loop:
; determine whether sector must be read
        cmp     di, 2
        jl      .read
        mov     bx, di
        shr     bx, 1
        jnc     .even
        test    word [es:bx+di+0xB200], 0xFFF0
        jmp     @f
.even:
        test    word [es:bx+di+0xB200], 0xFFF
@@:
        jz      .skip
.read:
        mov     bx, 0xA000
        mov     al, 1           ; 1 sector
        call    boot_read_floppy
        inc     bp
        push    es
        push    ds
        pop     es
        pusha
        mov     cx, 256
        mov     ah, 0x87
        int     0x15
        test    ah, ah
        popa
        pop     es
        jnz     sayerr_floppy
.skip:
        add     dword [si+8*3+2], 512
        inc     cx
        cmp     cl, 19
        jnz     @f
        mov     cl, 1
        inc     dh
        cmp     dh, 2
        jnz     @f
        mov     dh, 0
        inc     ch
 
 
 
 
 
 
 
@@:
 
 
 
 
 
 
 
        pop     ax
 
        push    ax
        pusha
; draw percentage
; total sectors: ax
; read sectors: bp
        xchg    ax, bp
        mov     cx, 100
        mul     cx
        div     bp
        aam
        xchg    al, ah
        add     ax, '00'
        mov     si, pros-0x10000
        cmp     [si], ax
        jz      @f
        mov     [si], ax
        call    printplain
@@:
        popa
        inc     di
        cmp     di, 2880-31
        jnz     .read_loop
 
;        mov     cx,0x0001               ; startcyl,startsector
;        xor    dx, dx            ; starthead,drive
;        push    word 80*2               ; read no of sect
;       reads:
;        pusha
;        xor     si,si
;       newread:
;        mov     bx,0xa000               ; es:bx -> data area
;        mov     ax,0x0200+18            ; read, no of sectors to read
;        int     0x13
;        test    ah, ah
;        jz      goodread
;        inc    si
;        cmp     si,10
;        jnz     newread
;        mov     si,badsect-0x10000
;sayerr_plain:
;        call    printplain
;        jmp     $
;       goodread:
;        ; move -> 1mb
;        mov     si,movedesc-0x10000
;        push    es
;        push    ds
;        pop     es
;        mov     cx,256*18
;        mov     ah,0x87
;        int     0x15
;        pop    es
;
;        test    ah,ah                  ; was the move successfull ?
;        je      goodmove
;        mov     dx,0x3f2              ; floppy motor off
;        mov     al,0
;        out     dx,al
;        mov     si,memmovefailed-0x10000
;        jmp    sayerr_plain
;      goodmove:
;
;    add    dword [movedesc-0x10000+0x18+2], 512*18
;        popa
;        inc     dh
;        cmp     dh,2
;        jnz     bb2
;        mov     dh,0
;        inc     ch
;        pusha                        ; print prosentage
;        mov     si,pros-0x10000
;    shr    ch, 2
;    mov    al, '5'
;    test    ch, 1
;    jnz    @f
;    mov    al, '0'
;@@:
;    mov    [si+1], al
;    shr    ch, 1
;    add    ch, '0'
;    mov    [si], ch
;        call    printplain
;        popa
;       bb2:
;        pop     ax
;        dec     ax
;        push    ax
;        jnz     reads
;       readdone:
;        pop     ax
        mov     si,backspace2-0x10000
        call    printplain
        mov     si,okt-0x10000
        call    printplain
       no_sys_on_floppy:
        xor    ax, ax        ; reset drive
        xor    dx, dx
        int     0x13
       mov dx,0x3f2 ; floppy motor off
       mov al,0
       out dx,al
 
    push    es
; PAGE TABLE
 
    push    dword [es:0x9018]
 
        map_mem equ 64                ; amount of memory to map
 
        push    0x6000
        pop    es                    ; es:di = 6000:0
        xor     di,di
        mov     cx,256*map_mem         ; Map (mapmem) M
; initialize as identity mapping
    xor    eax, eax
    call    pagetable_set
 
        
; 4 KB PAGE DIRECTORY
 
    push    0x7F00
    pop    es                ; es:di = 7F00:0
        xor     di, di
        mov     cx, 64 / 4
        mov     eax, 0x60007            ; for 0 M
        call    pagetable_set
        xor     si,si
        mov     di,second_base_address shr 20
        mov     cx,64/2
        rep     movs word [es:di], [es:si]
       
        mov     eax, 0x7F000 +8+16      ; Page directory and enable caches
        mov     cr3, eax
 
; SET GRAPHICS
 
        pop     es
        push    0
    pop    es
        mov     ax,[es:0x9008]        ; vga & 320x200
        mov    bx, ax
        cmp     ax,0x13
        je      setgr
        cmp     ax,0x12
        je      setgr
        mov     ax,0x4f02            ; Vesa
       setgr:
        int     0x10
        test    ah,ah
        mov    si, fatalsel-0x10000
        jnz    sayerr
; set mode 0x12 graphics registers:
        cmp     bx,0x12
        jne     gmok2
 
        mov     al,0x05
        mov     dx,0x03ce
        push    dx
        out     dx,al      ; select GDC mode register
        mov     al,0x02
        inc    dx
        out     dx,al      ; set write mode 2
 
        mov     al,0x02
        mov     dx,0x03c4
        out     dx,al      ; select VGA sequencer map mask register
        mov     al,0x0f
        inc    dx
        out     dx,al      ; set mask for all planes 0-3
 
        mov     al,0x08
        pop    dx
        out     dx,al      ; select GDC bit mask register
                           ; for writes to 0x03cf
 
       gmok2:
        push    ds
        pop    es

Rev 129	Rev 134
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; BOOTCODE.INC ;;	3	;; BOOTCODE.INC ;;
4	;; ;;	4	;; ;;
5	;; KolibriOS 16-bit loader, ;;	5	;; KolibriOS 16-bit loader, ;;
6	;; based on bootcode for MenuetOS ;;	6	;; based on bootcode for MenuetOS ;;
7	;; ;;	7	;; ;;
8	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	8	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9		9
10		10
11		11
12	;==========================================================================	12	;==========================================================================
13	;	13	;
14	; 16 BIT FUNCTIONS	14	; 16 BIT FUNCTIONS
15	;	15	;
16	;==========================================================================	16	;==========================================================================
17		17
18	include 'drawtext.inc'	18	include 'drawtext.inc'
19		19
20	putchar:	20	putchar:
21	; in: al=character	21	; in: al=character
22	mov ah, 0Eh	22	mov ah, 0Eh
23	mov bh, 0	23	mov bh, 0
24	int 10h	24	int 10h
25	ret	25	ret
26		26
27	print:	27	print:
28	; in: si->string	28	; in: si->string
29	mov al, 186	29	mov al, 186
30	call putchar	30	call putchar
31	mov al, ' '	31	mov al, ' '
32	call putchar	32	call putchar
33		33
34	printplain:	34	printplain:
35	; in: si->string	35	; in: si->string
36	pusha	36	pusha
37	lodsb	37	lodsb
38	@@:	38	@@:
39	call putchar	39	call putchar
40	lodsb	40	lodsb
41	cmp al, 0	41	cmp al, 0
42	jnz @b	42	jnz @b
43	popa	43	popa
44	ret	44	ret
45		45
46	; Now int 16 is used for keyboard support.	46	; Now int 16 is used for keyboard support.
47	; This is shorter, simpler and more reliable.	47	; This is shorter, simpler and more reliable.
48	if 0	48	if 0
49	getkey: push ecx	49	getkey: push ecx
50	push edx	50	push edx
51	add ebx,0x0101	51	add ebx,0x0101
52	xor eax,eax	52	xor eax,eax
53		53
54	gk1:	54	gk1:
55	in al,0x60	55	in al,0x60
56	mov cl,al	56	mov cl,al
57	gk0:	57	gk0:
58	in al,0x60	58	in al,0x60
59	cmp al,cl	59	cmp al,cl
60	je gk0	60	je gk0
61	cmp ax,11	61	cmp ax,11
62	jg gk0	62	jg gk0
63	gk0_1:	63	gk0_1:
64	mov cl,al	64	mov cl,al
65		65
66	; add al,47	66	; add al,47
67	; mov [ds:keyinbs-0x10000],al	67	; mov [ds:keyinbs-0x10000],al
68	; mov si,keyinbs-0x10000	68	; mov si,keyinbs-0x10000
69	; call printplain	69	; call printplain
70		70
71	gk12:	71	gk12:
72	in al,0x60	72	in al,0x60
73	cmp al,cl	73	cmp al,cl
74	je gk12	74	je gk12
75	cmp ax,240	75	cmp ax,240
76	jne gk13	76	jne gk13
77	mov al,cl	77	mov al,cl
78	jmp gk14	78	jmp gk14
79	gk13:	79	gk13:
80	add cl,128	80	add cl,128
81	cmp al,cl	81	cmp al,cl
82	jne gk1	82	jne gk1
83	sub al,128	83	sub al,128
84	gk14:	84	gk14:
85		85
86	movzx edx,bl	86	movzx edx,bl
87	cmp eax,edx	87	cmp eax,edx
88	jb gk1	88	jb gk1
89	movzx edx,bh	89	movzx edx,bh
90	cmp eax,edx	90	cmp eax,edx
91	jg gk1	91	jg gk1
92	test ebx,0x010000	92	test ebx,0x010000
93	jnz gk3	93	jnz gk3
94	mov cx,0x1000	94	mov cx,0x1000
95	mov dx,cx	95	mov dx,cx
96	add eax,47	96	add eax,47
97	mov cx,ax	97	mov cx,ax
98	cmp cx,58	98	cmp cx,58
99	jb gk_nozero	99	jb gk_nozero
100	sub cx,10	100	sub cx,10
101	gk_nozero:	101	gk_nozero:
102	mov [ds:keyin-0x10000],cl	102	mov [ds:keyin-0x10000],cl
103	mov si,keyin-0x10000	103	mov si,keyin-0x10000
104	call printplain	104	call printplain
105	gk3:	105	gk3:
106	sub eax,48	106	sub eax,48
107	pop edx	107	pop edx
108	pop ecx	108	pop ecx
109	ret	109	ret
110	end if	110	end if
111		111
112	getkey:	112	getkey:
113	; get number in range [bl,bh] (bl,bh in ['0'..'9'])	113	; get number in range [bl,bh] (bl,bh in ['0'..'9'])
114	; in: bx=range	114	; in: bx=range
115	; out: ax=digit (1..9, 10 for 0)	115	; out: ax=digit (1..9, 10 for 0)
116	mov ah, 0	116	mov ah, 0
117	int 16h	117	int 16h
118	cmp al, bl	118	cmp al, bl
119	jb getkey	119	jb getkey
120	cmp al, bh	120	cmp al, bh
121	ja getkey	121	ja getkey
122	push ax	122	push ax
123	call putchar	123	call putchar
124	pop ax	124	pop ax
125	and ax, 0Fh	125	and ax, 0Fh
126	jnz @f	126	jnz @f
127	mov al, 10	127	mov al, 10
128	@@:	128	@@:
129	ret	129	ret
130		130
131	setcursor:	131	setcursor:
132	; in: dl=column, dh=row	132	; in: dl=column, dh=row
133	mov ah, 2	133	mov ah, 2
134	mov bh, 0	134	mov bh, 0
135	int 10h	135	int 10h
136	ret	136	ret
137		137
138	macro _setcursor row,column	138	macro _setcursor row,column
139	{	139	{
140	mov dx, row*256 + column	140	mov dx, row*256 + column
141	call setcursor	141	call setcursor
142	}	142	}
143		143
144	pagetable_set:	144	pagetable_set:
145	;eax - physical address	145	;eax - physical address
146	;es:di - page table	146	;es:di - page table
147	;ecx - number of pages to map	147	;ecx - number of pages to map
148	or al, 7	148	or al, 7
149	@@:	149	@@:
150	stosd	150	stosd
151	add eax, 1000h	151	add eax, 1000h
152	loop @b	152	loop @b
153	ret	153	ret
-		154
-		155	boot_read_floppy:
-		156	push si
-		157	xor si, si
-		158	mov ah, 2 ; read
-		159	@@:
-		160	push ax
-		161	int 0x13
-		162	pop ax
-		163	jnc @f
-		164	inc si
-		165	cmp si, 10
-		166	jb @b
-		167	mov si, badsect-0x10000
-		168	sayerr_plain:
-		169	call printplain
-		170	jmp $
-		171	@@:
-		172	pop si
-		173	ret
154		174
155	org $+0x10000	175	org $+0x10000
156		176
157	; table for move to extended memory (int 15h, ah=87h)	177	; table for move to extended memory (int 15h, ah=87h)
158	movedesc:	178	movedesc:
159	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	179	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
160	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	180	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
161		181
162	db 0xff,0xff,0x0,0xa0,0x00,0x93,0x0,0x0	182	db 0xff,0xff,0x0,0xa0,0x00,0x93,0x0,0x0
163	db 0xff,0xff,0x0,0x00,0x10,0x93,0x0,0x0	183	db 0xff,0xff,0x0,0x00,0x10,0x93,0x0,0x0
164		184
165	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	185	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
166	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	186	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
167	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	187	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
168	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	188	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
169	org $-0x10000	189	org $-0x10000
170	include 'bootvesa.inc'	190	include 'bootvesa.inc'
171		191
172	;=========================================================================	192	;=========================================================================
173	;	193	;
174	; 16 BIT CODE	194	; 16 BIT CODE
175	;	195	;
176	;=========================================================================	196	;=========================================================================
177		197
178		198
179	start_of_code:	199	start_of_code:
180	cld	200	cld
181	; \begin{diamond}[02.12.2005]	201	; \begin{diamond}[02.12.2005]
182	cmp ax, 'KL'	202	cmp ax, 'KL'
183	jnz @f	203	jnz @f
184	mov word [cs:cfgmanager.loader_block-0x10000], si	204	mov word [cs:cfgmanager.loader_block-0x10000], si
185	mov word [cs:cfgmanager.loader_block+2-0x10000], ds	205	mov word [cs:cfgmanager.loader_block+2-0x10000], ds
186	@@:	206	@@:
187	; \end{diamond}[02.12.2005]	207	; \end{diamond}[02.12.2005]
188		208
189	; set up stack	209	; set up stack
190	mov ax, 3000h	210	mov ax, 3000h
191	mov ss, ax	211	mov ss, ax
192	mov sp, 0EC00h	212	mov sp, 0EC00h
193	; set up segment registers	213	; set up segment registers
194	push cs	214	push cs
195	pop ds	215	pop ds
196	push cs	216	push cs
197	pop es	217	pop es
198		218
199	; set videomode	219	; set videomode
200	mov ax, 3	220	mov ax, 3
201	int 0x10	221	int 0x10
202		222
203	if lang eq ru	223	if lang eq ru
204	; Load & set russian VGA font (RU.INC)	224	; Load & set russian VGA font (RU.INC)
205	mov bp,RU_FNT1-10000h ; RU_FNT1 - First part	225	mov bp,RU_FNT1-10000h ; RU_FNT1 - First part
206	mov bx,1000h ; 768 bytes	226	mov bx,1000h ; 768 bytes
207	mov cx,30h ; 48 symbols	227	mov cx,30h ; 48 symbols
208	mov dx,80h ; 128 - position of first symbol	228	mov dx,80h ; 128 - position of first symbol
209	mov ax,1100h	229	mov ax,1100h
210	int 10h	230	int 10h
211		231
212	mov bp,RU_FNT2-10000h ; RU_FNT2 -Second part	232	mov bp,RU_FNT2-10000h ; RU_FNT2 -Second part
213	mov bx,1000h ; 512 bytes	233	mov bx,1000h ; 512 bytes
214	mov cx,20h ; 32 symbols	234	mov cx,20h ; 32 symbols
215	mov dx,0E0h ; 224 - position of first symbol	235	mov dx,0E0h ; 224 - position of first symbol
216	mov ax,1100h	236	mov ax,1100h
217	int 10h	237	int 10h
218	; End set VGA russian font	238	; End set VGA russian font
219	end if	239	end if
220		240
221	; draw frames	241	; draw frames
222	push 0xb800	242	push 0xb800
223	pop es	243	pop es
224	xor di, di	244	xor di, di
225	; mov si,d80x25-0x10000	245	; mov si,d80x25-0x10000
226	; mov cx,80*25	246	; mov cx,80*25
227	; mov ah,1*16+15	247	; mov ah,1*16+15
228	; dfl1:	248	; dfl1:
229	; lodsb	249	; lodsb
230	; stosw	250	; stosw
231	; loop dfl1	251	; loop dfl1
232	mov ah, 1*16+15	252	mov ah, 1*16+15
233	; draw top	253	; draw top
234	mov si, d80x25_top - 0x10000	254	mov si, d80x25_top - 0x10000
235	mov cx, d80x25_top_num * 80	255	mov cx, d80x25_top_num * 80
236	@@:	256	@@:
237	lodsb	257	lodsb
238	stosw	258	stosw
239	loop @b	259	loop @b
240	; draw spaces	260	; draw spaces
241	mov si, space_msg - 0x10000	261	mov si, space_msg - 0x10000
242	mov cx, 25 - d80x25_top_num - d80x25_bottom_num	262	mov cx, 25 - d80x25_top_num - d80x25_bottom_num
243	dfl1:	263	dfl1:
244	push cx	264	push cx
245	push si	265	push si
246	mov cx, 80	266	mov cx, 80
247	@@:	267	@@:
248	lodsb	268	lodsb
249	stosw	269	stosw
250	loop @b	270	loop @b
251	pop si	271	pop si
252	pop cx	272	pop cx
253	loop dfl1	273	loop dfl1
254	; draw bottom	274	; draw bottom
255	mov si, d80x25_bottom - 0x10000	275	mov si, d80x25_bottom - 0x10000
256	mov cx, d80x25_bottom_num * 80	276	mov cx, d80x25_bottom_num * 80
257	@@:	277	@@:
258	lodsb	278	lodsb
259	stosw	279	stosw
260	loop @b	280	loop @b
261		281
262	mov byte [space_msg-0x10000+80], 0 ; now space_msg is null terminated	282	mov byte [space_msg-0x10000+80], 0 ; now space_msg is null terminated
263		283
264	_setcursor d80x25_top_num,0	284	_setcursor d80x25_top_num,0
265		285
266		286
267	; TEST FOR 386+	287	; TEST FOR 386+
268		288
269	mov bx, 0x4000	289	mov bx, 0x4000
270	pushf	290	pushf
271	pop ax	291	pop ax
272	mov dx,ax	292	mov dx,ax
273	xor ax,bx	293	xor ax,bx
274	push ax	294	push ax
275	popf	295	popf
276	pushf	296	pushf
277	pop ax	297	pop ax
278	and ax,bx	298	and ax,bx
279	and dx,bx	299	and dx,bx
280	cmp ax,dx	300	cmp ax,dx
281	jnz cpugood	301	jnz cpugood
282	mov si,not386-0x10000	302	mov si,not386-0x10000
283	sayerr:	303	sayerr:
284	call print	304	call print
285	jmp $	305	jmp $
286	cpugood:	306	cpugood:
287		307
288	; set up esp	308	; set up esp
289	movzx esp, sp	309	movzx esp, sp
290		310
291	; FLUSH 8042 KEYBOARD CONTROLLER	311	; FLUSH 8042 KEYBOARD CONTROLLER
292		312
293	;// mike.dld [	313	;// mike.dld [
294	; mov al,0xED	314	; mov al,0xED
295	; out 0x60,al	315	; out 0x60,al
296	; or cx,-1	316	; or cx,-1
297	; @@:	317	; @@:
298	; in al,0x64	318	; in al,0x64
299	; test al,2	319	; test al,2
300	; jz @f	320	; jz @f
301	; loop @b	321	; loop @b
302	; @@:	322	; @@:
303	; mov al,0	323	; mov al,0
304	; out 0x60,al	324	; out 0x60,al
305	; or cx,-1	325	; or cx,-1
306	; @@:	326	; @@:
307	; in al,0x64	327	; in al,0x64
308	; test al,2	328	; test al,2
309	; jz @f	329	; jz @f
310	; loop @b	330	; loop @b
311	; @@:	331	; @@:
312	;// mike.dld ]	332	;// mike.dld ]
313		333
314	; mov ecx,10000	334	; mov ecx,10000
315	; fl1:	335	; fl1:
316	; in al,0x64	336	; in al,0x64
317	; loop fl1	337	; loop fl1
318	; test al,1	338	; test al,1
319	; jz fl2	339	; jz fl2
320	; in al,0x60	340	; in al,0x60
321	; jmp fl1	341	; jmp fl1
322	; fl2:	342	; fl2:
323		343
324	;****************************************************************	344	;****************************************************************
325	; The function is modified Mario79	345	; The function is modified Mario79
326	;*****************************************************************	346	;*****************************************************************
327	; wait_kbd: ; variant 1	347	; wait_kbd: ; variant 1
328	; mov cx,2500h ;çàäåðæêà ïîðÿäêà 10 ìñåê	348	; mov cx,2500h ;çàäåðæêà ïîðÿäêà 10 ìñåê
329	; test_kbd:	349	; test_kbd:
330	; in al,64h ;÷èòàåì ñîñòîÿíèå êëàâèàòóðû	350	; in al,64h ;÷èòàåì ñîñòîÿíèå êëàâèàòóðû
331	; test al,2 ;ïðîâåðêà áèòà ãîòîâíîñòè	351	; test al,2 ;ïðîâåðêà áèòà ãîòîâíîñòè
332	; loopnz test_kbd	352	; loopnz test_kbd
333		353
334	mov al,0xf6 ; Ñáðîñ êëàâèàòóðû, ðàçðåøèòü ñêàíèðîâàíèå	354	mov al,0xf6 ; Ñáðîñ êëàâèàòóðû, ðàçðåøèòü ñêàíèðîâàíèå
335	out 0x60,al	355	out 0x60,al
336	xor cx,cx	356	xor cx,cx
337	wait_loop: ; variant 2	357	wait_loop: ; variant 2
338	; reading state of port of 8042 controller	358	; reading state of port of 8042 controller
339	in al,64h	359	in al,64h
340	and al,00000010b ; ready flag	360	and al,00000010b ; ready flag
341	; wait until 8042 controller is ready	361	; wait until 8042 controller is ready
342	loopnz wait_loop	362	loopnz wait_loop
343		363
344	; --------------- APM ---------------------	364	; --------------- APM ---------------------
345	push 0	365	push 0
346	pop es	366	pop es
347	mov word [es : 0x9044], 0 ; ver = 0.0 (APM not found)	367	mov word [es : 0x9044], 0 ; ver = 0.0 (APM not found)
348	mov ax, 0x5300	368	mov ax, 0x5300
349	xor bx, bx	369	xor bx, bx
350	int 0x15	370	int 0x15
351	jc apm_end ; APM not found	371	jc apm_end ; APM not found
352	test cx, 2	372	test cx, 2
353	jz apm_end ; APM 32-bit protected-mode interface not supported	373	jz apm_end ; APM 32-bit protected-mode interface not supported
354	mov [es : 0x9044], ax ; Save APM Version	374	mov [es : 0x9044], ax ; Save APM Version
355	mov [es : 0x9046], cx ; Save APM flags	375	mov [es : 0x9046], cx ; Save APM flags
356		376
357	; Write APM ver ----	377	; Write APM ver ----
358	and ax, 0xf0f	378	and ax, 0xf0f
359	add ax, '00'	379	add ax, '00'
360	mov si, msg_apm - 0x10000	380	mov si, msg_apm - 0x10000
361	mov [si + 5], ah	381	mov [si + 5], ah
362	mov [si + 7], al	382	mov [si + 7], al
363	_setcursor 0, 3	383	_setcursor 0, 3
364	call printplain	384	call printplain
365	_setcursor d80x25_top_num,0	385	_setcursor d80x25_top_num,0
366	; ------------------	386	; ------------------
367		387
368	mov ax, 0x5304 ; Disconnect interface	388	mov ax, 0x5304 ; Disconnect interface
369	xor bx, bx	389	xor bx, bx
370	int 0x15	390	int 0x15
371	mov ax, 0x5303 ; Connect 32 bit mode interface	391	mov ax, 0x5303 ; Connect 32 bit mode interface
372	xor bx, bx	392	xor bx, bx
373	int 0x15	393	int 0x15
374	; init selectors	394	; init selectors
375	movzx eax, ax ; real-mode segment base address of protected-mode 32-bit code segment	395	movzx eax, ax ; real-mode segment base address of protected-mode 32-bit code segment
376	shl eax, 4	396	shl eax, 4
377	mov [apm_code_32 - 0x10000 + 2], ax	397	mov [apm_code_32 - 0x10000 + 2], ax
378	shr eax, 16	398	shr eax, 16
379	mov [apm_code_32 - 0x10000 + 4], al	399	mov [apm_code_32 - 0x10000 + 4], al
380	movzx ecx, cx ; real-mode segment base address of protected-mode 16-bit code segment	400	movzx ecx, cx ; real-mode segment base address of protected-mode 16-bit code segment
381	shl ecx, 4	401	shl ecx, 4
382	mov [apm_code_16 - 0x10000 + 2], cx	402	mov [apm_code_16 - 0x10000 + 2], cx
383	shr ecx, 16	403	shr ecx, 16
384	mov [apm_code_16 - 0x10000 + 4], cl	404	mov [apm_code_16 - 0x10000 + 4], cl
385	movzx edx, dx ; real-mode segment base address of protected-mode 16-bit data segment	405	movzx edx, dx ; real-mode segment base address of protected-mode 16-bit data segment
386	shl edx, 4	406	shl edx, 4
387	mov [apm_data_16 - 0x10000 + 2], dx	407	mov [apm_data_16 - 0x10000 + 2], dx
388	shr edx, 16	408	shr edx, 16
389	mov [apm_data_16 - 0x10000 + 4], dl	409	mov [apm_data_16 - 0x10000 + 4], dl
390	mov [es : 0x9040], ebx ; offset of APM entry point	410	mov [es : 0x9040], ebx ; offset of APM entry point
391	apm_end:	411	apm_end:
392	; -----------------------------------------	412	; -----------------------------------------
393		413
394	; DISPLAY VESA INFORMATION	414	; DISPLAY VESA INFORMATION
395		415
396	call print_vesa_info	416	call print_vesa_info
397		417
398	; \begin{diamond}[30.11.2005]	418	; \begin{diamond}[30.11.2005]
399	cfgmanager:	419	cfgmanager:
400	; settings:	420	; settings:
401	; a) preboot_graph = graphical mode	421	; a) preboot_graph = graphical mode
402	; preboot_gprobe = probe this mode?	422	; preboot_gprobe = probe this mode?
403	; b) preboot_mtrr = use hardware acceleration?	423	; b) preboot_mtrr = use hardware acceleration?
404	; c) preboot_vrrm = use VRR?	424	; c) preboot_vrrm = use VRR?
405	; d) preboot_device = from what boot?	425	; d) preboot_device = from what boot?
406	mov di, preboot_graph-0x10000	426	mov di, preboot_graph-0x10000
407	; check bootloader block	427	; check bootloader block
408	cmp [.loader_block-0x10000], 0	428	cmp [.loader_block-0x10000], 0
409	jz .noloaderblock	429	jz .noloaderblock
410	les bx, [.loader_block-0x10000]	430	les bx, [.loader_block-0x10000]
411	cmp byte [es:bx], 1	431	cmp byte [es:bx], 1
412	mov si, loader_block_error-0x10000	432	mov si, loader_block_error-0x10000
413	jnz sayerr	433	jnz sayerr
414	test byte [es:bx+1], 1	434	test byte [es:bx+1], 1
415	jz @f	435	jz @f
416	; image in memory present	436	; image in memory present
417	cmp [di+preboot_device-preboot_graph], 0	437	cmp [di+preboot_device-preboot_graph], 0
418	jnz @f	438	jnz @f
419	mov [di+preboot_device-preboot_graph], 3	439	mov [di+preboot_device-preboot_graph], 3
420	@@:	440	@@:
421	.noloaderblock:	441	.noloaderblock:
422	; determine default settings	442	; determine default settings
423	mov [.bSettingsChanged-0x10000], 0	443	mov [.bSettingsChanged-0x10000], 0
424	call calc_vmodes_table	444	call calc_vmodes_table
425	.preboot_gr_end:	445	.preboot_gr_end:
426	cmp [di+preboot_mtrr-preboot_graph], 1	446	cmp [di+preboot_mtrr-preboot_graph], 1
427	adc [di+preboot_mtrr-preboot_graph], 0	447	adc [di+preboot_mtrr-preboot_graph], 0
428	cmp [di+preboot_vrrm-preboot_graph], 1	448	cmp [di+preboot_vrrm-preboot_graph], 1
429	adc [di+preboot_vrrm-preboot_graph], 0	449	adc [di+preboot_vrrm-preboot_graph], 0
430	cmp [di+preboot_device-preboot_graph], 1	450	cmp [di+preboot_device-preboot_graph], 1
431	adc [di+preboot_device-preboot_graph], 0	451	adc [di+preboot_device-preboot_graph], 0
432	; notify user	452	; notify user
433	mov si, linef-0x10000	453	mov si, linef-0x10000
434	call print	454	call print
435	mov si, start_msg-0x10000	455	mov si, start_msg-0x10000
436	call print	456	call print
437	mov si, time_msg-0x10000	457	mov si, time_msg-0x10000
438	call print	458	call print
439	; get start time	459	; get start time
440	call .gettime	460	call .gettime
441	mov [.starttime-0x10000], eax	461	mov [.starttime-0x10000], eax
442	mov word [.timer-0x10000], .newtimer	462	mov word [.timer-0x10000], .newtimer
443	mov word [.timer-0x10000+2], cs	463	mov word [.timer-0x10000+2], cs
444	.printcfg:	464	.printcfg:
445	_setcursor 9,0	465	_setcursor 9,0
446	mov si, current_cfg_msg-0x10000	466	mov si, current_cfg_msg-0x10000
447	call print	467	call print
448	mov si, curvideo_msg-0x10000	468	mov si, curvideo_msg-0x10000
449	call print	469	call print
450	call draw_current_vmode	470	call draw_current_vmode
451	mov si, linef-0x10000	471	mov si, linef-0x10000
452	call printplain	472	call printplain
453	mov si, mtrr_msg-0x10000	473	mov si, mtrr_msg-0x10000
454	cmp [preboot_mtrr-0x10000], 1	474	cmp [preboot_mtrr-0x10000], 1
455	call .say_on_off	475	call .say_on_off
456	mov si, vrrm_msg-0x10000	476	mov si, vrrm_msg-0x10000
457	cmp [preboot_vrrm-0x10000], 1	477	cmp [preboot_vrrm-0x10000], 1
458	call .say_on_off	478	call .say_on_off
459	mov si, preboot_device_msg-0x10000	479	mov si, preboot_device_msg-0x10000
460	call print	480	call print
461	mov al, [preboot_device-0x10000]	481	mov al, [preboot_device-0x10000]
462	and eax, 3	482	and eax, 3
463	mov si, [preboot_device_msgs-0x10000+eax*2]	483	mov si, [preboot_device_msgs-0x10000+eax*2]
464	call printplain	484	call printplain
465	.wait:	485	.wait:
466	_setcursor 25,0 ; out of screen	486	_setcursor 25,0 ; out of screen
467	; set timer interrupt handler	487	; set timer interrupt handler
468	cli	488	cli
469	push 0	489	push 0
470	pop es	490	pop es
471	mov eax, [es:8*4]	491	mov eax, [es:8*4]
472	mov [.oldtimer-0x10000], eax	492	mov [.oldtimer-0x10000], eax
473	mov eax, [.timer-0x10000]	493	mov eax, [.timer-0x10000]
474	mov [es:8*4], eax	494	mov [es:8*4], eax
475	sti	495	sti
476	; wait for keypressed	496	; wait for keypressed
477	mov ah, 0	497	mov ah, 0
478	int 16h	498	int 16h
479	push ax	499	push ax
480	; restore timer interrupt	500	; restore timer interrupt

Subversion Repositories Kolibri OS

(root)/kernel/branches/gfx_kernel/boot/bootcode.inc @ 384 – Rev 129 → 134