YACAL2: CASL2処理系
[YACASL2.git] / as / ld_data.casl
1 MAIN    START
2         LAD GR2,0
3 MLOOP   CPL GR2,LEN
4         JZE MEND
5         LD  GR1,DATA,GR2
6         LAD GR2,1,GR2
7         JUMP    MLOOP
8 MEND    RET
9 DATA    DC  #9600,#F000,#A400
10 LEN     DC  3
11         END