.title	nulpad
;
; call nulpad( ip, nchrs )
;

nulpad::
	tst	(r5)+			; discard nargs
	mov	(r5)+,r0		; r0 => array
	mov	@(r5)+,r1		; r1 = nchrs
	ble	20$

10$:	clrb	(r0)+			; clear byte
	sob	r1,10$

20$:	return

	.end