proc oneTimeSystemInit, test

     invoke  Direct3DCreate9, D3D_SDK_VERSION
     .if     eax = NULL
             invoke  MessageBox, NULL, "Direct3DCreate9()", "ERROR", MB_OK or MB_ICONERROR
             invoke  PostQuitMessage, 0
             return  FALSE
     .endif
     mov     [pD3D], eax

     D3DCALL pD3D, GetAdapterDisplayMode, D3DADAPTER_DEFAULT, d3ddm
     .if     eax <> D3D_OK
             invoke  MessageBox, HWND_DESKTOP, "D3D->GetAdapterDisplayMode()", "ERROR",\
                     MB_OK or MB_ICONERROR
             invoke  PostQuitMessage, 0
             return
     .endif

     mov     [d3dpp.Windowed], TRUE
     mov     [d3dpp.SwapEffect], D3DSWAPEFFECT_DISCARD
     mov     eax, [d3ddm.Format]
     mov     [d3dpp.BackBufferFormat], eax
     mov     [d3dpp.EnableAutoDepthStencil], TRUE
     mov     [d3dpp.AutoDepthStencilFormat], D3DFMT_D16
     mov     [d3dpp.Presentation_Interval], D3DPRESENT_INTERVAL_IMMEDIATE

     D3DCALL pD3D, CreateDevice, D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, [hWnd],\
             D3DCREATE_SOFTWARE_VERTEXPROCESSING, d3dpp, pd3dDevice
     .if     eax <> D3D_OK | [pd3dDevice] = NULL
             invoke  MessageBox, [hWnd], "D3D->CreateDevice()", "ERROR", MB_OK or MB_ICONERROR
             invoke  PostQuitMessage, 0
             return
     .endif

     ;Setup a material for the teapot
     finit
     fldz
     fstp    [teapotMtrl.Diffuse.r]
     fld1
     fst     [teapotMtrl.Diffuse.g]
     fst     [teapotMtrl.Diffuse.b]
     fst     [teapotMtrl.Diffuse.a]
     fst     [teapotMtrl.Specular.r]
     fst     [teapotMtrl.Specular.g]
     fst     [teapotMtrl.Specular.b]
     fstp    [teapotMtrl.Specular.a]
     fldd    40.0
     fstp    [teapotMtrl.Power]

     ;Setup a material for the textured quad
     fld1
     fst     [quadMtrl.Diffuse.r]
     fst     [quadMtrl.Diffuse.g]
     fst     [quadMtrl.Diffuse.b]
     fst     [quadMtrl.Diffuse.a]
     fst     [quadMtrl.Specular.r]
     fst     [quadMtrl.Specular.g]
     fst     [quadMtrl.Specular.b]
     fstp    [quadMtrl.Specular.a]
     fldd    40.0
     fstp    [quadMtrl.Power]

     ;Setup a simple directional light and some ambient
     mov     [pLight0.Type], D3DLIGHT_DIRECTIONAL
     fld1
     fstp    [pLight0.Direction.x]
     fldz
     fstp    [pLight0.Direction.y]
     fld1
     fst     [pLight0.Direction.z]
     fst     [pLight0.Diffuse.r]
     fst     [pLight0.Diffuse.g]
     fst     [pLight0.Diffuse.b]
     fst     [pLight0.Diffuse.a]
     fst     [pLight0.Specular.r]
     fst     [pLight0.Specular.g]
     fst     [pLight0.Specular.b]
     fstp    [pLight0.Specular.a]

     ;Any resources or settings that need to be restored after losing the
     ;DirectD device should probably be grouped together into one function so
     ;they can be re-created or reset in one call.
     call    restoreDeviceObjects
     return
endp
    

macro return retval {
       if ~ retval eq
          mov eax, retval
       end if
       ret
}    

proc oneTimeSystemInit test    

What is the definition of "restoreDeviceObjects"? Your code also crash if you add a "test2" parameter?

It is usual to write the first parameter without a comma

macro fildd i32 {
      push    i32
      fild    dword [esp]
      sub     esp, 4
}

macro fldd f32 {
      pushd   f32
      fld     dword [esp]
      sub     esp, 4
}

macro fildq i64 {
      pushd   double i64
      fild    qword [esp]
      sub     esp, 8
}

macro fldq f64 {
      pushd   double f64
      fld     qword [esp]
      sub     esp, 8
}    

macro fldq dfloat {
     local ..mynumber, ..here
     fld [..mynumber]
     jmp ..here
     align 8
     ..mynumber dq dfloat
  ..here:
}

macro fldd dfloat {
     local ..mynumber, ..here
     fld [..mynumber]
     jmp ..here
     align 4
     ..mynumber dd dfloat
  ..here:
}

macro fildd integer {
     local ..mynumber, ..here
     jmp ..here
     align 4
     ..mynumber dd integer
..here:
     fild [..mynumber]
}

macro fildq integer {
     local ..mynumber, ..here
     jmp ..here
     align 8
     ..mynumber dq integer
..here:
     fild [..mynumber]
}