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:
    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, 320, 200                    ; 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
;        mov     eax,7
;       pt2:
;        cmp     cx,256*(map_mem-8)     ; 8 M map to LFB
;        jnz     pt3
;        pop     eax
;        add     eax,7
;       pt3:
;        cmp     cx,256*(map_mem-12)    ; 12 M back to linear = physical
;        jnz     pt4
;        mov     eax,12*0x100000 + 7
;       pt4:
;        stosd
;        add     eax,4096
;        loop    pt2
; initialize as identity mapping
    xor    eax, eax
    call    pagetable_set
; 8M..12M map to LFB
    pop    eax
;    mov    cx, 256*4
    mov    ch, 4
    mov    di, 2000h
    call    pagetable_set
 
    push    0x7100
    pop    es
        xor     di,di
        mov     eax,8*0x100000
        mov     cx,256*4
        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
        mov     dword [es:0x800],0x71007   ;map region 0x80000000-0x803FFFFF to 0x800000-0xCFFFFF
        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 76	Rev 82
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	or al, 7	143	or al, 7
144	@@:	144	@@:
145	stosd	145	stosd
146	add eax, 1000h	146	add eax, 1000h
147	loop @b	147	loop @b
148	ret	148	ret
149		149
150	; 16-bit data	150	; 16-bit data
151	; videomodes table	151	; videomodes table
-		152	org $+0x10000
152	gr_table:	153	gr_table:
153	dw 0x112+0100000000000000b , 640 , 480 ; 1	154	dw 0x112+0100000000000000b , 640 , 480 ; 1
154	dw 0x115+0100000000000000b , 800 , 600 ; 2	155	dw 0x115+0100000000000000b , 800 , 600 ; 2
155	dw 0x118+0100000000000000b , 1024 , 768 ; 3	156	dw 0x118+0100000000000000b , 1024 , 768 ; 3
156	dw 0x11B+0100000000000000b , 1280 , 1024 ; 4	157	dw 0x11B+0100000000000000b , 1280 , 1024 ; 4
157	dw 0x112 , 640 , 480 ; 5	158	dw 0x112 , 640 , 480 ; 5
158	dw 0x115 , 800 , 600 ; 6	159	dw 0x115 , 800 , 600 ; 6
159	dw 0x118 , 1024 , 768 ; 7	160	dw 0x118 , 1024 , 768 ; 7
160	dw 0x11B , 1280 ,1024 ; 8	161	dw 0x11B , 1280 ,1024 ; 8
161	dw 0x13, 320, 200 ; 9	162	dw 0x13, 320, 200 ; 9
162	dw 0x12, 640, 480 ; 0	163	dw 0x12, 640, 480 ; 0
163		164
164	; table for move to extended memory (int 15h, ah=87h)	165	; table for move to extended memory (int 15h, ah=87h)
165	movedesc:	166	movedesc:
166	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	167	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
167	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	168	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
168		169
169	db 0xff,0xff,0x0,0xa0,0x00,0x93,0x0,0x0	170	db 0xff,0xff,0x0,0xa0,0x00,0x93,0x0,0x0
170	db 0xff,0xff,0x0,0x00,0x10,0x93,0x0,0x0	171	db 0xff,0xff,0x0,0x00,0x10,0x93,0x0,0x0
171		172
172	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	173	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
173	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	174	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
174	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	175	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
175	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0	176	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
-		177	org $-0x10000
176		178
177	;=========================================================================	179	;=========================================================================
178	;	180	;
179	; 16 BIT CODE	181	; 16 BIT CODE
180	;	182	;
181	;=========================================================================	183	;=========================================================================
182		184
183		185
184	start_of_code:	186	start_of_code:
185	cld	187	cld
186	; \begin{diamond}[02.12.2005]	188	; \begin{diamond}[02.12.2005]
187	cmp ax, 'KL'	189	cmp ax, 'KL'
188	jnz @f	190	jnz @f
189	mov word [cs:cfgmanager.loader_block-0x10000], si	191	mov word [cs:cfgmanager.loader_block-0x10000], si
190	mov word [cs:cfgmanager.loader_block+2-0x10000], ds	192	mov word [cs:cfgmanager.loader_block+2-0x10000], ds
191	@@:	193	@@:
192	; \end{diamond}[02.12.2005]	194	; \end{diamond}[02.12.2005]
193		195
194	; set up stack	196	; set up stack
195	mov ax, 3000h	197	mov ax, 3000h
196	mov ss, ax	198	mov ss, ax
197	mov sp, 0EC00h	199	mov sp, 0EC00h
198	; set up segment registers	200	; set up segment registers
199	push cs	201	push cs
200	pop ds	202	pop ds
201	push cs	203	push cs
202	pop es	204	pop es
203		205
204	; set videomode	206	; set videomode
205	mov ax, 3	207	mov ax, 3
206	int 0x10	208	int 0x10
207		209
208	; Load & set russian VGA font (RU.INC)	210	; Load & set russian VGA font (RU.INC)
209	mov bp,RU_FNT1-10000h ; RU_FNT1 - First part	211	mov bp,RU_FNT1-10000h ; RU_FNT1 - First part
210	mov bx,1000h ; 768 bytes	212	mov bx,1000h ; 768 bytes
211	mov cx,30h ; 48 symbols	213	mov cx,30h ; 48 symbols
212	mov dx,80h ; 128 - position of first symbol	214	mov dx,80h ; 128 - position of first symbol
213	mov ax,1100h	215	mov ax,1100h
214	int 10h	216	int 10h
215		217
216	mov bp,RU_FNT2-10000h ; RU_FNT2 -Second part	218	mov bp,RU_FNT2-10000h ; RU_FNT2 -Second part
217	mov bx,1000h ; 512 bytes	219	mov bx,1000h ; 512 bytes
218	mov cx,20h ; 32 symbols	220	mov cx,20h ; 32 symbols
219	mov dx,0E0h ; 224 - position of first symbol	221	mov dx,0E0h ; 224 - position of first symbol
220	mov ax,1100h	222	mov ax,1100h
221	int 10h	223	int 10h
222	; End set VGA russian font	224	; End set VGA russian font
223		225
224	; draw frames	226	; draw frames
225	push 0xb800	227	push 0xb800
226	pop es	228	pop es
227	xor di, di	229	xor di, di
228	; mov si,d80x25-0x10000	230	; mov si,d80x25-0x10000
229	; mov cx,80*25	231	; mov cx,80*25
230	; mov ah,1*16+15	232	; mov ah,1*16+15
231	; dfl1:	233	; dfl1:
232	; lodsb	234	; lodsb
233	; stosw	235	; stosw
234	; loop dfl1	236	; loop dfl1
235	mov ah, 1*16+15	237	mov ah, 1*16+15
236	; draw top	238	; draw top
237	mov si, d80x25_top - 0x10000	239	mov si, d80x25_top - 0x10000
238	mov cx, d80x25_top_num * 80	240	mov cx, d80x25_top_num * 80
239	@@:	241	@@:
240	lodsb	242	lodsb
241	stosw	243	stosw
242	loop @b	244	loop @b
243	; draw spaces	245	; draw spaces
244	mov si, space_msg - 0x10000	246	mov si, space_msg - 0x10000
245	mov cx, 25 - d80x25_top_num - d80x25_bottom_num	247	mov cx, 25 - d80x25_top_num - d80x25_bottom_num
246	dfl1:	248	dfl1:
247	push cx	249	push cx
248	push si	250	push si
249	mov cx, 80	251	mov cx, 80
250	@@:	252	@@:
251	lodsb	253	lodsb
252	stosw	254	stosw
253	loop @b	255	loop @b
254	pop si	256	pop si
255	pop cx	257	pop cx
256	loop dfl1	258	loop dfl1
257	; draw bottom	259	; draw bottom
258	mov si, d80x25_bottom - 0x10000	260	mov si, d80x25_bottom - 0x10000
259	mov cx, d80x25_bottom_num * 80	261	mov cx, d80x25_bottom_num * 80
260	@@:	262	@@:
261	lodsb	263	lodsb
262	stosw	264	stosw
263	loop @b	265	loop @b
264		266
265	mov byte [space_msg-0x10000+80], 0 ; now space_msg is null terminated	267	mov byte [space_msg-0x10000+80], 0 ; now space_msg is null terminated
266		268
267	_setcursor d80x25_top_num,0	269	_setcursor d80x25_top_num,0
268		270
269		271
270	; TEST FOR 386+	272	; TEST FOR 386+
271		273
272	mov bx, 0x4000	274	mov bx, 0x4000
273	pushf	275	pushf
274	pop ax	276	pop ax
275	mov dx,ax	277	mov dx,ax
276	xor ax,bx	278	xor ax,bx
277	push ax	279	push ax
278	popf	280	popf
279	pushf	281	pushf
280	pop ax	282	pop ax
281	and ax,bx	283	and ax,bx
282	and dx,bx	284	and dx,bx
283	cmp ax,dx	285	cmp ax,dx
284	jnz cpugood	286	jnz cpugood
285	mov si,not386-0x10000	287	mov si,not386-0x10000
286	sayerr:	288	sayerr:
287	call print	289	call print
288	jmp $	290	jmp $
289	cpugood:	291	cpugood:
290		292
291	; set up esp	293	; set up esp
292	movzx esp, sp	294	movzx esp, sp
293		295
294	; FLUSH 8042 KEYBOARD CONTROLLER	296	; FLUSH 8042 KEYBOARD CONTROLLER
295		297
296	;// mike.dld [	298	;// mike.dld [
297	; mov al,0xED	299	; mov al,0xED
298	; out 0x60,al	300	; out 0x60,al
299	; or cx,-1	301	; or cx,-1
300	; @@:	302	; @@:
301	; in al,0x64	303	; in al,0x64
302	; test al,2	304	; test al,2
303	; jz @f	305	; jz @f
304	; loop @b	306	; loop @b
305	; @@:	307	; @@:
306	; mov al,0	308	; mov al,0
307	; out 0x60,al	309	; out 0x60,al
308	; or cx,-1	310	; or cx,-1
309	; @@:	311	; @@:
310	; in al,0x64	312	; in al,0x64
311	; test al,2	313	; test al,2
312	; jz @f	314	; jz @f
313	; loop @b	315	; loop @b
314	; @@:	316	; @@:
315	;// mike.dld ]	317	;// mike.dld ]
316		318
317	; mov ecx,10000	319	; mov ecx,10000
318	; fl1:	320	; fl1:
319	; in al,0x64	321	; in al,0x64
320	; loop fl1	322	; loop fl1
321	; test al,1	323	; test al,1
322	; jz fl2	324	; jz fl2
323	; in al,0x60	325	; in al,0x60
324	; jmp fl1	326	; jmp fl1
325	; fl2:	327	; fl2:
326		328
327	;****************************************************************	329	;****************************************************************
328	; The function is modified Mario79	330	; The function is modified Mario79
329	;*****************************************************************	331	;*****************************************************************
330	; wait_kbd: ; variant 1	332	; wait_kbd: ; variant 1
331	; mov cx,2500h ;çàäåðæêà ïîðÿäêà 10 ìñåê	333	; mov cx,2500h ;çàäåðæêà ïîðÿäêà 10 ìñåê
332	; test_kbd:	334	; test_kbd:
333	; in al,64h ;÷èòàåì ñîñòîÿíèå êëàâèàòóðû	335	; in al,64h ;÷èòàåì ñîñòîÿíèå êëàâèàòóðû
334	; test al,2 ;ïðîâåðêà áèòà ãîòîâíîñòè	336	; test al,2 ;ïðîâåðêà áèòà ãîòîâíîñòè
335	; loopnz test_kbd	337	; loopnz test_kbd
336		338
337	mov al,0xf6 ; Ñáðîñ êëàâèàòóðû, ðàçðåøèòü ñêàíèðîâàíèå	339	mov al,0xf6 ; Ñáðîñ êëàâèàòóðû, ðàçðåøèòü ñêàíèðîâàíèå
338	out 0x60,al	340	out 0x60,al
339	xor cx,cx	341	xor cx,cx
340	wait_loop: ; variant 2	342	wait_loop: ; variant 2
341	; reading state of port of 8042 controller	343	; reading state of port of 8042 controller
342	in al,64h	344	in al,64h
343	and al,00000010b ; ready flag	345	and al,00000010b ; ready flag
344	; wait until 8042 controller is ready	346	; wait until 8042 controller is ready
345	loopnz wait_loop	347	loopnz wait_loop
346		348
347	; --------------- APM ---------------------	349	; --------------- APM ---------------------
348	push 0	350	push 0
349	pop es	351	pop es
350	mov word [es : 0x9044], 0 ; ver = 0.0 (APM not found)	352	mov word [es : 0x9044], 0 ; ver = 0.0 (APM not found)
351	mov ax, 0x5300	353	mov ax, 0x5300
352	xor bx, bx	354	xor bx, bx
353	int 0x15	355	int 0x15
354	jc apm_end ; APM not found	356	jc apm_end ; APM not found
355	test cx, 2	357	test cx, 2
356	jz apm_end ; APM 32-bit protected-mode interface not supported	358	jz apm_end ; APM 32-bit protected-mode interface not supported
357	mov [es : 0x9044], ax ; Save APM Version	359	mov [es : 0x9044], ax ; Save APM Version
358	mov [es : 0x9046], cx ; Save APM flags	360	mov [es : 0x9046], cx ; Save APM flags
359		361
360	; Write APM ver ----	362	; Write APM ver ----
361	jmp @f	-
362	msg_apm:db ' APM x.x ', 0	-
363	@@: and ax, 0xf0f	363	and ax, 0xf0f
364	add ax, '00'	364	add ax, '00'
365	mov [msg_apm - 0x10000 + 5], ah	-
366	mov [msg_apm - 0x10000 + 7], al	-
367	_setcursor 0, 3	-
368	mov si, msg_apm - 0x10000	365	mov si, msg_apm - 0x10000
-		366	mov [si + 5], ah
-		367	mov [si + 7], al
-		368	_setcursor 0, 3
369	call printplain	369	call printplain
370	_setcursor d80x25_top_num,0	370	_setcursor d80x25_top_num,0
371	; ------------------	371	; ------------------
372		372
373	mov ax, 0x5304 ; Disconnect interface	373	mov ax, 0x5304 ; Disconnect interface
374	xor bx, bx	374	xor bx, bx
375	int 0x15	375	int 0x15
376	mov ax, 0x5303 ; Connect 32 bit mode interface	376	mov ax, 0x5303 ; Connect 32 bit mode interface
377	xor bx, bx	377	xor bx, bx
378	int 0x15	378	int 0x15
379	; init selectors	379	; init selectors
380	movzx eax, ax ; real-mode segment base address of protected-mode 32-bit code segment	380	movzx eax, ax ; real-mode segment base address of protected-mode 32-bit code segment
381	shl eax, 4	381	shl eax, 4
382	mov [apm_code_32 - 0x10000 + 2], ax	382	mov [apm_code_32 - 0x10000 + 2], ax
383	shr eax, 16	383	shr eax, 16
384	mov [apm_code_32 - 0x10000 + 4], al	384	mov [apm_code_32 - 0x10000 + 4], al
385	movzx ecx, cx ; real-mode segment base address of protected-mode 16-bit code segment	385	movzx ecx, cx ; real-mode segment base address of protected-mode 16-bit code segment
386	shl ecx, 4	386	shl ecx, 4
387	mov [apm_code_16 - 0x10000 + 2], cx	387	mov [apm_code_16 - 0x10000 + 2], cx
388	shr ecx, 16	388	shr ecx, 16
389	mov [apm_code_16 - 0x10000 + 4], cl	389	mov [apm_code_16 - 0x10000 + 4], cl
390	movzx edx, dx ; real-mode segment base address of protected-mode 16-bit data segment	390	movzx edx, dx ; real-mode segment base address of protected-mode 16-bit data segment
391	shl edx, 4	391	shl edx, 4
392	mov [apm_data_16 - 0x10000 + 2], dx	392	mov [apm_data_16 - 0x10000 + 2], dx
393	shr edx, 16	393	shr edx, 16
394	mov [apm_data_16 - 0x10000 + 4], dl	394	mov [apm_data_16 - 0x10000 + 4], dl
395	mov [es : 0x9040], ebx ; offset of APM entry point	395	mov [es : 0x9040], ebx ; offset of APM entry point
396	apm_end:	396	apm_end:
397	; -----------------------------------------	397	; -----------------------------------------
398		398
399	; DISPLAY VESA INFORMATION	399	; DISPLAY VESA INFORMATION
400		400
401	push 0	401	push 0
402	pop es	402	pop es
403	mov ax,0x4f00	403	mov ax,0x4f00
404	mov di,0xa000	404	mov di,0xa000
405	int 0x10	405	int 0x10
406	cmp ax,0x004f	406	cmp ax,0x004f
407	mov si, novesa-0x10000	407	mov si, novesa-0x10000
408	jnz @f	408	jnz @f
409	mov ax,[es:di+4]	409	mov ax,[es:di+4]
410	add ax,'0'*256+'0'	410	add ax,'0'*256+'0'
411	mov si,vervesa-0x10000	411	mov si,vervesa-0x10000
412	mov [si+vervesa_off], ah	412	mov [si+vervesa_off], ah
413	mov [si+vervesa_off+2], al	413	mov [si+vervesa_off+2], al
414	@@: call print	414	@@: call print
415		415
416	; \begin{diamond}[30.11.2005]	416	; \begin{diamond}[30.11.2005]
417	cfgmanager:	417	cfgmanager:
418	; settings:	418	; settings:
419	; a) preboot_graph = graphical mode	419	; a) preboot_graph = graphical mode
420	; preboot_gprobe = probe this mode?	420	; preboot_gprobe = probe this mode?
421	; b) preboot_mtrr = use hardware acceleration?	421	; b) preboot_mtrr = use hardware acceleration?
422	; c) preboot_vrrm = use VRR?	422	; c) preboot_vrrm = use VRR?
423	; d) preboot_device = from what boot?	423	; d) preboot_device = from what boot?
424	mov di, preboot_graph-0x10000	424	mov di, preboot_graph-0x10000
425	; check bootloader block	425	; check bootloader block
426	cmp [.loader_block-0x10000], 0	426	cmp [.loader_block-0x10000], 0
427	jz .noloaderblock	427	jz .noloaderblock
428	les bx, [.loader_block-0x10000]	428	les bx, [.loader_block-0x10000]
429	cmp byte [es:bx], 1	429	cmp byte [es:bx], 1
430	mov si, loader_block_error-0x10000	430	mov si, loader_block_error-0x10000
431	jnz sayerr	431	jnz sayerr
432	test byte [es:bx+1], 1	432	test byte [es:bx+1], 1
433	jz @f	433	jz @f
434	; image in memory present	434	; image in memory present
435	cmp [di+preboot_device-preboot_graph], 0	435	cmp [di+preboot_device-preboot_graph], 0
436	jnz @f	436	jnz @f
437	mov [di+preboot_device-preboot_graph], 3	437	mov [di+preboot_device-preboot_graph], 3
438	@@:	438	@@:
439	.noloaderblock:	439	.noloaderblock:
440	; determine default settings	440	; determine default settings
441	mov [.bSettingsChanged-0x10000], 0	441	mov [.bSettingsChanged-0x10000], 0
442	cmp byte [di], 0	442	cmp byte [di], 0
443	jnz .preboot_gr_end	443	jnz .preboot_gr_end
444	mov [di+preboot_gprobe-preboot_graph], 0	444	mov [di+preboot_gprobe-preboot_graph], 0
445	mov al, [vervesa+vervesa_off-0x10000]	445	mov al, [vervesa+vervesa_off-0x10000]
446	cmp al, 'x'	446	cmp al, 'x'
447	jz .novesa	447	jz .novesa
448	cmp al, '1'	448	cmp al, '1'
449	jz .vesa12	449	jz .vesa12
450	mov [di+preboot_gprobe-preboot_graph], 2	450	mov [di+preboot_gprobe-preboot_graph], 2
451	mov al, 3	451	mov al, 3
452	jmp @f	452	jmp @f
453	.vesa12:	453	.vesa12:
454	mov al, 7	454	mov al, 7
455	jmp @f	455	jmp @f
456	.novesa:	456	.novesa:
457	mov al, 10	457	mov al, 10
458	@@:	458	@@:
459	mov [di], al	459	mov [di], al
460	.preboot_gr_end:	460	.preboot_gr_end:
461	cmp [di+preboot_mtrr-preboot_graph], 1	461	cmp [di+preboot_mtrr-preboot_graph], 1
462	adc [di+preboot_mtrr-preboot_graph], 0	462	adc [di+preboot_mtrr-preboot_graph], 0
463	cmp [di+preboot_vrrm-preboot_graph], 1	463	cmp [di+preboot_vrrm-preboot_graph], 1
464	adc [di+preboot_vrrm-preboot_graph], 0	464	adc [di+preboot_vrrm-preboot_graph], 0
465	cmp [di+preboot_device-preboot_graph], 1	465	cmp [di+preboot_device-preboot_graph], 1
466	adc [di+preboot_device-preboot_graph], 0	466	adc [di+preboot_device-preboot_graph], 0
467	; notify user	467	; notify user
468	mov si, linef-0x10000	468	mov si, linef-0x10000
469	call print	469	call print
470	mov si, start_msg-0x10000	470	mov si, start_msg-0x10000
471	call print	471	call print
472	mov si, time_msg-0x10000	472	mov si, time_msg-0x10000
473	call print	473	call print
474	; get start time	474	; get start time
475	call .gettime	475	call .gettime
476	mov [.starttime-0x10000], eax	476	mov [.starttime-0x10000], eax
477	mov word [.timer-0x10000], .newtimer-0x10000	477	mov word [.timer-0x10000], .newtimer
478	mov word [.timer-0x10000+2], cs	478	mov word [.timer-0x10000+2], cs
479	.printcfg:	479	.printcfg:
480	_setcursor 9,0	480	_setcursor 9,0
481	mov si, current_cfg_msg-0x10000	481	mov si, current_cfg_msg-0x10000
482	call print	482	call print
483	mov si, curvideo_msg-0x10000	483	mov si, curvideo_msg-0x10000
484	call print	484	call print
485	mov al, [preboot_graph-0x10000]	485	mov al, [preboot_graph-0x10000]
486	cmp al, 8	486	cmp al, 8
487	ja .pnovesa	487	ja .pnovesa
488	mov dl, al	488	mov dl, al
489	and eax, 3	489	and eax, 3
490	mov si, [modes_msg-0x10000+eax*2]	490	mov si, [modes_msg-0x10000+eax*2]
491	call printplain	491	call printplain
492	mov si, modevesa20-0x10000	492	mov si, modevesa20-0x10000
493	cmp dl, 4	493	cmp dl, 4
494	jbe @f	494	jbe @f
495	mov si, modevesa12-0x10000	495	mov si, modevesa12-0x10000

Subversion Repositories Kolibri OS

(root)/kernel/trunk/boot/bootcode.inc – Rev 76 → 82