
 CONST

    nlc$sl_call_type = 0,
    nlc$sl_call_ok_type = 1,
    nlc$sl_clear_type = 2,
    nlc$sl_data_type = 3,
    nlc$sl_synch_request_type = 4,
    nlc$sl_mark_type = 5,
    nlc$sl_interrupt_type = 6;

  TYPE

    nlt$sl_pdu_types = 0 .. 0f(16),

    nlt$sl_pdu_header = packed record
      version_no: 0 .. 0f(16),
      case pdu_type: nlt$sl_pdu_types of
      = nlc$sl_data_type =
        data_six_bit_fill: 0 .. 03f(16),
        qualified_data: boolean,
        more_data: boolean,
      = nlc$sl_synch_request_type =
        synch_six_bit_fill: 0 .. 03f(16),
        discard_option: nlt$sl_discard_options,
      = nlc$sl_call_type, nlc$sl_call_ok_type, nlc$sl_clear_type,
        nlc$sl_mark_type, nlc$sl_interrupt_type =
        one_byte_fill: 0 .. 0ff(16),
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc nlt$sl_discard_options
?? POP ??

