DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦5eaa4e195⟧ TextFile

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

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tprdump«

TextFile

prdump=set 1 disc1
scope project prdump
prdump=algol
begin
integer i;
integer array field f;
write(out,"nl",1,<:monitor register dump:>);
connectcuri(<:mondump:>);
setposition(in,0,2);
f:=1256-1024;
inrec6(in,512);
write(out,"nl",1,<:w0                :>,in.f(1),
          "nl",1,<:w1                :>,in.f(2),
          "nl",1,<:w2                :>,in.f(3),
          "nl",1,<:w3                :>,in.f(4),
          "nl",1,<:status            :>,in.f(5),
          "nl",1,<:IC                :>,in.f(6),
          "nl",1,<:cause             :>,in.f(7));
if in.f(8)<=8 and in.f(8)>=0 then
write(out,<:  :>,case in.f(8)//2+1 of (<:program:>,
  <:integer:>,<:floating:>,<:system table:>,
  <:bus operand:>,<:bus instruction:>));
write(out,"nl",1,<:sb                :>,in.f(8),
          "nl",1,<:cpa               :>,in.f(9),
          "nl",1,<:base              :>,in.f(10),
          "nl",1,<:lower write       :>,in.f(11),
          "nl",1,<:upper write       :>,in.f(12),
          "nl",1,<:interrrupt levels :>,in.f(13) shift (-12),
           in.f(13) extract 12);
unstackcuri;
outendcur(10);
end;
▶EOF◀