[pcsx_rearmed.git] / deps / lightning / check / rpn.tst

.data	256
.$($int = 4)
C:
.c "\nC:"
F:
.c "\nF:"
format:
.c "%3d "
newline:
.c "\n"

.code
	jmpi main

	name c2f
c2f:
	prolog
	arg $in

	allocai $(32 * $int) $index

	getarg %r2 $in

	// 32x9*5/+
	movi %r0 32

	// x9*5/+
	stxi_i $index %fp %r0
.	$($index = $index + $int)
	movr %r0 %r2

	// 9*5/+
	stxi_i $index %fp %r0
.	$($index = $index + $int)
	movi %r0 9

	// *5/+
.	$($index = $index - $int)
	ldxi_i %r1 %fp $index
	mulr %r0 %r1 %r0

	// 5/+
	stxi_i $index %fp %r0
.	$($index = $index + $int)
	movi %r0 5

	// /+
.	$($index = $index - $int)
	ldxi_i %r1 %fp $index
	divr %r0 %r1 %r0

	// +
.	$($index = $index - $int)
	ldxi_i %r1 %fp $index
	addr %r0 %r1 %r0

	retr %r0
	epilog

	name f2c
f2c:
	prolog
	arg $in

	allocai $(32 * $int) $index

	getarg %r2 $in

	// x32-5*9/
	stxi_i $index %fp %r0
.	$($index = $index + $int)
	movr %r0 %r2

	// 32-5*9/
	stxi_i $index %fp %r0
.	$($index = $index + $int)
	movi %r0 32

	// -5*9/
.	$($index = $index - $int)
	ldxi_i %r1 %fp $index
	subr %r0 %r1 %r0

	// 5*9/
	stxi_i $index %fp %r0
.	$($index = $index + $int)
	movi %r0 5

	// *9/
.	$($index = $index - $int)
	ldxi_i %r1 %fp $index
	mulr %r0 %r1 %r0

	// 9/
	stxi_i $index %fp %r0
.	$($index = $index + $int)
	movi %r0 9

	// /
.	$($index = $index - $int)
	ldxi_i %r1 %fp $index
	divr %r0 %r1 %r0

	retr %r0
	epilog

//-----------------------------------------------------------------------
	name main
main:
	prolog

	prepare
		pushargi C
		ellipsis
	finishi @printf
	movi %v0 0
loopC:
	prepare
		pushargi format
		ellipsis
		pushargr %v0
	finishi @printf
	addi %v0 %v0 10
	blei loopC %v0 100
	prepare
		pushargi F
		ellipsis
	finishi @printf
	movi %v0 0
loopC2F:
	prepare
		pushargr %v0
	finishi c2f
	retval %r0
	prepare
		pushargi format
		ellipsis
		pushargr %r0
	finishi @printf
	addi %v0 %v0 10
	blei loopC2F %v0 100
	prepare
		pushargi newline
		ellipsis
	finishi @printf

	prepare
		pushargi F
		ellipsis
	finishi @printf
	movi %v0 32
loopF:
	prepare
		pushargi format
		ellipsis
		pushargr %v0
	finishi @printf
	addi %v0 %v0 18
	blei loopF %v0 212
	prepare
		pushargi C
		ellipsis
	finishi @printf
	movi %v0 32
loopF2C:
	prepare
		pushargr %v0
	finishi f2c
	retval %r0
	prepare
		pushargi format
		ellipsis
		pushargr %r0
	finishi @printf
	addi %v0 %v0 18
	blei loopF2C %v0 212
	prepare
		pushargi newline
		ellipsis
	finishi @printf

	ret
	epilog
