.8087
PAGE 60,132
        .MODEL SMALL
; PROGRAM TO ROUND A REAL NUMBER TO INTEGER
        .STACK 32
;----------------------------
        .DATA
 	ORG 00H
REALNUM DD 5.5
 	ORG 10H
INTNUM 	DD ?
;----------------------------
        .CODE
START 	PROC FAR
 	MOV 	AX,@DATA
 	MOV 	DS,AX
 	CALL 	RND_NUM
 	MOV	AH,4CH
        INT             21H
START 	ENDP
;-----------------------------
;PROCEDURE TO ROUND A REAL NUMBER TO INTEGER
RND_NUM PROC 	NEAR
        FINIT                   ;initialize 8087
 	FLD 	REALNUM 	;load real
        FRNDINT                 ;round to integer
        FIST    INTNUM          ;store integer
 	RET
RND_NUM ENDP
;------------------------------
END 	START