home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG021.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-10  |  593 b   |  17 lines
  1.  
  2. ;************************************************************************
  3. ; Get current video mode from segment zero                              *
  4. ;************************************************************************
  5.  
  6.         PUBLIC  _Get_Mode
  7.  
  8. _Get_Mode       PROC NEAR
  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.