DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »retptotest«

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

TextFile

ptext=edit ptext

l./childsegm:=/,r/24/20/,
l./CODE(1:256/,r/3/4/,
l./NEXT_EVENT:/,l./CALL:/,d./MESSAGE,/,i/


CALL:
j:=callcode(CODE,i);

   if j<=3 then
   begin
    write(out,j,buff);
    for i:=4 step 2 until 14 do write(out,wordload(buff+i));
   charout(10);▶15◀
   end;
   if j<=3 then
   goto (case j of
              (MESSAGE,COMM_ANSWER,I_O_ANSWER));
charout(10);
for i:=0 step 2 until 12 do write(out,<< -dddddd>,wordload(i+j));
write(out,<:<10>:>,currproc,sysstate,changebuf,operatorbuf);
if currproc>0 then write(out,Pstate(currproc),TBstate(currproc));

if procno>0 and procno<=maxproc then write(out,<:, procno::>,procno,
TBstate(procno),TBprocbuf(procno),TBtermbuf(procno),
if Ptobemod(procno) then <: true:> else <: false:>);
j:=wordload(j+6);
   if j>20000 and j<30000 then
   begin integer k;
    write(out,<:<10>buff::>,j,<:: :>);
    for i:=abs wordload(j+6),abs wordload(j+4) do
    begin
     charout(32);
     if i>5 then
     begin for k:=2 step 2 until 8 do charout(wordload(i+k)); end
     else write(out,i);
    end;
    for k:=8 step 2 until 14 do write(out,wordload(j+k));
   end;
outend(10);
i:=14;goto CALL;
/,
f
▶EOF◀