.386p
	ifdef ??version
	if    ??version GT 500H
	.mmx
	endif
	endif
	model flat
	ifndef	??version
	?debug	macro
	endm
	endif
	?debug	S "pi.c"
	?debug	T "pi.c"
_TEXT	segment dword public use32 'CODE'
_TEXT	ends
_DATA	segment dword public use32 'DATA'
_DATA	ends
_BSS	segment dword public use32 'BSS'
_BSS	ends
DGROUP	group	_BSS,_DATA
_TEXT	segment dword public use32 'CODE'
_print	proc	near
?live1@0:
   ;	
   ;	void print(unsigned short *pi, int n) {
   ;	
	push      ebp
	mov       ebp,esp
	push      ebx
	push      esi
	push      edi
	mov       edi,dword ptr [ebp+12]
	mov       esi,dword ptr [ebp+8]
   ;	
   ;	  int i;
   ;	  printf("%d.", pi[1]);
   ;	
?live1@16: ; ESI = pi, EDI = n
@1:
	movzx     eax,word ptr [esi+2]
	push      eax
	push      offset s@
	call      _printf
	add       esp,8
   ;	
   ;	  for (i=2; i<n-1; ++i)
   ;	
	mov       ebx,2
	jmp       short @3
   ;	
   ;	    printf("%04d", pi[i]);
   ;	
?live1@48: ; EBX = i, ESI = pi, EDI = n
@2:
	movzx     eax,word ptr [esi+2*ebx]
	push      eax
	push      offset s@+4
	call      _printf
	add       esp,8
	inc       ebx
@3:
	lea       edx,dword ptr [edi-1]
	cmp       ebx,edx
	jl        short @2
   ;	
   ;	  printf("\n");
   ;	
?live1@64: ; 
	push      offset s@+9
	call      _printf
	pop       ecx
   ;	
   ;	}
   ;	
@5:
	pop       edi
	pop       esi
	pop       ebx
	pop       ebp
	ret 
