shl Operation Font Conventions
if (PR[qp]) {
check_target_register;

count = GR[r3];
GR[r1] = (count > 63) ? 0: GR[r2] << count;

GR[r1].nat = GR[r2].nat || GR[r3].nat;
}