Lines Matching +full:reg +full:- +full:names

1 #!/usr/bin/perl -s
2 # SPDX-License-Identifier: GPL-2.0-or-later
12 #      +1 (303) 786-7975 
14 #   Support for 53c710 (via -ncr7x0_family switch) added by Richard
15 #   Hirst <richard@sleepie.demon.co.uk> - 15th March 1997
38 # XXX - set these with command line options
43 #$prefix;		# (set by perl -s)
58 # XXX - replace references to the *_810 constants with general constants
62 # XXX - NCR53c710 only implements 
141 $identifier = '[A-Za-z_][A-Za-z_0-9]*';		
142 $decnum = '-?\\d+';
143 $hexnum = '0[xX][0-9A-Fa-f]+';		
146 # yucky - since we can't control grouping of # $constant, we need to 
149 $value = "$identifier|$identifier\\s*[+\-]\\s*$decnum|".
150     "$identifier\\s*[+-]\s*$hexnum|$constant";
158 # yucky - since %operators includes meta-characters which must
181 @entry = ();				# Array of entry point names
183 @label = ();				# Array of label names
185 @absolute = ();				# Array of absolute names
187 @relative = ();				# Array of relative names
189 @external = ();				# Array of external names
514 		/^($register)\s+(-|$operator)\s+($value)\s*$/i) {
518 		if ($op ne '-') {
521 		    die "- is not implemented yet.\n"
583 	    # Note that Move data8 to reg is encoded as a read-modify-write
860 # - The address of the reference should be in the second and last word
862 # - Relative jumps, etc. are relative to the DSP of the _next_ instruction
867 		$tmp = $symbol_values{$label} - 
872     relative/\n" if (($tmp >= 0x80_00_00) || ($tmp < -0x80_00_00));
886 print OUTPUT "/* DO NOT EDIT - Generated automatically by ".$_." */\n";