dos33fsprogs/gr-sim/lz4d_verbose.c

#include <stdio.h>
#include <string.h>

#include "6502_emulate.h"

#define MAX_INPUT	65536
static unsigned char input[MAX_INPUT];

#define src	0x0
#define dst	0x2
#define end	0x4
#define count	0x6
#define delta	0x8
#define A1L	0x3c
#define A1H	0x3d
#define A2L	0x3e
#define A2H	0x3f
#define A4L	0x42
#define A4H	0x43

static void getsrc(void) {
//getsrc:
	a=ram[y_indirect(src,y)];		// lda 	(src), y
	ram[src]++;				//inc	src
	if (ram[src]!=0) goto done_getsrc;	//bne	+
	ram[src+1]++;				//inc	src+1
done_getsrc: ;
	printf("LOADED %02X%02X-1: %02X\n",ram[src+1],ram[src],a);
	//+	rts
}

void buildcount(void) {

//buildcount:
	x=1;					// ldx	#1
	ram[count+1]=x; 			// stx	count+1
	cmp(0xf);				// cmp	#$0f
	if (z==0) goto done_buildcount;		// bne	++
minus_buildcount:
	ram[count]=a;				//-	sta	count
	printf("MBC ");
	getsrc();				//jsr	getsrc
	x=a;					//tax
	c=0;					//clc
	adc(ram[count]);			//adc	count
	if (c==0) goto skip_buildcount;		// bcc	+
	ram[count+1]++;				//inc	count+1
skip_buildcount:
	x++;					//+	inx
	if (x==0) goto minus_buildcount;	//beq	-
done_buildcount: ;				//++	rts
}


static void putdst(void) {
//	printf("PUTADDR=%04X\n",y_indirect(dst,y));
						// putdst:
	ram[y_indirect(dst,y)]=a;		//	sta 	(dst), y
	ram[dst]++;				//	inc	dst
	if (ram[dst]!=0) goto putdst_end;	//	bne	+
	ram[dst+1]++;				//	inc	dst+1
putdst_end:;
						//+	rts
	printf("\tPUT: %02X%02X-1,%02X = %02X\n",ram[dst+1],ram[dst],y,a);
}

static void getput(void) {
						// getput:
	printf("GP ");
	getsrc();				// jsr	getsrc
	putdst();				// ; fallthrough
}

static void docopy(void) {
						// docopy:
docopy_label:
	getput();				// jsr	getput
	x--;					// dex
	if (x!=0) goto docopy_label;		// bne	docopy
	ram[count+1]--;				// dec	count+1
	if (ram[count+1]!=0) goto docopy_label;	//bne	docopy
						//rts
}






