extern int rd_ed(),rd_ned(),w_ed(),w_ned(),y_ierr();
if(icptr
>= icend
) err(svic
->iciend
,(EOF
),"endfile");
if(icpos
++ < svic
->icirlen
)
else err(svic
->icierr
,110,"recend");
if(icptr
>= icend
) err(svic
->icierr
,110,"inwrite");
if(icpos
++ < svic
->icirlen
)
else err(svic
->icierr
,110,"recend");
icptr
= svic
->iciunit
+ (++icnum
)*svic
->icirlen
;
dorevert
= donewrec
= y_ierr
;
dorevert
= donewrec
= y_ierr
;
err(a
->icierr
,100,"startint");
icend
=icptr
+svic
->icirlen
*svic
->icirnum
;
while(icpos
++ < svic
->icirlen
)
if(icnum
>= svic
->icirnum
)
while(icpos
++ < svic
->icirlen
)
err(elist
->cierr
, 110, "iio");