Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/cmngen.c12
There are 3 other files named cmngen.c12 in the archive. Click here to see a list.
 REP 11/1	;12C1
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 21/1	;12C2
	;MJC	18-JUL-85	[1604] Make XPNLIT fixup CURIRG for INSPECT
 INS 19/27	;12C3
		JUMPL	TA,STSL1C	;[1604] MUST TEMTAB POINTER
 INS 35/27	;12C4
	STSL1C:				;[1604] DO THE SAME THING BUT FOR CURIRG
		HRRZ	TE,CURIRG##	;[1604] GET CURIRG
		HRRZ	TB,TEMLOC##	;[1604] START OF TABLE
		SUB	TE,TB		;[1604] THIS IS OFFSET
		PUSH	PP,TE		;[1604]
		PUSHJ	PP,XPNLIT	;[1604] EXPAND LITTAB
		POP	PP,TE		;[1604] GET BP OFFSET
		ADD	TE,TEMLOC	;[1604] GET NEW PTR INTO VALTAB
		MOVEM	TE,CURIRG	;[1604] GET BP TO EBASEA OR SOMETHING..
		JRST	STSL1B		;[1604] POP AND RETURN

 SUM 80621