; #########################################################################

     .386
     .model flat, stdcall
     option casemap :none  
; #########################################################################
     clRed equ 15
     include masm32includewindows.inc
     include masm32includeuser32.inc
     include masm32includegdi32.inc
     include masm32includekernel32.inc
     includelib masm32libuser32.lib
     includelib masm32libkernel32.lib
     includelib masm32libgdi32.lib

.DATA
     DT    db "PROBA",0
     Msg         db ' PROBA  '
     hMon          dd ?;      
.Data?;      hMon          dd ?;

   .code

start:;---------------------------
   push NULL
   call GetDC
   mov hMon,EAX;---------------------------
   push 000000000011111111111111b;цвет
   push 400
   push 400
   push hMon
   call SetPixel       ;---------------------------
   push 10
   push 10
   push 40
   push 40
   push hMon
   call Rectangle;---------------------------
   push 111111000000001111111111b
   push hMon
   call SetTextColor;---------------------------
   push 41
   push offset Msg
   push 10
   push 10
   push hMon
   call TextOut;    push 0
   call ExitProcess
end start