Motorola DSP96002 - Manual (Page 696)

MOTOROLA DSP96002 USER’S MANUAL B-177
move #EDEN,d0.m ;
abs d0 ;
move d0.l,d1.m ;
do d1.m,_dnrmq ;
lsr d4 ;
ror d5 ;
ror d3 ;
_dnrmq
jset #0,d1.h,_sundr ;
jset #9,d5.l,_sundr ;
jset #10,d5.l,_sundr ;
jmp _asml ;
; ****** Round ******
_rnd jset #10,d5.l,_inex ;
jset #9,d5.l,_inex ;
jset #0,d1.h,_inex ;
jmp _endrnd ;
_sundr
ori #$04,er ;
ori #$04,ier ;
_inex ;
ori #$01,er ;
ori #$01,ier ;
jclr #22,sr,_nxt ;
jset #21,sr,_pinf ;
jclr #31,d0.h,_endrnd ;
jmp _add1 ;
_nxt ;
jclr #21,sr,_rn ;
jmp _endrnd ;
_pinf jset #31,d0.h,_endrnd ;
jmp _add1 ;
_rn jclr #10,d5.l,_endrnd ;
jset #9,d5.l,_add1 ;
jset #0,d1.h,_add1 ;
jset #11,d5.l,_add1 ;
jmp _endrnd ;
;
_add1 move #INUM,d0.l ;
add d0,d5 ;
move #0,d0.l ;
addc d0,d4 ;
jcc _den ;
move d0.m,d0.l ;
inc d0 ;
move d0.l,d0.m ;
lsr d4 ;
ror d5 ;