// File: sighingnow[P]compile-pascal/pl0_parser.cpp
// Function: pl0_const_stmt_fn(input_t*)
pair<int, pl0_ast_const_stmt *> pl0_const_stmt_fn(input_t *text) {
    auto parser = pl0_string_literal("const") >> (pl0_const_define % pl0_character(',')) << pl0_character(';');
    auto res = (spaces >> parser << spaces)(text);
    if (verbose) {
        cout << "parsing: Constant Statement" << endl;
    }
    return make_pair(std::get<0>(res), new pl0_ast_const_stmt(text->locate(), std::get<1>(res)));
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x7c0, %rsp            # imm = 0x7C0
movq %rdi, -0x18(%rbp)
leaq -0x279(%rbp), %rdi
movq %rdi, -0x790(%rbp)
callq 0x55d0
movq -0x790(%rbp), %rdx
leaq 0xe1125(%rip), %rsi     # 0xeff75
leaq -0x278(%rbp), %rdi
callq 0x19840
jmp 0xee5e
leaq -0x258(%rbp), %rdi
leaq -0x278(%rbp), %rsi
callq 0xa6a0
jmp 0xee73
movb $0x2c, -0x369(%rbp)
leaq -0x368(%rbp), %rdi
leaq -0x369(%rbp), %rsi
callq 0xa240
jmp 0xee8f
leaq 0x150cb2(%rip), %rsi    # 0x15fb48
leaq -0x320(%rbp), %rdi
leaq -0x368(%rbp), %rdx
callq 0x20040
jmp 0xeeab
leaq -0x210(%rbp), %rdi
leaq -0x258(%rbp), %rsi
leaq -0x320(%rbp), %rdx
callq 0x20000
jmp 0xeec7
movb $0x3b, -0x3b9(%rbp)
leaq -0x3b8(%rbp), %rdi
leaq -0x3b9(%rbp), %rsi
callq 0xa240
jmp 0xeee3
leaq -0x138(%rbp), %rdi
leaq -0x210(%rbp), %rsi
leaq -0x3b8(%rbp), %rdx
callq 0x1ffc0
jmp 0xeeff
leaq -0x3b8(%rbp), %rdi
callq 0x19a20
leaq -0x210(%rbp), %rdi
callq 0x20080
leaq -0x320(%rbp), %rdi
callq 0x200b0
leaq -0x368(%rbp), %rdi
callq 0x19a20
leaq -0x258(%rbp), %rdi
callq 0x1d950
leaq -0x278(%rbp), %rdi
callq 0x5200
leaq -0x279(%rbp), %rdi
callq 0x53c0
leaq 0x150876(%rip), %rsi    # 0x15f7d0
leaq -0x778(%rbp), %rdi
leaq -0x138(%rbp), %rdx
callq 0x20120
jmp 0xef6f
leaq 0x15085a(%rip), %rdx    # 0x15f7d0
leaq -0x5f0(%rbp), %rdi
leaq -0x778(%rbp), %rsi
callq 0x200e0
jmp 0xef8b
movq -0x18(%rbp), %rdx
leaq -0x400(%rbp), %rdi
leaq -0x5f0(%rbp), %rsi
callq 0x20160
jmp 0xefa4
leaq -0x5f0(%rbp), %rdi
callq 0x20550
leaq -0x778(%rbp), %rdi
callq 0x20580
testb $0x1, 0x150875(%rip)    # 0x15f838
je 0xf159
movq 0x150008(%rip), %rdi    # 0x15efd8
leaq 0xe0329(%rip), %rsi     # 0xef300
callq 0x5330
movq %rax, -0x798(%rbp)
jmp 0xefe5
movq -0x798(%rbp), %rdi
movq 0x14ffcd(%rip), %rsi    # 0x15efc0
callq 0x53a0
jmp 0xeffa
jmp 0xf159
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf0d7
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf0cb
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf0bf
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf0b3
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf0a7
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf09b
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
leaq -0x3b8(%rbp), %rdi
callq 0x19a20
leaq -0x210(%rbp), %rdi
callq 0x20080
leaq -0x320(%rbp), %rdi
callq 0x200b0
leaq -0x368(%rbp), %rdi
callq 0x19a20
leaq -0x258(%rbp), %rdi
callq 0x1d950
leaq -0x278(%rbp), %rdi
callq 0x5200
leaq -0x279(%rbp), %rdi
callq 0x53c0
jmp 0xf26a
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf25e
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf131
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
leaq -0x5f0(%rbp), %rdi
callq 0x20550
leaq -0x778(%rbp), %rdi
callq 0x20580
jmp 0xf25e
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
jmp 0xf252
leaq -0x400(%rbp), %rdi
callq 0x205e0
movq %rax, -0x7a8(%rbp)
movl $0x20, %edi
callq 0x5340
movq %rax, -0x7a0(%rbp)
jmp 0xf17f
movq -0x18(%rbp), %rdi
callq 0x1a350
movq %rax, -0x7b0(%rbp)
jmp 0xf191
movq -0x7b0(%rbp), %rax
movq %rax, -0x788(%rbp)
leaq -0x400(%rbp), %rdi
callq 0x20600
movq -0x7a0(%rbp), %rdi
movq %rax, %rdx
movq -0x788(%rbp), %rsi
callq 0x20620
jmp 0xf1c3
movq -0x7a8(%rbp), %rdi
movq -0x7a0(%rbp), %rax
movq %rax, -0x780(%rbp)
leaq -0x780(%rbp), %rsi
callq 0x205b0
movq %rdx, -0x7c0(%rbp)
movl %eax, -0x7b4(%rbp)
jmp 0xf1f3
movq -0x7c0(%rbp), %rax
movl -0x7b4(%rbp), %ecx
movl %ecx, -0x10(%rbp)
movq %rax, -0x8(%rbp)
leaq -0x400(%rbp), %rdi
callq 0x20660
leaq -0x138(%rbp), %rdi
callq 0x20680
movl -0x10(%rbp), %eax
movq -0x8(%rbp), %rdx
addq $0x7c0, %rsp            # imm = 0x7C0
popq %rbp
retq
movq -0x7a0(%rbp), %rdi
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x288(%rbp)
movl %eax, -0x28c(%rbp)
movl $0x20, %esi
callq 0x5350
leaq -0x400(%rbp), %rdi
callq 0x20660
leaq -0x138(%rbp), %rdi
callq 0x20680
movq -0x288(%rbp), %rdi
callq 0x55b0
nopw %cs:(%rax,%rax)