Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cmngen.c07
There is 1 other file named cmngen.c07 in the archive. Click here to see a list.
 INS 19/1	;07C1
	;JEH	10-OCT-83	[1477] Adjust the correction factor added to floating
	;				point numbers (epsilon) to consider nbr of 
	;				decimal places in source
	;JBB	22-SEP-83	[1476] Bad table link, catastrophe in phase E with
	;				subscript assoc with linkage item with no
	;				occurs clause. corrects edit 1123.
 REP 7/44	;07C2
	EPSLON:	SKIPGE	TC,EDPLB	;[762] GET NO OF DECIMAL PLACES IN "B"
 WIT
	EPSLON:	MOVE	TC,EDPLB	;[1477] If destination can hold more dec pl
		CAMGE	TC,EDPLA	;[1477]  or if source has generated extra
		MOVE	TC,EDPLA	;[1477] use smaller correction factor
		SKIPGE	TC		;[1477] [762] GET NO OF DECIMAL PLACES IN "A"
 REP 39/120	;07C3
		LDB	TA,DA.OCH
		JUMPE	TA,NOTSUB	;[1123] IF NO SUBSCR AT ALL IN DATAB WE HAVE
					;[1123] AN ERROR, DON'T TRY TO FIND ITS LINK
		PUSHJ	PP,LNKSET
 WIT
		LDB	TE,DA.SUB	;[1476] DOES THIS ITEM NEED A SUBSCRIPT?
		JUMPE	TE,NOTSUB	;[1476] NO, THEN THERE'S NO DA.OCH ENTRY
		LDB	TA,DA.OCH	
		JUMPE	TA,NOTSUB	;[1123] IF NO SUBSCR AT ALL IN DATAB WE HAVE
					;[1123] AN ERROR, DON'T TRY TO FIND ITS LINK
		PUSHJ	PP,LNKSET	
 SUM 70013