Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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