PHA + LDA $D0 + BEQ (address does not match)

Check the input (screen vs keyboard), preserving .A on stack - trivial, not copyyrightable.