// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: read_double_quote
static void read_double_quote(s7_scheme *sc)
                {
                    sc->value = read_string_constant(sc, sc->input_port);
                    if (sc->value == sc->F)                                /* can happen if input code ends in the middle of a string */
                        string_read_error(sc, "end of input encountered while in a string");
                    if (sc->value == sc->T)
                        read_error(sc, "unknown backslash usage -- perhaps you meant two backslashes?");
                    if (sc->safety > IMMUTABLE_VECTOR_SAFETY) set_immutable(sc->value);
                }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x170(%rdi), %r14
movq 0x8(%r14), %rax
cmpl $0x1, 0x4(%rax)
jne 0xcbea9
movq 0x10(%r14), %r13
movq 0x20(%r14), %r12
cmpb $0x22, (%r13,%r12)
jne 0xcbd93
incq %r12
movq %r12, 0x20(%r14)
movq %rbx, %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0xeab0
movq %rax, %r13
jmp 0xcc2d7
leaq (%r12,%r13), %rdi
movq 0x18(%r14), %r15
addq %r15, %r13
leaq 0x4d98a(%rip), %rsi     # 0x11972f
movq %rdi, (%rsp)
callq 0x84f0
movq %rax, %rbp
testq %rax, %rax
setne %al
cmpq %r13, %rbp
setb %cl
testb %cl, %al
je 0xcbe56
movb (%rbp), %al
cmpb $0x22, %al
jne 0xcbe6e
movq (%rsp), %r15
subq %r15, %rbp
leaq 0x1(%rbp), %rsi
leaq (%r12,%rbp), %rax
incq %rax
movq %rax, 0x20(%r14)
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xcbe0b
movq %rbx, %rdi
movq %rsi, %r14
callq 0xa550
movq %r14, %rsi
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r13
movq $0x200013, (%r13)       # imm = 0x200013
movq %rbx, %rdi
callq 0x9357
movq %rax, 0x20(%r13)
movq (%rax), %rdi
movq %rdi, 0x10(%r13)
testq %rbp, %rbp
jle 0xcbe49
movq %r15, %rsi
movq %rbp, %rdx
callq 0x83e0
movq 0x10(%r13), %rdi
movb $0x0, (%rdi,%rbp)
movq %rbp, 0x8(%r13)
jmp 0xcc26a
movq 0x4b0(%rbx), %rdi
subq %r12, %r15
jne 0xcc2af
movb $0x0, (%rdi)
jmp 0xcc2c5
movq %rbp, %r12
movq (%rsp), %rsi
subq %rsi, %r12
incq %rbp
cmpb $0xa, %al
je 0xcbe95
movzbl %al, %eax
cmpl $0x5c, %eax
je 0xcc358
cmpl $0x22, %eax
jne 0xcbe9c
jmp 0xcc33a
movq 0x8(%r14), %rax
incl 0x20(%rax)
cmpq %r13, %rbp
jae 0xcbea9
movb (%rbp), %al
incq %r12
jmp 0xcbe78
xorl %r12d, %r12d
leaq 0x4d880(%rip), %r15     # 0x119733
movq 0x8(%r14), %rax
movq 0x48(%rax), %rax
movq %rbx, %rdi
movq %r14, %rsi
callq *(%rax)
cmpl $0x21, %eax
jg 0xcbee2
cmpl $0xa, %eax
jne 0xcbf1b
movq 0x8(%r14), %rax
incl 0x20(%rax)
movq 0x4b0(%rbx), %rax
movb $0xa, (%rax,%r12)
jmp 0xcbf39
cmpl $0x5c, %eax
jne 0xcbf25
movq %r14, %rdi
callq 0x91aef
movl %eax, %ebp
cmpl $0x65, %eax
jg 0xcbf59
cmpl $0x2e, %ebp
jg 0xcbf83
cmpl $0xc, %ebp
jle 0xcbfcb
cmpl $0xd, %ebp
je 0xcbf3c
cmpl $0x22, %ebp
je 0xcbfbb
jmp 0xcbfdd
cmpl $-0x1, %eax
jne 0xcbf2e
jmp 0xcc1db
cmpl $0x22, %eax
je 0xcc1f8
movq 0x4b0(%rbx), %rcx
movb %al, (%rcx,%r12)
incq %r12
cmpq 0x4a8(%rbx), %r12
jl 0xcbeb3
movq %rbx, %rdi
movq %r12, %rsi
callq 0x93c9f
jmp 0xcbeb3
cmpl $0x73, %ebp
jg 0xcbfa4
cmpl $0x66, %ebp
je 0xcc0d5
cmpl $0x6e, %ebp
je 0xcbed4
cmpl $0x72, %ebp
jne 0xcbfdd
movq 0x4b0(%rbx), %rax
movb $0xd, (%rax,%r12)
jmp 0xcbf39
cmpl $0x2f, %ebp
je 0xcc0c4
cmpl $0x5c, %ebp
je 0xcbfbb
cmpl $0x62, %ebp
jne 0xcbfdd
movq 0x4b0(%rbx), %rax
movb $0x8, (%rax,%r12)
jmp 0xcbf39
cmpl $0x74, %ebp
je 0xcc0e6
cmpl $0x78, %ebp
je 0xcc0f7
cmpl $0x7c, %ebp
jne 0xcbfdd
movq 0x4b0(%rbx), %rax
movb %bpl, (%rax,%r12)
jmp 0xcbf39
cmpl $0xa, %ebp
je 0xcbf3c
cmpl $-0x1, %ebp
je 0xcc1db
movq 0x210(%rbx), %r13
movq 0x18e0(%rbx), %rsi
movq 0x18(%r13), %rdx
movq %rbx, %rdi
callq 0xbe9a
cmpb $0x1, (%rax)
jne 0xcc09e
movq 0x120(%rbx), %rdi
movq 0x7ea4a(%rip), %rax     # 0x14aa58
movzbl %bpl, %ecx
movq (%rax,%rcx,8), %rbp
movq 0x90(%rbx), %rax
movq 0x110(%rbx), %r15
cmpq 0x98(%rbx), %rax
ja 0xcc044
movq %rdi, (%rsp)
movq %rbx, %rdi
callq 0xa550
movq (%rsp), %rdi
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movl $0x200001, %esi         # imm = 0x200001
movq %rsi, (%rax)
movq %rbp, 0x8(%rax)
movq %r15, 0x10(%rax)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rdx
movq %rdx, 0x90(%rbx)
movq -0x8(%rcx), %rdx
movq %rsi, (%rdx)
movq %rdi, 0x8(%rdx)
movq %rax, 0x10(%rdx)
movq %rbx, %rdi
movq %r13, %rsi
callq 0x43bf0
movq %rax, %r13
cmpb $0x8, (%rax)
leaq 0x4d697(%rip), %r15     # 0x119733
je 0xcc0b0
movq 0x118(%rbx), %r13
cmpb $0x8, (%r13)
jne 0xcc2d7
movb 0x8(%r13), %al
movq 0x4b0(%rbx), %rcx
movb %al, (%rcx,%r12)
jmp 0xcbf39
movq 0x4b0(%rbx), %rax
movb $0x2f, (%rax,%r12)
jmp 0xcbf39
movq 0x4b0(%rbx), %rax
movb $0xc, (%rax,%r12)
jmp 0xcbf39
movq 0x4b0(%rbx), %rax
movb $0x9, (%rax,%r12)
jmp 0xcbf39
movq %r12, %r13
shlq $0x20, %r13
movslq %r12d, %r12
movq %r14, %rdi
callq 0x91aef
cmpl $-0x1, %eax
je 0xcc17d
cmpl $0x3b, %eax
je 0xcc1d3
cmpl $0x22, %eax
je 0xcc1b2
movslq %eax, %rcx
leaq 0x89536(%rip), %rdx     # 0x155660
movl (%rdx,%rcx,4), %ebp
cmpl $0x10, %ebp
jge 0xcc18c
movq %r14, %rdi
callq 0x91aef
cmpl $-0x1, %eax
je 0xcc17d
cmpl $0x3b, %eax
je 0xcc1c1
cmpl $0x22, %eax
je 0xcc1a0
movslq %eax, %rcx
leaq 0x8950d(%rip), %rdx     # 0x155660
movl (%rdx,%rcx,4), %ecx
cmpl $0x10, %ecx
jge 0xcc18c
shll $0x4, %ebp
addl %ebp, %ecx
movq 0x4b0(%rbx), %rax
movb %cl, (%rax,%r12)
incq %r12
movabsq $0x100000000, %rax      # imm = 0x100000000
addq %rax, %r13
jmp 0xcc101
movq %rbx, %rdi
movq %r15, %rsi
xorl %edx, %edx
callq 0x9ce4d
jmp 0xcc1d3
movq 0x4b0(%rbx), %rcx
incq %r12
sarq $0x20, %r13
movb %al, (%rcx,%r13)
jmp 0xcc1d3
movq 0x4b0(%rbx), %rax
incq %r12
sarq $0x20, %r13
movb %bpl, (%rax,%r13)
movl $0x22, %edi
movq %r14, %rsi
callq 0xfb07
jmp 0xcc1d3
movq 0x4b0(%rbx), %rax
incq %r12
sarq $0x20, %r13
movb %bpl, (%rax,%r13)
movslq %r12d, %r12
jmp 0xcbf3c
movq 0x4b0(%rbx), %rax
cmpq $0x8, %r12
movl $0x8, %ecx
cmovlq %r12, %rcx
movb $0x0, (%rax,%rcx)
jmp 0xcc2d0
movq 0x4b0(%rbx), %r14
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xcc21e
movq %rbx, %rdi
callq 0xa550
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r13
movq $0x200013, (%r13)       # imm = 0x200013
leaq 0x1(%r12), %rsi
movq %rbx, %rdi
callq 0x9357
movq %rax, 0x20(%r13)
movq (%rax), %rdi
movq %rdi, 0x10(%r13)
testq %r12, %r12
jle 0xcc261
movq %r14, %rsi
movq %r12, %rdx
callq 0x83e0
movq 0x10(%r13), %rdi
movb $0x0, (%rdi,%r12)
movq %r12, 0x8(%r13)
movq $0x0, 0x18(%r13)
movq 0x738(%rbx), %r14
movq (%r14), %rax
movq 0x10(%r14), %rsi
cmpq 0x8(%r14), %rsi
jne 0xcc2a1
leaq (%rsi,%rsi), %rcx
movq %rcx, 0x8(%r14)
shlq $0x4, %rsi
movq %rax, %rdi
callq 0x8510
movq %rax, (%r14)
movq 0x10(%r14), %rsi
leaq 0x1(%rsi), %rcx
movq %rcx, 0x10(%r14)
movq %r13, (%rax,%rsi,8)
jmp 0xcc2d7
cmpq $0x8, %r15
movl $0x8, %edx
cmovlq %r15, %rdx
movq (%rsp), %rsi
callq 0x83e0
movq 0x4b0(%rbx), %rax
movb $0x0, 0x8(%rax)
movq 0x120(%rbx), %r13
movq %r13, 0x20(%rbx)
cmpq 0x120(%rbx), %r13
jne 0xcc2fc
leaq 0x4d3db(%rip), %rsi     # 0x1196c6
movq %rbx, %rdi
movl $0x1, %edx
callq 0x9ce4d
movq 0x20(%rbx), %r13
cmpq 0x118(%rbx), %r13
jne 0xcc316
leaq 0x4d3e5(%rip), %rsi     # 0x1196f1
movq %rbx, %rdi
xorl %edx, %edx
callq 0x9ce4d
cmpq $0x2, 0x6a0(%rbx)
jl 0xcc32b
movq 0x20(%rbx), %rax
orq $0x1000000, (%rax)      # imm = 0x1000000
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x20(%r14), %rax
addq %r12, %rax
incq %rax
movq %rax, 0x20(%r14)
movq %rbx, %rdi
movq %r12, %rdx
callq 0xe89f
jmp 0xcbd8b
testq %r12, %r12
jle 0xcbeac
cmpq 0x4a8(%rbx), %r12
jl 0xcc375
movq %rbx, %rdi
movq %r12, %rsi
callq 0x93c9f
movq 0x4b0(%rbx), %rdi
movq 0x10(%r14), %rsi
addq 0x20(%r14), %rsi
movq %r12, %rdx
callq 0x83e0
addq %r12, 0x20(%r14)
jmp 0xcbeac