; data

  cfg db "intro4k.cfg",0
  dc dd ?
  devmode DEVMODE
  title db "intro4k",0
  msg dd ?
  of rb 136
  pfd PIXELFORMATDESCRIPTOR
  rc dd ?
  screen rd 7 ; bpp,width,height,0,frq,dpp,full
  style dd WS_POPUP or WS_SYSMENU or WS_CAPTION or WS_MINIMIZEBOX,WS_EX_APPWINDOW
  wndclassex dd sizeof.WNDCLASSEX,CS_VREDRAW or CS_HREDRAW or CS_OWNDC,wnd_proc,0,0,0,0,0,0,0,title,0
  wnd dd ?
  instance dd ?

; code

  main:
     xor edi,edi
     mov esi,screen

    ; getting configuration
      ... setting screen

    ; registering class
     ... RegisterClassEx

    ; changing resolution
     mov ebx,style
     cmp [esi+24],edi
     je .create_window

     mov [ebx],dword WS_POPUP
     mov eax,devmode
     mov [eax+36],word sizeof.DEVMODE
     mov [eax+38],dword DM_BITSPERPEL or DM_PELSHEIGHT or DM_PELSWIDTH or DM_DISPLAYFLAGS or DM_DISPLAYFREQUENCY
     lea ecx,[edi+5]
     lea edi,[eax+104]
     rep movsd
     sub esi,20
     xor edi,edi
     invoke ChangeDisplaySettings, eax,CDS_FULLSCREEN
     invoke ShowCursor, edi

    ; creating window
    .create_window:
     mov edx,title
     invoke CreateWindowEx, [ebx+4],edx,edx,[ebx],edi,edi,[esi+4],[esi+8],edi,edi,[ebx+20],edi
     mov [wnd],eax
     mov esi,eax
     invoke ShowWindow, eax,SW_SHOW

     mov ebx,msg
    @@:
     invoke PeekMessage, ebx,edi,edi,edi,PM_REMOVE
     or eax,eax
     jz .redraw
     cmp [ebx+4],dword WM_QUIT
     je .quit

     invoke TranslateMessage, ebx
     invoke DispatchMessage, ebx
     jmp @b

    .redraw:
     invoke InvalidateRect, esi,edi,edi
     jmp @b

    .quit:
     ret

...

     invoke GetDC, [hwnd]
     mov [dc],eax
     mov ebx,eax

     mov esi,screen

     xor eax,eax
     mov ecx,10

     mov edi,pfd
     rep stosd
     sub edi,40

     mov [edi],byte 40 ;is word
     mov [edi+2],byte 1 ;is word
     mov [edi+4],byte PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER ;is dword
     mov eax,[esi]
     mov [edi+9],al
     mov eax,[esi+20]
     mov [edi+23],al

     invoke ChoosePixelFormat, ebx,edi
     invoke SetPixelFormat, ebx,eax,edi
     invoke wglCreateContext, ebx
     mov [rc],eax
     invoke wglMakeCurrent, ebx,eax
     xor eax,eax
     invoke glViewport, eax,eax,[esi+4],[esi+8]

    

     mov esi,opengl
     invoke esi+wglCreateContext-opengl, ebx 
   ; ...
     invoke esi+wglMakeCurrent-opengl, ebx,eax
    

     mov esi,wglCreateContext
     invoke esi+wglCreateContext-wglCreateContext, ebx 
   ; ... 
     invoke esi+wglMakeCurrent-wglCreateContext, ebx,eax    

format PE GUI 4.0
entry start

include '%include%\win32a.inc'

  start:

        mov     esi,user
        mov     edi,wc
        macro   invoke proc,[arg] {common invoke esi+proc-user,arg}
        virtual at edi
        ediwc   WNDCLASS
        end     virtual

        invoke  GetModuleHandle,ebx
        mov     [ediwc.hInstance],eax
        invoke  LoadIcon,0,IDI_EXCLAMATION
        mov     [ediwc.hIcon],eax
        invoke  LoadCursor,0,IDC_ARROW
        mov     [ediwc.hCursor],eax
        xor     eax,eax
        mov     [ediwc.style],eax
        mov     [ediwc.lpfnWndProc],WindowProc
        mov     [ediwc.cbClsExtra],eax
        mov     [ediwc.cbWndExtra],eax
        mov     [ediwc.lpszMenuName],eax
        mov     [ediwc.hbrBackground],COLOR_BTNFACE+1
        mov     ebx,_title
        mov     [ediwc.lpszClassName],ebx
        invoke  RegisterClass,edi
        invoke  CreateWindowEx,0,ebx,ebx,WS_VISIBLE+WS_DLGFRAME+WS_SYSMENU,64,64,127,127,NULL,NULL,[ediwc.hInstance],NULL

        mov     ebx,msg
  msg_loop:
        invoke  GetMessage,ebx,NULL,0,0
        or      eax,eax
        jz      end_loop
        invoke  TranslateMessage,ebx
        invoke  DispatchMessage,ebx
        jmp     msg_loop

  end_loop:
        invoke  ExitProcess,0

proc WindowProc, hwnd,wmsg,wparam,lparam
        enter
        push    esi
        mov     esi,user
        cmp     [wmsg],WM_DESTROY
        je      wmdestroy
        invoke  DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]
        jmp     finish
  wmdestroy:
        invoke  PostQuitMessage,0
        xor     eax,eax
  finish:
        pop     esi
        return

data import

  library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL'

  import kernel,\
         GetModuleHandle,'GetModuleHandleA',\
         ExitProcess,'ExitProcess'

  import user,\
         RegisterClass,'RegisterClassA',\
         LoadIcon,'LoadIconA',\
         LoadCursor,'LoadCursorA',\
         CreateWindowEx,'CreateWindowExA',\
         DefWindowProc,'DefWindowProcA',\
         GetMessage,'GetMessageA',\
         TranslateMessage,'TranslateMessage',\
         DispatchMessage,'DispatchMessageA',\
         PostQuitMessage,'PostQuitMessage'

end data

  _title db '1024',0

  msg MSG
  wc WNDCLASS