DataMuseum.dk

top - metrics - download

    Length: 4608 (0x1200)
    Types: Rc489k_TapeFile, TextFile
    Names: »primohelp   «

└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
    └─⟦39138f30b⟧ 
        └─⟦this⟧ »primohelp   « 
└─⟦aa55fa693⟧ Bits:30007479 SW8110/1 TAS/SOS/PRIMO Rel 2.3
    └─⟦this⟧ 

TextFile

;             ***  primohelp  ***
;
  
f = entry sw8110 sw8110 d.0

trcmol     = entry f f f  7
ttrace     = entry f f f  8
tprimo     = entry f f f 17
ttransfer  = entry f f f 18
tfileutil  = entry f f f 19

(

primotrim=copy message.no 64.1

primolist=copy message.no 64.1

primoload=copy message.no 64.1

end

)


;             ***  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,
      ! no of File Transport Service (fts) corout.  ! ftscount     :=   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


;             ***  primoload  ***
;
;

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

clear temp trcmol ttrace tprimo ttransfer tfileutil

trcmol = entry 1 disc
trcmol = copy f

nextfile f
ttrace = entry 1 disc
ttrace = copy f

f = entry f f f 17
tprimo = entry 1 disc
tprimo = copy f

nextfile f
ttransfer = entry 1 disc
ttransfer = copy f

nextfile f
tfileutil = entry 1 disc
tfileutil = copy f

scope user trcmol ttrace tprimo ttransfer tfileutil
@
▶EOF◀