391: if (token > tDLM) {
392: if (getNumber(0, &cAddr)) return E_LESS;
393: } else {
407: }
408: if (getNumber(0, (UW*)&cLen)) return E_LESS;
409: if (sizeflg == 0) { // end address: up to "+ size"
450: if (n + unit > SETDT_SZ) return_er(E_LIMIT);
451: if (getNumber(0, &num)) return E_LESS;
452: switch (unit) {
572: cAddr = mAddr;
573: if (token > tDLM && getNumber(0, &cAddr)) return;
574:
714: // transfer / compare target
715: if (getNumber(0, &dst) || isnotEOC()) return;
716:
758: // extract port number
759: if (getNumber(0, &port)) return;
760:
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);
810:
811: } else if (!isnotDLM() && !getNumber(0, &num)) { // set register
812: if (!isnotEOC())
830: pc = getCurPC();
831: if (token > tDLM && getNumber(0, &pc)) return;
832: if (invalidPC(pc)) er_return(E_PC);
836: if (isDLM()) {
837: if (getNumber(0, &par)) return;
838: if (trace == 0 && invalidPC(par)) er_return(E_MACV);
864: // extract breakpoint address
865: if (getNumber(0, &addr)) return;
866:
904: do { // clear individual breakpoint
905: if (getNumber(0, &addr)) return;
906: if (clearBreak(addr) < 0) er_return(E_BPUDF);
946: if (isDLM()) {
947: if (getNumber(0, &addr)) return;
948: } else {
999: if (isnotDLM()) return;
1000: if (getNumber(0, &par[i])) return;
1001: }
1034: if (token <= tDLM) par = 0;
1035: else if (getNumber(0, &par)) return;
1036:
1065: // extract parameters
1066: if (getNumber(0, &addr)) return;
1067: if (isnotDLM() || getNumber(0, &data)) return;
1068: if (isnotDLM() || getNumber(0, &nsec)) return;
1069: if (isnotEOC()) return;