|
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: 4608 (0x1200)
Types: TextFile
Names: »soshelp«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »soshelp«
\f
; *** soshelp ***
;
(
sostrim=copy message.no 39.1
soslist=copy message.no 39.1
end
)
\f
; *** sostrim ***
;
;
; contains options for trimming sos system
; and commands for automatic system generation from the sos system tape
sosdummyout=set 1
o sosdummyout
mode 1.no
lookup sosdoc
if ok.no
mode 1.yes
o c
if 1.yes
sosdoc=set 1
if 2.no
(trace=entry 40 sosdoc
trace=algol ttrace)
xsos = edit tsos ; edit options into program text
l./body of init/,
l./verstxt/,l1
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
if 2.no
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
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 prologue
o sosdummyout
clear temp xsos trcmol sostrim tsoscat tsos tupsoscat ttrace,
tsostest soslist tcleartemp tprologue tdisplay tnews
if 2.no
clear temp rcmol
o c
clear temp sosdummyout
message sos generation completed
'
\f
; *** soslist ***
;
;
; lists all text files on a sos system tape
lookup rcmol
if ok.no
rcmol = algol trcmol
o sostexts
head 3
copy list.yes message.no soshelp
head 3
rcmol tsos list.yes xref.yes
head 3
rcmol tcleartemp list.yes xref.yes
head 3
algol tupsoscat list.yes
head 3
rcmol tprologue list.yes xref.yes
head 3
copy list.yes message.no tsoscat
head 3
algol tsostest list.yes
head 3
algol tdisplay list.yes
head 3
copy list.yes message.no tnews
head 1
o c
convert sostexts
if 2.no
clear temp rcmol
'
▶EOF◀