IF
void IF(int);
/* 000-017 */ MA, BL, MP, YA, SD, EL, MN, IF, DPC, S, S, DT, RD, S, DNW,LIB,
flg |= IF;
#define BDLIST (AF|BF|IF|KF|LF|OF|PF|RF|TF|UF|WF|XF|CBF|CDF|CHF|CLF|CPF|CXF|CYF|CZF)
if (first_time && IF) {
if ((fd = open(IF, O_RDONLY)) != -1) {
SCR_RETURN ^ IFTRUE (IF (SCR_DATA_IN)),
SCR_JUMP ^ IFTRUE (IF (SCR_MSG_OUT)),
SCR_JUMP ^ IFTRUE (IF (SCR_MSG_IN)),
SCR_JUMP ^ IFTRUE (IF (SCR_COMMAND)),
SCR_JUMP ^ IFTRUE (IF (SCR_STATUS)),
SCR_JUMPR ^ IFFALSE (IF (SCR_ILG_OUT)),
SCR_JUMPR ^ IFFALSE (IF (SCR_ILG_IN)),
SCR_JUMPR ^ IFFALSE (IF (SCR_DATA_IN)),
SCR_JUMP ^ IFTRUE (IF (SCR_DATA_OUT)),
SCR_JUMP ^ IFTRUE (IF (SCR_DATA_IN)),
SCR_JUMP ^ IFTRUE (IF (SCR_STATUS)),
SCR_JUMP ^ IFTRUE (IF (SCR_COMMAND)),
SCR_JUMP ^ IFTRUE (IF (SCR_MSG_OUT)),
SCR_JUMP ^ IFTRUE (IF (SCR_DATA_OUT)),
SCR_JUMP ^ IFTRUE (IF (SCR_DATA_IN)),
SCR_JUMP ^ IFTRUE (IF (SCR_STATUS)),
SCR_JUMP ^ IFTRUE (IF (SCR_COMMAND)),
SCR_JUMP ^ IFTRUE (IF (SCR_MSG_OUT)),
%token RETURN FOR IF WHILE SQRT
| IF LPAR alloc_macro pop_nesting relational_expression RPAR
| IF LPAR alloc_macro pop_nesting relational_expression RPAR