YACAL2: CASL2処理系
[YACASL2.git] / as / multi_call.casl
1 MAIN    START
2         LAD GR4,0
3 LOOP CPA GR4,CNT
4         JZE FIN
5         JPL FIN
6         LD      GR1,X,GR4
7         LD      GR2,Y,GR4
8     CALL MULTI
9     LD  GR1,GR3
10     CALL ITOA
11     LAD GR4,1,GR4
12     JUMP LOOP
13 FIN     RET
14 X       DC      3,3,3,-3,-6
15 Y       DC      2,-3,4,5,-17
16 CNT DC  5
17         END