DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦45766b6da⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »hcøprimtrim«

Derivation

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

TextFile

\f



;             ***  hcprimtrim  ***
;
;
; contains options for trimming the primo system

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      :=   820507,
      ! number of printer coroutines                ! prcount      :=   4,
      ! size of printer buffer (halfwords)          ! prbufsize    := 128,
      ! leading and trailing page on printer lists  ! prltpage     :=   1,
      ! max lines pr printer page                   ! prlinepage   := 66,
      ! number of punch coroutines                  ! pccount      :=   0,
      ! size of punch buffer (halfwords)            ! pcbufsize    := 128,
      ! number of reader coroutines                 ! rdcount      :=   0,
      ! 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     :=   4,
      ! no of transport description segmnts         ! trsegm       := 100,
      ! size of testoutput area                     ! testsegmnts  :=  0,
      ! 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
bprimo = rcmol xprimo       ; translate trimmed programme

message primo generation completed
▶EOF◀