home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / NFPAT9 / ADAPTER.ASM next >
Assembly Source File  |  1993-08-17  |  3KB  |  116 lines
  1. ; File......: ADAPTER.ASM
  2. ; Author....: Ted Means
  3. ; Date......: $Date:   17 Aug 1993 19:25:38  $
  4. ; Revision..: $Revision:   1.3  $
  5. ; Log file..: $Logfile:   C:/nanfor/src/adapter.asv  $
  6. ; 
  7. ; This is an original work by Ted Means and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   C:/nanfor/src/adapter.asv  $
  14. ;  
  15. ;     Rev 1.3   17 Aug 1993 19:25:38   GLENN
  16. ;  Ted modified so it would work in protected mode.
  17. ;  
  18. ;     Rev 1.2   15 Aug 1991 23:07:18   GLENN
  19. ;  Forest Belt proofread/edited/cleaned up doc
  20. ;  
  21. ;     Rev 1.1   14 Jun 1991 19:54:18   GLENN
  22. ;  Minor edit to file header
  23. ;  
  24. ;     Rev 1.0   01 Apr 1991 01:03:08   GLENN
  25. ;  Nanforum Toolkit
  26. ;  
  27. ;
  28.  
  29.  
  30.  
  31. ;  $DOC$
  32. ;  $FUNCNAME$
  33. ;     FT_ADAPTER()
  34. ;  $CATEGORY$
  35. ;     Video
  36. ;  $ONELINER$
  37. ;     Report the type of video adapter installed
  38. ;  $SYNTAX$
  39. ;     FT_ADAPTER() -> nResult
  40. ;  $ARGUMENTS$
  41. ;     None
  42. ;  $RETURNS$
  43. ;     Integer representing type of video adapter
  44. ;
  45. ;        0 - monochrome
  46. ;        1 - CGA
  47. ;        2 - EGA
  48. ;        3 - VGA
  49. ;  $DESCRIPTION$
  50. ;     This function is valuable if you use a graphics library and need to
  51. ;     know what type of graphics adapter is installed.
  52. ;
  53. ;     The source code is written to adhere to Turbo Assembler's IDEAL mode.
  54. ;     To use another assembler, you will need to rearrange the PROC and
  55. ;     SEGMENT directives, and also the ENDP and ENDS directives (a very
  56. ;     minor task).
  57. ;  $EXAMPLES$
  58. ;     iVideo := FT_ADAPTER()
  59. ;
  60. ;     DO CASE
  61. ;        CASE iVideo == 0
  62. ;           QOUT( "You have a monochrome adapter." )
  63. ;        CASE iVideo == 1
  64. ;           QOUT( "You have a CGA adapter." )
  65. ;        CASE iVideo == 2
  66. ;           QOUT( "You have an EGA adapter." )
  67. ;        CASE iVideo == 3
  68. ;           QOUT( "You have a VGA adapter." )
  69. ;     ENDCASE
  70. ;  $SEEALSO$
  71. ;     FT_SETMODE()
  72. ;  $END$
  73. ;
  74.  
  75. IDEAL
  76.  
  77. Public   FT_ADAPTER
  78.  
  79. Extrn    __RetNI:Far
  80.  
  81. Segment  _NanFor   Word      "CODE"
  82.          Assume    CS:_NanFor
  83.  
  84. Proc     FT_ADAPTER          Far
  85.  
  86.          Mov       AX,40h
  87.          Mov       ES,AX
  88.          Xor       AX,AX
  89.          Cmp       [Word Ptr ES:63h],3B4h
  90.          JE        Done
  91.  
  92. IsVGA:   Mov       AX,1A00h                  ; VGA-only BIOS call
  93.          Int       10h                       ; Call video BIOS
  94.          Cmp       AL,1Ah                    ; See if call supported
  95.          JNE       IsEGA                     ; If not, try EGA
  96.          Mov       AX,3                      ; Indicate VGA
  97.          JMP       Short Done                ; Return to application
  98.  
  99. IsEGA:   Mov       AH,12h                    ; EGA-only BIOS call
  100.          Mov       BL,10h                    ; Set BL to test value
  101.          Int       10h                       ; Call video BIOS
  102.          Cmp       BL,10h                    ; Did BL change?
  103.          JE        IsCGA                     ; No, so it's a CGA
  104.          Mov       AX,2                      ; Indicate EGA
  105.          Jmp       Short Done                ; Return to application
  106.  
  107. IsCGA:   Mov       AX,1                      ; Indicate CGA
  108.  
  109. Done:    Push      AX                        ; Save adapter type on stack
  110.          Call      __RetNI                   ; Return it
  111.          Pop       AX
  112.          RetF
  113. Endp     FT_ADAPTER
  114. Ends     _NanFor
  115. End
  116.