/* //nieuw_diskb.c //Copyright (c) 1996 W.H. Scholten //Deel van bbcim. */ void new_diskim(char *disk, unsigned int size) { FILE *fpdisk; unsigned char byte; long i; size &=0xFFF; /* not allowed in true DFS but might be useful for big disks in beebem. */ fpdisk=fopen(disk,"wb"); byte=0; for (i=0; i<512; i++) fwrite(&byte,1,1,fpdisk); /* SET DEFAULT DISK SIZE TO 80 TRACK */ byte=(size>>8); fseek(fpdisk,256+6L,SEEK_SET); byte |=3<<4; fwrite(&byte,1,1,fpdisk); /*i.e. bootoption=*EXEC, sect on disk='size' */ byte=(size & 0xFF); fwrite(&byte,1,1,fpdisk); /*NETJES AFSLUITEN*/ fclose(fpdisk); }