Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 28/1	;09C1
		BTNEDT==4214		;EDIT NUMBER
 WIT
		BTNEDT==4216		;EDIT NUMBER
 INS 429/9	;09C2
	EDIT 4215	Include the account information in the display of the job
			parameters in the log file.
			gco 4.2.1581

	EDIT 4216	Before closing the log file, update its .FBBK0 word in its
			FDB so it will be saved in subsequent incremental saves.
			gco 4.2.1586

 REP 47/35	;09C3
		$TEXT	(L$OUT1,<	RESTART: ^T/(P2)/^T/TABS/ASSISTANCE: ^T/(P4)/
							SEQUENCE:   ^D/.JQJBB+JIB.SQ(R),JB.SEQ/>)
 WIT
	;**;[4215] Modify 1 line at NEWJ.1:+7L   JCR   7/17/84
		$TEXT	(L$OUT1,<	RESTART: ^T/(P2)/^T/TABS/ASSISTANCE: ^T/(P4)/
		ACCOUNT: ^T/.JQACT(R)/^T/TABS/SEQUENCE:   ^D/.JQJBB+JIB.SQ(R),JB.SEQ/>)
 INS 81/53	;09C4
	;**;[4216]Add 1 line at CLOS.6:+2L   JCR   8/10/84
		$CALL	ZFBBK0		;[4216]Zero out word .FBBK0 of the log file
 INS 79/67	;09C5
	;**;[4216]Add 1 line at REQMSG:+6L   JCR   8/10/84
		$CALL	ZFBBK0		;[4216]Zero out word .FBBK0 of log file
 INS 21/68	;09C6

	;**;[4216]Add 7 lines at SETTIM:+5L   JCR   8/10/84
	;[4216]SUBROUTINE TO ZERO OUT .FBBK0 WORD OF LOG FILE FDB

	ZFBBK0:	HRLI	S1,.FBBK0	;[4216]Pick up the word to be changed
		HRR	S1,.JLJFN(R)	;[4216]Log file JFN
		MOVE	S2,[-1]		;[4216]All the bits will be changed
		MOVEI	T1,0		;[4216]To zero
		CHFDB			;[4216]Change the word
		ERJMP 	.+1		;[4216]Ignore any errors
		$RET			;[4216]And return

 DEL 5/69	;09C7

 SUM 210945