as/fe_tests/2011_10/Q12/div.casl

   1 DIV  START                     ; 減算を用いた32ビット除算
   2      PUSH    0,GR6
   3      PUSH    0,GR7
   4      LD      GR6,GR1
   5      LD      GR7,GR2
   6      LD      GR1,=#FFFF        ; 商の初期化
   7      LD      GR2,=#FFFF
   8 LP   LD      GR4,GR6
   9      LD      GR5,GR7
  10      ADDL    GR2,=1            ; 商のカウントアップ
  11      JOV     ADJ1
  12      JUMP    CONT
  13 ADJ1 ADDL    GR1,=1
  14 CONT SUBL    GR6,0,GR3
  15      JOV     FIN
  16      SUBL    GR7,1,GR3
  17      JOV     ADJ2
  18      JUMP    LP
  19 ADJ2 SUBL    GR6,=1
  20      JOV     FIN
  21      JUMP    LP
  22 FIN  POP     GR7
  23      POP     GR6
  24      RET
  25      END
  26