MULT   START
       RPUSH
       LAD     GR2,CTBL
       CALL    GETWD
       LD      GR4,0,GR2    ; GR4 ← 被乗数
       LD      GR5,1,GR2    ; GR5 ← 乗数
       LD      GR0,=0
       LD      GR5,GR5
LP     JZE     FIN
       LD      GR3,GR5
       AND     GR3,=#0001   ; 乗数の最下位ビットのチェック
       JZE     NEXT
       ADDL    GR0,GR4
NEXT   SLL     GR4,1        ; 被乗数を1ビット左論理シフト
       SRL     GR5,1
       JUMP    LP
FIN    RPOP
       RET
CTBL   DS      3            ; GETWD用管理テーブル
       END