SIC XE please check

[stevanity]

I wrote the following code for sorting an array (ARR1) in ascending order. Please check if its correct. Thanks.
Is there any assembler for windows that I can use to run these codes?

.Program to sort ARRAY into ascending order.

SORT	START	0
OUTER	LDX	INDEX
	LDS	ARR1,X
	LDX	#0
INNER	LDT	ARR1,X
	COMPR	S,T
	JLT	LOOP
	JEQ	LOOP
	RMO	S,A
	RMO	T,S
	RMO	A,T
	RMO	X,A
	LDX	INDEX
	STS	ARR1,X
	RMO	A,X
	STT	ARR1,X
LOOP	RMO	X,A
	ADD	#3
	COMP	LENGTH
	RMO	A,X
	JLT	INNER
	LDA 	INDEX
	ADD	#3
	COMP	LENGTH
	JLT	OUTER
				
ARR1 	RESW	10
LENGTH	WORD	30
INDEX	WORD	0
	END