|
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: 6912 (0x1b00)
Types: TextFile
Names: »oldhelp«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »oldhelp«
; *** soshelp ***
;
;
; generates standard files and file descriptors te ease sos system generation
(
o sosdummyout
backfile soshelp
if ok.yes
(
nextfile soshelp
trcmol = entry soshelp soshelp 0 2
tsoscat = entry soshelp soshelp 0 3
tsos = entry soshelp soshelp 0 4
tcleartemp = entry soshelp soshelp 0 5
tupsoscat = entry soshelp soshelp 0 6
ttrace = entry soshelp soshelp 0 7
tsostest = entry soshelp soshelp 0 8
tprologue = entry soshelp soshelp 0 9
tdisplay = entry soshelp soshelp 0 10
tnews = entry soshelp soshelp 0 11
)
sostrim = edit
sosload = edit
sossave = edit
soslist = edit
o c
)
i'\f
; *** sostrim ***
;
;
; contains options for trimming sos system
; and commands for automatic system generation from the sos system tape
sosdummyout=set 1
xsos = edit tsos ; edit options into program text
l./body of init/,
l./===trimstart/,
d./===trimfinis/,
i/
! date of options ! optionid := 0,
! target machine (rc4000=4000,rc8000=8000) ! rc := 8000,
! min. no of user processes active at the same time ! minusers := 1,
! min. no of entries for terminals performing os commands ! comndusers := 2,
! min. no of buffers reserved for user processes ! minbufs := 4,
! min. no of areas reserved for user processes ! minareas := 7,
! min. core size for user processes (halfwords) ! minsize := 12800,
! size of i-o buffer for each user process (halfwords) ! bufl := 104,
! length of a time slice (seconds) ! timeslice := 3,
! max no of time slices used in cpu (no input) ! cpulimit := 25,
! loss of priority class when timed out ! classloss := 1,
! priority class gain at input (if class < 0) ! classgain := 1,
! priority gain when first in activequeue ! priogain := 1,
! size of testoutput area (segments) ! testsegmnts:= 42,
trimtexts; text(11)
! operator key ! oprkey := "opr",
! document for swoparea ! swopdoc := "",
! document for test area ! testdoc := "",
/,f
o sosdummyout
mode 1.no
lookup sosdoc ; if <sosdoc> is not present
if ok.no
mode 1.yes
o c
if 1.yes
sosdoc = set 1 ; then create it preferrably on disc
rcmol = algol trcmol ; then generate a temporary one
bsos = entry 20 sosdoc
bsos = rcmol xsos ; translate trimmed program text
cleartemp = entry 10 sosdoc
cleartemp = rcmol tcleartemp ; translate catalog cleaning program
upsoscat = entry 100 sosdoc
upsoscat = algol tupsoscat ; translate program for generating sos user catalog
trace = entry 50 sosdoc
trace = algol ttrace ; translate program for analysing testoutput
prologue = entry 4 sosdoc
prologue = rcmol tprologue ; generate loader for s-replacement
prologue = changeentry prologue prologue prologue prologue prologue 8.prologue prologue
o sosdummyout
mode 1.no
lookup soscat ; if soscat is not present
if ok.no
mode 1.yes
o c
if 1.yes ; then
( soscat = entry 1 sosdoc ; begin
soscat = upsoscat tsoscat ; generate an experimental user catalog and:
xsostest = entry 50 sosdoc ;
xsostest = move tsostest ; a simple system test program
bdisplay = entry 20 sosdoc ;
bdisplay = algol tdisplay ; a program displaying running sos-jobs
xnews = entry 1 sosdoc ;
xnews = move tnews ; an example of a "news-file"
clear temp tsostest tnews ;
rename xsostest.tsostest ;
rename xnews.tnews ;
scope user bdisplay tnews ;
scope user soscat tsostest ; end
)
scope user bsos upsoscat trace cleartemp
o sosdummyout
clear temp xsos trcmol rcmol sostrim tsoscat tsos tupsoscat ttrace,
tsostest sosload sossave soslist tcleartemp tprologue tdisplay tnews
o c
clear temp sosdummyout
message system generation completed
',f
i'\f
; *** sosload ***
;
;
; loads all files of the sos system tape to backing storage
; if a file descriptor <sosdoc> is set, the files will be loaded
; on the document specified by <sosdoc>
; otherwise they will be loaded preferrably on disc
(end
lookup sosdoc
if ok.no
sosdoc = set 1
backfile soshelp
if ok.no
(message soshelp not on magnetic tape
end)
f = entry soshelp soshelp 0 1
clear temp soshelp sostrim tsoscat trcmol tsos tupsoscat ttrace,
tsostest sosload sossave tcleartemp tprologue tdisplay tnews
soshelp = entry 1 sosdoc
soshelp = move f
nextfile f
trcmol = entry 200 sosdoc
trcmol = move f
nextfile f
tsoscat = entry 1 sosdoc
tsoscat = move f
nextfile f
tsos = entry 100 sosdoc
tsos = move f
nextfile f
tcleartemp = entry 1 sosdoc
tcleartemp = move f
nextfile f
tupsoscat = entry 50 sosdoc
tupsoscat = move f
nextfile f
ttrace = entry 50 sosdoc
ttrace = move f
nextfile f
tsostest = entry 50 sosdoc
tsostest = move f
nextfile f
tprologue = entry 50 sosdoc
tprologue = move f
nextfile f
tdisplay = entry 50 sosdoc
tdisplay = move f
nextfile f
tnews = entry 4 sosdoc
tnews = move f
scope user soshelp tsoscat trcmol tsos tupsoscat ttrace tsostest tcleartemp,
tprologue tdisplay tnews
clear temp f
)
',f
i'\f
; *** sossave ***
;
;
; moves a total sos system to a sos system tape
; the tape must be specified by means of a file descriptor <sosdoc>
message sos release 2.1
lookup sosdoc
if ok.no
(message specify sos tape by setting file descriptor sosdoc
end)
f = entry sosdoc sosdoc 0 1
f = move soshelp mess.yes
nextfile f
f = move trcmol mess.yes
nextfile f
f = move tsoscat mess.yes
nextfile f
f = move tsos mess.yes
nextfile f
f = move tcleartemp mess.yes
nextfile f
f = move tupsoscat mess.yes
nextfile f
f = move ttrace mess.yes
nextfile f
f = move tsostest mess.yes
nextfile f
f = move tprologue mess.yes
nextfile f
f = move tdisplay mess.yes
nextfile f
f = move tnews mess.yes
',f
i'
\f
; *** soslist ***
;
;
; lists all text files on a sos system tape
lookup rcmol
if ok.no
rcmol = algol trcmol
o sostexts
head 3
edit soshelp
p b,f
head 3
edit tsoscat
p b,f
head 3
rcmol tsos list.yes
head 3
rcmol tcleartemp list.yes
head 3
algol tupsoscat list.yes
head 3
algol ttrace list.yes
head 3
algol tsostest list.yes
head 3
rcmol tprologue list.yes
head 3
algol tdisplay list.yes
head 3
edit tnews
p b,f
head 1
o c
convert sostexts
clear temp rcmol
',f
▶EOF◀