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

#define M64	67108864

#define aB1	(1<<1)
#define aB2	(1<<2)
#define aB3	(1<<3)
#define aB4	(1<<4)
#define aB5	(1<<5)
#define aB6	(1<<6)
#define aB7	(1<<7)
#define aB8	(1<<8)
#define aB9	(1<<9)
#define aB10	(1<<10)
#define aB11	(1<<11)
#define aB12	(1<<12)
#define aB13	(1<<13)
#define aB14	(1<<14)
#define aB15	(1<<15)
#define aB16	(1<<16)
#define aB17	(1<<17)
#define aB18	(1<<18)
#define aB19	(1<<19)
#define aB20	(1<<20)
#define aB21	(1<<21)
#define aB22	(1<<22)
#define aB23	(1<<23)
#define aB24	(1<<24)
#define aB25	(1<<25)
#define aB26	(1<<26)
#define bB1	(-aB1)
#define bB2	(-aB2)
#define bB3	(-aB3)
#define bB4	(-aB4)
#define bB5	(-aB5)
#define bB6	(-aB6)
#define bB7	(-aB7)
#define bB8	(-aB8)
#define bB9	(-aB9)
#define bB10	(-aB10)
#define bB11	(-aB11)
#define bB12	(-aB12)
#define bB13	(-aB13)
#define bB14	(-aB14)
#define bB15	(-aB15)
#define bB16	(-aB16)
#define bB17	(-aB17)
#define bB18	(-aB18)
#define bB19	(-aB19)
#define bB20	(-aB20)
#define bB21	(-aB21)
#define bB22	(-aB22)
#define bB23	(-aB23)
#define bB24	(-aB24)
#define bB25	(-aB25)
#define bB26	(-aB26)
#define cB1	(aB1-1)
#define cB2	(aB2-1)
#define cB3	(aB3-1)
#define cB4	(aB4-1)
#define cB5	(aB5-1)
#define cB6	(aB6-1)
#define cB7	(aB7-1)
#define cB8	(aB8-1)
#define cB9	(aB9-1)
#define cB10	(aB10-1)
#define cB11	(aB11-1)
#define cB12	(aB12-1)
#define cB13	(aB13-1)
#define cB14	(aB14-1)
#define cB15	(aB15-1)
#define cB16	(aB16-1)
#define cB17	(aB17-1)
#define cB18	(aB18-1)
#define cB19	(aB19-1)
#define cB20	(aB20-1)
#define cB21	(aB21-1)
#define cB22	(aB22-1)
#define cB23	(aB23-1)
#define cB24	(aB24-1)
#define cB25	(aB25-1)
#define cB26	(aB26-1)
#define dB1	(-aB1+1)
#define dB2	(-aB2+1)
#define dB3	(-aB3+1)
#define dB4	(-aB4+1)
#define dB5	(-aB5+1)
#define dB6	(-aB6+1)
#define dB7	(-aB7+1)
#define dB8	(-aB8+1)
#define dB9	(-aB9+1)
#define dB10	(-aB10+1)
#define dB11	(-aB11+1)
#define dB12	(-aB12+1)
#define dB13	(-aB13+1)
#define dB14	(-aB14+1)
#define dB15	(-aB15+1)
#define dB16	(-aB16+1)
#define dB17	(-aB17+1)
#define dB18	(-aB18+1)
#define dB19	(-aB19+1)
#define dB20	(-aB20+1)
#define dB21	(-aB21+1)
#define dB22	(-aB22+1)
#define dB23	(-aB23+1)
#define dB24	(-aB24+1)
#define dB25	(-aB25+1)
#define dB26	(-aB26+1)

#define add(a, b)		$(a + b)
#define sub(a, b)		$(a - b)
#define rsb(a, b)		$(b - a)
#define mul(a, b)		$(a * b)
#define div(a, b)		$(a / b)
#define rem(a, b)		$(a % b)
#define and(a, b)		$(a & b)
#define or(a, b)		$(a | b)
#define xor(a, b)		$(a ^ b)

#define alu2(N, X, L, R, V)					\
	movi %r1 L						\
	movi %r2 R						\
	N##r %r0 %r1 %r2					\
	beqi X %r0 V						\
	calli @abort						\
X:
#define alu1(N, M)						\
	alu2(N, N##M##1, 3, $(M##1), N(3, M##1))		\
	alu2(N, N##M##2, 3, $(M##2), N(3, M##2))		\
	alu2(N, N##M##3, 3, $(M##3), N(3, M##3))		\
	alu2(N, N##M##4, 3, $(M##4), N(3, M##4))		\
	alu2(N, N##M##5, 3, $(M##5), N(3, M##5))		\
	alu2(N, N##M##6, 3, $(M##6), N(3, M##6))		\
	alu2(N, N##M##7, 3, $(M##7), N(3, M##7))		\
	alu2(N, N##M##8, 3, $(M##8), N(3, M##8))		\
	alu2(N, N##M##9, 3, $(M##9), N(3, M##9))		\
	alu2(N, N##M##10, 3, $(M##10), N(3, M##10))		\
	alu2(N, N##M##11, 3, $(M##11), N(3, M##11))		\
	alu2(N, N##M##12, 3, $(M##12), N(3, M##12))		\
	alu2(N, N##M##13, 3, $(M##13), N(3, M##13))		\
	alu2(N, N##M##14, 3, $(M##14), N(3, M##14))		\
	alu2(N, N##M##15, 3, $(M##15), N(3, M##15))		\
	alu2(N, N##M##16, 3, $(M##16), N(3, M##16))		\
	alu2(N, N##M##17, 3, $(M##17), N(3, M##17))		\
	alu2(N, N##M##18, 3, $(M##18), N(3, M##18))		\
	alu2(N, N##M##19, 3, $(M##19), N(3, M##19))		\
	alu2(N, N##M##20, 3, $(M##20), N(3, M##20))		\
	alu2(N, N##M##21, 3, $(M##21), N(3, M##21))		\
	alu2(N, N##M##22, 3, $(M##22), N(3, M##22))		\
	alu2(N, N##M##23, 3, $(M##23), N(3, M##23))		\
	alu2(N, N##M##24, 3, $(M##24), N(3, M##24))		\
	alu2(N, N##M##25, 3, $(M##25), N(3, M##25))		\
	alu2(N, N##M##26, 3, $(M##26), N(3, M##26))

#define alu(N)							\
	alu1(N, aB)						\
	alu1(N, bB)						\
	alu1(N, cB)						\
	alu1(N, dB)

#define _lsh(N)							\
	alu2(lsh, L##N, 3, N, $(3<<N))
#define _rsh(N)							\
	alu2(rsh, R##N, $(1<<63), N, $((1<<63)>>N))

#if __WORDSIZE == 32
#  define xsh64(X)			/**/
#else
#  define xsh64(X)						\
	_##X##sh(32)						\
	_##X##sh(33)						\
	_##X##sh(34)						\
	_##X##sh(35)						\
	_##X##sh(36)						\
	_##X##sh(37)						\
	_##X##sh(38)						\
	_##X##sh(39)						\
	_##X##sh(40)						\
	_##X##sh(41)						\
	_##X##sh(42)						\
	_##X##sh(43)						\
	_##X##sh(44)						\
	_##X##sh(45)						\
	_##X##sh(46)						\
	_##X##sh(47)						\
	_##X##sh(48)						\
	_##X##sh(49)						\
	_##X##sh(50)						\
	_##X##sh(51)						\
	_##X##sh(52)						\
	_##X##sh(53)						\
	_##X##sh(54)						\
	_##X##sh(55)						\
	_##X##sh(56)						\
	_##X##sh(57)						\
	_##X##sh(58)						\
	_##X##sh(59)						\
	_##X##sh(60)						\
	_##X##sh(61)						\
	_##X##sh(62)						\
	_##X##sh(63)
#endif

#define xsh(X)							\
	_##X##sh(0)						\
	_##X##sh(1)						\
	_##X##sh(2)						\
	_##X##sh(3)						\
	_##X##sh(4)						\
	_##X##sh(5)						\
	_##X##sh(6)						\
	_##X##sh(7)						\
	_##X##sh(8)						\
	_##X##sh(9)						\
	_##X##sh(10)						\
	_##X##sh(11)						\
	_##X##sh(12)						\
	_##X##sh(13)						\
	_##X##sh(14)						\
	_##X##sh(15)						\
	_##X##sh(16)						\
	_##X##sh(17)						\
	_##X##sh(18)						\
	_##X##sh(19)						\
	_##X##sh(20)						\
	_##X##sh(21)						\
	_##X##sh(22)						\
	_##X##sh(23)						\
	_##X##sh(24)						\
	_##X##sh(25)						\
	_##X##sh(26)						\
	_##X##sh(27)						\
	_##X##sh(28)						\
	_##X##sh(29)						\
	_##X##sh(30)						\
	_##X##sh(31)						\
	xsh64(X)

#define lsh()							\
	xsh(l)
#define rsh()							\
	xsh(r)

#define reset(V)						\
	prepare							\
		pushargi buf					\
		pushargi V					\
		pushargi $(M64 + 8)				\
	finishi @memset

#define stx(T, N, O, V)						\
	movi %r0 V						\
	movi %r1 O						\
	stxr##T %r1 %v0 %r0
#define stx8(T, M, V)						\
	stx(T, 3, $(M##B3), V)					\
	stx(T, 4, $(M##B4), V)					\
	stx(T, 5, $(M##B5), V)					\
	stx(T, 6, $(M##B6), V)					\
	stx(T, 7, $(M##B7), V)					\
	stx(T, 8, $(M##B8), V)					\
	stx(T, 9, $(M##B9), V)					\
	stx(T, 10, $(M##B10), V)				\
	stx(T, 11, $(M##B11), V)				\
	stx(T, 12, $(M##B12), V)				\
	stx(T, 13, $(M##B13), V)				\
	stx(T, 14, $(M##B14), V)				\
	stx(T, 15, $(M##B15), V)				\
	stx(T, 16, $(M##B16), V)				\
	stx(T, 17, $(M##B17), V)				\
	stx(T, 18, $(M##B18), V)				\
	stx(T, 19, $(M##B19), V)				\
	stx(T, 20, $(M##B20), V)				\
	stx(T, 21, $(M##B21), V)				\
	stx(T, 22, $(M##B22), V)				\
	stx(T, 23, $(M##B23), V)				\
	stx(T, 24, $(M##B24), V)				\
	stx(T, 25, $(M##B25), V)				\
	stx(T, 26, $(M##B26), V)
#define stx4(T, M, V)						\
	stx(T, 2, $(M##B2), V)					\
	stx8(T, M, V)
#define stx2(T, M, V)						\
	stx(T, 1, $(M##B1), V)					\
	stx4(T, M, V)
#define ldx(T, N, M, O, V)					\
	movi %r0 0						\
	ldxi##T %r0 %v0 O					\
	beqi ldx##T##N##M %r0 V					\
	calli @abort						\
ldx##T##N##M:
#define ldx8(T, M, V)						\
	ldx(T, 3, M, $(M##B3), V)				\
	ldx(T, 4, M, $(M##B4), V)				\
	ldx(T, 5, M, $(M##B5), V)				\
	ldx(T, 6, M, $(M##B6), V)				\
	ldx(T, 7, M, $(M##B7), V)				\
	ldx(T, 8, M, $(M##B8), V)				\
	ldx(T, 9, M, $(M##B9), V)				\
	ldx(T, 10, M, $(M##B10), V)				\
	ldx(T, 11, M, $(M##B11), V)				\
	ldx(T, 12, M, $(M##B12), V)				\
	ldx(T, 13, M, $(M##B13), V)				\
	ldx(T, 14, M, $(M##B14), V)				\
	ldx(T, 15, M, $(M##B15), V)				\
	ldx(T, 16, M, $(M##B16), V)				\
	ldx(T, 17, M, $(M##B17), V)				\
	ldx(T, 18, M, $(M##B18), V)				\
	ldx(T, 19, M, $(M##B19), V)				\
	ldx(T, 20, M, $(M##B20), V)				\
	ldx(T, 21, M, $(M##B21), V)				\
	ldx(T, 22, M, $(M##B22), V)				\
	ldx(T, 23, M, $(M##B23), V)				\
	ldx(T, 24, M, $(M##B24), V)				\
	ldx(T, 25, M, $(M##B25), V)				\
	ldx(T, 26, M, $(M##B26), V)
#define ldx4(T, M, V)						\
	ldx(T, 2, M, $(M##B2), V)				\
	ldx8(T, M, V)
#define ldx2(T, M, V)						\
	ldx(T, 1, M, $(M##B1), V)				\
	ldx4(T, M, V)

#define stf(T, N, O, V)						\
	movi##T %f0 V						\
	movi %r0 O						\
	stxr##T %r0 %v0 %f0
#define stf8(T, M, V)						\
	stf(T, 3, $(M##B3), V)					\
	stf(T, 4, $(M##B4), V)					\
	stf(T, 5, $(M##B5), V)					\
	stf(T, 6, $(M##B6), V)					\
	stf(T, 7, $(M##B7), V)					\
	stf(T, 8, $(M##B8), V)					\
	stf(T, 9, $(M##B9), V)					\
	stf(T, 10, $(M##B10), V)				\
	stf(T, 11, $(M##B11), V)				\
	stf(T, 12, $(M##B12), V)				\
	stf(T, 13, $(M##B13), V)				\
	stf(T, 14, $(M##B14), V)				\
	stf(T, 15, $(M##B15), V)				\
	stf(T, 16, $(M##B16), V)				\
	stf(T, 17, $(M##B17), V)				\
	stf(T, 18, $(M##B18), V)				\
	stf(T, 19, $(M##B19), V)				\
	stf(T, 20, $(M##B20), V)				\
	stf(T, 21, $(M##B21), V)				\
	stf(T, 22, $(M##B22), V)				\
	stf(T, 23, $(M##B23), V)				\
	stf(T, 24, $(M##B24), V)				\
	stf(T, 25, $(M##B25), V)				\
	stf(T, 26, $(M##B26), V)
#define stf4(T, M, V)						\
	stf(T, 2, $(M##B2), V)					\
	stf8(T, M, V)
#define ldf(T, N, M, O, V)					\
	movi##T %f0 0						\
	ldxi##T %f0 %v0 O					\
	beqi##T ldf##T##N##M %f0 V				\
	calli @abort						\
ldf##T##N##M:
#define ldf8(T, M, V)						\
	ldf(T, 3, M, $(M##B3), V)				\
	ldf(T, 4, M, $(M##B4), V)				\
	ldf(T, 5, M, $(M##B5), V)				\
	ldf(T, 6, M, $(M##B6), V)				\
	ldf(T, 7, M, $(M##B7), V)				\
	ldf(T, 8, M, $(M##B8), V)				\
	ldf(T, 9, M, $(M##B9), V)				\
	ldf(T, 10, M, $(M##B10), V)				\
	ldf(T, 11, M, $(M##B11), V)				\
	ldf(T, 12, M, $(M##B12), V)				\
	ldf(T, 13, M, $(M##B13), V)				\
	ldf(T, 14, M, $(M##B14), V)				\
	ldf(T, 15, M, $(M##B15), V)				\
	ldf(T, 16, M, $(M##B16), V)				\
	ldf(T, 17, M, $(M##B17), V)				\
	ldf(T, 18, M, $(M##B18), V)				\
	ldf(T, 19, M, $(M##B19), V)				\
	ldf(T, 20, M, $(M##B20), V)				\
	ldf(T, 21, M, $(M##B21), V)				\
	ldf(T, 22, M, $(M##B22), V)				\
	ldf(T, 23, M, $(M##B23), V)				\
	ldf(T, 24, M, $(M##B24), V)				\
	ldf(T, 25, M, $(M##B25), V)				\
	ldf(T, 26, M, $(M##B26), V)
#define ldf4(T, M, V)						\
	ldf(T, 2, M, $(M##B2), V)				\
	ldf8(T, M, V)

#define ldst_c()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stx2(_c, a, 0x5a)					\
	ldx2(_c, a, 0x5a)					\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stx2(_c, b, 0x5a)					\
	ldx2(_c, b, 0x5a)
#define ldst_uc()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stx2(_c, a, 0x5a)					\
	ldx2(_uc, a, 0x5a)					\
	movi %v0 $(buf + M64)					\
	stx2(_c, b, 0x5a)					\
	ldx2(_uc, b, 0x5a)
#define ldst_s()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stx2(_s, a, 0x5a5a)					\
	ldx2(_s, a, 0x5a5a)					\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stx2(_s, b, 0x5a5a)					\
	ldx2(_s, b, 0x5a5a)
#define ldst_us()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stx2(_s, a, 0x5a5a)					\
	ldx2(_us, a, 0x5a5a)					\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stx2(_s, b, 0x5a5a)					\
	ldx2(_us, b, 0x5a5a)
#define ldst_i()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stx4(_i, a, 0x5a5a5a5a)					\
	ldx4(_i, a, 0x5a5a5a5a)					\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stx4(_i, b, 0x5a5a5a5a)					\
	ldx4(_i, b, 0x5a5a5a5a)
#define ldst_ui()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stx4(_i, a, 0x5a5a5a5a)					\
	ldx4(_ui, a, 0x5a5a5a5a)				\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stx4(_i, b, 0x5a5a5a5a)					\
	ldx4(_ui, b, 0x5a5a5a5a)
#define ldst_l()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stx8(_l, a, 0x5a5a5a5a5a5a5a5a)				\
	ldx8(_l, a, 0x5a5a5a5a5a5a5a5a)				\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stx8(_l, b, 0x5a5a5a5a5a5a5a5a)				\
	ldx8(_l, b, 0x5a5a5a5a5a5a5a5a)
#define ldst_f()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stf4(_f, a, 0.5)					\
	ldf4(_f, a, 0.5)					\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stf4(_f, b, 0.5)					\
	ldf4(_f, b, 0.5)
#define ldst_d()						\
	reset(0xa5)						\
	movi %v0 buf						\
	stf8(_d, a, 0.5)					\
	ldf8(_d, a, 0.5)					\
	reset(0xa5)						\
	movi %v0 $(buf + M64)					\
	stf8(_d, b, 0.5)					\
	ldf8(_d, b, 0.5)

.data		67112960
buf:
.size		M64
.size		8
ok:
.c		"ok"

.code
	prolog

	alu(add)
	alu(sub)
	alu(rsb)
	alu(mul)
	alu(div)
	alu(rem)
	lsh()
	rsh()
	alu(and)
	alu(or)
	alu(xor)
	ldst_c()
	ldst_uc()
	ldst_s()
	ldst_us()
	ldst_i()
#if __WORDSIZE == 64
	ldst_ui()
	ldst_l()
#endif
	ldst_f()
	ldst_d()

	prepare
		pushargi ok
	finishi @puts
	ret
	epilog
Commit	Line	Data
4a71579b PC	1	#define M64 67108864
	2
	3	#define aB1 (1<<1)
	4	#define aB2 (1<<2)
	5	#define aB3 (1<<3)
	6	#define aB4 (1<<4)
	7	#define aB5 (1<<5)
	8	#define aB6 (1<<6)
	9	#define aB7 (1<<7)
	10	#define aB8 (1<<8)
	11	#define aB9 (1<<9)
	12	#define aB10 (1<<10)
	13	#define aB11 (1<<11)
	14	#define aB12 (1<<12)
	15	#define aB13 (1<<13)
	16	#define aB14 (1<<14)
	17	#define aB15 (1<<15)
	18	#define aB16 (1<<16)
	19	#define aB17 (1<<17)
	20	#define aB18 (1<<18)
	21	#define aB19 (1<<19)
	22	#define aB20 (1<<20)
	23	#define aB21 (1<<21)
	24	#define aB22 (1<<22)
	25	#define aB23 (1<<23)
	26	#define aB24 (1<<24)
	27	#define aB25 (1<<25)
	28	#define aB26 (1<<26)
	29	#define bB1 (-aB1)
	30	#define bB2 (-aB2)
	31	#define bB3 (-aB3)
	32	#define bB4 (-aB4)
	33	#define bB5 (-aB5)
	34	#define bB6 (-aB6)
	35	#define bB7 (-aB7)
	36	#define bB8 (-aB8)
	37	#define bB9 (-aB9)
	38	#define bB10 (-aB10)
	39	#define bB11 (-aB11)
	40	#define bB12 (-aB12)
	41	#define bB13 (-aB13)
	42	#define bB14 (-aB14)
	43	#define bB15 (-aB15)
	44	#define bB16 (-aB16)
	45	#define bB17 (-aB17)
	46	#define bB18 (-aB18)
	47	#define bB19 (-aB19)
	48	#define bB20 (-aB20)
	49	#define bB21 (-aB21)
	50	#define bB22 (-aB22)
	51	#define bB23 (-aB23)
	52	#define bB24 (-aB24)
	53	#define bB25 (-aB25)
	54	#define bB26 (-aB26)
	55	#define cB1 (aB1-1)
	56	#define cB2 (aB2-1)
	57	#define cB3 (aB3-1)
	58	#define cB4 (aB4-1)
	59	#define cB5 (aB5-1)
	60	#define cB6 (aB6-1)
	61	#define cB7 (aB7-1)
	62	#define cB8 (aB8-1)
	63	#define cB9 (aB9-1)
	64	#define cB10 (aB10-1)
65	#define cB11 (aB11-1)
66	#define cB12 (aB12-1)
67	#define cB13 (aB13-1)
68	#define cB14 (aB14-1)
69	#define cB15 (aB15-1)
70	#define cB16 (aB16-1)
71	#define cB17 (aB17-1)
72	#define cB18 (aB18-1)
73	#define cB19 (aB19-1)
74	#define cB20 (aB20-1)
75	#define cB21 (aB21-1)
76	#define cB22 (aB22-1)
77	#define cB23 (aB23-1)
78	#define cB24 (aB24-1)
79	#define cB25 (aB25-1)
80	#define cB26 (aB26-1)
81	#define dB1 (-aB1+1)
82	#define dB2 (-aB2+1)
83	#define dB3 (-aB3+1)
84	#define dB4 (-aB4+1)
85	#define dB5 (-aB5+1)
86	#define dB6 (-aB6+1)
87	#define dB7 (-aB7+1)
88	#define dB8 (-aB8+1)
89	#define dB9 (-aB9+1)
90	#define dB10 (-aB10+1)
91	#define dB11 (-aB11+1)
92	#define dB12 (-aB12+1)
93	#define dB13 (-aB13+1)
94	#define dB14 (-aB14+1)
95	#define dB15 (-aB15+1)
96	#define dB16 (-aB16+1)
97	#define dB17 (-aB17+1)
98	#define dB18 (-aB18+1)
99	#define dB19 (-aB19+1)
100	#define dB20 (-aB20+1)
101	#define dB21 (-aB21+1)
102	#define dB22 (-aB22+1)
103	#define dB23 (-aB23+1)
104	#define dB24 (-aB24+1)
105	#define dB25 (-aB25+1)
106	#define dB26 (-aB26+1)
107
108	#define add(a, b) $(a + b)
109	#define sub(a, b) $(a - b)
110	#define rsb(a, b) $(b - a)
111	#define mul(a, b) $(a * b)
112	#define div(a, b) $(a / b)
113	#define rem(a, b) $(a % b)
114	#define and(a, b) $(a & b)
115	#define or(a, b) $(a \| b)
116	#define xor(a, b) $(a ^ b)
117
118	#define alu2(N, X, L, R, V) \
119	movi %r1 L \
120	movi %r2 R \
121	N##r %r0 %r1 %r2 \
122	beqi X %r0 V \
123	calli @abort \
124	X:
125	#define alu1(N, M) \
126	alu2(N, N##M##1, 3, $(M##1), N(3, M##1)) \
127	alu2(N, N##M##2, 3, $(M##2), N(3, M##2)) \
128	alu2(N, N##M##3, 3, $(M##3), N(3, M##3)) \
129	alu2(N, N##M##4, 3, $(M##4), N(3, M##4)) \
130	alu2(N, N##M##5, 3, $(M##5), N(3, M##5)) \
131	alu2(N, N##M##6, 3, $(M##6), N(3, M##6)) \
132	alu2(N, N##M##7, 3, $(M##7), N(3, M##7)) \
133	alu2(N, N##M##8, 3, $(M##8), N(3, M##8)) \
134	alu2(N, N##M##9, 3, $(M##9), N(3, M##9)) \
135	alu2(N, N##M##10, 3, $(M##10), N(3, M##10)) \
136	alu2(N, N##M##11, 3, $(M##11), N(3, M##11)) \
137	alu2(N, N##M##12, 3, $(M##12), N(3, M##12)) \
138	alu2(N, N##M##13, 3, $(M##13), N(3, M##13)) \
139	alu2(N, N##M##14, 3, $(M##14), N(3, M##14)) \
140	alu2(N, N##M##15, 3, $(M##15), N(3, M##15)) \
141	alu2(N, N##M##16, 3, $(M##16), N(3, M##16)) \
142	alu2(N, N##M##17, 3, $(M##17), N(3, M##17)) \
143	alu2(N, N##M##18, 3, $(M##18), N(3, M##18)) \
144	alu2(N, N##M##19, 3, $(M##19), N(3, M##19)) \
145	alu2(N, N##M##20, 3, $(M##20), N(3, M##20)) \
146	alu2(N, N##M##21, 3, $(M##21), N(3, M##21)) \
147	alu2(N, N##M##22, 3, $(M##22), N(3, M##22)) \
148	alu2(N, N##M##23, 3, $(M##23), N(3, M##23)) \
149	alu2(N, N##M##24, 3, $(M##24), N(3, M##24)) \
150	alu2(N, N##M##25, 3, $(M##25), N(3, M##25)) \
151	alu2(N, N##M##26, 3, $(M##26), N(3, M##26))
152
153	#define alu(N) \
154	alu1(N, aB) \
155	alu1(N, bB) \
156	alu1(N, cB) \
157	alu1(N, dB)
158
159	#define _lsh(N) \
160	alu2(lsh, L##N, 3, N, $(3<<N))
161	#define _rsh(N) \
162	alu2(rsh, R##N, $(1<<63), N, $((1<<63)>>N))
163
164	#if __WORDSIZE == 32
165	# define xsh64(X) /**/
166	#else
167	# define xsh64(X) \
168	_##X##sh(32) \
169	_##X##sh(33) \
170	_##X##sh(34) \
171	_##X##sh(35) \
172	_##X##sh(36) \
173	_##X##sh(37) \
174	_##X##sh(38) \
175	_##X##sh(39) \
176	_##X##sh(40) \
177	_##X##sh(41) \
178	_##X##sh(42) \
179	_##X##sh(43) \
180	_##X##sh(44) \
181	_##X##sh(45) \
182	_##X##sh(46) \
183	_##X##sh(47) \
184	_##X##sh(48) \
185	_##X##sh(49) \
186	_##X##sh(50) \
187	_##X##sh(51) \
188	_##X##sh(52) \
189	_##X##sh(53) \
190	_##X##sh(54) \
191	_##X##sh(55) \
192	_##X##sh(56) \
193	_##X##sh(57) \
194	_##X##sh(58) \
195	_##X##sh(59) \
196	_##X##sh(60) \
197	_##X##sh(61) \
198	_##X##sh(62) \
199	_##X##sh(63)
200	#endif
201
202	#define xsh(X) \
203	_##X##sh(0) \
204	_##X##sh(1) \
205	_##X##sh(2) \
206	_##X##sh(3) \
207	_##X##sh(4) \
208	_##X##sh(5) \
209	_##X##sh(6) \
210	_##X##sh(7) \
211	_##X##sh(8) \
212	_##X##sh(9) \
213	_##X##sh(10) \
214	_##X##sh(11) \
215	_##X##sh(12) \
216	_##X##sh(13) \
217	_##X##sh(14) \
218	_##X##sh(15) \
219	_##X##sh(16) \
220	_##X##sh(17) \
221	_##X##sh(18) \
222	_##X##sh(19) \
223	_##X##sh(20) \
224	_##X##sh(21) \
225	_##X##sh(22) \
226	_##X##sh(23) \
227	_##X##sh(24) \
228	_##X##sh(25) \
229	_##X##sh(26) \
230	_##X##sh(27) \
231	_##X##sh(28) \
232	_##X##sh(29) \
233	_##X##sh(30) \
234	_##X##sh(31) \
235	xsh64(X)
236
237	#define lsh() \
238	xsh(l)
239	#define rsh() \
240	xsh(r)
241
242	#define reset(V) \
243	prepare \
244	pushargi buf \
245	pushargi V \
246	pushargi $(M64 + 8) \
247	finishi @memset
248
249	#define stx(T, N, O, V) \
250	movi %r0 V \
251	movi %r1 O \
252	stxr##T %r1 %v0 %r0
253	#define stx8(T, M, V) \
254	stx(T, 3, $(M##B3), V) \
255	stx(T, 4, $(M##B4), V) \
256	stx(T, 5, $(M##B5), V) \
257	stx(T, 6, $(M##B6), V) \
258	stx(T, 7, $(M##B7), V) \
259	stx(T, 8, $(M##B8), V) \
260	stx(T, 9, $(M##B9), V) \
261	stx(T, 10, $(M##B10), V) \
262	stx(T, 11, $(M##B11), V) \
263	stx(T, 12, $(M##B12), V) \
264	stx(T, 13, $(M##B13), V) \
265	stx(T, 14, $(M##B14), V) \
266	stx(T, 15, $(M##B15), V) \
267	stx(T, 16, $(M##B16), V) \
268	stx(T, 17, $(M##B17), V) \
269	stx(T, 18, $(M##B18), V) \
270	stx(T, 19, $(M##B19), V) \
271	stx(T, 20, $(M##B20), V) \
272	stx(T, 21, $(M##B21), V) \
273	stx(T, 22, $(M##B22), V) \
274	stx(T, 23, $(M##B23), V) \
275	stx(T, 24, $(M##B24), V) \
276	stx(T, 25, $(M##B25), V) \
277	stx(T, 26, $(M##B26), V)
278	#define stx4(T, M, V) \
279	stx(T, 2, $(M##B2), V) \
280	stx8(T, M, V)
281	#define stx2(T, M, V) \
282	stx(T, 1, $(M##B1), V) \
283	stx4(T, M, V)
284	#define ldx(T, N, M, O, V) \
285	movi %r0 0 \
286	ldxi##T %r0 %v0 O \
287	beqi ldx##T##N##M %r0 V \
288	calli @abort \
289	ldx##T##N##M:
290	#define ldx8(T, M, V) \
291	ldx(T, 3, M, $(M##B3), V) \
292	ldx(T, 4, M, $(M##B4), V) \
293	ldx(T, 5, M, $(M##B5), V) \
294	ldx(T, 6, M, $(M##B6), V) \
295	ldx(T, 7, M, $(M##B7), V) \
296	ldx(T, 8, M, $(M##B8), V) \
297	ldx(T, 9, M, $(M##B9), V) \
298	ldx(T, 10, M, $(M##B10), V) \
299	ldx(T, 11, M, $(M##B11), V) \
300	ldx(T, 12, M, $(M##B12), V) \
301	ldx(T, 13, M, $(M##B13), V) \
302	ldx(T, 14, M, $(M##B14), V) \
303	ldx(T, 15, M, $(M##B15), V) \
304	ldx(T, 16, M, $(M##B16), V) \
305	ldx(T, 17, M, $(M##B17), V) \
306	ldx(T, 18, M, $(M##B18), V) \
307	ldx(T, 19, M, $(M##B19), V) \
308	ldx(T, 20, M, $(M##B20), V) \
309	ldx(T, 21, M, $(M##B21), V) \
310	ldx(T, 22, M, $(M##B22), V) \
311	ldx(T, 23, M, $(M##B23), V) \
312	ldx(T, 24, M, $(M##B24), V) \
313	ldx(T, 25, M, $(M##B25), V) \
314	ldx(T, 26, M, $(M##B26), V)
315	#define ldx4(T, M, V) \
316	ldx(T, 2, M, $(M##B2), V) \
317	ldx8(T, M, V)
318	#define ldx2(T, M, V) \
319	ldx(T, 1, M, $(M##B1), V) \
320	ldx4(T, M, V)
321
322	#define stf(T, N, O, V) \
323	movi##T %f0 V \
324	movi %r0 O \
325	stxr##T %r0 %v0 %f0
326	#define stf8(T, M, V) \
327	stf(T, 3, $(M##B3), V) \
328	stf(T, 4, $(M##B4), V) \
329	stf(T, 5, $(M##B5), V) \
330	stf(T, 6, $(M##B6), V) \
331	stf(T, 7, $(M##B7), V) \
332	stf(T, 8, $(M##B8), V) \
333	stf(T, 9, $(M##B9), V) \
334	stf(T, 10, $(M##B10), V) \
335	stf(T, 11, $(M##B11), V) \
336	stf(T, 12, $(M##B12), V) \
337	stf(T, 13, $(M##B13), V) \
338	stf(T, 14, $(M##B14), V) \
339	stf(T, 15, $(M##B15), V) \
340	stf(T, 16, $(M##B16), V) \
341	stf(T, 17, $(M##B17), V) \
342	stf(T, 18, $(M##B18), V) \
343	stf(T, 19, $(M##B19), V) \
344	stf(T, 20, $(M##B20), V) \
345	stf(T, 21, $(M##B21), V) \
346	stf(T, 22, $(M##B22), V) \
347	stf(T, 23, $(M##B23), V) \
348	stf(T, 24, $(M##B24), V) \
349	stf(T, 25, $(M##B25), V) \
350	stf(T, 26, $(M##B26), V)
351	#define stf4(T, M, V) \
352	stf(T, 2, $(M##B2), V) \
353	stf8(T, M, V)
354	#define ldf(T, N, M, O, V) \
355	movi##T %f0 0 \
356	ldxi##T %f0 %v0 O \
357	beqi##T ldf##T##N##M %f0 V \
358	calli @abort \
359	ldf##T##N##M:
360	#define ldf8(T, M, V) \
361	ldf(T, 3, M, $(M##B3), V) \
362	ldf(T, 4, M, $(M##B4), V) \
363	ldf(T, 5, M, $(M##B5), V) \
364	ldf(T, 6, M, $(M##B6), V) \
365	ldf(T, 7, M, $(M##B7), V) \
366	ldf(T, 8, M, $(M##B8), V) \
367	ldf(T, 9, M, $(M##B9), V) \
368	ldf(T, 10, M, $(M##B10), V) \
369	ldf(T, 11, M, $(M##B11), V) \
370	ldf(T, 12, M, $(M##B12), V) \
371	ldf(T, 13, M, $(M##B13), V) \
372	ldf(T, 14, M, $(M##B14), V) \
373	ldf(T, 15, M, $(M##B15), V) \
374	ldf(T, 16, M, $(M##B16), V) \
375	ldf(T, 17, M, $(M##B17), V) \
376	ldf(T, 18, M, $(M##B18), V) \
377	ldf(T, 19, M, $(M##B19), V) \
378	ldf(T, 20, M, $(M##B20), V) \
379	ldf(T, 21, M, $(M##B21), V) \
380	ldf(T, 22, M, $(M##B22), V) \
381	ldf(T, 23, M, $(M##B23), V) \
382	ldf(T, 24, M, $(M##B24), V) \
383	ldf(T, 25, M, $(M##B25), V) \
384	ldf(T, 26, M, $(M##B26), V)
385	#define ldf4(T, M, V) \
386	ldf(T, 2, M, $(M##B2), V) \
387	ldf8(T, M, V)
388
389	#define ldst_c() \
390	reset(0xa5) \
391	movi %v0 buf \
392	stx2(_c, a, 0x5a) \
393	ldx2(_c, a, 0x5a) \
394	reset(0xa5) \
395	movi %v0 $(buf + M64) \
396	stx2(_c, b, 0x5a) \
397	ldx2(_c, b, 0x5a)
398	#define ldst_uc() \
399	reset(0xa5) \
400	movi %v0 buf \
401	stx2(_c, a, 0x5a) \
402	ldx2(_uc, a, 0x5a) \
403	movi %v0 $(buf + M64) \
404	stx2(_c, b, 0x5a) \
405	ldx2(_uc, b, 0x5a)
406	#define ldst_s() \
407	reset(0xa5) \
408	movi %v0 buf \
409	stx2(_s, a, 0x5a5a) \
410	ldx2(_s, a, 0x5a5a) \
411	reset(0xa5) \
412	movi %v0 $(buf + M64) \
413	stx2(_s, b, 0x5a5a) \
414	ldx2(_s, b, 0x5a5a)
415	#define ldst_us() \
416	reset(0xa5) \
417	movi %v0 buf \
418	stx2(_s, a, 0x5a5a) \
419	ldx2(_us, a, 0x5a5a) \
420	reset(0xa5) \
421	movi %v0 $(buf + M64) \
422	stx2(_s, b, 0x5a5a) \
423	ldx2(_us, b, 0x5a5a)
424	#define ldst_i() \
425	reset(0xa5) \
426	movi %v0 buf \
427	stx4(_i, a, 0x5a5a5a5a) \
428	ldx4(_i, a, 0x5a5a5a5a) \
429	reset(0xa5) \
430	movi %v0 $(buf + M64) \
431	stx4(_i, b, 0x5a5a5a5a) \
432	ldx4(_i, b, 0x5a5a5a5a)
433	#define ldst_ui() \
434	reset(0xa5) \
435	movi %v0 buf \
436	stx4(_i, a, 0x5a5a5a5a) \
437	ldx4(_ui, a, 0x5a5a5a5a) \
438	reset(0xa5) \
439	movi %v0 $(buf + M64) \
440	stx4(_i, b, 0x5a5a5a5a) \
441	ldx4(_ui, b, 0x5a5a5a5a)
442	#define ldst_l() \
443	reset(0xa5) \
444	movi %v0 buf \
445	stx8(_l, a, 0x5a5a5a5a5a5a5a5a) \
446	ldx8(_l, a, 0x5a5a5a5a5a5a5a5a) \
447	reset(0xa5) \
448	movi %v0 $(buf + M64) \
449	stx8(_l, b, 0x5a5a5a5a5a5a5a5a) \
450	ldx8(_l, b, 0x5a5a5a5a5a5a5a5a)
451	#define ldst_f() \
452	reset(0xa5) \
453	movi %v0 buf \
454	stf4(_f, a, 0.5) \
455	ldf4(_f, a, 0.5) \
456	reset(0xa5) \
457	movi %v0 $(buf + M64) \
458	stf4(_f, b, 0.5) \
459	ldf4(_f, b, 0.5)
460	#define ldst_d() \
461	reset(0xa5) \
462	movi %v0 buf \
463	stf8(_d, a, 0.5) \
464	ldf8(_d, a, 0.5) \
465	reset(0xa5) \
466	movi %v0 $(buf + M64) \
467	stf8(_d, b, 0.5) \
468	ldf8(_d, b, 0.5)
469
470	.data 67112960
471	buf:
472	.size M64
473	.size 8
474	ok:
475	.c "ok"
476
477	.code
478	prolog
479
480	alu(add)
481	alu(sub)
482	alu(rsb)
483	alu(mul)
484	alu(div)
485	alu(rem)
486	lsh()
487	rsh()
488	alu(and)
489	alu(or)
490	alu(xor)
491	ldst_c()
492	ldst_uc()
493	ldst_s()
494	ldst_us()
495	ldst_i()
496	#if __WORDSIZE == 64
497	ldst_ui()
498	ldst_l()
499	#endif
500	ldst_f()
501	ldst_d()
502
503	prepare
504	pushargi ok
505	finishi @puts
506	ret
507	epilog