;VESA ASSEMBLER UNIT OF FVISION

        TITLE   VESA

DATA    SEGMENT    WORD PUBLIC

; Externals

    EXTRN    VESA_Info DB 160 DUP (?)
    EXTRN    VESA_ModeInfo DB 256 DUP (?)


DATA    ENDS


CODE  SEGMENT WORD PUBLIC

        ASSUME  CS:CODE,DS:CODE

        PUBLIC  TestVesa


;Function TestVesa:Boolean


TestVesa:

        PUSH    ES
        PUSH    DI
        MOV     AX,4F00H
        PUSH    DS
        POP     ES
        MOV     DI,OFFSET VESA_Info
        INT     10H
        CMP     AX,004FH
        JZ      @@1
        XOR     AX,AX
  @@1:  MOV     AL,01H
        POP     DI
        POP     ES
        RET

GetVesaModeInfo:
        Mode    EQU  WORD PTR [BP+6]
        PUSH    ES
        PUSH    DI
        MOV     AX,4F01H
        MOV     CX,Mode
        PUSH    DS
        POP     ES
        MOV     DI,OFFSET VESA_ModeInfo
        INT     10H

        POP     DI
        POP     ES
        RET

CODE    ENDS
        END