.8087
PAGE 60,132
        .MODEL  SMALL
;PROGRAM TO CALCULATE AREA OF A CIRCLE (radius 91.67)
        .STACK  32
;----------------------------
        .DATA
 	ORG 	00H
R 	DD 91.67
 	ORG 	10H
AREA 	DD ?
;----------------------------
        .CODE
START 	PROC 	FAR
 	MOV 	AX,@DATA
 	MOV 	DS,AX
 	CALL 	CIRC_AREA
 	MOV	AH,4CH
        INT             21H
START 	ENDP
;-----------------------------
;PROCEDURE TO CALCULATE THE AREA OF A CIRCLE
CIRC_AREA  PROC    NEAR
        FINIT                   ;initialize 8087
        FLD     R               ;load radius
 	FMUL 	ST(0),ST(0) 	;square R
        FLDPI                   ;load PI
 	FMUL 	ST(0),ST(1) 	;multiply PI by R squared
        FSTP    AREA            ;store AREA
 	RET
CIRC_AREA  ENDP
;------------------------------
        END  START