WebSVN – Kolibri OS – Diff – /kernel/trunk/boot/bootcode.inc


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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/boot/bootcode.inc – Rev 89 → 103