Lines Matching refs:newByte

612 	    my ($oldByte, $newByte);
617 		$newByte = 0;
618 		if ($oldByte & 0x01) { $newByte |= 0x80; }
619 		if ($oldByte & 0x02) { $newByte |= 0x40; }
620 		if ($oldByte & 0x04) { $newByte |= 0x20; }
621 		if ($oldByte & 0x08) { $newByte |= 0x10; }
622 		if ($oldByte & 0x10) { $newByte |= 0x08; }
623 		if ($oldByte & 0x20) { $newByte |= 0x04; }
624 		if ($oldByte & 0x40) { $newByte |= 0x02; }
625 		if ($oldByte & 0x80) { $newByte |= 0x01; }
626                 substr($self->{' stream'}, $j, 1) = chr($newByte);