Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cmngen.c09
There are 4 other files named cmngen.c09 in the archive. Click here to see a list.
 INS 19/1	;09C1
	;MJC	21-AUG-84	[1543] Fix 1411 to give no warning if ON SIZE ERROR
	;				is used.
 REP 13/40	;09C2
	ROUNDG: MOVE	TE,ESIZEB	;[1411] CALCULATE DIFFERENCE IN DIGITS BEFORE
 WIT
	ROUNDG:	TLNE	W1,GNSERA	;[1543] ON SIZE ERROR USED?
		JRST	ROUNDH		;[1543] DON'T CHECK FOR TRUNCATION ERROR IF SO
		MOVE	TE,ESIZEB	;[1543] [1411] FIND DIFFERENCE IN DIGITS BEFORE
 REP 19/40	;09C3
		MOVE	TE,[XWD ESIZEB,ESIZEA]
 WIT
	ROUNDH:	MOVE	TE,[XWD ESIZEB,ESIZEA]	;[1543]
 SUM 216527