MAIN  START             ;＜MULT.CAS＞
      LAD    GR1,5      ; GR1=5
      LAD    GR2,3      ; GR2=3
      CALL   MULT       ;サブルーチンコール
      ST     GR1,W      ;結果をWに格納
      LAD    GR1,60     ; GR1=60
      LAD    GR2,7      ; GR2=7
      CALL   MULT       ;サブルーチンコール
      SUBA   GR1,W      ; GR1=GR1-W
      ST     GR1,W      ;結果をWに格納
      RET               ;終了
W     DS     1
      END
MULT  START             ;サブルーチン
      LD     GR3,GR1    ; GR3=GR1
      LAD    GR1,0      ; GR1=0
M1    ADDA   GR1,GR3    ; GR1=GR1+GR3
      SUBA   GR2,=1     ;デクリメント
      JNZ    M1         ; 0でなかったらM1へ
      RET               ;戻る
      END