CHECK   START              ;[t09.cas]
        IN     NO,LEN      ;入力
        LD     GR1,NO      ;データをGR1に入れる
        CPA    GR1,='0'    ;'0'より小さいか？
        JMI    ERROR
        CPA    GR1,='9'    ;'9'より大きいか？
        JPL    ERROR
        RET
ERROR   OUT    ERMSG,LOUT  ;エラー
        RET
ERMSG   DC     'ERROR'
NO      DS     256
LEN     DS     1
LOUT    DC     5
        END