YACAL2: CASL2処理系
[YACASL2.git] / as / pushpop.casl
1 OTEST START
2         LD GR1,=1
3     LD GR2,=2
4     PUSH 0,GR1
5     PUSH 0,GR2
6     LAD GR1,0
7     LAD GR2,0
8     POP GR2
9     POP GR1
10         RET
11         END