--- /dev/null
+;;; 0〜65535の範囲にある正数の割算を行う
+;;; 入力 GR1:被除数 GR2:除数
+;;; 出力 GR0:商 GR3:剰余
+;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
+DIVL START
+ PUSH 0,GR1
+ AND GR2,GR2 ; (GR2 = 0)の場合、DYZへジャンプ
+ JZE DIVZERO ; ↓
+ LAD GR0,0 ; GR0を初期化
+ LD GR3,GR1 ; GR3 <- GR1
+LOOP CPL GR3,GR2 ; ループ先頭。(GR3 < GR2)の場合、終了
+ JMI FIN ; ↓
+ SUBL GR3,GR2 ; GR3 <- GR3 - GR2
+ ADDL GR0,ONE ; ↓
+ JUMP LOOP ; ループ終端
+DIVZERO LAD GR3,#8000 ; 強制的にオーバーフローを発生させ、GR3 <- 0
+ SLL GR3,1 ; ↓
+ JUMP FIN ; FIN へジャンプ
+FIN POP GR1
+ RET
+ONE DC 1
+ END