Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cmngen.c12
There are 3 other files named cmngen.c12 in the archive. Click here to see a list.
 REP 10/1	;12C1
	;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1974, 1981, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 19/1	;12C2
	;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	;12C3
	IFN ANS74,<			;[1607] NOT NEEDED BY THE TRANSLATOR
		JUMPL	TA,STSL1C	;[1604] MUST TEMTAB POINTER
		> ;[1607] END IFN ANS74
 INS 37/26	;12C4
	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 16699