Lines Matching refs:code

179 @code = ();				# Array of 32 bit words for SIOP 
209 	printf STDERR "Old code : %08x\n", $code[$address];
214     $code[$address] = ($code[$address] & ~$mask) | 
215 	(($code[$address] & $mask) + ($value << ($offset * 8)) & 
218     printf STDERR "New code : %08x\n", $code[$address] if ($debug);
277 	    $code[$address] |= 0x00_01_00_00;
296 	$code[$address] |= 0x00_08_00_00;
306 	$code[$address] |= 0x00_02_00_00;
312 	$code[$address] |= $p | 0x00_02_00_00;
341 	    $code[$address] |= 0x00_04_00_00;
462 	    $code[$address] = 0x18_00_00_00 | (($with_when =~ /WITH/i) ? 
472 	    $code[$address] = (($with_when =~ /WITH/i) ? 0x00_00_00_00 : 
480 	    $code[$address] = 0xc0_00_00_00; 
490 		$code[$address], $code[$address+1], $code[$address +2] if
506 	    $code[$address] = 0x40_00_00_00;
565 		    $code[$address] |= 0x01_00_00_00;
586 		$code[$address] |= 0x38_00_00_00 | 
589 		$code[$address] |= 0x30_00_00_00 |
592 		$code[$address] |= 0x28_00_00_00 |
602 	    $code[$address] |= $operators{$op};
605 	    $code[$address] |= $operators{$op};
606 	    $code[$address + 1] = 0x00_00_00_00;# Reserved
624 	    $code[$address] = 0x40_00_00_00 | 
626 	    $code[$address + 1] = 0x00_00_00_00;
634 	    $code[$address] = 0x42_00_00_00 | 
636 	    $code[$address + 1] = 0x00_00_00_00;
653 	    $code[$address] = 0x48_00_00_00;
654 	    $code[$address + 1] = 0x00_00_00_00;
658 	    $code[$address] = 0x50_00_00_00;
674 	$code[$address] = ($set =~ /SET/i) ?  0x58_00_00_00 : 
678 		$code[$address] |= 0x00_00_00_08;
680 		$code[$address] |= 0x00_00_00_40;
682 		$code[$address] |= 0x00_00_02_00;
684 		$code[$address] |= 0x00_00_04_00;
693 	$code[$address + 1] = 0x00_00_00_00;
699 	    $code[$address] = 0x80_00_00_00;
701 	    $code[$address] = 0x88_00_00_00;
703 	    $code[$address] = 0x98_00_00_00;
712 	    $code[$address]  |= 0x00_80_00_00;
729 	    $code[$address] |= (1 << 19);
742 	$code[$address] = ($instruction =~ /RETURN/i) ? 0x90_00_00_00 :
753 	    $code[$address] |= 0x00_08_00_00;
756 	$code[$address + 1] = 0x00_00_00_00;
759 	$code[$address] = 0x48_00_00_00;
760 	$code[$address + 1] = 0x00_00_00_00;
765 	$code[$address] = 0x80_88_00_00;
766 	$code[$address + 1] = 0x00_00_00_00;
830 	    $add = $code[$address / 4];
832 		$code[$address / 4] = $symbol;
835 		$code[$address / 4] = "$symbol + $add";
856 		$code[$address / 4] += $symbol_values{$label};
873 		$code[$address / 4] = $tmp & 0x00_ff_ff_ff;
889 for ($i = 0; $i < $#code; ) {
893     printf OUTPUT "\t0x%08x,", $code[$i];
894     printf STDERR "Address $i = %x\n", $code[$i] if ($debug);
895     if ($code[$i + 1] =~ /\s*($identifier)(.*)$/) {
899 	printf OUTPUT "0x%08x,",$code[$i+1];
902     if (($code[$i] & 0xff_00_00_00) == 0xc0_00_00_00) {
903 	if ($code[$i + 2] =~ /$identifier/) {
904 	    push (@external_patches, $i+2, $code[$i+2]);
907 	    printf OUTPUT "0x%08x,\n",$code[$i+2];