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

   1  BTOD   START
   2             RPUSH
   3             LAD     GR6,4,GR3
   4             LD      GR7,GR3
   5             LAD     GR3,DAT
   6      LP     CALL    DIV
   7             OR      ,='0'
   8             ST      ,0,GR6
   9             CPL     GR6,GR7
  10             JZE     FIN
  11             LAD     GR6,-1,GR6
  12             JUMP    LP
  13      FIN    RPOP
  14             RET
  15      DAT    DC     0
  16             DC
  17             END
  18