DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »dfhsos«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »dfhsos« 

TextFile

;             ***  sostrim  ***
;
;
; contains options for trimming sos system from tsos

xsos = edit tsos            ; edit options into program text
l./wordownproc/,l1,i/
word firstdev,lastdev;
/
l./body of init/,
l./===trimstart/,
d./===trimfinis/,
i/
! date of options    800625                           ! optionid   :=800625,

! 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 comm.! 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  :=     1,
! max no of time slices used in cpu (no input)        ! cpulimit   :=  2047,
! 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,
! first device ! firstdevice:=24,
! last  device ! lastdevice:=48,
! size of testoutput area (segments)                  ! testsegmnts:=     0,
conditions:=0,

  trimtexts;  text(11)

! operator key                                      ! oprkey  := "opr",
! document for swoparea                             ! swopdoc :="disc4'0'",
! document for test area                            ! testdoc :=    "",


/,
l./b.inputgain/,l1,i/
b.firstdev:=w1:=firstdevice;
b.lastdev:=w1:=lastdevice;
/
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;
w0:=b.lastdev;
while w1:=dev<=w0:=b.lastdev do
begin
  monitor(12); ! include user !
  dev:=w1:=dev+1;
end;
/,
f
bsos = rcmol xsos list.error
▶EOF◀