316: {
317: if (token == tDLM) {getToken(0); return 1;}
318: return 0;
338: // process leading + and -
339: if ((op = token) == tOPADD || op == tOPSUB) getToken(defbase);
340:
362: // & operation
363: while (getToken(defbase) == tOPIND) {
364: if (readMem(*val, &v, 4, 4) != 4) return_er(E_MACV);
370: op = token;
371: getToken(defbase);
372: }
403: sizeflg = 0;
404: if (getToken(0) == tSIZ) {
405: getToken(0);
406: sizeflg++;
447: n += k;
448: getToken(0);
449: } else { // numeric parameter
589: if (getLine("-> ") < 0) break; // input set data
590: if (getToken(0) == tEOD) break; // end of data
591: if (token <= tEOC) cAddr += unit; // skip
807:
808: if (getToken(0) <= tEOC) { // display register
809: dispRegister(rno);
872: symExt[0] = '+'; symExt[1] = ':';
873: getToken(0);
874: symExt[0] = symExt[1] = '\0';
883: }
884: getToken(0);
885: }
944: // extract start address
945: getToken(0);
946: if (isDLM()) {
992: devnm[i] = '\0';
993: getToken(0);
994: }
1095: }
1096: getToken(0);
1097: if (isnotEOC()) return;
1234: // skip the remainder of the previous command
1235: while (token > tEOC) getToken(0);
1236:
1245: if (*lptr == '*') {
1246: getToken(0);
1247: continue;
1249: // extract command
1250: if (getToken(0) <= tEOC) continue; // skip empty line
1251:
1263: // read-ahead of parameters
1264: getToken(0);
1265: