as/cmd/CALL/call2.casl

   1 MAIN    START   BEGIN
   2 BEGIN   LD      GR1,=29
   3         CALL    INCR
   4         ST      GR1,A
   5         RET
   6 A       DS      1
   7         END
   8 INCR    START
   9         ADDA      GR1,=1
  10         RET
  11 FIN     END