home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
clipper
/
rettig
/
source
/
_tr_infi.asm
< prev
next >
Wrap
Assembly Source File
|
1990-10-21
|
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