/* convert a disk-based directory entry to a Linux ADFS directory entry  */
static void adfs_dir2obj(struct object_info *obj, struct adfs_direntry *de)
/* convert a disk-based directory entry to a Linux ADFS directory entry  */
static void adfs_dir2obj(struct object_info *obj, struct adfs_direntry *de)
{
	obj->name_len =	adfs_readname(obj->name, de->dirobname, ADFS_F_NAME_LEN);
	obj->file_id  = adfs_readval(de->dirinddiscadd, 3);
	obj->loadaddr = adfs_readval(de->dirload, 4);
	obj->execaddr = adfs_readval(de->direxec, 4);
	obj->size     = adfs_readval(de->dirlen,  4);
	obj->attr     = de->newdiratts;
}