-;;; GR1の値とGR2の値の、商をGR0、剰余をGR3に格納する
-;;; 0〜65535の範囲の数値を扱う
+;;; 0〜65535の範囲にある正数の割算(筆算方式)を行う
+;;; 入力 GR1:被除数 GR2:除数
+;;; 出力 GR0:商 GR3:剰余
+;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
DIVL START
PUSH 0,GR1
PUSH 0,GR2
ADDL GR3,=1 ; ↓
JUMP DFIN ; DFINへジャンプ
DCP LD GR3,GR1
-DFIN POP GR4
+DFIN POP GR4
POP GR2
POP GR1
RET
-DY DS 1
+DY DS 1
END