;QOPWNRONxt̎
;ݖP@Ȃ镶𐔒lɕϊ
;Ƃ΁A'567' @l 567 ɕϊ
MAIN START
  LAD GR1,MOZI
  LD GR2,LEN
  CALL DTOB
  ST GR0,VAL
  RET
MOZI DC '40567'
LEN DC 5
VAL DS 1
  END
;-------------
DTOB START
  RPUSH
  ADDL GR2,GR1
  LAD GR0,0     ; ߂l̏
LP CPL GR1,GR2  ; ϊIH
  JZE FIN
  LD GR4,0,GR1  ; ꕶ̎o
  SUBL GR4,='0' ; ꌅ𐔒lɕϊ
  SLL GR0,1     ; GR0 PO{GR4Z
; PVtgĂQ{ƂȂB
  LD GR5,GR0    :ꎞIGR5Ɋi[
  SLL GR5,2     ;  a  I
;Q{AS{̂łW{ƂȂB
  ADDL GR0,GR5
;Q{̒lGR0ƂW{̒lGR5ZGR0͂PO{ƂȂB
  ADDL GR0,GR4
  LAD GR1,1,GR1
  JUMP LP
FIN RPOP
  RET
  END
