	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.p2align	4, 0x90                         ## -- Begin function forth_ping
_forth_ping:                            ## @forth_ping
	.cfi_startproc
## %bb.0:
	pushq	%rbp
	.cfi_def_cfa_offset 16
	.cfi_offset %rbp, -16
	movq	%rsp, %rbp
	.cfi_def_cfa_register %rbp
	pushq	%r15
	pushq	%r14
	pushq	%r12
	pushq	%rbx
	subq	$16, %rsp
	.cfi_offset %rbx, -48
	.cfi_offset %r12, -40
	.cfi_offset %r14, -32
	.cfi_offset %r15, -24
	movq	%rsi, %rbx
	movl	(%rsi), %r14d
	leaq	L_.str(%rip), %rdx
	leaq	-40(%rbp), %rsi
	movq	%rbx, %rdi
	callq	_pop_str
	testl	%eax, %eax
	je	LBB0_1
## %bb.2:
	movq	-40(%rbp), %rdi
	callq	_strlen
	movq	_MaxTextExtent@GOTPCREL(%rip), %rcx
	cmpl	(%rcx), %eax
	jge	LBB0_3
## %bb.4:
	leaq	-44(%rbp), %r15
	movq	%r15, %rdi
	callq	_GetExceptionInfo
	xorl	%edi, %edi
	callq	_CloneImageInfo
	movq	%rax, %r12
	movl	(%rax), %edi
	movq	-40(%rbp), %rsi
	callq	_strcpy
	movq	%r12, %rdi
	movq	%r15, %rsi
	callq	_PingImage
	movq	%rax, %r15
	movq	%r12, %rdi
	callq	_DestroyImageInfo
	testq	%r15, %r15
	je	LBB0_5
## %bb.6:
	movl	(%rbx), %esi
	incl	%esi
	movq	%rbx, %rdi
	movl	%r14d, %edx
	callq	_free_stack
	movq	%rbx, %rdi
	movq	%r15, %rsi
	callq	_push_image
                                        ## implicit-def: $rax
	jmp	LBB0_7
LBB0_1:
	movl	%r14d, (%rbx)
	movq	_FORTH_FAIL@GOTPCREL(%rip), %rax
	movq	(%rax), %rax
	jmp	LBB0_7
LBB0_3:
	leaq	L_.str.1(%rip), %rsi
	movq	%rbx, %rdi
	xorl	%eax, %eax
	callq	_failf
	jmp	LBB0_7
LBB0_5:
	movl	%r14d, (%rbx)
	leaq	-44(%rbp), %r14
	movq	%r14, %rdi
	callq	_CatchException
	movq	%r14, %rdi
	callq	_DestroyExceptionInfo
	movq	-40(%rbp), %rdx
	leaq	L_.str.2(%rip), %rsi
	movq	%rbx, %rdi
	xorl	%eax, %eax
	callq	_failf
LBB0_7:
	addq	$16, %rsp
	popq	%rbx
	popq	%r12
	popq	%r14
	popq	%r15
	popq	%rbp
	retq
	.cfi_endproc
                                        ## -- End function
	.section	__TEXT,__cstring,cstring_literals
L_.str:                                 ## @.str
	.asciz	"ping: 1st isn't str"

	.comm	_FORTH_FAIL,8,3                 ## @FORTH_FAIL
	.comm	_MaxTextExtent,4,2              ## @MaxTextExtent
L_.str.1:                               ## @.str.1
	.asciz	"ping: filename too long"

L_.str.2:                               ## @.str.2
	.asciz	"ping: PingImage (%s) throws exception"

	.comm	_NEXT,4,2                       ## @NEXT
	.no_dead_strip	_forth_ping
.subsections_via_symbols

	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.p2align	2                               ; -- Begin function forth_ping
_forth_ping:                            ; @forth_ping
	.cfi_startproc
