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
  14     CONT    SUBL    GR6,0,GR3
  15     J0V     FIN
  16     SUBL    GR7,1,GR3
  17
  18     JUMP    LP
  19     ADJ2    SUBL    GR6,=1
  20     J0V     FIN
  21     JUMP    LP
  22     FIN     POP     GR7
  23     POP     GR6
  24     RET
  25     END
  26