;;; OR r,adr
MAIN    START
        LD      GR1,A
        OR      GR1,1,A
        RET
A       DC      #3000
        DC      #4FFF
        END