BTOD   START
       RPUSH
       LAD     GR6,4,GR3
       LD      GR7,GR3
       LAD     GR3,DAT
LP     CALL    DIV
       OR      GR5,='0'
       ST      GR5,0,GR6
       CPL     GR6,GR7
       JZE     FIN
       LAD     GR6,-1,GR6
       JUMP    LP
FIN    RPOP
       RET
DAT    DC     0
       DC     10
       END