ld a,(ix+h'c1)
         add a,(ix+h'c1)
         ld (ix+h'c1),a
         ld(ix+h'c1),h'0
         inc (ix+h'c1)
         dec (ix+h'c1)
         cp (ix+h'c1)
         sub (ix+h'c1)
         ld a,(iy+h'c1)
         add a,(iy+h'c1)
         ld (iy+h'c1),a
         ld(iy+h'c1),h'0
         inc (iy+h'c1)
         dec (iy+h'c1)
         cp (iy+h'c1)
         sub (iy+h'c1)
         end.