include "x.inc"
include "c510_r1ha035.asm"
; ---------------------------------------------------------------------------
patch = 0x15D10600
vrezka1 = 0x14EED46C
vrezka2 = 0x14D2DA68
vrezka3 = 0x14EED484
vrezka4 = 0x1504B6FA
vrezka5 = 0x15750ADE
addr1 = 0x14EED490
addr2 = 0x1504B706
addr3 = 0x14D30161
addr4 = 0x14D2DA72
addr5 = 0x15750AEA
addr6 = 0x14EB9698
addr7 = 0x141818E4
addr8 = 0x1427D5D4
heapshift = 0x4BB2006C
; ---------------------------------------------------------------------------

org vrezka1
        MOVL   R0, 0x410

org vrezka2
        LDR     R3, off_14D2DA6C
        BX      R3
; ---------------------------------------------------------------------------
off_14D2DA6C    dw patch2+1

org vrezka3
        LDR     R2, off_14EED488
        BX      R2
; ---------------------------------------------------------------------------
off_14EED488    dw patch+1

org vrezka4
        LDR     R2, off_1504B700
        BX      R2
; ---------------------------------------------------------------------------
        NOP
; ---------------------------------------------------------------------------
off_1504B700    dw patch3+1


org vrezka4
        LDR     R0, off_15750AE4
        BX      R0
; ---------------------------------------------------------------------------
        NOP
; ---------------------------------------------------------------------------
off_15750AE4    dw patch4+1


org patch
; ---------------------------------------------------------------------------
        LDR    R0, [SP]
        MOV    R1, SP
        LDRB    R1, [R1,4]
        STRB    R1, [R0,8]
        MOVL    R2, 0x408
        LDR    R1, dword_15D10888
        LDRB    R1, [R1]
        LDR    R0, [SP]
        STRB    R1, [R0,R2]
        MOV    R2, 0
        LSL    R6, R6,    2
        LDR    R3, off_15D1061C
        BX    R3
; ---------------------------------------------------------------------------
off_15D1061C    dw addr1+1
; ---------------------------------------------------------------------------

patch3:
        MOVL    R2, 0x408
        LDRB    R0, [R4,R2]
        CMP    R0, 0
        BNE    loc_15D1063A
        MOV    R2, 0
        MOVL    R0, 0x208
        ADD    R1, R4,    R0
        ADD    R0, R4,    0
        ADD    R0, 0xA
        LDR    R3, off_15D10658
        BX    R3
; ---------------------------------------------------------------------------

loc_15D1063A:
        MOV    R0, 0
        PUSH    {R0}
        MOVL    R0, 0x208
        ADD    R3, R4,    R0
        ADR    R2, aCardRecycler
        ADD    R1, R3,    0
        ADD    R0, R4,    0
        ADD    R0, 0xA
        BL    sub_15D10834
        ADD    SP, SP,    4
        LDR    R1, off_15D10658
        ADD    R1, R1,    4
        BX    R1
; ---------------------------------------------------------------------------
off_15D10658    dw addr2+1
; ---------------------------------------------------------------------------

patch2:
        BL    sub_15D106FE
        LDR    R2, off_15D1088C
        MOV    R1, 0
        LDR    R0, [R4,0x10]
        BL    sub_15D107FC
        MOV    R3, 0
        MOV    R2, 0x22
        MOV    R1, 0
        LDR    R0, [R4,0x10]
        BL    sub_15D1083E
        LDR    R2, off_15D10890
        MOV    R1, 1
        LDR    R0, [R4,0x10]
        BL    sub_15D107FC
        MOV    R3, 0
        MOV    R2, 0x23
        MOV    R1, 1
        LDR    R0, [R4,0x10]
        BL    sub_15D1083E
        LDR    R0, [R4,0x10]
        ADD    R1, R5,    0
        LDR    R2, off_15D1069C
        BL    sub_15D107FC
        LDR    R2, off_15D106A0
        BX    R2
; ---------------------------------------------------------------------------
        align 4
off_15D1069C    dw addr3
off_15D106A0    dw addr4+1
; ---------------------------------------------------------------------------
patch4:
        BL    sub_15D106FE
        ADD    R2, R6,    0
        LDR    R1, dword_15D106EC
        LDR    R0, [R5]
        LDR    R0, [R0,0x10]
        BL    sub_15D107FC
        LDR    R2, off_15D1088C
        MOV    R1, 0
        LDR    R0, [R5]
        LDR    R0, [R0,0x10]
        BL    sub_15D107FC
        MOV    R3, 0
        MOV    R2, 0x22
        MOV    R1, 0
        LDR    R0, [R5]
        LDR    R0, [R0,0x10]
        BL    sub_15D1083E
        LDR    R2, off_15D10890
        MOV    R1, 1
        LDR    R0, [R5]
        LDR    R0, [R0,0x10]
        BL    sub_15D107FC
        MOV    R3, 0
        MOV    R2, 0x23
        MOV    R1, 1
        LDR    R0, [R5]
        LDR    R0, [R0,0x10]
        BL    sub_15D1083E
        LDR    R2, off_15D106F0
        BX    R2
; ---------------------------------------------------------------------------
dword_15D106EC    dw 0xFBE
off_15D106F0    dw addr5+1
; ---------------------------------------------------------------------------

loc_15D106F4:
        PUSH    {R0,R1,LR}
        LDR    R1, dword_15D10888
        MOV    R0, 0
        STRB    R0, [R1]
        POP    {R0,R1,PC}

; =============== S U B    R O U T    I N E =======================================


