Subversion Repositories Kolibri OS

Rev

Rev 109 | Blame | Last modification | View Log | Download | RSS feed

  1. center       fix false
  2. SYSTEMCOLORS fix sc
  3. PROCESSINFO  fix pinfo
  4.  
  5. macro get_sys_colors wnd_skin,font_1 {
  6.  mcall 48,3,SYSTEMCOLORS,sizeof.system_colors
  7.  if wnd_skin <> 0
  8.   or [SYSTEMCOLORS+system_colors.work],0x03000000
  9.  end if
  10.  if font_1 <> 0
  11.   or [SYSTEMCOLORS+system_colors.grab_text],0x10000000
  12.  end if
  13. }
  14.  
  15. macro draw_caption _edx,_esi {
  16.  mov  edx,_edx
  17.  mov  esi,_esi
  18.  call __draw_caption
  19. }
  20.  
  21. macro mmov reg,a1,a2 {
  22.  mov reg,(a1) shl 16 + (a2)
  23. }
  24.  
  25. macro madd reg,a1,a2 {
  26.  add reg,(a1) shl 16 + (a2)
  27. }
  28.  
  29. macro msub reg,a1,a2 {
  30.  sub reg,(a1) shl 16 + (a2)
  31. }
  32.  
  33. macro jmpe reg,def,[val,lab] {
  34.  forward
  35.   cmp reg,val
  36.   je  lab
  37.  common
  38.   if ~def eq
  39.    jmp def
  40.   end if
  41. }
  42.  
  43. macro func name {
  44.  if used name
  45.   name:
  46. }
  47.  
  48. macro endf {
  49.  end if
  50. }
  51.  
  52. @^ fix macro comment {
  53. ^@ fix }
  54.