;Добавить в "Вызовы" пункт меню "Сбросить"
;При выборе данного пункта совершается обычный звонок, который сбрасывается сразу после установки соединения
;+ Сообщение о выполнении
;- Heapshift
;(С) MaPkiZzz aka Vital
;(p,e) Therion
include "%fasminc%\x.inc"
code16

org 0x14FF8ADC
ldr r3, zamain
bx r3
align 4
zamain dw patch+1


org 0x15B5C0E0
dw patch2+1


org 0x15E284E0
patch:
code16
ldr r3, edit_lable
ldr r2, edit_action
mov r1, 6
mov r0, r4
bl pb_setsoftkey

ldr r3, prozvon_lable
ldr r2, prozvon_action
mov r1, 0xB
mov r0, r4
bl pb_setsoftkey
ldr r3, return
bx r3
align 4
code16
return dw 0x14FF8AE8+1
edit_lable dw 0xC3A
prozvon_lable dw 0x1EA4
edit_action dw 0x15367F04+1
prozvon_action dw _prozvon_action+1

patch2:
push {r0-r7,lr}
mov r6, r0
mov r7, r1
bl ReadSavedDataByte
cmp r0, 0
beq default

mov r0, r7
ldr r1, [r7,0x18]
bl rejectcall

mov r0, 0
bl WriteEnvp
bl messagebox_base
pop {r0-r7,pc}


default:
mov r1, r7
mov r0, r6
bl old_action
pop {r0-r7,pc}

align 4
code16

_prozvon_action:
push {r0-r7,lr}
ldr r7, makeCall
blx r7
mov r0, 1
bl WriteEnvp
pop {r0-r7,pc}
code16
messagebox_base:
push {r4-r7,lr}
ldr r0, header_str
mov r2, 0
ldr r1, myTime
push {r0-r2}
ldr r2, myIcon
ldr r0, wchar_t
mov r3, 1
ldr r1, myLable
bl messageBox
add sp, sp, 0xC
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}
ReadSavedDataByte:
PUSH {R1-R7,LR}
adr R1, aCall_data ; "cl_dat"
MOV R0, 0
BL get_envp
POP {R1-R7,PC}


align 4
code16


old_action:
ldr r3, _old_action
bx r3
rejectcall:
ldr r3, _rejectcall
bx r3
set_envp:
ldr r3, _set_envp
bx r3
get_envp:
ldr r3, _get_envp
bx r3

pb_setsoftkey:
push {r3}
ldr r3, _pb_setsoftkey
mov r12,r3
pop {r3}
bx r12

messageBox:
push {r3}
ldr r3, _messageBox
mov r12,r3
pop {r3}
bx r12

; ---------------------------------------------------------------------------
align 4
code16
return2 dw 0x14F63DF8+1
makeCall dw 0x14DCAF54+1
_rejectcall dw 0x1552C558+1
_old_action dw 0x14D66C8C+1
_pb_setsoftkey dw 0x143F4890+1
_messageBox dw 0x15966F9D
;----------------------------------
myIcon dw 0x10A
myLable dw 0x1CEE
wchar_t dw 0x6FFFFFFF
header_str dw 0x5DF
myTime dw 0x0
_set_envp dw 0x101EC751
_get_envp dw 0x101EC73D
aCall_data db 'call_data',0
align 4