gas/testsuite/gas/tic54x/macro.s

   1 * Macro test\r
   2         .sslist\r
   3         .text\r
   4         .global abc, def, ghi, adr\r
   5         \r
   6 * Macro library; load and use a macro in macros.lib\r
   7         .mlib "macros.lib"\r
   8 \r
   9         IN_MLIB abc,def,ghi\r
  10 \r
  11 add3    .macro  P1,P2,P3,ADDRP\r
  12         ld      P1,a                    \r
  13         add     P2,a                    \r
  14         add     P3,a                    \r
  15         stl     a,ADDRP                 \r
  16         .endm\r
  17         add3    abc, def, ghi, adr\r
  18         \r
  19 * Forced substitution within a macro\r
  20 force   .macro  x\r
  21         .asg    0, x\r
  22         .loop 8\r
  23 AUX:x:  .set    x\r
  24         .eval   x+1,x\r
  25         .endloop                \r
  26         .endm\r
  27         force\r
  28         \r
  29 * Subsripted substitution symbols\r
  30 ADDX    .macro  ABC\r
  31         .var    TMP\r
  32         .asg    :ABC(1):,TMP    \r
  33         .if     $symcmp(TMP,"#") == 0\r
  34         ADD     ABC,A\r
  35         .else\r
  36         .emsg   "Bad macro parameter 'ABC'"\r
  37         .endif\r
  38         .endm\r
  39         ADDX    #100                    ; ADD #100,A\r
  40         .end\r