;Copyright 2000 - Mark McDonald All rights reserved
; GETSCRNMODE routine for PowerBASIC
; GETVMODE
;     Returns the video mode number.
;     EXAMPLE:  T = GETVMODE

MCODE Segment Byte
        Assume  CS: MCODE

        Public  GETVMODE

GETVMODE Proc Far

        push    DS                      ;

        xor     AX, AX                  ; clear AX
        mov     DS, AX                  ; set DS to BIOS video table
        mov     AL, DS: [0449h]         ; get current video mode

        pop     DS                      ;
        retf                            ;

GETVMODE EndP
MCODE EndS
        End