user: What is the c source code of the assembly code below:

```asm
<ax25_dump>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x68,%rsp
  mov    %edx,(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x58(%rsp)
  xor    %eax,%eax
  movl   $0x0,0x10(%rsp)
  movl   $0x0,0x14(%rsp)
  cmp    $0x7,%esi
  jle    L356
  mov    %rdi,%r14
  mov    %esi,%ebx
  testb  $0x1,0x1(%rdi)
  jne    L556
  cmp    $0xe,%esi
  jle    L356
  testb  $0x40,0xd(%rdi)
  je     L538
  lea    D109(%rip),%rsi
  mov    $0x6,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  movl   $0x0,0x4(%rsp)
L286:
  testb  $0x20,0xd(%r14)
  lea    D168(%rip),%rdx
  lea    D451(%rip),%rax
  cmovne %rdx,%rax
  lea    0x21(%rsp),%r13
  lea    0x7(%r14),%rsi
  mov    %r13,%rdi
  mov    %rax,0x8(%rsp)
  call   <pax25@plt>
  lea    D98(%rip),%rsi
  mov    $0x8,%edi
  mov    %rax,%rdx
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    %r14,%rsi
  mov    %r13,%rdi
  call   <pax25@plt>
  lea    D100(%rip),%rsi
  mov    $0x8,%edi
  mov    %rax,%rdx
  xor    %eax,%eax
  call   <lprintf@plt>
  cmpb   $0x0,0x6(%r14)
  js     L519
  movzbl 0xd(%r14),%eax
  lea    -0xe(%rbx),%r12d
  add    $0xe,%r14
  mov    %eax,%ebp
  shr    $0x6,%ebp
  and    $0x2,%ebp
  test   $0x1,%al
  je     L482
L585:
  mov    0x4(%rsp),%r9d
  lea    0x1c(%rsp),%rsi
  mov    %r14,%rdi
  mov    %r12d,%r13d
  lea    0x10(%rsp),%rcx
  lea    0x14(%rsp),%rdx
  lea    0x18(%rsp),%r8
  call   <ftype@plt>
  mov    0x1c(%rsp),%edi
  movslq %eax,%rdx
  sub    %eax,%r13d
  lea    (%r14,%rdx,1),%rbx
  call   <decode_type@plt>
  lea    D46(%rip),%rsi
  mov    $0x7,%edi
  mov    %rax,%rdx
  xor    %eax,%eax
  call   <lprintf@plt>
  cmp    $0x1,%ebp
  je     L236
  cmp    $0x2,%ebp
  je     L172
L109:
  mov    0x1c(%rsp),%eax
  test   %eax,%eax
  je     L180
L526:
  and    $0x3,%eax
  cmp    $0x3,%eax
  jne    L366
L23:
  lea    D349(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    0x1c(%rsp),%eax
  test   %eax,%eax
  je     L131
  cmp    $0x3,%eax
  je     L131
  cmp    $0x87,%eax
  je     L79
  cmp    $0x2f,%eax
  sete   %dl
  cmp    $0x63,%eax
  sete   %al
  or     %al,%dl
  je     L44
  cmp    $0x1,%r13d
  jle    L44
  movzwl (%rbx),%edx
  mov    0x8(%rsp),%rcx
  mov    $0x7,%edi
  xor    %eax,%eax
  lea    D392(%rip),%rsi
  rol    $0x8,%dx
  movzwl %dx,%edx
  call   <lprintf@plt>
  jmp    L314
  nopl   0x0(%rax,%rax,1)
L356:
  lea    D182(%rip),%rsi
  mov    $0x1,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
L314:
  mov    0x58(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L78
  add    $0x68,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  xchg   %ax,%ax
L556:
  lea    D109(%rip),%rsi
  mov    $0x6,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  movzbl 0x2(%r14),%edx
  xor    %ecx,%ecx
  lea    0x28(%rsp),%rbp
  mov    %cx,0x27(%rsp)
  mov    %edx,%eax
  shl    $0x4,%edx
  shr    $0x2,%al
  and    $0x30,%edx
  add    $0x20,%eax
  mov    %al,0x21(%rsp)
  movzbl 0x3(%r14),%eax
  mov    %eax,%ecx
  shl    $0x2,%eax
  shr    $0x4,%cl
  and    $0x3c,%eax
  lea    0x20(%rdx,%rcx,1),%edx
  mov    %dl,0x22(%rsp)
  movzbl 0x4(%r14),%edx
  mov    %edx,%ecx
  and    $0x3f,%edx
  shr    $0x6,%cl
  add    $0x20,%edx
  lea    0x20(%rax,%rcx,1),%eax
  mov    %dl,0x24(%rsp)
  mov    %al,0x23(%rsp)
  movzbl 0x5(%r14),%eax
  mov    %eax,%edx
  shl    $0x4,%eax
  shr    $0x2,%dl
  and    $0x30,%eax
  add    $0x20,%edx
  mov    %dl,0x25(%rsp)
  movzbl 0x6(%r14),%edx
  mov    %edx,%ecx
  shr    $0x4,%cl
  lea    0x20(%rax,%rcx,1),%eax
  mov    %al,0x26(%rsp)
  and    $0xf,%edx
  jne    L90
L457:
  lea    0x21(%rsp),%rdi
  lea    D52(%rip),%rsi
  call   <strtok@plt>
  movzbl (%r14),%edx
  mov    %rbp,%r8
  xor    %ebp,%ebp
  movzbl 0x1(%r14),%esi
  mov    %eax,%ecx
  mov    $0x8,%edi
  xor    %eax,%eax
  shl    $0x6,%edx
  lea    -0x7(%rbx),%r12d
  shr    $0x2,%sil
  movzbl %sil,%esi
  or     %esi,%edx
  lea    D26(%rip),%rsi
  call   <lprintf@plt>
  testb  $0x2,0x1(%r14)
  lea    D168(%rip),%rax
  movl   $0x0,0x4(%rsp)
  sete   %bpl
  mov    %rax,0x8(%rsp)
  add    $0x7,%r14
  add    $0x1,%ebp
  jmp    L585
  nopw   0x0(%rax,%rax,1)
L538:
  lea    D354(%rip),%rsi
  mov    $0x6,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  movl   $0x1,0x4(%rsp)
  jmp    L286
L172:
  lea    D90(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    0x18(%rsp),%eax
  test   %eax,%eax
  je     L109
  lea    D253(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  jmp    L109
  nopw   0x0(%rax,%rax,1)
L366:
  mov    0x10(%rsp),%edx
  lea    D38(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  jmp    L23
  nopl   0x0(%rax)
L90:
  movzbl %dl,%edx
  lea    D282(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <sprintf@plt>
  jmp    L457
  nopl   0x0(%rax)
L131:
  test   %r13d,%r13d
  jle    L314
  movzbl (%rbx),%r15d
  sub    $0x2,%r12d
  lea    0x1(%rbx),%r14
  lea    -0x1(%r13),%ebp
  cmp    $0x8,%r15d
  je     L281
L406:
  lea    0x30(%rsp),%r13
  mov    0x8(%rsp),%rdx
  xor    %eax,%eax
  mov    %r12d,%ecx
  lea    D13(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  cmp    $0xf0,%r15d
  jg     L388
  cmp    $0xc2,%r15d
  jle    L411
  lea    -0xc3(%r15),%eax
  cmp    $0x2d,%eax
  ja     L388
  lea    D65(%rip),%rdx
  movslq (%rdx,%rax,4),%rax
  add    %rdx,%rax
  notrack jmp *%rax
  nopl   0x0(%rax)
L79:
  cmp    $0x2,%r13d
  jg     L16
L44:
  mov    0x8(%rsp),%rdx
  lea    D2(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  jmp    L314
  nopw   0x0(%rax,%rax,1)
L519:
  movsbl 0xd(%r14),%ebp
  lea    -0xe(%rbx),%r12d
  add    $0xe,%r14
  mov    %ebp,%eax
  not    %ebp
  shr    $0x1f,%ebp
  test   $0x1,%al
  jne    L585
L482:
  mov    %r14,%r15
  lea    D224(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  lea    D267(%rip),%r14
  lea    -0xe(%rbx,%r15,1),%ebx
  xchg   %ax,%ax
L134:
  cmpb   $0x0,0x6(%r15)
  lea    D402(%rip),%rax
  mov    %r15,%rsi
  mov    %r13,%rdi
  lea    D168(%rip),%r12
  cmovs  %rax,%r12
  add    $0x7,%r15
  call   <pax25@plt>
  mov    %r14,%rsi
  mov    $0x8,%edi
  mov    %rax,%rdx
  mov    %r12,%rcx
  xor    %eax,%eax
  mov    %ebx,%r12d
  call   <lprintf@plt>
  movzbl -0x1(%r15),%eax
  sub    %r15d,%r12d
  test   $0x1,%al
  je     L134
  test   %r12d,%r12d
  je     L314
  mov    %r15,%r14
  jmp    L585
  nopl   0x0(%rax,%rax,1)
L236:
  lea    D67(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    0x18(%rsp),%edx
  test   %edx,%edx
  je     L109
  lea    D147(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  jmp    L109
  nopw   0x0(%rax,%rax,1)
L180:
  mov    0x14(%rsp),%edx
  lea    D294(%rip),%rsi
  mov    $0x7,%edi
  call   <lprintf@plt>
  mov    0x1c(%rsp),%eax
  jmp    L526
  xchg   %ax,%ax
L411:
  cmp    $0x1,%r15d
  jne    L413
  mov    %r13,%rdx
  lea    D204(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    (%rsp),%edx
  mov    %ebp,%esi
  mov    %r14,%rdi
  call   <rose_dump@plt>
  jmp    L314
  xchg   %ax,%ax
L413:
  cmp    $0x8,%r15d
  jne    L388
L39:
  mov    %r13,%rdx
  lea    D2(%rip),%rsi
L296:
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    (%rsp),%edx
  mov    %ebp,%esi
  mov    %r14,%rdi
  call   <data_dump@plt>
  jmp    L314
  xchg   %ax,%ax
L388:
  mov    %r15d,%edx
  mov    %r13,%rcx
  lea    D15(%rip),%rsi
  xor    %eax,%eax
  mov    $0x7,%edi
  call   <lprintf@plt>
  mov    (%rsp),%edx
  mov    %ebp,%esi
  mov    %r14,%rdi
  call   <data_dump@plt>
  jmp    L314
  nopl   0x0(%rax,%rax,1)
L16:
  movzbl (%rbx),%edx
  lea    D33(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  movzbl 0x1(%rbx),%eax
  mov    $0x7,%edi
  lea    D359(%rip),%rsi
  mov    %eax,%ecx
  shr    $0x5,%al
  shr    %cl
  movzbl %al,%edx
  xor    %eax,%eax
  and    $0x7,%ecx
  call   <lprintf@plt>
  movzbl 0x2(%rbx),%eax
  test   $0x1,%al
  jne    L20
L326:
  test   $0x2,%al
  jne    L499
L318:
  test   $0x4,%al
  jne    L104
L229:
  test   $0x8,%al
  je     L44
  lea    D265(%rip),%rsi
  mov    $0x1,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  jmp    L44
  mov    %r13,%rdx
  lea    D308(%rip),%rsi
  jmp    L296
  mov    %r13,%rdx
  lea    D416(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    (%rsp),%edx
  mov    %ebp,%esi
  mov    %r14,%rdi
  call   <flexnet_dump@plt>
  jmp    L314
  mov    %r13,%rdx
  lea    D246(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    %ebp,%esi
  mov    %r14,%rdi
  call   <arp_dump@plt>
  jmp    L314
  mov    %r13,%rdx
  lea    D239(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    (%rsp),%edx
  mov    %ebp,%esi
  mov    %r14,%rdi
  call   <ip_dump@plt>
  jmp    L314
  mov    %r13,%rdx
  lea    D319(%rip),%rsi
  jmp    L296
  mov    %r13,%rdx
  lea    D370(%rip),%rsi
  mov    $0x7,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  mov    (%rsp),%edx
  mov    %ebp,%esi
  mov    %r14,%rdi
  call   <netrom_dump@plt>
  jmp    L314
  nopl   0x0(%rax)
L281:
  movzbl 0x1(%rbx),%eax
  mov    %eax,%ecx
  and    $0x7f,%ecx
  test   %al,%al
  js     L339
  mov    $0x7,%edi
  lea    -0x2(%r13),%ebp
  lea    0x30(%rsp),%r13
  xor    %eax,%eax
  lea    D168(%rip),%rdx
  lea    D85(%rip),%rsi
  call   <lprintf@plt>
  mov    0x8(%rsp),%rdx
  mov    %r12d,%ecx
  mov    %r13,%rdi
  lea    D13(%rip),%rsi
  xor    %eax,%eax
  lea    0x2(%rbx),%r14
  call   <sprintf@plt>
  jmp    L39
  nopw   0x0(%rax,%rax,1)
L339:
  mov    $0x7,%edi
  lea    0x3(%rbx),%r14
  lea    -0x3(%r13),%ebp
  xor    %eax,%eax
  lea    D92(%rip),%rdx
  lea    D85(%rip),%rsi
  call   <lprintf@plt>
  movzbl 0x2(%rbx),%r15d
  jmp    L406
L104:
  lea    D371(%rip),%rsi
  mov    $0x1,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  movzbl 0x2(%rbx),%eax
  jmp    L229
L499:
  lea    D306(%rip),%rsi
  mov    $0x1,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  movzbl 0x2(%rbx),%eax
  jmp    L318
L20:
  lea    D159(%rip),%rsi
  mov    $0x1,%edi
  xor    %eax,%eax
  call   <lprintf@plt>
  movzbl 0x2(%rbx),%eax
  jmp    L326
L78:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: label: D109
data_type: string
name: retrieve_data
arguments: label: D168
data_type: string
name: retrieve_data
arguments: label: D451
data_type: string
name: retrieve_data
arguments: label: D98
data_type: string
name: retrieve_data
arguments: label: D100
data_type: string
name: retrieve_data
arguments: label: D46
data_type: string
name: retrieve_data
arguments: label: D349
data_type: string
name: retrieve_data
arguments: label: D392
data_type: string
name: retrieve_data
arguments: label: D182
data_type: string
name: retrieve_data
arguments: label: D52
data_type: string
name: retrieve_data
arguments: label: D26
data_type: string
name: retrieve_data
arguments: label: D354
data_type: string
name: retrieve_data
arguments: label: D90
data_type: string
name: retrieve_data
arguments: label: D253
data_type: string
name: retrieve_data
arguments: label: D38
data_type: string
name: retrieve_data
arguments: label: D282
data_type: string
name: retrieve_data
arguments: label: D13
data_type: string
name: retrieve_data
arguments: label: D2
data_type: string
name: retrieve_data
arguments: label: D224
data_type: string
name: retrieve_data
arguments: label: D267
data_type: string
name: retrieve_data
arguments: label: D402
data_type: string
name: retrieve_data
arguments: label: D67
data_type: string
name: retrieve_data
arguments: label: D147
data_type: string
name: retrieve_data
arguments: label: D294
data_type: string
name: retrieve_data
arguments: label: D204
data_type: string
name: retrieve_data
arguments: label: D15
data_type: string
name: retrieve_data
arguments: label: D33
data_type: string
name: retrieve_data
arguments: label: D359
data_type: string
name: retrieve_data
arguments: label: D265
data_type: string
name: retrieve_data
arguments: label: D308
data_type: string
name: retrieve_data
arguments: label: D416
data_type: string
name: retrieve_data
arguments: label: D246
data_type: string
name: retrieve_data
arguments: label: D239
data_type: string
name: retrieve_data
arguments: label: D319
data_type: string
name: retrieve_data
arguments: label: D370
data_type: string
name: retrieve_data
arguments: label: D85
data_type: string
name: retrieve_data
arguments: label: D92
data_type: string
name: retrieve_data
arguments: label: D371
data_type: string
name: retrieve_data
arguments: label: D306
data_type: string
name: retrieve_data
arguments: label: D159
data_type: string

tool: D109: AX25: 

tool: 

tool: D451:  [DAMA]

tool: D98: %s

tool: D100: ->%s

tool: D46:  <%s

tool: D349: >

tool: D392:  [%d]%s


tool: D182: AX25: bad header!


tool: D52:  

tool: D26: %d->%s%s

tool: D354: EAX25: 

tool: D90:  R

tool: D253:  F

tool: D38:  R%d

tool: D282: -%d

tool: D13: %s (%d)

tool: D2: %s


tool: D224:  v

tool: D267:  %s%s

tool: D402: *

tool: D67:  C

tool: D147:  P

tool: D294:  S%d

tool: D204:  pid=X.25%s


tool: D15:  pid=0x%x%s


tool: D33: : %02X

tool: D359:  Vr = %d Vs = %d

tool: D265:  Invalid seq number

tool: D308:  pid=Text%s


tool: D416:  pid=FLEXNET%s


tool: D246:  pid=ARP%s


tool: D239:  pid=IP%s


tool: D319:  pid=TEXNET%s


tool: D370:  pid=NET/ROM%s


tool: D85: %s remain %u

tool: D92:  First seg;

tool: D371:  Too-long I-field

tool: D306:  Illegal I-field

tool: D159:  Invalid control field

assistant: ```c
void ax25_dump(unsigned char *data, int length, int hexdump) {
  char tmp[15];
  char ext[40];
  int ctlen, nr = 0, ns = 0, pf, pid, seg, type, end, cmdrsp, extseq, paclen;
  char *dama;
  if (length < 8) {
    lprintf(1, "AX25: bad header!\n");
    return;
  }
  if (data[1] & 0x01) {
    lprintf(6, "AX25: ");
    tmp[6] = tmp[7] = extseq = 0;
    tmp[0] = ' ' + (data[2] >> 2);
    tmp[1] = ' ' + ((data[2] << 4) & 0x30) + (data[3] >> 4);
    tmp[2] = ' ' + ((data[3] << 2) & 0x3c) + (data[4] >> 6);
    tmp[3] = ' ' + (data[4] & 0x3f);
    tmp[4] = ' ' + (data[5] >> 2);
    tmp[5] = ' ' + ((data[5] << 4) & 0x30) + (data[6] >> 4);
    if (data[6] & 0xf)
      sprintf(tmp + 7, "-%d", data[6] & 0xf);
    lprintf(8, "%d->%s%s", (data[0] << 6) | ((data[1] >> 2) & 0x3f), strtok(tmp, " "), tmp + 7);
    cmdrsp = (data[1] & 2) ? 1 : 2;
    dama = "";
    data += 7;
    length -= 7;
  } else {
    if (length < (7 + 7 + 1)) {
      lprintf(1, "AX25: bad header!\n");
      return;
    }
    if ((data[7 + 6] & 0x40) == 0x40) {
      extseq = 0;
      lprintf(6, "AX25: ");
    } else {
      extseq = 1;
      lprintf(6, "EAX25: ");
    }
    if ((data[7 + 6] & 0x20) == 0x20)
      dama = "";
    else
      dama = " [DAMA]";
    lprintf(8, "%s", pax25(tmp, data + 7));
    lprintf(8, "->%s", pax25(tmp, data));
    cmdrsp = 0;
    if ((data[6] & 0x80) && !(data[7 + 6] & 0x80))
      cmdrsp = 1;
    if ((data[7 + 6] & 0x80) && !(data[6] & 0x80))
      cmdrsp = 2;
    end = (data[7 + 6] & 0x01);
    data += (7 + 7);
    length -= (7 + 7);
    if (!end) {
      lprintf(7, " v");
      while (!end) {
        lprintf(8, " %s%s", pax25(tmp, data), (data[6] & 0x80) ? "*" : "");
        end = (data[6] & 0x01);
        data += 7;
        length -= 7;
      }
    }
  }
  if (length == 0)
    return;
  paclen = length - 2;
  ctlen = ftype(data, &type, &ns, &nr, &pf, extseq);
  data += ctlen;
  length -= ctlen;
  lprintf(7, " <%s", decode_type(type));
  switch (cmdrsp) {
  case 1:
    lprintf(7, " C");
    if (pf)
      lprintf(7, " P");
    break;
  case 2:
    lprintf(7, " R");
    if (pf)
      lprintf(7, " F");
    break;
  default:
    break;
  }
  if (type == 0x00)
    lprintf(7, " S%d", ns);
  if ((type & 0x3) != 0x03)
    lprintf(7, " R%d", nr);
  lprintf(7, ">");
  if (type == 0x00 || type == 0x03) {
    if (length > 0) {
      pid = *data++;
      length--;
      if (pid == 0x08) {
        seg = *data++;
        length--;
        lprintf(7, "%s remain %u", seg & 0x80 ? " First seg;" : "", seg & 0x7F);
        if (seg & 0x80) {
          pid = *data++;
          length--;
        }
      }
      sprintf(ext, "%s (%d)", dama, paclen);
      switch (pid) {
      case 0x08:
        lprintf(7, "%s\n", ext);
        data_dump(data, length, hexdump);
        break;
      case 0xCD:
        lprintf(7, " pid=ARP%s\n", ext);
        arp_dump(data, length);
        break;
      case 0xCF:
        lprintf(7, " pid=NET/ROM%s\n", ext);
        netrom_dump(data, length, hexdump);
        break;
      case 0xCC:
        lprintf(7, " pid=IP%s\n", ext);
        ip_dump(data, length, hexdump);
        break;
      case 0x01:
        lprintf(7, " pid=X.25%s\n", ext);
        rose_dump(data, length, hexdump);
        break;
      case 0xC3:
        lprintf(7, " pid=TEXNET%s\n", ext);
        data_dump(data, length, hexdump);
        break;
      case 0xCE:
        lprintf(7, " pid=FLEXNET%s\n", ext);
        flexnet_dump(data, length, hexdump);
        break;
      case 0xF0:
        lprintf(7, " pid=Text%s\n", ext);
        data_dump(data, length, hexdump);
        break;
      default:
        lprintf(7, " pid=0x%x%s\n", pid, ext);
        data_dump(data, length, hexdump);
        break;
      }
    }
  } else if (type == 0x87 && length >= 3) {
    lprintf(7, ": %02X", data[0]);
    lprintf(7, " Vr = %d Vs = %d", (data[1] >> 5) & 7, (data[1] >> 1) & 7);
    if (data[2] & 1)
      lprintf(1, " Invalid control field");
    if (data[2] & 2)
      lprintf(1, " Illegal I-field");
    if (data[2] & 4)
      lprintf(1, " Too-long I-field");
    if (data[2] & 8)
      lprintf(1, " Invalid seq number");
    lprintf(7, "%s\n", dama);
  } else if ((type == 0x2F || type == 0x63) && length >= 2) {
    lprintf(7, " [%d]%s\n", (data[0] << 8) | data[1], dama);
  } else {
    lprintf(7, "%s\n", dama);
  }
}
```