Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 INS 19/1	;05C1
	;JEH	30-SEP-82	[1411] Test for leading truncation warning in the 
	;				rounding routine if converting from floating
	;				point to binary before operand sizes adjusted
	;JEH	18-MAY-82	[1355] Build COMP-3 zero literal correctly
	;JEH	05-MAY-82	[1353] Eliminate HALT if literal too large - give error
	;RJD	09-MAR-82	[1344] Bad code generated for literal compare 
 REP 26/1	;05C2
	;				subscript assoc with linkage item with no occurs clause.
 WIT
	;				subscript assoc with linkage item with no boccurs clause.
 INS 8/2	;05C3
	EXTERNAL WARNAD			;[1411]
 INS 47/14	;05C4
		SETZ	EACC,				;[1355] ZERO FIRST PART OF LIT.
 REP 29/21	;05C5
		TRNE	TA,770000	;VERY LARGE LITERAL
		HALT			;YES
		HRRZ	TE,TA		;GET SIZE
 WIT
		TRNN	TA,770000	;[1353] VERY LARGE LITERAL?
		JRST	STASHR		;[1353]  NO
		MOVEI	DW,E.653	;[1353]  YES
		JRST	BADLIT		;[1353] GIVE ERROR
	;[1353]	HALT			;YES
	STASHR:	HRRZ	TE,TA		;[1353] GET SIZE
 REP 15/25	;05C6
		TRNE	TA,770000	;VERY LARGE LITERAL
		HALT			;YES
		HRRZ	TE,TA		;GET SIZE
 WIT
		TRNN	TA,770000	;[1353] VERY LARGE LITERAL?
		JRST	STASHK		;[1353]  NO
		MOVEI	DW,E.653	;[1353]  YES
		JRST	BADLIT		;[1353] GIVE ERROR
	;[1353]	HALT			;YES
	STASHK:	HRRZ	TE,TA		;[1353] GET SIZE
 INS 23/26	;05C7
		JUMPL	TE,[	PUSHJ	PP,XPNLIT	;[1344] IF RELATIVE PTR
				JRST	STSL1B]		;[1344] ALREADY SKIP PTR DEVEL. 
 INS 29/26	;05C8
	STSL1B:				;[1344]
 REP 13/40	;05C9
	ROUNDG:	MOVE	TE,[XWD ESIZEB,ESIZEA]
 WIT
	ROUNDG: MOVE	TE,ESIZEB	;[1411] CALCULATE DIFFERENCE IN DIGITS BEFORE
		SUB	TE,EDPLB	;[1411]  THE DECIMAL POINT BETWEEN RESULT FIELD
		ADD	TE,EDPLA	;[1411]  AND OPERANDS IN EXPRESSION
		SUB	TE,ESIZEA	;[1411] IF B OPERAND HAS SAME OR MORE, NO
		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]
		MOVE	TE,[XWD ESIZEB,ESIZEA]
 SUM 217631