void do_fill_buffer (int *buf, int len)
{
int sum;
int i; int rln = len;
srand (time (0));
retry:
if (len >= BPI)
base = 0x12345678 + rand ();
else
base = 0x12345678 + (char) rand ();
sum = base;
for (i = 0; i < len/BPI - 1; i++)
{
/* we rely on rand() giving full range of int */
buf[i] = rand ();
sum += buf[i];
}
while (rln%BPI)
{
((char*)buf)[--rln] = rand ();
sum += ((char*)buf)[rln];
}
if (len >= BPI) buf[len/BPI - 1] = 0x12345678 - sum;
else ((char*)buf)[0] = 0x12345678 + ((char*)buf)[0] - sum;
if (do_checksum(buf, len, true)) {
if (len < BPI) goto retry;
printf ("sg_test_rwbuf: Memory corruption?\n");
exit (1);
}
if (cmpbuf) memcpy (cmpbuf, (char*)buf, len);
}
void extract_acpi(void)
{
int id = fw_cfg_file_id("etc/table-loader");
int n = fw_cfg_file_size(id);
struct loader_cmd script[n / sizeof(struct loader_cmd)];
int i;
if (!n)
return;
fw_cfg_read_file(id, script, n);
for (i = 0; i < ARRAY_SIZE(script); i++) {
struct loader_cmd *s = &script[i];
switch(script[i].cmd) {
case CMD_ALLOC:
do_alloc(s->alloc.file, s->alloc.align, s->alloc.zone);
break;
case CMD_PTR:
do_ptr(s->ptr.dest, s->ptr.src, s->ptr.offset, s->ptr.size);
break;
case CMD_CHECKSUM:
do_checksum(s->checksum.file, s->checksum.offset,
s->checksum.start, s->checksum.len);
break;
case CMD_QUIT:
return;
default:
panic();
}
}
}
static void gdb_reply(struct GDBState *s, char *ptr)
{
char outbuf[MAX_PACKET_LEN] = "";
char *outptr = &outbuf[0];
size_t len = strlen(ptr);
uint8_t checksum;
ssize_t ret;
if (len > sizeof(outbuf)) {
printf("%s: input size is too long\n", __FUNCTION__);
exit(1);
}
*outptr++ = '+';
*outptr++ = '$';
strncpy(outptr, ptr, len);
outptr += len;
*outptr++ = '#';
checksum = do_checksum(&outbuf[0]);
*outptr++ = tohex(checksum >> 4);
*outptr++ = tohex(checksum & 0x0f);
*outptr = '\0';
printf("reply (%lu): %s\n", strlen(outbuf), outbuf);
ret = write(s->fd, outbuf+1, strlen(outbuf)-1);
if (ret <= 0) /* FIXME: strlen(outbuf) != 0 always */
perror("write error:");
}
int main(int argc, char ** argv){
image_t img;
img.fname = malloc(strlen(argv[1])+1);
memcpy(img.fname, argv[1], strlen(argv[1])+1);
map_file(&img);
address_list = malloc(MAX_ADDRESSES * sizeof(*address_list));
memset(address_list, NO_ADDRESS, MAX_ADDRESSES * sizeof(*address_list));
init_indexer();
add_address(&address_list, 0);
scan_img_for_addresses(&img, &address_list);
spread_addresses(&address_list, ADDRESS_SPREAD);
LOG(LOG_INDEX, "creating index ...\n");fflush(stdout);
create_index(&img);
LOG(LOG_INDEX, "creating index done.\n");fflush(stdout);
int as; /* start address */
int ae; /* end address */
/* O(n^2) */
for (as=0; address_list[as] != NO_ADDRESS; as++)
{
for (ae=0; address_list[ae] != NO_ADDRESS; ae++)
{
/* FIXME we could use another parameter than ADDRESS_SPREAD */
if (address_list[ae] > address_list[as] + ADDRESS_SPREAD)
{
LOG(LOG_ADDR,
"checksumming 0x%8.8x to 0x%8.8x\n",
address_list[as],
address_list[ae]);
do_checksum(address_list[as], address_list[ae], &img);
}
}
}
return 0;
}
void TelemetryStream::make_test_packet( int packet_sequence_number )
{
// build the HEROES Command Packet Header
// uint16 - the sync word, split into two 8 bit chars
payload[0] = (unsigned short int) 0xc39a & 0xFF;
payload[1] = (unsigned short int) (0xc39a & 0xFF00) >> 8;
// uint8 target system ID
// 0 corresponds to Flight data recorder
// see Table 6-2 in HEROES Telemetry and Command Interface Description doc
payload[2] = 0;
// uint8 - payload length (in bytes)
payload[3] = PAYLOAD_SIZE;
// uint16 - packet sequence number
payload[4] = (unsigned short int) packet_sequence_number & 0xFF;
payload[5] = (unsigned short int) (packet_sequence_number & 0xFF00) >> 8;
// uint16 - CRC-16 checksum
// need to actually calculate the check sum here, use lib_crc
uint16_t check_sum = 2345;
payload[6] = (unsigned short int) check_sum & 0xFF;
payload[7] = (unsigned short int) (check_sum & 0xFF00) >> 8;
do_checksum();
}
int parse_iop(int index)
{
int count;
memset(&RxBuff[0], 0, sizeof(RxBuff));
do {
if (read(Uart_fd, &RxBuff[0], 1) == 0)
return 0;
} while (RxBuff[0] != 0x10);
if ((count = remain()) == 0)
return 0;
if (check_length(count, index) == -1) {
show_length_iop();
return 2;
}
if (do_checksum(index) == 0) {
show_iop();
return 2;
}
return 1;
}
int read_buffer (int sg_fd, unsigned ssize)
{
int res, k;
uint8_t rb_cdb[] = {READ_BUFFER, 0, 0, 0, 0, 0, 0, 0, 0, 0};
int bufSize = ssize + addread;
uint8_t * free_rbBuff = NULL;
uint8_t * rbBuff = (uint8_t *)sg_memalign(bufSize, 0, &free_rbBuff,
false);
uint8_t sense_buffer[32];
struct sg_io_hdr io_hdr;
if (NULL == rbBuff)
return -1;
rb_cdb[1] = RWB_MODE_DATA;
sg_put_unaligned_be24((uint32_t)bufSize, rb_cdb + 6);
memset(&io_hdr, 0, sizeof(struct sg_io_hdr));
io_hdr.interface_id = 'S';
io_hdr.cmd_len = sizeof(rb_cdb);
io_hdr.mx_sb_len = sizeof(sense_buffer);
io_hdr.dxfer_direction = SG_DXFER_FROM_DEV;
io_hdr.dxfer_len = bufSize;
io_hdr.dxferp = rbBuff;
io_hdr.cmdp = rb_cdb;
io_hdr.sbp = sense_buffer;
io_hdr.pack_id = 2;
io_hdr.timeout = 60000; /* 60000 millisecs == 60 seconds */
if (verbose) {
pr2serr(" read buffer [mode data] cdb: ");
for (k = 0; k < (int)sizeof(rb_cdb); ++k)
pr2serr("%02x ", rb_cdb[k]);
pr2serr("\n");
}
if (ioctl(sg_fd, SG_IO, &io_hdr) < 0) {
perror(ME "SG_IO READ BUFFER data error");
free(rbBuff);
return -1;
}
/* now for the error processing */
res = sg_err_category3(&io_hdr);
switch (res) {
case SG_LIB_CAT_RECOVERED:
sg_chk_n_print3("READ BUFFER data, continuing", &io_hdr, true);
#if defined(__GNUC__)
#if (__GNUC__ >= 7)
__attribute__((fallthrough));
/* FALL THROUGH */
#endif
#endif
case SG_LIB_CAT_CLEAN:
break;
default: /* won't bother decoding other categories */
sg_chk_n_print3("READ BUFFER data error", &io_hdr, true);
free(rbBuff);
return res;
}
res = do_checksum((int*)rbBuff, ssize, false);
if (free_rbBuff)
free(free_rbBuff);
return res;
}
void create_ods2(FILE *fout, char *volname, int volsize)
{
unsigned char out_line[512];
int i;
struct _hm2 *pHM2$;
struct _fh2 *pFH2;
struct FM2_C_FORMAT2 *pFM2;
struct _fi2*pFI2;
//volume name and size
strcpy(volnam, volname);
volumesize=volsize;
//cluster size...
if (volumesize<=50000)
clustersize=1;
else
{
clustersize = roundup( ((double) volumesize)/(255 * 4096));
if (clustersize<3) clustersize=3;
}
clustersize=17;
//maxfiles
maxfiles=volumesize/((clustersize+1)*2);
if (maxfiles>(volumesize/(clustersize+1))) maxfiles=volumesize/(clustersize+1);
//indefilesize
indexfilesize=((4*clustersize)+roundup(((double) maxfiles)/4096)+16);
diffsizeindexf=indexfilesize;
indexfilesize=clustersize*roundup((double) indexfilesize/clustersize);
diffsizeindexf=indexfilesize-diffsizeindexf;
//
printf("Initialize device Version 0.2b\n");
printf("Volume Size %d Cluster %d Maxfiles %d\n", volumesize, clustersize, maxfiles);
printf("Indexfile size %d\n", indexfilesize);
//Cluster 1, 2 and 3
//Boot Block: don't know what to do, just put all to 0
for(i=0; i<512; i++) out_line[i]=0;
write_blk(out_line, fout, "Boot block");
//Home Block: construct
pHM2$ = (struct _hm2 *) out_line;
pHM2$->hm2$l_homelbn=1;
pHM2$->hm2$w_homevbn=2;
pHM2$->hm2$l_alhomelbn=clustersize*2;
pHM2$->hm2$w_alhomevbn=clustersize*2+1;
pHM2$->hm2$l_altidxlbn=clustersize*3;
pHM2$->hm2$w_altidxvbn=clustersize*3+1;
pHM2$->hm2$w_struclev=2*256+1;
pHM2$->hm2$w_cluster=clustersize;
pHM2$->hm2$w_ibmapvbn=VMSWORD(clustersize*4+1);
pHM2$->hm2$l_ibmaplbn=VMSLONG(clustersize*4);
ibmaplbn=pHM2$->hm2$l_ibmaplbn;
pHM2$->hm2$l_maxfiles=(maxfiles);
pHM2$->hm2$w_ibmapsize=VMSWORD(roundup( ( (double) pHM2$->hm2$l_maxfiles)/4096 ));
ibmapsize=pHM2$->hm2$w_ibmapsize;
pHM2$->hm2$w_resfiles=10;
do_checksum_count(out_line,(short *)&pHM2$->hm2$w_checksum1-(short*)pHM2$);
pHM2$->hm2$w_extend=clustersize;
strcpy(pHM2$->hm2$t_strucname," ");
strcpy(pHM2$->hm2$t_volname , volnam);
strcpy(pHM2$->hm2$t_ownername, owner);
strcpy(pHM2$->hm2$t_format, "DECFILE11B ");
do_checksum(out_line);
write_blk(out_line, fout, "first home Block\0"); //write first home block
for(i=0; i<3*clustersize-2; i++) //fill the rest of the cluster and the next two clusters
{
pHM2$->hm2$l_homelbn=2+i;
pHM2$->hm2$w_homevbn=3+i;
write_blk(out_line, fout, "\0");
}
// Cluster 4
//Backup Index File Header
for(i=0; i<512; i++) out_line[i]=0; //clear all
//index file header:
// header area
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=1;
pFH2->fh2$w_fid.fid$w_seq=1;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"INDEXF.SYS;1");
// map area
pFM2 = (struct FM2_C_FORMAT2 *) (out_line+(2*pFH2->fh2$b_mpoffset));
pFM2->fm2$w_word0=(ibmaplbn+ibmapsize)-1+16384; //Add 16384 for format type
pFM2->fm2$v_count2=0;
pFM2++;
pFM2->fm2$w_word0=16-1+16384;
pFM2->fm2$v_count2=ibmaplbn+ibmapsize;
pFM2++;
#if 0
pFM2->fm2$w_word0=indexfilesize-(pHM2$->hm2$l_ibmaplbn+pHM2$->hm2$w_ibmapsize+16)-1+16384;
pFM2->fm2$v_count2=pHM2$->hm2$l_ibmaplbn+pHM2$->hm2$w_ibmapsize;
#endif
pFH2->fh2$b_map_inuse=2*2;
//file attribs
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=512;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(indexfilesize-diffsizeindexf);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(indexfilesize-diffsizeindexf+1); //not sure
pFH2->fh2$w_recattr.fat$w_maxrec=512;
do_checksum(out_line);
write_blk(out_line, fout, "Backup Indexfile header"); //write down index file header
// (the rest of the cluster is not used)
for(i=0; i<512; i++) out_line[i]=0; //clear all
for(i=0; i<clustersize-1; i++) write_blk(out_line, fout, "\0");
// index file bitmap
for(i=0; i<512; i++) out_line[i]=0; //clear all
int j = roundup(((double) maxfiles)/4096); //nbr of blocks in IFB
out_line[0]=(unsigned char) 255;
out_line[1]=(unsigned char) 1; //files with number 1 to 9 reserved
write_blk(out_line, fout, "Indexfile bitmap");
for(i=0; i<512; i++) out_line[i]=0; //clear all
for(i=0; i<j-1; i++) write_blk(out_line, fout, "\0"); //rest of bitmap index
//index file header: Yeah once again !!!
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=VMSWORD(1);
pFH2->fh2$w_fid.fid$w_seq=VMSWORD(1);
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"INDEXF.SYS;1");
// map area
pFM2 = (struct FM2_C_FORMAT2 *) (out_line+(2*pFH2->fh2$b_mpoffset));
pFM2->fm2$w_word0=(ibmaplbn+ibmapsize)-1+16384; //Add 16384 for format type
pFM2->fm2$v_count2=0;
pFM2++;
pFM2->fm2$w_word0=16-1+16384;
pFM2->fm2$v_count2=ibmaplbn+ibmapsize;
pFM2++;
#if 0
pFM2->fm2$w_word0=indexfilesize-(pHM2$->hm2$l_ibmaplbn+pHM2$->hm2$w_ibmapsize+16)-1+16384;
pFM2->fm2$v_count2=pHM2$->hm2$l_ibmaplbn+pHM2$->hm2$w_ibmapsize;
#endif
pFH2->fh2$b_map_inuse=2*2;
//file attribs
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=VMSWORD(512);
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(indexfilesize);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(indexfilesize-diffsizeindexf+1); //not sure
pFH2->fh2$l_highwater=VMSLONG(indexfilesize+1);
pFH2->fh2$w_recattr.fat$w_maxrec=VMSWORD(512);
do_checksum(out_line);
write_blk(out_line, fout, "Index file header"); //write down index file header
// header area 2.2 BITMAP.SYS;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
//pFH2->fh2$l_filechar[0]=128;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=2;
pFH2->fh2$w_fid.fid$w_seq=2;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"BITMAP.SYS;1");
// map area
pFM2 = (struct FM2_C_FORMAT2 *) (out_line+(2*pFH2->fh2$b_mpoffset));
storagebitmapsize=roundup( ( (double) (volumesize/clustersize))/4096);
bitmapfilesize=clustersize*(roundup(((double) (storagebitmapsize+1))/clustersize));
diffsizebitmap=bitmapfilesize-1-storagebitmapsize;
pFM2->fm2$w_word0=bitmapfilesize-1+16384;
pFM2->fm2$v_count2=(indexfilesize+clustersize);
pFH2->fh2$b_map_inuse=2;
//file attribs
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=512;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(bitmapfilesize);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(bitmapfilesize-diffsizebitmap+1);
pFH2->fh2$l_highwater=VMSLONG(bitmapfilesize);
pFH2->fh2$w_recattr.fat$w_maxrec=512;
do_checksum(out_line);
write_blk(out_line, fout, "bitmap.sys header"); //write down bitmap file header
// header area 3.3 BADBLK.SYS;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=3;
pFH2->fh2$w_fid.fid$w_seq=3;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"BADBLK.SYS;1");
// no map area
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=512;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(0);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(1);
pFH2->fh2$l_highwater=VMSSWAP(1);
pFH2->fh2$w_recattr.fat$w_maxrec=512;
do_checksum(out_line);
write_blk(out_line, fout, "badblk.sys header"); //write down file header
// header area 4.4 000000.DIR;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$l_filechar=128+256*32; // directory flags
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=4;
pFH2->fh2$w_fid.fid$w_seq=4;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"000000.DIR;1");
// map area
pFM2 = (struct FM2_C_FORMAT2 *) (out_line+(2*pFH2->fh2$b_mpoffset));
pFM2->fm2$w_word0=(clustersize-1)+16384;
pFM2->fm2$v_count2=indexfilesize;
pFH2->fh2$b_map_inuse=2; //3;
pFH2->fh2$w_recattr.fat$b_rtype=2;
pFH2->fh2$w_recattr.fat$b_rattrib=8;
pFH2->fh2$w_recattr.fat$w_rsize=512;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(clustersize);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(2);
pFH2->fh2$l_highwater=VMSSWAP(clustersize);
pFH2->fh2$w_recattr.fat$w_maxrec=512;
// seems .dir does not use this? pFH2->fh2$w_recattr.fat$w_ffbyte=216;
do_checksum(out_line);
write_blk(out_line, fout, "000000.dir header"); //write down file header
// header area 5.5 CORIMG.SYS;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=5;
pFH2->fh2$w_fid.fid$w_seq=5;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"CORIMG.SYS;1");
// no map area
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=512;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(0);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(1);
pFH2->fh2$w_recattr.fat$w_maxrec=512;
do_checksum(out_line);
write_blk(out_line, fout, "corimg.sys header"); //write down file header
// header area 6.6 VOLSET.SYS;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=6;
pFH2->fh2$w_fid.fid$w_seq=6;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"VOLSET.SYS;1");
// no map area
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=64;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(0);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(1);
pFH2->fh2$w_recattr.fat$w_maxrec=64;
do_checksum(out_line);
write_blk(out_line, fout, "volset.sys header"); //write down file header
// header area 7.7 CONTIN.SYS;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=7;
pFH2->fh2$w_fid.fid$w_seq=7;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"CONTIN.SYS;1");
// no map area
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=512;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(0);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(1);
pFH2->fh2$w_recattr.fat$w_maxrec=512;
do_checksum(out_line);
write_blk(out_line, fout, "contin.sys header"); //write down file header
// header area 8.8 BACKUP.SYS;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=8;
pFH2->fh2$w_fid.fid$w_seq=8;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"BACKUP.SYS;1");
// no map area
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=64;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(0);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(1);
pFH2->fh2$w_recattr.fat$w_maxrec=64;
do_checksum(out_line);
write_blk(out_line, fout, "backup.sys header"); //write down file header
// header area 9.9 BADLOG.SYS;1
for(i=0; i<512; i++) out_line[i]=0; //clear all
pFH2 = (struct _fh2 *) out_line;
pFH2->fh2$b_idoffset=40;
pFH2->fh2$b_mpoffset=100;
pFH2->fh2$b_acoffset=255;
pFH2->fh2$b_rsoffset=255;
pFH2->fh2$w_seg_num=0;
pFH2->fh2$w_struclev=2*256+1;
pFH2->fh2$w_fid.fid$w_num=9;
pFH2->fh2$w_fid.fid$w_seq=9;
pFH2->fh2$w_fid.fid$b_rvn=0;
pFH2->fh2$w_backlink.fid$w_num=4;
pFH2->fh2$w_backlink.fid$w_seq=4;
pFH2->fh2$w_backlink.fid$b_rvn=0;
// identification area
pFI2 = (struct _fi2*) (out_line+2*pFH2->fh2$b_idoffset);
strcpy(pFI2->fi2$t_filename,"BADLOG.SYS;1");
// no map area
pFH2->fh2$w_recattr.fat$b_rtype=1;
pFH2->fh2$w_recattr.fat$w_rsize=16;
pFH2->fh2$w_recattr.fat$l_hiblk=VMSSWAP(0);
pFH2->fh2$w_recattr.fat$l_efblk=VMSSWAP(1);
pFH2->fh2$w_recattr.fat$w_maxrec=16;
do_checksum(out_line);
write_blk(out_line, fout, "badlog.sys header"); //write down file header
for(i=0; i<512; i++) out_line[i]=0; //clear all
for(i=0; i<7; i++) write_blk(out_line, fout, ""); // complete 16 file headers
for(i=0; i<diffsizeindexf; i++) write_blk(out_line, fout, ""); // write until next cluster !
// All Above IS actually the INDEXF.SYS. Now:
// create 000000.DIR, files are in alphabetical order
int pos=0;
struct _dir *pDIR;
struct _dir1 *pDIR1;
for(i=0; i<512; i++) out_line[i]=0; //clear all
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"000000.DIR");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=4;
pDIR1->dir$fid.fid$w_seq=4;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"BACKUP.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=8;
pDIR1->dir$fid.fid$w_seq=8;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"BADBLK.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=3;
pDIR1->dir$fid.fid$w_seq=3;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"BADLOG.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=9;
pDIR1->dir$fid.fid$w_seq=9;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"BITMAP.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=2;
pDIR1->dir$fid.fid$w_seq=2;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"CONTIN.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=7;
pDIR1->dir$fid.fid$w_seq=7;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"CORIMG.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=5;
pDIR1->dir$fid.fid$w_seq=5;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"INDEXF.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=1;
pDIR1->dir$fid.fid$w_seq=1;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
pDIR = (struct _dir *) (out_line+pos);
pDIR1 = (struct _dir1 *) (out_line+pos+16);
pDIR->dir$w_size=22;
pos=pos+24;
strcpy(pDIR->dir$t_name,"VOLSET.SYS");
pDIR->dir$b_namecount=10;
pDIR1->dir$fid.fid$w_num=6;
pDIR1->dir$fid.fid$w_seq=6;
pDIR->dir$w_verlimit=1;
pDIR->dir$b_flags=0;
pDIR1->dir$w_version=1;
pDIR1->dir$fid.fid$b_rvn=0;
pDIR1->dir$fid.fid$b_nmx=0;
out_line[pos]=255;
out_line[pos+1]=255; // (-1) word
write_blk(out_line, fout, "directory file"); //write directory file - only one record, but one cluster is used
for(i=0; i<512; i++) out_line[i]=0; //clear all
for(i=0; i<clustersize-1; i++) write_blk(out_line, fout, "");
// create BITMAP.SYS
//write storage control block
struct _scbdef *pSCB;
for(i=0; i<512; i++) out_line[i]=0; //clear all
pSCB = (struct _scbdef *) out_line;
pSCB->scb$w_struclev=2*256+1;
pSCB->scb$w_cluster=clustersize;
pSCB->scb$l_volsize=volumesize;
pSCB->scb$l_blksize=16065;
pSCB->scb$l_sectors=63;
pSCB->scb$l_tracks=255;
pSCB->scb$l_cylinders=4998;
do_checksum(out_line);
write_blk(out_line, fout, "bitmap.sys SCB"); //write storage control block, some missing information...
//storage bitmap
// nbr of clusters on volume = volumesize/clustersize, at worse we loose clustersize-1 blocks
int nbrcluster=volumesize/clustersize;
// nbr of blocks in storage bitmap = roundup( ( (double) (volumesize/clustersize))/4096);
//storagebitmapsize=roundup( ( (double) (volumesize/clustersize))/4096);
for(i=0; i<512; i++) out_line[i]=255; //make all 512 first clusters free
//(indexfilesize/clustersize+bitmapfilesize/clustersize+clustersize) clusters will be used.
// indexf.sys + bitmap.sys + 000000.dir
//It cannot be more that 512, and don't ask me why...
int usedclusters=(indexfilesize/clustersize)+(bitmapfilesize/clustersize)+1;
j=0;
while(j<usedclusters)
{
out_line[j/8] = out_line[j/8] << 1;
j++;
}
if (storagebitmapsize > 1)
{
write_blk(out_line, fout, "storage bitmap");
for(i=0; i<512; i++) out_line[i]=255; //make rest of clusters free, except last one
for(i=0; i<storagebitmapsize-2; i++) write_blk(out_line, fout, "");
}
j=(storagebitmapsize*4096)-nbrcluster; //last block, some cluster bits are unusable
i=0;
while(i<j)
{
out_line[511-(i/8)] = out_line[511-(i/8)] >> 1;
i++;
}
if (storagebitmapsize > 1)
write_blk(out_line, fout, "");
else
write_blk(out_line, fout, "storage bitmap");
for(i=0; i<512; i++) out_line[i]=0;
for(i=0; i<diffsizebitmap; i++) write_blk(out_line, fout, ""); // write until next cluster !
for(i=0; i<512; i++) out_line[i]=0;
printf("Clearing %d blocks\n",volumesize-(usedclusters*clustersize));
for(i=0; i<volumesize-(usedclusters*clustersize); i++) write_blk(out_line, fout, "");
}