diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /unix/as.vax/aaddks.s | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'unix/as.vax/aaddks.s')
| -rw-r--r-- | unix/as.vax/aaddks.s | 40 |
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 |