+++ /dev/null
-DIV START ; 減算を用いた32ビット除算
- PUSH 0,GR6
- PUSH 0,GR7
- LD GR6,GR1
- LD GR7,GR2
- LD GR1,=#FFFF ; 商の初期化
- LD GR2,=#FFFF
-LP LD GR4,GR6
- LD GR5,GR7
- ADDL GR2,=1 ; 商のカウントアップ
- JOV ADJ1
- JUMP CONT
-ADJ1 ADDL GR1,=1
-CONT SUBL GR6,0,GR3
- JOV FIN
- SUBL GR7,1,GR3
- JOV ADJ2
- JUMP LP
-ADJ2 SUBL GR6,=1
- JOV FIN
- JUMP LP
-FIN POP GR7
- POP GR6
- RET
- END
-