|
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: 3840 (0xf00)
Types: TextFile
Names: »pprocrec«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦c9a650afb⟧ »hcøplib«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦c9a650afb⟧ »hcøplib«
└─⟦this⟧
type halfword = -2048 .. 2047;
p_halfword= 0..4095;
userbit =set of 0..11;
userrecord=array Æ1..4Å of userbit;
reserverw=packed record
user: userbit;
index: p_halfword;
end;
linka = ^area_proc;
linkb = ^mes_buf;
linki = ^intern_proc;
linkp = ^proc;
bsclaims = record
key0,key1,key2,key3: record slices,entries: integer;
end;
end;
base = record lower,upper: integer; end;
link = record next,prev: integer; end;
size = record first,last: integer; end;
save = record addr,g20,g21,g22,g23,g24,b18,b19:integer; end;
i_lev = packed record mon,user: halfword; end;
intern_proc= record
proc_base: base;
kind: 0 .. 64;
name: alfa;
ss: packed record stopcount,state:halfword; end;
id_bit:packed record rel: halfword; user: userbit;
end;
event: link;
time_slice: link;
addr_space: size;
claims: packed record buff,area,ip,func_m:halfword end;
priority: -1 .. 8388606;
mode: integer;
int_mask: integer;
userexc,useresc,i_cpa,i_base: integer;
wr_limits: size;
int_level: i_lev;
parent: linki;
quantum: integer;
runtime,starttime,startwait: real;
waitaddr: integer;
cat_base,max_base,std_base: base;
w0,w1,w2,w3: integer;
status,ic,cause,sb: integer;
curr_cpa,curr_base: integer;
curr_wr_lim: size;
curr_int_level: i_lev;
save_area: save;
drum,drum1,disc,disc1,disc2,disc3: bsclaims;
end;
mes_buf = record
flag_w2: integer;
buf: link;
receiver: integer;
sender: integer;
om:packed record op,mode:halfword; end;
m8,m10,m12,m14,m16,m18,m20,m22: integer;
end;
area_proc = record
user: userrecord;
proc_base: base;
kind: 4..64;
name: alfa;
per: linkp;
reserver: reserverw;
not_used: integer;
f_slice,segments: integer;
doc: alfa;
writecounter,readcounter: integer;
end;
proc=record
proc_base: base;
kind: 0..84;
name: alfa;
end;
▶EOF◀