prime/asm/Runtime/mbstring.s

.include "macros.inc"

.section .text, "ax"

.global wcstombs
wcstombs:
/* 8038D738 0038A698  94 21 FF D0 */	stwu r1, -0x30(r1)
/* 8038D73C 0038A69C  7C 08 02 A6 */	mflr r0
/* 8038D740 0038A6A0  90 01 00 34 */	stw r0, 0x34(r1)
/* 8038D744 0038A6A4  BF 61 00 1C */	stmw r27, 0x1c(r1)
/* 8038D748 0038A6A8  7C 7B 1B 79 */	or. r27, r3, r3
/* 8038D74C 0038A6AC  7C BC 2B 78 */	mr r28, r5
/* 8038D750 0038A6B0  3B C0 00 00 */	li r30, 0
/* 8038D754 0038A6B4  41 82 00 0C */	beq lbl_8038D760
/* 8038D758 0038A6B8  28 04 00 00 */	cmplwi r4, 0
/* 8038D75C 0038A6BC  40 82 00 0C */	bne lbl_8038D768
lbl_8038D760:
/* 8038D760 0038A6C0  38 60 00 00 */	li r3, 0
/* 8038D764 0038A6C4  48 00 00 60 */	b lbl_8038D7C4
lbl_8038D768:
/* 8038D768 0038A6C8  7C 9D 23 78 */	mr r29, r4
/* 8038D76C 0038A6CC  48 00 00 4C */	b lbl_8038D7B8
lbl_8038D770:
/* 8038D770 0038A6D0  A0 9D 00 00 */	lhz r4, 0(r29)
/* 8038D774 0038A6D4  28 04 00 00 */	cmplwi r4, 0
/* 8038D778 0038A6D8  40 82 00 10 */	bne lbl_8038D788
/* 8038D77C 0038A6DC  38 00 00 00 */	li r0, 0
/* 8038D780 0038A6E0  7C 1B F1 AE */	stbx r0, r27, r30
/* 8038D784 0038A6E4  48 00 00 3C */	b lbl_8038D7C0
lbl_8038D788:
/* 8038D788 0038A6E8  38 61 00 08 */	addi r3, r1, 8
/* 8038D78C 0038A6EC  3B BD 00 02 */	addi r29, r29, 2
/* 8038D790 0038A6F0  48 00 00 49 */	bl unicode_to_UTF8
/* 8038D794 0038A6F4  7C 7F 1B 78 */	mr r31, r3
/* 8038D798 0038A6F8  7C 1E FA 14 */	add r0, r30, r31
/* 8038D79C 0038A6FC  7C 00 E0 40 */	cmplw r0, r28
/* 8038D7A0 0038A700  41 81 00 20 */	bgt lbl_8038D7C0
/* 8038D7A4 0038A704  7F E5 FB 78 */	mr r5, r31
/* 8038D7A8 0038A708  7C 7B F2 14 */	add r3, r27, r30
/* 8038D7AC 0038A70C  38 81 00 08 */	addi r4, r1, 8
/* 8038D7B0 0038A710  48 00 29 15 */	bl strncpy
/* 8038D7B4 0038A714  7F DE FA 14 */	add r30, r30, r31
lbl_8038D7B8:
/* 8038D7B8 0038A718  7C 1E E0 40 */	cmplw r30, r28
/* 8038D7BC 0038A71C  40 81 FF B4 */	ble lbl_8038D770
lbl_8038D7C0:
/* 8038D7C0 0038A720  7F C3 F3 78 */	mr r3, r30
lbl_8038D7C4:
/* 8038D7C4 0038A724  BB 61 00 1C */	lmw r27, 0x1c(r1)
/* 8038D7C8 0038A728  80 01 00 34 */	lwz r0, 0x34(r1)
/* 8038D7CC 0038A72C  7C 08 03 A6 */	mtlr r0
/* 8038D7D0 0038A730  38 21 00 30 */	addi r1, r1, 0x30
/* 8038D7D4 0038A734  4E 80 00 20 */	blr

