Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/fordbl.c05
There are no other files named fordbl.c05 in the archive.
 REP 2/1	;05C1
		TV	FORDBL	DOUBLE PRECISION ROUTINES ,6(2031)

	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
		TV	FORDBL	DOUBLE PRECISION ROUTINES ,6(2070)

	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 INS 59/1	;05C2
	***** End V6 Development *****

	2035	DAW	28-Jan-82	Q10-06649
		In DEXP2., "Overflow" message was generated sometimes for
		underflows.

	2070	JEH	02-Aug-82	SPR: 20-17901
		In DEXP2., "Underflow" message sometimes generated for 
		overflows.

 REP 6/2	;05C3
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/3	;05C4
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/4	;05C5
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/5	;05C6
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/6	;05C7
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/10	;05C8
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/11	;05C9
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/12	;05C10
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/13	;05C11
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/14	;05C12
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 61/14	;05C13
	D2OVUN:	SKIPG	T4,@1(L)	;NEGATIVE EXPONENT?
		  JRST	D2UNFL		;YES, RESULT UNDERFLOWS
 WIT
	D2OVUN:	DMOVE	T2,@0(L)	;[2035] GET ABS(BASE)
		CAIGE	T2,0		;[2035]
		  DMOVN	T2,T2		;[2035]
		MOVE	T4,@1(L)	;[2035] GET EXPONENT
		CAMGE	T2,[1.0]	;[2035] ABS(BASE) .LT. 1?
		  MOVN	T4,T4		;[2035] YES, COMPLEMENT EXPONENT
		JUMPL	T4,D2UNFL	;[2035] NEGATIVE, RESULT UNDERFLOWS
					;[2070]
					;[2070]
 REP 6/15	;05C14
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/16	;05C15
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/17	;05C16
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/18	;05C17
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/19	;05C18
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/20	;05C19
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/23	;05C20
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/24	;05C21
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/25	;05C22
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/26	;05C23
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/27	;05C24
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/28	;05C25
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/29	;05C26
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/30	;05C27
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/31	;05C28
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/32	;05C29
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 7/33	;05C30
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 6/34	;05C31
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 7/35	;05C32
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/36	;05C33
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/37	;05C34
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/38	;05C35
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/39	;05C36
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/40	;05C37
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/41	;05C38
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/42	;05C39
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/43	;05C40
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/44	;05C41
	;COPYRIGHT (C) 1980,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1980,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/45	;05C42
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/46	;05C43
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/47	;05C44
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/48	;05C45
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/49	;05C46
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/50	;05C47
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/51	;05C48
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/52	;05C49
	;COPYRIGHT (C) 1973,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1973,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 5/53	;05C50
	;COPYRIGHT (C) 1972,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1972,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 4/56	;05C51
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 4/57	;05C52
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 4/58	;05C53
	;COPYRIGHT (C) 1979,1981  BY  DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979,1981,1982  BY  DIGITAL EQUIPMENT CORPORATION
 REP 7/59	;05C54
	;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 20/59	;05C55
	;COPYRIGHT (C) 1981  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 7/60	;05C56
	;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 20/60	;05C57
	;COPYRIGHT (C) 1981  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 7/61	;05C58
	;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 20/61	;05C59
	;COPYRIGHT (C) 1981  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 7/62	;05C60
	;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 20/62	;05C61
	;COPYRIGHT (C) 1981  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 7/63	;05C62
	;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 REP 20/63	;05C63
	;COPYRIGHT (C) 1981  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 WIT
	;COPYRIGHT (C) 1981,1982  BY  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 SUM 59895