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