
  PROCEDURE [INLINE] nlp$cl_get_layer_connection (layer: nlt$cl_layer_name;
        cl_connection: ^nlt$cl_connection;
    VAR layer_active: boolean;
    VAR connection: ^cell);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
*copy nlh$cl_get_layer_connection

{   VAR
{     connections: ^nlt$cl_layer_connections,
{     layer_connection: ^array [1 .. * ] of cell;
{
{   connections := cl_connection^.layer_connections;
{   RESET connections;
{   NEXT layer_connection: [1 .. nlv$cl_connection_layer_templat [cl_connection^.application_layer].
{         connection [layer].description_offset] IN connections;
{   NEXT layer_connection: [1 .. nlv$cl_connection_layer_templat [cl_connection^.application_layer].
{         connection [layer].description_size] IN connections;
{   connection := layer_connection;
{
{   The #ADDRESS expression, which follows, is an optimization of the preceding commented statements. }

    connection := #ADDRESS (#RING (#LOC (cl_connection^.layer_connections^)), #SEGMENT (#LOC (cl_connection^.
          layer_connections^)), (#OFFSET (#LOC (cl_connection^.layer_connections^)) +
          nlv$cl_connection_layer_templat [cl_connection^.application_layer].connection [layer].
          description_offset));

    layer_active := (layer IN cl_connection^.layers_active);

  PROCEND nlp$cl_get_layer_connection;

*copyc nlt$cl_connection
*copyc nlv$cl_connection_layer_templat
?? POP ??