; %bb.0:
	sub	sp, sp, #80
	.cfi_def_cfa_offset 80
	stp	x22, x21, [sp, #32]             ; 16-byte Folded Spill
	stp	x20, x19, [sp, #48]             ; 16-byte Folded Spill
	stp	x29, x30, [sp, #64]             ; 16-byte Folded Spill
	add	x29, sp, #64
	.cfi_def_cfa w29, 16
	.cfi_offset w30, -8
	.cfi_offset w29, -16
	.cfi_offset w19, -24
	.cfi_offset w20, -32
	.cfi_offset w21, -40
	.cfi_offset w22, -48
	mov	x19, x1
	ldr	w20, [x1]
Lloh0:
	adrp	x2, l_.str@PAGE
Lloh1:
	add	x2, x2, l_.str@PAGEOFF
	add	x1, sp, #24
	mov	x0, x19
	bl	_pop_str
	cbz	w0, LBB0_4
; %bb.1:
	ldr	x0, [sp, #24]
	bl	_strlen
Lloh2:
	adrp	x8, _MaxTextExtent@GOTPAGE
Lloh3:
	ldr	x8, [x8, _MaxTextExtent@GOTPAGEOFF]
Lloh4:
	ldr	w8, [x8]
	cmp	w0, w8
	b.ge	LBB0_5
; %bb.2:
	add	x0, sp, #20
	bl	_GetExceptionInfo
	mov	x0, #0
	bl	_CloneImageInfo
	mov	x22, x0
	ldr	w0, [x0]
	ldr	x1, [sp, #24]
	bl	_strcpy
	add	x1, sp, #20
	mov	x0, x22
	bl	_PingImage
	mov	x21, x0
	mov	x0, x22
	bl	_DestroyImageInfo
	cbz	x21, LBB0_6
; %bb.3:
	ldr	w8, [x19]
	add	w1, w8, #1
	mov	x0, x19
	mov	x2, x20
	bl	_free_stack
	mov	x0, x19
	mov	x1, x21
	bl	_push_image
                                        ; implicit-def: $x0
	b	LBB0_8
LBB0_4:
	str	w20, [x19]
Lloh5:
	adrp	x8, _FORTH_FAIL@GOTPAGE
Lloh6:
	ldr	x8, [x8, _FORTH_FAIL@GOTPAGEOFF]
Lloh7:
	ldr	x0, [x8]
	b	LBB0_8
LBB0_5:
Lloh8:
	adrp	x1, l_.str.1@PAGE
Lloh9:
	add	x1, x1, l_.str.1@PAGEOFF
	b	LBB0_7
LBB0_6:
	str	w20, [x19]
	add	x0, sp, #20
	bl	_CatchException
	add	x0, sp, #20
	bl	_DestroyExceptionInfo
	ldr	x8, [sp, #24]
	str	x8, [sp]
Lloh10:
	adrp	x1, l_.str.2@PAGE
Lloh11:
	add	x1, x1, l_.str.2@PAGEOFF
LBB0_7:
	mov	x0, x19
	bl	_failf
LBB0_8:
	ldp	x29, x30, [sp, #64]             ; 16-byte Folded Reload
	ldp	x20, x19, [sp, #48]             ; 16-byte Folded Reload
	ldp	x22, x21, [sp, #32]             ; 16-byte Folded Reload
	add	sp, sp, #80
	ret
	.loh AdrpAdd	Lloh0, Lloh1
	.loh AdrpLdrGotLdr	Lloh2, Lloh3, Lloh4
	.loh AdrpLdrGotLdr	Lloh5, Lloh6, Lloh7
	.loh AdrpAdd	Lloh8, Lloh9
	.loh AdrpAdd	Lloh10, Lloh11
	.cfi_endproc
                                        ; -- End function
	.section	__TEXT,__cstring,cstring_literals
l_.str:                                 ; @.str
	.asciz	"ping: 1st isn't str"

	.comm	_FORTH_FAIL,8,3                 ; @FORTH_FAIL
	.comm	_MaxTextExtent,4,2              ; @MaxTextExtent
l_.str.1:                               ; @.str.1
	.asciz	"ping: filename too long"

l_.str.2:                               ; @.str.2
	.asciz	"ping: PingImage (%s) throws exception"

	.comm	_NEXT,4,2                       ; @NEXT
	.no_dead_strip	_forth_ping
.subsections_via_symbols
