as/exam_fe/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      GR5,='0'
   8        ST      GR5,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     10
  17        END