.define	.putchar
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

	.sect .text

! putchar, for a unix

.putchar:
	enter [],0
	movqd	1,tos
	addr	8(fp),tos
	movqd	1,tos
	bsr	__write
	adjspb	-12
	exit	[]
	ret	0