Commit	Line	Data
4a71579b PC	1	.data 256
	2	.$($int = 4)
	3	C:
	4	.c "\nC:"
	5	F:
	6	.c "\nF:"
	7	format:
	8	.c "%3d "
	9	newline:
	10	.c "\n"
	11
	12	.code
	13	jmpi main
	14
	15	name c2f
	16	c2f:
	17	prolog
	18	arg $in
	19
	20	allocai $(32 * $int) $index
	21
	22	getarg %r2 $in
	23
	24	// 32x9*5/+
	25	movi %r0 32
	26
	27	// x9*5/+
	28	stxi_i $index %fp %r0
	29	. $($index = $index + $int)
	30	movr %r0 %r2
	31
	32	// 9*5/+
	33	stxi_i $index %fp %r0
	34	. $($index = $index + $int)
	35	movi %r0 9
	36
	37	// *5/+
	38	. $($index = $index - $int)
	39	ldxi_i %r1 %fp $index
	40	mulr %r0 %r1 %r0
	41
	42	// 5/+
	43	stxi_i $index %fp %r0
	44	. $($index = $index + $int)
	45	movi %r0 5
	46
	47	// /+
	48	. $($index = $index - $int)
	49	ldxi_i %r1 %fp $index
	50	divr %r0 %r1 %r0
	51
	52	// +
	53	. $($index = $index - $int)
	54	ldxi_i %r1 %fp $index
	55	addr %r0 %r1 %r0
	56
	57	retr %r0
	58	epilog
	59
	60	name f2c
	61	f2c:
	62	prolog
	63	arg $in
	64
65	allocai $(32 * $int) $index
66
67	getarg %r2 $in
68
69	// x32-5*9/
70	stxi_i $index %fp %r0
71	. $($index = $index + $int)
72	movr %r0 %r2
73
74	// 32-5*9/
75	stxi_i $index %fp %r0
76	. $($index = $index + $int)
77	movi %r0 32
78
79	// -5*9/
80	. $($index = $index - $int)
81	ldxi_i %r1 %fp $index
82	subr %r0 %r1 %r0
83
84	// 5*9/
85	stxi_i $index %fp %r0
86	. $($index = $index + $int)
87	movi %r0 5
88
89	// *9/
90	. $($index = $index - $int)
91	ldxi_i %r1 %fp $index
92	mulr %r0 %r1 %r0
93
94	// 9/
95	stxi_i $index %fp %r0
96	. $($index = $index + $int)
97	movi %r0 9
98
99	// /
100	. $($index = $index - $int)
101	ldxi_i %r1 %fp $index
102	divr %r0 %r1 %r0
103
104	retr %r0
105	epilog
106
107	//-----------------------------------------------------------------------
108	name main
109	main:
110	prolog
111
112	prepare
113	pushargi C
114	ellipsis
115	finishi @printf
116	movi %v0 0
117	loopC:
118	prepare
119	pushargi format
120	ellipsis
121	pushargr %v0
122	finishi @printf
123	addi %v0 %v0 10
124	blei loopC %v0 100
125	prepare
126	pushargi F
127	ellipsis
128	finishi @printf
129	movi %v0 0
130	loopC2F:
131	prepare
132	pushargr %v0
133	finishi c2f
134	retval %r0
135	prepare
136	pushargi format
137	ellipsis
138	pushargr %r0
139	finishi @printf
140	addi %v0 %v0 10
141	blei loopC2F %v0 100
142	prepare
143	pushargi newline
144	ellipsis
145	finishi @printf
146
147	prepare
148	pushargi F
149	ellipsis
150	finishi @printf
151	movi %v0 32
152	loopF:
153	prepare
154	pushargi format
155	ellipsis
156	pushargr %v0
157	finishi @printf
158	addi %v0 %v0 18
159	blei loopF %v0 212
160	prepare
161	pushargi C
162	ellipsis
163	finishi @printf
164	movi %v0 32
165	loopF2C:
166	prepare
167	pushargr %v0
168	finishi f2c
169	retval %r0
170	prepare
171	pushargi format
172	ellipsis
173	pushargr %r0
174	finishi @printf
175	addi %v0 %v0 18
176	blei loopF2C %v0 212
177	prepare
178	pushargi newline
179	ellipsis
180	finishi @printf
181
182	ret
183	epilog