I'm glad that you decided to use the 8-byte DCS AP header for the sake of cross-compatibility. A small note, in your Illusiat example, the ZNG0/ZNG0/ZNGO is a typo, right? I'm glad that you decided to use the 8-byte DCS AP header for the sake of cross-compatibility. A small note, in your Illusiat example, the ZNG0/ZNG0/ZNGO is a typo, right? I hope that our earlier discussions about the structure of .8xg group files was a help, and that you're making progress towards constructing groups that TI-Connect won't complain about. To repair that frightful omission, here's the screenshot to which you referred:
;_ChkfreeArc EQU 5014h ;Checking FlashROM is too flakey at the moment...
; bcall(_ChkfreeArc)
; ld hl,$839F ;4 bytes, written big-endian (by byte)
; ld a,(hl)
; inc hl
; or a
; jr nz,GetMetadataInf2S
; ld de,athfsize+2
; ld b,3
;GetMetadataInf2:
; ld a,(de) ;Needed
; cp (hl) ;Needed-Have
; dec de
; inc hl
; jr c,GetMetadataInf2S
; djnz GetMetadataInf2
GetMetadataInf2E:
PRINTF(Aths.OutOfMem)
call KeyWait
jp AthenaInstaller
GetMetadataInf2S:
int packto8xp(char *datastream,int datasize,unsigned char ftype,char *fname) {
int a=0;
int b=0;
long int c=0;
char tempfname[8+1+3+1]; //8.3 filename standard
char chr = ' ';
for (a=0;a<8;a++) {
if (!(chr=fname[a])) break;
tempfname[a]=chr;
}
char tempfnametype[]=".8xp\0";
if (ftype==0x15) {
tempfnametype[3]='v';
}
for (b=0;b<5;a++,b++) {
tempfname[a]=tempfnametype[b];
}
FILE *outputfile;
unsigned char temphead[74];
outputfile=fopen(tempfname,"wb");
if (outputfile==NULL) {
printf("Cannot write out .8xp/.8xv file!\n");
return 1;
}
for (a=0;a<74;temphead[a]=0,a++); //initializing the variable space
for (a=0;a<53;temphead[a]=tiheader[a],a++);
temphead[53]=(unsigned char) ((datasize+17+2)&0x00FF);
temphead[54]=(unsigned char) (((datasize+17+2)&0xFF00)>>8);
temphead[55]=0x0D; //Checksumming starts at 55
temphead[56]=0x00;
temphead[57]=(unsigned char) ((datasize+2)&0x00FF);
temphead[58]=(unsigned char) (((datasize+2)&0xFF00)>>8);
temphead[59]=ftype;
for (a=0,b=60;a<8;temphead[b]=0,a++,b++);
for (a=0,b=60;a<8;a++,b++) {
if (fname[a]==0) break;
temphead[b]=fname[a];
}
temphead[68]=0;
temphead[69]=0x80;
temphead[70]=(unsigned char) ((datasize+2)&0x00FF);
temphead[71]=(unsigned char) (((datasize+2)&0xFF00)>>8);
temphead[72]=(unsigned char) ((datasize)&0x00FF);
temphead[73]=(unsigned char) (((datasize)&0xFF00)>>8);
for(a=55;a<74;c=c+temphead[a],a++);
for(a=0;a<datasize;c=c+datastream[a],a++);
if (74!=fwrite(temphead,1,74,outputfile)) return 1;
if (datasize!=fwrite(datastream,1,datasize,outputfile)) return 1;
temphead[0]=(unsigned char) ((c)&0x00FF);
temphead[1]=(unsigned char) (((c)&0xFF00)>>8);
if (2!=fwrite(temphead,1,2,outputfile)) return 1;
fclose(outputfile);
return 0;
}
bcall(_ChkFreeArc)
ld hl,0839Fh
ld d,(hl)
inc hl
ld e,(hl)
inc hl
ld a,(hl) ;don't care about low byte @$83A2 though
Advertisement