1 ;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
2 ;; 例: 12345 => 54321、54321- => -12345
6 RPU CPL GR3,GR2 ; ループ開始。(GR3 = GR2)の場合、ループ脱出
8 LD GR4,GR1 ; GR4にGR1の値をコピー
9 ADDL GR4,GR3 ; GR4 <= GR4 + GR3
10 LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
12 LAD GR3,1,GR3 ; GR3 <= GR3 + 1
14 RNEXT LAD GR3,0 ; GR3の初期化
15 RPO CPL GR3,GR2 ; ループ開始。(GR3 = GR2)の場合、ループ脱出
18 LD GR4,GR1 ; GR4にGR1の値をコピー
19 ADDL GR4,GR3 ; GR4 <= GR4 + GR3
20 ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
21 LAD GR3,1,GR3 ; GR3 <= GR3 + 1