diff options
| author | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
|---|---|---|
| committer | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
| commit | 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch) | |
| tree | 4464880c571602d54f6ae114729bf62a89518057 /unix/as.vax/ishift.s | |
| download | iraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz | |
Repatch (from linux) of OSX IRAF
Diffstat (limited to 'unix/as.vax/ishift.s')
| -rw-r--r-- | unix/as.vax/ishift.s | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/unix/as.vax/ishift.s b/unix/as.vax/ishift.s new file mode 100644 index 00000000..1319556f --- /dev/null +++ b/unix/as.vax/ishift.s @@ -0,0 +1,57 @@ +# IAND, IOR, ISHIFT -- Bitwise boolean integer functions for the NCAR +# package. The shift function must rotate the bits left and around +# if the nbits to shift argument is positive. + + .data # Bitwise boolean AND + .text + .align 1 + .globl _iand_ +_iand_: + .word L12 + jbr L14 +L15: + mcoml *8(ap),r0 + bicl3 r0,*4(ap),r0 + ret + ret + .set L12,0x0 +L14: + jbr L15 + + + .data # Bitwise boolean OR + .text + .align 1 + .globl _ior_ +_ior_: + .word L17 + jbr L19 +L20: + bisl3 *8(ap),*4(ap),r0 + ret + ret + .set L17,0x0 +L19: + jbr L20 + + + .data # Bitwise SHIFT + .text + .align 1 + .globl _ishift_ +_ishift_: + .word L22 + jbr L24 +L25: + movl *8(ap),r11 + jlss L26 + rotl r11,*4(ap),r0 # left rotate longword + ret +L26: + ashl r11,*4(ap),r0 # right shift with sign extension + ret + ret + .set L22,0x800 +L24: + jbr L25 + .data |