my ($typeix,$type,$pi,$indexpr);
$indexpr= '0'x(7-$maxthingixln2). 'D'. 'o'x$maxthingixln2;
o_section("bk${ptwag}ix2portnumbitnum",<<"END");
-; Table giving physical ports and pins for points/wagglers for each
+; Table giving physical ports and pins for each $ptwag for each
; kind of board. Index is object number (for reversers boards)
; or object number + 2^$maxthingixln2 (for detectors boards).
; Value is one byte, either 0xff meaning that board type has