drivers/scsi/script_asm.pl

403 	$rest = $2;
404 	foreach $rest (split (/\s*,\s*/, $rest)) {
405 	    if ($rest =~ /^($identifier)\s*=\s*($constant)\s*$/) {
456 	$rest = $1;
457 	if ($rest =~ /^FROM\s+($value)\s*,\s*(WITH|WHEN)\s+($phase)\s*$/i) {
466 	} elsif ($rest =~ /^($value)\s*,\s*(PTR\s+|)($value)\s*,\s*(WITH|WHEN)\s+($phase)\s*$/i) {
478 	} elsif ($rest =~ /^MEMORY\s+(.*)/i) {
479 	    $rest = $1;
481 	    if ($rest =~ /^($value)\s*,\s*($value)\s*,\s*($value)\s*$/) {
504 	    $rest = $3;
552 	    if ($rest =~ /^($register)\s*(.*)$/i) {
554 		$rest = $2;
558 	expected <register>, got $rest
562 	    if ($rest =~ /^WITH\s+CARRY\s*(.*)/i) {
563 		$rest = $1;
574 	    if ($rest !~ /^\s*$/) {
577 	Expected end of line, got $rest
619 	$rest = $2;
620 	if ($rest =~ /^(ATN|)\s*($value)\s*,\s*($identifier)\s*$/i) {
630 	} elsif ($rest =~ /^(ATN|)\s*FROM\s+($value)\s*,\s*($identifier)\s*$/i) {
650 	    $rest = $1;
651 print STDERR "Parsing WAIT $rest\n" if ($debug);
652 	if ($rest =~ /^DISCONNECT\s*$/i) {
656 	} elsif ($rest =~ /^(RESELECT|SELECT)\s+($identifier)\s*$/i) {
697 	$rest = $2;
705 print STDERR "parsing JUMP, rest = $rest\n" if ($debug);
708 	if ($rest =~ /^(REL\s*\(\s*$identifier\s*\))\s*(.*)/i) {
710 	    $rest = $2;
711 print STDERR "parsing JUMP REL, addr = $addr, rest = $rest\n" if ($debug);
715 	} elsif ($rest =~ /^($value)\s*(.*)/) {
717 	    $rest = $2;
726 	if ($rest =~ /^,\s*(.*)/) {
728 	} elsif ($rest =~ /^\s*$/) {