|
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: 13056 (0x3300)
Types: TextFile
Names: »mipshelp«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »mipshelp«
; *** mipshelp ***
;
;
(
message mips ts release 2.0
temhelp=copy message.no 63.1
primohelp=copy message.no 63.1
soshelp=copy message.no 63.1
mipstrim=copy message.no 63.1
mipslist=copy message.no 63.1
mipsload=copy message.no 63.1
mipssave=copy message.no 63.1
backfile mipshelp
if ok.yes
(
f=entry mipshelp mipshelp d.0
mipsid = entry f f f 1
mipshelp = entry f f f 2
bcheckmt = entry f f f 3
trcmol = entry f f f 4
ttrace = entry f f f 5
ttem = entry f f f 6
ttemtest = entry f f f 7
tprimo = entry f f f 8
ttransfer = entry f f f 9
tfileutil = entry f f f 10
tsos = entry f f f 11
tcleartemp= entry f f f 12
tupsoscat = entry f f f 13
tprologue = entry f f f 14
tsoscat = entry f f f 15
tsostest = entry f f f 16
tdisplay = entry f f f 17
tnews = entry f f f 18
)
end
)
\f
; *** temhelp ***
;
(
temtrim=copy message.no 39.1
temlist=copy message.no 39.1
end
)
\f
; *** temtrim ***
;
;
; contains options for trimming tem system
; and commands for automatic system generation from the tem system tape
temdummyout=set 1
o temdummyout
mode 1.no
lookup temdoc
if ok.no
mode 1.yes
o c
if 1.yes
temdoc=set 1
if 2.no
(trace=entry 40 temdoc
trace=algol ttrace)
xtem = edit ttem ; edit options into the program text
l./body of init/,
l./verstext/,l1
l./===trimstart/,
d./===trimfinis/,
i/
! date of options ! options := 0,
! number of active terminals ! thcount := 15,
! number of active terminal groups ! phcount := 5,
! number of spool segments for each terminal group ! phspoolsegm := 10,
! number of spool segments for each terminal ! thspoolsegm := 10,
! size of terminal buffer in core (half words) ! termbufsize := 104,
! number of spool segment buffers in core ! spoolbufs := 2,
! size of testoutput area (segments) ! testsegmnts := 42,
/,
f
if 2.no
rcmol = algol trcmol ;
btem = entry 20 temdoc
btem = rcmol xtem ; translate trimmed program text
scope user btem trace
o temdummyout
clear temp xtem temtrim trcmol ttem ttrace ttemtest,
temlist
if 2.no
clear temp rcmol
o c
clear temp temdummyout
message tem generation completed
'
\f
; *** temlist ***
;
;
; lists all text files on the tem system tape
lookup rcmol
if ok.no
rcmol = algol trcmol
o temtexts
head 3
copy list.yes message.no temhelp
head 3
rcmol ttem list.yes xref.yes
head 3
copy list.yes message.no ttemtest
o c
convert temtexts
if 2.no
clear temp rcmol
'
?
\f
; *** primohelp ***
;
(
primotrim=copy message.no 39.1
primolist=copy message.no 39.1
end
)
\f
; *** primotrim ***
;
;
; contains options for trimming the primo system
; and commands for automatic system generation
pdummyout= set 1
o pdummyout
mode 1.no
lookup primodoc
if ok.no
mode 1.yes
o c
if 1.yes
primodoc=set 1
if 2.no
(trace=entry 40 primodoc
trace=algol ttrace)
xprimo = edit tprimo ; edit options into the program text
l./body of init/,
l./textversion:=/,l1
l./===trimstart/,
d./===trimfinis/,
i/
! date of options ! options := 0,
! number of printer coroutines ! prcount := 1,
! size of printer buffer (halfwords) ! prbufsize := 128,
! leading and trailing page on printer lists ! prltpage := 1,
! max lines pr printer page ! prlinepage := 100,
! number of punch coroutines ! pccount := 1,
! size of punch buffer (halfwords) ! pcbufsize := 128,
! number of reader coroutines ! rdcount := 1,
! size of reader buffer (halfwords) ! rdbufsize := 128,
! number of cardreader coroutines ! cdcount := 0,
! size of cardreader buffer (halfwords) ! cdbufsize := 108,
! number of tty coroutines (halfwords) ! twcount := 0,
! size of tty buffer ! twbufsize := 64,
! no of operator coroutines ! oprcount := 2,
! no of transport description segmnts ! trsegm := 100,
! size of testoutput area ! testsegmnts := 42,
! transport description save period ! trsaveminut := 240,
! no of waiting transports ( total ) ! waittrans := 50,
! no of pending wait operations ! waitops := 5,
! output details to operator ( when <> 0) ! oprdetails := 0,
/,
f
if 2.no
rcmol = algol trcmol
bprimo = entry 20 primodoc
bprimo = rcmol xprimo ; translate trimmed programme
transfer= entry 20 primodoc
transfer= algol ttransfer
filexfer= entry 60 primodoc
fileenq = entry 60 primodoc
savetrans= entry 60 primodoc
i tfileutil
scope user bprimo trace transfer filexfer fileenq savetrans
(o pdummyout
clear temp xprimo primotrim trcmol tprimo ttrace ttransfer tfileutil,
primolist primodoc
if 2.no
clear temp rcmol
o c
clear temp pdummyout )
message primo generation completed
'
\f
; *** primolist ***
;
;
; lists all text files on the primo system tape
lookup rcmol
if ok.no
rcmol = algol trcmol
o primotexts
head 3
copy list.yes message.no primohelp
head 3
rcmol tprimo list.yes xref.yes
head 3
copy list.yes message.no ttransfer
head 3
copy list.yes message.no tfileutil
o c
convert primotexts
if 2.no
clear temp rcmol
'
?
\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
'
?
\f
; *** mipstrim ***
;
mode 2.yes ; prevent several translations of the rcmol compiler
mipdummyout=set 1
o mipdummyout
mode 1.no
lookup mipsdoc
if ok.no
mode 1.yes
o c
if 1.yes
mipsdoc = set 1
temdoc = entry 1 mipsdoc
primodoc= entry 1 mipsdoc
sosdoc = entry 1 mipsdoc
rcmol=algol trcmol
trace = entry 40 mipsdoc
trace = algol ttrace
i temhelp
i temtrim
i primohelp
i primotrim
i soshelp
i sostrim
clear temp mipdummyout
mode 2.no
?
\f
; *** mipslist ***
;
mode 2.yes ; prevent several translations of the rcmol compiler
rcmol=algol trcmol
i temhelp
i temlist
i primohelp
i primolist
i soshelp
i soslist
mode 2.no
?
\f
; *** mipsload ***
mipdummyout=set 1
o mipdummyout
mode 1.no
lookup mipsdoc
if ok.no
mode 1.yes
o c
if 1.yes
mipsdoc=set 1
binin bcheckmt
checkmt mipshelp
if ok.no
end
f=entry mipshelp mipshelp d.0 1
if ok.no
end
clear temp mipsid mipshelp bcheckmt trcmol ttrace,
ttem ttemtest,
tprimo ttransfer tfileutil,
tsos tcleartemp tupsoscat tprologue tsoscat tsostest tdisplay tnews
mipsid=entry 1 mipsdoc
mipsid=copy f
nextfile f
mipshelp=entry 15 mipsdoc
mipshelp=copy f
nextfile f
bcheckmt=entry 1 mipsdoc
bcheckmt=move f
nextfile f
trcmol=entry 178 mipsdoc
trcmol=copy f
nextfile f
ttrace=entry 40 mipsdoc
ttrace=copy f
nextfile f
ttem=entry 90 mipsdoc
ttem=copy f
nextfile f
ttemtest=entry 5 mipsdoc
ttemtest=copy f
nextfile f
tprimo=entry 150 mipsdoc
tprimo=copy f
nextfile f
ttransfer=entry 40 mipsdoc
ttransfer=copy f
nextfile f
tfileutil=entry 50 mipsdoc
tfileutil=copy f
nextfile f
tsos=entry 160 mipsdoc
tsos=copy f
nextfile f
tcleartemp=entry 10 mipsdoc
tcleartemp=copy f
nextfile f
tupsoscat=entry 100 mipsdoc
tupsoscat=copy f
nextfile f
tprologue=entry 20 mipsdoc
tprologue=copy f
nextfile f
tsoscat=entry 10 mipsdoc
tsoscat=copy f
nextfile f
tsostest=entry 10 mipsdoc
tsostest=copy f
nextfile f
tdisplay=entry 10 mipsdoc
tdisplay=copy f
nextfile f
tnews=entry 1 mipsdoc
tnews=copy f
scope user mipsid mipshelp bcheckmt trcmol ttrace ttem ttemtest tprimo ttransfer,
tfileutil tsos tcleartemp tupsoscat tprologue tsoscat tsostest,
tdisplay tnews
?
\f
; *** mipssave ***
mipdummyout=set 1
binin bcheckmt
checkmt mipsdoc
if ok.no
end
f=entry mipsdoc mipsdoc d.0 1
if ok.no
end
f=copy mipsid
nextfile f
f=copy mipshelp
nextfile f
f=move bcheckmt
nextfile f
f=copy trcmol
nextfile f
f=copy ttrace
nextfile f
f=copy ttem
nextfile f
f=copy ttemtest
nextfile f
f=copy tprimo
nextfile f
f=copy ttransfer
nextfile f
f=copy tfileutil
nextfile f
f=copy tsos
nextfile f
f=copy tcleartemp
nextfile f
f=copy tupsoscat
nextfile f
f=copy tprologue
nextfile f
f=copy tsoscat
nextfile f
f=copy tsostest
nextfile f
f=copy tdisplay
nextfile f
f=copy tnews
clear temp f checkmt mipdummyout
?
▶EOF◀