DB<33> l  72-76
72    
73:     $failures = $oldfails = 0 ;
74      
75:     while( <> ) {
76:             &assert ( (substr($_,0,4) eq "573\r") , "EC 573 is missing 573^M at start--" ) ;
  DB<34> c 75
main::unroll_and_parse_ec573(/opt/PRD/default/bin/ec2gen:75):
75:     while( <> ) {
  DB<35> x <>
  empty array
  DB<36> n
main::unroll_and_parse_ec573(/opt/PRD/default/bin/ec2gen:76):
76:             &assert ( (substr($_,0,4) eq "573\r") , "EC 573 is missing 573^M at start--" ) ;