sub_15D106FE:
        PUSH    {LR}
        LDR    R1, dword_15D10888
        MOV    R0, 1
        STRB    R0, [R1]
        POP    {PC}

; ---------------------------------------------------------------------------

loc_15D10708:
        PUSH    {R0-R7,LR}
        ADR    R1, off_15D107B8
        BL    sub_15D10800
        POP    {R0-R7,PC}
; ---------------------------------------------------------------------------

loc_15D10712:
        PUSH    {LR}
        ADD    R0, R1,    0
        BL    sub_15D1080C
        PUSH    {R0}
        LDR    R2, dword_15D107A4
        MOV    R1, 0
        ADR    R0, aKorzina
        BL    sub_15D1081C
        ADD    R3, R0,    0
        MOV    R2, 2
        MOV    R1, 0
        POP    {R0}
        BL    sub_15D10804
        POP    {PC}
; ---------------------------------------------------------------------------

loc_15D10734:
        PUSH    {LR}
        ADD    R0, R1,    0
        BL    sub_15D10740
        MOV    R0, 1
        POP    {PC}

; =============== S U B    R O U T    I N E =======================================


sub_15D10740:
        PUSH    {R4,R5,LR}
        ADD    R4, R0,    0
        BL    sub_15D10808
        ADD    R5, R0,    0
        BEQ    locret_15D10798
        ADD    R0, R4,    0
        BL    sub_15D1080C
        ADD    R1, R0,    0
        ADD    R0, R5,    0
        BL    sub_15D10810
        MOV    R1, 0
        ADD    R0, R5,    0
        BL    sub_15D10814
        MOV    R1, 0xC
        ADD    R0, R5,    0
        BL    sub_15D10818
        LDR    R2, dword_15D107A4
        MOV    R1, 0
        ADR    R0, aKorzina
        BL    sub_15D1081C
        ADD    R1, R0,    0
        ADD    R0, R5,    0
        BL    sub_15D10820
        ADR    R1, off_15D1079C
        ADD    R0, R5,    0
        BL    sub_15D10824
        MOV    R1, 1
        ADD    R0, R5,    0
        BL    sub_15D10828
        ADD    R0, R5,    0
        BL    sub_15D1082C
        ADD    R0, R5,    0
        BL    sub_15D10830

locret_15D10798:
        POP    {R4,R5,PC}
; ---------------------------------------------------------------------------
        align 4
off_15D1079C    dw aCardRecycler
        db    0
dword_15D107A4    dw 0xFFFF
aKorzina    du 'Корзина',0
off_15D107B8    dw aDatabrowser_re
        db    0
        dw unk_15D107C8
        db    0
unk_15D107C8    db  0xF
        dw loc_15D10712+1
        db    2
        dw loc_15D10734+1
        db    0
        db    0
aDatabrowser_re    db "DataBrowser_Recycler_Page",0
        align 4

; =============== S U B    R O U T    I N E =======================================
sub_15D107FC:
        LDR    R3, off_15D10848
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10800:
        LDR    R3, off_15D1084C
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10804:
        LDR    R3, off_15D10850
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10808:
        LDR    R3, off_15D10854
        BX    R3
        
; =============== S U B    R O U T    I N E =======================================
sub_15D1080C:
        LDR    R3, off_15D10858
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10810:
        LDR    R3, off_15D1085C
        BX    R3
        
; =============== S U B    R O U T    I N E =======================================
sub_15D10814:
        LDR    R3, off_15D10860
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10818:
        LDR    R3, off_15D10864
        BX    R3
        
; =============== S U B    R O U T    I N E =======================================
sub_15D1081C:
        LDR    R3, off_15D10868
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10820:
        LDR    R3, off_15D1086C
        BX    R3
        
; =============== S U B    R O U T    I N E =======================================
sub_15D10824:
        LDR    R3, off_15D10870
        BX    R3
        
; =============== S U B    R O U T    I N E =======================================
sub_15D10828:
        LDR    R3, off_15D10874
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D1082C:
        LDR    R3, off_15D10878
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10830:
        LDR    R3, off_15D1087C
        BX    R3

; =============== S U B    R O U T    I N E =======================================
sub_15D10834:
        PUSH    {R3}
        LDR    R3, off_15D10880
        MOV    R12, R3
        POP    {R3}
        BX    R12    

; =============== S U B    R O U T    I N E =======================================
sub_15D1083E:
        PUSH    {R3}
        LDR    R3, off_15D10884
        MOV    R12, R3
        POP    {R3}
        BX    R12

; ---------------------------------------------------------------------------
off_15D10848    dw GUIObject_SoftKeys_SetAction+1
off_15D1084C    dw BookObj_GotoPage+1
off_15D10850    dw addr6+1
off_15D10854    dw DataBrowserDesc_Create+1
off_15D10858    dw BookObj_GetBookID+1    
off_15D1085C    dw DataBrowserDesc_SetBookID+1
off_15D10860    dw DataBrowserDesc_Menu_AddFSFunctions+1
off_15D10864    dw DataBrowserDesc_SetItemStyle+1
off_15D10868    dw addr7+1
off_15D1086C    dw DataBrowserDesc_SetHeaderText+1
off_15D10870    dw DataBrowserDesc_SetFolders+1
off_15D10874    dw DataBrowserDesc_SetFoldersNumber+1
off_15D10878    dw DataBrowser_Create+1
off_15D1087C    dw DataBrowserDesc_Destroy+1
off_15D10880    dw FileMove+1
off_15D10884    dw addr8+1
dword_15D10888    dw heapshift
off_15D1088C    dw loc_15D106F4+1
off_15D10890    dw loc_15D10708+1
aCardRecycler    du '/card/RECYCLER',0