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

⟦ca88fe371⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »cload       «

Derivation

└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─⟦this⟧ »cload       « 
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─⟦this⟧ »cload       « 

TextFile

\f


;             ***  cmonload  ***
;
;
; loads all text files of the coroutine monitor system to the disc specified
; by <cmondoc>  (default is disc)
o cmondumout
lookup cmondoc
if ok.no
cmondoc = set 1
backfile cmonhelp
if ok.no
(o c
message cmonhelp not on magnetic tape
end)
o c

f = entry cmonhelp cmonhelp 0 1
clear temp cmonhelp bincmon cmonload cmonsave cmonlist,
           tcmon tmon tcmerge tctrace

cmonhelp = entry 1 cmondoc
cmonhelp = move f

nextfile f
tcmon = entry 50 cmondoc
tcmon = move f

nextfile f
tmon = entry 50 cmondoc
tmon = move f

nextfile f
tcmerge = entry 50 cmondoc
tcmerge = move f

nextfile f
tctrace = entry 50 cmondoc
tctrace = move f

scope user cmonhelp tcmon tmon tcmerge tctrace

▶EOF◀