|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »algstarkkoe«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦7e928b248⟧ »algbib«
└─⟦this⟧
;gosav r=algol index.no \f STARKKOEF begin zone res, L(128,1,stderror); real a; integer j,Jmax,J,k1,k2,p; boolean closeres; open(L,4,<:starkmat:>,0); closeres:= outmedium(res); write(res,<:<12>:>); p:= 0; read(in,Jmax); inrec(L,128); a:= L(1); repeat: write(res,<:<10>:>); for j:=-24,0 do begin J:= a shift (j-16) extract 8; k1:= a shift (j-8) extract 8; k2:= a shift j extract 8; write(res,<<ddd>,J,k1,k2,<: :>) end; write(res,<< -ddd ddd ddd.dd0>,L(p+2),<< d.ddd ddd'-d>,L(p+3)); p:= (p+3) mod 126; if p=0 then inrec(L,128); a:= L(p+1); if a shift (-16) extract 8 <=Jmax then goto repeat; write(res,<:<25>:>); close(L,false); close(res,closeres) end rename r.starkkoef permanent starkkoef.17 ▶EOF◀