| 68 |
ADD rB2,rB2 ; MSB of exponent to carry |
ADD rB2,rB2 ; MSB of exponent to carry |
| 69 |
adc rB3,rB3 ; whole exponent in rB3, sign in C |
adc rB3,rB3 ; whole exponent in rB3, sign in C |
| 70 |
CPI rB3,0xFF ; check for NAN |
CPI rB3,0xFF ; check for NAN |
| 71 |
BREQ fp_split_nan ; if no jump then C as hidden one is set |
BREQ .L_fp_split_nan ; if no jump then C as hidden one is set |
| 72 |
CLR rBE ; clear fraction extension |
CLR rBE ; clear fraction extension |
| 73 |
cp rBE,rB3 ; set C if nonzero exponent. -MM 2000-11-25 |
cp rBE,rB3 ; set C if nonzero exponent. -MM 2000-11-25 |
| 74 |
brcs 1f |
brcs 1f |
| 79 |
ADD rA2,rA2 ; MSB of exponent to carry |
ADD rA2,rA2 ; MSB of exponent to carry |
| 80 |
adc rA3,rA3 ; whole exponent in rA3, sign in C |
adc rA3,rA3 ; whole exponent in rA3, sign in C |
| 81 |
CPI rA3,0xFF ; if no jump then C as hidden one is set |
CPI rA3,0xFF ; if no jump then C as hidden one is set |
| 82 |
BREQ fp_split_nan |
BREQ .L_fp_split_nan |
| 83 |
CLR rAE ; clear fraction extension |
CLR rAE ; clear fraction extension |
| 84 |
cp rAE,rA3 ; set C if nonzero exponent. -MM 2000-11-25 |
cp rAE,rA3 ; set C if nonzero exponent. -MM 2000-11-25 |
| 85 |
brcs 1f |
brcs 1f |
| 87 |
1: |
1: |
| 88 |
ROR rA2 ; sets hidden bit |
ROR rA2 ; sets hidden bit |
| 89 |
RET |
RET |
| 90 |
fp_split_nan: |
.L_fp_split_nan: |
| 91 |
POP rA3 |
POP rA3 |
| 92 |
POP rA3 ; pop return adress |
POP rA3 ; pop return adress |
| 93 |
#ifdef __ERRNO__ |
#ifdef __ERRNO__ |