From 3f66d827d317889185ad8a325eb07495e5123550 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 15 Jan 2023 09:06:58 +0100
Subject: [PATCH] Distribute new files over all disk packs.

---
 src/system/disk.1227 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/system/disk.1227 b/src/system/disk.1227
index 27c2fcc0..6b9e196b 100644
--- a/src/system/disk.1227
+++ b/src/system/disk.1227
@@ -821,8 +821,13 @@ IFN QRSRVP,[
 	SKIPL I,QSALLO(H)
 	 JRST QWRO2B	;THIS DIR GOES ON A PARTICULAR UNIT
 ]
-	SKIPGE I,QWRU	;GET CURRENT WRITING UNIT
+	SKIPGE QWRU	;GET CURRENT WRITING UNIT
 	 JRST QWRO2E	;NO CURRENT UNIT, GO FIND ONE
+	AOS I,QWRU      ;CYCLE THROUGH DISK PACKS
+	CAIL I,NQS
+	 SETZB I,QWRU
+	SKIPE QACT(I)
+	 JRST .-4
 	MOVE TT,QSFT(I)
 	CAML TT,QFTTHR
 	 JRST QWRO2B	;ENOUGH ROOM ON PREFERRED UNIT