Цветомузыка без ПК

#define SHT_PROGBITS 0x1

        EXTERN g_fftWindow
        EXTERN g_unityRoots

        PUBLIC _Z5DoFFTPti
        PUBLIC g_fftData


        SECTION `.bss`:DATA:REORDER:NOROOT(2)
        DATA
g_fftData:
        DS8 8192

        SECTION `.text`:CODE:NOROOT(2)
        THUMB
_Z5DoFFTPti:
        PUSH     {R4-R11,LR}
        SUB      SP,SP,#+8
        MOVS     R2,#+0
        LDR.N    R3,??DataTable2
        LDR.N    R4,??DataTable2_1
??DoFFT_0:
        RBIT     R5,R2
        LSRS     R5,R5,#+21
        LDRH     R6,[R0, R5, LSL #+1]
        LSRS     R5,R5,#+1
        SUBS     R6,R6,R1
        LDR      R5,[R4, R5, LSL #+2]
        LSLS     R6,R6,#+5
        MULS     R6,R6,R5
        ASRS     R6,R6,#+16
        STR      R6,[R3], #+4
        ADDS     R2,R2,#+1
        MOVS     R6,#+0
        CMP      R2,#+1024
        STR      R6,[R3], #+4
        BLT.N    ??DoFFT_0
        MOVS     R2,#+1
        MOV      R7,#+512
        MOVS     R1,#+0
        B.N      ??DoFFT_1
??DoFFT_2:
        MOVS     R1,#+0
        CMP      R7,#+0
        BLE.N    ??DoFFT_3
        MOV      R2,R0
??DoFFT_1:
        STR      R2,[SP, #+0]
        STR      R7,[SP, #+4]
??DoFFT_4:
        LDR      R0,[SP, #+0]
        LDR.N    R6,??DataTable2_2
        CMP      R0,#+0
        BLE.N    ??DoFFT_5
        LDR.N    R2,??DataTable2
        ADDS     R0,R0,R1
        ADD      R11,R2,R0, LSL #+3
        LDR.W    R0,[SP, #+0]
        ADD      R12,R2,R1, LSL #+3
??DoFFT_6:
        LDR      R9,[R6, #+4]
        LDR      LR,[R11, #+4]
        LDR      R8,[R6, #+0]
        LDR      R10,[R11, #+0]
        SMULL    R2,R3,R8,R10
        SMULL    R4,R5,R9,LR
        LSRS     R2,R2,#+16
        LSRS     R4,R4,#+16
        ORR      R2,R2,R3, LSL #+16
        ORR      R4,R4,R5, LSL #+16
        SUBS     R2,R2,R4
        SMULL    R4,R5,R9,R10
        SMULL    R8,R9,R8,LR
        LSRS     R4,R4,#+16
        LSR      R3,R8,#+16
        ORR      R4,R4,R5, LSL #+16
        ORR      R3,R3,R9, LSL #+16
        ADD      R4,R3,R4
        LDR      R5,[R12, #+0]
        LDR      R3,[R12, #+4]
        SUBS     R5,R5,R2
        SUBS     R3,R3,R4
        STR      R5,[R11], #+4
        STR      R3,[R11], #+4
        ADDS     R1,R1,#+1
        LDR      R3,[R12, #+4]
        ADDS     R4,R4,R3
        LDR      R3,[R12, #+0]
        ADD      R2,R2,R3
        STR      R2,[R12, #+0]
        STR      R4,[R12, #+4]
        SUBS     R0,R0,#+1
        ADD      R6,R6,R7, LSL #+3
        ADD      R12,R12,#+8
        BNE.N    ??DoFFT_6
??DoFFT_5:
        LDR      R0,[SP, #+0]
        LDR      R2,[SP, #+4]
        ADDS     R1,R0,R1
        SUBS     R2,R2,#+1
        STR      R2,[SP, #+4]
        BNE.N    ??DoFFT_4
??DoFFT_3:
        LDR      R0,[SP, #+0]
        LSLS     R0,R0,#+1
        ASRS     R7,R7,#+1
        STR      R0,[SP, #+0]
        BNE.N    ??DoFFT_2
        LDR.N    R2,??DataTable2
        ADD      R3,R2,#+8
        MOVW     R1,#+511
        MOVS     R4,#+1
??DoFFT_7:
        LDR      R5,[R3, #+4]
        LDR      R0,[R3, #+0]
        ASRS     R5,R5,#+10
        ASRS     R0,R0,#+10
        MULS     R5,R5,R5
        MLA      R0,R0,R0,R5
        CBNZ.N   R0,??DoFFT_8
        MOVS     R5,#+0
        B.N      ??DoFFT_9
        Nop      
??DoFFT_8:
        CLZ      R5,R0
        RSB      R5,R5,#+32
        LSRS     R5,R5,#+1
        LSL      R5,R4,R5
        UDIV     R6,R0,R5
        ADDS     R5,R6,R5
        LSRS     R5,R5,#+1
        UDIV     R11,R0,R5
        ADD      R5,R11,R5
        LSRS     R5,R5,#+1
        UDIV     R0,R0,R5
        ADDS     R5,R0,R5
        LSRS     R5,R5,#+1
??DoFFT_9:
        SUBS     R1,R1,#+1
        STR      R5,[R3], #+8
        BNE.N    ??DoFFT_7
        LDR      R0,[R2, #+0]
        CMP      R0,#+0
        IT       MI 
        RSBMI    R0,R0,#+0
        ASRS     R0,R0,#+11
        STR      R0,[R2, #+0]
        ADD      SP,SP,#+8
        MOV      R0,#+4096
        LDR      R1,[R2, R0]
        CMP      R1,#+0
        IT       MI 
        RSBMI    R1,R1,#+0
        ASRS     R1,R1,#+11
        STR      R1,[R2, R0]
        POP      {R4-R11,PC}      ;; return


        SECTION `.text`:CODE:NOROOT(2)
        SECTION_TYPE SHT_PROGBITS, 0
        DATA
??DataTable2:
        DC32     g_fftData

        SECTION `.text`:CODE:NOROOT(2)
        SECTION_TYPE SHT_PROGBITS, 0
        DATA
??DataTable2_1:
        DC32     g_fftWindow

        SECTION `.text`:CODE:NOROOT(2)
        SECTION_TYPE SHT_PROGBITS, 0
        DATA
??DataTable2_2:
        DC32     g_unityRoots

        SECTION `.text`:CODE:NOROOT(2)
        SECTION_TYPE SHT_PROGBITS, 0
        DATA
??DataTable2_3:
        DC32     0xffffaf67

        SECTION `.text`:CODE:NOROOT(2)
        SECTION_TYPE SHT_PROGBITS, 0
        DATA
??DataTable2_4:
        DC32     0xfffef3a1

        SECTION `.iar_vfe_header`:DATA:NOALLOC:NOROOT(2)
        SECTION_TYPE SHT_PROGBITS, 0
        DATA
        DC32 0

        END
// 
// 8 192 bytes in section .bss
//   622 bytes in section .text
// 
//   622 bytes of CODE memory
// 8 192 bytes of DATA memory
//
//Errors: none
//Warnings: none