DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »cmonhelp«, »cmonhelp    «

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »cmonhelp« 
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─⟦this⟧ »cmonhelp    « 
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─⟦this⟧ »cmonhelp    « 

TextFile

;             ***  cmonhelp  ***
;
;
; contains auxiliary files for system generation, system load, system save
; and system listing

(
o cmondumout
backfile cmonhelp
if ok.yes
(
nextfile cmonhelp

tcmon       = entry cmonhelp cmonhelp 0 2

tmon        = entry cmonhelp cmonhelp 0 3

tcmerge     = entry cmonhelp cmonhelp 0 4

tctrace     = entry cmonhelp cmonhelp 0 5
)
bincmon = edit

cmonload = edit

cmonsave = edit

cmonlist = edit

o c
)

i'
\f


;             ***  bincmon  ***
;
;
; generates text files and auxiliary programs and procedures necessary
; for using the coroutine monitor system

o cmondumout
mode 1.no
lookup cmondoc           ; if <cmondoc> is not present
if ok.no
mode 1.yes
o c
if 1.yes 
cmondoc = set 1          ; then set it preferrably on disc

mon = entry 1 cmondoc
i tmon

cmerge = entry 50 cmondoc
cmerge = algol tcmerge

ctrace = entry 50 cmondoc
ctrace = algol tctrace

f = entry tcmon tcmon tcmon tcmon
clear temp tcmon
tcmon = entry 50 cmondoc
tcmon = copy f

scope user tcmon cmerge ctrace,
           mon monw0 monw1 monw2 monw3 reflectcore
clear temp f tcmerge tctrace cmondumout

', f
i'
\f


;             ***  cmonload  ***
;
;
; loads all text files of the coroutine monitor system to the disc specified
; by <cmondoc>  (default is disc)

(end
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

', f
i'
\f


;             ***  cmonsave  ***
;
;
; generates a new coroutine monitor system tape

message coroutine monitor version 1.0

lookup cmondoc
if ok.no
(
message specify cmontape by setting cmondoc entry
end)

f = entry cmondoc cmondoc 0 1
f = move cmonhelp mess.yes

nextfile f
f = move tcmon mess.yes

nextfile f
f = move tmon mess.yes

nextfile f
f = move tcmerge mess.yes

nextfile f
f = move tctrace mess.yes

', f
i'
\f


;         ***  cmonlist  ***
;
;
; lists the text files of the coroutine monitor system

cmontexts = set 400
o cmontexts
mode listing.yes

head 2
edit cmonhelp
p b, f

head 2
edit tmon
p b,f
i tmon

head 2
algol tcmon

head 2
algol tcmerge

head 2
algol tctrace

head 1
o c
convert cmontexts

', f
▶EOF◀