Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50053/dp.mac
There are 5 other files named dp.mac in the archive. Click here to see a list.
TITLE DP DIGIT PART AND DECIMAL EXPONENT PART OF A NUMBER
SUBTTL V.001 J. BURCHFIEL MAY 28,1969
ENTRY DP,XP
INTERN DP,XP
EXTERN ALOG10,EXP2.0
P=17
DP: Z
SETZM FLAG
JRST .+3
XP: Z
SETOM FLAG
PUSH P,1
PUSH P,2
MOVE 0,@0(16)
MOVMM TMP
JSA 16,ALOG10
JUMP 2,TMP
UFA 0,[XWD 233000,0] ;ENTIRE OF DECIMAL EXPONENT
SKIPL FLAG
JRST DP1
FSC 1,0 ;NORMALIZE
MOVE 0,1
DONE: POP P,2
POP P,1
JRA 16,1(16)
DP1: HRRES 1 ;EXTEND SIGN - FIXED EXPONENT
MOVE 2,0
HRLZI 0,204500 ;^D10
PUSHJ P,EXP2.0 ;10^ENTIER(ALOG10(X))
FDVRM 2,0
JRST DONE
FLAG: Z
TMP: Z
END