| interface from C to assembly

	.globl	putchar

.insrt	"../include/maclib.a68"
.insrt	"../include/system.a68"
.insrt	"../include/con.a68"


putchar:
	movl	sp@(4),d0	|get arg
	cmpb	#LF,d0		|see if newline
	jne	$1
	putchar	#CR
	putchar	#LF
	rts
$1:	putchar	d0
	rts