home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TUR6_101.ZIP / V11.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-06-07  |  1.3 KB  |  23 lines
  1. ;--------------------------------------------------------------------
  2. ; Author       : Kevin Dahl                                         :
  3. ; Last Revised : June 7, 1986                                       :
  4. ;                                                                   :
  5. ; FILENAME - V11.ENH                                                :
  6. ;                                                                   :
  7. ; GETVIDEOMODE                                                      :
  8. ;        Get the current video mode the system is in.               :
  9. ;                                                                   :
  10. ; EXIT                                                              :
  11. ;        AX - current video mode system is in                       :
  12. ;--------------------------------------------------------------------
  13. getvideomode  proc      near
  14.               push      bp                       ; save stack
  15.               mov       bp,sp
  16.               mov       ah,0fh                   ; get current video mode
  17.               int       10h                      ; use BIOS services
  18.               xor       ah,ah                    ; video mode in al
  19.               mov       sp,bp                    ; restore stack
  20.               pop       bp
  21.               ret       2                        ; remove params from stack
  22. getvideomode  endp
  23.