tsrar.lst

FFT asm version.A zip file of all the files is provided in FFT.ZIP

TSRAR                                                                                                         PAGE 1

                       1    $mod51
                       2    $nolist
                     117    $list
                     118    
4000                 119            org     tpa
4000 754810          120    start:  mov     radix,#16
4003 754902          121            mov     radsiz,#2
                     122    
4006 75F010          123            mov     b,#16
4009 7880            124            mov     r0,#80h
400B E8              125            mov     a,r0
400C 120142          126            call    psprad
400F E8              127    loop:   mov     a,r0
4010 A2E7            128            mov     c,acc.7
4012 13              129            rrc     a
4013 F8              130            mov     r0,a
4014 120142          131            call    psprad
4017 D5F0F5          132            djnz    b,loop
401A 12012D          133            call    crlf
401D 22              134            ret
                     135    
                     136            end
                     137            

VERSION 1.2h ASSEMBLY COMPLETE, 0 ERRORS FOUND