;
; itoa(i, s);
;
	.globl	_itoa
_itoa:
	jsr	popax			; get string addr
	sta	ptr1
	stx	ptr1+1
	jsr	popax			; get number
	sta	fr0
	stx	fr0+1			; set up to floatify
	cpx	#0			; neg?
	bpl	itoa_1
	jsr	negax
	sta	fr0			; store it again
	stx	fr0+1
	lda	#'-
	ldy	#0
	sta	(ptr1),y		; stuff the neg sign
	inc	ptr1
	bne	itoa_1
	inc	ptr1+1
itoa_1:
	jsr	ifp			; floatify it
	jsr	fasc			; ascify it
	ldy	#0
itoa_2:
	lda	(inbuff),y		; get a byte
	bmi	itoa_3			; hi bit set? ok, done
	sta	(ptr1),y		; stash in caller's buffer
	iny
	jmp	itoa_2
itoa_3:
	and	#$7F			; mask it
	sta	(ptr1),y		; stash it
	lda	#0
	iny
	sta	(ptr1),y
	rts