home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
rettig.zip
/
TRSOURCE.EXE
/
_TR_ISCL.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-10-22
|
733b
|
30 lines
; Function: _tr_iscolor
;
; by Leonard Zerman
;
; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
;
PUBLIC __TR_ISCOLOR
;**********************************
_TR_ISCOLOR_TEXT SEGMENT BYTE PUBLIC 'CODE'
ASSUME CS:_TR_ISCOLOR_TEXT
;----------------------------------
__TR_ISCOLOR PROC FAR
INT 11H ; Check equipment flag
AND AL,00110000b
CMP AL,00110000b ; Do we have color monitor?
JNE COLOR
JMP BW
COLOR: MOV AX,1
JMP EXIT
BW: XOR AX,AX
EXIT: RET
__TR_ISCOLOR ENDP
;----------------------------------
_TR_ISCOLOR_TEXT ENDS
;**********************************
END