;***********************************
;* #FFFF * 100 = #63FF9C
;***********************************
MAIN    START
        LAD     GR2,#FFFF
        LAD     GR3,100
        CALL    MUL32
        RET
;***********************************
; 乗算
;* GR1, GR2 <-- GR2 * GR3 
;***********************************
MUL32   START
        LAD     GR7,16
        LAD     GR1,0           ; GR1を0に初期化する
;
LOOP    LD      GR6,GR2         ; GR2のLSBが立っていたら、GR1にGR3を加える
        AND     GR6,=#0001
        JNZ     LSBON1
        JUMP    CONT1
;
LSBON1  ADDL    GR1,GR3
;       JUMP    CONT1
;
CONT1   SRL     GR1,1           ; GR1とGR2をひとつのビット列とみなして、右シフトする
        JOV     LSBON2
;
        LAD     GR4,#0000
        JUMP    CONT2
;
LSBON2  LAD     GR4,#8000
;       JUMP    CONT2
;
CONT2   SRL     GR2,1
        OR      GR2,GR4
;
        SUBL    GR7,=1          ; 1ワード(16ビット)分、繰り返したか？
        JNZ     LOOP            ; いいえ（ループを継続する)
;
        RET
        END

;***********************************
; 除算
; 6553500(#63FF9C) ÷ 123  =  53280(#D020) ---　60(#3C)
;***********************************
MAIN    START
        LAD     GR1,#0063   ; 被除数を格納する
        LAD     GR2,#FF9C
        LAD     GR3,123     ; 除数を格納する
        CALL    DIV32
        RET
;***********************************
; GR1:余り,GR2:商 <-- GR1,GR2 ÷ GR3 
;***********************************
DIV32   LAD     GR7,16
;
LOOP    CPL     GR1,GR3     ; GR1はGR3未満か？
        JMI     MINUS       ; はい
;
        SUBL    GR1,GR3     ; GR1がGR3以上ならば、①GR1からGR3を引き、
        LAD     GR5,#0001   ; ②GR1とGR2をひとつにして左に1ビットシフトし、
        JUMP    CONT1       ; LSBに１をセットする
;
MINUS   LAD     GR5,#0000   ; GR1がGR3未満ならば、
;       JUMP    CONTI1      ; GR1とGR2をひとつにして左に1ビットシフトし、LSBに0をセットする
;
CONT1   SLL     GR2,1
        JOV     MSBON
;
        LAD     GR6,#0000
        JUMP    CONT2
;
MSBON   LAD     GR6,#0001
;       JUMP    CONT2
;
CONT2   OR      GR2,GR5
;
        SUBL    GR7,=1      ; 1ワード(16ビット)分、繰り返したか？
        JMI     FIN         ; はい（終了する）
;           
        SLL     GR1,1
        OR      GR1,GR6
;
        JUMP    LOOP
;
FIN     RET
        END