DouKaku?

いまごろだが問題を読み違えていたことに気付いたので訂正(一行目)。前のマクロでは位と最高位の数字を取り出していた。また、その目的だったとしても前の投稿は冗長だったので短かくしたものをついでに(二行目)。以下は実行例。数字のみの行は出力。

2469 ldxf
1000
4
c
_34567 ldxf
10000
5
c
2469 lcxf
1000
2

言語一覧へのdcの追加ありがとうございます。