Trailing-Edge
-
PDP-10 Archives
-
decuslib10-08
-
43,50512/chkact.b36
There are no other files named chkact.b36 in the archive.
MODULE CHKACT= !Test program for new CHK_ACCESS
BEGIN
LIBRARY 'RMCOPY';
LITERAL DEVMAX = 6,
PATMAX = 100;
OWN CHKBLK:CHK$ARGBLK;
OWN FILE:BLOCK[CH$ALLOCATION(50)];!:INITIAL (%ASCIZ 'LIB:FOO.BAR');
OWN DEVBLK:BLOCK[CH$ALLOCATION(DEVMAX)];
OWN PATH:BLOCK[CH$ALLOCATION(PATMAX)];
GLOBAL ROUTINE SETBLK=
BEGIN
CHKBLK [CHK$SPEC$PTR] = CH$PTR (FILE);
CHKBLK [CHK$DEV$PTR] = CH$PTR (DEVBLK);
CHKBLK [CHK$DEV$CNT] = 0;
CHKBLK [CHK$DEV$MAX] = DEVMAX;
CHKBLK [CHK$PRO] = 0;
CHKBLK [CHK$LIM] = 0;
CHKBLK [CHK$ACCESS$VAL] = CHK_AC$REA;
CHKBLK [CHK$PATH$PTR] = CH$PTR (PATH);
CHKBLK [CHK$PATH$MAX] = PATMAX;
CHKBLK [CHK$PATH$CNT] = 0;
END;! of SETBLK
END ELUDOM