Appendix A: System Routines — EStack Arithmetic
505
TI
-
89 / TI
-
92 Plus Developer Guide
Not for Distribution
Beta Version January 26, 2001
push1
Declaration:
void
push1
(void)
Category(ies):
EStack Arithmetic
Description:
Pushes a tagged float 1.0 if IS_ARITH_APPROX. Otherwise pushes a
tagged big-integer 1.
Inputs:
None
Outputs:
None
Assumptions:
None
Side Effects:
None
Availability:
On AMS 2.00 and higher.
TI
-
89 / TI
-
92 Plus
Differences:
None
See Also: push0, push_pi, push_pi_on_quantum
Example:
void push_identity_mat (EStackIndex dim_exp_idx)
/* dim_exp_idx indexes an integer in the range 1 through 32767.
Pushes that size identity matrix onto the estack, using tagged float
rather than tagged integer elements if IS_ARITH_APPROX.
*/
{ long dimension, i, j;
dimension = GetValue (dim_exp_idx, 1, 32767);
push_quantum (END_TAG);
for (i = 0 ; i < dimension; i++)
{ push_quantum (END_TAG);
for (j = 0 ; j < dimension; j++)
if (j == i)
push1 ();
else push0 ();
push_quantum (LIST_TAG);
}
push_quantum (LIST_TAG);
return;
}