as/add1.casl

   1 MAIN    START   BEGIN
   2 BEGIN   RPUSH
   3         LD      GR1,A
   4         ADDA    GR1,B
   5     ST  GR1,C
   6     RPOP
   7     RET
   8 A       DC      3
   9 B       DC      1
  10 C       DS      1
  11         END