1 ;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
2 ;; 例: 12345 -> 54321、54321- -> -12345
6 PU 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 NEXT LAD GR3,0 ; GR3の初期化
15 PO 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