|
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: »raminitx«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »raminitx«
clear user raminit
raminit=set 1 disc5
scope user raminit
raminit=algol
\f
RAMAN SAVESYSTEM program: raminit
begin
integer efil,bnr,j; integer array t(1:10);
zone MAG(128,1,stderror);
write(out,<:efil bnr=:>); setposition(out,0,0);
read(in,efil,bnr);
lookuptail(<:ramnr:>,t);
t(8):=if efil=0 then 1 else efil;
changetail(<:ramnr:>,t);
open(MAG,4 shift 12 + 18,<:ramtape:>,0);
if efil=0 then
begin setposition(MAG,0,0); outrec(MAG,128);
for j:=1 step 1 until 3 do MAG(j):=444;
MAG(4):=bnr;
efil:=1;
end;
setposition(MAG,efil,0);
outrec(MAG,128);
MAG(1):=MAG(2):=MAG(3):=666; MAG(4):=bnr;
setposition(MAG,0,0);
close(MAG,false);
end
\f
▶EOF◀