BTOD    START
        RPUSH
        LD     GR6,GR3
        LAD    GR7,4,GR3
        LAD    GR3,UDAT    ; 除数の初期設定
LP      CALL   DIV
        OR     GR2,='0'
        ST     GR2,0,GR6   ; 10進数字１文字格納
        CPL    GR6,GR7
        JZE    FIN
        LAD    GR6,1,GR6
        LD     GR1,GR4     ; 被除数の再設定
        LD     GR2,GR5
        LAD    GR3,2,GR3
        JUMP   LP
FIN     RPOP
        RET
UDAT    DC     0
        DC     10000
        DC     0
        DC     1000
        DC     0
        DC     100
        DC     0
        DC     10
        DC     0
        DC     1
        END