	.file	"977544.c"
	.intel_syntax noprefix
	.text
	.local	falseobj
	.comm	falseobj,8,8
	.local	trueobj
	.comm	trueobj,8,8
	.section	.rodata
.LC0:
	.string	"ERROR: Memory exhausted\n"
	.text
	.globl	mkobject
	.type	mkobject, @function
mkobject:
.LFB6:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	edi, 16
	call	malloc@PLT
	mov	QWORD PTR -8[rbp], rax
	cmp	QWORD PTR -8[rbp], 0
	je	.L2
	mov	rax, QWORD PTR -8[rbp]
	jmp	.L4
.L2:
	mov	rax, QWORD PTR stderr[rip]
	mov	rcx, rax
	mov	edx, 24
	mov	esi, 1
	lea	rdi, .LC0[rip]
	call	fwrite@PLT
	mov	edi, -4
	call	exit@PLT
.L4:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE6:
	.size	mkobject, .-mkobject
	.globl	mkfixnum
	.type	mkfixnum, @function
mkfixnum:
.LFB7:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	call	mkobject
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
	mov	DWORD PTR [rax], 1
	mov	rax, QWORD PTR -8[rbp]
	mov	rdx, QWORD PTR -24[rbp]
	mov	QWORD PTR 8[rax], rdx
	mov	rax, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE7:
	.size	mkfixnum, .-mkfixnum
	.globl	initialize
	.type	initialize, @function
initialize:
.LFB8:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	call	mkobject
	mov	QWORD PTR falseobj[rip], rax
	mov	rax, QWORD PTR falseobj[rip]
	mov	DWORD PTR [rax], 0
	mov	rax, QWORD PTR falseobj[rip]
	mov	DWORD PTR 8[rax], 0
	call	mkobject
	mov	QWORD PTR trueobj[rip], rax
	mov	rax, QWORD PTR trueobj[rip]
	mov	DWORD PTR [rax], 0
	mov	rax, QWORD PTR trueobj[rip]
	mov	DWORD PTR 8[rax], 1
	nop
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE8:
	.size	initialize, .-initialize
	.globl	isdelimiter
	.type	isdelimiter, @function
isdelimiter:
.LFB9:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	DWORD PTR -4[rbp], edi
	call	__ctype_b_loc@PLT
	mov	rdx, QWORD PTR [rax]
	mov	eax, DWORD PTR -4[rbp]
	cdqe
	add	rax, rax
	add	rax, rdx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 8192
	test	eax, eax
	jne	.L9
	cmp	DWORD PTR -4[rbp], -1
	je	.L9
	cmp	DWORD PTR -4[rbp], 40
	je	.L9
	cmp	DWORD PTR -4[rbp], 41
	je	.L9
	cmp	DWORD PTR -4[rbp], 34
	je	.L9
	cmp	DWORD PTR -4[rbp], 59
	jne	.L10
.L9:
	mov	eax, 1
	jmp	.L11
.L10:
	mov	eax, 0
.L11:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE9:
	.size	isdelimiter, .-isdelimiter
	.globl	peek
	.type	peek, @function
