call myfunction
.
.
proc myfunction
    

stdcall myfucntion, dummy
.
.
proc myfunction, dummy
    

     ;Store the handle (pointer) to the window.
     mov     [mainhwnd], eax

     call GAMEINIT  ;<- crash happens on ret from this function 

     ;Debug Info Code <---- Never gets executed
     ;mov     byte [strbuffer],0
     ;invoke  CnvtItoA64, strbuffer, 0, eax
     ;invoke  ShowCursor,TRUE
     ;invoke  MessageBox, [mainhwnd], strbuffer, strbuffer, MB_OK
     ;invoke  ShowCursor,FALSE
    

proc GAMEINIT
     ;This is the function where you do all the initialization
     ;for your game.

     ;create directdraw object and set the screen mode
     invoke  DDInit, [mainhwnd], SCREENWIDTH, SCREENHEIGHT, SCREENBPP
     cmp     eax,DD_OK
     jne     GAMEINIT_error

     ;load in all sprite frames for game at once,
     ;then convert to a directdraw surface for blitting
     invoke  DDLoadBmpImage, starferfile
     invoke  DDCreateSurfaceFromBmp, 0
     invoke  DDUnLoadBmpImage

     ;set clip region of Directdraw commands
     invoke  DDSetClipRectangles, screenrect, 1

     ;set the clip reigion to full screen
     invoke  DDSetSoftClipRegion, 0, 0, SCREENWIDTH, SCREENHEIGHT

     ;set software drawing to 8-bit palettized mode
     invoke  DDSetDrawMode8, 0
     finit

     ;initialize Star animation structures
     call    InitStars

     ;initialize rock animation structures
     call    InitRocks

     ;initialize starferret animation structures (main character)
     call    InitStarferret

     ;initialize starferret plasma  animation structures (gun fire)
     call    InitPlasma

     ;initialize bursts animation structures (explosions)
     call    InitBursts

     ;Starferret Game Introduction Introduction
     call    DoIntro

     ;Intialize 3 large rocks to start
     ;set there speed and direction
     mov     [index],0
     .repeat
             ;random float between -2 to 2 (X - direction and speed)
             fld     [fxvhi]
             fld     [fxvlow]
             invoke  RndSetFRange
             invoke  RndFRange
             fstp    [tempx1]

             ;random float between 0 and 4 (Y - direction and speed)
             fld     [fyvhi]
             fldz
             invoke  RndSetFRange
             invoke  RndFRange
             fadd    [fxvhi]
             fstp    [tempy1]

             ;random integer between 0 and SCREENWIDTH-1
             invoke  RndInt32Range,0,SCREENWIDTH-1
             mov     [tempx0],eax
             mov     [tempy0],0
             fild    [tempx0]
             fild    [tempy0]
             fstp    [tempy0]
             fstp    [tempx0]

             ;get the rock ready for drawing
             stdcall StartRock, [tempx0], [tempy0], ROCKLARGE, [tempx1], [tempy1]

             ;loop 3 times for 3 rocks
             inc     [index]
     .until  [index], e, 3

     clc
     ret

GAMEINIT_error:
     stc
     ret
endp     

 proc StartRock  x, y, size, xv, yv
     ;this function starts a rock up.
     ;scan for a rock to initialize
     mov     [index],0
     mov     [saddr],0

StartRock_l2:
     mov     ecx,[saddr]
     mov     eax,[ecx+rocks.state]
     and     eax, DDSPRITEON
     jne     StartRock_next
             finit
             mov     ecx,[saddr]
             mov     eax,[ecx+rocks.ivars]
             cmp     eax,[size]
             jne     StartRock_next

             invoke  RndInt32Range, 0, 4
             mov     ecx,[saddr]
             add     eax,1
             mov     [ecx+rocks.animspeed],eax
             fld     [xv]
             fld     [yv]
             fstp    [ecx + rocks.dyv]
             fstp    [ecx + rocks.dxv]
             fld     [x]
             fld     [y]
             fstp    [ecx + rocks.fy]
             fstp    [ecx + rocks.fx]

             ;set strength of rock
             mov     eax,[size]
             cmp     eax,ROCKLARGE
             jne     StartRock_strength1
                     invoke  RndInt32Range,0,99
                     add     eax,100
                     mov     ecx,[saddr]
                     mov     [ecx+rocks.ivars+4],eax
                     jmp     StartRock_strengthdn

             StartRock_strength1:
             cmp     eax,ROCKMEDIUM
             jne     StartRock_strength2
                     invoke  RndInt32Range,0,29
                     add     eax,40
                     mov     ecx,[saddr]
                     mov     [ecx + rocks.ivars + 4],eax
                     jmp     StartRock_strengthdn

             StartRock_strength2:
                     mov     ecx,[saddr]
                     mov     dword [ecx + rocks.ivars + 4], 10

             StartRock_strengthdn:
             mov     ecx,[saddr]
             or      [ecx + rocks.state], DDSPRITEON
             jmp     StartRock_dn

StartRock_next:
     add     [index],1
     add     [saddr],sizeof.ANIM
     cmp     [index],MAXROCKS
     jne     StartRock_l2

StartRock_dn:
     clc
     ret
endp