Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

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