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