.8087
.model small, c

public compute_d_kgm
public rescale_gcm

.code

four		dw	4
three		dw	3


compute_d_kgm proc NEAR			; funkcja liczaca gestosc kuli dla parametrow typu DOUBLE
	push bp						; i zwracajaca typ double
	mov bp, sp

	finit
	
	fld qword ptr [bp+4]		
	fld qword ptr [bp+4]
	fmul
	fld qword ptr [bp+4]
	fmul
	fldpi
	fmul
	fimul four
	fidiv three
	
	fld qword ptr [bp+12]		
	fdiv

	pop bp
	ret
compute_d_kgm endp


rescale_gcm proc NEAR			; funkcja przeliczajaca kg/m^3 do g/cm^3
	push bp						; dla przykladu ta funkcja alokuje zmienna lokalna
	mov bp, sp
	push ax			; nie wiem, czy potrzebne
	
	mov ax, 1000
	push ax

	finit
	
	fld qword ptr [bp+4]		
	fidiv word ptr [bp-4]
	
	add sp, 2
	pop ax			; nie wiem, czy potrzebne (mozna by chyba tylko add sp, 4)
	pop bp
	ret
rescale_gcm endp

end