1299 	DWORD val, scl, ctr;  in find_bitmap()  local
1304 	scl = val = clst; ctr = 0;  in find_bitmap()
1315 					if (++ctr == ncl) return scl + 2;	/* Check if run length is sufficient for required */  in find_bitmap()
1317 					scl = val; ctr = 0;		/* Encountered a cluster in-use, restart to scan */  in find_bitmap()
1426 	DWORD scl = clst, ecl = clst;  in remove_chain()  local
1460 …		res = change_bitmap(fs, scl, ecl - scl + 1, 0);	/* Mark the cluster block 'free' on the bitmap */  in remove_chain()
1465 			rt[0] = clst2sect(fs, scl);					/* Start of data area freed */  in remove_chain()
1469 			scl = ecl = nxt;  in remove_chain()
1516 	DWORD cs, ncl, scl;  in create_chain()  local
1522 		scl = fs->last_clst;				/* Suggested cluster to start to find */  in create_chain()
1523 		if (scl == 0 || scl >= fs->n_fatent) scl = 1;  in create_chain()
1530 		scl = clst;							/* Cluster to start to find */  in create_chain()
1536 		ncl = find_bitmap(fs, scl, 1);				/* Find a free cluster */  in create_chain()
1544 			if (obj->stat == 2 && ncl != scl + 1) {	/* Is the chain got fragmented? */  in create_chain()
1545 				obj->n_cont = scl - obj->sclust;	/* Set size of the contiguous part */  in create_chain()
1562 		if (scl == clst) {						/* Stretching an existing chain? */  in create_chain()
1563 			ncl = scl + 1;						/* Test if next cluster is free */  in create_chain()
1569 				if (cs >= 2 && cs < fs->n_fatent) scl = cs;  in create_chain()
1574 			ncl = scl;	/* Start cluster */  in create_chain()
1579 					if (ncl > scl) return 0;	/* No free cluster found? */  in create_chain()
1584 				if (ncl == scl) return 0;		/* No free cluster found? */  in create_chain()
5378 	DWORD n, clst, stcl, scl, ncl, tcl, lclst;  local
5394 		scl = find_bitmap(fs, stcl, tcl);			/* Find a contiguous cluster block */
5395 		if (scl == 0) res = FR_DENIED;				/* No contiguous cluster block was found */
5396 		if (scl == 0xFFFFFFFF) res = FR_DISK_ERR;
5399 				res = change_bitmap(fs, scl, tcl, 1);	/* Mark the cluster block 'in use' */
5400 				lclst = scl + tcl - 1;
5402 				lclst = scl - 1;
5408 		scl = clst = stcl; ncl = 0;
5417 				scl = clst; ncl = 0;		/* Not a free cluster */
5423 				for (clst = scl, n = tcl; n; clst++, n--) {	/* Create a cluster chain on the FAT */
5429 				lclst = scl - 1;
5437 			fp->obj.sclust = scl;		/* Update object allocation information */