as/add.casl

   1 MAIN    START
   2 BEGIN   LD      GR1,A
   3         ADDA    GR1,B
   4     RET
   5 A       DC      3
   6 B       DC      1
   7         END