include	clib.inc
include	wchar.inc

DPROC	@wcputc
	mov	ah,0
PEND	@wcputc

DPROC	@wcputw
	push	cx
	push	di
	cld
	mov	di,bx
	test	ah,ah
	jz	wcputw_loop
	rep	stosw
	jmp     wcputw_end
    wcputw_loop:
	stosb
	inc	di
	dec	cx
	jnz	wcputw_loop
    wcputw_end:
	pop	di
	pop	cx
	ret
PEND	@wcputw

	END
