1 ;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
2 ;;; 例: 12345 -> 54321、54321- -> -12345
3 ;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
8 PU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
10 LD GR4,GR1 ; GR4 <- GR1
11 ADDL GR4,GR3 ; GR4 <- GR4 + GR3
12 LD GR5,0,GR4 ; GR5 <- GR4アドレスの値
14 LAD GR3,1,GR3 ; GR3 <- GR3 + 1
16 NEXT LAD GR3,0 ; GR3の初期化
17 PO CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
20 LD GR4,GR1 ; GR4にGR1の値をコピー
21 ADDL GR4,GR3 ; GR4 <- GR4 + GR3
22 ST GR5,0,GR4 ; GR4のアドレス <- GR5の値
23 LAD GR3,1,GR3 ; GR3 <- GR3 + 1