	PUSHAX;PUSHDX;PUSHCX;PUSHBX;PUSHES
	DX,B800;ES,DX
	BX,2710
	CX,4
=1=	XORDX,DX
	DIVBX
	ADDAX,0E30
	STOSW
	AX,BX
	PUSHDX
	XORDX,DX
	BX,A
	DIVBX
	BX,AX
	POPAX
	LOOP(1)
	ADDAX,0E30
	STOSW
	POPES;POPBX;POPCX;POPDX;POPAX
	RET