Subversion Repositories Kolibri OS

;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;

;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;

;; Distributed under terms of the GNU General Public License    ;;

;; Distributed under terms of the GNU General Public License    ;;

;;                                                              ;;

;;                                                              ;;

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

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

$Revision: 6663 $

$Revision: 6721 $

; Initializes MTRRs.

; Initializes MTRRs.

; size must be power of 2 that divides base.

; size must be power of 2 that divides base.

proc set_mtrr stdcall, base:dword,size:dword,mem_type:dword

proc set_mtrr stdcall, base:dword,size:dword,mem_type:dword

; find unused register

; find unused register

        mov     ecx, 0x201

        mov     ecx, 0x201

.scan:

.scan:

        rdmsr

        rdmsr

        dec     ecx

        dec     ecx

        test    ah, 8

        test    ah, 8

        jz      .found

        jz      .found

        rdmsr

        rdmsr

        and     eax, not 0xFFF  ; clear reserved bits

        and     eax, not 0xFFF  ; clear reserved bits

        cmp     eax, [base]

        cmp     eax, [base]

        jz      .ret

        jz      .ret

@@:

@@:

        add     ecx, 3

        add     ecx, 3

; no free registers, ignore the call

; no free registers, ignore the call

.ret:

.ret:

        ret

        ret

.found:

.found:

; found, write values

; found, write values