home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / rettig / source / _tr_iscl.asm < prev    next >
Assembly Source File  |  1990-10-21  |  733b  |  30 lines
  1. ; Function: _tr_iscolor
  2. ;
  3. ; by Leonard Zerman
  4. ;
  5. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  6. ;
  7.  
  8.          PUBLIC  __TR_ISCOLOR
  9.  
  10. ;**********************************
  11. _TR_ISCOLOR_TEXT SEGMENT BYTE PUBLIC 'CODE'
  12.          ASSUME  CS:_TR_ISCOLOR_TEXT
  13. ;----------------------------------
  14. __TR_ISCOLOR PROC FAR
  15.        INT     11H           ; Check equipment flag
  16.        AND     AL,00110000b
  17.        CMP     AL,00110000b  ; Do we have color monitor?
  18.        JNE     COLOR    
  19.        JMP     BW
  20. COLOR: MOV     AX,1
  21.        JMP     EXIT
  22. BW:    XOR     AX,AX
  23. EXIT:  RET
  24. __TR_ISCOLOR ENDP
  25. ;----------------------------------
  26. _TR_ISCOLOR_TEXT   ENDS
  27. ;**********************************
  28.         END
  29.  
  30.