;Автоматическое снижение яркости до 20% при разговоре
;После окончания разговора яркость дисплея устанавливается в предыдущее значение
;(c) 2007KrasH
;(p,e) Therion
include "%fasminc%\x.inc"
code16
org 0x14E7B508
ldr r3, _OGCallBook_Bace
bx r3
_OGCallBook_Bace dw OGCallBook_Bace+1

org 0x15B48BD4
dw OGCallBook_BaceDestroy+1

org 0x15E59BC0
OGCallBook_Bace:
mov r0, 0
bl Display_GetBrightness
bl WriteEnvp
mov r0, 0x14
bl Display_SetBrightnessLevel
mov r2, 0
mov r1, r2
mov r0, r4
bl ui_bookshelf_enablelists
ldr r3, OGCallBook_Bace_return
bx r3
;--------------------------------
OGCallBook_BaceDestroy:
push {r0-r7,lr}
bl ReadSavedDataByte
bl Display_SetBrightnessLevel
bl RestoredCode
pop {r0-r7,pc}

WriteEnvp:
PUSH {R1-R7,LR}
MOV R2, R0
adr R1, OGCallBook_dat ; "OGCallBook_dat"
MOV R0, 0
BL set_envp
POP {R1-R7,PC}
ReadSavedDataByte:
PUSH {R1-R7,LR}
adr R1, OGCallBook_dat ; "OGCallBook_dat"
MOV R0, 0
BL get_envp
POP {R1-R7,PC}

align 4
code16
OGCallBook_Bace_return dw 0x14E7B512+1
Display_SetBrightnessLevel:
ldr r3, _Display_SetBrightnessLevel
bx r3
ui_bookshelf_enablelists:
ldr r3, _ui_bookshelf_enablelists
bx r3
Display_GetBrightness:
ldr r3, _Display_GetBrightness
bx r3
set_envp:
ldr r3, _set_envp
bx r3
get_envp:
ldr r3, _get_envp
bx r3
RestoredCode:
ldr r3, _RestoredCode
bx r3
align 4
_ui_bookshelf_enablelists dw 0x141339F0+1
_Display_SetBrightnessLevel dw 0x1550B79C+1
_Display_GetBrightness dw 0x150860F0+1
_RestoredCode dw 0x14F4A564+1
_set_envp dw 0x101EC751
_get_envp dw 0x101EC73D
OGCallBook_dat db 'OGCallBook_data',0