Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
batcon.c08
There are 2 other files named batcon.c08 in the archive. Click here to see a list.
REP 2/1 ;08C1
SUBTTL C.D.O'Toole, D.P.Mastrovito /CDO/DPM/CTK 29-Jun-82
WIT
SUBTTL C.D.O'Toole, D.P.Mastrovito /CDO/DPM/CTK/LWS 28-Nov-83
REP 8/15 ;08C2
TXNE J,JL.ULI ;JOB LOGGED IN?
WIT
;**;[4711] Change 1 line at JOBCHK+4L. 28-Nov-83 /LWS
TXNE J,JL.ULI!JL.UJA ;[4711] JOB STILL THERE?
REP 20/16 ;08C3
SKIPE S1,.JLABL(R) ;CHECK IF HAD LABEL
WIT
;**;[4707] Change 1 line at CHKPNT+17L. 8-Nov-83 /LWS
SKIPE S1,.JLLBL(R) ;[4707] CHECK IF HAD LABEL
REP 20/44 ;08C4
PUSHJ P,B$RTYO ;ECHO THE RESPONSE BUFFER
WIT
;**;[4710] Insert 4 lines and delete 1 line after SEND.1+7L. 12-Nov-83 /LWS
MOVE S1,[$IDENT (OPERAT,<[End of operator message]>)] ;[4710] GET MESSAGE SUFFIX
MOVE S2,[POINT 7,[BYTE (7) .CHCRT,.CHLFD,0,0,0]] ;[4710] MAKE SURE <CR><LF> GETS IN LOG
PUSHJ P,L$COPY ;[4710] PUT IN LOG FILE
SETOM .JLTIM(R) ;[4710] SAY WE NEED TIME STAMP
REP 18/63 ;08C5
CAIG S1,.CHFFD ;TEST FOR
CAIGE S1,.CHLFD ; EOL CHARACTERS
POPJ P, ;NOT AN EOL - RETURN
WIT
;**;[4706] Deleted 3 lines after B$WPUT+2L. 20-Oct-83 /LWS
SUM 37973