< Tady jsem to uříz...bylo tam mooc zbytečností >
   ;
   ;    main()
   ;
        assume  cs:_TEXT
_main   proc    near
        enter   2,0             #Tohle je opravdu hodně pomalý na pentiu
        push    si              #hmm...a proč tohle..u mainu?
        push    di
   ;
   ;    {int i,a=1,b=0;
   ;
        mov     si,1            #Borlandovi se to do registru nevešlo...
        mov     word ptr [bp-2],0
   ;
   ;     for(i=0;i<9999;i++)
   ;
        xor     di,di
        jmp     short @1@98     #To že smyčka proběhne už nepoznal..
@1@50:
   ;
   ;            a=a+b,b=2*a;
   ;
        mov     ax,si           #no v GCC to byly 2 instrukce a tady 5..
        add     ax,word ptr [bp-2]#A lezeme do paměti..uprostřed cyklu..fuj!
        mov     si,ax
        shl     ax,1
        mov     word ptr [bp-2],ax
        inc     di              #cyklus neobátil
@1@98:                          #teda další instrukce na porovnání
        cmp     di,9999
        jl      short @1@50
   ;
   ;     printf("%i\n",a);
   ;
        push    si              #Voláme printf
        push    offset DGROUP:s@
        call    near ptr _printf
        pop     cx              #tady by taky šlo šetřit...
        pop     cx
   ;
   ;    }
   ;
        pop     di              #a zase zbytečnosti..
        pop     si
        leave                   #až sem.
        ret


            výheň