// File: /workspace/github_c_makefile_star2_O2/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 0xa1766
movq 0x10(%r14), %r13
movq 0x20(%r14), %r12
cmpb $0x22, (%r13,%r12)
jne 0xa16ce
incq %r12
movq %r12, 0x20(%r14)
movq %rbx, %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0xd239
jmp 0xa1ada
leaq (%r12,%r13), %r15
movq 0x18(%r14), %rbp
addq %rbp, %r13
leaq 0x43fef(%rip), %rsi     # 0xe56cf
movq %r15, %rdi
callq 0x84f0
testq %rax, %rax
setne %cl
cmpq %r13, %rax
setb %dl
testb %dl, %cl
je 0xa1719
cmpb $0x22, (%rax)
jne 0xa1731
subq %r15, %rax
leaq (%r12,%rax), %rcx
incq %rcx
movq %rcx, 0x20(%r14)
movq %rbx, %rdi
movq %r15, %rsi
movq %rax, %rdx
jmp 0xa1aae
movq 0x4b0(%rbx), %rdi
subq %r12, %rbp
jne 0xa1ab5
movb $0x0, (%rdi)
jmp 0xa1ac8
movq %rax, %r12
subq %r15, %r12
cmpq %r13, %rax
jae 0xa1766
movzbl (%rax), %ecx
cmpl $0xa, %ecx
je 0xa1757
cmpl $0x5c, %ecx
je 0xa1b39
cmpl $0x22, %ecx
jne 0xa175e
jmp 0xa1b76
movq 0x8(%r14), %rcx
incl 0x20(%rcx)
incq %rax
incq %r12
jmp 0xa1737
xorl %r12d, %r12d
leaq 0x43f63(%rip), %rbp     # 0xe56d3
movq 0x8(%r14), %rax
movq 0x48(%rax), %rax
movq %rbx, %rdi
movq %r14, %rsi
callq *(%rax)
cmpl $0xa, %eax
je 0xa17a9
cmpl $0x5c, %eax
je 0xa17d5
cmpl $-0x1, %eax
je 0xa1a89
cmpl $0x22, %eax
je 0xa1aa1
movq 0x4b0(%rbx), %rcx
movb %al, (%rcx,%r12)
jmp 0xa17bc
movq 0x8(%r14), %rax
incl 0x20(%rax)
movq 0x4b0(%rbx), %rax
movb $0xa, (%rax,%r12)
incq %r12
cmpq 0x4a8(%rbx), %r12
jl 0xa1770
movq %rbx, %rdi
movq %r12, %rsi
callq 0x7697b
jmp 0xa1770
movq %r14, %rdi
callq 0x74d4a
cmpl $0xa, %eax
je 0xa17bf
movl %eax, %r13d
cmpl $0xd, %eax
je 0xa17bf
cmpl $0x22, %r13d
je 0xa192d
cmpl $0x2f, %r13d
je 0xa193d
cmpl $0x5c, %r13d
je 0xa192d
cmpl $0x62, %r13d
je 0xa194e
cmpl $0x66, %r13d
je 0xa19fc
cmpl $0x6e, %r13d
je 0xa17b0
cmpl $0x72, %r13d
je 0xa1a0d
cmpl $0x74, %r13d
je 0xa1a1e
cmpl $0x78, %r13d
je 0xa195f
cmpl $0x7c, %r13d
je 0xa192d
cmpl $-0x1, %r13d
je 0xa1a89
movq 0x210(%rbx), %r15
movq %rbx, %rdi
movq %r15, %rsi
callq 0x97c7
cmpb $0x1, (%rax)
jne 0xa190a
movq 0x120(%rbx), %rdi
movq 0x781db(%rip), %rax     # 0x119a58
movzbl %r13b, %ecx
movq (%rax,%rcx,8), %r13
movq 0x90(%rbx), %rax
movq 0x110(%rbx), %rbp
cmpq 0x98(%rbx), %rax
ja 0xa18b3
movq %rdi, (%rsp)
movq %rbx, %rdi
callq 0x9c27
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 %r13, 0x8(%rax)
movq %rbp, 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 %r15, %rsi
callq 0x35e2b
cmpb $0x8, (%rax)
leaq 0x43dcb(%rip), %rbp     # 0xe56d3
je 0xa191a
movq 0x118(%rbx), %rax
cmpb $0x8, (%rax)
jne 0xa1ada
movb 0x8(%rax), %al
movq 0x4b0(%rbx), %rcx
movb %al, (%rcx,%r12)
jmp 0xa17bc
movq 0x4b0(%rbx), %rax
movb %r13b, (%rax,%r12)
jmp 0xa17bc
movq 0x4b0(%rbx), %rax
movb $0x2f, (%rax,%r12)
jmp 0xa17bc
movq 0x4b0(%rbx), %rax
movb $0x8, (%rax,%r12)
jmp 0xa17bc
movq %r12, %r13
shlq $0x20, %r13
movslq %r12d, %r15
movq %r14, %rdi
callq 0x74d4a
cmpl $-0x1, %eax
je 0xa1a2f
cmpl $0x3b, %eax
je 0xa1a81
cmpl $0x22, %eax
je 0xa1a62
movslq %eax, %rcx
leaq 0x82cca(%rip), %rdx     # 0x124660
movl (%rdx,%rcx,4), %r12d
cmpl $0x10, %r12d
jge 0xa1a3c
movq %r14, %rdi
callq 0x74d4a
cmpl $-0x1, %eax
je 0xa1a2f
cmpl $0x3b, %eax
je 0xa1a6f
cmpl $0x22, %eax
je 0xa1a50
movslq %eax, %rcx
leaq 0x82c93(%rip), %rdx     # 0x124660
movl (%rdx,%rcx,4), %ecx
cmpl $0x10, %ecx
jge 0xa1a3c
shll $0x4, %r12d
addl %r12d, %ecx
movq 0x4b0(%rbx), %rax
movb %cl, (%rax,%r15)
incq %r15
movabsq $0x100000000, %rax      # imm = 0x100000000
addq %rax, %r13
jmp 0xa1969
movq 0x4b0(%rbx), %rax
movb $0xc, (%rax,%r12)
jmp 0xa17bc
movq 0x4b0(%rbx), %rax
movb $0xd, (%rax,%r12)
jmp 0xa17bc
movq 0x4b0(%rbx), %rax
movb $0x9, (%rax,%r12)
jmp 0xa17bc
movq %rbx, %rdi
movq %rbp, %rsi
callq 0x7da56
jmp 0xa1a81
movq 0x4b0(%rbx), %rcx
incq %r15
sarq $0x20, %r13
movb %al, (%rcx,%r13)
jmp 0xa1a81
movq 0x4b0(%rbx), %rax
incq %r15
sarq $0x20, %r13
movb %r12b, (%rax,%r13)
pushq $0x22
popq %rdi
movq %r14, %rsi
callq 0xdf3a
jmp 0xa1a81
movq 0x4b0(%rbx), %rax
incq %r15
sarq $0x20, %r13
movb %r12b, (%rax,%r13)
movslq %r15d, %r12
jmp 0xa17bf
movq 0x4b0(%rbx), %rax
cmpq $0x8, %r12
pushq $0x8
popq %rcx
cmovlq %r12, %rcx
movb $0x0, (%rax,%rcx)
jmp 0xa1ad3
movq 0x4b0(%rbx), %rsi
movq %rbx, %rdi
movq %r12, %rdx
callq 0xd11d
jmp 0xa1ada
cmpq $0x8, %rbp
pushq $0x8
popq %rdx
cmovlq %rbp, %rdx
movq %r15, %rsi
callq 0x83e0
movq 0x4b0(%rbx), %rax
movb $0x0, 0x8(%rax)
movq 0x120(%rbx), %rax
movq %rax, 0x20(%rbx)
cmpq 0x120(%rbx), %rax
jne 0xa1afd
leaq 0x43b78(%rip), %rsi     # 0xe5666
pushq $0x1
popq %rdx
movq %rbx, %rdi
callq 0x7db8f
movq 0x20(%rbx), %rax
cmpq 0x118(%rbx), %rax
jne 0xa1b15
leaq 0x43b84(%rip), %rsi     # 0xe5691
movq %rbx, %rdi
callq 0x7da56
cmpq $0x2, 0x6a0(%rbx)
jl 0xa1b2a
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
testq %r12, %r12
jle 0xa1769
cmpq 0x4a8(%rbx), %r12
jl 0xa1b56
movq %rbx, %rdi
movq %r12, %rsi
callq 0x7697b
movq 0x4b0(%rbx), %rdi
movq 0x10(%r14), %rsi
addq 0x20(%r14), %rsi
movq %r12, %rdx
callq 0x83e0
addq %r12, 0x20(%r14)
jmp 0xa1769
movq 0x20(%r14), %rax
addq %r12, %rax
incq %rax
movq %rax, 0x20(%r14)
movq %rbx, %rdi
movq %r15, %rsi
jmp 0xa1aab