Google
 
Trailing-Edge - PDP-10 Archives - bb-4157h-bm_fortran20_v10_16mt9 - link/build/formsc.unv
There are 3 other files named formsc.unv in the archive. Click here to see a list.
x,5@P GWMYP I]YP I]YP Ii9P M3  ~`'
	ENTRY	F~8LT.A
	SIXBIT	/F~XLT.A/
FLT.A:
~xIFE CPU-KA10,<
	HLRE	A+1,A	;COP8Y THE HI HALT OF XA TO LOW A+1
	xHLL	A,A+1	;FILL UPPER PART OF A8 WITH THE SIGH
	XFSC	A,233	;FLOATx THE LOW HALT OF THE INTEGER
	SKI8PGE	A	;FOR NEGATXIVE NUMBERS
	AOJxE	A+1,FLT.XT	;CHANGE HIGH PART TO8 2'S COMPLEMENT
X	FSC	A+1,255	;FLxOAT THE HIGH PART
	FADR	A,A+1	;8COMBINE THE TWO PXARTS
>
IFE CPU-xKI10,<
	FLTR	A,A	;USE THE HARDW8ARE
>
FLT.XT:	PXOPJ	P,	;RETURN Ax=THE FLOATING POINT NUMBER
S@ 9`]
	ENTRY	IXFX.A
	SIXBIT	/IxFX.A/
IFX.A:
IFE CPU-KA10,<
	8MULI	A,400		;SEPXERATE THE FRACTIOxN AND EXPONENT
	EXCH	A,A+1		;PU8T PARTICAL RESULTX IN A
	JUMPGE	xA+1,IFX.XT	;JUMP IF POSITIVE
	TRC8	A+1,-1	;NEGATE XTHE EXPONENT
	MOxVNS	A		;POSITIVE	 FRACTION
IFX.XT	8:	ASH	A,-243(A+	X1)	;USE EXPONENT 	xAS INDEX
	SKIPGE
	A+1		;SKIP IF P
8OSITIVE
	MOVNS	
XA		;NEGATE THE RE
xSULT
>
IFE CPU-KI10,<
	FIX	A,8A
>
	POPJ	P,		;XRETRURN A=FIXED NUMBER
S@P >}{woP