⟦75595ff25⟧

TextFile


;             ***  soshelp  ***
;

f = entry sw8110 sw8110 d.0

trcmol     = entry f f f  7
ttrace     = entry f f f  8
tsos       = entry f f f  9
tsoscat    = entry f f f 10
tcleartemp = entry f f f 11
tupsoscat  = entry f f f 12
tsostest   = entry f f f 13
tprologue  = entry f f f 14
tdisplay   = entry f f f 15
tnews      = entry f f f 16

(

sostrim=copy message.no 64.1

soslist=copy message.no 64.1

sosload=copy message.no 64.1

end

)

;             ***  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


;             ***  sosload  ***
;
;


f = entry sw8110 sw8110 d.0 7
if ok.no
end

clear temp trcmol ttrace,
           tsos tsoscat tcleartemp tupsoscat tsostest,
           tprologue tdisplay tnews

trcmol = entry 1 disc
trcmol = copy f

nextfile f
ttrace = entry 1 disc
ttrace = copy f

nextfile f
tsos = entry 1 disc
tsos = copy f

nextfile f
tsoscat = entry 1 disc
tsoscat = copy f

nextfile f
tcleartemp = entry 1 disc
tcleartemp = copy f

nextfile f
tupsoscat = entry 1 disc
tupsoscat = copy f

nextfile f
tsostest = entry 1 disc
tsostest = copy f

nextfile f
tprologue = entry 1 disc
tprologue = copy f

nextfile f
tdisplay = entry 1 disc
tdisplay = copy f

nextfile f
tnews = entry 1 disc
tnews = copy f

scope user trcmol ttrace,
           tsos tsoscat tcleartemp tupsoscat tsostest,
           tprologue tdisplay tnews

@
▶EOF◀
DataMuseum.dk

RC4000/8000/9000

⟦75595ff25⟧ Rc489k_TapeFile, TextFile

Derivation

TextFile
