1 5cedca1b 2004-05-15 devnull # include "t.h"
 2 5cedca1b 2004-05-15 devnull /* tr.c: number register allocation */
 3 5cedca1b 2004-05-15 devnull char	*nregs[] = {
 4 5cedca1b 2004-05-15 devnull 	/* this array must have at least 3*qcol entries
 5 5cedca1b 2004-05-15 devnull 	   or illegal register names will result */
 6 5cedca1b 2004-05-15 devnull 	"40", "41", "42", "43", "44", "45", "46", "47", "48", "49",
 7 5cedca1b 2004-05-15 devnull 	"50", "51", "52", "53", "54", "55", "56", "57", "58", "59",
 8 5cedca1b 2004-05-15 devnull 	"60", "61", "62", "63", "64", "65", "66", "67", "68", "69",
 9 5cedca1b 2004-05-15 devnull 	"70", "71", "72", "73", "74", "75", "76", "77", "78", "79",
10 5cedca1b 2004-05-15 devnull 	"80", "81", "82", "83", "84", "85", "86", "87", "88", "89",
11 5cedca1b 2004-05-15 devnull 	"90", "91", "92", "93", "94", "95", "96", "97", "4q", "4r",
12 5cedca1b 2004-05-15 devnull 	"4s", "4t", "4u", "4v", "4w", "4x", "4y", "4z", "4;", "4.",
13 5cedca1b 2004-05-15 devnull 	"4a", "4b", "4c", "4d", "4e", "4f", "4g", "4h", "4i", "4j",
14 5cedca1b 2004-05-15 devnull 	"4k", "4l", "4m", "4n", "4o", "4p", "5a", "5b", "5c", "5d",
15 5cedca1b 2004-05-15 devnull 	"5e", "5f", "5g", "5h", "5i", "5j", "5k", "5l", "5m", "5n",
16 5cedca1b 2004-05-15 devnull 	"5o", "5p", "5q", "5r", "5s", "5t", "5u", "5v", "5w", "5x",
17 5cedca1b 2004-05-15 devnull 	0};
18 5cedca1b 2004-05-15 devnull 
19 5cedca1b 2004-05-15 devnull 
20 5cedca1b 2004-05-15 devnull char	*
21 5cedca1b 2004-05-15 devnull reg(int col, int place)
22 5cedca1b 2004-05-15 devnull {
23 5cedca1b 2004-05-15 devnull 	if (sizeof(nregs) < 2 * 3 * qcol)
24 5cedca1b 2004-05-15 devnull 		error("Too many columns for registers");
25 5cedca1b 2004-05-15 devnull 	return (nregs[qcol*place+col]);
26 5cedca1b 2004-05-15 devnull }
27 5cedca1b 2004-05-15 devnull 
28 5cedca1b 2004-05-15 devnull