path: root/src/client.S

#include "abi.inc"
#include "defs.inc"

#define LK_URL      -72
#define LK_BODY     -96
#define LK_TMP      -112
#define LK_STATUS   -120
#define LK_MSG      -128

#define HL_URL      -72
#define HL_BODY     -96
#define HL_STATUS   -104

#define LM_IDX      -48
#define LM_CHUNK    -56
#define LM_SENT     -64
#define LM_MAP      -72
#define LM_ROWS     -80
#define LM_NROWS    -88
#define LM_STATUS   -96
#define LM_TMP      -112
#define LM_URL      -136
#define LM_BODY     -160
#define LM_J        -168
#define LM_K        -176

#define JF_KEY      -48
#define JF_VAL      -56
#define JF_OUT      -64

        .text

PUBFUNC cepis_version
        lea     .Ls_version(%rip), %rax
        ret
ENDFUNC cepis_version

PUBFUNC cepis_strerror
        lea     cepis__errnames(%rip), %rax
        cmp     $0, %edi
        jl      .Lse_unknown
        cmp     $8, %edi
        jg      .Lse_unknown
        movslq  %edi, %rdi
        mov     (%rax, %rdi, 8), %rax
        ret
.Lse_unknown:
        lea     .Ls_unknown(%rip), %rax
        ret
ENDFUNC cepis_strerror

FUNC cepis__err_reset
        test    %rdi, %rdi
        jz      .Ler_out
        movl    $0, E_STATUS(%rdi)
        movl    $0, E_HTTP_STATUS(%rdi)
        movq    $0, E_RETRY_AFTER(%rdi)
        movb    $0, E_MESSAGE(%rdi)
.Ler_out:
        ret
ENDFUNC cepis__err_reset

FUNC cepis__err_set
        PROLOGUE 8
        test    %rdi, %rdi
        jz      .Les_out
        mov     %esi, E_STATUS(%rdi)
        mov     %rdx, %r10
        lea     E_MESSAGE(%rdi), %rdi
        mov     $E_MSGLEN, %esi
        mov     %r10, %rdx
        xor     %eax, %eax
        call    snprintf@PLT
.Les_out:
        EPILOGUE
        ret
ENDFUNC cepis__err_set

FUNC cepis__json_field
        PROLOGUE 40
        mov     %rsi, %r15
        movq    $0, JF_KEY(%rbp)
        movq    $0, JF_VAL(%rbp)
        movq    $0, JF_OUT(%rbp)
        call    cepis__js_ws
        mov     %rax, %r12
        cmpb    $'{', (%r12)
        jne     .Ljf_out
        lea     1(%r12), %rdi
        call    cepis__js_ws
        mov     %rax, %r12
        cmpb    $'}', (%r12)
        je      .Ljf_out
.Ljf_pair:
        cmpb    $'"', (%r12)
        jne     .Ljf_out
        mov     %r12, %rdi
        lea     JF_KEY(%rbp), %rsi
        call    cepis__js_string
        test    %rax, %rax
        jz      .Ljf_out
        mov     %rax, %rdi
        call    cepis__js_ws
        mov     %rax, %r12
        cmpb    $':', (%r12)
        jne     .Ljf_out
        lea     1(%r12), %rdi
        call    cepis__js_ws
        mov     %rax, %r12
        cmpq    $0, JF_OUT(%rbp)
        jne     .Ljf_skip
        mov     JF_KEY(%rbp), %rdi
        mov     %r15, %rsi
        call    strcmp@PLT
        test    %eax, %eax
        jnz     .Ljf_skip
        movzbl  (%r12), %eax
        cmp     $'{', %al
        je      .Ljf_skip
        cmp     $'[', %al
        je      .Ljf_skip
        mov     %r12, %rdi
        lea     JF_VAL(%rbp), %rsi
        call    cepis__js_scalar_text
        test    %rax, %rax
        jz      .Ljf_out
        mov     %rax, %r12
        mov     JF_VAL(%rbp), %rax
        mov     %rax, JF_OUT(%rbp)
        jmp     .Ljf_next
