Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - ttdint.c12
There are no other files named ttdint.c12 in the archive.
 REP 44/10	;12C1
		POPJ	P,		;YES, ALREADY DONE BY RSX-20F
 WIT
		PJRST	TTDCND		;YES
 INS 1/11	;12C2
	TTDCND:	PUSHJ	P,SAVE4##	;SAVE P1-P4
		HRRZ	P3,DSCTAB##(U)	;GET MONITOR LINE NUMBER
		PUSHJ	P,STDT1		;SET UP DTEQUE ARGUMENTS
		HRRI	P2,.EMDSC	;CONNECT DATASET
		PUSHJ	P,DTEQUE##	;QUEUE THE REQUEST
		  JFCL			;FAILED, JUST IGNORE
		POPJ	P,		;RETURN
 SUM 223772