Board.KolibriOS.org

Code: Select all

;------------------------------------------------------------------
; use "iglobal" for inserting initialized global data definitions.
;------------------------------------------------------------------
macro iglobal {
  IGlobals equ IGlobals,
  macro __IGlobalBlock { }

;-------------------------------------------------------------
; use 'uglobal' for inserting uninitialized global definitions.
; even when you define some data values, these variables
; will be stored as uninitialized data.
;-------------------------------------------------------------
macro uglobal {
  UGlobals equ UGlobals,
  macro __UGlobalBlock { }

endg fix }      ; Use endg for ending iglobal and uglobal blocks.

macro IncludeIGlobals{
  macro IGlobals dummy,[n] \{ __IGlobalBlock
     purge __IGlobalBlock  \}
  match I, IGlobals \{ I \} }


macro IncludeUGlobals{
  macro UGlobals dummy,[n] \{
    \common
      \local begin, size
      begin = $
      virtual at $
    \forward
      __UGlobalBlock
      purge __UGlobalBlock
    \common
      size = $ - begin
    end virtual
    rb size
  \}
  match U, UGlobals \{ U \} }

macro IncludeAllGlobals {
  IncludeIGlobals
  IncludeUGlobals
}
 
iglobal
endg

uglobal
endg

Code: Select all

set_bank: ; S3
        cli
        cmp     al,[0xfff2]
        je      .exit
        mov     [0xfff2],al
        push    eax edx

        mov     ah,al
; unlock S3 registers
        mov     dx,3D4h
        mov     al,38h
        out     dx,al
        inc     edx
        mov     al,48h
        out     dx,al
        dec     edx
        mov     al,39h

        out     dx,al
        inc     edx
        mov     al,0A5h
        out     dx,al
; do the bank-switch
        mov     dx,3D4h
        mov     al,35h
        out     dx,al
        inc     edx
        in      al,dx
        and     al,0F0h
        or      al,ah
        out     dx,al

        pop     edx eax
  .exit:
        sti
        ret

Code: Select all

        | kmeaw | mike.dld
--------------------------
RANDBOX | 3220  | 3955
RANDPUT | 7040  | 11185
LIBTEST | 4850  | 5080