text: #ifndef ARITHMETIC_H
  #define ARITHMETIC_H
  /*TRAPS*/
  #define INTEGER_OVERFLOW_TRAP 1			/*and IV in PSW must be set*/
  #define INTEGER_DIVIDE_BY_ZERO_TRAP 2	
  #define FLOATING_OVERFLOW_TRAP 3		
  #define DECIMAL_DIVIDE_BY_ZERO_TRAP 4
  #define FLOATING_UNDERFLOW_TRAP 5		/*and FU in PSW set*/
  #define DECIMAL_OVERFLOW_TRAP 6			/*and DV in PSW set*/
  #define SUBSCRIPT_RANGE_TRAP 7
  /*FAULTS*/
  #define FLOATING_OVERFLOW_FAULT 8
  #define FLOATING_DIVIDE_BY_ZERO_FAULT 9
  #define FLOATING_UNDERFLOW_FAULT 10
  
  extern long floating_underflow;
  #endif ARITHMETIC_H
  