Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - batcon.c10
There is 1 other file named batcon.c10 in the archive. Click here to see a list.
 REP 7/16	;10C1
		SKIPE	S1,.JBCHK(R)		;STREAM REQUEST CHECKPOINTING?
		CAMGE	S1,G$UDT		;BATCON REQUEST CHECKPOINTING?
		  SKIPA				;YES
		POPJ	P,			;NO TO EITHER - RETURN
		PUSHJ	P,L$CHKP##		;CHECKPOINT THE LOG
 WIT
	;**;[4713] Change code at CHKPNT+3L. /LWS
		SKIPN	S1,.JBCHK(R)		;[4713] STREAM REQUEST CHECKPOINTING?
		JRST	CHKP.1			;[4713] YES
		JUMPL	S1,.POPJ		;[4713] NO, IGNORE IF NEGATIVE
		CAML	S1,G$UDT		;[4713] BATCON REQUEST CHECKPOINTING?
		POPJ	P,			;NO TO EITHER - RETURN
	CHKP.1:	PUSHJ	P,L$CHKP##		;[4713] CHECKPOINT THE LOG
 REP 131/32	;10C2
	FIRE.1:	PUSHJ	P,P$OPEN##		;OPEN A PTY
 WIT
	;**;[4712] Insert 1 line at FIRE.1+0L. /LWS
	FIRE.1:	AOS	G$SACT			;[4712] ANOTHER STREAM IN USE
		PUSHJ	P,P$OPEN##		;OPEN A PTY
 REP 139/32	;10C3
		AOS	G$SACT			;ADD ANOTHER JOB
 WIT
	;**;[4712] Delete 1 line at FIRE.1+8L. /LWS
 INS 148/32	;10C4
	;**;[4713] Insert 1 line after FIRE.2+5L. /LWS
		SETOM	.JBCHK(R)		;[4713] NO CHECKPOINT NEEDED
 SUM 69844