struc SystemColors {
 .frame       dd ?
 .grab        dd ?
 .grabBtnFace dd ?
 .grabBtnText dd ?
 .grabText    dd ?
 .work        dd ?
 .workBtnFace dd ?
 .workBtnText dd ?
 .workText    dd ?
 .workGraph   dd ?
}

macro mov reg,a1,a2 {
 if a2 eq
  mov reg,a1
 else
  mov reg,a1*65536+a2
 end if
}

macro add reg,a1,a2 {
 if a2 eq
  add reg,a1
 else
  add reg,a1*65536+a2
 end if
}

macro or reg,a1,a2 {
 if a2 eq
  or reg,a1
 else
  or reg,a1*65536+a2
 end if
}

macro BeginPaint {
 mov  eax,12
 mov  ebx,1
 int40
}

macro EndPaint {
 mov  eax,12
 mov  ebx,2
 int40
}

macro mov2 reg32,reg16,a1,a2 {
 if a1 eqtype 0
  if a2 eqtype 0
   if a1 <> -1
    if a2 <> -1
     mov  reg32,a1,a2
    else
     and  reg32,0x0000ffff
     or   reg32,a1,0
    end if
   else
    if a2 <> -1
     mov  reg16,a2
    end if
   end if
  else
   if a1 <> -1
    mov  reg32,a1,0
   end if
   if a2 eqtype []
    mov  reg16,word a2
   else
    mov  reg16,a2
   end if
  end if
 else
  if ~a2 eqtype 0 | a2 <> -1
   if a1 eqtype []
    mov  reg16,word a1
   else
    mov  reg16,a1
   end if
   shl  reg32,16
   if a2 eqtype []
    mov  reg16,word a2
   else
    mov  reg16,a2
   end if
  else
   push reg16
   if a1 eqtype []
    mov  reg16,word a1
   else
    mov  reg16,a1
   end if
   shl  reg32,16
   pop  reg16
  end if
 end if
}

macro DrawWindow wL,wT,wW,wH,dTP,dTL,dCB {
 xor  eax,eax
 mov2 ebx,bx,wL,wW
 mov2 ecx,cx,wT,wH
 mov  edx,[sc.work]
 or   edx,0x02000000
 mov  esi,[sc.grab]
 or   esi,0x80000000
 mov  edi,[sc.frame]
 int40
 if dTP eqtype 0 & dTP <> -1
  mov  eax,4
  mov  ebx,8,8
  mov  ecx,[sc.grabText]
  mov  edx,dTP
  mov  esi,dTL
  int40
 end if
 if ~dCB eq
  if dCB <> -1
   mov  eax,8
   mov  ebx,(wW-19),12
   mov  ecx,4,12
   mov  edx,dCB
   mov  esi,[sc.grabBtnFace]
   int40
  end if
 end if
}    

; language for programs
lang equ ru ; ru en fr ge fi

; optimize the code for size
macro add arg1,arg2
{
   if arg1 in <eax,ebx,ecx,edx,esi,edi,ebp,esp>
      if arg2 eqtype 0
         if arg2 = 1
            inc arg1
         else
            add arg1,arg2
         end if
      else
         add arg1,arg2
      end if
   else
      add arg1,arg2
   end if
}

macro sub arg1,arg2
{
   if arg2 eqtype 0
      if arg2 = 1
         dec arg1
      else
         sub arg1,arg2
      end if
   else
      sub arg1,arg2
   end if
}

macro mov arg1,arg2
{
   if arg1 in <eax,ebx,ecx,edx,esi,edi,ebp,esp>
      if arg2 eqtype 0
         if arg2 = 0
            xor arg1,arg1
         else if arg2 = 1
            xor arg1,arg1
            inc arg1
         else if arg2 = -1
            or  arg1,-1
         else if arg2 > -128 & arg2 < 128
            push arg2
            pop  arg1
         else
            mov  arg1,arg2
         end if
      else
         mov arg1,arg2
      end if
   else
      mov arg1,arg2
   end if
}

; structures used in MeOS
struc process_information
{
  .cpu_usage               dd ?  ; +0
  .window_stack_position   dw ?  ; +4
  .window_stack_value      dw ?  ; +6
  .not_used1               dw ?  ; +8
  .process_name            rb 12 ; +10
  .memory_start            dd ?  ; +22
  .used_memory             dd ?  ; +26
  .PID                     dd ?  ; +30
  .x_start                 dd ?  ; +34
  .y_start                 dd ?  ; +38
  .x_size                  dd ?  ; +42
  .y_size                  dd ?  ; +46
  .slot_state              dw ?  ; +50
  rb (1024-52)
}

struc system_colors
{
  .frame            dd ?
  .grab             dd ?
  .grab_button      dd ?
  .grab_button_text dd ?
  .grab_text        dd ?
  .work             dd ?
  .work_button      dd ?
  .work_button_text dd ?
  .work_text        dd ?
  .work_graph       dd ?
}

macro debug_print [str]
{
   local string

   jmp @f
   string db str,0
  @@:

   pushad
   mov  edx,string
   call debug_outstr
   popad
}

if defined DEBUG
debug_outstr:
   mov  eax,63
   mov  ebx,1
 @@:
   mov  cl,[edx]
   test cl,cl
   jz   @f
   int  40h
   inc  edx
   jmp  @b
 @@:
   ret
end if
    

macro WMDispatch var, [msg] {
common       
    mov eax, var
forward
     cmp eax, msg
        je .#msg
}

macro HandleButtons var, [button] {
common
        mov     eax, var
    mov     edx, eax
    shr     edx, 16
     and     eax, 0FFFFh
 cmp edx,BN_CLICKED
  jne .skip
forward
        cmp eax, button
     je .#button
common
.skip:
}

;Example:
proc WndProc, .hWnd, .uMsg, .wParam, .lParam
enter
 WMDispatch [.uMsg], WM_PAINT, WM_COMMAND, WM_CREATE

.Default:
    invoke DefWindowProc, [.hWnd], [.uMsg], [.wParam], [.lParam]
        return
      
.WM_CREATE:
;        Initialisation code here
    jmp .Exit

.WM_PAINT:
;    Painting code here
  jmp .Exit
   
.WM_COMMAND:
        HandleButtons [.wParam], IDC_BTN1, IDC_BTN2, IDC_BTN3
       jmp .Default
        
    .IDC_BTN1:
;             Code to handle button click
         jmp .Exit
             
  .IDC_BTN2:
;             Code to handle button click
         jmp .Exit
           
    .IDC_BTN3:
;             Code to handle button click
         jmp .Exit

.Exit:
 xor eax, eax
return