; это первый урок будут и другие



                 PUSH    {R0-R5,LR}
                 ;здесь устанавливаються параметры вибры: мощьность,время одного вибрика, время между вибриками
                 MOV     R0, 0x30
                 MOV     R1, 0x20
                 MOV     R2, 0x10
                 ;здесь вызываеться функция виры
                 LDR     R5, SWI_0x1BB_Vibra
                 BLX     R5
                
                 MOV     R0, 0x7F ;время  длительности всего этого процесса
                 LDR     R1, off_ ; переход на выключение вибры
                 
                 LDR     R5, SWI_0x129_Timer_Set
                 BLX     R5
                 POP     {R0-R5,PC}



 off:
 ;здесь сопсна говоря она и вырубаеться
                 PUSH    {R0-R3,LR}
                 MOV     R0, 0 
                 LDR     R3, SWI_0x248_Vibra_Off
                 BLX     R3
                 POP     {R0-R3,PC}
 ; ---------------------------------------------------------------------------
SWI_0x1BB_Vibra  DCD 0x45452EA4+1
off_    DCD off+1      
SWI_0x129_Timer_Set  DCD 0x45294D90+1
SWI_0x248_Vibra_Off  DCD 0x45452F7C+1
;дреса преведены для W810 R4DB005

        PUSH    {LR}
        BL    sub_AudioControl_Init
        CMP    R0, 0
        BNE    loc_
        BL    sub_GetAudioControlPtr
        LDR    R0, [R0]
loc_:
        MOV    R3, 0x30 ;totaltime
        MOV    R2, 0x10 ;pausetime
        MOV    R1, 0x20 ;vibratime
        BL    sub_AudioControl_Vibrate
        POP    {PC}
sub_AudioControl_Init:
        LDR    R3, off_AudioControl_Init
        BX    R3
off_AudioControl_Init    DCD AudioControl_Init+1
sub_GetAudioControlPtr:
        LDR    R3, dword_GetAudioControlPtr
        BX    R3
dword_GetAudioControlPtr    DCD 0x201806C4 ;for k790 r8bf003
sub_AudioControl_Vibrate:
        PUSH    {R3}
        LDR    R3, off_AudioControl_Vibrate
        MOV    R12, R3
        POP    {R3}
        BX    R12
        NOP
off_AudioControl_Vibrate    DCD AudioControl_Vibrate+1

PUSH    {R0-R7,LR}
        MOV    R0, 0
        SUB    SP, SP,    4
        STR    R0, [SP]
        SUB    SP, SP,    0x88
        MOV    R0, SP
        LDR    R1, off_
        BLX    R1
        MOVL    R1, 0x3E8
        MOV    R2, 0x32
        ADD    R3, R1,    0
        LDR    R6, [R0]
        MOVL    R4, 0x168
        LDR    R6, [R6,R4]
        BLX    R6
        ADD    SP, SP,    0x8C
        POP    {R0-R7,PC}
        ALIGN 4
off_    DCD 0x4529D5D8+1;for k790 r8bf003

PUSH    {R0-R7,LR}
SUB    SP, SP, 4
MOV    R0, SP
LDR    R1, off_
BLX    R1
LDR    R0, [SP]
MOVL    R1, 0x3e8
MOV    R2, 0x32
ADD    R3, R1, 0
LDR    R6, [R0]
MOV    R4, 0xFF
ADD    R4, 0x89
LDR    R6, [R6,R4]
BLX    R6
ADD    SP, SP, 4
POP    {R0-R7,PC}
align 4
off_    DCD 0x10DC0070+1 ;for W595 r3ea037 LT

push    {r0-r7,lr}
sub     sp, sp, 4
mov     r0, sp
ldr r1,.addr
blx r1
ldr r0,[sp]
movl r1, 0x3e8
mov r2, 0x32
add r3,r1,0
ldr r6,[r0]
movl r4, 0x194
ldr r6,[r6,r4]
blx r6
add sp,sp,4
pop {r0-r7,pc}
;for w910 sw-r1fa035

macro longf na
{
far_#na :
        push \{r3\}
        ldr r3,.1
        mov r12,r3
        pop \{r3\}
        bx r12
        align 4
.1:     dw na
}