
;************************************************************************
; Get current video mode from segment zero                              *
;************************************************************************

        PUBLIC  _Get_Mode

_Get_Mode       PROC NEAR
        PUSH    ES                      ;Point ES to segment 0
        XOR     AX,AX
        MOV     ES,AX
        MOV     AL,ES:[BIOS_Mode]       ;Fetch current video mode
        XOR     AH,AH                   ;Clear rest of AX for return to C
        POP     ES
        RET
_Get_Mode       ENDP
