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