gas/testsuite/gas/tic54x/asg.s

   1 * asg/eval test substitution symbols
   2 * .eval value, symbol
   3 * .asg "string", symbol
   4 * .asg string, symbol
   5         .global L1,L2,L3,newlabel,end
   6         .sslist                         ; list line substitutions
   7         .text
   8         .asg    *ar0+, INC              ; replace a complete operand
   9         .asg    ar0, FP                 ; replace a sub-operand
  10         .asg    "add #1,a", doit        ; macro-style
  11         .asg    newlabel, LABEL         ; replace a label
  12         .asg    .word 0, PSEUDO         ; replace with a directive
  13
  14 L1:     add     #100,a
  15 L2:     ld      *FP+,a
  16 L3:     ld      INC,a
  17         .asg    0,L2
  18 LABEL:  add     #L2,a
  19         doit
  20         .asg    0, x
  21         .loop   5
  22         .eval   x+1,x
  23         .word   x
  24         .endloop
  25         PSEUDO
  26
  27 * Tests from 5.3.2
  28         .asg    AR0,FP
  29         .asg    *AR1+,Ind
  30         .asg    *AR1+0b,Rc_Prop
  31         .asg    "string",strng          ; NOTE: """string""" not supported
  32         .asg    "a,b,c",parms
  33         .asg    1,counter
  34         .loop   100
  35         .word   counter
  36         .eval   counter + 1, counter
  37         .endloop
  38 end:    .word   0x100
  39         .end