format PE console
entry start

include 'win32a.inc'

;=============================
section '.rdata' data readable
;=============================
        pi db 'Liczba PI wynosi: %d.%d', 10, 0
;==============================
section '.text' code executable
;==============================
start:
        push ebp
        mov ebp, esp
        mov eax, 4
        mov [ebp-8], eax        ;znak

        mov eax,  1
        mov [ebp-16], eax       ;mianownik

        mov eax, 2
        mov [ebp-24], eax       ;licznik

        mov eax, 0
        mov [ebp-32], eax       ;wartosc dziesietna pi

        mov eax, 0
        mov [ebp-40], eax

petla:

;       --------------------------
;       dzielenie znaku przez mianownik
        mov eax, [ebp-8]
        mov ebx, [ebp-16]

        xor edx, edx            
        idiv ebx

        add [ebp-32], eax
        add [ebp-40], edx
;       --------------------------
;       zwiekszenie mianownika o 2
        mov eax, [ebp-16]
        add eax, 2
        mov [ebp-16], eax
;       --------------------------
;       negacja znaku
        mov eax, [ebp-8]
        neg eax
        mov [ebp-8], eax
;       --------------------------
;       dekrementacja licznika
        mov eax, [ebp-24]
        dec eax

        mov [ebp-24], eax
        jnz petla

crap:
        mov eax, [ebp-32]
        mov ebx, [ebp-40]
        push ebx                ;przekazanie ebx do printf
        push eax                ;przekazanie eax do printf
        push pi                 ;przekazanie string'a do printf
        call [printf]
        ccall [getchar]         

koniec:
        stdcall [ExitProcess], 0
;====================================
section '.idata' import data readable
;====================================
       library kernel32, 'kernel32.dll', \
                msvcrt,   'msvcrt.dll'
        import kernel32, ExitProcess, 'ExitProcess'
        import msvcrt, printf, 'printf', getchar, '_fgetchar'
    

#include <iostream>

using namespace std;

int main()
{
    int i;
    cout << "Number of iterations: ";
    cin >> i;
    long int denominator = 1;
    long double pi = 0;
    int sign = 4;

    for(long long int j = 0; j < i; j++)
    {
        pi += (long double) sign / (long double) denominator;
        sign = -sign;
        denominator += 2;
    }
    cout.precision(10);
    cout << "Liczba Pi w przyblizeniu wynosi: ";
    cout << pi;
    return 0;
}
    

pi += (long double) sign / (long double) denominator;
    

; ---------------------------------------------------------------------------
; FILE: GetPI.Asm
; DATE: September 20, 2013
; ---------------------------------------------------------------------------

format  PE GUI 4.0
entry   start
stack   4000h, 4000h

    include 'Win32W.Inc'
    ; {INSMODDEF} Module Definitions inserted immediately before this line

; ---------------------------------------------------------------------------
section '.data' data readable writeable

    double_PI1      dt 0.0
    double_PI2      dt 0.0

; ---------------------------------------------------------------------------
section '.code' code readable executable

    ; {INSMODIMPL} Module Implementations inserted immediately before this line

; ---------------------------------------------------------------------------
virtual at 0
loc1:
    .Long_Sign         dd ?
    .Long_Denominator  dd ?
    .CurrentPi         dt ?  ; 10 bytes DOUBLE
    .Padding           rb 2  ; To align stack on DWORD
    .size = $
end virtual

align 16
GetPI_Entry:
; ---------------------------------------------------------------------------
; INPUT:
;   ECX = # of iterations
;   EDI = address of a DOUBLE value where to put the result (calculated PI)
; ---------------------------------------------------------------------------
    ;
    ; Allocate local variables
    ;
    sub       esp, loc1.size
    mov       esi, esp
    ;
    ; Prepare locals
    ;
    push      1
    pop       eax
    mov       [esi + loc1.Long_Denominator], eax   ; Denominator = 1

    add       eax, 3
    mov       [esi + loc1.Long_Sign], eax          ; Sign = 4

    fldz
    fstp      [esi + loc1.CurrentPi]               ; Pi = 0.0
    ;
    ; Loop the # of iterations in ECX
    ;
.iteration:
    fild      [esi + loc1.Long_Sign]
    fidiv     [esi + loc1.Long_Denominator]
    fld       [esi + loc1.CurrentPi]
    faddp
    fstp      [esi + loc1.CurrentPi]

    neg       [esi + loc1.Long_Sign]
    add       [esi + loc1.Long_Denominator], 2

    loop      .iteration
    ;
    ; Store the result
    ;
    fld       [esi + loc1.CurrentPi]
    fstp      tword [edi]
    ;
    ; Release locals and exit
    ;
    add       esp, loc1.size
    ret

    ; ----------------------------------------------
    ; C++ Equivalent for ABOVE ^^^ (just the calculations)
    ; ----------------------------------------------
    ;int main() 
    ;{ 
    ;    int i; 
    ;    cout << "Number of iterations: "; 
    ;    cin >> i; 
    ;    long int denominator = 1; 
    ;    long double pi = 0; 
    ;    int sign = 4; 
    ;
    ;    for(long long int j = 0; j < i; j++) 
    ;    { 
    ;        pi += (long double) sign / (long double) denominator; 
    ;        sign = -sign; 
    ;        denominator += 2; 
    ;    } 
    ;    cout.precision(10); 
    ;    cout << "Liczba Pi w przyblizeniu wynosi: "; 
    ;    cout << pi; 
    ;    return 0; 
    ;}

; ---------------------------------------------------------------------------
; PROGRAM ENTRY POINT
; ---------------------------------------------------------------------------
align 16
start:
    ;
    ; Try it twice with different # of iterations
    ;
    mov       edi, double_PI1
    mov       ecx, 256
    call      GetPI_Entry

    mov       edi, double_PI2
    mov       ecx, 4096
    call      GetPI_Entry
    ;
    ; Now load them into FPU and compare with 'real' Pi
    ;
    fld       [double_PI2]
    fld       [double_PI1]
    fldpi
    ;
    ; Stop in debugger and look into FPU registers:
    ;
    ; ST0 = Pi calculated by FPU
    ; ST1 = Pi calculated by 256 iterations
    ; ST2 = Pi calculated by 4096 iterations
    ;
    int3
    ;
    ; Get back to Windows
    ;
    invoke    ExitProcess, 0

; ---------------------------------------------------------------------------
section '.idata' import data readable writeable

    library kernel32,'KERNEL32.DLL',user32,'USER32.DLL',gdi32,'GDI32.DLL'

    include 'API\Kernel32.Inc'
    include 'API\User32.Inc'
    include 'API\Gdi32.Inc'