aboutsummaryrefslogtreecommitdiff
path: root/unix/as.vax/aaddks.s
diff options
context:
space:
mode:
Diffstat (limited to 'unix/as.vax/aaddks.s')
-rw-r--r--unix/as.vax/aaddks.s40
1 files changed, 40 insertions, 0 deletions
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