Isolate ported 6502 code to its own file (asmcode.c).

1 files changed, 6 insertions, 673 deletions

diff --git a/src/extract.c b/src/extract.c
index 3c85142..aa7f75b 100644
--- a/src/extract.c
+++ b/src/extract.c
@@ -172,689 +172,22 @@ void extract_alf(void) {
 	}
 }
 
-static void chksum_err(void) {
+void chksum_err(void) {
 	bad_checksum = 1;
 	fprintf(stderr, "%s: checksum error on %s\n", self, out_filename);
 }
 
-void uncrunch_file(void) {
-	lda_i(0x00);
-	sta(L71AF);
-	sta(L71B0);
-	sta(outbuf_len_l);
-	sta(outbuf_len_h);
-	sta(L71B6);
-	sta(L71B7);
-	sta(L718C);
-	sta(cksum_l);
-	sta(cksum_h);
-	lda_i(0x09);
-	sta(shift_counter);
-	lda_i(0x00);
-	sta(L71AD);
-	lda_i(0x02);
-	sta(L71AE);
-	lda_i(0x00);
-	sta(stackptr_l);
-	lda_i(0x60);
-	sta(stackptr_h);
-	jsr(setup_io_bufs);
-	ldx_i(0x10);
-	lda(inbuf_adr_l);
-	sta(buf_adr_l);
-	lda(inbuf_adr_h);
-	sta(buf_adr_h);
-	lda(inbuf_len_l);
-	sta(buf_len_l);
-	lda(inbuf_len_h);
-	sta(buf_len_h);
-	jsr(L7A19);
-	sty(L718C);
-	jsr(L79E7);
-	lda(buf_len_l);
-	ora(buf_len_h);
-	bne(L75B1);
-	rts();
-
-L75B1:
-	jsr(L76D0);
-	lda(acc16_h);
-	cmp_i(0x01);
-	bne(uncrunch_blk);
-	lda(acc16_l);
-	cmp_i(0x01);
-	bne(uncrunch_blk);
-	jsr(write_output);
-	lda(alf_hdr_cksum_l);
-	cmp(cksum_l);
-	bne(print_emsg_checksum);
-	lda(alf_hdr_cksum_h);
-	cmp(cksum_h);
-	beq(cksum_ok);
-print_emsg_checksum:
-	chksum_err();
-cksum_ok:
-	rts();
-
-uncrunch_blk:
-	lda(acc16_l);
-	cmp_i(0x00);
-	bne(L760B);
-	lda(acc16_h);
-	cmp_i(0x01);
-	bne(L760B);
-	jsr(init_counters);
-	jsr(L76D0);
-	lda(acc16_l);
-	sta(L717D);
-	sta(L7179);
-	lda(acc16_h);
-	sta(L717E);
-	sta(L717A);
-	lda(acc16_l);
-	sta(L7177);
-	sta(L7178);
-	jsr(store_outbyte);
-	jmp(L75B1);
-
-L760B:
-	lda(acc16_l);
-	sta(L717D);
-	sta(L7175);
-	lda(acc16_h);
-	sta(L717E);
-	sta(L7176);
-	lda(acc16_h);
-	cmp(L717C);
-	bcc(L7641);
-	lda(acc16_l);
-	cmp(L717B);
-	bcc(L7641);
-	lda(L7179);
-	sta(acc16_l);
-	sta(L717D);
-	lda(L717A);
-	sta(acc16_h);
-	sta(L717E);
-	lda(L7178);
-	sta(acc16_l);
-	jsr(push_acc16);
-
-L7641:
-	lda(L717E);
-	beq(L7670);
-	lda(L717D);
-	sta(zp_b4);
-	lda(L717E);
-	sta(zp_b5);
-	jsr(L7899);
-	ldy_i(0x02);
-	lda_ind_y(zp_b0);
-	sta(acc16_l);
-	jsr(push_acc16);
-	ldy_i(0x00);
-	lda_ind_y(zp_b0);
-	sta(acc16_l);
-	sta(L717D);
-	iny();
-	lda_ind_y(zp_b0);
-	sta(acc16_h);
-	sta(L717E);
-	jmp(L7641);
-
-L7670:
-	lda(L717D);
-	sta(acc16_l);
-	sta(L7178);
-	sta(L7177);
-	lda(L717E);
-	sta(acc16_h);
-	jsr(push_acc16);
-L7683:
-	lda(L71AF);
-	ora(L71B0);
-	beq(L7694);
-	jsr(pop_acc16);
-	jsr(store_outbyte);
-	jmp(L7683);
-
-L7694:
-	jsr(L78C2);
-	lda(L7175);
-	sta(acc16_l);
-	sta(L7179);
-	lda(L7176);
-	sta(acc16_h);
-	sta(L717A);
-	lda(L717B);
-	sta(zp_b4);
-	lda(L717C);
-	sta(zp_b5);
-	cmp(L71AE);
-	bcc(L76CD);
-	lda(zp_b4);
-	cmp(L71AD);
-	bcc(L76CD);
-	lda(shift_counter);
-	cmp_i(0x0C);
-	beq(L76CD);
-	inc(shift_counter);
-	asl(L71AD);
-	rol(L71AE);
-L76CD:
-	jmp(L75B1);
-}
-
-void L76D0(void) {
-L76D0:
-	lda(L71B6);
-	sta(zp_b8);
-	lda(L71B7);
-	sta(zp_b9);
-	ldx_i(0x02);
-L76DC:
-	lsr(zp_b9);
-	ror(zp_b8);
-	dex();
-	bpl(L76DC);
-	lda(zp_b8);
-	sta(L71AA);
-	lda(zp_b9);
-	sta(L71AB);
-	lda(inbuf_len_l);
-	sec();
-	sbc(zp_b8);
-	sta(zp_bc);
-	lda(inbuf_len_h);
-	sbc(zp_b9);
-	sta(zp_bd);
-	lda(zp_bd);
-	bne(L770F);
-	lda(zp_bc);
-	cmp_i(0x03);
-	bcs(L770F);
-	ldx(L718C);
-	bpl(L771C);
-	cmp_i(0x02);
-	bcc(L7712);
-L770F:
-	jmp(L779B);
-/* ---------------------------------------------------------------------------- */
-L7712:
-	#if 0
-	ldx_i(0x0A);
-	ldy_i(0x0A);
-	jsr(printstr);
-	jmp(cleanup_and_exit);
-	#endif
+void unknown_err(void){
 	fprintf(stderr, "%s: unknown error (L7712)\n", self);
 	exit(1);
-/* ---------------------------------------------------------------------------- */
-L771C:
-	tay();
-	dey();
-	ldx(inbuf_adr_l);
-	stx(zp_be);
-	ldx(inbuf_adr_h);
-	stx(zp_bf);
-	lda(inbuf_adr_l);
-	clc();
-	adc(zp_b8);
-	sta(zp_b8);
-	lda(inbuf_adr_h);
-	adc(zp_b9);
-	sta(zp_b9);
-L7737:
-	lda_ind_y(zp_b8);
-	sta_ind_y(zp_be);
-	dey();
-	bpl(L7737);
-	lda(inbuf_len_l);
-	sec();
-	sbc(zp_bc);
-	sta(buf_len_l);
-	lda(inbuf_len_h);
-	sbc_i(0x00);
-	sta(buf_len_h);
-	lda(inbuf_adr_l);
-	clc();
-	adc(zp_bc);
-	sta(buf_adr_l);
-	lda(inbuf_adr_h);
-	adc_i(0x00);
-	sta(buf_adr_h);
-	ldx_i(0x10);
-	jsr(L7A19);
-	sty(L718C);
-	bpl(L7771);
-	cpy_i(0x88);
-	beq(L7771);
-	// jmp(cleanup_and_exit);
-	exit(0);
-/* ---------------------------------------------------------------------------- */
-L7771:
-	jsr(L79E7);
-	lda(L71AA);
-	sta(zp_b8);
-	lda(L71AB);
-	sta(zp_b9);
-	ldx_i(0x02);
-L7780:
-	asl(zp_b8);
-	rol(zp_b9);
-	dex();
-	bpl(L7780);
-	lda(L71B6);
-	sec();
-	sbc(zp_b8);
-	sta(L71B6);
-	lda(L71B7);
-	sbc(zp_b9);
-	sta(L71B7);
-	jmp(L76D0);
-/* ---------------------------------------------------------------------------- */
-L779B:
-	lda(zp_b8);
-	sta(zp_bc);
-	clc();
-	adc(inbuf_adr_l);
-	sta(zp_b8);
-	lda(zp_b9);
-	sta(zp_bd);
-	adc(inbuf_adr_h);
-	sta(zp_b9);
-	ldy_i(0x00);
-	lda(L71B6);
-	and_i(0x07);
-	bne(L77E1);
-	lda_ind_y(zp_b8);
-	sta(acc16_h);
-	iny();
-	lda_ind_y(zp_b8);
-	sta(acc16_l);
-L77C0:
-	lda_i(0x0F);
-	sec();
-	sbc(shift_counter);
-	tax();
-L77C7:
-	lsr(acc16_h);
-	ror(acc16_l);
-	dex();
-	bpl(L77C7);
-	lda(shift_counter);
-	clc();
-	adc(L71B6);
-	sta(L71B6);
-	lda_i(0x00);
-	adc(L71B7);
-	sta(L71B7);
-	rts();
-
-/* ---------------------------------------------------------------------------- */
-L77E1:
-	ldx_i(0x02);
-L77E3:
-	lda_ind_y(zp_b8);
-	sta_abs_x(L7189);
-	iny();
-	dex();
-	bpl(L77E3);
-	lda(L71B6);
-	and_i(0x07);
-	tax();
-	dex();
-L77F3:
-	asl(L7189);
-	rol(L718A);
-	rol(L718B);
-	dex();
-	bpl(L77F3);
-	lda(L718A);
-	sta(acc16_l);
-	lda(L718B);
-	sta(acc16_h);
-	jmp(L77C0);
-}
-
-void L7A19(void) {
-	lda(alf_hdr_compsize2);
-	ora(alf_hdr_compsize3);
-	beq(L7A28);
-L7A21:
-	jsr(readblock);
-	Y = 1; /* CIO would set this */
-	jsr(L7A5D);
-	rts();
-L7A28:
-	lda(alf_hdr_compsize1);
-	cmp(buf_len_h);
-	bcc(L7A40);
-	beq(L7A34);
-	bcs(L7A21);
-L7A34:
-	lda(alf_hdr_compsize0);
-	cmp(buf_len_l);
-	bcc(L7A40);
-	beq(L7A40);
-	bcs(L7A21);
-L7A40:
-	lda(alf_hdr_compsize0);
-	sta(buf_len_l);
-	lda(alf_hdr_compsize1);
-	sta(buf_len_h);
-	lda(buf_len_l);
-	ora(buf_len_h);
-	beq(L7A57);
-	jsr(readblock);
-	Y = 1; /* CIO would set this */
-L7A57:
-	ldy_i(0x88);
-	jsr(L7A5D);
-	rts();
 }
 
-void L7A5D(void) {
-	lda(alf_hdr_compsize0);
-	sec();
-	sbc(buf_len_l);
-	sta(alf_hdr_compsize0);
-	lda(alf_hdr_compsize1);
-	sbc(buf_len_h);
-	sta(alf_hdr_compsize1);
-	lda(alf_hdr_compsize2);
-	sbc_i(0x00);
-	sta(alf_hdr_compsize2);
-	rts();
-}
-
-void setup_io_bufs(void) {
-	lda(MEMTOP_lo);
-	sec();
-	sbc_i(0xDC);
-	sta(inbuf_len_l);
-	lda(MEMTOP_hi);
-	sbc_i(0x7F);
-	sta(inbuf_len_h);
-	lsr(inbuf_len_h);
-	ror(inbuf_len_l);
-	lda(inbuf_len_h);
-	cmp_i(0x1F);
-	bcc(L79A0);
-	lda_i(0x00);
-	sta(inbuf_len_l);
-	lda_i(0x1F);
-	sta(inbuf_len_h);
-L79A0:
-	lda_i(0xDC);
-	sta(inbuf_adr_l);
-	lda_i(0x7F);
-	sta(inbuf_adr_h);
-	lda_i(0xDC);
-	clc();
-	adc(inbuf_len_l);
-	sta(outbuf_adr_l);
-	sta(outbuf_ptr_l);
-	lda_i(0x7F);
-	adc(inbuf_len_h);
-	sta(outbuf_adr_h);
-	sta(outbuf_ptr_h);
-	rts();
-}
-
-void init_counters(void) {
-	lda_i(0x09);
-	sta(shift_counter);
-	lda_i(0x00);
-	sta(L71AD);
-	lda_i(0x02);
-	sta(L71AE);
-	lda_i(0x02);
-	sta(L717B);
-	lda_i(0x01);
-	sta(L717C);
-	rts();
-}
-
-/* save decrunched byte in outbuf, update checksum, write outbuf if full */
-void store_outbyte(void) {
-	ldy_i(0x00);
-	lda(acc16_l);
-	sta_ind_y(outbuf_ptr_l);
-	clc();
-	adc(cksum_l);
-	sta(cksum_l);
-	lda_i(0x00);
-	adc(cksum_h);
-	sta(cksum_h);
-	inc(outbuf_ptr_l);
-	bne(out_ptr_hi_ok);
-	inc(outbuf_ptr_h);
-out_ptr_hi_ok:
-	inc(outbuf_len_l);
-	bne(out_len_hi_ok);
-	inc(outbuf_len_h);
-out_len_hi_ok:
-	lda(outbuf_len_h);
-	cmp(inbuf_len_h);
-	bcc(outbuf_not_full);
-	lda(outbuf_len_l);
-	cmp(inbuf_len_l);
-	bcc(outbuf_not_full);
-	lda(outbuf_adr_l);
-	sta(buf_adr_l);
-	lda(outbuf_adr_h);
-	sta(buf_adr_h);
-	lda(outbuf_len_l);
-	sta(buf_len_l);
-	lda(outbuf_len_h);
-	sta(buf_len_h);
-	/* TODO: call C writeblock() */
-	ldx_i(0x30);
-	jsr(writeblock);
-	bpl(init_outbuf);
-	#if 0
-/* ldx #<emsg_checksum : ldy #>emsg_checksum */
-print_emsg_write_output_2:
-	ldx_i(0xD5);
-	ldy_i(0x72);
-	jsr(printstr);
-cleanup_and_exit:
-	pla();
-	pla();
-	pla();
-	pla();
-	jmp(exit);
-	#endif
-	chksum_err();
-/* ---------------------------------------------------------------------------- */
-init_outbuf:
-	lda(outbuf_adr_l);
-	sta(outbuf_ptr_l);
-	lda(outbuf_adr_h);
-	sta(outbuf_ptr_h);
-	lda_i(0x00);
-	sta(outbuf_len_l);
-	sta(outbuf_len_h);
-outbuf_not_full:
-	rts();
-}
-
-
-/* ---------------------------------------------------------------------------- */
-/* push 2 byte 'register' to software stack */
-void push_acc16(void) {
-	ldy_i(0x00);
-	lda(acc16_l);
-	sta_ind_y(stackptr_l);
-	iny();
-	lda(acc16_h);
-	sta_ind_y(stackptr_l);
-	lda(stackptr_l);
-	clc();
-	adc_i(0x02);
-	sta(stackptr_l);
-	bcc(L790C);
-	inc(stackptr_h);
-L790C:
-	lda(stackptr_h);
-	cmp_i(0x70);
-	bcc(L791C);
-	#if 0
-/* ldx #<emsg_stk_overrun : ldy #>emsg_stk_overrun */
-print_emsg_stk_overrun:
-	ldx_i(0x25);
-	ldy_i(0x79);
-	jsr(printstr);
-	jmp(cleanup_and_exit);
-	#endif
-	fprintf(stderr, "%s: stack overrun\n", self);
-	exit(1);
-/* ---------------------------------------------------------------------------- */
-L791C:
-	inc(L71AF);
-	bne(L7924);
-	inc(L71B0);
-L7924:
-	rts();
-}
-
-void pop_acc16(void) {
-/* pop 2 byte 'register' from software stack */
-	lda(stackptr_l);
-	sec();
-	sbc_i(0x02);
-	sta(stackptr_l);
-	lda(stackptr_h);
-	sbc_i(0x00);
-	sta(stackptr_h);
-	ldy_i(0x00);
-	lda_ind_y(stackptr_l);
-	sta(acc16_l);
-	iny();
-	lda_ind_y(stackptr_l);
-	sta(acc16_h);
-	lda(stackptr_h);
-	cmp_i(0x60);
-	bcs(L796C);
-	#if 0
-/* ldx #<emsg_stk_underrun : ldy #>emsg_stk_underrun */
-print_emsg_stk_underrun:
-	ldx_i(0x34);
-	ldy_i(0x79);
-	jsr(printstr);
-	jmp(cleanup_and_exit);
-	#endif
+void stack_underrun(void){
 	fprintf(stderr, "%s: stack underrun\n", self);
 	exit(1);
-/* ---------------------------------------------------------------------------- */
-L796C:
-	lda(L71AF);
-	bne(L7974);
-	dec(L71B0);
-L7974:
-	dec(L71AF);
-	rts();
-}
-
-void L79E7(void) {
-	lda(buf_adr_l);
-	clc();
-	adc(buf_len_l);
-	sta(zp_be);
-	lda(buf_adr_h);
-	adc(buf_len_h);
-	sta(zp_bf);
-	ldx_i(0x02);
-	bne(L7A0A);
-L79FC:
-	ldy_i(0x00);
-	tya();
-	sta_ind_y(zp_be);
-	inc(zp_be);
-	bne(L7A07);
-	inc(zp_bf);
-L7A07:
-	dex();
-	bmi(L7A18);
-L7A0A:
-	lda(zp_bf);
-	cmp(outbuf_adr_h);
-	bcc(L79FC);
-	lda(zp_be);
-	cmp(outbuf_adr_l);
-	bcc(L79FC);
-L7A18:
-	rts();
 }
 
-void L7899(void) {
-	lda(zp_b4);
-	sta(zp_b0);
-	lda(zp_b5);
-	sta(zp_b1);
-	asl(zp_b0);
-	rol(zp_b1);
-	lda(zp_b0);
-	clc();
-	adc(zp_b4);
-	sta(zp_b0);
-	lda(zp_b1);
-	adc(zp_b5);
-	sta(zp_b1);
-	lda(zp_b0);
-	clc();
-	adc(L7181);
-	sta(zp_b0);
-	lda(zp_b1);
-	adc(L7182);
-	sta(zp_b1);
-	rts();
-}
-
-void L78C2(void) {
-	lda(L717B);
-	sta(zp_b4);
-	lda(L717C);
-	sta(zp_b5);
-	jsr(L7899);
-	lda(L7177);
-	sta(acc16_l);
-	ldy_i(0x02);
-	sta_ind_y(zp_b0);
-	lda(L7179);
-	sta(acc16_l);
-	lda(L717A);
-	sta(acc16_h);
-	ldy_i(0x00);
-	lda(acc16_l);
-	sta_ind_y(zp_b0);
-	iny();
-	lda(acc16_h);
-	sta_ind_y(zp_b0);
-	inc(L717B);
-	bne(L78F5);
-	inc(L717C);
-L78F5:
-	rts();
-}
-
-void write_output(void) {
-	lda(outbuf_len_l);
-	ora(outbuf_len_h);
-	bne(have_output);
-	rts();
-/* ---------------------------------------------------------------------------- */
-have_output:
-	lda(outbuf_adr_l);
-	sta(buf_adr_l);
-	lda(outbuf_adr_h);
-	sta(buf_adr_h);
-	lda(outbuf_len_l);
-	sta(buf_len_l);
-	lda(outbuf_len_h);
-	sta(buf_len_h);
-	ldx_i(0x30);
-	jsr(writeblock);
-	rts();
+void stack_overrun(void){
+	fprintf(stderr, "%s: stack overrun\n", self);
+	exit(1);
 }