// File: DoubleString[P]RtConverter/src/Rtklib/rtcm3e.cpp
// Function: bamboo::encode_type1009(bamboo::rtcm_t*, int)
static int encode_type1009(rtcm_t *rtcm, int sync)
{
    int i,j,nsat=0,sat,prn,fcn;
    int code1,pr1,ppr1,lock1,amb;
    
    for (j=0;j<rtcm->obs.n&&nsat<MAXOBS;j++) {
        sat=rtcm->obs.data[j].sat;
        if (satsys(sat,&prn)!=SYS_GLO) continue;
        nsat++;
    }
    /* encode header */
    i=encode_head(1009,rtcm,SYS_GLO,sync,nsat);
    
    for (j=0;j<rtcm->obs.n&&nsat<MAXOBS;j++) {
        sat=rtcm->obs.data[j].sat;
        if (satsys(sat,&prn)!=SYS_GLO) continue;
        fcn=fcn_glo(sat,rtcm);
        
        /* generate obs field data glonass */
        gen_obs_glo(rtcm,rtcm->obs.data+j,fcn,&code1,&pr1,&ppr1,&lock1,&amb,
                    NULL,NULL,NULL,NULL,NULL,NULL);
        
        if (fcn<0) fcn=0;
        setbitu(rtcm->buff,i, 6,prn  ); i+= 6;
        setbitu(rtcm->buff,i, 1,code1); i+= 1;
        setbitu(rtcm->buff,i, 5,fcn  ); i+= 5;
        setbitu(rtcm->buff,i,25,pr1  ); i+=25;
        setbits(rtcm->buff,i,20,ppr1 ); i+=20;
        setbitu(rtcm->buff,i, 7,lock1); i+= 7;
    }
    rtcm->nbit=i;
    return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x80, %rsp
movq %rdi, -0x8(%rbp)
movl %esi, -0xc(%rbp)
movl $0x0, -0x18(%rbp)
movl $0x0, -0x14(%rbp)
movl -0x14(%rbp), %ecx
movq -0x8(%rbp), %rdx
xorl %eax, %eax
cmpl 0x30(%rdx), %ecx
movb %al, -0x39(%rbp)
jge 0x7f16b
cmpl $0x40, -0x18(%rbp)
setl %al
movb %al, -0x39(%rbp)
movb -0x39(%rbp), %al
testb $0x1, %al
jne 0x7f174
jmp 0x7f1b5
movq -0x8(%rbp), %rax
movq 0x38(%rax), %rax
movslq -0x14(%rbp), %rcx
imulq $0x60, %rcx, %rcx
addq %rcx, %rax
movzbl 0x10(%rax), %eax
movl %eax, -0x1c(%rbp)
movl -0x1c(%rbp), %edi
leaq -0x20(%rbp), %rsi
callq 0x8b3b0
cmpl $0x4, %eax
je 0x7f1a1
jmp 0x7f1aa
movl -0x18(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x18(%rbp)
movl -0x14(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x14(%rbp)
jmp 0x7f150
movq -0x8(%rbp), %rsi
movl -0xc(%rbp), %ecx
movl -0x18(%rbp), %r8d
movl $0x3f1, %edi            # imm = 0x3F1
movl $0x4, %edx
callq 0x87580
movl %eax, -0x10(%rbp)
movl $0x0, -0x14(%rbp)
movl -0x14(%rbp), %ecx
movq -0x8(%rbp), %rdx
xorl %eax, %eax
cmpl 0x30(%rdx), %ecx
movb %al, -0x3a(%rbp)
jge 0x7f1f4
cmpl $0x40, -0x18(%rbp)
setl %al
movb %al, -0x3a(%rbp)
movb -0x3a(%rbp), %al
testb $0x1, %al
jne 0x7f200
jmp 0x7f3a7
movq -0x8(%rbp), %rax
movq 0x38(%rax), %rax
movslq -0x14(%rbp), %rcx
imulq $0x60, %rcx, %rcx
addq %rcx, %rax
movzbl 0x10(%rax), %eax
movl %eax, -0x1c(%rbp)
movl -0x1c(%rbp), %edi
leaq -0x20(%rbp), %rsi
callq 0x8b3b0
cmpl $0x4, %eax
je 0x7f230
jmp 0x7f399
movl -0x1c(%rbp), %edi
movq -0x8(%rbp), %rsi
callq 0x87f70
movl %eax, -0x24(%rbp)
movq -0x8(%rbp), %rdi
movq -0x8(%rbp), %rax
movq 0x38(%rax), %rsi
movslq -0x14(%rbp), %rax
imulq $0x60, %rax, %rax
addq %rax, %rsi
movl -0x24(%rbp), %edx
leaq -0x28(%rbp), %rcx
leaq -0x2c(%rbp), %r8
leaq -0x30(%rbp), %r9
leaq -0x34(%rbp), %r10
leaq -0x38(%rbp), %rax
xorl %r11d, %r11d
movq %r10, (%rsp)
movq %rax, 0x8(%rsp)
movq $0x0, 0x10(%rsp)
movq $0x0, 0x18(%rsp)
movq $0x0, 0x20(%rsp)
movq $0x0, 0x28(%rsp)
movq $0x0, 0x30(%rsp)
movq $0x0, 0x38(%rsp)
callq 0x87ff0
cmpl $0x0, -0x24(%rbp)
jge 0x7f2c1
movl $0x0, -0x24(%rbp)
movq -0x8(%rbp), %rdi
addq $0x9f0c4, %rdi          # imm = 0x9F0C4
movl -0x10(%rbp), %esi
movl -0x20(%rbp), %ecx
movl $0x6, %edx
callq 0x8c0d0
movl -0x10(%rbp), %eax
addl $0x6, %eax
movl %eax, -0x10(%rbp)
movq -0x8(%rbp), %rdi
addq $0x9f0c4, %rdi          # imm = 0x9F0C4
movl -0x10(%rbp), %esi
movl -0x28(%rbp), %ecx
movl $0x1, %edx
callq 0x8c0d0
movl -0x10(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x10(%rbp)
movq -0x8(%rbp), %rdi
addq $0x9f0c4, %rdi          # imm = 0x9F0C4
movl -0x10(%rbp), %esi
movl -0x24(%rbp), %ecx
movl $0x5, %edx
callq 0x8c0d0
movl -0x10(%rbp), %eax
addl $0x5, %eax
movl %eax, -0x10(%rbp)
movq -0x8(%rbp), %rdi
addq $0x9f0c4, %rdi          # imm = 0x9F0C4
movl -0x10(%rbp), %esi
movl -0x2c(%rbp), %ecx
movl $0x19, %edx
callq 0x8c0d0
movl -0x10(%rbp), %eax
addl $0x19, %eax
movl %eax, -0x10(%rbp)
movq -0x8(%rbp), %rdi
addq $0x9f0c4, %rdi          # imm = 0x9F0C4
movl -0x10(%rbp), %esi
movl -0x30(%rbp), %ecx
movl $0x14, %edx
callq 0x8c1d0
movl -0x10(%rbp), %eax
addl $0x14, %eax
movl %eax, -0x10(%rbp)
movq -0x8(%rbp), %rdi
addq $0x9f0c4, %rdi          # imm = 0x9F0C4
movl -0x10(%rbp), %esi
movl -0x34(%rbp), %ecx
movl $0x7, %edx
callq 0x8c0d0
movl -0x10(%rbp), %eax
addl $0x7, %eax
movl %eax, -0x10(%rbp)
movl -0x14(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x14(%rbp)
jmp 0x7f1d9
movl -0x10(%rbp), %ecx
movq -0x8(%rbp), %rax
movl %ecx, 0x9f0bc(%rax)
movl $0x1, %eax
addq $0x80, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)