Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93j-bb - 7,6/ap013/cmngen.c13
There are 10 other files named cmngen.c13 in the archive. Click here to see a list.
 INS 21/1	;13C1
	;MJC	18-JUL-85	[1607] Fix edit 1604. Add conditial for ANS74 only.
	;MJC	18-JUL-85	[1604] Make XPNLIT fixup CURIRG for INSPECT
 INS 20/26	;13C2
	IFN ANS74,<			;[1607] NOT NEEDED BY THE TRANSLATOR
		JUMPL	TA,STSL1C	;[1604] MUST TEMTAB POINTER
		> ;[1607] END IFN ANS74
 INS 37/26	;13C3
	IFN ANS74,<			;[1607] NO INSPECT IN THE CBL68 COMPILER
	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
		> ;[1607] END IFN ANS74

 SUM 100992