[unix-history] / usr / source / salloc / zero.s

.globl	zero
.globl	putchar
.globl	w, r, a, l
/
/
/	routine to zero a string
/
/	mov	...,r1
/	jsr	pc,zero
/
zero:
	mov	r0,-(sp)
	mov	a(r1),w(r1)
	clrb	r0
1:	cmp	w(r1),l(r1)
	bhis	1f
	jsr	pc,putchar
	br	1b
1:	mov	a(r1),w(r1)
	mov	(sp)+,r0
	rts	pc
Commit	Line	Data
8bc57cc9 KT	1	.globl zero
	2	.globl putchar
	3	.globl w, r, a, l
	4	/
	5	/
	6	/ routine to zero a string
	7	/
	8	/ mov ...,r1
	9	/ jsr pc,zero
	10	/
	11	zero:
	12	mov r0,-(sp)
	13	mov a(r1),w(r1)
	14	clrb r0
	15	1: cmp w(r1),l(r1)
	16	bhis 1f
	17	jsr pc,putchar
	18	br 1b
	19	1: mov a(r1),w(r1)
	20	mov (sp)+,r0
	21	rts pc