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