DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »gcconvert«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »gcconvert« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »gcconvert« 

TextFile

begin
real array ra(1:2);
integer array carr(1:30),rarr(1:11);
integer i,j;
for i:=7 step 1 until 30 do carr(i):=-1;
for i:=27,28,29,1 step 1 until 6 do carr(i):=0;
if readparam(ra)=-1 then readparam(ra);
carr(26):=long <:lp:> shift (-24);
i:=wordload(66);
carr(9):=wordload(i+2);
carr(10):=wordload(i+4);
carr(11):=wordload(i+6);
carr(12):=wordload(i+8);
om:
for i:=readparam(ra) while i <>0 do
begin
if i=1 or i=3 then
begin
write(out,<:***param    :>,<<d>,ra(1),<:<10>:>);
goto om;
end;
i:=1;
if lookuptail(ra,rarr)<>0 then
begin
write(out,false add 32,12-
write(out,string ra(increase(i))));
write(out,<:not found<10>:>);
goto om;
end;
if rarr(7)<>0 or rarr(8)<>0 or rarr(9)<>0 or rarr(10)<>0 then
begin
write(out,false add 32,12-
write(out,string ra(increase(i))));
write(out,<:not text<10>:>);
goto om;
end;
carr(21):=long ra(1) shift (-24);
carr(22):=long ra(1) extract 24;
carr(23):=long ra(2) shift (-24) extract 24;
carr(24):=long ra(2) extract 24;
j:=transfer(2,carr,30,rarr,11);
if j=0 then 
begin
write(out,false add 32,12-
write(out,string ra(increase(i))));
write(out,<:job nr :>,rarr(2),<:<10>:>);
end else
begin
write(out,false add 32,12-
write(out,string ra(increase(i))));
write(out,case j of(
<:error 1<10>:>,<:primo message rejected<10>:>,
<:primo message unintelligble<10>:>,
<:primo malfunction<10>:>,
<:primo not present<10>:>,
<:message buffer claim exceeded<10>:>,
<:error 7<10>:>,<:error 8<10>:>,<:error 9<10>:>));
end;
end;
end
▶EOF◀