as/add_err.casl

   1 MAIN    START   BEGIN
   2 BEGIN   LD      GR1,A
   3         ADEA    GR1,B
   4     ST  GR1, C
   5     RET
   6 A       DC      3
   7 B       DC      1
   8 C       DS      1
   9         END