Make ID Set Emerald

ROM:08084310             @ =============== S U B R O U T I N E =======================================
ROM:08084310
ROM:08084310
ROM:08084310             makeTrainerPID__:
ROM:08084310 10 B5                       PUSH    {R4,LR}
ROM:08084312 EB F7 5B F9                 BL      rand__
ROM:08084316 04 1C                       MOVS    R4, R0
ROM:08084318 7C F7 36 F9                 BL      fetchT1Result__
ROM:0808431C 24 04                       LSLS    R4, R4, #0x10
ROM:0808431E 00 04                       LSLS    R0, R0, #0x10
ROM:08084320 00 0C                       LSRS    R0, R0, #0x10
ROM:08084322 04 43                       ORRS    R4, R0
ROM:08084324 04 48                       LDR     R0, =callbackC
ROM:08084326 01 68                       LDR     R1, [R0]
ROM:08084328 0A 31                       ADDS    R1, #0xA
ROM:0808432A 20 1C                       MOVS    R0, R4
ROM:0808432C FF F7 CE FF                 BL      storeTPID__
ROM:08084330 10 BC                       POP     {R4}
ROM:08084332 01 BC                       POP     {R0}
ROM:08084334 00 47                       BX      R0
ROM:08084334             @ End of function makeTrainerPID__

-------------------------------------------------------------------------------------


ROM:080842CC             @ =============== S U B R O U T I N E =======================================
ROM:080842CC
ROM:080842CC
ROM:080842CC             storeTPID__:                            @ CODE XREF: makeTrainerPID__+1Cp
ROM:080842CC 08 70                       STRB    R0, [R1]
ROM:080842CE 02 0A                       LSRS    R2, R0, #8
ROM:080842D0 4A 70                       STRB    R2, [R1,#1]
ROM:080842D2 02 0C                       LSRS    R2, R0, #0x10
ROM:080842D4 8A 70                       STRB    R2, [R1,#2]
ROM:080842D6 00 0E                       LSRS    R0, R0, #0x18
ROM:080842D8 C8 70                       STRB    R0, [R1,#3]
ROM:080842DA 70 47                       BX      LR