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

⟦fef00e20c⟧ TextFile

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

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦58ca399f1⟧ »extbib« 
            └─⟦this⟧

TextFile

create=algol list.yes
external
integer procedure create(z,l,tail);
value l; integer l; zone z; integer array tail;
begin
real r; integer i;
r:= real <:disc5:>;
for i:=4 step 1 until 10 do tail(i):= 0;
tail(1):= l; tail(2):= r shift (-24) extract 24;
tail(3):= r extract (24); tail(6):= systime(7,0,0.0);
create:= monitor(40,z,0,tail);
monitor(50,z,3,tail); system(11,i,tail);
tail(1):= tail(5); tail(2):= tail(6);
monitor(74,z,0,tail)
end; end
▶EOF◀