REV    START                ;文字列を逆転 [a05.cas]
       IN     DATA,LEN      ;文字列の入力
       LAD    GR1,0         ;文字列の指標レジスタ
TOP    LD     GR2,DATA,GR1  ;GR2に1文字取り出す
       PUSH   0,GR2         ;スタックに格納 [  a  ]
       LAD    GR1,1,GR1     ;指標レジスタのアップ
       CPA    GR1,LEN       ;長さを比較
       JNZ    TOP
       LAD    GR1,0         ;文字列の指標レジスタ
LB     POP    GR2           ;スタックから取り出す
       ST     GR2,DATA,GR1  ;文字を格納
       LAD    GR1,1,GR1     ;指標レジスタのアップ [  b  ]
       CPA    GR1,LEN       ;長さを比較
       JNZ    LB
       OUT    DATA,LEN      ;結果の出力
       RET
LEN    DS     1             ;文字の長さ
DATA   DS     256           ;入力領域
       END