Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50527/machop.bli
There are no other files named machop.bli in the archive.
machop	ttcall=	#051,
	calli=	#047,
	input=	#056,
	inuuo= #056,
	useti= #074,
	rename= #055,
	stato=	#061,
	outuuo= #57,
	output= #067,
	open=	#050,
	lookup= #076,
	close=	#070,
	releas= #071,
	enter=	#077;


Bind	esc=	#33;

register ac1=1,
	 ac2=2,
	 ac3=3,
	 ac4=4;

Bind	ffflg= 0,	! .OPMOD
	ffdev= 1,	! .OPDEV
	ffbuf= 2,	! .OPBUF
	ffnam= 3,	! Filename
	ffext= 4,	! Extension
	ffprt= 5,	! Protection
	ffpth= 6,	! Path pointer
	ffzer0= 7,	! First zero waord in path
	ffzer1= 8,	! Second zero word in path
	ffppn= 9,	! UFD
	ffsfd1= 10,	! SFD1
	ffsfd2= 11,	! SFD2
	ffsfd3= 12,	! SFD3
	ffsfd4= 13,	! SFD4
	ffsfd5= 14,	! SFD5
	ffzer2= 15,	! Insure a zero word
	ffmax= 17;	! Max size of block

Bind	Bfzero=0,	! Must be zero always
	Bfdev=1,	! Device seen
	Bfnam=2,	! Name seen
	Bfext=3,	! Extension seen
	Bfppn=4,	! PPN and SFDs seen
	Bfdot=5;	! Period found
Bind	accnm1=	0,	! Must be first
	accnm2= 1,	! Must be second
	accus1= 2,	! Username
	accus2= 3,	! Username cont.
	accmlf= 4,	! Mail file
	accmfe= 5,	! Mail file extension
	accmfd= 6,	! Mail file device
	accppn= 7,	! User PPN
	accpas= 8,	! User password
	accprv= 9,	! Priv word
	accgp1= 10,	! Group 1
	accgp2= 11,	! Group 2
	accgp3= 12,	! Group 3
	accgp4= 13,	! Group 4
	accgp5= 14,	! Group 5
			! Words 15-19 are reserved for future use
	accfnm= 20;	! User full name (Ends with 0 word)

Bind	Mlfnm1= 0,	! Uname
	Mlfnm2= 1,	! Uname cont.
	Mlfus1= 2,	! Username
	Mlfus2= 3,	! Username cont.
	Mlfppn= 4,	! PPN
	Mlfloc= 5,	! Location
	Mlftim= 6,	! Time
	Mlfdat= 7,	! Date
	Mlfyer= 8,	! Year
	Mlftty= 9,	! TTY #
	Mlfflg=10,	! Flag word
	  Mfgred=0,	!	Flag - Mail has been read
	  Mfggrp=1,	!	Flag - This was sent to your group
	  Mfgsys=2,	!	Flag - This mail was sent to system
	  Mfgsnd=3,	!	Flag - This message is being sent
	Mlfsdt=11,	! Date mail was sent
	Mlfexp=12,	! Date mail expires
	Mlfgrp=13,	! Group that this mail was sent to
	Mlfrs2=14,
	Mlfrs3=15,
	Mlfrs4=16,
	Mlfrs5=17,
	Mlfrs6=18,
	Mlfrs7=19,
	Mlfrs8=20,
	Mlfsub=21;	! Start of subject

Bind	Pvppn= 23,	! Can look at PPN
	Pvpass = 35,	! Can look at password
	Pvsall = 34,	! Can send to ALL
	Pvsagp=3,	! Can send to any group
	Pvsogp=4,	! Can send to own group(s)
	Pvcgrp=5,	! Can change group info
	Pvgrp=6,	! Can examine group info
	Pvpriv= 33,	! Can look at privs
	Pvunam= 22,	! Can look at username
	Pvcall=32,	! Can chage anyone
	Pvcunm=1,	! Can change username
	Pvdall=2,	! Can delete ALL mail
	Pvcnam=30,	! Can change PPN name
	Pvcdev=29,	! Can change device
	Pvcext=28,	! Can change extension
	Pvzero=0,	! Bit must be zero
	Pvcfln=27,	! Can change filename
	Pvcfnm=26,	! Can change full filename
	Pvcpas=25,	! Can change password
	Pvcprv=24,	! Can change privword
	Pvcppn=19,	! Can change PPN
	Pvfile= 21;	! Can look at file

Bind	Stosiz= 3,	! Size of sendto entries
	Stomax=100*Stosiz,! Maximum sends at once
	Grpmax=75,	! Maximum number of groups for WHOIS
	Grplen=Grpmax*2,! Size of data area for WHOIS
	Maxcmd=5000,	! Number of characters in a command
	Stonm1=0,	! Offset to sendto name1
	Stonm2=1,	! Offset to sendto name2
	Stogrp=2;	! Offset to sendto group
Bind	Accmax= 45;	! Max size of acct record
bind	accmx1= 29;

Bind	Mlrppn=	#5000036,	! PPN of mailer area
	Mlrdev= Sixbit 'DSKB';	! Device for mailer area
Bind	Mlrext= Sixbit 'MLR';	! TST if test version else MLR
Bind	Mflext= Sixbit '.AS';	! FOO if test version else .AS

Bind	In = 1, 	! Input channel
	Out = 2,	! Output channel
	aux = 3,
	out2 = 4,	! Aux Output channel
	IO = 5;		! Channel for unencrypted IO

Bind	Maxmsg = 35000;	! Maximum # of characters for a message

Bind	Mlhmax = 29;	! Max length of message header info (w subject)
Bind	Maxbuf= (Maxmsg/5)+Mlhmax+5;	! Max size of mail buffer