Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 31 | halyavin | 1 | ; new application structure |
| 2 | macro meos_app_start |
||
| 3 | { |
||
| 4 | use32 |
||
| 5 | org 0x0 |
||
| 6 | |||
| 7 | db 'MENUET01' |
||
| 8 | dd 0x01 |
||
| 9 | dd __start |
||
| 10 | dd __end |
||
| 11 | dd __memory |
||
| 12 | dd __stack |
||
| 13 | |||
| 14 | if used __params & ~defined __params |
||
| 15 | dd __params |
||
| 16 | else |
||
| 17 | dd 0x0 |
||
| 18 | end if |
||
| 19 | |||
| 20 | dd 0x0 |
||
| 21 | } |
||
| 22 | MEOS_APP_START fix meos_app_start |
||
| 23 | |||
| 24 | macro code |
||
| 25 | { |
||
| 26 | __start: |
||
| 27 | } |
||
| 28 | CODE fix code |
||
| 29 | |||
| 30 | macro data |
||
| 31 | { |
||
| 32 | __data: |
||
| 33 | } |
||
| 34 | DATA fix data |
||
| 35 | |||
| 36 | macro udata |
||
| 37 | { |
||
| 38 | if used __params & ~defined __params |
||
| 39 | __params: |
||
| 40 | db 0 |
||
| 41 | __end: |
||
| 42 | rb 255 |
||
| 43 | else |
||
| 44 | __end: |
||
| 45 | end if |
||
| 46 | __udata: |
||
| 47 | } |
||
| 48 | UDATA fix udata |
||
| 49 | |||
| 50 | macro meos_app_end |
||
| 51 | { |
||
| 52 | align 32 |
||
| 53 | rb 2048 |
||
| 54 | __stack: |
||
| 55 | __memory: |
||
| 56 | } |
||
| 57 | MEOS_APP_END fix meos_app_end |
||
| 58 | |||
| 59 | |||
| 60 | ; macro for defining multiline text data |
||
| 61 | struc mstr [sstring] |
||
| 62 | { |
||
| 63 | forward |
||
| 64 | local ssize |
||
| 65 | virtual at 0 |
||
| 66 | db sstring |
||
| 67 | ssize = $ |
||
| 68 | end virtual |
||
| 69 | dd ssize |
||
| 70 | db sstring |
||
| 71 | common |
||
| 72 | dd -1 |
||
| 73 | } |
||
| 74 | |||
| 75 | |||
| 76 | ; strings |
||
| 77 | macro sz name,[data] { ; from MFAR [mike.dld] |
||
| 78 | common |
||
| 79 | if used name |
||
| 80 | label name |
||
| 81 | end if |
||
| 82 | forward |
||
| 83 | if used name |
||
| 84 | db data |
||
| 85 | end if |
||
| 86 | common |
||
| 87 | if used name |
||
| 88 | .size = $-name |
||
| 89 | end if |
||
| 90 | } |
||
| 91 | |||
| 92 | macro lsz name,[lng,data] { ; from MFAR [mike.dld] |
||
| 93 | common |
||
| 94 | if used name |
||
| 95 | label name |
||
| 96 | end if |
||
| 97 | forward |
||
| 98 | if (used name)&(lang eq lng) |
||
| 99 | db data |
||
| 100 | end if |
||
| 101 | common |
||
| 102 | if used name |
||
| 103 | .size = $-name |
||
| 104 | end if |
||
| 105 | } |
||
| 106 | |||
| 107 | |||
| 108 | |||
| 109 | ; easy system call macro |
||
| 110 | macro mpack dest, hsrc, lsrc |
||
| 111 | { |
||
| 112 | if (hsrc eqtype 0) & (lsrc eqtype 0) |
||
| 113 | mov dest, (hsrc) shl 16 + lsrc |
||
| 114 | else |
||
| 115 | if (hsrc eqtype 0) & (~lsrc eqtype 0) |
||
| 116 | mov dest, (hsrc) shl 16 |
||
| 117 | add dest, lsrc |
||
| 118 | else |
||
| 119 | mov dest, hsrc |
||
| 120 | shl dest, 16 |
||
| 121 | add dest, lsrc |
||
| 122 | end if |
||
| 123 | end if |
||
| 124 | } |
||
| 125 | |||
| 126 | macro __mov reg,a { ; mike.dld |
||
| 127 | if ~a eq |
||
| 128 | mov reg,a |
||
| 129 | end if |
||
| 130 | } |
||
| 131 | |||
| 132 | macro mcall a,b,c,d,e,f { ; mike.dld |
||
| 133 | __mov eax,a |
||
| 134 | __mov ebx,b |
||
| 135 | __mov ecx,c |
||
| 136 | __mov edx,d |
||
| 137 | __mov esi,e |
||
| 138 | __mov edi,f |
||
| 139 | int 0x40 |
||
| 140 | } |
||
| 141 | |||
| 142 | |||
| 143 | |||
| 144 | |||
| 145 | |||
| 146 | |||
| 147 | |||
| 148 | ; optimize the code for size |
||
| 149 | __regs fix |
||
| 150 | |||
| 151 | macro add arg1,arg2 |
||
| 152 | { |
||
| 153 | if (arg2 eqtype 0) |
||
| 154 | if (arg2) = 1 |
||
| 155 | inc arg1 |
||
| 156 | else |
||
| 157 | add arg1,arg2 |
||
| 158 | end if |
||
| 159 | else |
||
| 160 | add arg1,arg2 |
||
| 161 | end if |
||
| 162 | } |
||
| 163 | |||
| 164 | macro sub arg1,arg2 |
||
| 165 | { |
||
| 166 | if (arg2 eqtype 0) |
||
| 167 | if (arg2) = 1 |
||
| 168 | dec arg1 |
||
| 169 | else |
||
| 170 | sub arg1,arg2 |
||
| 171 | end if |
||
| 172 | else |
||
| 173 | sub arg1,arg2 |
||
| 174 | end if |
||
| 175 | } |
||
| 176 | |||
| 177 | macro mov arg1,arg2 |
||
| 178 | { |
||
| 179 | if (arg1 in __regs) & (arg2 eqtype 0) |
||
| 180 | if (arg2) = 0 |
||
| 181 | xor arg1,arg1 |
||
| 182 | else if (arg2) = 1 |
||
| 183 | xor arg1,arg1 |
||
| 184 | inc arg1 |
||
| 185 | else if (arg2) = -1 |
||
| 186 | or arg1,-1 |
||
| 187 | else if (arg2) > -128 & (arg2) < 128 |
||
| 188 | push arg2 |
||
| 189 | pop arg1 |
||
| 190 | else |
||
| 191 | mov arg1,arg2 |
||
| 192 | end if |
||
| 193 | else |
||
| 194 | mov arg1,arg2 |
||
| 195 | end if |
||
| 196 | } |
||
| 197 | |||
| 198 | |||
| 199 | macro struct name |
||
| 200 | { |
||
| 201 | virtual at 0 |
||
| 202 | name name |
||
| 203 | sizeof.#name = $ - name |
||
| 204 | end virtual |
||
| 205 | } |
||
| 206 | |||
| 207 | ; structures used in MeOS |
||
| 208 | struc process_information |
||
| 209 | { |
||
| 210 | .cpu_usage dd ? ; +0 |
||
| 211 | .window_stack_position dw ? ; +4 |
||
| 212 | .window_stack_value dw ? ; +6 |
||
| 213 | .not_used1 dw ? ; +8 |
||
| 214 | .process_name rb 12 ; +10 |
||
| 215 | .memory_start dd ? ; +22 |
||
| 216 | .used_memory dd ? ; +26 |
||
| 217 | .PID dd ? ; +30 |
||
| 218 | .x_start dd ? ; +34 |
||
| 219 | .y_start dd ? ; +38 |
||
| 220 | .x_size dd ? ; +42 |
||
| 221 | .y_size dd ? ; +46 |
||
| 222 | .slot_state dw ? ; +50 |
||
| 223 | rb (1024-52) |
||
| 224 | } |
||
| 225 | struct process_information |
||
| 226 | |||
| 227 | struc system_colors |
||
| 228 | { |
||
| 229 | .frame dd ? |
||
| 230 | .grab dd ? |
||
| 231 | .grab_button dd ? |
||
| 232 | .grab_button_text dd ? |
||
| 233 | .grab_text dd ? |
||
| 234 | .work dd ? |
||
| 235 | .work_button dd ? |
||
| 236 | .work_button_text dd ? |
||
| 237 | .work_text dd ? |
||
| 238 | .work_graph dd ? |
||
| 239 | } |
||
| 240 | struct system_colors |
||
| 241 | |||
| 242 | |||
| 243 | ; constants |
||
| 244 | |||
| 245 | ; events |
||
| 246 | EV_IDLE = 0 |
||
| 247 | EV_TIMER = 0 |
||
| 248 | EV_REDRAW = 1 |
||
| 249 | EV_KEY = 2 |
||
| 250 | EV_BUTTON = 3 |
||
| 251 | EV_EXIT = 4 |
||
| 252 | EV_BACKGROUND = 5 |
||
| 253 | EV_MOUSE = 6 |
||
| 254 | EV_IPC = 7 |
||
| 255 | EV_STACK = 8 |
||
| 256 | |||
| 257 | ; event mask bits for function 40 |
||
| 258 | EVM_REDRAW = 1b |
||
| 259 | EVM_KEY = 10b |
||
| 260 | EVM_BUTTON = 100b |
||
| 261 | EVM_EXIT = 1000b |
||
| 262 | EVM_BACKGROUND = 10000b |
||
| 263 | EVM_MOUSE = 100000b |
||
| 264 | EVM_IPC = 1000000b |
||
| 265 | EVM_STACK = 10000000b |