Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobst.c09
There is 1 other file named cobst.c09 in the archive. Click here to see a list.
 INS 30/1	;09C1
	;11-Jun-84	KWS	[1127] Removed obsolete code
 DEL 12/2	;09C2
	IFE TOPS20,<
		TLNE	.SGDEV,700000		;IF NOT GARBAGE IN 11
		MOVEM	.SGDEV,RN.DEV##		; SAVE RUN DEVICE
		MOVEM	.SGNAM,RN.NAM##		;SAVE RUN NAME
		SKIPE	.SGDEV			;IF THERE WAS A DEVICE
		MOVEM	.SGPPN,RN.PPN##		; SAVE THE PPN
	>
 DEL 42/2	;09C3
		JUMPE	.SGDEV,MPRTNH		;USER DID A LOAD ONLY
 REP 47/2	;09C4
		MOVEM	T1,RN.DEV		;SAVE ACTUAL DEVICE
 WIT
		MOVEM	T1,RN.DEV##		;[1127]SAVE ACTUAL DEVICE
 REP 51/2	;09C5
		MOVEM	T1,RN.PPN		;SAVE ACTUAL PPN
 WIT
		MOVEM	T1,RN.PPN##		;[1127]SAVE ACTUAL PPN
 DEL 14/7	;09C6
	IFE TOPS20,<
		TLNE	.SGDEV,700000		;IF NOT GARBAGE IN 11
		MOVEM	.SGDEV,RN.DEV##		; SAVE RUN DEVICE
		MOVEM	.SGNAM,RN.NAM##		;SAVE RUN NAME
		JUMPE	.SGDEV,(JAC)		;USER DID A LOAD ONLY
		MOVEM	.SGPPN,RN.PPN##		;IF THERE WAS A DEVICE SAVE THE PPN
	>
 REP 44/7	;09C7
		MOVEM	T1,RN.DEV		;SAVE ACTUAL DEVICE
 WIT
		MOVEM	T1,RN.DEV##		;[1127]SAVE ACTUAL DEVICE
 REP 48/7	;09C8
		MOVEM	T1,RN.PPN		;SAVE ACTUAL PPN
 WIT
		MOVEM	T1,RN.PPN##		;[1127]SAVE ACTUAL PPN
 SUM 9051