MULT2  START             ;＜MULT2.CAS＞
       LAD    GR3,0      ; 0→GR3
       LD     GR2,B      ; B→GR2
L1     CPA    GR2,=0     ; GR2は0か?
       JZE    FIN        ; 0ならばFINへ
       LD     GR4,GR2    ; GR2→GR4
       AND    GR4,=1     ; 0ビットを取り出す
       JZE    L2         ; 0ならばL2へ
       ADDA   GR3,A      ; GR3+A→GR3
L2     LD     GR1,A      ; A→GR1
       SLA    GR1,1      ; 1ビット左へシフト
       ST     GR1,A      ; GR1→A
       SRA    GR2,1      ; 1ビット右へシフト
       JUMP   L1         ; L1へ
FIN    ST     GR3,C
       RET               ;戻る
A      DC     5
B      DC     3
C      DS     1
       END