Google
 
Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - fkamsc.unv
There are no other files named fkamsc.unv in the archive.
x
(4@P M3  ,x
	ENTRY	F-LT.A
	SIXBIT	/F-8LT.A/
FLT.A:
-XIFE CPU-KA10,<
	-xHLRE	A+1,A	;COP.Y THE HI HALT OF .8A TO LOW A+1
	.XHLL	A,A+1	;FILL.x UPPER PART OF A/ WITH THE SIGH
	/8FSC	A,233	;FLOAT/X THE LOW HALT OF /xTHE INTEGER
	SKI0PGE	A	;FOR NEGAT08IVE NUMBERS
	AOJ0XE	A+1,FLT.XT	;CH0xANGE HIGH PART TO1 2'S COMPLEMENT
18	FSC	A+1,255	;FL1XOAT THE HIGH PART1x
	FADR	A,A+1	;2COMBINE THE TWO P28ARTS
>
IFE CPU-2XKI10,<
	FLTR	A,2xA	;USE THE HARDW3ARE
>
FLT.XT:	P38OPJ	P,	;RETURN A3X=THE FLOATING POINT NUMBER
S@ 4S
	ENTRY	I48FX.A
	SIXBIT	/I4XFX.A/
IFX.A:
4xIFE CPU-KA10,<
	5MULI	A,400		;SEP58ERATE THE FRACTIO5XN AND EXPONENT
	5xEXCH	A,A+1		;PU6T PARTICAL RESULT68 IN A
	JUMPGE	6XA+1,IFX.XT	;JUMP 6xIF POSITIVE
	TRC7	A+1,-1	;NEGATE 78THE EXPONENT
	MO7XVNS	A		;POSITIVE7x FRACTION
IFX.XT8:	ASH	A,-243(A+881)	;USE EXPONENT 8XAS INDEX
	SKIPGE8x	A+1		;SKIP IF P9OSITIVE
	MOVNS	98A		;NEGATE THE RE9XSULT
>
IFE CPU-9xKI10,<
	FIX	A,:A
>
	POPJ	P,		;:8RETRURN A=FIXED NUMBER
>}{woP