ARRAY4 START ;[t16.cas]
LAD GR2,0 ;GR2を0にする
LAD GR1,DATA ;GR1をDATAのアドレス
LOOP LD GR3,0,GR1 ;データを取り出す
CPA GR3,=0 ;番兵と比較
JZE END
ADDA GR2,GR3 ;GR2にGR3を加算
LAD GR1,1,GR1 ;GR1を1加算
JUMP LOOP
END RET ;終了
DATA DC 32,45,78,89,0 ;データ
END