[FLFRS
[FLOS-1R PIECED
[FLOAT FRACTION
#1F CLR
ADD 0
JMP 1X-1
STC 1N-10
STC 1R-2
LDA 2
STC p+4 [TO ALLOW FLOAT IN PLACE
ADD 1N-10
STA 3
LDA i
0
STA
1N+1
AZE i
JMP 1H+1 [ZERO RESULT
ROLi1 [SIGN TO LINK BIT
JMP 1N
LDA i
-1 [CONSTANT -1
JMP 1Q+2 [DECREM EXPONENT
JMP p-4
[END FLFRS
[JAN 6|26|69