/
IDQ.c,v
71 lines (56 loc) · 1.05 KB
/
IDQ.c,v
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
head 1.2;
access;
symbols;
locks
saclib:1.2; strict;
comment @ * @;
1.2
date 93.05.17.15.16.05; author George; state spec;
branches;
next 1.1;
1.1
date 93.05.17.15.01.51; author saclib; state init;
branches;
next ;
desc
@Integer-digit quotient.
@
1.2
log
@The specification was previously unclear.
@
text
@/*==========================================================================
C <- IDQ(A,b)
Integer-digit quotient.
Inputs
A : in Z.
b : non-zero BETA-digit.
Outputs
C : in Z, the integral part of A / b.
==========================================================================*/
#include "saclib.h"
Word IDQ(A,b)
Word A,b;
{
Word C,r;
/* hide algorithm */
Step1: /* Compute. */
IDQR(A,b,&C,&r);
Return: /* Prepare for return. */
return(C);
}
@
1.1
log
@Initial revision
@
text
@d1 1
a1 1
/*======================================================================
d11 2
a12 2
C : the quotient part of A / b.
======================================================================*/
@