Google
 
Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - fkimsc.unv
There are no other files named fkimsc.unv in the archive.
x
(4@P M3  "0I
	ENTRY	F"PLT.A
	SIXBIT	/F"pLT.A/
FLT.A:
#IFE CPU-KA10,<
	#0HLRE	A+1,A	;COP#PY THE HI HALT OF #pA TO LOW A+1
	$HLL	A,A+1	;FILL$0 UPPER PART OF A$P WITH THE SIGH
	$pFSC	A,233	;FLOAT% THE LOW HALT OF %0THE INTEGER
	SKI%PPGE	A	;FOR NEGAT%pIVE NUMBERS
	AOJ&E	A+1,FLT.XT	;CH&0ANGE HIGH PART TO&P 2'S COMPLEMENT
&p	FSC	A+1,255	;FL'OAT THE HIGH PART'0
	FADR	A,A+1	;'PCOMBINE THE TWO P'pARTS
>
IFE CPU-(KI10,<
	FLTR	A,(0A	;USE THE HARDW(PARE
>
FLT.XT:	P(pOPJ	P,	;RETURN A)=THE FLOATING POINT NUMBER
 S@ )P
	ENTRY	I)pFX.A
	SIXBIT	/I*FX.A/
IFX.A:
*0IFE CPU-KA10,<
	*PMULI	A,400		;SEP*pERATE THE FRACTIO+N AND EXPONENT
	+0EXCH	A,A+1		;PU+PT PARTICAL RESULT+p IN A
	JUMPGE	,A+1,IFX.XT	;JUMP ,0IF POSITIVE
	TRC,P	A+1,-1	;NEGATE ,pTHE EXPONENT
	MO-VNS	A		;POSITIVE-0 FRACTION
IFX.XT-P:	ASH	A,-243(A+-p1)	;USE EXPONENT .AS INDEX
	SKIPGE.0	A+1		;SKIP IF P.POSITIVE
	MOVNS	.pA		;NEGATE THE RE/SULT
>
IFE CPU-/0KI10,<
	FIX	A,/PA
>
	POPJ	P,		;/pRETRURN A=FIXED NUMBER
>}{woP