			in eax, [0]
			mov ebx, eax 
			in eax, [0]
top:	cmp eax, ebx
			je dun
			jl abc
			sub eax, ebx
			jmp top
abc:	sub ebx, eax
			jmp top
dun:	out[1],eax
			ret
