Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - comuni.c07
There is 1 other file named comuni.c07 in the archive. Click here to see a list.
 INS 12/1	;07C1
	;EDITS
	;JEH	08-Nov-83	[1102] Add location to hold TOPS20 monitor version flag
	;SMI	1-Jun-83	[1066] Add GJ.BLK, and GJ.ATR for long form GTJFN
	;EGM	9-Mar-83	[1056] DBSTP$ ref causes DBCS load for non DBMS prog
	;V12B*******
 REP 70/3	;07C2
		ELMT%%	DBSTP%,1,<EXP	DBSTP$##>;;	;POINTER TO DBMS CLEANUP ROUTINE
 WIT
		ELMT%%	DBSTP%,1,<EXP	%DBSTP##>;;	;[1056]POINTER TO DBMS CLEANUP
	;;						;[1056] ROUTINE, RESOLVES TO DBSTP$
 REP 89/6	;07C3
		
 WIT
	IFN TOPS20,<				; [1066]
		ELMT%%	GJ.BLK,17;;		; [1066] GTJFN BLOCK
		ELMT%%	GJ.ATR,4;;		; [1066] ATTRIBUTE BLOCK FOR GTJFN
	>					; [1066]

 INS 211/7	;07C4
		ELMT%%	MNTR5,1;;		[1102] SET TO -1 IF MONITOR LESS V5
 SUM 2306