q15_div.lst

Texas-Instrument C2000 Series DSP example programs

C:\DSP\2XX\DSPTOOLS\CGT\6.63B\dspa.exe -v2xx -s -s -l ..\source\q15_div.asm q15_div.obj 

TMS320C1x/C2x/C2xx/C5x COFF Assembler Beta Version 6.63  Mon Feb  9 04:52:50 1998
Copyright (c) 1987-1996  Texas Instruments Incorporated 
..\source\q15_div.asm                                                PAGE    1

       1            ;=====================================================================
       2            ; Name:          Q15_DIV.ASM
       3            ; Project:       Q15.LIB 
       4            ; Originator:    Martin Staebler
       5            ;=====================================================================
       6            
       7            ;---------------------------------------------------------------------
       8            ; unsigned _q15_div(unsigned nom,unsigned denom)
       9            ;---------------------------------------------------------------------
      10            ; Function:     positive fractional q15 division
      11            ;               range from 0000h .. 7FFFF
      12            ;
      13            ; Arguments:    unsigned nominator:    q15 [0000h - 7FFFFh]
      14            ;               unsigned denominator:  q15 > nominator   
      15            ;               --> !!! check beforehand  !!!                      
      16            ;
      17            ; Return value:  dividend q15 <--> 0000h - 7FFFh
      18            ;---------------------------------------------------------------------
      19                            .def    _q15_div
      20 0000                       .text
      21 0000       _q15_div:                
      22                    ;context save        
      23                    ;------------
      24 0000 8aa0                  popd    *+              ;push return address
      25                                                    ;no local var's
      26 0001 8180                  sar     AR1,*
      27 0002 028a                  lar     AR2,*,AR2
      28 0003 7c02                  sbrk    #2              ;AR2 points to first parameter
      29                            
      30                    ;division for POSITIV fractional numbers        
      31                    ;---------------------------------------
      32                    
      33 0004 6a90                  lacc    *-,16   
      34 0005 bb0e                  rpt     #14
      35 0006 0a80                  subc    *       
      36                                            ;ACCL = quotient
      37                    
      38                    ;context restore                
      39                    ;---------------
      40 0007 8b89                  mar     *,AR1
      41 0008 7c01                  sbrk    #1              ;pop local var's + 1 from stack
      42 0009 7680                  pshd    *               ;restore return address
      43 000a ef00                  ret
      44                    
      45                    
      46                   
      47            
      48            

 No Errors,  No Warnings