home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pi0 / yycopy.s < prev    next >
Text File  |  1980-02-17  |  221b  |  21 lines
  1. .globl _Y, _OY, _OYcopy
  2. /.globl _Ycopy
  3.  
  4. _OYcopy:
  5.     mov    $_OY,r0
  6.     mov    $_Y,r1
  7.     mov    r2,-(sp)
  8. /0:
  9.     mov    $7.,r2
  10. 1:
  11.     mov    (r1)+,(r0)+
  12.     sob    r2,1b
  13.     mov    (sp)+,r2
  14.     rts    pc
  15. /
  16. /_Ycopy:
  17. /    mov    2(sp),r0
  18. /    mov    4(sp),r1
  19. /    mov    r2,-(sp)
  20. /    br    0b
  21.