// File: /workspace/github_c_makefile_star2_O0/jsummers[P]deark/modules/bintext.c
// Function: de_run_artworx_adf
static void de_run_artworx_adf(deark *c, de_module_params *mparams)
{
	lctx *d = NULL;
	struct de_char_context *charctx = NULL;
	i64 data_start;
	i64 data_len;

	d = de_malloc(c, sizeof(lctx));

	// TODO: ADF files can probably have SAUCE records, so we should read
	// the SAUCE data if present. But there does not seem to be a defined
	// SAUCE file type for ADF.

	charctx = de_create_charctx(c, 0);
	charctx->prefer_image_output = 1;

	data_start = 1+192+4096;
	data_len = c->infile->len - data_start;
	if(data_len<0) goto done;

	d->csctx.width_in_chars = 80;
	d->csctx.height_in_chars = data_len / (d->csctx.width_in_chars*2);

	de_dbg(c, "guessed width: %d chars", (int)d->csctx.width_in_chars);
	de_dbg(c, "calculated height: %d chars", (int)d->csctx.height_in_chars);
	if(d->csctx.height_in_chars<1) goto done;
	d->has_palette = 0;
	d->has_font = 1;
	d->compression = 0;
	d->has_512chars = 0;
	d->csctx.nonblink = 1;

	do_read_palette(c, d, charctx, 1, 1);

	{
		// TODO: This duplicates a lot of the xbin code.

		d->font = de_create_bitmap_font(c);
		d->font->has_nonunicode_codepoints = 1;
		d->font->has_unicode_codepoints = 1;
		d->font->prefer_unicode = 0;
		d->font->num_chars = 256;
		d->font_height = 16;
		d->font_data_len = d->font->num_chars * d->font_height;

		do_read_font_data(c, d, 1+192);

		if(d->is_standard_font) {
			charctx->suppress_custom_font_warning = 1;
		}

		if(!do_generate_font(c, d)) goto done;

		if(c->extract_level>=2) {
			do_extract_font(c, d);
		}

		charctx->font = d->font;
	}

	d->csctx.inf = c->infile;
	d->csctx.inf_pos = data_start;
	d->csctx.inf_len = data_len;
	fmtutil_char_simple_run(c, &d->csctx, charctx);

done:
	de_free_charctx(c, charctx);
	free_lctx(c, d);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq $0x0, -0x18(%rbp)
movq $0x0, -0x20(%rbp)
movq -0x8(%rbp), %rdi
movl $0x70, %esi
callq 0x15b780
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rdi
xorl %esi, %esi
callq 0x16d7b0
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
movb $0x1, (%rax)
movq $0x10c1, -0x28(%rbp)    # imm = 0x10C1
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rax
movq 0x18(%rax), %rax
subq -0x28(%rbp), %rax
movq %rax, -0x30(%rbp)
cmpq $0x0, -0x30(%rbp)
jge 0x3f440
jmp 0x3f607
movq -0x18(%rbp), %rax
movq $0x50, 0x50(%rax)
movq -0x30(%rbp), %rax
movq -0x18(%rbp), %rcx
movq 0x50(%rcx), %rcx
shlq %rcx
cqto
idivq %rcx
movq %rax, %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x58(%rax)
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rax
movq 0x50(%rax), %rax
movl %eax, %edx
leaq 0x163d21(%rip), %rsi    # 0x1a31a1
movb $0x0, %al
callq 0x15b0d0
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rax
movq 0x58(%rax), %rax
movl %eax, %edx
leaq 0x163cc1(%rip), %rsi    # 0x1a315d
movb $0x0, %al
callq 0x15b0d0
movq -0x18(%rbp), %rax
cmpq $0x1, 0x58(%rax)
jge 0x3f4b3
jmp 0x3f607
movq -0x18(%rbp), %rax
movb $0x0, 0x2(%rax)
movq -0x18(%rbp), %rax
movb $0x1, 0x3(%rax)
movq -0x18(%rbp), %rax
movb $0x0, 0x4(%rax)
movq -0x18(%rbp), %rax
movb $0x0, 0x5(%rax)
movq -0x18(%rbp), %rax
movb $0x1, 0x4d(%rax)
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x20(%rbp), %rdx
movl $0x1, %ecx
movl $0x1, %r8d
callq 0x40a90
movq -0x8(%rbp), %rdi
callq 0x16f6f0
movq %rax, %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x28(%rax)
movq -0x18(%rbp), %rax
movq 0x28(%rax), %rax
movb $0x1, 0x10(%rax)
movq -0x18(%rbp), %rax
movq 0x28(%rax), %rax
movb $0x1, 0x11(%rax)
movq -0x18(%rbp), %rax
movq 0x28(%rax), %rax
movb $0x0, 0x12(%rax)
movq -0x18(%rbp), %rax
movq 0x28(%rax), %rax
movq $0x100, 0x18(%rax)      # imm = 0x100
movq -0x18(%rbp), %rax
movq $0x10, 0x8(%rax)
movq -0x18(%rbp), %rax
movq 0x28(%rax), %rax
movq 0x18(%rax), %rcx
movq -0x18(%rbp), %rax
imulq 0x8(%rax), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x10(%rax)
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
movl $0xc1, %edx
callq 0x40c20
movq -0x18(%rbp), %rax
cmpl $0x0, 0x20(%rax)
je 0x3f58c
movq -0x20(%rbp), %rax
movb $0x1, 0x4(%rax)
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
callq 0x40d90
cmpl $0x0, %eax
jne 0x3f5a0
jmp 0x3f607
movq -0x8(%rbp), %rax
cmpl $0x2, 0x90(%rax)
jl 0x3f5ba
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
callq 0x40fa0
movq -0x18(%rbp), %rax
movq 0x28(%rax), %rcx
movq -0x20(%rbp), %rax
movq %rcx, 0x60(%rax)
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x30(%rax)
movq -0x28(%rbp), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x38(%rax)
movq -0x30(%rbp), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x40(%rax)
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
addq $0x30, %rsi
movq -0x20(%rbp), %rdx
callq 0x176610
movq -0x8(%rbp), %rdi
movq -0x20(%rbp), %rsi
callq 0x16d960
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
callq 0x41280
addq $0x30, %rsp
popq %rbp
retq
nopw (%rax,%rax)