s_dest dd 0
code 's', s
      upop [s_dest]
      mov [tp],dword tib
.0	call key
	cmp al,10
	je .done
	  xchg edi,[tp]
	  stosb
	  xchg [tp],edi
	  call emit
	  jmp short .0
.done	push ecx	;move string to a safer place...
	push edi
	mov edi,[s_dest]
	mov eax,edi	;push addr
	dup
	push esi
	mov ecx,[tp]
	mov esi,tib
	sub ecx,esi
	mov eax,ecx	;push length
	rep movsb
	pop esi
	pop edi
	pop ecx
      call cr
next
