>>872
自分の使っているアセンブラ以外にこの世にアセンブラはないと思ってるだろ？

         START    ENTRY
NUM      DC       '12345'
LEN      DC       5
VAL      DS       1
ENTRY    XOR      GR0,GR0
         LAD      GR1,NUM
         LD       GR2,LEN
LOOP     LD       GR3,GR0
         SLA      GR3,3
         SLA      GR0,1
         ADDA     GR0,GR3
         ADDA     GR0,0,GR1
         SUBA     GR0,='0'
         ADDL     GR1,=1
         SUBL     GR2,=1
         JNZ      LOOP
         ST       GR0,VAL
         RET
         END