nascom1.c: ioport_array (nw)