⟦909a7a0a0⟧

TextFile

nsostrim=set 1 disc
nsostrim=edit sostrim
l./edit tsos/,l1,i@
l./wordownproc/,l1,i/
word firstdev,lastdev;
l./testsegments/,i/
! first device included                     ! firstdevice:=    36,
! last  device included                     ! lastdevice :=    51,
/,
l./b.inputgain/,l1,i/
b.firstdev:=w1:=firstdevice;
b.lastdev :=w1:=lastdevice;
/,
@,
l.=/,f=,d,i@
/,
l./body of syscommand/,
l./oscomm7 :="batch"/,
r/batch//,
l./!batch/,
r/batch                  /batch (not implemented)/,
l./body of login/,
l./label/,l1,r/;/,try_next;/,
l./incode/,l1,
i#
word p_nr,dev;
text(11) pn1:="nr1",pn2:="nr2",pn3:="nr3",pnr:="nr4",pn5:="nr5",
        pn6:="nr6",pn7:="nr7",pn8:="nr8",pn9:="nr9",pn0;
#,
l./freefound:/,
l./w3:=address(zero);/,
i#
              p_nr := w0 := 0;
copy(.w3.,w0:=8,w1:=string2,w2:=address(pn0));
try_next:
w3 := string2;
monitor(4); ! lookup process !
if w0 <> 0 then
begin
if w1 := p_nr < 9 then
begin
p_nr := w1 := p_nr + 1;
f1 := stdbase;
w0 + 1; w1 + 1;
stdbase := f1;
p_nr := w0 := p_nr ashift 3;
copy(.w3.,w0:=6,w1:=address(pn0),w2:=address(pn1)+p_nr-6);
w1:=w2-2;
copy(.w3.,w0:=8,w1,w2:=string2);
p_nr:=w0:=p_nr ashift -3;
goto try_next;
end
else
end;
l./monitor(56)/,
l./w3:=b.proc/,
i/
dev:=w1:=b.firstdev;
while w1:=dev<=w0:=b.lastdev do
begin
   monitor(12); ! include user !
   dev:=w1:=dev+1;
end;
/,
#,
f
@,f
;                         BTRIM
;contains options for trimming batchsystem from a sossystem


sosdummyout=set 1
o sosdummyout
mode 1.no
lookup sosdoc
if ok.no
mode 1.yes
o c
if 1.yes
sosdoc=set 1

tbatch = edit tsos            ; edit options into program text
l./tsos/,r/tsos/tbatch/,
l./swopping/,d1,i/
;swopping batch system based on sos
/,
l./wordownproc/,l1,i/
word firstdev,lastdev;
/,
l./body of init/,
l./verstxt/,l1
l./===trimstart/,
d./===trimfinis/,
i/
! date of options                                         ! optionid   :=     820920,

! 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    :=     6,
! min. no of areas reserved for user processes            ! minareas   :=     7,
! min. core size for user processes (halfwords)           ! minsize    := 14336,
! size of i-o buffer for each user process (halfwords)    ! bufl       :=   104,
! length of a time slice (seconds)                        ! timeslice  :=    10,
! max no of time slices used in cpu (no input)            ! cpulimit   :=    60,
! loss of priority class when timed out                   ! classloss  :=     2,
! priority class gain at input (if class < 0)             ! classgain  :=     1,
! priority gain when first in activequeue                 ! priogain   :=     1,
! first device included                                   ! firstdevice:=   36,
! last  device included                                   ! lastdevice :=   51,
! size of testoutput area (segments)                      ! testsegmnts:=    0,
! 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    :=    "disc",
! document for test area                                  ! testdoc    :=    "",
/,
l./b.inputgain/,l1,i/
b.firstdev:=w1:=firstdevice;
b.lastdev :=w1:=lastdevice;
/,
l./body of syscommand/,
l./0,1,2=run,newjob,in/,
r/,2=run,newjob/=short,long/,
l./"run"/,r/run//,
l1,r/go/short/,
l1,r/batch/long/,
l./commfound:/,
l./run (connection via tem)/,
r/run (connection via tem)/not used                 /,
l1,r/go   /short/,
l1,r/batch/long /,
l./body of login/,
l./label/,l1,r/;/,try_next;/,
l./text(11)/,r/;/,disp := "display";/,
i#
word p_nr,dev;
text(11) pn1:="nr1",pn2:="nr2",pn3:="nr3",pnr:="nr4",pn5:="nr5",
        pn6:="nr6",pn7:="nr7",pn8:="nr8",pn9:="nr9",pn0;
#,
l./string8:=w1/,l1,d,d,
i/
compare(.w3.,w0:=8,w1:=string2,w2:=address(disp));
if w0=0 then
savew0 :=w0
else
  begin
    compare(.w3.,w0:=8,w1:=string3,w2:=address(jobf));
    if w0 = 0 then jobfile :=w3 := string4
     else jobfile :=w3:= string3;
  end;
/,
l./freefound:/,
l./w3:=address(zero);/,
i#
              p_nr := w0 := 0;
copy(.w3.,w0:=8,w1:=string2,w2:=address(pn0));
try_next:
w3 := string2;
monitor(4); ! lookup process !
if w0 <> 0 then
begin
if w1 := p_nr < 9 then
begin
p_nr := w1 := p_nr + 1;
f1 := stdbase;
w0 + 1; w1 + 1;
stdbase := f1;
p_nr := w0 := p_nr ashift 3;
copy(.w3.,w0:=6,w1:=address(pn0),w2:=address(pn1)+p_nr-6);
w1:=w2-2;
copy(.w3.,w0:=8,w1,w2:=string2);
p_nr:=w0:=p_nr ashift -3;
goto try_next;
end
else
end;
#,
l./monitor(56)/,
i/
dev:=w1:=b.firstdev;
while w1:=dev<=w0:=b.lastdev do
begin
   monitor(12); ! include user !
   dev:=w1:=dev+1;
end;
/,
f
bbatch = rcmol tbatch list.error
scope user bbatch
if 2.no
clear temp rcmol

o c
clear temp sosdummyout

message batch generation completed
▶EOF◀
DataMuseum.dk

RC4000/8000/9000

⟦909a7a0a0⟧ TextFile

Derivation

TextFile
