afa5fdd54e3ba8b3bfd8620deaf89eecc7ef1da3
[YACASL2.git] / 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