1 ;;; 0〜65535の範囲にある正数の割算を行う
4 ;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
7 AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
10 LD GR3,GR1 ; GR3 <- GR1
11 LOOP CPL GR3,GR2 ; ループ先頭。(GR3 < GR2)の場合、終了
13 SUBL GR3,GR2 ; GR3 <- GR3 - GR2
16 DIVZERO LAD GR3,#8000 ; 強制的にオーバーフローを発生させ、GR3 <- 0