// File: /workspace/github_c_makefile_star2_O1/blakemcbride[P]LISP9/ls9.c
// Function: subr1
int subr1(cell x) {
	if (x == P_abs)		return OP_ABS;
	if (x == P_alphac)	return OP_ALPHAC;
	if (x == P_atom)	return OP_ATOM;
	if (x == P_caar)	return OP_CAAR;
	if (x == P_cadr)	return OP_CADR;
	if (x == P_car)		return OP_CAR;
	if (x == P_catchstar)	return OP_CATCHSTAR;
	if (x == P_cdar)	return OP_CDAR;
	if (x == P_cddr)	return OP_CDDR;
	if (x == P_cdr)		return OP_CDR;
	if (x == P_char)	return OP_CHAR;
	if (x == P_charp)	return OP_CHARP;
	if (x == P_charval)	return OP_CHARVAL;
	if (x == P_close_port)	return OP_CLOSE_PORT;
	if (x == P_constp)	return OP_CONSTP;
	if (x == P_ctagp)	return OP_CTAGP;
	if (x == P_delete)	return OP_DELETE;
	if (x == P_dump_image)	return OP_DUMP_IMAGE;
	if (x == P_downcase)	return OP_DOWNCASE;
	if (x == P_dump_image)	return OP_DUMP_IMAGE;
	if (x == P_eofp)	return OP_EOFP;
	if (x == P_eval)	return OP_EVAL;
	if (x == P_existsp)	return OP_EXISTSP;
	if (x == P_fixp)	return OP_FIXP;
	if (x == P_flush)	return OP_FLUSH;
	if (x == P_format)	return OP_FORMAT;
	if (x == P_funp)	return OP_FUNP;
	if (x == P_inportp)	return OP_INPORTP;
	if (x == P_liststr)	return OP_LISTSTR;
	if (x == P_listvec)	return OP_LISTVEC;
	if (x == P_load)	return OP_LOAD;
	if (x == P_lowerc)	return OP_LOWERC;
	if (x == P_mx)		return OP_MX;
	if (x == P_mx1)		return OP_MX1;
	if (x == P_not)		return OP_NULL;
	if (x == P_null)	return OP_NULL;
	if (x == P_numeric)	return OP_NUMERIC;
	if (x == P_open_infile) return OP_OPEN_INFILE;
	if (x == P_outportp)	return OP_OUTPORTP;
	if (x == P_pair)	return OP_PAIR;
	if (x == P_set_inport)	return OP_SET_INPORT;
	if (x == P_set_outport) return OP_SET_OUTPORT;
	if (x == P_ssize)	return OP_SSIZE;
	if (x == P_stringp)	return OP_STRINGP;
	if (x == P_strlist)	return OP_STRLIST;
	if (x == P_symbol)	return OP_SYMBOL;
	if (x == P_symbolp)	return OP_SYMBOLP;
	if (x == P_symname)	return OP_SYMNAME;
	if (x == P_syscmd)	return OP_SYSCMD;
	if (x == P_untag)	return OP_UNTAG;
	if (x == P_upcase)	return OP_UPCASE;
	if (x == P_upperc)	return OP_UPPERC;
	if (x == P_veclist)	return OP_VECLIST;
	if (x == P_vectorp)	return OP_VECTORP;
	if (x == P_vsize)	return OP_VSIZE;
	if (x == P_whitec)	return OP_WHITEC;
	return -1;
}

