Google
 

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