home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
rettig.zip
/
TRSOURCE.EXE
/
_TR_INFI.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-10-22
|
851b
|
33 lines
; _TR_INFI.ASM
;
; by Leonard Zerman
;
; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
;
PUBLIC __TR_INFINITY
DGROUP GROUP _DATA
;********************************************
_DATA SEGMENT WORD PUBLIC 'DATA'
BIGNUM DQ 7FEFFFFFFFFFFFFFH ; 8087 bit pattern for infinity
_DATA ENDS
;********************************************
;********************************************
_TR_INF_TEXT SEGMENT BYTE PUBLIC 'CODE'
ASSUME CS:_TR_INF_TEXT, DS:_DATA
;--------------------------------------------
__TR_INFINITY PROC FAR
MOV AX,OFFSET _DATA:BIGNUM
MOV DX,SEG _DATA:BIGNUM
RET
__TR_INFINITY ENDP
;--------------------------------------------
_TR_INF_TEXT ENDS
;**********************************************
END