DataMuseum.dk

top - metrics - download

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

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »primohelp« 

TextFile

\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
'
▶EOF◀