Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - ipcgen.c05
There are 2 other files named ipcgen.c05 in the archive. Click here to see a list.
 INS 19/1	;05C1
	;V12B****************
	;DMN	07-OCT-82	[1414] OUTPUT CALL TO INITDB FOR SUBPROGRAMS CONTAINING
	;				DBMS INVOKE STATEMENT
	;JEH	30-MAR-82	[1346] FATAL IF DATA KEY CONV RTN ADDR CAN'T BE STORED
	;DMN	31-AUG-81	[1306] FIX BAD TABLE LINK IF RELATIVE KEY HAS ERROR
 REP 192/22	;05C2
	NTRY8:	MOVE	CH,PROGST##	;GET START ADDRESS
 WIT
	NTRY8:
	IFN DBMS,<
	;PUT OUT "MOVEI 16,INITDB-ARG-LIST-ADDR"
		SKIPN	INVSEE##	;[1414] WAS THERE A DBMS INVOKE?
		JRST	NTRY8A		;[1414] NO
		MOVE	CH,[MOVEI.+ASINC+AC16,,AS.MSC]	;[1414]
		PUSHJ	PP,PUTASY	;[1414]
		HRRZ	CH,DBUSES##	;[1414] ADDRESS OF DBMS USE PROCEDURE
		IORI	CH,AS.LIT	;[1414]
		PUSHJ	PP,PUTASN	;[1414]
	;PUT OUT "PUSHJ 17,INITDB"
		MOVEI	CH,INITDB##	;[1414]
		PUSHJ	PP,PUT.PJ	;[1414]
	NTRY8A:>			;[1414]
		MOVE	CH,PROGST##	;GET START ADDRESS
 INS 25/23	;05C3
		TRNN	CH,076000	;[1346] IS TAG GREATER 1023?
		JRST	CKDT.1		;[1346]  NO
		PUSH	PP,CH		;[1346] YES, WON'T FIT IN DA.DCR
		MOVEI	DW,E.746	;[1346] 
		LDB	LN,TCLN##	;[1346] SET UP LN 
		LDB	CP,TCCP##	;[1346] SET UP CP
		PUSHJ	PP,FATAL##	;[1346]
		POP	PP,CH		;[1346]
	CKDT.1:				;[1346] 
 REP 82/25	;05C4
	CKFT.E:	HRRZ	TA,CURFIL
 WIT
	;[D1306]	CKFT.E:	HRRZ	TA,CURFIL
	CKFT.E:				;[M1306]
 REP 86/25	;05C5
	CKFT.Z:	LDB	TA,FI.NXT##	;GET NEXT
 WIT
	CKFT.Z:				;[M1306]
		HRRZ	TA,CURFIL	;[1306] RESTORE CURRENT FILE POINTER
		LDB	TA,FI.NXT##	;[M1306] ;GET NEXT
 SUM 70176