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