data anti; infile "e:\anti\antiread.dat";
 input anti1 anti2 anti3 anti4 read1 read2 read3 read4 gen homecog id;
run;

proc calis data=anti ucov aug;
 lineqs
  anti1 = 1f1 + 0f2 + e1,
  anti2 = 1f1 + 1f2 + e2,
  anti3 = 1f1 + 2f2 + e3,
  anti4 = 1f1 + 3f2 + e4,
  f1 = al1 intercept + gamma1 gen + gamma2 homecog + d1,
  f2 = al2 intercept + gamma3 gen + gamma4 homecog + d2;
 std
  e1-e4 = th th th th,
  d1-d2 = ph11 ph22;
 cov
  d1 d2 = ph21;
run;