as/exam_fe/2018_04/dtob.casl

   1 DTOB    START
   2         RPUSH
   3         ADDL   GR2,GR1
   4         LAD    GR0,0           ; 戻り値の初期化
   5 LP      CPL    GR1,GR2         ; 変換終了？
   6         JZE    FIN
   7         LD     GR4,0,GR1       ; 数字1文字の取出し
   8         SUBL   GR4,='0'        ; 1 桁を数値に変換
   9         SLL    GR0,1           ; GR0を10倍してGR4を加算
  10         LD     GR5,GR0
  11         SLL    GR5,2
  12         ADDL   GR0,GR5
  13         ADDL   GR0,GR4
  14         LAD    GR1,1,GR1
  15         JUMP   LP
  16 FIN     RPOP
  17         RET
  18         END