.SEGMENT/PM	seg_rth; nop;
nop; nop; nop; nop;
JUMP start;
.ENDSEG;


.SEGMENT/DM	seg_dmda;
.VAR	X[4] = 0xFFFFFFFF, 0x11111111, 0xFFFFFFFF, 0x11111111;
.VAR	Y[4] = 0xFFFFFFFF, 0xFFFFFFFF, 0x11111111, 0xFFFFFFFF;
.ENDSEG;
.SEGMENT/PM	seg_pmco; start:
i1 = X;

i2 = Y;
lcntr = 4, do met1 until lce; r1 = dm(i1,1);
r2 = dm(i2,1); r3 = r1 xor r2;
met1: dm(i3,1) = r3;
IDLE;
.ENDSEG;