gas/testsuite/gas/z80/unsup_regs.s

   1         .text
   2         .org    0
   3 _start:
   4 .ifdef NO_XYHL
   5         ld      a,ixl
   6 ixl:
   7         ld      b,ixh
   8 ixh:
   9         ld      c,iyl
  10 iyl:
  11         ld      d,iyh
  12 iyh:
  13 .else
  14         ld      a,ixl
  15         ld      ixh,a
  16         ld      b,ixh
  17         ld      ixl,b
  18         ld      c,iyl
  19         ld      iyh,c
  20         ld      d,iyh
  21         ld      iyl,d
  22 .endif
  23
  24 .ifdef NO_REG_F
  25 f:      ld      a,f
  26 .else
  27         in      f,(c)
  28 .endif
  29
  30 .ifdef NO_INDEX
  31 ix:     ld      hl,ix
  32 iy:     ld      bc,iy
  33         ld      a,(ix-1)
  34         ld      (iy+1),a
  35 .else
  36         add     ix,ix
  37         add     a,(ix+1)
  38         ld      ix,0x1234
  39         ld      iy,0x4321
  40         ld      (0x1234),iy
  41         ld      (iy-1),a
  42 .endif
  43
  44 .ifdef NO_REG_R
  45 r:      ld      a,r
  46         ld      (r),a
  47 .else
  48         ld      a,r
  49         ld      r,a
  50 .endif
  51
  52 .ifdef NO_REG_I
  53 i:      ld      a,i
  54         ld      (i),a
  55 .else
  56         ld      a,i
  57         ld      i,a
  58 .endif
  59
  60 .ifndef EZ80
  61 mb:     ld      hl,mb
  62         ld      a,mb
  63         ld      (mb),a
  64 .else
  65         .assume ADL=1
  66         ld      a,mb
  67         ld      mb,a
  68         .assume ADL=0
  69 .endif
  70
  71         .END