VOR#000 EQU *
        MVC A,B     move B to A
        CLC VAR1,VAR2  compare VAR2 != VAR1
        BNE COMP
        EJECT