// Assembly:
movl $0x1e, %eax
cmpl %edi, 0x11bf2(%rip)     # 0x19778
je 0x7efa
movl $0x1f, %eax
cmpl %edi, 0x11be5(%rip)     # 0x1977c
je 0x7efa
movl $0x20, %eax
cmpl %edi, 0x11bd8(%rip)     # 0x19780
je 0x7efa
movl $0x22, %eax
cmpl %edi, 0x11bcb(%rip)     # 0x19784
je 0x7efa
movl $0x23, %eax
cmpl %edi, 0x11bbe(%rip)     # 0x19788
je 0x7efa
movl $0x24, %eax
cmpl %edi, 0x11bb1(%rip)     # 0x1978c
je 0x7efa
movl $0x11, %eax
cmpl %edi, 0x11ba4(%rip)     # 0x19790
je 0x7efa
movl $0x25, %eax
cmpl %edi, 0x11b97(%rip)     # 0x19794
je 0x7efa
movl $0x26, %eax
cmpl %edi, 0x11b8a(%rip)     # 0x19798
je 0x7efa
movl $0x27, %eax
cmpl %edi, 0x11b7d(%rip)     # 0x1979c
je 0x7efa
movl $0x2b, %eax
cmpl %edi, 0x11b70(%rip)     # 0x197a0
je 0x7efa
movl $0x2c, %eax
cmpl %edi, 0x11b63(%rip)     # 0x197a4
je 0x7efa
movl $0x2d, %eax
cmpl %edi, 0x11b56(%rip)     # 0x197a8
je 0x7efa
movl $0x2f, %eax
cmpl %edi, 0x11b49(%rip)     # 0x197ac
je 0x7efa
movl $0x34, %eax
cmpl %edi, 0x11b3c(%rip)     # 0x197b0
je 0x7efa
movl $0x35, %eax
cmpl %edi, 0x11b2f(%rip)     # 0x197b4
je 0x7efa
movl $0x36, %eax
cmpl %edi, 0x11b22(%rip)     # 0x197b8
je 0x7efa
movl $0x39, %eax
cmpl %edi, 0x11b15(%rip)     # 0x197bc
je 0x7efa
movl $0x38, %eax
cmpl %edi, 0x11b08(%rip)     # 0x197c0
je 0x7efa
movl $0x3a, %eax
cmpl %edi, 0x11afb(%rip)     # 0x197c4
je 0x7efa
movl $0x40, %eax
cmpl %edi, 0x11aee(%rip)     # 0x197c8
je 0x7efa
movl $0x41, %eax
cmpl %edi, 0x11ae1(%rip)     # 0x197cc
je 0x7efa
movl $0x42, %eax
cmpl %edi, 0x11ad4(%rip)     # 0x197d0
je 0x7efa
movl $0x43, %eax
cmpl %edi, 0x11ac7(%rip)     # 0x197d4
je 0x7efa
movl $0x44, %eax
cmpl %edi, 0x11aba(%rip)     # 0x197d8
je 0x7efa
movl $0x45, %eax
cmpl %edi, 0x11aad(%rip)     # 0x197dc
je 0x7efa
movl $0x4b, %eax
cmpl %edi, 0x11aa0(%rip)     # 0x197e0
je 0x7efa
movl $0x4d, %eax
cmpl %edi, 0x11a93(%rip)     # 0x197e4
je 0x7efa
movl $0x4e, %eax
cmpl %edi, 0x11a86(%rip)     # 0x197e8
je 0x7efa
movl $0x4f, %eax
cmpl %edi, 0x118c1(%rip)     # 0x19634
je 0x7efa
movl $0x50, %eax
cmpl %edi, 0x11a68(%rip)     # 0x197ec
je 0x7efa
movl $0x57, %eax
cmpl %edi, 0x11a5b(%rip)     # 0x197f0
je 0x7efa
movl $0x58, %eax
cmpl %edi, 0x11a4e(%rip)     # 0x197f4
je 0x7efa
movl $0x5c, %eax
cmpl %edi, 0x11a41(%rip)     # 0x197f8
je 0x7efa
cmpl %edi, 0x11a39(%rip)     # 0x197fc
je 0x7efa
movl $0x5d, %eax
cmpl %edi, 0x11a2c(%rip)     # 0x19800
je 0x7efa
movl $0x60, %eax
cmpl %edi, 0x11a1f(%rip)     # 0x19804
je 0x7efa
movl $0x63, %eax
cmpl %edi, 0x11a12(%rip)     # 0x19808
je 0x7efa
movl $0x64, %eax
cmpl %edi, 0x11a05(%rip)     # 0x1980c
je 0x7efa
movl $0x73, %eax
cmpl %edi, 0x119f8(%rip)     # 0x19810
je 0x7efa
movl $0x74, %eax
cmpl %edi, 0x119eb(%rip)     # 0x19814
je 0x7efa
movl $0x81, %eax
cmpl %edi, 0x119de(%rip)     # 0x19818
je 0x7efa
movl $0x82, %eax
cmpl %edi, 0x119d1(%rip)     # 0x1981c
je 0x7efa
movl $0x83, %eax
cmpl %edi, 0x119c4(%rip)     # 0x19820
je 0x7efa
movl $0x87, %eax
cmpl %edi, 0x119b7(%rip)     # 0x19824
je 0x7efa
movl $0x88, %eax
cmpl %edi, 0x119aa(%rip)     # 0x19828
je 0x7efa
movl $0x89, %eax
cmpl %edi, 0x119a1(%rip)     # 0x1982c
je 0x7efa
movl $0x8b, %eax
cmpl %edi, 0x11998(%rip)     # 0x19830
je 0x7efa
movl $0x8d, %eax
cmpl %edi, 0x1198f(%rip)     # 0x19834
je 0x7efa
movl $0x8e, %eax
cmpl %edi, 0x11986(%rip)     # 0x19838
je 0x7efa
movl $0x8f, %eax
cmpl %edi, 0x1197d(%rip)     # 0x1983c
je 0x7efa
movl $0x91, %eax
cmpl %edi, 0x11974(%rip)     # 0x19840
je 0x7efa
movl $0x92, %eax
cmpl %edi, 0x1196b(%rip)     # 0x19844
je 0x7efa
movl $0x96, %eax
cmpl %edi, 0x11962(%rip)     # 0x19848
je 0x7efa
xorl %eax, %eax
cmpl %edi, 0x1195c(%rip)     # 0x1984c
setne %al
negl %eax
orl $0x97, %eax
retq