	.file	"92503.c"
	.intel_syntax noprefix
	.text
	.section	.rodata
	.align 8
.LC0:
	.string	"Copen: File = %s\nFortran Unit = %d\n"
.LC1:
	.string	"UNIX File descriptor: %d\n\n"
	.align 8
.LC2:
	.string	"Error opening %s  Error status: %d\n"
.LC3:
	.string	"copen.c"
	.text
	.globl	copen
	.type	copen, @function
copen:
.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, 208
	mov	QWORD PTR -168[rbp], rdi
	mov	QWORD PTR -176[rbp], rsi
	mov	QWORD PTR -184[rbp], rdx
	mov	QWORD PTR -192[rbp], rcx
	mov	QWORD PTR -200[rbp], r8
	mov	QWORD PTR -208[rbp], r9
	mov	rax, QWORD PTR fs:40
	mov	QWORD PTR -8[rbp], rax
	xor	eax, eax
	mov	rax, QWORD PTR -208[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	jle	.L2
	mov	rax, QWORD PTR -168[rbp]
	mov	edx, DWORD PTR [rax]
	mov	rax, QWORD PTR -184[rbp]
	mov	rsi, rax
	lea	rdi, .LC0[rip]
	mov	eax, 0
	call	printf@PLT
.L2:
	mov	DWORD PTR -148[rbp], 0
	jmp	.L3
.L5:
	mov	eax, DWORD PTR -148[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -184[rbp]
	add	rax, rdx
	movzx	edx, BYTE PTR [rax]
	mov	eax, DWORD PTR -148[rbp]
	cdqe
	mov	BYTE PTR -144[rbp+rax], dl
	add	DWORD PTR -148[rbp], 1
.L3:
	mov	eax, DWORD PTR -148[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -184[rbp]
	add	rax, rdx
	movzx	eax, BYTE PTR [rax]
	cmp	al, 32
	je	.L4
	mov	eax, DWORD PTR -148[rbp]
	movsx	rdx, eax
	mov	rax, QWORD PTR -184[rbp]
	add	rax, rdx
	movzx	eax, BYTE PTR [rax]
	test	al, al
	je	.L4
	cmp	DWORD PTR -148[rbp], 132
	jle	.L5
.L4:
	mov	eax, DWORD PTR -148[rbp]
	cdqe
	mov	BYTE PTR -144[rbp+rax], 0
	mov	rax, QWORD PTR -192[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	jne	.L6
	lea	rax, -144[rbp]
	mov	esi, 511
	mov	rdi, rax
	call	creat@PLT
	mov	DWORD PTR -152[rbp], eax
	jmp	.L7
.L6:
	mov	rax, QWORD PTR -192[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 1
	jne	.L8
	lea	rax, -144[rbp]
	mov	esi, 0
	mov	rdi, rax
	mov	eax, 0
	call	open@PLT
	mov	DWORD PTR -152[rbp], eax
	jmp	.L7
.L8:
	lea	rax, -144[rbp]
	mov	esi, 2
	mov	rdi, rax
	mov	eax, 0
	call	open@PLT
	mov	DWORD PTR -152[rbp], eax
.L7:
	mov	rax, QWORD PTR -208[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	jle	.L9
	mov	eax, DWORD PTR -152[rbp]
	mov	esi, eax
	lea	rdi, .LC1[rip]
	mov	eax, 0
	call	printf@PLT
.L9:
	mov	rax, QWORD PTR -200[rbp]
	mov	DWORD PTR [rax], 0
	cmp	DWORD PTR -152[rbp], -1
	jne	.L10
	mov	rax, QWORD PTR -208[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	js	.L11
	call	__errno_location@PLT
	mov	edx, DWORD PTR [rax]
	lea	rax, -144[rbp]
	mov	rsi, rax
	lea	rdi, .LC2[rip]
	mov	eax, 0
	call	printf@PLT
	lea	rdi, .LC3[rip]
	call	perror@PLT
.L11:
	call	__errno_location@PLT
	mov	edx, DWORD PTR [rax]
	mov	rax, QWORD PTR -200[rbp]
	mov	DWORD PTR [rax], edx
.L10:
	mov	rax, QWORD PTR -176[rbp]
	mov	edx, DWORD PTR -152[rbp]
	mov	DWORD PTR [rax], edx
	mov	eax, 0
	mov	rcx, QWORD PTR -8[rbp]
	sub	rcx, QWORD PTR fs:40
	je	.L13
	call	__stack_chk_fail@PLT
.L13:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE6:
	.size	copen, .-copen
	.section	.rodata
.LC4:
	.string	" lseek return=%d, *mode=%d\n"
	.text
	.globl	bnseek
	.type	bnseek, @function
bnseek:
.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, 64
	mov	QWORD PTR -40[rbp], rdi
	mov	QWORD PTR -48[rbp], rsi
	mov	QWORD PTR -56[rbp], rdx
	mov	QWORD PTR -64[rbp], rcx
	mov	rax, QWORD PTR -56[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	jne	.L15
	mov	DWORD PTR -20[rbp], 1
	jmp	.L16
.L15:
	mov	rax, QWORD PTR -56[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	jns	.L17
	mov	DWORD PTR -20[rbp], 0
	jmp	.L16
.L17:
	mov	DWORD PTR -20[rbp], 2
.L16:
	mov	rax, QWORD PTR -48[rbp]
	mov	eax, DWORD PTR [rax]
	cdqe
	mov	QWORD PTR -16[rbp], rax
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edx, DWORD PTR -20[rbp]
	mov	rcx, QWORD PTR -16[rbp]
	mov	rsi, rcx
	mov	edi, eax
	call	lseek@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -64[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	je	.L18
	mov	rax, QWORD PTR -56[rbp]
	mov	edx, DWORD PTR [rax]
	mov	rax, QWORD PTR -8[rbp]
	mov	rsi, rax
	lea	rdi, .LC4[rip]
	mov	eax, 0
	call	printf@PLT
.L18:
	mov	eax, 0
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE7:
	.size	bnseek, .-bnseek
	.section	.rodata
.LC5:
	.string	"Error reading C unit %d\n"
.LC6:
	.string	"bnread.c"
.LC7:
	.string	"End of file on C unit %d\n"
	.text
	.globl	bnread
	.type	bnread, @function
bnread:
.LFB8:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 64
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	QWORD PTR -40[rbp], rdx
	mov	QWORD PTR -48[rbp], rcx
	mov	QWORD PTR -56[rbp], r8
	mov	QWORD PTR -64[rbp], r9
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	movsx	rdx, eax
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	rcx, QWORD PTR -32[rbp]
	mov	rsi, rcx
	mov	edi, eax
	call	read@PLT
	mov	DWORD PTR -4[rbp], eax
	cmp	DWORD PTR -4[rbp], -1
	jne	.L21
	mov	rax, QWORD PTR -64[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	je	.L22
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	esi, eax
	lea	rdi, .LC5[rip]
	mov	eax, 0
	call	printf@PLT
.L22:
	lea	rdi, .LC6[rip]
	call	perror@PLT
	mov	rax, QWORD PTR -56[rbp]
	mov	DWORD PTR [rax], 2
	jmp	.L23
.L21:
	cmp	DWORD PTR -4[rbp], 0
	jne	.L24
	mov	rax, QWORD PTR -64[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	je	.L25
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	esi, eax
	lea	rdi, .LC7[rip]
	mov	eax, 0
	call	printf@PLT
.L25:
	mov	rax, QWORD PTR -56[rbp]
	mov	DWORD PTR [rax], 1
	jmp	.L23
.L24:
	mov	rax, QWORD PTR -56[rbp]
	mov	DWORD PTR [rax], 0
.L23:
	mov	rax, QWORD PTR -48[rbp]
	mov	edx, DWORD PTR -4[rbp]
	mov	DWORD PTR [rax], edx
	mov	eax, 0
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE8:
	.size	bnread, .-bnread
	.section	.rodata
.LC8:
	.string	"Error writing C unit %d\n"
.LC9:
	.string	"bnwrit.c"
	.text
	.globl	bnwrit_
	.type	bnwrit_, @function
bnwrit_:
.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, 64
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	QWORD PTR -40[rbp], rdx
	mov	QWORD PTR -48[rbp], rcx
	mov	QWORD PTR -56[rbp], r8
	mov	QWORD PTR -64[rbp], r9
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	movsx	rdx, eax
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	rcx, QWORD PTR -32[rbp]
	mov	rsi, rcx
	mov	edi, eax
	call	write@PLT
	mov	DWORD PTR -4[rbp], eax
	mov	rax, QWORD PTR -56[rbp]
	mov	DWORD PTR [rax], 0
	cmp	DWORD PTR -4[rbp], -1
	jne	.L28
	mov	rax, QWORD PTR -64[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	je	.L29
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	esi, eax
	lea	rdi, .LC8[rip]
	mov	eax, 0
	call	printf@PLT
.L29:
	lea	rdi, .LC9[rip]
	call	perror@PLT
	call	__errno_location@PLT
	mov	edx, DWORD PTR [rax]
	mov	rax, QWORD PTR -56[rbp]
	mov	DWORD PTR [rax], edx
.L28:
	mov	rax, QWORD PTR -48[rbp]
	mov	edx, DWORD PTR -4[rbp]
	mov	DWORD PTR [rax], edx
	mov	eax, 0
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE9:
	.size	bnwrit_, .-bnwrit_
	.section	.rodata
	.align 8
.LC10:
	.string	"\n *** CCLOSE : Closing file descriptor: NUNIT = %d \n"
	.align 8
.LC11:
	.string	" *** CCLOSE successful: File descriptor: NUNIT = %d \n"
	.align 8
.LC12:
	.string	"CCLOSE error: %d : File descriptor NUNIT = %d \n"
	.text
	.globl	cclose
	.type	cclose, @function
cclose:
.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, 48
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	QWORD PTR -40[rbp], rdx
	mov	rax, QWORD PTR -32[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	je	.L32
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	esi, eax
	lea	rdi, .LC10[rip]
	mov	eax, 0
	call	printf@PLT
.L32:
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	edi, eax
	call	close@PLT
	mov	DWORD PTR -4[rbp], eax
	cmp	DWORD PTR -4[rbp], 0
	jne	.L33
	mov	rax, QWORD PTR -32[rbp]
	mov	eax, DWORD PTR [rax]
	test	eax, eax
	je	.L34
	mov	rax, QWORD PTR -24[rbp]
	mov	eax, DWORD PTR [rax]
	mov	esi, eax
	lea	rdi, .LC11[rip]
	mov	eax, 0
	call	printf@PLT
	jmp	.L34
.L33:
	mov	rax, QWORD PTR -24[rbp]
	mov	edx, DWORD PTR [rax]
	mov	eax, DWORD PTR -4[rbp]
	mov	esi, eax
	lea	rdi, .LC12[rip]
	mov	eax, 0
	call	printf@PLT
.L34:
	mov	rax, QWORD PTR -40[rbp]
	mov	edx, DWORD PTR -4[rbp]
	mov	DWORD PTR [rax], edx
	mov	eax, 0
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE10:
	.size	cclose, .-cclose
	.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	"92503.c"
	.text
	.section	.rodata
	.align	2
.LC0:
	.ascii	"Copen: File = %s\012Fortran Unit = %d\012\000"
	.align	2
.LC1:
	.ascii	"UNIX File descriptor: %d\012\012\000"
	.align	2
.LC2:
	.ascii	"Error opening %s  Error status: %d\012\000"
	.align	2
.LC3:
	.ascii	"copen.c\000"
	.align	2
.LC4:
	.word	__stack_chk_guard
	.text
	.align	2
	.global	copen
	.syntax unified
	.arm
	.fpu softvfp
	.type	copen, %function
copen:
	@ args = 8, pretend = 0, frame = 176
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #176
	str	r0, [fp, #-160]
	str	r1, [fp, #-164]
	str	r2, [fp, #-168]
	str	r3, [fp, #-172]
	ldr	r3, [fp, #4]
	str	r3, [fp, #-176]
	ldr	r3, [fp, #8]
	str	r3, [fp, #-180]
	ldr	r3, .L14
	ldr	r3, [r3]
	str	r3, [fp, #-8]
	mov	r3,#0
	ldr	r3, [fp, #-180]
	ldr	r3, [r3]
	cmp	r3, #0
	ble	.L2
	ldr	r3, [fp, #-160]
	ldr	r3, [r3]
	mov	r2, r3
	ldr	r1, [fp, #-168]
	ldr	r0, .L14+4
	bl	printf
.L2:
	mov	r3, #0
	str	r3, [fp, #-148]
	b	.L3
.L5:
	ldr	r3, [fp, #-148]
	ldr	r2, [fp, #-168]
	add	r3, r2, r3
	ldrb	r1, [r3]	@ zero_extendqisi2
	sub	r2, fp, #144
	ldr	r3, [fp, #-148]
	add	r3, r2, r3
	mov	r2, r1
	strb	r2, [r3]
	ldr	r3, [fp, #-148]
	add	r3, r3, #1
	str	r3, [fp, #-148]
.L3:
	ldr	r3, [fp, #-148]
	ldr	r2, [fp, #-168]
	add	r3, r2, r3
	ldrb	r3, [r3]	@ zero_extendqisi2
	cmp	r3, #32
	beq	.L4
	ldr	r3, [fp, #-148]
	ldr	r2, [fp, #-168]
	add	r3, r2, r3
	ldrb	r3, [r3]	@ zero_extendqisi2
	cmp	r3, #0
	beq	.L4
	ldr	r3, [fp, #-148]
	cmp	r3, #132
	ble	.L5
.L4:
	sub	r2, fp, #144
	ldr	r3, [fp, #-148]
	add	r3, r2, r3
	mov	r2, #0
	strb	r2, [r3]
	ldr	r3, [fp, #-172]
	ldr	r3, [r3]
	cmp	r3, #0
	bne	.L6
	sub	r3, fp, #144
	ldr	r1, .L14+8
	mov	r0, r3
	bl	creat
	str	r0, [fp, #-152]
	b	.L7
.L6:
	ldr	r3, [fp, #-172]
	ldr	r3, [r3]
	cmp	r3, #1
	bne	.L8
	sub	r3, fp, #144
	mov	r1, #0
	mov	r0, r3
	bl	open
	str	r0, [fp, #-152]
	b	.L7
.L8:
	sub	r3, fp, #144
	mov	r1, #2
	mov	r0, r3
	bl	open
	str	r0, [fp, #-152]
.L7:
	ldr	r3, [fp, #-180]
	ldr	r3, [r3]
	cmp	r3, #0
	ble	.L9
	ldr	r1, [fp, #-152]
	ldr	r0, .L14+12
	bl	printf
.L9:
	ldr	r3, [fp, #-176]
	mov	r2, #0
	str	r2, [r3]
	ldr	r3, [fp, #-152]
	cmn	r3, #1
	bne	.L10
	ldr	r3, [fp, #-180]
	ldr	r3, [r3]
	cmp	r3, #0
	blt	.L11
	bl	__errno_location
	mov	r3, r0
	ldr	r2, [r3]
	sub	r3, fp, #144
	mov	r1, r3
	ldr	r0, .L14+16
	bl	printf
	ldr	r0, .L14+20
	bl	perror
.L11:
	bl	__errno_location
	mov	r3, r0
	ldr	r2, [r3]
	ldr	r3, [fp, #-176]
	str	r2, [r3]
.L10:
	ldr	r3, [fp, #-164]
	ldr	r2, [fp, #-152]
	str	r2, [r3]
	mov	r3, #0
	ldr	r2, .L14
	ldr	r1, [r2]
	ldr	r2, [fp, #-8]
	eors	r1, r2, r1
	mov	r2, #0
	beq	.L13
	bl	__stack_chk_fail
.L13:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L15:
	.align	2
.L14:
	.word	.LC4
	.word	.LC0
	.word	511
	.word	.LC1
	.word	.LC2
	.word	.LC3
	.size	copen, .-copen
	.section	.rodata
	.align	2
.LC5:
	.ascii	" lseek return=%d, *mode=%d\012\000"
	.text
	.align	2
	.global	bnseek
	.syntax unified
	.arm
	.fpu softvfp
	.type	bnseek, %function
bnseek:
	@ args = 0, pretend = 0, frame = 32
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #32
	str	r0, [fp, #-24]
	str	r1, [fp, #-28]
	str	r2, [fp, #-32]
	str	r3, [fp, #-36]
	ldr	r3, [fp, #-32]
	ldr	r3, [r3]
	cmp	r3, #0
	bne	.L17
	mov	r3, #1
	str	r3, [fp, #-16]
	b	.L18
.L17:
	ldr	r3, [fp, #-32]
	ldr	r3, [r3]
	cmp	r3, #0
	bge	.L19
	mov	r3, #0
	str	r3, [fp, #-16]
	b	.L18
.L19:
	mov	r3, #2
	str	r3, [fp, #-16]
.L18:
	ldr	r3, [fp, #-28]
	ldr	r3, [r3]
	str	r3, [fp, #-12]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	ldr	r2, [fp, #-16]
	ldr	r1, [fp, #-12]
	mov	r0, r3
	bl	lseek
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-36]
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L20
	ldr	r3, [fp, #-32]
	ldr	r3, [r3]
	mov	r2, r3
	ldr	r1, [fp, #-8]
	ldr	r0, .L22
	bl	printf
.L20:
	mov	r3, #0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L23:
	.align	2
.L22:
	.word	.LC5
	.size	bnseek, .-bnseek
	.section	.rodata
	.align	2
.LC6:
	.ascii	"Error reading C unit %d\012\000"
	.align	2
.LC7:
	.ascii	"bnread.c\000"
	.align	2
.LC8:
	.ascii	"End of file on C unit %d\012\000"
	.text
	.align	2
	.global	bnread
	.syntax unified
	.arm
	.fpu softvfp
	.type	bnread, %function
bnread:
	@ args = 8, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	str	r2, [fp, #-24]
	str	r3, [fp, #-28]
	ldr	r3, [fp, #-16]
	ldr	r0, [r3]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	mov	r2, r3
	ldr	r1, [fp, #-20]
	bl	read
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmn	r3, #1
	bne	.L25
	ldr	r3, [fp, #8]
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L26
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, .L31
	bl	printf
.L26:
	ldr	r0, .L31+4
	bl	perror
	ldr	r3, [fp, #4]
	mov	r2, #2
	str	r2, [r3]
	b	.L27
.L25:
	ldr	r3, [fp, #-8]
	cmp	r3, #0
	bne	.L28
	ldr	r3, [fp, #8]
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L29
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, .L31+8
	bl	printf
.L29:
	ldr	r3, [fp, #4]
	mov	r2, #1
	str	r2, [r3]
	b	.L27
.L28:
	ldr	r3, [fp, #4]
	mov	r2, #0
	str	r2, [r3]
.L27:
	ldr	r3, [fp, #-28]
	ldr	r2, [fp, #-8]
	str	r2, [r3]
	mov	r3, #0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L32:
	.align	2
.L31:
	.word	.LC6
	.word	.LC7
	.word	.LC8
	.size	bnread, .-bnread
	.section	.rodata
	.align	2
.LC9:
	.ascii	"Error writing C unit %d\012\000"
	.align	2
.LC10:
	.ascii	"bnwrit.c\000"
	.text
	.align	2
	.global	bnwrit_
	.syntax unified
	.arm
	.fpu softvfp
	.type	bnwrit_, %function
bnwrit_:
	@ args = 8, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	str	r2, [fp, #-24]
	str	r3, [fp, #-28]
	ldr	r3, [fp, #-16]
	ldr	r0, [r3]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	mov	r2, r3
	ldr	r1, [fp, #-20]
	bl	write
	str	r0, [fp, #-8]
	ldr	r3, [fp, #4]
	mov	r2, #0
	str	r2, [r3]
	ldr	r3, [fp, #-8]
	cmn	r3, #1
	bne	.L34
	ldr	r3, [fp, #8]
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L35
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, .L37
	bl	printf
.L35:
	ldr	r0, .L37+4
	bl	perror
	bl	__errno_location
	mov	r3, r0
	ldr	r2, [r3]
	ldr	r3, [fp, #4]
	str	r2, [r3]
.L34:
	ldr	r3, [fp, #-28]
	ldr	r2, [fp, #-8]
	str	r2, [r3]
	mov	r3, #0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L38:
	.align	2
.L37:
	.word	.LC9
	.word	.LC10
	.size	bnwrit_, .-bnwrit_
	.section	.rodata
	.align	2
.LC11:
	.ascii	"\012 *** CCLOSE : Closing file descriptor: NUNIT = "
	.ascii	"%d \012\000"
	.align	2
.LC12:
	.ascii	" *** CCLOSE successful: File descriptor: NUNIT = %d"
	.ascii	" \012\000"
	.align	2
.LC13:
	.ascii	"CCLOSE error: %d : File descriptor NUNIT = %d \012\000"
	.text
	.align	2
	.global	cclose
	.syntax unified
	.arm
	.fpu softvfp
	.type	cclose, %function
cclose:
	@ args = 0, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	str	r2, [fp, #-24]
	ldr	r3, [fp, #-20]
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L40
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, .L44
	bl	printf
.L40:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r0, r3
	bl	close
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	cmp	r3, #0
	bne	.L41
	ldr	r3, [fp, #-20]
	ldr	r3, [r3]
	cmp	r3, #0
	beq	.L42
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, .L44+4
	bl	printf
	b	.L42
.L41:
	ldr	r3, [fp, #-16]
	ldr	r3, [r3]
	mov	r2, r3
	ldr	r1, [fp, #-8]
	ldr	r0, .L44+8
	bl	printf
.L42:
	ldr	r3, [fp, #-24]
	ldr	r2, [fp, #-8]
	str	r2, [r3]
	mov	r3, #0
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L45:
	.align	2
.L44:
	.word	.LC11
	.word	.LC12
	.word	.LC13
	.size	cclose, .-cclose
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
