BSD 2 development

[unix-history] / src / pxp / yycopy.s

.globl _Y, _OY, _OYcopy
/.globl _Ycopy

_OYcopy:
       mov     $_OY,r0
       mov     $_Y,r1
       mov     r2,-(sp)
/0:
       mov     $8.,r2
1:
       mov     (r1)+,(r0)+
       sob     r2,1b
       mov     (sp)+,r2
       rts     pc
/
/_Ycopy:
/       mov     2(sp),r0
/       mov     4(sp),r1
/       mov     r2,-(sp)
/       br      0b