github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-05 19:09:21 +00:00
Code Issues Releases Wiki Activity

Distribute new files over all disk packs.

Browse Source
This commit is contained in:
Lars Brinkhoff
2023-01-15 09:06:58 +01:00
parent c0bebff532
commit 3f66d827d3
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/system/disk.1227
View File

@@ -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