lim              7432 src/simh/scp.c int32 i, rdx, a, lim;
lim              7446 src/simh/scp.c lim = 1 - r;
lim              7447 src/simh/scp.c for (i = a = 0; a < lim; ) {