home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG020.ASM < prev    next >
Assembly Source File  |  1988-04-10  |  596b  |  15 lines
  1.  
  2. ;************************************************************************
  3. ; Use BIOS function to get the current video mode                       *
  4. ; Exit: AX - Current operation mode                                     *
  5. ;************************************************************************
  6.  
  7.         PUBLIC  _BIOS_Get_Mode
  8.  
  9. _BIOS_Get_Mode  PROC NEAR
  10.         MOV     AH,0FH                  ;Function = GET DISPLAY MODE
  11.         INT     10H                     ;Ask BIOS to fetch mode
  12.         XOR     AH,AH                   ;Return mode in AX
  13.         RET
  14. _BIOS_Get_Mode  ENDP
  15.