gas/testsuite/gasp/pl3.asm

   1         .ALTERNATE
   2
   3 foo     MACRO   string
   4         LOCAL   lab1, lab2
   5 lab1:   DATA.L  lab2
   6 lab2:   SDATA   string
   7         ENDM
   8
   9         foo     "An example"
  10         foo     "using LOCAL"
  11
  12 ! test of LOCAL directive
  13
  14 chk_err MACRO   limit
  15         LOCAL           skip !! frob
  16         LOCAL           zap,dog,barf
  17 barf:   cmp             ax,limit        !! check value against
  18                                         !! limit
  19         jle             skip            !! skip call if OK
  20 skip:   call            error
  21         foo             dog
  22         zap             dog
  23         nop
  24         ENDM
  25
  26         chk_err 5
  27         chk_err 10
  28
  29
  30         END