* zargs[1] = second value
*
*/
-void z_add (void)
+void z_add(void)
{
- store ((zword) ((short) zargs[0] + (short) zargs[1]));
-
-}/* z_add */
+ store((zword) ((short) zargs[0] + (short) zargs[1]));
+} /* z_add */
/*
* zargs[1] = second value
*
*/
-void z_and (void)
+void z_and(void)
{
store ((zword) (zargs[0] & zargs[1]));
-
-}/* z_and */
+} /* z_and */
/*
* zargs[1] = #positions to shift left (positive) or right
*
*/
-void z_art_shift (void)
+void z_art_shift(void)
{
- if ((short) zargs[1] > 0)
- store ((zword) ((short) zargs[0] << (short) zargs[1]));
- else
- store ((zword) ((short) zargs[0] >> - (short) zargs[1]));
+ if ((short) zargs[1] > 0)
+ store((zword) ((short) zargs[0] << (short) zargs[1]));
+ else
+ store((zword) ((short) zargs[0] >> - (short) zargs[1]));
-}/* z_art_shift */
+} /* z_art_shift */
/*
* zargs[1] = second value
*
*/
-void z_div (void)
+void z_div(void)
{
- if (zargs[1] == 0)
- runtime_error (ERR_DIV_ZERO);
+ if (zargs[1] == 0)
+ runtime_error(ERR_DIV_ZERO);
+ store((zword) ((short) zargs[0] / (short) zargs[1]));
- store ((zword) ((short) zargs[0] / (short) zargs[1]));
-
-}/* z_div */
+} /* z_div */
/*
* zargs[3] = fourth value (optional)
*
*/
-void z_je (void)
+void z_je(void)
{
- branch (
- zargc > 1 && (zargs[0] == zargs[1] || (
- zargc > 2 && (zargs[0] == zargs[2] || (
- zargc > 3 && (zargs[0] == zargs[3]))))));
-
-}/* z_je */
+ branch (
+ zargc > 1 && (zargs[0] == zargs[1] || (
+ zargc > 2 && (zargs[0] == zargs[2] || (
+ zargc > 3 && (zargs[0] == zargs[3]))))));
+} /* z_je */
/*
* zargs[1] = second value
*
*/
-void z_jg (void)
+void z_jg(void)
{
- branch ((short) zargs[0] > (short) zargs[1]);
-
+ branch((short) zargs[0] > (short) zargs[1]);
}/* z_jg */
* zargs[1] = second value
*
*/
-void z_jl (void)
+void z_jl(void)
{
- branch ((short) zargs[0] < (short) zargs[1]);
-
-}/* z_jl */
+ branch((short) zargs[0] < (short) zargs[1]);
+} /* z_jl */
/*
* zargs[0] = value
*
*/
-void z_jz (void)
+void z_jz(void)
{
- branch ((short) zargs[0] == 0);
+ branch((short) zargs[0] == 0);
-}/* z_jz */
+} /* z_jz */
/*
* zargs[1] = #positions to shift left (positive) or right (negative)
*
*/
-void z_log_shift (void)
+void z_log_shift(void)
{
- if ((short) zargs[1] > 0)
- store ((zword) (zargs[0] << (short) zargs[1]));
- else
- store ((zword) (zargs[0] >> - (short) zargs[1]));
-
-}/* z_log_shift */
+ if ((short) zargs[1] > 0)
+ store((zword) (zargs[0] << (short) zargs[1]));
+ else
+ store((zword) (zargs[0] >> - (short) zargs[1]));
+} /* z_log_shift */
/*
*/
void z_mod (void)
{
- if (zargs[1] == 0)
- runtime_error (ERR_DIV_ZERO);
+ if (zargs[1] == 0)
+ runtime_error(ERR_DIV_ZERO);
- store ((zword) ((short) zargs[0] % (short) zargs[1]));
-
-}/* z_mod */
+ store((zword) ((short) zargs[0] % (short) zargs[1]));
+} /* z_mod */
/*
* zargs[1] = second value
*
*/
-void z_mul (void)
+void z_mul(void)
{
- store ((zword) ((short) zargs[0] * (short) zargs[1]));
-
-}/* z_mul */
+ store((zword) ((short) zargs[0] * (short) zargs[1]));
+} /* z_mul */
/*
*/
void z_not (void)
{
- store ((zword) ~zargs[0]);
-
-}/* z_not */
+ store((zword) ~zargs[0]);
+} /* z_not */
/*
* zargs[1] = second value
*
*/
-void z_or (void)
+void z_or(void)
{
- store ((zword) (zargs[0] | zargs[1]));
-
-}/* z_or */
+ store((zword) (zargs[0] | zargs[1]));
+} /* z_or */
/*
* zargs[1] = second value
*
*/
-void z_sub (void)
+void z_sub(void)
{
- store ((zword) ((short) zargs[0] - (short) zargs[1]));
-
-}/* z_sub */
+ store((zword) ((short) zargs[0] - (short) zargs[1]));
+} /* z_sub */
/*
* zargs[1] = bit mask
*
*/
-void z_test (void)
+void z_test(void)
{
- branch ((zargs[0] & zargs[1]) == zargs[1]);
-
-}/* z_test */
+ branch((zargs[0] & zargs[1]) == zargs[1]);
+} /* z_test */