From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/as.vax/aaddks.s | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 unix/as.vax/aaddks.s

(limited to 'unix/as.vax/aaddks.s')

diff --git a/unix/as.vax/aaddks.s b/unix/as.vax/aaddks.s
new file mode 100644
index 00000000..8000beb0
--- /dev/null
+++ b/unix/as.vax/aaddks.s
@@ -0,0 +1,40 @@
+	.data	0
+	.set	LWM1,0xfc0
+	.data	2
+	.data	1
+	.data	0
+	.globl	_aaddks_
+	.data	2
+v.2:
+	.space	4
+	.set	v.1,v.2
+
+	.stabs	"aaddks.f",0x64,0,0,0
+	.text
+	.globl	_aaddks_
+	.set	LF1,12
+_aaddks_:
+	.word	LWM1
+	subl2	$LF1,sp
+	jbr	L12
+	.align	1
+L12:
+	moval	v.1,r11
+	movl	*16(ap),-4(fp)
+	subl2	$2,4(ap)
+	movl	*16(ap),-8(fp)
+	subl2	$2,12(ap)
+	movl	*16(ap),-12(fp)
+	movl	v.2-v.1(r11),r10
+	movl	4(ap),r9
+	movl	8(ap),r8
+	movl	12(ap),r7
+	movl	-12(fp),r6
+	movl	$1,r10
+	cmpl	r6,r10
+	jlss	L20
+L21:
+	addw3	(r9)[r10],(r8),(r7)[r10]
+	aobleq	r6,r10,L21
+L20:
+	ret
-- 
cgit