|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »retmds5tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retmds5tx «
mode list.yes
mdsortpr6tx=edit tmdsortproc
; integer exception in select_work_file with large number of free segments
l./monitor 9 compatible/, l1, i/
integer exception in select_work_file with large no of free segs fgs.1991.01.03
/, p-2
l./procedure select_work_file/,
l./comment include segments in the weight;/, l1, d2, i/
weight :=
(if segments >= safe_segments
or extend segments * 20 + weight >= 8688000 then
8000000
else
segments * 20) + weight;
/, p-6
f
scope user mdsortpr6tx
end
▶EOF◀