Lines Matching full:addr1
4673 my $addr1 = shift;
4679 $sum = (hex($addr1)+hex($addr2)) % (0x10000000 * 16);
4686 print STDERR "AddressAdd $addr1 + $addr2 = ";
4689 my $a1 = substr($addr1,-7);
4690 $addr1 = substr($addr1,0,-7);
4701 $a1 = substr($addr1,-7);
4702 $addr1 = substr($addr1,0,-7);
4713 $sum = hex($addr1) + hex($addr2) + $c;
4727 my $addr1 = shift;
4733 $diff = (hex($addr1)-hex($addr2)) % (0x10000000 * 16);
4738 # if ($main::opt_debug) { print STDERR "AddressSub $addr1 - $addr2 = "; }
4740 my $a1 = hex(substr($addr1,-7));
4741 $addr1 = substr($addr1,0,-7);
4752 $a1 = hex(substr($addr1,-7));
4753 $addr1 = substr($addr1,0,-7);
4764 $a1 = hex($addr1);
4793 # if ($main::opt_debug) { print STDERR "AddressInc $addr1 = "; }
