- * address mode flag addr base
- * #n S_IMMED 0 n NULL
- * label s_type ---- s_addr s_area
- * [REG] S_IND+icode 0 0 NULL
- * [label] S_INDM ---- s_addr s_area
- * offset[REG] S_IND+icode ---- offset ----
+ * address mode flag addr base
+ * #n S_IMMED 0 n NULL
+ * label s_type ---- s_addr s_area
+ * [REG] S_IND+icode 0 0 NULL
+ * [label] S_INDM ---- s_addr s_area
+ * offset[REG] S_IND+icode ---- offset ----
- if ((c = getnb()) == '#') {
- expr(esp, 0);
- esp->e_mode = S_IMMED;
- } else
- if (c == LFIND) {
- if ((indx = admode(R8)) != 0) {
- mode = S_INDB;
- } else
- if ((indx = admode(R16)) != 0) {
- mode = S_INDR;
- } else
- if ((indx = admode(R8X)) != 0) {
- mode = S_R8X;
- aerr();
- } else
- if ((indx = admode(R16X)) != 0) {
- mode = S_R16X;
- aerr();
- } else {
- expr(esp, 0);
- esp->e_mode = S_INDM;
- }
- if (indx) {
- esp->e_mode = (mode + indx)&0xFF;
- esp->e_base.e_ap = NULL;
- }
- if ((c = getnb()) != RTIND)
- qerr();
- } else {
- unget(c);
- if ((indx = admode(R8)) != 0) {
- mode = S_R8;
- } else
- if ((indx = admode(R16)) != 0) {
- mode = S_R16;
- } else
- if ((indx = admode(R8X)) != 0) {
- mode = S_R8X;
- } else
- if ((indx = admode(R16X)) != 0) {
- mode = S_R16X;
- } else {
- expr(esp, 0);
- esp->e_mode = S_USER;
- }
- if (indx) {
- esp->e_addr = indx&0xFF;
- esp->e_mode = mode;
- esp->e_base.e_ap = NULL;
- }
- if ((c = getnb()) == LFIND) {
+ if ((c = getnb()) == '#') {
+ expr(esp, 0);
+ esp->e_mode = S_IMMED;
+ } else
+ if (c == LFIND) {
+ if ((indx = admode(R8)) != 0) {
+ mode = S_INDB;
+ } else
+ if ((indx = admode(R16)) != 0) {
+ mode = S_INDR;
+ } else
+ if ((indx = admode(R8X)) != 0) {
+ mode = S_R8X;
+ aerr();
+ } else
+ if ((indx = admode(R16X)) != 0) {
+ mode = S_R16X;
+ aerr();
+ } else {
+ expr(esp, 0);
+ esp->e_mode = S_INDM;
+ }
+ if (indx) {
+ esp->e_mode = (mode + indx)&0xFF;
+ esp->e_base.e_ap = NULL;
+ }
+ if ((c = getnb()) != RTIND)
+ qerr();
+ } else {
+ unget(c);
+ if ((indx = admode(R8)) != 0) {
+ mode = S_R8;
+ } else
+ if ((indx = admode(R16)) != 0) {
+ mode = S_R16;
+ } else
+ if ((indx = admode(R8X)) != 0) {
+ mode = S_R8X;
+ } else
+ if ((indx = admode(R16X)) != 0) {
+ mode = S_R16X;
+ } else {
+ expr(esp, 0);
+ esp->e_mode = S_USER;
+ }
+ if (indx) {
+ esp->e_addr = indx&0xFF;
+ esp->e_mode = mode;
+ esp->e_base.e_ap = NULL;
+ }
+ if ((c = getnb()) == LFIND) {
- while (*ptr && *str) {
- if (ccase[(unsigned char)(*ptr)] != ccase[(unsigned char)(*str)])
- break;
- ptr++;
- str++;
- }
- if (ccase[(unsigned char)(*ptr)] == ccase[(unsigned char)(*str)]) {
- ip = ptr;
- return(1);
- }
+ while (*ptr && *str) {
+ if (ccase[(unsigned char)(*ptr)] != ccase[(unsigned char)(*str)])
+ break;
+ ptr++;
+ str++;
+ }
+ if (ccase[(unsigned char)(*ptr)] == ccase[(unsigned char)(*str)]) {
+ ip = ptr;
+ return(1);
+ }