_print	endp
_main	proc	near
?live1@96:
   ;	
   ;	int main(int argc, char** argv) {
   ;	
	push      ebp
	mov       ebp,esp
	add       esp,-16
	push      ebx
	push      esi
	push      edi
   ;	
   ;	  int n = argc > 1 ? (atoi(argv[1])+3)/4+3 : 253;  /* number of pi digits */
   ;	
@6:
	cmp       dword ptr [ebp+8],1
	jle       short @7
	mov       eax,dword ptr [ebp+12]
	push      dword ptr [eax+4]
	call      _atol
	pop       ecx
	add       eax,3
	test      eax,eax
	jns       short @9
	add       eax,3
@9:
	sar       eax,2
	add       eax,3
	jmp       short @8
@7:
	mov       eax,253
@8:
	mov       dword ptr [ebp-4],eax
   ;	
   ;	  unsigned short *pi = (unsigned short*) malloc(n * sizeof(unsigned short));
   ;	
	mov       edx,dword ptr [ebp-4]
	add       edx,edx
	push      edx
	call      _malloc
	pop       ecx
	mov       esi,eax
   ;	
   ;	  div_t d;
   ;	  int i, j, t;
   ;	
   ;	  /* pi = 4  */
   ;	  memset(pi, 0, n*sizeof(unsigned short));
   ;	
?live1@144: ; ESI = pi
	mov       eax,dword ptr [ebp-4]
	add       eax,eax
	push      eax
	push      0
	push      esi
	call      _memset
	add       esp,12
   ;	
   ;	  pi[1]=4;
   ;	
	mov       word ptr [esi+2],4
   ;	
   ;	
   ;	  /* for i = B down to 1 */
   ;	  for (i=(int)(3.322*4*n); i>0; --i) {
   ;	
	fild      dword ptr [ebp-4]
	fmul      qword ptr [@10]
	call      __ftol
	mov       edi,eax
	test      edi,edi
	jle       short @12
   ;	
   ;	
   ;	    /* pi *= i; */
   ;	    t = 0;
   ;	
?live1@192: ; ESI = pi, EDI = i
@11:
	xor       eax,eax
	mov       dword ptr [ebp-16],eax
   ;	
   ;	    for (j=n-1; j>=0; --j) {  /* pi *= i; */
   ;	
	mov       ebx,dword ptr [ebp-4]
	dec       ebx
	test      ebx,ebx
	jl        short @14
   ;	
   ;	      t += pi[j] * i;
   ;	
?live1@224: ; EBX = j, ESI = pi, EDI = i
@13:
	movzx     eax,word ptr [esi+2*ebx]
	imul      edi
	add       dword ptr [ebp-16],eax
   ;	
   ;	      pi[j] = t % 10000;
   ;	
	mov       eax,dword ptr [ebp-16]
	mov       ecx,10000
	cdq
	idiv      ecx
	mov       word ptr [esi+2*ebx],dx
   ;	
   ;	      t /= 10000;
   ;	
	mov       ecx,10000
	mov       eax,dword ptr [ebp-16]
	cdq
	idiv      ecx
	mov       dword ptr [ebp-16],eax
	dec       ebx
	test      ebx,ebx
	jge       short @13
   ;	
   ;	    }
   ;	
   ;	    /* pi /= (2*i+1) */
   ;	    d.quot = d.rem = 0;
   ;	
?live1@272: ; ESI = pi, EDI = i
@14:
	xor       eax,eax
	mov       dword ptr [ebp-8],eax
	mov       dword ptr [ebp-12],eax
   ;	
   ;	    for (j=0; j<n; ++j) {  /* pi /= 2*i+1; */
   ;	
	xor       ebx,ebx
	cmp       ebx,dword ptr [ebp-4]
	jge       short @17
   ;	
   ;	      d = div(pi[j]+d.rem*10000, i+i+1);
   ;	
?live1@304: ; EBX = j, ESI = pi, EDI = i
@16:
	lea       eax,dword ptr [edi+edi+1]
	push      eax
	movzx     edx,word ptr [esi+2*ebx]
	imul      ecx,dword ptr [ebp-8],10000
	add       edx,ecx
	push      edx
	lea       eax,dword ptr [ebp-12]
	push      eax
	call      _div
	add       esp,12
   ;	
   ;	      pi[j] = d.quot;
   ;	
	mov       dx,word ptr [ebp-12]
	mov       word ptr [esi+2*ebx],dx
	inc       ebx
	cmp       ebx,dword ptr [ebp-4]
	jl        short @16
   ;	
   ;	    }
   ;	
   ;	    /* pi += 2 */
   ;	    pi[1] += 2;
   ;	
?live1@336: ; ESI = pi, EDI = i
@17:
	add       word ptr [esi+2],2
	dec       edi
	test      edi,edi
	jg        short @11
   ;	
   ;	  }
   ;	
   ;	  print(pi, n);
   ;	
?live1@352: ; ESI = pi
@12:
	push      dword ptr [ebp-4]
	push      esi
	call      _print
	add       esp,8
   ;	
   ;	  return 0;
   ;	
?live1@368: ; 
	xor       eax,eax
   ;	
   ;	}
   ;	
@21:
@20:
	pop       edi
	pop       esi
	pop       ebx
	mov       esp,ebp
	pop       ebp
	ret 
	align 4        
@10:
	db        250,126,106,188,116,147,42,64
_main	endp
_TEXT	ends
_DATA	segment dword public use32 'DATA'
s@	label	byte
	;	s@+0:
	db	"%d.",0
	;	s@+4:
	db	"%04d",0,10,0
	align	4
_DATA	ends
_TEXT	segment dword public use32 'CODE'
_TEXT	ends
	public	_print
 extrn   _printf:near
	public	_main
 extrn   __setargv__:near
 extrn   _atol:near
 extrn   _malloc:near
 extrn   _memset:near
 extrn   _div:near
 extrn   __ftol:near
	?debug	D "c:\Borland\Bcc55\include\mem.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\_loc.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\locale.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\_str.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\string.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\search.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\stdlib.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\_nfile.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\_null.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\_defs.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\_stddef.h" 10459 10272
	?debug	D "c:\Borland\Bcc55\include\stdio.h" 10459 10272
	?debug	D "pi.c" 12596 31622
	end