Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 31 | halyavin | 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 mpack dest, hsrc, lsrc |
||
| 22 | { |
||
| 23 | if (hsrc eqtype 0) & (lsrc eqtype 0) |
||
| 24 | mov dest, (hsrc) shl 16 + lsrc |
||
| 25 | else |
||
| 26 | if (hsrc eqtype 0) & (~lsrc eqtype 0) |
||
| 27 | mov dest, (hsrc) shl 16 |
||
| 28 | add dest, lsrc |
||
| 29 | else |
||
| 30 | mov dest, hsrc |
||
| 31 | shl dest, 16 |
||
| 32 | add dest, lsrc |
||
| 33 | end if |
||
| 34 | end if |
||
| 35 | } |
||
| 36 | |||
| 37 | macro __mov reg,a,b { |
||
| 38 | if (~a eq)&(~b eq) |
||
| 39 | mpack reg,a,b |
||
| 40 | else if (~a eq)&(b eq) |
||
| 41 | mov reg,a |
||
| 42 | end if |
||
| 43 | } |
||
| 44 | |||
| 45 | macro mcall a,b,c,d,e,f { |
||
| 46 | __mov eax,a |
||
| 47 | __mov ebx,b |
||
| 48 | __mov ecx,c |
||
| 49 | __mov edx,d |
||
| 50 | __mov esi,e |
||
| 51 | __mov edi,f |
||
| 52 | int 0x40 |
||
| 53 | } |
||
| 54 | |||
| 55 | macro sz name,[data] { |
||
| 56 | if used name |
||
| 57 | common |
||
| 58 | label name |
||
| 59 | forward |
||
| 60 | db data |
||
| 61 | common |
||
| 62 | .size = $-name |
||
| 63 | end if |
||
| 64 | } |
||
| 65 | |||
| 66 | macro lsz name,[lng,data] { |
||
| 67 | if used name |
||
| 68 | common |
||
| 69 | label name |
||
| 70 | forward |
||
| 71 | if lang eq lng |
||
| 72 | db data |
||
| 73 | end if |
||
| 74 | common |
||
| 75 | .size = $-name |
||
| 76 | end if |
||
| 77 | } |
||
| 78 | |||
| 79 | macro mmov reg,a1,a2 { |
||
| 80 | mov reg,(a1) shl 16 + (a2) |
||
| 81 | } |
||
| 82 | |||
| 83 | macro madd reg,a1,a2 { |
||
| 84 | add reg,(a1) shl 16 + (a2) |
||
| 85 | } |
||
| 86 | |||
| 87 | macro msub reg,a1,a2 { |
||
| 88 | sub reg,(a1) shl 16 + (a2) |
||
| 89 | } |
||
| 90 | |||
| 91 | macro jmpe reg,def,[val,lab] { |
||
| 92 | forward |
||
| 93 | cmp reg,val |
||
| 94 | je lab |
||
| 95 | common |
||
| 96 | if ~def eq |
||
| 97 | jmp def |
||
| 98 | end if |
||
| 99 | } |
||
| 100 | |||
| 101 | macro func name { |
||
| 102 | if used name |
||
| 103 | name: |
||
| 104 | } |
||
| 105 | |||
| 106 | macro endf { |
||
| 107 | end if |
||
| 108 | } |
||
| 109 | |||
| 110 | @^ fix macro comment { |
||
| 111 | ^@ fix } |
||
| 112 | |||
| 113 | ; structure definition helper |
||
| 114 | |||
| 115 | ;include '%fasminc%struct.inc' |
||
| 116 | include 'struct.inc' |
||
| 117 | |||
| 118 | ; structures used in MeOS |
||
| 119 | struct process_information |
||
| 120 | cpu_usage dd ? ; +0 |
||
| 121 | window_stack_position dw ? ; +4 |
||
| 122 | window_stack_value dw ? ; +6 |
||
| 123 | not_used1 dw ? ; +8 |
||
| 124 | process_name db 12 dup(?) ; +10 |
||
| 125 | memory_start dd ? ; +22 |
||
| 126 | used_memory dd ? ; +26 |
||
| 127 | PID dd ? ; +30 |
||
| 128 | x_start dd ? ; +34 |
||
| 129 | y_start dd ? ; +38 |
||
| 130 | x_size dd ? ; +42 |
||
| 131 | y_size dd ? ; +46 |
||
| 132 | slot_state dw ? ; +50 |
||
| 133 | not_used2 db 1024-52 dup(?) |
||
| 134 | ends |
||
| 135 | |||
| 136 | struct system_colors |
||
| 137 | frame dd ? |
||
| 138 | grab dd ? |
||
| 139 | grab_button dd ? |
||
| 140 | grab_button_text dd ? |
||
| 141 | grab_text dd ? |
||
| 142 | work dd ? |
||
| 143 | work_button dd ? |
||
| 144 | work_button_text dd ? |
||
| 145 | work_text dd ? |
||
| 146 | work_graph dd ? |
||
| 147 | ends |