Числовой ряд (TASM, сопроцессор)

[iLOL]

Задача состоит с следующем: с клавы вводим натуральное число n. Надо с точностью до 5ого знака посчитать
(1-(1/2^n))(1+(1/3^n))(1-(1/4^n))…(1-((-1)^(n-1)/n^n))
Желательно в виде макросов конечно. Сам пока что плохо понимаю как работать с сопроцессором, так что надеюсь на вас. Ввод\вывод и прочая есть, интересует сам алгоритм вычисления ряда.

[iLOL]

Вот код который пока имею. Здесь 3 макроса: (-1)^(n-1), n^n и их деление. Так вот проблема с делением. Хочу поделить 2 целых числа в сопроцессоре, но результат получить вещественный.

.586p
calcnn		macro n
	mov		ax,1
	mov		bx,n ; что возводим
	mov		cx,n ; во что возводим
nn:	mul		bx
	loop	nn
	mov		tmp1,eax
endm

calcn		macro n
	mov		ax,1
	mov		bx,-1
	mov		cx,n
	dec		cx
	jz		lee
n1:	mul		bx
	loop	n1
lee:mov		tmp2,eax
endm

divc		macro n,tmp1,tmp2
	fld		tmp1
	fld		tmp2
	fdiv	st(0),st(1)
;	fstp	tmp3
endm
;once		macro one,tmp3
;	fld		tmp3
;	fld		one
;	fsub	
	
.model use16 small
.stack 100h

.data
;buff      	db      6,7 dup( ? )
Mes			db      "Введите натуральное число: $"
errMargn	db 		"Числа должны быть натуральными : $"
n			dw		? ;
tmp1		dd		? ;n^n
tmp2		dd		? ;(-1)^(n-1)
tmp3		dd		? ;(-1)^(n-1)/n^n
one			dd		1.
.code
start:
	mov		ax,@data
	mov		ds,ax
	
	mov		dx,offset Mes
	call	string
	call	inint
	mov		n,ax
	call	outint
	call	setnewline

	calcnn	n
	call	outint
	call	setnewline
	calcn	n
	call	outint
	
	call	setnewline
	divc	n,tmp1,tmp2
	call	outfloat

	mov		ah,08h
	int		21h
	mov		ah,4ch
	int		21h

setnewline	proc
...
setnewline	endp

string		proc
...
string 		endp

inint		proc near
...
inint		endp

outint		proc near
...
outint		endp

outfloat	proc near
...
outfloat endp
	
end			start

[iLOL]

апец (десяточка)
Сейчас проблема в том, что при делении -1 на положительное число (n^n) получается бред какой то..