Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cobst.c11
There is 1 other file named cobst.c11 in the archive. Click here to see a list.
 INS 30/1	;11C1
	;28-Mar-85	KWS	[1137] Fix the lookup of the overlay file
 REP 44/1	;11C2
	IFN TOPS20,<SEARCH	MONSYM,MACSYM>
 WIT
	IFN TOPS20,<SEARCH	MONSYM,MACSYM,UUOSYM>	;[1137]
 REP 33/2	;11C3
	>
	IFE TOPS20,<
 WIT
		HRROI	T1,.GTRDV		;[1137] Get device
		GETTAB	T1,			;[1137]
		  JRST	MPRTNH			;[1137]
		MOVEM	T1,RN.DEV##		;[1137] and save it
		HRROI	T1,.GTRDI		;[1137] Get PPN
		GETTAB	T1,			;[1137]
		  JRST	MPRTNH			;[1137]
		MOVEM	T1,RN.PPN##		;[1137] and save it
	>
	IFE TOPS20,<				
 REP 40/6	;11C4
	IFN TOPS20,<SEARCH	MONSYM,MACSYM>
 WIT
	IFN TOPS20,<SEARCH	MONSYM,MACSYM,UUOSYM>
 INS 31/7	;11C5
		HRROI	T1,.GTRDV		;[1137] Get device
		GETTAB	T1,			;[1137]
		  JRST	MPRTNH			;[1137]
		MOVEM	T1,RN.DEV##		;[1137] and save it
		HRROI	T1,.GTRDI		;[1137] Get PPN
		GETTAB	T1,			;[1137]
		  JRST	MPRTNH			;[1137]
		MOVEM	T1,RN.PPN##		;[1137] and save it.
 SUM 228247