CHLOW  START              ;[t07.cas]
       IN     DATA,LEN    ;文字の読み込み
       LD     GR1,DATA    ;GR1に文字を入れる
       OR     GR1,=#0020  ;小文字に変換する
       ST     GR1,DATA    ;GR1をDATAに格納
       OUT    DATA,C1     ;小文字を出力
       RET
LEN    DS     1
C1     DC     1
DATA   DS     256         ;入力域
       END