テストケースの修正
[YACASL2.git] / as / cmd / SUBA / suba1.casl
1 ;;; SUBA r,adr,x
2 MAIN    START
3 BEGIN   LD      GR1,A
4         LAD     GR2,1
5         SUBA    GR1,A,GR2
6         RET
7 A       DC      3
8         DC      1
9         END