source: vital-to8-sdk/sap/fd2sap.c

/*
 *
 *  FD2SAP conversion FD => SAP
 *
 */

#include <stdio.h>
#include <strings.h>


#define NBSIDE 4
#define NBTRACK 80
#define NBSECT 16
#define SECTSIZE 256

unsigned char disk[NBSIDE][NBTRACK][NBSECT][SECTSIZE];

#define SIDESIZE (NBTRACK*NBSECT*SECTSIZE)

int LoadFD(char * name)
{
   FILE * f;

   int sector,track,side;
   int nb_side,size;

   f=fopen(name,"rb");
   if (f==NULL) return -1;
   
   fseek(f, 0L, SEEK_END);
   size = ftell(f);
   fseek(f, 0L, SEEK_SET);

   if (size==SIDESIZE) {
        for (track=0;track<NBTRACK;track++)
        for (sector=0;sector<NBSECT;sector++)
        {
                fread(disk[0][track][sector],sizeof(char),256,f);
        }
        return 1;
   } else 
   if (size==2*SIDESIZE) {
        for (side=0;side<2;side++)
        for (track=0;track<NBTRACK;track++)
        for (sector=0;sector<NBSECT;sector++)
        {
                fread(disk[side][track][sector],sizeof(char),256,f);
        }
        return 2;
   }else
   if (size==4*SIDESIZE) {
        for (side=0;side<4;side++)
        for (track=0;track<NBTRACK;track++)
        for (sector=0;sector<NBSECT;sector++)
        {
                fread(disk[side][track][sector],sizeof(char),256,f);
        }
        return 4;
   }

   fclose(f);
   return 0;
}

/*
  ecriture au format TDS
*/
void SaveTDS(char * name,int side)
{
   FILE * f;
   char descript[0xA0];

   int i,j;

   /* lecture du descripteur TDS */
   f=fopen(name,"wb");
   if (f==NULL) return;

   /* construction du header */
   for(i=0;i<0xA0;i++)
   {
     descript[i]=0;
     for(j=0;j<8;j++)
     {
       if (disk[side][20][1+(i*8)/SECTSIZE][(i*8)%SECTSIZE]!=0xFF)
       descript[i]|=(1<<j);
     }
   }
   fwrite(descript,sizeof(char),(size_t)0xA0,f);


   for (i=0;i<0xA0;i++)
   for (j=0;j<8;j++)
   {
     if (   ( descript[i]&(1<<j) )!=0   )
     {
       int SEC,TRK;
       SEC=(i%2)*8+j;
       TRK=i/2;

       fwrite(disk[side][TRK][SEC],sizeof(char),(size_t)SECTSIZE,f);
     }
   }

   fclose(f);
}

short crcpuk_temp;
static const short magic_puk[]={

   0x0000, 0x1081, 0x2102, 0x3183,
   0x4204, 0x5285, 0x6306, 0x7387,
   0x8408, 0x9489, 0xa50a, 0xb58b,
   0xc60c, 0xd68d, 0xe70e, 0xf78f

 };

char * puk_header="\x01SYSTEME D'ARCHIVAGE PUKALL S.A.P. (c) Alexandre PUKALL Avril 1998";

crc_pukall(short c)
 {
    register short puk;

    /* on repete le code pour aller plus vite. Pas de boucle ici */

    puk = (crcpuk_temp ^ c) & 0xf;
    crcpuk_temp = ((crcpuk_temp>>4) & 0xfff) ^ magic_puk[puk];

    c >>= 4;

    puk = (crcpuk_temp ^ c) & 0xf;
    crcpuk_temp = ((crcpuk_temp>>4) & 0xfff) ^ magic_puk[puk];
 }


void SaveSAP(char * name,int side)
{

        FILE *f;
        unsigned char format,protection,piste,secteur;

        char *buffer;
        int fois;
        format=0;
        protection=0;  /* variables de test */

        f=fopen(name,"wb");
        if (f==NULL) return;

/*
 *      Ecriture du header
 */

        fwrite(puk_header,strlen(puk_header),sizeof(char),f);

/*
 *      Ecriture des donnees
 */

        for (piste=0;piste<80;piste++)
        for (secteur=1;secteur<=16;secteur++)
        {

                crcpuk_temp = 0xffff; /* toujours remettre cette variable a 0xffff */
                          /* pour calculer un nouveau CRC */

                crc_pukall(format);   /* calcul du CRC d'un secteur */
                crc_pukall(protection);
                crc_pukall(piste);
                crc_pukall(secteur);

                buffer=disk[side][piste][secteur-1];
                for (fois=0;fois<=255;fois++) /* on admet que buffer contient les */
                {                            /* donnees d'un secteur S.A.P. */
                        crc_pukall(buffer[fois]);
                        buffer[fois]=buffer[fois]^0xb3;
                }

                fputc(format & 0xFF,f);
                fputc(protection & 0xFF,f);
                fputc(piste & 0xFF,f);
                fputc(secteur & 0xFF,f);

                fwrite(buffer,256,sizeof(char),f);

                fputc((crcpuk_temp >> 8) & 0xFF,f);
                fputc(crcpuk_temp & 0xFF,f);
        
                
        }       

                

        fclose(f);
}


int main(int argc,char * argv[])
{
        char str[1024];
        char str2[1024];
        char str3[32];

        int i,nb_side;

        if (argc!=3)
        {
                fprintf(stderr,"syntaxe : %s <fichier fd source> <fichier SAP dest>\n",argv[0]);
                exit (-1);
        }

        nb_side=LoadFD(argv[1]);

        if (nb_side<=0) {
                fprintf(stderr,"Bad FD file");
                exit(-1);
        }

        strcpy(str,argv[2]);

        if (strlen(str)>4)
        if (strcmp(&str[strlen(str)-4],".sap")==0) str[strlen(str)-4]='\0';

        for (i=0;i<nb_side;i++) {
                strcpy(str2,str);
                strcat(str2,"_side");
                sprintf(str3,"%d",i);
                strcat(str2,str3);
                strcat(str2,".sap");    
                SaveSAP(str2,i);
        }  
}