Subversion Repositories Kolibri OS

Rev

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

  1. oX = 6
  2. oY = 22+3
  3. tW = 6
  4. tH = 9
  5.  
  6. VK_TAB    =   9
  7. VK_RETURN =  13
  8. VK_ESCAPE =  27
  9. VK_F10    =  49
  10. VK_F5     =  54
  11. VK_LEFT   = 176
  12. VK_DOWN   = 177
  13. VK_UP     = 178
  14. VK_RIGHT  = 179
  15. VK_HOME   = 180
  16. VK_END    = 181
  17. VK_PGDOWN = 183
  18. VK_PGUP   = 184
  19.  
  20. VK_CTRLF3 = 212
  21. VK_CTRLF4 = 213
  22.  
  23. FA_READONLY = 00000001b
  24. FA_HIDDEN   = 00000010b
  25. FA_SYSTEM   = 00000100b
  26. FA_LABEL    = 00001000b
  27. FA_FOLDER   = 00010000b
  28. FA_ARCHIVED = 00100000b
  29.  
  30. struc mfar_colors {
  31.  .background dd $00000080
  32.  .default    dd $0000FFFF
  33.  .system     dd $00008080
  34.  .selection  dd $00009090
  35.  .folder     dd $00FFFFFF
  36.  .executable dd $0000FF00
  37.  .bitmap     dd $00FF00FF
  38.  .source     dd $00FF0000
  39.  .path       dd $00C0C0C0
  40.  .pathbg     dd $00000000
  41.  .keys       dd $00000000
  42.  .keysbg     dd $00008080
  43. }
  44. struct mfar_colors
  45.  
  46. macro __mov reg,a {
  47.  if ~a eq
  48.   mov reg,a
  49.  end if
  50. }
  51.  
  52. macro mcall a,b,c,d,e,f {
  53.  __mov eax,a
  54.  __mov ebx,b
  55.  __mov ecx,c
  56.  __mov edx,d
  57.  __mov esi,e
  58.  __mov edi,f
  59.  int   $40
  60. }
  61.  
  62. macro mcall1 a,b1,b2,c,d,e,f {
  63.  __mov eax,a
  64.  if (~b1 eq)|(~b2 eq)
  65.   mov ebx,(b1)*65536+(b2)
  66.  end if
  67.  __mov ecx,c
  68.  __mov edx,d
  69.  __mov esi,e
  70.  __mov edi,f
  71.  int   $40
  72. }
  73.  
  74. macro mcall2 a,b1,b2,c1,c2,d,e,f {
  75.  __mov eax,a
  76.  if (~b1 eq)|(~b2 eq)
  77.   mov ebx,(b1)*65536+(b2)
  78.  end if
  79.  if (~c1 eq)|(~c2 eq)
  80.   mov ecx,(c1)*65536+(c2)
  81.  end if
  82.  __mov edx,d
  83.  __mov esi,e
  84.  __mov edi,f
  85.  int   $40
  86. }
  87.  
  88. macro sz name,[data] {
  89.   common
  90.    if used name
  91.     label name
  92.    end if
  93.   forward
  94.    if used name
  95.     db data
  96.    end if
  97.   common
  98.    if used name
  99.     .size = $-name
  100.    end if
  101. }
  102.  
  103. macro lsz name,[lng,data] {
  104.   common
  105.    if used name
  106.     label name
  107.    end if
  108.   forward
  109.    if (used name)&(lang eq lng)
  110.     db data
  111.    end if
  112.   common
  113.    if used name
  114.     .size = $-name
  115.    end if
  116. }
  117.  
  118. macro mmov reg,a1,a2 {
  119.  mov reg,(a1)*65536+a2
  120. }
  121.  
  122. macro madd reg,a1,a2 {
  123.  add reg,(a1)*65536+a2
  124. }
  125.  
  126. macro msub reg,a1,a2 {
  127.  sub reg,(a1)*65536+a2
  128. }
  129.  
  130. macro jmpe reg,def,[val,lab] {
  131.  forward
  132.   cmp reg,val
  133.   je  lab
  134.  common
  135.   if ~def eq
  136.    jmp def
  137.   end if
  138. }
  139.  
  140. macro func name {
  141.  if used name
  142.   label name
  143. }
  144.  
  145. macro endf {
  146.  end if
  147. }