UNIX 6th Ed. - /usr/source/salloc/zero.s

   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

Defined functions