BSD 2 development

Work on file src/pascal/fpdata/yycopy.s

Synthesized-from: 2bsd

diff --git a/src/pascal/fpdata/yycopy.s b/src/pascal/fpdata/yycopy.s
new file mode 100644 (file)
index 0000000..e5ad580
--- /dev/null
+++ b/src/pascal/fpdata/yycopy.s
@@ -0,0 +1,21 @@
+.data
+.globl _Y, _OY, _OYcopy
+/.globl _Ycopy
+
+_OYcopy:
+       mov     $_OY,r0
+       mov     $_Y,r1
+       mov     r2,-(sp)
+/0:
+       mov     $7.,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