Motorola DSP96002 User Manual page 692

; ****** Flush DeNorms to 0 if Fast Mode ******
jclr
move
jset
fclr
and
move
_chkop2 jset
fclr
and
move
; ****** Sign Bit Calculation ******
_chksgn move
move
eor
move
; ****** Check Input Operands ******
_chkops
depftst d6,d0,d1
jeq
jset
jset
depftst d7,d0,d1
jeq
jset
jset
; ****** Extract Exponents ******
; ------ Should be able to use FGETEXP here on double-extended ------
move
move
and
tst
jne
inc
_ebias1 move
sub
move
move
MOTOROLA
#27,sr,_chksgn
#$80000000,d1.l
#31,d6.m,_chkop2
d6 d6.h,d0.l
d1,d0
d0.l,d6.h
#31,d7.m,_chksgn
d7 d7.h,d0.l
d1,d0
d0.l,d7.h
d6.h,d0.l
d7.h,d1.l
d1,d0
d0.l,d0.h
_op1_0
#4,sr,_op1inf
#5,sr,_op1nan
_op2_0
#4,sr,_op2inf
#5,sr,_op2nan
d7.h,d0.l
#EXP_MSK,d1.l
d1,d0
d0
_ebias1
d0
#EBIAS,d1.l
d1,d0
d0.l,d0.m
d6.h,d0.l
DSP96002 USER'S MANUAL
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
B-173