|
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: 2304 (0x900)
Types: TextFile
Names: »kkclaimret«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦20407c65c⟧ »kkmon0filer«
└─⟦this⟧
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦f781f2336⟧ »kkmon0filer«
└─⟦this⟧
(
kktclaim=edit tclaim
(kkclaim=slang kktclaim
kkclaim)
scope user kkclaim
)
l./s.a22/,r/b38/b40/,r/d2/d3/,
l./b17:/,d1,i/
b18: 0 ; number of entries
b17: 0 ; number of segments
/,l./a0:/,l./alw3(/,i/
jl. w3 d3. ; move name;
/,l./rl.w3(b10.)/,d,
l./alw10/,i/
al. w1 b40. ; w1:=addr(bs-claim store);
al. w2 b11. ; w2:=addr(current device name);
al. w3 b39. ; w3:=addr(current proc);
jd 1<11+118 ; lookupbsclaims(store,device,process);
/,l./jl.a16./,l1,d 1,i/
al. w1 b40. ; w1:=addr(bs claims store);
ba. w1 b19. ;
ba. w1 b19. ;
/,l./bz/,r/bz/rl/,l2,r/bz/rl/,r/1+1/1+2/,l./jl.a11./,l1,d 1,i/
al. w1 b40. ; w1:=addr(bs claim store);
ba. w1 b19. ;
ba. w1 b19. ;
/,l./bz/,d 5,i/
dl w0 x1+2 ; w3:= number of entries;
; w0:=number of segments
ds. w0 b17. ; save (number of segments);
/,l./a22:/,d,r/ /a22:/,
l./e. ;end of parameter procedures/,l1,i/
b. a0,b3 w. ; procedure move current procees name;
d3: ; call move name
b39: ds. w1 b1. ;
ds. w3 b3. ; store(w0,w1,w2,w3);
rl w1 66 ;
al w3 x1+2 ; w3:=addr(current procees name);
a0=k
b40: dl w1 x3+2 ;
ds. w1 b39.+2 ;
dl w1 x3+6 ;
ds. w1 b39.+6 ; move name
dl. w1 b1. ;
dl. w3 b3. ; restore(w0,w1,w2,w3);
jl x3 ; return
b0:0 ;
b1:0 ;
b2:0 ;
b3:0 ;
0,r.(:32-(:k-a0:):) ; make room
e.
/,f
▶EOF◀