MULT  START
      XOR   GR1,GR1    ; 0 → GR1 （P：積）
      LD    GR0,M      ; 被乗数 m → GR0
      LAD   GR3,1      ; 1 → GR3
      LD    GR2,N      ; 乗数 n → GR2
      JZE   M2         ; 乗数 n ＝ 0 ？
M1                     ; P＝P＋被乗数
                       ; n＝n－1
                       ; n＝0 なら終了
M2    ST    GR1,P      ; 積の格納
      RET
M     DS    1          ; 被乗数
N     DS    1          ; 乗数
P     DS    1          ; 積
      END