;;; AND r,adr,x
MAIN    START
        LD      GR1,A
        LAD     GR2,1
        AND     GR1,A,GR2
        RET
A       DC      #3000
        DC      #4FFF
        END