Symbolic Add Arguments.c 600 B

123456789101112131415161718192021222324
  1. // Add the first two symbolic expressions passed to the program
  2. #define USE_TI89
  3. #define USE_TI92P
  4. #define USE_V200
  5. #define RETURN_VALUE
  6. #define OPTIMIZE_ROM_CALLS
  7. #define ENABLE_ERROR_RETURN
  8. #define MIN_AMS 202
  9. #include <tigcclib.h>
  10. void _main(void)
  11. {
  12. if (ArgCount () != 2)
  13. ER_throw (ER_ARGUMENT); /* Argument error */
  14. ESI delete_end = top_estack, delete_begin = delete_end;
  15. while (GetArgType (delete_begin) != END_TAG)
  16. delete_begin = next_expression_index (delete_begin);
  17. delete_begin--;
  18. push_sum (EX_getArg (0), EX_getArg (1));
  19. delete_between (delete_begin, delete_end);
  20. }