MULT2 START
      XOR   GR1,GR1    ; 0 → GR1 （P：積）
      LD    GR0,M      ; 被乗数 m → GR0
      LD    GR2,N      ; 乗数 n → GR2
      JZE   M4         ; 乗数 n ＝ 0 ？
M1    SRL   GR2,1      ; 乗数 n を2で割る
      JOV   M2         ; 最下位ビットが1だったか？
      JUMP  M3
M2    ADDA  GR1,GR0    ; P＝P＋被乗数 m
M3    SLA   GR0,1      ; 被乗数 m を2倍
      OR    GR2,GR2    ;  GR2 の 0 チェック
      JNZ   M1         ; n＝0 なら終了
M4    ST    GR1,P      ; 積の格納
      RET
M     DS   1           ; 被乗数
N     DS   1           ; 乗数
P     DS   1           ; 積
      END