DEF J_START {ROW;COL}

"(IFELSE((J_PAD_Y_CNT<={COL}),` J_LOOP {ROW} {COL} `,

 ` J_OLDSNAPMODE DISPE `)) ";



DEF J_LOOP {ROW;COL}

"(IFELSE((J_PAD_X_CNT<={ROW}),`J_THEN {ROW} {COL} `,

 `J_ELSE {ROW} {COL} `))";

  

DEF J_THEN {ROW;COL}

"J_ADD_PHY_PORT (J_PAD_X_CNT-1)

 (J_PAD_Y_CNT-1) ;DEF J_PAD_X_CNT (J_PAD_X_CNT+1);

 J_LOOP {ROW} {COL} ;" 

   

DEF J_ELSE {ROW;COL}

"DEF J_PAD_Y_CNT (J_PAD_Y_CNT+1); 

 DEF J_PAD_X_CNT 1; J_START {ROW} {COL} ;";

 

DEF J_ADD_PHY_PORT {X;Y}

"ADD N51 :J5 :F20 :S0 :AD :T1003 :D :L [9,29] (100.0*{X}),(-100.0*{Y}) 

 ('`'+NUM2STR(J_PAD_NR)+'`') (100.0*{X}),(-100.0*{Y});

 DEF J_PAD_NR (J_PAD_NR+1);";