761: if (unit & 0x10) { // output command
762: if (!isDLM()) er_return(E_LESS);
763: if (getNumber(0, &data) || isnotEOC()) return;
764: if (writeIO(port, data, unit &= 0x0f) == 0) er_return(E_MACV);
765: dir = "<--";
767: if (isnotEOC()) return;
768: if (readIO(port, &data, unit) == 0) er_return(E_MACV);
769: dir = "-->";
788: {
789: er_return(E_NOSPT);
790: }
805: if (token != tSYM || (rno = searchRegister(tokenSym, 1)) < 0)
806: er_return(E_ILREG);
807:
812: if (!isnotEOC())
813: er_return(setRegister(rno, num));
814: }
831: if (token > tDLM && getNumber(0, &pc)) return;
832: if (invalidPC(pc)) er_return(E_PC);
833:
837: if (getNumber(0, &par)) return;
838: if (trace == 0 && invalidPC(par)) er_return(E_MACV);
839: }
877: if ((atr = getBreakAtr(tokenSym)) < 0)
878: er_return(E_BPATR);
879: } else if (token == tSTR) {
880: if (cmdlen) break;
881: if ((cmdlen = tokenLen) > L_BPCMD) er_return(E_BPCMD);
882: cmd = tokenStr;
888: if (! isnotEOC()) {
889: if ((atr = setBreak(addr, atr, cmd, cmdlen))) er_return(atr);
890: }
905: if (getNumber(0, &addr)) return;
906: if (clearBreak(addr) < 0) er_return(E_BPUDF);
907: } while (isDLM());
930: // extract protocol
931: if (token != tSYM) er_return(E_LESS);
932:
941: }
942: if (par == 0) er_return(E_PROTO);
943:
949: addr = 0;
950: if (par & P_MEMIMG) er_return(E_NOADDR);
951: }
963: {
964: er_return(E_NOSPT);
965: }
981: if (token <= tEOC) {
982: if (kind != 3) er_return(E_LESS);
983: devnm[0] = '\0';
984: } else {
985: if (token != tSYM || tokenLen > L_DEVNM) er_return(E_LESS);
986: // device names are to be given in lower case letters
1086: if (token > tEOC) {
1087: if (token != tSYM) er_return(E_PAR);
1088: for (i = 0; i < L_SYMBOL; i++) {
1092: case ' ': i = L_SYMBOL; break;
1093: default: er_return(E_PAR);
1094: }