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];