;Дополнение для патча "Добавить в "Вызовы" пункт меню "Сбросить""
;Добавляет софт в телефонную книгу
;(с) Therion
include "x.inc"
code16

org 0x140A7ABA
ldr r1, zamain
bx  r1
align 4
zamain dw patch+1

code16
org 0x15E8AF90
;=============================================
patch:
add  r0, sp, 0x18
push {r0}
mov  r3, r4
add  r0, sp, 4
ldrb r2, [r0,3]
mov  r1, r6
mov  r0, r5
bl   somefunc
add  sp,sp,4

ldr r2, _twosoftkey_action
ldr r1, softkey_id
mov r0, r5
bl  GUIObject_SoftKeys_SetAction
ldr r2, softkey_text
ldr r1, softkey_id
mov r0, r5
bl  GUIObject_SoftKey_SetText
mov r2, 1
ldr r1, softkey_id
mov r0, r5
bl  GUIObject_SoftKeys_SetVisible

ldr r3, returnbx
bx  r3
;===================================================
twosoftkey_action:
push    {r4-r7,lr}
mov     r4, r0
mov     r5, r1
mov     r0, 0xE0
ldrb    r0, [r4,r0]
cmp     r0, 0
bne     dataend
mov     r2, r5
mov     r1, 9
mov     r0, r4
ldr     r7, twoPB_UI_SoftkeysCreateAction
blx     r7
mov     r0, 1
bl       WriteEnvp
dataend:
pop     {r4-r7,pc}    

WriteEnvp:
        PUSH    {R1-R7,LR}
        MOV    R2, R0
        adr    R1, aCall_data    ; "cl_dat"
        MOV    R0, 0
        BL    set_envp
        POP    {R1-R7,PC}    
                
align 4
code16
softkey_id      dw 0x30
softkey_text    dw 0x199F
returnbx        dw 0x140A7ACE+1
_twosoftkey_action dw twosoftkey_action+1
twoPB_UI_SoftkeysCreateAction dw 0x14FECDE8+1
;-----------------------------------------
GUIObject_SoftKeys_SetVisible:
ldr r3, _GUIObject_SoftKeys_SetVisible
bx  r3
GUIObject_SoftKeys_SetAction:
ldr r3, _GUIObject_SoftKeys_SetAction
bx  r3
GUIObject_SoftKey_SetText:
ldr r3, _GUIObject_SoftKey_SetText
bx  r3
set_envp:
ldr r3, _set_envp
bx  r3
somefunc:
push {r3}
ldr  r3, _somefunc
mov  r12,r3
pop  {r3}
bx   r12
align 4
_GUIObject_SoftKeys_SetVisible dw 0x141053FC+1
_GUIObject_SoftKeys_SetAction dw 0x14105420+1
_GUIObject_SoftKey_SetText dw 0x14105150+1
_set_envp dw 0x101EC751
_somefunc dw 0x140A7E94+1
aCall_data db 'call_data',0