Program Fractal;
Uses Graph, Crt;
Var
   x, y, z  : Integer;
   gd, gm   : Integer;
   mx, my   : Integer;
Begin
   gd := Detect;
   InitGraph(gd,gm,'e:\bp\bgi');
   mx:=GetMaxX div 2;
   my:=GetMaxY div 2;
   For y:=-my to my do
      For x:=-mx to mx do Begin
        z:=trunc(0.1*(sqr(x)+sqr(y)));
        PutPixel(mx + x,my + y,z mod 16);
      End;
   Readkey;
   CloseGraph;
end.
    

how can i realize this algorythm in fasm

   gd := Detect;
   InitGraph(gd,gm,'e:\bp\bgi');
    

        PutPixel(mx + x,my + y,z mod 16);
    

   CloseGraph;
    

algorythm -> algorithm

Does the "TURBO"-PASCAL code work for you ?

org $100
mov     ax, 13h ; AH = 0; AL = 13h 
int     $10 

; Set ES to $A000 to get access to the video memory 
mov     ax, $A000 
mov     es, ax 

xor     bx, bx 
mov     ecx, 50

yRes = 200 
xRes = 320 

; di = Y; si = X 
mov di, -yRes/2 

yLoop: 
  mov si, -xRes/2 

  xLoop: 
    ; z = (Sqr(di) + Sqr(si))/10 
    movsx   eax, si
    movsx   edx, di

    imul    eax, eax ; Sqr(si)
    imul    edx, edx ; Sqr(di)

    add     eax, edx ; Sqr(si) + Sqr(di)

    ; (Sqr(di) + Sqr(si))/10
    xor     edx, edx
    div     ecx

    ; PutPixel
    and     al, $F ; [(Sqr(di) + Sqr(si))/10] mod 16
    mov     [es:bx], al ; Writes the pixel

    inc     bx ; Increments pixel pointer 

    inc     si 
    cmp     si, xRes/2 
    jne     xLoop 

  inc     di 
  cmp     di, yRes/2 
  jne     yLoop 

; ReadKey 
xor     ax, ax 
int     $16 

; Set video mode back to text mode 
mov     ax, 3 
int     $10 

; Return to DOS 
int     $20    

Program Circle;
Uses Graph;
Var
   x, y, z  : LongInt;
   gd, gm   : Integer;
   mx, my   : LongInt;
Begin
   gd := Detect;
   gm := 0;
   InitGraph(gd,gm,'c:\tp\bgi');
   mx:=GetMaxX div 2;
   my:=GetMaxY div 2;
   For y:=-my to my do
      For x:=-mx to mx do Begin
        z:=Trunc(0.1*(sqr(x)+sqr(y)));
        PutPixel(mx + x,my + y,z mod 16);
      End;
   ReadLn;
   CloseGraph;
end.    

The latest release is 2.0.4 .

PS: The latest release is 2.0.4.

May 20, 2007 After years of development the new fpc version 2.2.0, version 2.1.4 aka 2.2.0-beta is released. The beta will be available for about two months whereafter 2.2.0 will be released. We ask all our users to test this release, and report bugs on the bug-tracker. If you want to know if your bug is already solved, you can look it up in mantis, or try one of the daily snapshots, based on the fixes_2_2 branch. So please help us make version 2.2.0 the most stable version of freepascal, until now. List of changes can be found here. The releasenotes are also available. Please note that there are some intentional incompatibilities with previous versions, for an overview click here.

for (y=0; y<199; y++)
{
   for (x=0; x<319; x++)
   {
        color=sin(x/25)*63+sin(y/25)*63;
        Putpixel (x,y,color);
    }
}
    

org     100h

;set vga 8bit 320x200 mode
mov     al,13h
int     10h

;set ES to $A000 to get access to the video memory
mov     ax, $A000
mov     es, ax


xor     si,si   ;xres
xor     di,di   ;yres

yloop:

   xloop:

        push    si
        push    di
        fild    dword [si]      ;st0 = xres
        fidiv   dword [25]      ;xres/25
        fsin                    ;sin(xres/25)
        fimul   dword [63]      ;sin(xres/25)*63
        fistp   dword [si]      ;si = sin(xres/25)*63

        fild    dword [di]      ;st0 = yres
        fidiv   dword [25]      ;yres/25
        fsin                    ;sin(yres)/25
        fimul   dword [63]      ;sin(yres)/25*63
        fistp   dword [di]      ;di = sin(yres/25)*63

        xor     ax,ax
        mov     ax,di
        add     ax,si           ;ax = sin(xres/25)*63 + sin(yres/25)*63

        pop     di
        pop     si
        mov     bx,di
        imul    bx,320          ;yres*320
        add     bx,si
        mov     [es:bx],ax

        inc     si
        cmp     si,319

   jne  xloop

inc     di
cmp     di,199
jne     yloop


;await keypress
_keypress:
mov      ah,00
int      16h

;terminate program
_end:

mov     ah,00
mov     al,03
int     10h
mov     ah,4ch
mov     al,00
int     21h


    

org     100h

;set vga 8bit 320x200 mode 
mov     ax,13h
int     10h 

;set ES to $A000 to get access to the video memory 
mov     ax, $A000 
mov     es, ax 

xor     di,di   ;yres

finit

yloop: 
  xor     si,si   ;xres

   xloop:
        push    si
        push    di
        mov     word  [aux], si
        fild    dword [aux]      ;st0 = xres
        fidiv   dword [c25]      ;xres/25
        fsin                    ;sin(xres/25)
        fimul   dword [c63]      ;sin(xres/25)*63
        fistp   dword [aux]      ;si = sin(xres/25)*63
        mov     si, word [aux]

        mov     word  [aux], di
        fild    dword [aux]      ;st0 = yres
        fidiv   dword [c25]      ;yres/25
        fsin                    ;sin(yres)/25
        fimul   dword [c63]      ;sin(yres)/25*63
        fistp   dword [aux]      ;di = sin(yres/25)*63
        mov     di, word [aux]

        xor     ax,ax 
        mov     ax,di 
        add     ax,si           ;ax = sin(xres/25)*63 + sin(yres/25)*63 

        pop     di 
        pop     si 
        mov     bx,di 
        imul    bx,320          ;yres*320 
        add     bx,si 
        mov     [es:bx],ax 

        inc     si 
        cmp     si,319 

   jne  xloop 

inc     di 
cmp     di,199 
jne     yloop 


;await keypress 
_keypress: 
mov      ax,00
int      16h 

;terminate program 
_end: 

mov     ah,00 
mov     al,03 
int     10h 
mov     ah,4ch 
mov     al,00 
int     21h

c25 dd 25
c63 dd 63

aux dd 0