CHUPP  START              ;[t08.cas]
       LD     GR1,='a'    ;GR1に文字aを入れる
       SUBA   GR1,=#0020  ;大文字に変換する
       RET
       END