BNKI    START              ;＜BNKI.CAS＞
        IN     NO,LEN      ;入力
        LD     GR1,NO      ;データをGR1に入れる
        AND    GR1,=#000F  ;数値に変換
        CPA    GR1,=5      ;数値の5と比較
        JPL    XP          ;大きい場合
        JMI    XM          ;小さい場合
        OUT    HITOSI,LOUT ;等しい
        RET
XP      OUT    OOKII,LOUT  ;大きい
        RET
XM      OUT    CHISAI,LOUT ;小さい
        RET
HITOSI  DC     'IN ＝ 5'
CHISAI  DC     'IN ＜ 5'
OOKII   DC     'IN ＞ 5'
NO      DS     256
LEN     DS     1
LOUT    DC     6
        END