.global unicode_to_UTF8
unicode_to_UTF8:
/* 8038D7D8 0038A738  94 21 FF F0 */	stwu r1, -0x10(r1)
/* 8038D7DC 0038A73C  28 03 00 00 */	cmplwi r3, 0
/* 8038D7E0 0038A740  80 02 CF 70 */	lwz r0, lbl_805AEC90@sda21(r2)
/* 8038D7E4 0038A744  90 01 00 08 */	stw r0, 8(r1)
/* 8038D7E8 0038A748  40 82 00 0C */	bne lbl_8038D7F4
/* 8038D7EC 0038A74C  38 60 00 00 */	li r3, 0
/* 8038D7F0 0038A750  48 00 00 84 */	b lbl_8038D874
lbl_8038D7F4:
/* 8038D7F4 0038A754  54 80 04 3E */	clrlwi r0, r4, 0x10
/* 8038D7F8 0038A758  28 00 00 80 */	cmplwi r0, 0x80
/* 8038D7FC 0038A75C  40 80 00 0C */	bge lbl_8038D808
/* 8038D800 0038A760  38 A0 00 01 */	li r5, 1
/* 8038D804 0038A764  48 00 00 18 */	b lbl_8038D81C
lbl_8038D808:
/* 8038D808 0038A768  28 00 08 00 */	cmplwi r0, 0x800
/* 8038D80C 0038A76C  40 80 00 0C */	bge lbl_8038D818
/* 8038D810 0038A770  38 A0 00 02 */	li r5, 2
/* 8038D814 0038A774  48 00 00 08 */	b lbl_8038D81C
lbl_8038D818:
/* 8038D818 0038A778  38 A0 00 03 */	li r5, 3
lbl_8038D81C:
/* 8038D81C 0038A77C  2C 05 00 02 */	cmpwi r5, 2
/* 8038D820 0038A780  7C C3 2A 14 */	add r6, r3, r5
/* 8038D824 0038A784  41 82 00 2C */	beq lbl_8038D850
/* 8038D828 0038A788  40 80 00 10 */	bge lbl_8038D838
/* 8038D82C 0038A78C  2C 05 00 01 */	cmpwi r5, 1
/* 8038D830 0038A790  40 80 00 30 */	bge lbl_8038D860
/* 8038D834 0038A794  48 00 00 3C */	b lbl_8038D870
lbl_8038D838:
/* 8038D838 0038A798  2C 05 00 04 */	cmpwi r5, 4
/* 8038D83C 0038A79C  40 80 00 34 */	bge lbl_8038D870
/* 8038D840 0038A7A0  54 80 06 BE */	clrlwi r0, r4, 0x1a
/* 8038D844 0038A7A4  54 84 D5 BE */	rlwinm r4, r4, 0x1a, 0x16, 0x1f
/* 8038D848 0038A7A8  60 00 00 80 */	ori r0, r0, 0x80
/* 8038D84C 0038A7AC  9C 06 FF FF */	stbu r0, -1(r6)
lbl_8038D850:
/* 8038D850 0038A7B0  54 80 06 BE */	clrlwi r0, r4, 0x1a
/* 8038D854 0038A7B4  54 84 D5 BE */	rlwinm r4, r4, 0x1a, 0x16, 0x1f
/* 8038D858 0038A7B8  60 00 00 80 */	ori r0, r0, 0x80
/* 8038D85C 0038A7BC  9C 06 FF FF */	stbu r0, -1(r6)
lbl_8038D860:
/* 8038D860 0038A7C0  38 61 00 08 */	addi r3, r1, 8
/* 8038D864 0038A7C4  7C 03 28 AE */	lbzx r0, r3, r5
/* 8038D868 0038A7C8  7C 80 03 78 */	or r0, r4, r0
/* 8038D86C 0038A7CC  98 06 FF FF */	stb r0, -1(r6)
lbl_8038D870:
/* 8038D870 0038A7D0  7C A3 2B 78 */	mr r3, r5
lbl_8038D874:
/* 8038D874 0038A7D4  38 21 00 10 */	addi r1, r1, 0x10
/* 8038D878 0038A7D8  4E 80 00 20 */	blr