DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦ef5fa0e68⟧ »jtas« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦ef5fa0e68⟧ »jtas« 
            └─⟦this⟧ 

TextFile

(mode list.yes
setdef=algol list.yes
scope day setdef
setdef
mode list.no
finisb)
begin
array name1,name2(1:3);
integer array t(1:10);
integer size,first,res;
array field doc;

procedure set_tail(t);
integer array t;
if res>0 then
begin
t(1):=1 shift 23+4;
t.doc(1):=real <:toss:>;
t.doc(2):=real <::>;
t(6):=systime(7,0,0.0);
t(8):=t(9):=t(10):=0;
end;

doc:=2;
movestring(name1,1,<:tosssysdef1:>);
movestring(name2,1,<:tosssysdef2:>);
readifp(<:size:>,size,40);
readifp(<:first:>,first,2 shift 16);
write(out,<:size :>,size,<:, first  :>,first);
res:=lookuptail(name1,t);
t(7):=size shift 12;
settail(t);
res:=changetail(name1,t);
res:=lookuptail(name2,t);
t(7):=first;
settail(t);
res:=changetail(name2,t);
end;
▶EOF◀