gas/testsuite/gasp/mdouble.asm

   1
   2         .MACRO  HI
   3         A
   4         \! this is hidden
   5         B
   6         ! this is not
   7         C
   8         .ENDM
   9         Hello
  10         HI
  11         Emily
  12
  13
  14         H'0f
  15         200+H'0F
  16
  17 XX      .ASSIGNA        Q'100
  18 ! Definition:
  19         .MACRO  GET X=100,Y,Z
  20         MOV     #\X+H'0F,@B
  21         \Y
  22 \Z      JMP     @MAIN
  23 L\@     ADD     #1,@HL
  24         MOV     #0,@C   \! Clear C
  25         ADD     #2,@C
  26         ADD     #\&XX, @C
  27         .ENDM
  28
  29         NOP
  30
  31 !Call:
  32         GET     200,"ADD #1,@B", ENTRY
  33         .END
  34
  35         ; Definition:
  36
  37
  38         NOP
  39
  40         ;Call:
  41         MOV     #200+0F,@B
  42         ADD #1,@B
  43 ENTRY:  JMP     @MAIN
  44 L00000: ADD     #1,@HL
  45         MOV     #0,@C
  46         ADD     #2,@C
  47         ADD     #0, @C