root/as/cmd/XOR/xor_r_adr__s.casl

;;; XOR r,adr 演算結果の符号が負
MAIN    START
        LD      GR1,A
        XOR     GR1,B
        RET
A       DC      #8000
B       DC      #FFFF
        END