peek:
.LFB10:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -4[rbp], eax
	mov	rdx, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR -4[rbp]
	mov	rsi, rdx
	mov	edi, eax
	call	ungetc@PLT
	mov	eax, DWORD PTR -4[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE10:
	.size	peek, .-peek
	.globl	clspace
	.type	clspace, @function
clspace:
.LFB11:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	QWORD PTR -24[rbp], rdi
	jmp	.L16
.L22:
	call	__ctype_b_loc@PLT
	mov	rdx, QWORD PTR [rax]
	mov	eax, DWORD PTR -4[rbp]
	cdqe
	add	rax, rax
	add	rax, rdx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 8192
	test	eax, eax
	je	.L17
	jmp	.L16
.L17:
	cmp	DWORD PTR -4[rbp], 59
	jne	.L18
	jmp	.L19
.L20:
	nop
.L19:
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -4[rbp], eax
	cmp	DWORD PTR -4[rbp], -1
	je	.L18
	cmp	DWORD PTR -4[rbp], 10
	jne	.L20
.L18:
	mov	rdx, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR -4[rbp]
	mov	rsi, rdx
	mov	edi, eax
	call	ungetc@PLT
	jmp	.L21
.L16:
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -4[rbp], eax
	cmp	DWORD PTR -4[rbp], -1
	jne	.L22
	nop
.L21:
	nop
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE11:
	.size	clspace, .-clspace
	.section	.rodata
	.align 8
.LC1:
	.string	"ERROR: Unknown boolean literal\n"
	.align 8
.LC2:
	.string	"ERROR: Fixnum not followed by delimiter\n"
.LC3:
	.string	"Unexcepted input `%d'\n"
	.text
	.globl	iread
	.type	iread, @function
iread:
.LFB12:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	rbx
	sub	rsp, 40
	.cfi_offset 3, -24
	mov	QWORD PTR -40[rbp], rdi
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	clspace
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -28[rbp], eax
	cmp	DWORD PTR -28[rbp], -1
	jne	.L24
	mov	eax, 0
	jmp	.L25
.L24:
	mov	WORD PTR -30[rbp], 1
	mov	QWORD PTR -24[rbp], 0
	cmp	DWORD PTR -28[rbp], 35
	jne	.L26
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -28[rbp], eax
	mov	eax, DWORD PTR -28[rbp]
	or	eax, 32
	cmp	eax, 102
	je	.L27
	cmp	eax, 116
	jne	.L28
	mov	rax, QWORD PTR trueobj[rip]
	jmp	.L25
.L27:
	mov	rax, QWORD PTR falseobj[rip]
	jmp	.L25
.L28:
	mov	rax, QWORD PTR stderr[rip]
	mov	rcx, rax
	mov	edx, 31
	mov	esi, 1
	lea	rdi, .LC1[rip]
	call	fwrite@PLT
	mov	edi, 1
	call	exit@PLT
.L26:
	call	__ctype_b_loc@PLT
	mov	rdx, QWORD PTR [rax]
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	add	rax, rax
	add	rax, rdx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 2048
	test	eax, eax
	jne	.L29
	cmp	DWORD PTR -28[rbp], 45
	jne	.L30
	call	__ctype_b_loc@PLT
	mov	rbx, QWORD PTR [rax]
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	peek
	cdqe
	add	rax, rax
	add	rax, rbx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 2048
	test	eax, eax
	jne	.L29
.L30:
	cmp	DWORD PTR -28[rbp], 43
	jne	.L31
	call	__ctype_b_loc@PLT
	mov	rbx, QWORD PTR [rax]
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	peek
	cdqe
	add	rax, rax
	add	rax, rbx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 2048
	test	eax, eax
	je	.L31
.L29:
	cmp	DWORD PTR -28[rbp], 45
	jne	.L32
	mov	WORD PTR -30[rbp], -1
	jmp	.L34
.L32:
	cmp	DWORD PTR -28[rbp], 43
	je	.L34
	mov	rdx, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR -28[rbp]
	mov	rsi, rdx
	mov	edi, eax
	call	ungetc@PLT
	jmp	.L34
.L35:
	mov	rdx, QWORD PTR -24[rbp]
	mov	rax, rdx
	sal	rax, 2
	add	rax, rdx
	add	rax, rax
	mov	rdx, rax
	mov	eax, DWORD PTR -28[rbp]
	sub	eax, 48
	cdqe
	add	rax, rdx
	mov	QWORD PTR -24[rbp], rax
.L34:
	call	__ctype_b_loc@PLT
	mov	rbx, QWORD PTR [rax]
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	getc@PLT
	mov	DWORD PTR -28[rbp], eax
	mov	eax, DWORD PTR -28[rbp]
	cdqe
	add	rax, rax
	add	rax, rbx
	movzx	eax, WORD PTR [rax]
	movzx	eax, ax
	and	eax, 2048
	test	eax, eax
	jne	.L35
	movsx	rax, WORD PTR -30[rbp]
	mov	rdx, QWORD PTR -24[rbp]
	imul	rax, rdx
	mov	QWORD PTR -24[rbp], rax
	mov	eax, DWORD PTR -28[rbp]
	mov	edi, eax
	call	isdelimiter
	test	eax, eax
	jne	.L36
	mov	rax, QWORD PTR stderr[rip]
	mov	rcx, rax
	mov	edx, 40
	mov	esi, 1
	lea	rdi, .LC2[rip]
	call	fwrite@PLT
	mov	edi, -2
	call	exit@PLT
.L36:
	mov	rdx, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR -28[rbp]
	mov	rsi, rdx
	mov	edi, eax
	call	ungetc@PLT
	cmp	DWORD PTR -28[rbp], 10
	je	.L37
	mov	rax, QWORD PTR -40[rbp]
	mov	rdi, rax
	call	clspace
.L37:
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	mkfixnum
	jmp	.L25
.L31:
	mov	rax, QWORD PTR stderr[rip]
	mov	edx, DWORD PTR -28[rbp]
	lea	rsi, .LC3[rip]
	mov	rdi, rax
	mov	eax, 0
	call	fprintf@PLT
	mov	edi, -3
	call	exit@PLT
.L25:
	mov	rbx, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE12:
	.size	iread, .-iread
	.globl	eval
	.type	eval, @function
eval:
.LFB13:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	QWORD PTR -8[rbp], rdi
	mov	rax, QWORD PTR -8[rbp]
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE13:
	.size	eval, .-eval
	.section	.rodata
.LC4:
	.string	"#%c"
.LC5:
	.string	"%ld"
.LC6:
	.string	"ERROR: Unknown type id %d\n"
	.text
	.globl	iwrite
	.type	iwrite, @function
iwrite:
.LFB14:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	QWORD PTR -8[rbp], rdi
	cmp	QWORD PTR -8[rbp], 0
	je	.L49
	mov	rax, QWORD PTR -8[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	je	.L43
	cmp	eax, 1
	je	.L44
	jmp	.L48
.L43:
	mov	rax, QWORD PTR trueobj[rip]
	cmp	QWORD PTR -8[rbp], rax
	jne	.L46
	mov	eax, 116
	jmp	.L47
.L46:
	mov	eax, 102
.L47:
	mov	esi, eax
	lea	rdi, .LC4[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L40
.L44:
	mov	rax, QWORD PTR -8[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC5[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L40
.L48:
	mov	rax, QWORD PTR -8[rbp]
	mov	edx, DWORD PTR [rax]
	mov	rax, QWORD PTR stderr[rip]
	lea	rsi, .LC6[rip]
	mov	rdi, rax
	mov	eax, 0
	call	fprintf@PLT
	mov	edi, -1
	call	exit@PLT
.L49:
	nop
.L40:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE14:
	.size	iwrite, .-iwrite
	.section	.rodata
.LC7:
	.string	"v0.2"
	.align 8
.LC8:
	.string	"Bootstrap Scheme %s  CTRL+C to quit.\n"
.LC9:
	.string	"> "
.LC10:
	.string	""
	.text
	.globl	main
	.type	main, @function
main:
.LFB15:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	lea	rsi, .LC7[rip]
	lea	rdi, .LC8[rip]
	mov	eax, 0
	call	printf@PLT
	call	initialize
.L51:
	lea	rdi, .LC9[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rax, QWORD PTR stdin[rip]
	mov	rdi, rax
	call	iread
	mov	rdi, rax
	call	eval
	mov	rdi, rax
	call	iwrite
	lea	rdi, .LC10[rip]
	call	puts@PLT
	jmp	.L51
	.cfi_endproc
.LFE15:
	.size	main, .-main
	.ident	"GCC: (Ubuntu 10.5.0-1ubuntu1~20.04) 10.5.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	 1f - 0f
	.long	 4f - 1f
	.long	 5
0:
	.string	 "GNU"
1:
	.align 8
	.long	 0xc0000002
	.long	 3f - 2f
2:
	.long	 0x3
3:
	.align 8
4:

	.arch armv5t
	.eabi_attribute 20, 1
	.eabi_attribute 21, 1
	.eabi_attribute 23, 3
	.eabi_attribute 24, 1
	.eabi_attribute 25, 1
	.eabi_attribute 26, 2
	.eabi_attribute 30, 6
	.eabi_attribute 34, 0
	.eabi_attribute 18, 4
	.file	"977544.c"
	.text
	.local	falseobj
	.comm	falseobj,4,4
	.local	trueobj
	.comm	trueobj,4,4
	.section	.rodata
	.align	2
.LC0:
	.ascii	"ERROR: Memory exhausted\012\000"
	.text
	.align	2
	.global	mkobject
	.syntax unified
	.arm
	.fpu softvfp
	.type	mkobject, %function
mkobject:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	mov	r0, #8
	bl	malloc
	mov	r3, r0
	str	r3, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmp	r3, #0
	beq	.L2
	ldr	r3, [fp, #-8]
	b	.L4
.L2:
	ldr	r3, .L5
	ldr	r3, [r3]
	mov	r2, #24
	mov	r1, #1
	ldr	r0, .L5+4
	bl	fwrite
	mvn	r0, #3
	bl	exit
.L4:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L6:
	.align	2
.L5:
	.word	stderr
	.word	.LC0
	.size	mkobject, .-mkobject
	.align	2
	.global	mkfixnum
	.syntax unified
	.arm
	.fpu softvfp
	.type	mkfixnum, %function
mkfixnum:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	bl	mkobject
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	mov	r2, #1
	str	r2, [r3]
	ldr	r3, [fp, #-8]
	ldr	r2, [fp, #-16]
	str	r2, [r3, #4]
	ldr	r3, [fp, #-8]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	mkfixnum, .-mkfixnum
	.align	2
	.global	initialize
	.syntax unified
	.arm
	.fpu softvfp
	.type	initialize, %function
initialize:
	@ args = 0, pretend = 0, frame = 0
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	bl	mkobject
	mov	r3, r0
	ldr	r2, .L10
	str	r3, [r2]
	ldr	r3, .L10
	ldr	r3, [r3]
	mov	r2, #0
	str	r2, [r3]
	ldr	r3, .L10
	ldr	r3, [r3]
	mov	r2, #0
	str	r2, [r3, #4]
	bl	mkobject
	mov	r3, r0
	ldr	r2, .L10+4
	str	r3, [r2]
	ldr	r3, .L10+4
	ldr	r3, [r3]
	mov	r2, #0
	str	r2, [r3]
	ldr	r3, .L10+4
	ldr	r3, [r3]
	mov	r2, #1
	str	r2, [r3, #4]
	nop
	pop	{fp, pc}
.L11:
	.align	2
.L10:
	.word	falseobj
	.word	trueobj
	.size	initialize, .-initialize
	.align	2
	.global	isdelimiter
	.syntax unified
	.arm
	.fpu softvfp
	.type	isdelimiter, %function
isdelimiter:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	str	r0, [fp, #-8]
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r2, [r3]
	ldr	r3, [fp, #-8]
	lsl	r3, r3, #1
	add	r3, r2, r3
	ldrh	r3, [r3]
	and	r3, r3, #8192
	cmp	r3, #0
	bne	.L13
	ldr	r3, [fp, #-8]
	cmn	r3, #1
	beq	.L13
	ldr	r3, [fp, #-8]
	cmp	r3, #40
	beq	.L13
	ldr	r3, [fp, #-8]
	cmp	r3, #41
	beq	.L13
	ldr	r3, [fp, #-8]
	cmp	r3, #34
	beq	.L13
	ldr	r3, [fp, #-8]
	cmp	r3, #59
	bne	.L14
.L13:
	mov	r3, #1
	b	.L15
.L14:
	mov	r3, #0
.L15:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	isdelimiter, .-isdelimiter
	.align	2
	.global	peek
	.syntax unified
	.arm
	.fpu softvfp
	.type	peek, %function
peek:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	ldr	r0, [fp, #-16]
	bl	getc
	str	r0, [fp, #-8]
	ldr	r1, [fp, #-16]
	ldr	r0, [fp, #-8]
	bl	ungetc
	ldr	r3, [fp, #-8]
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	peek, .-peek
	.align	2
	.global	clspace
	.syntax unified
	.arm
	.fpu softvfp
	.type	clspace, %function
clspace:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	str	r0, [fp, #-16]
	b	.L20
.L26:
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r2, [r3]
	ldr	r3, [fp, #-8]
	lsl	r3, r3, #1
	add	r3, r2, r3
	ldrh	r3, [r3]
	and	r3, r3, #8192
	cmp	r3, #0
	beq	.L21
	b	.L20
.L21:
	ldr	r3, [fp, #-8]
	cmp	r3, #59
	bne	.L22
	b	.L23
.L24:
	nop
.L23:
	ldr	r0, [fp, #-16]
	bl	getc
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmn	r3, #1
	beq	.L22
	ldr	r3, [fp, #-8]
	cmp	r3, #10
	bne	.L24
.L22:
	ldr	r1, [fp, #-16]
	ldr	r0, [fp, #-8]
	bl	ungetc
	b	.L25
.L20:
	ldr	r0, [fp, #-16]
	bl	getc
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmn	r3, #1
	bne	.L26
	nop
.L25:
	nop
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	clspace, .-clspace
	.section	.rodata
	.align	2
.LC1:
	.ascii	"ERROR: Unknown boolean literal\012\000"
	.align	2
.LC2:
	.ascii	"ERROR: Fixnum not followed by delimiter\012\000"
	.align	2
.LC3:
	.ascii	"Unexcepted input `%d'\012\000"
	.text
	.align	2
	.global	iread
	.syntax unified
	.arm
	.fpu softvfp
	.type	iread, %function
iread:
	@ args = 0, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, fp, lr}
	add	fp, sp, #8
	sub	sp, sp, #28
	str	r0, [fp, #-32]
	ldr	r0, [fp, #-32]
	bl	clspace
	ldr	r0, [fp, #-32]
	bl	getc
	str	r0, [fp, #-16]
	ldr	r3, [fp, #-16]
	cmn	r3, #1
	bne	.L28
	mov	r3, #0
	b	.L29
.L28:
	mov	r3, #1
	strh	r3, [fp, #-22]	@ movhi
	mov	r3, #0
	str	r3, [fp, #-20]
	ldr	r3, [fp, #-16]
	cmp	r3, #35
	bne	.L30
	ldr	r0, [fp, #-32]
	bl	getc
	str	r0, [fp, #-16]
	ldr	r3, [fp, #-16]
	orr	r3, r3, #32
	cmp	r3, #102
	beq	.L31
	cmp	r3, #116
	bne	.L32
	ldr	r3, .L42
	ldr	r3, [r3]
	b	.L29
.L31:
	ldr	r3, .L42+4
	ldr	r3, [r3]
	b	.L29
.L32:
	ldr	r3, .L42+8
	ldr	r3, [r3]
	mov	r2, #31
	mov	r1, #1
	ldr	r0, .L42+12
	bl	fwrite
	mov	r0, #1
	bl	exit
.L30:
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r2, [r3]
	ldr	r3, [fp, #-16]
	lsl	r3, r3, #1
	add	r3, r2, r3
	ldrh	r3, [r3]
	and	r3, r3, #2048
	cmp	r3, #0
	bne	.L33
	ldr	r3, [fp, #-16]
	cmp	r3, #45
	bne	.L34
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r4, [r3]
	ldr	r0, [fp, #-32]
	bl	peek
	mov	r3, r0
	lsl	r3, r3, #1
	add	r3, r4, r3
	ldrh	r3, [r3]
	and	r3, r3, #2048
	cmp	r3, #0
	bne	.L33
.L34:
	ldr	r3, [fp, #-16]
	cmp	r3, #43
	bne	.L35
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r4, [r3]
	ldr	r0, [fp, #-32]
	bl	peek
	mov	r3, r0
	lsl	r3, r3, #1
	add	r3, r4, r3
	ldrh	r3, [r3]
	and	r3, r3, #2048
	cmp	r3, #0
	beq	.L35
.L33:
	ldr	r3, [fp, #-16]
	cmp	r3, #45
	bne	.L36
	mvn	r3, #0
	strh	r3, [fp, #-22]	@ movhi
	b	.L38
.L36:
	ldr	r3, [fp, #-16]
	cmp	r3, #43
	beq	.L38
	ldr	r1, [fp, #-32]
	ldr	r0, [fp, #-16]
	bl	ungetc
	b	.L38
.L39:
	ldr	r2, [fp, #-20]
	mov	r3, r2
	lsl	r3, r3, #2
	add	r3, r3, r2
	lsl	r3, r3, #1
	mov	r2, r3
	ldr	r3, [fp, #-16]
	sub	r3, r3, #48
	add	r3, r2, r3
	str	r3, [fp, #-20]
.L38:
	bl	__ctype_b_loc
	mov	r3, r0
	ldr	r4, [r3]
	ldr	r0, [fp, #-32]
	bl	getc
	str	r0, [fp, #-16]
	ldr	r3, [fp, #-16]
	lsl	r3, r3, #1
	add	r3, r4, r3
	ldrh	r3, [r3]
	and	r3, r3, #2048
	cmp	r3, #0
	bne	.L39
	ldrsh	r2, [fp, #-22]
	ldr	r3, [fp, #-20]
	mul	r3, r2, r3
	str	r3, [fp, #-20]
	ldr	r0, [fp, #-16]
	bl	isdelimiter
	mov	r3, r0
	cmp	r3, #0
	bne	.L40
	ldr	r3, .L42+8
	ldr	r3, [r3]
	mov	r2, #40
	mov	r1, #1
	ldr	r0, .L42+16
	bl	fwrite
	mvn	r0, #1
	bl	exit
.L40:
	ldr	r1, [fp, #-32]
	ldr	r0, [fp, #-16]
	bl	ungetc
	ldr	r3, [fp, #-16]
	cmp	r3, #10
	beq	.L41
	ldr	r0, [fp, #-32]
	bl	clspace
.L41:
	ldr	r0, [fp, #-20]
	bl	mkfixnum
	mov	r3, r0
	b	.L29
.L35:
	ldr	r3, .L42+8
	ldr	r3, [r3]
	ldr	r2, [fp, #-16]
	ldr	r1, .L42+20
	mov	r0, r3
	bl	fprintf
	mvn	r0, #2
	bl	exit
.L29:
	mov	r0, r3
	sub	sp, fp, #8
	@ sp needed
	pop	{r4, fp, pc}
.L43:
	.align	2
.L42:
	.word	trueobj
	.word	falseobj
	.word	stderr
	.word	.LC1
	.word	.LC2
	.word	.LC3
	.size	iread, .-iread
	.align	2
	.global	eval
	.syntax unified
	.arm
	.fpu softvfp
	.type	eval, %function
eval:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	@ link register save eliminated.
	str	fp, [sp, #-4]!
	add	fp, sp, #0
	sub	sp, sp, #12
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	mov	r0, r3
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
	.size	eval, .-eval
	.section	.rodata
	.align	2
.LC4:
	.ascii	"#%c\000"
	.align	2
.LC5:
	.ascii	"%ld\000"
	.align	2
.LC6:
	.ascii	"ERROR: Unknown type id %d\012\000"
	.text
	.align	2
	.global	iwrite
	.syntax unified
	.arm
	.fpu softvfp
	.type	iwrite, %function
iwrite:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmp	r3, #0
	beq	.L55
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L49
	cmp	r3, #1
	beq	.L50
	b	.L54
.L49:
	ldr	r3, .L56
	ldr	r3, [r3]
	ldr	r2, [fp, #-8]
	cmp	r2, r3
	bne	.L52
	mov	r3, #116
	b	.L53
.L52:
	mov	r3, #102
.L53:
	mov	r1, r3
	ldr	r0, .L56+4
	bl	printf
	b	.L46
.L50:
	ldr	r3, [fp, #-8]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L56+8
	bl	printf
	b	.L46
.L54:
	ldr	r3, .L56+12
	ldr	r0, [r3]
	ldr	r3, [fp, #-8]
	ldr	r3, [r3]
	mov	r2, r3
	ldr	r1, .L56+16
	bl	fprintf
	mvn	r0, #0
	bl	exit
.L55:
	nop
.L46:
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L57:
	.align	2
.L56:
	.word	trueobj
	.word	.LC4
	.word	.LC5
	.word	stderr
	.word	.LC6
	.size	iwrite, .-iwrite
	.section	.rodata
	.align	2
.LC7:
	.ascii	"v0.2\000"
	.align	2
.LC8:
	.ascii	"Bootstrap Scheme %s  CTRL+C to quit.\012\000"
	.align	2
.LC9:
	.ascii	"> \000"
	.align	2
.LC10:
	.ascii	"\000"
	.text
	.align	2
	.global	main
	.syntax unified
	.arm
	.fpu softvfp
	.type	main, %function
main:
	@ args = 0, pretend = 0, frame = 0
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	ldr	r1, .L60
	ldr	r0, .L60+4
	bl	printf
	bl	initialize
.L59:
	ldr	r0, .L60+8
	bl	printf
	ldr	r3, .L60+12
	ldr	r3, [r3]
	mov	r0, r3
	bl	iread
	mov	r3, r0
	mov	r0, r3
	bl	eval
	mov	r3, r0
	mov	r0, r3
	bl	iwrite
	ldr	r0, .L60+16
	bl	puts
	b	.L59
.L61:
	.align	2
.L60:
	.word	.LC7
	.word	.LC8
	.word	.LC9
	.word	stdin
	.word	.LC10
	.size	main, .-main
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
