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

⟦dd1be4dfd⟧ TextFile

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

Derivation

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »libjobsyst«

TextFile

job pm 2 600 area 9,
perm disc 200 2,
size 100000,
temp disc 5000 50,
output 500000,
time 9000
codegen
coderoutine(abs clearlevel controle controleclr
 eoi excptcall locked nil open openpool passive inbyteblock
inwordblock readram inword ref release return sense sensesem signal
 wait outbyteblock outwordblock writeram writeramclr outword outwordclr
).

templib=set 0
platonenv=set bs bblenv
i genjob
rename templib.platonlib
if ok.yes
scope user platonlib
lookup platonlib
finis
▶EOF◀