Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - expgen.c09
There is 1 other file named expgen.c09 in the archive. Click here to see a list.
 INS 19/1	;09C1
	;JEH	19-DEC-83	[1511] Test for need of float. point correction factor
	;				before generating rounding statements
 REP 164/3	;09C2
		MOVE	TC,OPERND
		MOVE	TC,1(TC)
		TLNE	TC,GNROUN
	IFE BIS,<
 WIT
	IFE BIS,<			;[1511] Start non-BIS case now
		MOVE	TC,OPERND
		MOVE	TC,1(TC)
		TLNE	TC,GNROUN	
 DEL 171/3	;09C3
		JRST	[PUSHJ	PP,ROUND	;[762] ROUNDING REQUIRED
			JRST	CEND1C]		;[762]
 REP 182/3	;09C4
	CEND1C:>
 WIT
	CEND1C:	HRRZ	TC,OPERND	;[1511] Destination operand address
		MOVE	TC,1(TC)	;[1511] second word of operand pair
		TLNE	TC,GNROUN	;[1511] test on rounding bit
		PUSHJ	PP,ROUND##	;[1511] generate rounding code
	>
 SUM 99481