.TITLE SEPWRD
	.IDENT /13JUL/
;
SEPWRD::
	MOV 2(R5), R0		;R0 CONTAINS ADDRESS OF WORD
				;TO BE SEPARATED.
	CLR @4(R5)		;CLEAR 2ND PARAMETER
	CLR @6(R5)		;CLEAR THIRD PARAMETER
	MOVB (R0)+, @4(R5)	;RETURN LOW ORDER BYTE
	MOVB (R0), @6(R5)	;RETURN HIGH ORDER BYTE
	RTS PC
	.END