⟦9c672e786⟧

TextFile

;             ***  mipshelp  ***
;
;

(

message mips ts release 7.1

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 64.1

temlist=copy message.no 64.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

temproc = entry 4 temdoc
i ttemtest

scope user btem trace temproc

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 64.1

primolist=copy message.no 64.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      :=   3,
      ! 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      :=   1,
      ! size of cardreader buffer (halfwords)       ! cdbufsize    := 108,
      ! number of tty coroutines (halfwords)        ! twcount      :=   1,
      ! size of tty buffer                          ! twbufsize    :=  104,
      ! no of format printer coroutines             ! fprcount     :=   1,
      ! size of fpr buf incl. 10 hlw. hd/tr         ! fprbufsize   := 172,
      ! no of operator coroutines                   ! oprcount     :=   2,
      ! no of transport description segmnts         ! trsegm       := 100,
      ! size of testoutput area                     ! testsegmnts  :=  42,
      ! transport description save period           ! trsaveminut  :=  60,
      ! no of waiting transports  ( total )         ! waittrans    :=  50,
      ! no of pending wait operations               ! waitops      :=   5,
      ! operator output specification:              ! oprdetails   :=   2,
      ! bit 23: output information concerning transport termination.     !
      ! bit 22: route output to main operator if not signed up or trouble!
      ! accept transports to nonexisting dev. host  ! taccept      :=   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
algol ttransfer list.yes xref.yes
head 3
copy list.yes message.no tfileutil
o c

convert primotexts
if 2.no
clear temp rcmol
@
?
\f


;             ***  soshelp  ***
;

(

sostrim=copy message.no 64.1

soslist=copy message.no 64.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    := 13000,
! 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,
! reaction on time exceeded or break                      ! conditions := 2'000011,
!      2'000001 = abort job at time exceeded              !
!      2'000010 = abort job after break command           !


  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

bdisplay = entry 20 sosdoc
bdisplay = algol connect.no tdisplay 
                             ; translate program displaying running jobs



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
  xnews = entry 1 sosdoc     ;
  xnews = move tnews         ;       an example of a "news-file"
  scope temp tsostest tnews  ;
  clear temp tsostest tnews  ;
  rename xsostest.tsostest   ;
  rename xnews.tnews         ;
  scope user tnews           ;
  scope user soscat tsostest ; end
)

scope user bsos upsoscat trace cleartemp prologue bdisplay

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 xref.yes
head 3
rcmol tprologue list.yes xref.yes
head 3
copy list.yes message.no tsoscat
head 3
algol tsostest list.yes xref.yes
head 3
algol tdisplay list.yes xref.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◀
DataMuseum.dk

RC4000/8000/9000

⟦9c672e786⟧ Rc489k_TapeFile, TextFile

Derivation

TextFile
