mi identity r.p

DATA SEGMENT
ANG DD 60.0
A DD 180.0
C DD 1.0
FULL DD (?)
SIN DD (?)
COS DD (?)
RES DD (?)
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DATA

START:  MOV AX,SEG DATA
        MOV DS,AX

        FINIT
        FLD A
        FLDPI
        FDIV ST(0),ST(1)
        FLD ANG
        FMUL ST(0),ST(1)
        FST FULL
        FINIT
        FLD FULL
        FPTAN
        FLD ST(1)
        FMUL ST(0),ST(0)
        FLD C
        FADD ST(0),ST(1)
        FSQRT
        FLD FULL
        FPTAN
        FLD ST(1)
        FDIV ST(0),ST(3)
        FST SIN
        FINIT
        FLD FULL
        FPTAN
        FLD ST(1)
        FLD SIN
        FDIV ST(0),ST(1)
        FST COS
        FINIT
        FLD SIN
        FMUL ST(0),ST(0)
        FLD COS
        FMUL ST(0),ST(0)
        FADD ST(0),ST(1)
        FST RES

QUIT:   MOV AX,4C00H
        INT 21H
CODE ENDS
END START