|
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 - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »cmonload«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦a2674cfeb⟧ »calgmon«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦a2674cfeb⟧ »calgmon«
└─⟦this⟧
\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◀