- pc.sp += 5; /* else fall through */
- continue;
- case O_FOR1D:
- pc.cp++;
- tcp = popaddr(); /* tcp = ptr to index var */
- if (*tcp > pop4()) { /* still going down */
- tl = *tcp - 1; /* inc index var */
- tl1 = *pc.sp++; /* index lower bound */
- tl2 = *pc.sp++; /* index upper bound */
- if (_runtst)
- RANG4(tl, tl1, tl2);
- *tcp = tl; /* update index var */
- pc.cp += *pc.sp;/* return to top of loop */
- continue;
- }