#include main() /*primer ispoljzowanija syslib i funkcii fetch:*/ begin extern int idstat(), irad50(); int devnam[2]; int cblk[4]; static char outstr[80]; int leng, found; int *kuda; /*adres zagruzki drajwera = nachalo swob. pamjati:*/ kuda = 050; /*dlina imeni ustrojstwa - 3 simwola:*/ leng = 3; /*preobrazujem imja w rad50:*/ callf(irad50,3,&leng,"TT0",devnam); /*oprashiwajem sostojanije ustrojstwa:*/ found = callf(idstat,2,devnam,cblk); /*formatnaja perekodirowka:*/ sprintf(outstr,"f=%o %o %o %o %o",found,cblk[0],cblk[1],cblk[2],cblk[3]); /*pechatj na terminale perekodirowannoj stroki:*/ printt(outstr); /*zagruzhajem drajwer:*/ fetch(*kuda,devnam[0]); /*snowa oprashiwajem sotojanije ustrojstwa:*/ found = callf(idstat,2,devnam,cblk); /*snowa perekodirowka i pechatj:*/ sprintf(outstr,"f=%o %o %o %o %o",found,cblk[0],cblk[1],cblk[2],cblk[3]); printt(outstr); end