;*******************************************************
; Sprawdz sin^(alfa)+cos^(alfa)=1

.387

CODE    SEGMENT
        ASSUME CS:CODE,DS:CODE
        ORG 100H             ; Program typu .COM, CS=DS


START:  MOV  AX,CS            
        MOV  DS,AX      ; DS <- CS

	FLD ALFA        ; zalad ALFA na stos
        FSIN
   	FMUL ST,ST(0)	; SIN^2	 
	FLD ALFA	; ALFA na stos
	FCOS	
   	FMUL ST,ST(0)	; COS^2	 

	FADDP		;dodaj argumenty bedace na stosie SIN^2+COS^2
			; lub FADDP  ST,ST(1)       

	MOV AX,4C00H
	INT 21H


;*******************  Dane  ***********************
ALFA	DQ	10.0
;ALFA	DQ	1.0

CODE ENDS
END START