.Ljf_skip:
        mov     %r12, %rdi
        call    cepis__js_skip
        test    %rax, %rax
        jz      .Ljf_out
        mov     %rax, %r12
.Ljf_next:
        mov     JF_KEY(%rbp), %rdi
        call    free@PLT
        movq    $0, JF_KEY(%rbp)
        mov     %r12, %rdi
        call    cepis__js_ws
        mov     %rax, %r12
        cmpb    $',', (%r12)
        jne     .Ljf_out
        lea     1(%r12), %rdi
        call    cepis__js_ws
        mov     %rax, %r12
        jmp     .Ljf_pair
.Ljf_out:
        mov     JF_KEY(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Ljf_ret
        call    free@PLT
.Ljf_ret:
        mov     JF_OUT(%rbp), %rax
        EPILOGUE
        ret
ENDFUNC cepis__json_field

PUBFUNC cepis_client_new
        PROLOGUE 40
        mov     %rsi, %r14
        test    %r14, %r14
        jz      .Lcn_usage
        movq    $0, (%r14)
        mov     %rdi, %r15
        test    %r15, %r15
        jz      .Lcn_alloc
        mov     C_MAX_ATTEMPTS(%r15), %eax
        cmp     $0, %eax
        jl      .Lcn_usage
.Lcn_alloc:
        mov     $1, %rdi
        mov     $CL_SIZE, %rsi
        call    calloc@PLT
        test    %rax, %rax
        jz      .Lcn_nomem
        mov     %rax, %rbx
        lea     .Ls_default_url(%rip), %r12
        test    %r15, %r15
        jz      .Lcn_url
        mov     C_BASE_URL(%r15), %rax
        test    %rax, %rax
        jz      .Lcn_url
        mov     %rax, %r12
.Lcn_url:
        mov     %r12, %rdi
        call    cepis__strdup
        test    %rax, %rax
        jz      .Lcn_nomem_free
        mov     %rax, CL_BASE_URL(%rbx)
        mov     %rax, %rdi
        call    strlen@PLT
        mov     CL_BASE_URL(%rbx), %rdx
.Lcn_strip:
        test    %rax, %rax
        jz      .Lcn_ua
        cmpb    $'/', -1(%rdx, %rax, 1)
        jne     .Lcn_ua
        dec     %rax
        movb    $0, (%rdx, %rax, 1)
        jmp     .Lcn_strip
.Lcn_ua:
        lea     .Ls_default_ua(%rip), %r12
        test    %r15, %r15
        jz      .Lcn_ua_dup
        mov     C_USER_AGENT(%r15), %rax
        test    %rax, %rax
        jz      .Lcn_ua_dup
        mov     %rax, %r12
.Lcn_ua_dup:
        mov     %r12, %rdi
        call    cepis__strdup
        test    %rax, %rax
        jz      .Lcn_nomem_free
        mov     %rax, CL_USER_AGENT(%rbx)
        movsd   .Ld_timeout(%rip), %xmm0
        movl    $3, %eax
        mov     %eax, CL_MAX_ATTEMPTS(%rbx)
        movsd   %xmm0, CL_TIMEOUT(%rbx)
        movsd   .Ld_backoff_base(%rip), %xmm0
        movsd   %xmm0, CL_BACKOFF_BASE(%rbx)
        movsd   .Ld_backoff_max(%rip), %xmm0
        movsd   %xmm0, CL_BACKOFF_MAX(%rbx)
        xorpd   %xmm0, %xmm0
        movsd   %xmm0, CL_TOTAL_TIMEOUT(%rbx)
        test    %r15, %r15
        jz      .Lcn_seed
        movsd   C_TIMEOUT(%r15), %xmm0
        xorpd   %xmm1, %xmm1
        comisd  %xmm1, %xmm0
        jbe     .Lcn_attempts
        movsd   %xmm0, CL_TIMEOUT(%rbx)
.Lcn_attempts:
        mov     C_MAX_ATTEMPTS(%r15), %eax
        test    %eax, %eax
        jz      .Lcn_bbase
        mov     %eax, CL_MAX_ATTEMPTS(%rbx)
.Lcn_bbase:
        movsd   C_BACKOFF_BASE(%r15), %xmm0
        xorpd   %xmm1, %xmm1
        comisd  %xmm1, %xmm0
        jbe     .Lcn_bmax
        movsd   %xmm0, CL_BACKOFF_BASE(%rbx)
.Lcn_bmax:
        movsd   C_BACKOFF_MAX(%r15), %xmm0
        xorpd   %xmm1, %xmm1
        comisd  %xmm1, %xmm0
        jbe     .Lcn_total
        movsd   %xmm0, CL_BACKOFF_MAX(%rbx)
.Lcn_total:
        movsd   C_TOTAL_TIMEOUT(%r15), %xmm0
        xorpd   %xmm1, %xmm1
        comisd  %xmm1, %xmm0
        jbe     .Lcn_seed
        movsd   %xmm0, CL_TOTAL_TIMEOUT(%rbx)
.Lcn_seed:
        xor     %edi, %edi
        lea     LOCAL1(%rbp), %rsi
        call    clock_gettime@PLT
        mov     LOCAL1(%rbp), %rax
        mov     LOCAL0(%rbp), %rdx
        imul    $1000000007, %rax, %rax
        xor     %rdx, %rax
        xor     %rbx, %rax
        mov     $1, %rdx
        lock xadd %rdx, cepis__seed_counter(%rip)
        imul    $1103515245, %rdx, %rdx
        xor     %rdx, %rax
        test    %rax, %rax
        jnz     .Lcn_store_seed
        movabs  $0x9E3779B97F4A7C15, %rax
.Lcn_store_seed:
        mov     %rax, CL_RNG(%rbx)
        mov     %rbx, (%r14)
        xor     %eax, %eax
        EPILOGUE
        ret
.Lcn_nomem_free:
        mov     %rbx, %rdi
        call    cepis_client_free
.Lcn_nomem:
        mov     $CEPIS_ERR_NOMEM, %eax
        EPILOGUE
        ret
.Lcn_usage:
        mov     $CEPIS_ERR_USAGE, %eax
        EPILOGUE
        ret
ENDFUNC cepis_client_new

PUBFUNC cepis_client_free
        PROLOGUE 8
        test    %rdi, %rdi
        jz      .Lcf_out
        mov     %rdi, %rbx
        mov     CL_BASE_URL(%rbx), %rdi
        test    %rdi, %rdi
        jz      .Lcf_ua
        call    free@PLT
.Lcf_ua:
        mov     CL_USER_AGENT(%rbx), %rdi
        test    %rdi, %rdi
        jz      .Lcf_self
        call    free@PLT
.Lcf_self:
        mov     %rbx, %rdi
        call    free@PLT
.Lcf_out:
        EPILOGUE
        ret
ENDFUNC cepis_client_free

PUBFUNC cepis_default_client
        PROLOGUE 24
        mov     cepis__default_client(%rip), %rax
        test    %rax, %rax
        jnz     .Ldc_out
        xor     %edi, %edi
        lea     LOCAL0(%rbp), %rsi
        call    cepis_client_new
        test    %eax, %eax
        jnz     .Ldc_fail
        mov     LOCAL0(%rbp), %rbx
        xor     %eax, %eax
        lock cmpxchgq %rbx, cepis__default_client(%rip)
        jz      .Ldc_won
        mov     %rax, %r12
        mov     %rbx, %rdi
        call    cepis_client_free
        mov     %r12, %rax
        EPILOGUE
        ret
.Ldc_won:
        mov     %rbx, %rax
.Ldc_out:
        EPILOGUE
        ret
.Ldc_fail:
        xor     %eax, %eax
        EPILOGUE
        ret
ENDFUNC cepis_default_client

FUNC cepis__default_client_destroy
        PROLOGUE 8
        xor     %eax, %eax
        xchg    %rax, cepis__default_client(%rip)
        test    %rax, %rax
        jz      .Ldd_out
        mov     %rax, %rdi
        call    cepis_client_free
.Ldd_out:
        EPILOGUE
        ret
ENDFUNC cepis__default_client_destroy

FUNC cepis__resolve
        test    %rdi, %rdi
        jz      .Lrc_default
        mov     %rdi, %rax
        ret
.Lrc_default:
        jmp     cepis_default_client
ENDFUNC cepis__resolve

PUBFUNC cepis_lookup
        PROLOGUE 88
        mov     %rdi, %rbx
        mov     %rsi, %r13
        mov     %rdx, %r14
        mov     %rcx, %r15
        test    %r14, %r14
        jz      .Llk_usage
        movq    $0, (%r14)
        mov     %r15, %rdi
        call    cepis__err_reset
        mov     %rbx, %rdi
        call    cepis__resolve
        test    %rax, %rax
        jz      .Llk_nomem_bare
        mov     %rax, %rbx
        movq    $0, LK_URL(%rbp)
        movq    $0, LK_URL+8(%rbp)
        movq    $0, LK_URL+16(%rbp)
        movq    $0, LK_BODY(%rbp)
        movq    $0, LK_BODY+8(%rbp)
        movq    $0, LK_BODY+16(%rbp)
        mov     %r13, %rdi
        lea     LK_TMP(%rbp), %rsi
        call    cepis_normalize_cep
        test    %eax, %eax
        jnz     .Llk_invalid_input
        lea     LK_URL(%rbp), %rdi
        mov     CL_BASE_URL(%rbx), %rsi
        call    cepis__buf_appendz
        test    %eax, %eax
        jnz     .Llk_nomem
        lea     LK_URL(%rbp), %rdi
        mov     $'/', %esi
        call    cepis__buf_appendc
        test    %eax, %eax
        jnz     .Llk_nomem
        lea     LK_URL(%rbp), %rdi
        lea     LK_TMP(%rbp), %rsi
        call    cepis__buf_appendz
        test    %eax, %eax
        jnz     .Llk_nomem
        mov     %rbx, %rdi
        mov     LK_URL(%rbp), %rsi
        xor     %edx, %edx
        lea     LK_STATUS(%rbp), %rcx
        lea     LK_BODY(%rbp), %r8
        mov     %r15, %r9
        call    cepis__http_get
        test    %eax, %eax
        jnz     .Llk_httperr
        mov     LK_STATUS(%rbp), %eax
        cmp     $404, %eax
        je      .Llk_notfound
        cmp     $400, %eax
        je      .Llk_badcep
        cmp     $200, %eax
        jne     .Llk_badresp
        mov     LK_BODY(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llk_badresp
        mov     %r14, %rsi
        call    cepis__address_from_json
        mov     %eax, %r12d
        test    %eax, %eax
        jz      .Llk_done
        cmp     $CEPIS_ERR_NOMEM, %eax
        je      .Llk_nomem
        mov     %r15, %rdi
        mov     $CEPIS_ERR_INVALID_RESPONSE, %esi
        lea     .Lfmt_badjson(%rip), %rdx
        mov     LK_URL(%rbp), %rcx
        xor     %r8d, %r8d
        call    cepis__err_set
        mov     $CEPIS_ERR_INVALID_RESPONSE, %r12d
        jmp     .Llk_ret
.Llk_done:
        xor     %r12d, %r12d
.Llk_ret:
        lea     LK_URL(%rbp), %rdi
        call    cepis__buf_free
        lea     LK_BODY(%rbp), %rdi
        call    cepis__buf_free
        mov     %r12d, %eax
        EPILOGUE
        ret
.Llk_httperr:
        mov     %eax, %r12d
        jmp     .Llk_ret
.Llk_notfound:
        mov     %r15, %rdi
        mov     $CEPIS_ERR_NOT_FOUND, %esi
        lea     .Lfmt_notfound(%rip), %rdx
        lea     LK_TMP(%rbp), %rcx
        xor     %r8d, %r8d
        call    cepis__err_set
        mov     $CEPIS_ERR_NOT_FOUND, %r12d
        jmp     .Llk_ret
.Llk_badcep:
        movq    $0, LK_MSG(%rbp)
        mov     LK_BODY(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llk_badcep_msg
        lea     .Ls_mensagem(%rip), %rsi
        call    cepis__json_field
        mov     %rax, LK_MSG(%rbp)
.Llk_badcep_msg:
        mov     LK_MSG(%rbp), %r8
        test    %r8, %r8
        jnz     .Llk_badcep_emit
        lea     .Ls_rejected(%rip), %r8
.Llk_badcep_emit:
        mov     %r15, %rdi
        mov     $CEPIS_ERR_INVALID_CEP, %esi
        lea     .Lfmt_badcep(%rip), %rdx
        lea     LK_TMP(%rbp), %rcx
        call    cepis__err_set
        mov     LK_MSG(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llk_badcep_done
        call    free@PLT
.Llk_badcep_done:
        mov     $CEPIS_ERR_INVALID_CEP, %r12d
        jmp     .Llk_ret
.Llk_badresp:
        mov     %r15, %rdi
        mov     $CEPIS_ERR_INVALID_RESPONSE, %esi
        lea     .Lfmt_status(%rip), %rdx
        mov     LK_STATUS(%rbp), %ecx
        mov     LK_URL(%rbp), %r8
        call    cepis__err_set
        mov     $CEPIS_ERR_INVALID_RESPONSE, %r12d
        jmp     .Llk_ret
.Llk_invalid_input:
        mov     %r15, %rdi
        mov     $CEPIS_ERR_INVALID_CEP, %esi
        lea     .Lfmt_notdigits(%rip), %rdx
        mov     %r13, %rcx
        test    %rcx, %rcx
        jnz     .Llk_invalid_emit
        lea     .Ls_nullstr(%rip), %rcx
.Llk_invalid_emit:
        xor     %r8d, %r8d
        call    cepis__err_set
        mov     $CEPIS_ERR_INVALID_CEP, %r12d
        jmp     .Llk_ret
.Llk_nomem:
        mov     $CEPIS_ERR_NOMEM, %r12d
        jmp     .Llk_ret
.Llk_nomem_bare:
        mov     $CEPIS_ERR_NOMEM, %eax
        EPILOGUE
        ret
.Llk_usage:
        mov     $CEPIS_ERR_USAGE, %eax
        EPILOGUE
        ret
ENDFUNC cepis_lookup

PUBFUNC cepis_health
        PROLOGUE 72
        mov     %rdi, %rbx
        mov     %rsi, %r14
        mov     %rdx, %r15
        test    %r14, %r14
        jz      .Lhl_usage
        movq    $0, (%r14)
        mov     %r15, %rdi
        call    cepis__err_reset
        mov     %rbx, %rdi
        call    cepis__resolve
        test    %rax, %rax
        jz      .Lhl_nomem_bare
        mov     %rax, %rbx
        movq    $0, HL_URL(%rbp)
        movq    $0, HL_URL+8(%rbp)
        movq    $0, HL_URL+16(%rbp)
        movq    $0, HL_BODY(%rbp)
        movq    $0, HL_BODY+8(%rbp)
        movq    $0, HL_BODY+16(%rbp)
        lea     HL_URL(%rbp), %rdi
        mov     CL_BASE_URL(%rbx), %rsi
        call    cepis__buf_appendz
        test    %eax, %eax
        jnz     .Lhl_nomem
        lea     HL_URL(%rbp), %rdi
        lea     .Ls_health_path(%rip), %rsi
        call    cepis__buf_appendz
        test    %eax, %eax
        jnz     .Lhl_nomem
        mov     %rbx, %rdi
        mov     HL_URL(%rbp), %rsi
        mov     $1, %edx
        lea     HL_STATUS(%rbp), %rcx
        lea     HL_BODY(%rbp), %r8
        mov     %r15, %r9
        call    cepis__http_get
        test    %eax, %eax
        jnz     .Lhl_httperr
        mov     HL_BODY(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Lhl_badresp
        mov     %r14, %rsi
        call    cepis__health_from_json
        mov     %eax, %r12d
        test    %eax, %eax
        jz      .Lhl_ret
        cmp     $CEPIS_ERR_NOMEM, %eax
        je      .Lhl_nomem
        jmp     .Lhl_badresp
.Lhl_ret:
        lea     HL_URL(%rbp), %rdi
        call    cepis__buf_free
        lea     HL_BODY(%rbp), %rdi
        call    cepis__buf_free
        mov     %r12d, %eax
        EPILOGUE
        ret
.Lhl_httperr:
        mov     %eax, %r12d
        jmp     .Lhl_ret
.Lhl_badresp:
        mov     %r15, %rdi
        mov     $CEPIS_ERR_INVALID_RESPONSE, %esi
        lea     .Lfmt_badjson(%rip), %rdx
        mov     HL_URL(%rbp), %rcx
        xor     %r8d, %r8d
        call    cepis__err_set
        mov     $CEPIS_ERR_INVALID_RESPONSE, %r12d
        jmp     .Lhl_ret
.Lhl_nomem:
        mov     $CEPIS_ERR_NOMEM, %r12d
        jmp     .Lhl_ret
.Lhl_nomem_bare:
        mov     $CEPIS_ERR_NOMEM, %eax
        EPILOGUE
        ret
.Lhl_usage:
        mov     $CEPIS_ERR_USAGE, %eax
        EPILOGUE
        ret
ENDFUNC cepis_health

PUBFUNC cepis_lookup_many
        PROLOGUE 136
        mov     %rdi, %rbx
        mov     %rsi, %r12
        mov     %rdx, %r13
        mov     %rcx, %r14
        mov     %r8, %r15
        test    %r14, %r14
        jz      .Llm_usage
        movq    $0, (%r14)
        mov     %r15, %rdi
        call    cepis__err_reset
        test    %r13, %r13
        jz      .Llm_check_ptr
        test    %r12, %r12
        jz      .Llm_usage
.Llm_check_ptr:
        mov     %rbx, %rdi
        call    cepis__resolve
        test    %rax, %rax
        jz      .Llm_nomem_bare
        mov     %rax, %rbx
        mov     %r13, %rdi
        test    %rdi, %rdi
        jnz     .Llm_alloc
        mov     $1, %rdi
.Llm_alloc:
        mov     $8, %rsi
        call    calloc@PLT
        test    %rax, %rax
        jz      .Llm_nomem_bare
        mov     %rax, (%r14)
        movq    $0, LM_MAP(%rbp)
        movq    $0, LM_ROWS(%rbp)
        movq    $0, LM_URL(%rbp)
        movq    $0, LM_URL+8(%rbp)
        movq    $0, LM_URL+16(%rbp)
        movq    $0, LM_BODY(%rbp)
        movq    $0, LM_BODY+8(%rbp)
        movq    $0, LM_BODY+16(%rbp)
        movq    $0, LM_IDX(%rbp)
.Llm_chunk:
        mov     LM_IDX(%rbp), %rax
        cmp     %r13, %rax
        jae     .Llm_done
        mov     %r13, %rcx
        sub     %rax, %rcx
        cmp     $CEPIS_MAX_BATCH, %rcx
        jbe     .Llm_chunk_set
        mov     $CEPIS_MAX_BATCH, %rcx
.Llm_chunk_set:
        mov     %rcx, LM_CHUNK(%rbp)
        mov     %rcx, %rdi
        mov     $8, %rsi
        call    calloc@PLT
        test    %rax, %rax
        jz      .Llm_nomem
        mov     %rax, LM_MAP(%rbp)
        lea     LM_URL(%rbp), %rdi
        call    cepis__buf_reset
        lea     LM_URL(%rbp), %rdi
        mov     CL_BASE_URL(%rbx), %rsi
        call    cepis__buf_appendz
        test    %eax, %eax
        jnz     .Llm_nomem
        lea     LM_URL(%rbp), %rdi
        lea     .Ls_csv_path(%rip), %rsi
        call    cepis__buf_appendz
        test    %eax, %eax
        jnz     .Llm_nomem
        movq    $0, LM_SENT(%rbp)
        movq    $0, LM_J(%rbp)
.Llm_build:
        mov     LM_J(%rbp), %rax
        cmp     LM_CHUNK(%rbp), %rax
        jae     .Llm_request
        add     LM_IDX(%rbp), %rax
        mov     (%r12, %rax, 8), %rdi
        lea     LM_TMP(%rbp), %rsi
        call    cepis_normalize_cep
        test    %eax, %eax
        jnz     .Llm_build_next
        cmpq    $0, LM_SENT(%rbp)
        je      .Llm_build_first
        lea     LM_URL(%rbp), %rdi
        mov     $',', %esi
        call    cepis__buf_appendc
        test    %eax, %eax
        jnz     .Llm_nomem
.Llm_build_first:
        lea     LM_URL(%rbp), %rdi
        lea     LM_TMP(%rbp), %rsi
        call    cepis__buf_appendz
        test    %eax, %eax
        jnz     .Llm_nomem
        mov     LM_J(%rbp), %rax
        add     LM_IDX(%rbp), %rax
        mov     LM_MAP(%rbp), %rcx
        mov     LM_SENT(%rbp), %rdx
        mov     %rax, (%rcx, %rdx, 8)
        incq    LM_SENT(%rbp)
.Llm_build_next:
        incq    LM_J(%rbp)
        jmp     .Llm_build
.Llm_request:
        cmpq    $0, LM_SENT(%rbp)
        je      .Llm_next_chunk
        lea     LM_BODY(%rbp), %rdi
        call    cepis__buf_reset
        mov     %rbx, %rdi
        mov     LM_URL(%rbp), %rsi
        xor     %edx, %edx
        lea     LM_STATUS(%rbp), %rcx
        lea     LM_BODY(%rbp), %r8
        mov     %r15, %r9
        call    cepis__http_get
        test    %eax, %eax
        jnz     .Llm_fail
        cmpl    $200, LM_STATUS(%rbp)
        jne     .Llm_badstatus
        mov     LM_BODY(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llm_badstatus
        lea     LM_ROWS(%rbp), %rsi
        lea     LM_NROWS(%rbp), %rdx
        call    cepis__csv_addresses
        test    %eax, %eax
        jnz     .Llm_fail
        movq    $0, LM_K(%rbp)
.Llm_assign:
        mov     LM_K(%rbp), %rax
        cmp     LM_SENT(%rbp), %rax
        jae     .Llm_drop_extra
        cmp     LM_NROWS(%rbp), %rax
        jae     .Llm_drop_extra
        mov     LM_ROWS(%rbp), %rcx
        mov     (%rcx, %rax, 8), %rdx
        movq    $0, (%rcx, %rax, 8)
        mov     LM_MAP(%rbp), %rcx
        mov     (%rcx, %rax, 8), %rcx
        mov     (%r14), %rsi
        mov     %rdx, (%rsi, %rcx, 8)
        incq    LM_K(%rbp)
        jmp     .Llm_assign
.Llm_drop_extra:
        mov     LM_ROWS(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llm_free_map
        mov     LM_NROWS(%rbp), %rsi
        call    cepis_address_list_free
        movq    $0, LM_ROWS(%rbp)
        movq    $0, LM_NROWS(%rbp)
.Llm_free_map:
        mov     LM_MAP(%rbp), %rdi
        call    free@PLT
        movq    $0, LM_MAP(%rbp)
.Llm_next_chunk:
        mov     LM_MAP(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llm_advance
        call    free@PLT
        movq    $0, LM_MAP(%rbp)
.Llm_advance:
        mov     LM_CHUNK(%rbp), %rax
        add     %rax, LM_IDX(%rbp)
        jmp     .Llm_chunk
.Llm_done:
        lea     LM_URL(%rbp), %rdi
        call    cepis__buf_free
        lea     LM_BODY(%rbp), %rdi
        call    cepis__buf_free
        xor     %eax, %eax
        EPILOGUE
        ret
.Llm_badstatus:
        mov     %r15, %rdi
        mov     $CEPIS_ERR_INVALID_RESPONSE, %esi
        lea     .Lfmt_status(%rip), %rdx
        mov     LM_STATUS(%rbp), %ecx
        mov     LM_URL(%rbp), %r8
        call    cepis__err_set
        mov     $CEPIS_ERR_INVALID_RESPONSE, %eax
.Llm_fail:
        mov     %eax, %r12d
        mov     LM_ROWS(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llm_fail_map
        mov     LM_NROWS(%rbp), %rsi
        call    cepis_address_list_free
        movq    $0, LM_ROWS(%rbp)
.Llm_fail_map:
        mov     LM_MAP(%rbp), %rdi
        test    %rdi, %rdi
        jz      .Llm_fail_bufs
        call    free@PLT
        movq    $0, LM_MAP(%rbp)
.Llm_fail_bufs:
        lea     LM_URL(%rbp), %rdi
        call    cepis__buf_free
        lea     LM_BODY(%rbp), %rdi
        call    cepis__buf_free
        mov     (%r14), %rdi
        mov     %r13, %rsi
        call    cepis_address_list_free
        movq    $0, (%r14)
        mov     %r12d, %eax
        EPILOGUE
        ret
.Llm_nomem:
        mov     $CEPIS_ERR_NOMEM, %eax
        jmp     .Llm_fail
.Llm_nomem_bare:
        mov     $CEPIS_ERR_NOMEM, %eax
        EPILOGUE
        ret
.Llm_usage:
        mov     $CEPIS_ERR_USAGE, %eax
        EPILOGUE
        ret
ENDFUNC cepis_lookup_many

        .section .rodata
.Ls_version:        .asciz "0.1.0"
.Ls_default_url:    .asciz "https://cep.is"
.Ls_default_ua:     .asciz "cepis-asm/0.1.0 (+https://cep.is)"
.Ls_health_path:    .asciz "/health"
.Ls_csv_path:       .asciz "/csv?ceps="
.Ls_mensagem:       .asciz "mensagem"
.Ls_rejected:       .asciz "rejected by the API"
.Ls_nullstr:        .asciz "(null)"
.Ls_unknown:        .asciz "unknown error"
.Lfmt_notfound:     .asciz "CEP %s does not exist in the DNE database"
.Lfmt_badcep:       .asciz "CEP %s rejected: %s"
.Lfmt_notdigits:    .asciz "CEP must be 8 digits, got \"%s\""
.Lfmt_badjson:      .asciz "unparseable response from %s"
.Lfmt_status:       .asciz "unexpected status %d from %s"

.Le_ok:             .asciz "ok"
.Le_invalid:        .asciz "invalid CEP"
.Le_notfound:       .asciz "CEP not found"
.Le_rate:           .asciz "rate limited"
.Le_server:         .asciz "server error"
.Le_network:        .asciz "network error"
.Le_badresp:        .asciz "invalid response"
.Le_nomem:          .asciz "out of memory"
.Le_usage:          .asciz "invalid argument"

        .section .data.rel.ro,"aw",@progbits
        .p2align 3
cepis__errnames:
        .quad .Le_ok, .Le_invalid, .Le_notfound, .Le_rate, .Le_server
        .quad .Le_network, .Le_badresp, .Le_nomem, .Le_usage

        .section .rodata
        .p2align 3
.Ld_timeout:        .double 10.0
.Ld_backoff_base:   .double 0.5
.Ld_backoff_max:    .double 8.0

        .data
        .p2align 3
        .globl cepis__default_client
        .hidden cepis__default_client
cepis__default_client:
        .quad   0
cepis__seed_counter:
        .quad   0

        .section .note.GNU-stack,"",@progbits