home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG021P.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-17  |  429 b   |  17 lines
  1.  
  2. ;************************************************************************
  3. ; Get current video mode from segment zero                *
  4. ;************************************************************************
  5.  
  6.     PUBLIC    Get_Mode
  7.  
  8. Get_Mode    PROC FAR
  9.     PUSH    ES            ;Point ES to segment 0
  10.     XOR    AX,AX
  11.     MOV    ES,AX
  12.     MOV    AL,ES:[BIOS_Mode]    ;Fetch current video mode
  13.     XOR    AH,AH            ;Clear rest of AX for return to C
  14.     POP    ES
  15.     RET
  16. Get_Mode    ENDP
  17.