Return to port.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / asm |
1.1 ! noro 1: /* $OpenXM: OpenXM/src/asir99/asm/port.c,v 1.1.1.1 1999/11/10 08:12:25 noro Exp $ */ ! 2: #include "base.h" ! 3: ! 4: int dsab(base,a1,a2,up) ! 5: int base,a1,a2,*up; ! 6: { ! 7: return dmab(base,a1,BASE,a2,up); ! 8: } ! 9: ! 10: int dqr(a,b,qp) ! 11: int a,b,*qp; ! 12: { ! 13: *qp = a/b; ! 14: return a - b * (*qp); ! 15: }