Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50527/storag.bli
There are no other files named storag.bli in the archive.
module store(entries=(obufhdr,ibufhdr,acct,tmpbuf,msg,uname1,sysdate,chnibuf,chnobuf,
sendto,auxact,otmphdr,filbuf,grpblk,summary,
uname2,inbuf,login,auxbuf),reserve(1,2,3,4))=
begin
require machop.bli;
% Variables used by the MAILER. %
Global Obufhdr[4], ! Output buffer header
Ibufhdr[4], ! Input buffer header
Chnibuf[4], ! IO channel header (Input)
Chnobuf[4], ! IO channel header (Output)
Otmphdr[4], ! Output 2 buffer header
Acct[accmax], ! Accounting record
Filbuf[ffmax], ! File data block
Auxact[accmax], ! Aux Accounting Record
Summary, ! TRUE if summary command
Login, ! TRUE if login run
Inbuf[10], ! Temp buffer for SIXIN
Cmdbuff[(maxcmd/5)+4], ! Buffer for commands
Tmpbuf[4], ! Temp storage
Uname1, ! Username parsing
Uname2, ! Second half
Sysdate, ! Date last time mailer was ran.
Grpblk[grplen+2], ! Group list for WHOIS
Auxbuf[maxbuf], ! Read message buffer
Sendto[stomax], ! Send to buffer
Msg[maxbuf]; ! Send message buffer
end
eludom