- XOR GR1,GR1 ; GR1:各桁の数値 初期化
- LAD GR2,10 ; GR2:10進数の「10」 初期化
- LAD GR3,0 ; GR3:値の一時格納 初期化
- LAD GR4,0 ; GR4:インデックス 初期化
-STOL CPL GR4,ILEN ; ループ先頭。(GR4 = ILEN)の場合、ループ脱出
+ CPL GR2,MAXLEN ; (GR2 > MAXLEN)の場合、LENOVへジャンプ
+ JPL LENOV ; ↓
+ ST GR1,STR ; STR <- GR1 文字列の開始アドレス
+ ST GR2,LEN ; LEN <- GR2
+ LAD GR2,10 ; GR2:10進数の「10」
+ XOR GR4,GR4 ; GR4:値の一時格納
+ XOR GR5,GR5 ; GR5:インデックス
+STOL CPL GR5,LEN ; ループ先頭。(GR5 = LEN)の場合、ループ脱出