Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cmngen.c06
There is 1 other file named cmngen.c06 in the archive. Click here to see a list.
 INS 19/1	;06C1
	;DMN	24-Feb-83	[1453] Fix 1411 to point to correct line on truncation error.
 REP 8/2	;06C2
	EXTERNAL WARNAD			;[1411]
 WIT
	EXTERN	 MSERA.		;[1453]
 REP 17/40	;06C3
		JUMPGE	TE,ROUNDH	;[1411]   LEADING TRUNCATION, SO CONTINUE
		MOVEI	TA,E.502	;[1411] ELSE GIVE WARNING
		MOVE	TE,CUREOP	;[1411]
		HRRZ	TE,1(TE)	;[1411]
		HRL	TA,TE		;[1411]
		PUSHJ	PP,WARNAD	;[1411]
	ROUNDH:				;[1411]
 WIT
		SKIPGE	TE		;[1453] [1411]   LEADING TRUNCATION, SO CONTINUE
		PUSHJ	PP,MSERA.	;[1453]   ELSE GIVE WARNING
 SUM 203200