TRANS  START              ;文字の暗号化 [b03.cas]
       IN     R,LEN       ;文字列の入力
       LAD    GR1,0       ;文字列Rの指標レジスタ
TOP    CPA    GR1,LEN     ;入力文字長と比較
       JZE    FIN         ;等しければ終了？
       LD     GR2,R,GR1   ;Rから1文字取り出す [  a  ]
       CPA    GR2,='a'    ;'a'より小さいか？
       JMI    SKIP
       CPA    GR2,='z'    ;'z'より大きいか？ [  b  ]
       JPL    SKIP
       SUBA   GR2,=#0061  ;数値に変換
       LD     GR2,TR,GR2  ;文字の変換 [  c  ]
SKIP   ST     GR2,R,GR1   ;文字の格納
       LAD    GR1,1,GR1   ;指標レジスタの加算
       JUMP   TOP
FIN    OUT    R,LEN       ;文字列の出力
       RET
TR     DC     'khgfezonmywvrqpldcjibaxuts'
LEN    DS     1
R      DS     256
       END