! $OpenXM: OpenXM_contrib2/asir2000/asm/asm5.s,v 1.1.1.1 1999/12/03 07:39:06 noro Exp $ #include "base.h" .seg "text" ! [internal] .proc 14 .global _dm _dm: umul %o0,%o1,%o0 rd %y,%o1 sll %o1,CBSH,%o1 srl %o0,BSH,%o3 or %o1,%o3,%o1 sethi %hi(BMASK),%o3 add %o3,%lo(BMASK),%o3 and %o0,%o3,%o0 retl st %o1,[%o2] .proc 14 .global _dmb _dmb: umul %o1,%o2,%o1 udivcc %o1,%o0,%o2 umul %o0,%o2,%o0 subcc %o1,%o0,%o0 retl st %o2,[%o3] .proc 14 .global _dma _dma: umul %o0,%o1,%o0 rd %y,%o1 addcc %o0,%o2,%o0 addx %g0,%o1,%o1 sll %o1,CBSH,%o1 srl %o0,BSH,%o2 or %o1,%o2,%o1 sethi %hi(BMASK),%o2 add %o2,%lo(BMASK),%o2 and %o0,%o2,%o0 retl st %o1,[%o3] .proc 14 .global _dmab _dmab: umul %o1,%o2,%o1 rd %y,%o2 addcc %o1,%o3,%o1 addx %g0,%o2,%o2 wr %o2,%g0,%y udivcc %o1,%o0,%o2 umul %o0,%o2,%o0 subcc %o1,%o0,%o0 retl st %o2,[%o4] .proc 14 .global _dsab _dsab: srl %o1,CBSH,%o4 wr %o4,%g0,%y sll %o1,BSH,%o1 or %o2,%o1,%o2 udivcc %o2,%o0,%o4 umul %o0,%o4,%o0 subcc %o2,%o0,%o0 retl st %o4,[%o3] .proc 14 .global _dmar _dmar: umul %o0,%o1,%o0 rd %y,%o1 addcc %o0,%o2,%o0 addx %g0,%o1,%o1 wr %o1,%g0,%y udivcc %o0,%o3,%o1 umul %o3,%o1,%o1 retl subcc %o0,%o1,%o0 .proc 14 .global _dqr _dqr: wr %g0,%g0,%y udiv %o0,%o1,%o3 umul %o1,%o3,%o1 subcc %o0,%o1,%o0 retl st %o3,[%o2] .seg "data"