|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4608 (0x1200)
Types: Rc489k_TapeFile, TextFile
└─⟦aa55fa693⟧ Bits:30007479 SW8110/1 TAS/SOS/PRIMO Rel 2.3
└─⟦this⟧
; *** 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◀