home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / salloc / zero.s < prev   
Encoding:
Text File  |  1975-05-13  |  245 b   |  22 lines
  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
  22.