1 ;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
4 ;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
9 AND GR2,GR2 ; (GR2 = 0)の場合、DFZへジャンプ
11 ST GR2,DY ; DYにGR2の初期値を保存
14 LAD GR4,1 ; GR4の初期化。対象ビットを表す
15 DSL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、DLOOPへループ脱出
17 SLL GR4,1 ; GR4を1回左シフト
18 SLL GR2,1 ; GR2を1回左シフト
19 JOV DYOV ; オーバーフローの場合は、DYOVにジャンプ
25 DLOOP SRL GR4,1 ; ループ先頭。GR4を1回右シフト
26 JZE DCP ; (GR4 = 0)の場合、ループ脱出
27 SRL GR2,1 ; GR2を1回右シフト
28 CPL GR1,DY ; (GR1 < DY)の場合、ループ脱出
30 CPL GR1,GR2 ; (GR1 < GR2)の場合、ループ先頭へジャンプ
32 DLPIN SUBL GR1,GR2 ; GR1 <- GR1 - GR2
33 ADDL GR0,GR4 ; GR0 <- GR0 + GR4
35 DYZ LAD GR3,#FFFF ; 強制的にオーバーフローを発生させ、GR3 <- 0