BINTODEC  START  ; M番地の内容の10進数に変換して出力する
      PUSH  0           ; push（番兵＝0）
      LD    GR1,M       ; <M>→m （変換対象内部表現）
D1    CALL  DIVTEN      ; GR1／10 → 商GR2, 剰余GR1
                        ; push #0030＋GR1（剰余の文字コード）
                        ; GR1＝GR2
                        ; GR1≠0 なら繰り返し
      POP   GR2         ; pop（c），GR1＝L は既に 0
D2                      ; c→<BUF（L）>
                        ; L＝L＋1
                        ; pop（c） 
      OR    GR2,GR2     ; GR2のゼロチェック
      JNZ   D2          ; 番兵＝0 でなければ繰り返し
      ST    GR1,L       ; 文字数の格納
      OUT   BUF,L       ; 出力
      RET
M     DC    0           ; 10進数で出力したい値
L     DS    1           ; 出力文字数
BUF   DS    256         ; 出力バッファ
      END