;*******************************************************
; Obl. dlugosci przeciwprostokatnej


CODE    SEGMENT
        ASSUME CS:CODE,DS:CODE
        ORG 100H             ; Program typu .COM, CS=DS


START:  MOV  AX,CS            
        MOV  DS,AX           ; DS <- CS

	FLD A          ; zalad A na stos
        FMUL ST,ST(0)	; A^2
        FLD B		; zalad B na stos
   	FMUL ST,ST(0)	; B^2	 
	FADDP		;dodaj argumenty bedace na stosie A^2+B^2
			; lub FADDP  ST,ST(1)       
	FSQRT		;oblicz pierwiastek z wartosci na szczycie stosu
	
	FSTP C		;zapisz wynik zmiennoprzecinkowy w zmiennej C

	MOV AX,4C00H
	INT 21H


;*******************  Dane  ***********************
A	DQ	4.0
B	DQ	3.0
C	DQ	0.0
CODE ENDS
END START
