as/casl2lib/rev.casl

   1 ;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
   2 ;;;     例: 12345 -> 54321、54321- -> -12345
   3 ;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
   4 ;;; 出力 （同上）
   5 REV     START
   6         RPUSH
   7         LAD     GR3,0           ; GR3の初期化
   8 PU      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
   9         JZE     NEXT            ; ↓
  10         LD      GR4,GR1         ; GR4 <- GR1
  11         ADDL    GR4,GR3         ; GR4 <- GR4 + GR3
  12         LD      GR5,0,GR4       ; GR5 <- GR4アドレスの値
  13         PUSH    0,GR5           ; GR5をプッシュ
  14         LAD     GR3,1,GR3       ; GR3 <- GR3 + 1
  15         JUMP    PU              ; ループ終端
  16 NEXT    LAD     GR3,0           ; GR3の初期化
  17 PO      CPL     GR3,GR2         ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
  18         JZE     FIN             ; ↓
  19         POP     GR5             ; GR5にポップ
  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
  24         JUMP    PO              ; ループ終端
  25 FIN     RPOP
  26         RET
  27         END