/
/

/ fx6 -- teletype

.globl	tput
.globl	tdecml

tdecml:
	mov	r1,-(sp)
	jsr	r5,td
	mov	(sp)+,r1
	rts	r5

td:
	mov	r0,r1
	clr	r0
	dvd	$10.,r0
	mov	r1,-(sp)
	tst	r0
	beq	1f
	jsr	r5,td
1: