Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.         cpu     z180
  2.  
  3.         ; dummy value to avoid different errors in pass 1 & 2
  4. f       equ     10
  5.  
  6.         in0     a,(12h)
  7.         in0     (12h)
  8.         in0     f,(12h)
  9.         in0     b,(12h)
  10.         in0     c,(12h)
  11.         in0     d,(12h)
  12.         in0     e,(12h)
  13.         in0     h,(12h)
  14.         in0     l,(12h)
  15.  
  16.         out0    (12h),a
  17.         expect  1110            ; no implicit F reg for OUT0
  18.         out0    (12h)
  19.         endexpect
  20.         expect  1350            ; F not allowed as source for OUT0
  21.         out0    (12h),f
  22.         endexpect
  23.         out0    (12h),b
  24.         out0    (12h),c
  25.         out0    (12h),d
  26.         out0    (12h),e
  27.         out0    (12h),h
  28.         out0    (12h),l
  29.  
  30.         in      a,(c)
  31.         expect  1500            ; implicit F arg only allowed for Z80UNDOC
  32.         in      (c)
  33.         endexpect
  34.         in      f,(c)
  35.         in      b,(c)
  36.         in      c,(c)
  37.         in      d,(c)
  38.         in      e,(c)
  39.         in      h,(c)
  40.         in      l,(c)
  41.  
  42.         out     (c),a
  43.         expect  1110            ; no implicit F reg for OUT0
  44.         out     (c)
  45.         endexpect
  46.         expect  1500
  47.         out     (c),f           ; F not allowed for Z180 as reg, may be address on Z380
  48.         endexpect
  49.         out     (c),b
  50.         out     (c),c
  51.         out     (c),d
  52.         out     (c),e
  53.         out     (c),h
  54.         out     (c),l
  55.