int main(int argc, char **argv) {

	FILE *fff;
	int size;
	short orgoff,paksize,pakoff;

	init_6502();

	fff=fopen("../mockingboard/outi.raw.lz4","r");
	if (fff==NULL) {
		fprintf(stderr,"Error opening!\n");
		return -1;
	}

	size=fread(input,sizeof(unsigned char),MAX_INPUT,fff);
	printf("Read %d bytes\n",size);

	fclose(fff);

	memcpy(&ram[0x2000],input,size);

	//LZ4 data decompressor for Apple II
	//Peter Ferrie (peter.ferrie@gmail.com)

	//init	=	0 ;set to 1 if you know the values
	//hiunp	=	0 ;unpacker entirely in high memory
	//hipak	=	0 ;packed data entirely in high memory (requires hiunp)

	//oep = 0; //first unpacked byte to run, you must set this by yourself
	orgoff = 0x8000; //offset of first unpacked byte, you must set this by yourself
	paksize	= size-0xb-8; 
			// minus 4 for checksum at end
			// not sure what other 4 is from?
			// block checksum? though had that disabled?

		//size of packed data, you must set this by yourself if hiunp=0
	pakoff = 0x200b; // 11 byte offset to data?


//LCBANK2	=	$c083
//MOVE	=	$fe2c

	a=(pakoff&0xff);	//lda	#<pakoff ;packed data offset
	ram[src]=a;		//sta	src
	a=(pakoff+paksize)&0xff;//lda	#<(pakoff+paksize) ;packed data size
	ram[end]=a;		// sta	end
	a=(pakoff>>8);		//lda	#>pakoff
	ram[src+1]=a;		//sta	src+1
	a=(pakoff+paksize)>>8;	//lda	#>(pakoff+paksize)
	ram[end+1]=a;		//	sta	end+1
	a=(orgoff>>8);		//lda	#>orgoff ;original unpacked data offset
	ram[dst+1]=a;		//sta	dst+1
	a=(orgoff&0xff);	//lda	#<orgoff
	ram[dst]=a;		// sta	dst

	printf("packed size: raw=%x, adj=%x\n",size,paksize);
	printf("packed addr: %02X%02X\n",ram[src+1],ram[src]);
	printf("packed end : %02X%02X\n",ram[end+1],ram[end]);
	printf("dest addr  : %02X%02X\n",ram[dst+1],ram[dst]);

// https://github.com/lz4/lz4/wiki/lz4_Frame_format.md

// Should: check for magic number 04 22 4d 18
//	FLG: 64 in our case (01=version, block.index=1, block.checksum=0
//		size=0, checksum=1, reserved
//	MAX Blocksize: 40 (64kB)
//	HEADER CHECKSUM: a7
//	BLOCK HEADER: 4 bytes (le)  If highest bit set, uncompressed!


//unpack:				//;unpacker entrypoint
	goto unpmain;			// jmp	unpmain

unpmain:
	y=0;				//ldy	#0

parsetoken:
	printf("PT ");
	getsrc();			// jsr	getsrc
	pha();				// pha
	lsr();				// lsr
	lsr();				// lsr
	lsr();				// lsr
	lsr();				// lsr
	if (a==0) goto copymatches; 	// beq	copymatches

	buildcount();			// jsr	buildcount
	x=a;				// tax
	docopy();			// jsr	docopy
	a=ram[src];			// lda	src
	cmp(ram[end]);			// cmp	end
	a=ram[src+1];			// lda	src+1
	sbc(ram[end+1]);		// sbc	end+1
	if (c) {
		printf("Done!\n");
		printf("src        : %02X%02X\n",ram[src+1],ram[src]);
		printf("packed end : %02X%02X\n",ram[end+1],ram[end]);
		goto done;		// bcs	done
	}

copymatches:
	printf("CM1 ");
	getsrc();			// jsr	getsrc
	ram[delta]=a;			// sta	delta
	printf("CM1 ");
	getsrc();			// jsr	getsrc
	ram[delta+1]=a;			// sta	delta+1
	printf("DELTA is %02X%02X\n",ram[delta+1],ram[delta]);
	pla();				// pla
	a=a&0xf;			// and	#$0f
	buildcount();			// jsr	buildcount
	c=0;				// clc
	adc(4);				// adc	#4
	x=a;				// tax
	if (c==0) goto copy_skip;	// bcc	+
	ram[count+1]++;			// inc	count+1
copy_skip:
	a=ram[src+1];			//+	lda	src+1
	pha();				// pha
	a=ram[src];			// lda	src
	pha();				// pha
	printf("SAVED SRC: %02X%02X\n",ram[src+1],ram[src]);
	printf("CALCULATING: DST %02X%02X - DELTA %02X%02X\n",ram[dst+1],ram[dst],ram[delta+1],ram[delta]);
	c=1;				// sec
	a=ram[dst];			// lda	dst
	sbc(ram[delta]);		// sbc	delta
	ram[src]=a;			// sta	src
	a=ram[dst+1];			// lda	dst+1
	sbc(ram[delta+1]);		// sbc	delta+1
	ram[src+1]=a;			// sta	src+1
	printf("NEW SRC: %02X:%02X\n",ram[src+1],ram[src]);
	docopy();			// jsr	docopy
	pla();				// pla
	ram[src]=a;			// sta	src
	pla();				// pla
	ram[src+1]=a;			// sta	src+1
	printf("RESTORED SRC: %02X%02X\n",ram[src+1],ram[src]);
	goto parsetoken;		// jmp	parsetoken

done:
	pla();				// pla


	int out_size=(ram[dst+1]<<8)+ram[dst];
	out_size-=0x8000;

	printf("dest addr  : %02X%02X\n",ram[dst+1],ram[dst]);

	int i,j,addr,temp;
	addr=0x8000;

	printf("\n");
	for(i=0;i<256;i++) {
		if (i%16==0) printf("%04X: ",addr+i);
		printf("%02X ",ram[addr+i]);
		if (i%16==15) {
			for(j=0;j<16;j++) {
				temp=ram[((addr+i)&0xfff0)+j];
				if ((temp<' ') || (temp>127)) printf(".");
				else printf("%c",temp);
			}
			printf("\n");
		}
	}

	printf("\n");
					// rts

	fff=fopen("out.out","w");
	if (fff==NULL) {
		fprintf(stderr,"Error opening!\n");
		return -1;
	}

	printf("Out size=%d\n",out_size);

	fwrite(&ram[0x8000],1,out_size,fff);

	fclose(fff);

	return 0;
}