Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - logout.c08
There is 1 other file named logout.c08 in the archive. Click here to see a list.
 REP 6/1	;08C1
	;        COPYRIGHT (c) 1975,1976,1977,1978,1979,1980,1981,1982,1984
 WIT
	;        COPYRIGHT (c) 1975,1976,1977,1978,1979,1980,1981,1982
 REP 38/1	;08C2
		LGTEDT==2064		;EDIT LEVEL
 WIT
		LGTEDT==2065		;EDIT LEVEL
 DEL 50/1	;08C3
	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1975,1984.


 INS 124/2	;08C4
	;
	;2065	Make statistics typed by LOGOUT match those produced by the ACTDAE.
 REP 3/14	;08C5
	DOACCT:	MOVE	T1,L.TYPE		;GET LOGOUT TYPE
		CAIN	T1,LTYPEB		;IS IT /B
		PUSHJ	P,GTTABS		;YES, CHARGE HIM FOR ALL THAT WORK
 WIT
	DOACCT:	PUSHJ	P,GTTABS		;FILL IN ALL THE GETTABS
 SUM 259343