XOR    START           ;＜XOR.CAS＞
       LD    GR1,DATA1 ; GR1にDATA1の値を入れる
       XOR   GR1,DATA2 ;データの比較
       JNZ   L1        ;結果が0の場合
       OUT   EQ,LEN    ; 'EQ'の表示
       RET
L1     OUT   NE,LEN    ; 'NE'の表示
       RET
DATA1  DC    9         ; 0000 0000 0000 1001
DATA2  DC    8         ; 0000 0000 0000 1000
EQ     DC    'EQ'
NE     DC    'NE'
LEN    DC    2
       END