%begin
@16_E00000 %integerarray frame(0:32767)
%integer i
%routine pp(%integer x,y)

  *move.l d0,d2
  *lsl.l #7,d1
  *andi.l #16_FFFFFFF0,d0
  *lsr.l #3,d0
  *add.l d0,d1
  *lea   frame,a1
  *lea   0(a1,d1.l),a1
  *andi.l #15,d2
  *eor.l  #15,d2
  *clr.l  d1
  *bset   d2,d1
  *move.w d1,(a1)
%end

%for i=0,1,100 %cycle
  pp(i,i)
%repeat
%endofprogram