if (arch < ARCH710) { errout ("Wrong arch for table indirect"); return; }
void	block_move (){	if (reserved ("from", tokenix)) {		inst1 = evaluate (tokenix+1);		inst0 |= 0x10000000 | inst1;	/*** ??? to match Zeus script */		tokenix += 2;	}	else {		inst0 |= evaluate (tokenix++);	/* count */		tokenix++;			/* skip ',' */		if (reserved ("ptr", tokenix)) {			++ tokenix;			inst0 |= 0x20000000;		}		inst1 = evaluate (tokenix++);	/* address */	}	if (tokens[tokenix].type != ',')		errout ("Expected separator");	if (reserved ("when", tokenix + 1)) {		inst0 |= 0x08000000;		CheckPhase (tokenix + 2);	}	else if (reserved ("with", tokenix + 1)) {		CheckPhase (tokenix + 2);	}	else		errout ("Expected WITH or WHEN");}