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