10 WLOOP CPL GR5,GR2 ; GR5がGR2より大きい場合は終了
14 ADDL GR1,GR5 ; GR1に(GR1+GR5)の内容をロード
16 LAD GR5,1,GR5 ; GR5をインクリメント
17 ILOOP CPL GR1,TEN ; GR1が10未満の場合は次の語
19 CALL DIV10 ; GR1を10で割り、商をGR3、剰余をGR4に格納
21 ST GR4,STR,GR6 ; GR4を(STR+GR6)に格納
22 LAD GR6,1,GR6 ; GR6をインクリメント
44 ;GR1を10で割ったときの商をGR3、剰余をGR4に格納
54 ;アドレスがGR1、長さがGR2の文字列を逆順に並べ替える