programs/macros.inc

   1 @^ fix macro comment {\r
   2 ^@ fix }\r
   3 \r
   4 ; --------------------------\r
   5 macro library [lname,fname]\r
   6 {\r
   7   forward\r
   8     dd __#lname#_library_table__,__#lname#_library_name__\r
   9   common\r
  10     dd 0\r
  11   forward\r
  12     align 4\r
  13     __#lname#_library_name__ db fname,0\r
  14 }\r
  15 \r
  16 macro import lname,[name,sname]\r
  17 {\r
  18   common\r
  19     align 4\r
  20     __#lname#_library_table__:\r
  21   forward\r
  22     if used name\r
  23       name dd __#name#_import_name__\r
  24     end if\r
  25   common\r
  26     dd 0\r
  27   forward\r
  28     if used name\r
  29       align 4\r
  30       __#name#_import_name__ db sname,0\r
  31     end if\r
  32 }\r
  33 \r
  34 macro export [name,sname]\r
  35 {\r
  36   forward\r
  37     dd __#name#_export_name__,name\r
  38   common\r
  39     dd 0\r
  40   forward\r
  41     align 4\r
  42     __#name#_export_name__ db sname,0\r
  43 }\r
  44 ; -------------------------\r
  45 \r
  46 macro m2m dest,src {\r
  47  push src\r
  48  pop  dest\r
  49 }\r
  50 \r
  51 \r
  52 macro iglobal {\r
  53   IGlobals equ IGlobals,\r
  54   macro __IGlobalBlock { }\r
  55 \r
  56 macro uglobal {\r
  57   UGlobals equ UGlobals,\r
  58   macro __UGlobalBlock { }\r
  59 \r
  60 endg fix }      ; Use endg for ending iglobal and uglobal blocks.\r
  61 \r
  62 \r
  63 macro IncludeIGlobals{\r
  64   macro IGlobals dummy,[n] \{ __IGlobalBlock\r
  65      purge __IGlobalBlock  \}\r
  66   match I, IGlobals \{ I \} }\r
  67 \r
  68 macro IncludeUGlobals{\r
  69   macro UGlobals dummy,[n] \{\r
  70     \common\r
  71       \local begin, size\r
  72       begin = $\r
  73       virtual at $\r
  74     \forward\r
  75       __UGlobalBlock\r
  76       purge __UGlobalBlock\r
  77     \common\r
  78       size = $ - begin\r
  79     end virtual\r
  80     rb size\r
  81   \}\r
  82   match U, UGlobals \{ U \} }\r
  83 \r
  84 uglobal\r
  85 endg\r
  86 \r
  87 iglobal\r
  88 endg\r
  89 \r
  90 \r
  91 ; new application structure\r
  92 macro meos_app_start\r
  93  {\r
  94   use32\r
  95   org 0x0\r
  96 \r
  97   db 'MENUET01'\r
  98   dd 0x01\r
  99   dd __start\r
 100   dd __end\r
 101   dd __memory\r
 102   dd __stack\r
 103 \r
 104   if used __params & ~defined __params\r
 105     dd __params\r
 106   else\r
 107     dd 0x0\r
 108   end if\r
 109 \r
 110   dd 0x0\r
 111  }\r
 112 MEOS_APP_START fix meos_app_start\r
 113 KOS_APP_START fix meos_app_start\r
 114 \r
 115 macro code\r
 116  {\r
 117   __start:\r
 118  }\r
 119 CODE fix code\r
 120 \r
 121 macro data\r
 122  {\r
 123   __data:\r
 124   IncludeIGlobals\r
 125  }\r
 126 DATA fix data\r
 127 \r
 128 macro udata\r
 129  {\r
 130   if used __params & ~defined __params\r
 131     __params:\r
 132       db 0\r
 133     __end:\r
 134       rb 255\r
 135   else\r
 136     __end:\r
 137   end if\r
 138   __udata:\r
 139   IncludeUGlobals\r
 140  }\r
 141 UDATA fix udata\r
 142 \r
 143 macro meos_app_end\r
 144  {\r
 145   align 32\r
 146   rb 2048\r
 147   __stack:\r
 148   __memory:\r
 149  }\r
 150 MEOS_APP_END fix meos_app_end\r
 151 KOS_APP_END fix meos_app_end\r
 152 \r
 153 \r
 154 ; macro for defining multiline text data\r
 155 struc mstr [sstring]\r
 156  {\r
 157   forward\r
 158     local ssize\r
 159     virtual at 0\r
 160       db sstring\r
 161       ssize = $\r
 162     end virtual\r
 163     dd ssize\r
 164     db sstring\r
 165   common\r
 166     dd -1\r
 167  }\r
 168 \r
 169 ; macro for defining multiline text data\r
 170 struc mls [sstring]\r
 171  {\r
 172   forward\r
 173     local ssize\r
 174     virtual at 0\r
 175       db sstring  ; mod\r
 176       ssize = $\r
 177     end virtual\r
 178     db ssize\r
 179     db sstring\r
 180   common\r
 181     db -1         ; mod\r
 182  }\r
 183 \r
 184 \r
 185 \r
 186 ; strings\r
 187 macro sz name,[data] {       ; [mike.dld]\r
 188  common\r
 189   if used name\r
 190    name db data\r
 191    .size = $-name\r
 192   end if\r
 193 }\r
 194 \r
 195 macro szZ name,[data] {      ; same as sz, but for zero terminated string [dunkaist]\r
 196  common\r
 197   if used name\r
 198    name db data,0\r
 199    .size = $-name-1\r
 200   end if\r
 201 }\r
 202 sz0 fix szZ\r
 203 \r
 204 macro lsz name,[lng,data] {  ; [mike.dld]\r
 205  common\r
 206   if used name\r
 207    label name\r
 208  forward\r
 209   if lang eq lng\r
 210    db data\r
 211   end if\r
 212  common\r
 213    .size = $-name\r
 214   end if\r
 215 }\r
 216 \r
 217 macro szc name,elsz,[data] {     ; [mike.dld]\r
 218  common\r
 219   local s,m\r
 220   m = 0\r
 221   if used name\r
 222    label name\r
 223  forward\r
 224    virtual at 0\r
 225     db data\r
 226     s = $\r
 227    end virtual\r
 228    d#elsz s\r
 229    if m < s\r
 230     m = s\r
 231    end if\r
 232    db data\r
 233  common\r
 234    .size = $-name\r
 235    .maxl = m\r
 236   end if\r
 237 }\r
 238 \r
 239 macro lszc name,elsz,[lng,data] {  ; [mike.dld]\r
 240  common\r
 241   local s,m,c\r
 242   m = 0\r
 243   c = 0\r
 244   if used name\r
 245    label name\r
 246  forward\r
 247   if lang eq lng\r
 248    virtual at 0\r
 249     db data\r
 250     s = $\r
 251    end virtual\r
 252    d#elsz s\r
 253    if m < s\r
 254     m = s\r
 255    end if\r
 256    db data\r
 257    c = c+1\r
 258   end if\r
 259  common\r
 260    .size  = $-name\r
 261    .maxl  = m\r
 262    .count = c\r
 263   end if\r
 264 }\r
 265 \r
 266 \r
 267 ; easy system call macro\r
 268 macro mpack dest, hsrc, lsrc\r
 269 {\r
 270   if (hsrc eqtype 0) & (lsrc eqtype 0)\r
 271     mov dest, (hsrc) shl 16 + lsrc\r
 272   else\r
 273     if (hsrc eqtype 0) & (~lsrc eqtype 0)\r
 274       mov dest, (hsrc) shl 16\r
 275       add dest, lsrc\r
 276     else\r
 277       mov dest, hsrc\r
 278       shl dest, 16\r
 279       add dest, lsrc\r
 280     end if\r
 281   end if\r
 282 }\r
 283 \r
 284 macro __mov reg,a,b {       ; mike.dld\r
 285  if (~a eq)&(~b eq)\r
 286    mpack reg,a,b\r
 287  else if (~a eq)&(b eq)\r
 288    mov reg,a\r
 289  end if\r
 290 }\r
 291 \r
 292 \r
 293 ;include 'config.inc'\r
 294 __CPU_type equ p5\r
 295 SYSENTER_VAR    equ 0\r
 296 \r
 297 macro mcall a,b,c,d,e,f,g {   ; [mike.dld], [Ghost]\r
 298  local  ..ret_point\r
 299  __mov eax,a\r
 300  __mov ebx,b\r
 301  __mov ecx,c\r
 302  __mov edx,d\r
 303  __mov esi,e\r
 304  __mov edi,f\r
 305  __mov ebp,g\r
 306 \r
 307  if __CPU_type eq p5\r
 308         int     0x40\r
 309  else\r
 310   if __CPU_type eq p6\r
 311         push    ebp\r
 312         mov     ebp, esp\r
 313         push    ..ret_point     ; it may be 2 or 5 byte\r
 314         sysenter\r
 315  ..ret_point:\r
 316         pop     edx\r
 317         pop     ecx\r
 318 \r
 319   else\r
 320    if __CPU_type eq k6\r
 321         push    ecx\r
 322         syscall\r
 323         pop     ecx\r
 324    else\r
 325         display 'ERROR : unknown CPU type (set to p5)', 10, 13\r
 326         __CPU_type equ p5\r
 327         int     0x40\r
 328    end if\r
 329   end if\r
 330  end if\r
 331 }\r
 332 \r
 333 \r
 334 ; -------------------------\r
 335 macro __header a,[b] {\r
 336  common\r
 337   use32\r
 338   org 0\r
 339   db 'MENUET',a\r
 340  forward\r
 341   if b eq\r
 342    dd 0\r
 343   else\r
 344    dd b\r
 345   end if\r
 346 }\r
 347 \r
 348 macro __section name {\r
 349  align 16\r
 350  label name\r
 351 }\r
 352 \r
 353 macro __func name {\r
 354  if ~used name\r
 355   display 'FUNC NOT USED: ',`name,13,10\r
 356  else\r
 357   align 4\r
 358   name:\r
 359   ;diff16 `name,0,name\r
 360 }\r
 361 \r
 362 macro endf { end if }\r
 363 \r
 364 macro diff16 title,l1,l2\r
 365  {\r
 366   local s,d\r
 367   s = l2-l1\r
 368   display title,': 0x'\r
 369   repeat 8\r
 370    d = '0' + s shr ((8-%) shl 2) and $0F\r
 371    if d > '9'\r
 372     d = d + 'A'-'9'-1\r
 373    end if\r
 374    display d\r
 375   end repeat\r
 376   display 13,10\r
 377  }\r
 378 \r
 379 macro diff10 title,l1,l2\r
 380  {\r
 381   local s,d,z,m\r
 382   s = l2-l1\r
 383   z = 0\r
 384   m = 1000000000\r
 385   display title,': '\r
 386   repeat 10\r
 387    d = '0' + s / m\r
 388    s = s - (s/m)*m\r
 389    m = m / 10\r
 390    if d <> '0'\r
 391     z = 1\r
 392    end if\r
 393    if z <> 0\r
 394     display d\r
 395    end if\r
 396   end repeat\r
 397   display 13,10\r
 398  }\r
 399 \r
 400 \r
 401 macro movi arg1,arg2\r
 402 {\r
 403 if (arg1 in <eax,ebx,ecx,edx,esi,edi,ebp,esp>) & ((arg2 eqtype 0) | (arg2 eqtype '0'))\r
 404   if (arg2) = 0\r
 405     xor arg1,arg1\r
 406   else if (arg2) = 1\r
 407     xor arg1,arg1\r
 408     inc arg1\r
 409   else if (arg2) = -1\r
 410     or arg1,-1\r
 411   else if (arg2) >= -128 & (arg2) <= 127\r
 412     push arg2\r
 413     pop arg1\r
 414   else\r
 415     mov arg1,arg2\r
 416   end if\r
 417 else\r
 418   mov arg1,arg2\r
 419 end if\r
 420 }\r
 421 \r
 422 \r
 423 macro RGB [a] {\r
 424  common\r
 425   match (r=,g=,b),a \{\r
 426    \dd ((r) shl 16) or ((g) shl 8) or (b)\r
 427   \}\r
 428 }\r
 429 \r
 430 \r
 431 struc POINT _t,_dx,_dy {\r
 432  .x _t _dx\r
 433  .y _t _dy\r
 434 }\r
 435 \r
 436 ; structure definition helper\r
 437 include 'struct.inc'\r
 438 \r
 439 struct RECT\r
 440   left   dd ?\r
 441   top    dd ?\r
 442   right  dd ?\r
 443   bottom dd ?\r
 444 ends\r
 445 \r
 446 struct BOX\r
 447   left   dd ?\r
 448   top    dd ?\r
 449   width  dd ?\r
 450   height dd ?\r
 451 ends\r
 452 \r
 453 ; structures used in KolibriOS\r
 454 struct process_information\r
 455   cpu_usage               dd ?  ; +0\r
 456   window_stack_position   dw ?  ; +4\r
 457   window_stack_value      dw ?  ; +6\r
 458                           dw ?  ; +8\r
 459   process_name            rb 12 ; +10\r
 460   memory_start            dd ?  ; +22\r
 461   used_memory             dd ?  ; +26\r
 462   PID                     dd ?  ; +30\r
 463   box                     BOX   ; +34\r
 464   slot_state              dw ?  ; +50\r
 465                           dw ?  ; +52\r
 466   client_box              BOX   ; +54\r
 467   wnd_state               db ?  ; +70\r
 468   event_mask              dd ?  ; +71\r
 469   keyboard_mode           db ?  ; +75\r
 470   rb (1024-76)\r
 471 ends\r
 472 \r
 473 struct system_colors\r
 474   frame            dd ? ;nonset1\r
 475   grab             dd ? ;nonset2\r
 476   work_dark        dd ?\r
 477   work_light       dd ?\r
 478   grab_text        dd ? ;window_title\r
 479   work             dd ?\r
 480   work_button      dd ?\r
 481   work_button_text dd ?\r
 482   work_text        dd ?\r
 483   work_graph       dd ?\r
 484 ends\r
 485 \r
 486 struct FILEDATE\r
 487   Second db ?\r
 488   Minute db ?\r
 489   Hour   db ?\r
 490          db ?\r
 491   Day    db ?\r
 492   Month  db ?\r
 493   Year   dw ?\r
 494 ends\r
 495 \r
 496 struct FILEINFO\r
 497   Attributes dd ?\r
 498   IsUnicode  db ?\r
 499              db 3 dup(?)\r
 500   DateCreate FILEDATE\r
 501   DateAccess FILEDATE\r
 502   DateModify FILEDATE\r
 503   Size       dq ?\r
 504 ends\r
 505 \r
 506 cmove   fix     cmovz\r
 507 \r
 508 macro cmovz reg1, reg2 {\r
 509 \r
 510         local   ..jumpaddr\r
 511 \r
 512 if __CPU_type eq p5             ; CMOVcc isnt supported on the P5\r
 513         jnz     ..jumpaddr\r
 514         mov     reg1, reg2\r
 515   ..jumpaddr:\r
 516 else\r
 517         cmovz   reg1, reg2\r
 518 end if\r
 519 \r
 520 }\r
 521 \r
 522 cmovne  fix     cmovnz\r
 523 \r
 524 macro cmovnz reg1, reg2 {\r
 525 \r
 526         local   ..jumpaddr\r
 527 \r
 528 if __CPU_type eq p5             ; CMOVcc isnt supported on the P5\r
 529         jz      ..jumpaddr\r
 530         mov     reg1, reg2\r
 531   ..jumpaddr:\r
 532 else\r
 533         cmovnz  reg1, reg2\r
 534 end if\r
 535 \r
 536 }\r
 537 \r
 538 macro cmovg reg1, reg2 {\r
 539 \r
 540         local   ..jumpaddr\r
 541 \r
 542 if __CPU_type eq p5             ; CMOVcc isnt supported on the P5\r
 543         jle     ..jumpaddr\r
 544         mov     reg1, reg2\r
 545   ..jumpaddr:\r
 546 else\r
 547         cmovg   reg1, reg2\r
 548 end if\r
 549 }\r
 550 \r
 551 macro cmovl reg1, reg2 {\r
 552 \r
 553         local   ..jumpaddr\r
 554 \r
 555 if __CPU_type eq p5             ; CMOVcc isnt supported on the P5\r
 556         jge     ..jumpaddr\r
 557         mov     reg1, reg2\r
 558   ..jumpaddr:\r
 559 else\r
 560         cmovl   reg1, reg2\r
 561 end if\r
 562 }\r
 563 \r
 564 ; replaces /programs/cmp.inc\r
 565 irp cond, e, ne, g, ng, l, nl, ge, le {\r
 566   macro cmp#cond a, b, c\{\r
 567     cmp a, b\r
 568     j#cond c\r
 569   \}\r
 570 }\r
 571 \r
 572 ; constants\r
 573 \r
 574 ; button flags\r
 575 BT_DEL         = 0x80000000\r
 576 BT_HIDE        = 0x40000000\r
 577 BT_NOFRAME     = 0x20000000\r
 578 \r
 579 ; events\r
 580 EV_IDLE        = 0\r
 581 EV_TIMER       = 0\r
 582 EV_REDRAW      = 1\r
 583 EV_KEY         = 2\r
 584 EV_BUTTON      = 3\r
 585 EV_EXIT        = 4\r
 586 EV_BACKGROUND  = 5\r
 587 EV_MOUSE       = 6\r
 588 EV_IPC         = 7\r
 589 EV_STACK       = 8\r
 590 \r
 591 ; event mask bits for function 40\r
 592 EVM_REDRAW     =          1b\r
 593 EVM_KEY        =         10b\r
 594 EVM_BUTTON     =        100b\r
 595 EVM_EXIT       =       1000b\r
 596 EVM_BACKGROUND =      10000b\r
 597 EVM_MOUSE      =     100000b\r
 598 EVM_IPC        =    1000000b\r
 599 EVM_STACK      =   10000000b\r
 600 EVM_DEBUG      =  100000000b\r
 601 EVM_STACK2     = 1000000000b\r
 602 \r
 603 EVM_MOUSE_FILTER  = 0x80000000\r
 604 EVM_CURSOR_FILTER = 0x40000000\r