|
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: 6912 (0x1b00)
Types: TextFile
Names: »kkprt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »kkprt«
(kkpr =slang list.no xref.no;
) ;
\f
s. a30,b50,c10,d4,t248 w.;
p. <:fpnames:> ;
k=h55 ;
c0= 48<12+2 ;
c1=48<12+4 ;
c2=1<23+32<12+3 ;
c3=1<23+32<12+9 ;
c4=50 ;
c5=60 ; check interval
a0: 0 ;
a1: 0 ;
rs. w2 a0. ; w0:=param addr
al. w1 h21. ;
al. w2 a17. ;
jl. w3 h29. ; stack curr output
rl. w2 a0. ;
ba w2 x2+1 ; w2:=next param
al w2 x2+2
rs. w2 a18.
jl. w3 h28.-2 ; connect cur output
sn w0 0 ; if connection ok then
jl. b4. ; goto start
b5: al. w2 a17. ; else stop
al. w1 h21. ;
jl. w3 h30. ; unstack
jl. w3 h32.-2,c3
al w2 0 ;
jl. h7. ;
b4: dl w3 80 ; name table(ip),name table end
ds. w3 a1. ;
al. w1 a30. ; w1:=start local table
rl w3 x2 ;
jl. b1. ;
b0: rl w3 x2 ;
rl w0 x3+2 ;
sn w0 0 ; if no proc then
jl. b3. ; goto next
rs w0 x1+2 ;
rl w0 x3+4 ;
rs w0 x1+4 ;
rl w0 x3+6 ;
rs w0 x1+6 ;
rl w0 x3+8 ;
rs w0 x1+8 ;
b1: rs w3 x1 ;
rs. w3 a10. ;
dl w0 x3+56 ;
am. (a10.)
wa w0 +52 ; +quantum
ds w0 x1+22 ;
rl. w3 a10. ;
dl w0 x3+60 ; start time
ds w0 x1+12 ;
b3: al w1 x1+c4 ;
al w2 x2+2 ;
se. w2 ( a1.) ;
jl. b0. ;
rs. w1 a13. ;
b2: dl w0 110 ; get clock
ds. w0 a15. ;
jl. w3 d1. ; wait
rl. w2 a18.
jl. w3 h28.-2
se w0 0
jl. b5.
b6: al. w1 a30. ; w1:=start local table
rl. w2 a0. ;
rl w3 x2 ;
rs. w3 a10. ;
jl. b10. ;
b7: rl w3 x2 ;
rs. w3 a10. ;
rl w0 x3+2 ;
sn w0 0 ; if no proc then
jl. b8. ; goto next
se w0 (x1+2) ;
jl. b9. ;
rl w0 x3+4 ;
se w0 (x1+4) ;
jl. b9. ;
rl w0 x3+6 ;
se w0 (x1+6) ;
jl. b9. ;
rl w0 x3+8 ;
se w0 (x1+8) ;
jl. b9. ;
dl w0 x3+60 ;
se w0 (x1+12) ;
jl. b9. ;
sn w3 (x1+10) ;
jl. b10. ;
b9: ;
rl. w3 a10. ;
rl w0 x3+2 ;
rs w0 x1+2 ;
rl w0 x3+4 ;
rs w0 x1+4 ;
rl w0 x3+6 ;
rs w0 x1+6 ;
rl w0 x3+8 ;
rs w0 x1+8 ;
rs. w3 a10. ;
dl w0 x3+56 ;
ds w0 x1+22 ;
rl. w3 a10. ;
dl w0 x3+60 ; start time
ds w0 x1+12 ;
ld w0 -100 ;
ds w0 x1+16 ;
al w0 2 ;
rs w0 x1+18 ;
jl. b8. ;
b10: rl. w3 a10. ;
dl w0 x3+56 ;
ds w0 x1+22 ;
al w0 1 ;
rs w0 x1+18 ;
b8: al w1 x1+c4 ;
al w2 x2+2 ;
se. w2 ( a1.) ;
jl. b7. ;
dl w0 110 ;
ss. w0 a15. ;
wd. w0 a14. ; w0:=time since last
rl w2 0 ; w2:=sec
wm. w0 a12. ;
rs. w0 a22. ;
al. w0 a9. ;
jl. w3 h31.-2 ;
al w0 x2 ;
jl. w3 h32.-2,c2
al. w0 a16. ;
jl. w3 h31.-2;
al. w1 a30. ;
b11: rl w0 x1+18 ;
se w0 0 ;
jl. w3 d0. ;
al w1 x1+c4 ;
se. w1 ( a13.) ;
jl. b11. ;
al w2 25
jl. w3 h34.-2 ; close up
jl. w3 h79.-2
jl. b2. ;
;
;
b. f5,g5 w. ; wait
d1: ds. w1 g1. ;
ds. w3 g3. ;
al. w3 a11. ;
al. w1 a7. ;
jd 1<11+16;
al w1 x1+16 ;
jd 1<11+18;
dl. w1 g1. ;
dl. w3 g3. ;
jl x3 ;
g0: 0 ;
g1: 0 ;
g2: 0 ;
g3: 0 ;
e. ;
b. f5,g5 w. ;
d0: ds. w1 g1. ;
ds. w3 g3. ;
dl w0 x1+4 ;
lo. w3 a8. ;
lo. w0 a8. ;
ds. w0 a3. ;
dl w0 x1+8 ;
lo. w3 a8. ;
lo. w0 a8. ;
ds. w0 a5. ;
al. w0 a2. ;
jl. w3 h31.-2 ;
rl. w1 g1. ;
dl w0 x1+22 ;
ss w0 x1+16 ;
wd. w0 a22. ;
al w2 x3 ;
jl. w3 h32.-2,c3;
al w0 x2 ;
al w2 46 ;
jl. w3 h26.-2 ;
al w3 0 ;
wd. w0 a12. ;
jl. w3 h32.-2,c0;
al w2 37 ;
jl. w3 h26.-2 ;
rl. w1 g1. ;
dl w0 x1+22 ;
wd. w0 a14. ;
al w2 x3 ;
jl. w3 h32.-2,c3;
al w0 x2 ;
al w2 46 ;
jl. w3 h26.-2 ;
jl. w3 h32.-2,c1;
rl. w1 g1. ;
dl w0 x1+16 ;
wd. w0 a14. ;
al w2 x3 ;
jl. w3 h32.-2,c3;
al w0 x2 ;
al w2 46 ;
jl. w3 h26.-2 ;
jl. w3 h32.-2,c1;
al w2 10 ;
jl. w3 h33.-2 ;
rl. w1 g1. ;
rl. w3 a10. ;
dl w0 x1+22 ;
ds w0 x1+16 ;
al w0 0 ;
rs w0 x1+18 ;
dl. w1 g1. ;
dl. w3 g3. ;
jl x3 ;
g0: 0 ;
g1: 0 ;
g2: 0 ;
g3: 0 ;
e. ;
b50: al w2 0 ;
jl. h7. ;
a6: 32<16+32<8+32 ;
a2: <:pro:> ;
a3: <:cfu:> ;
a4: <:nc<32>:> ;
a5: <:<32><32><32>:>,32<16; name
a11: <:clock:>,0,0,0,0 ;
a7: 0,c5,0,r.14 ;
a8: <:<32><32><32>:> ;
a9: <:<10>name used cputime (% of last <0><0>:>
a16:<: sec.)<10> new old<10><10>:>;
a21: 0 ;
a10: 0 ;
a12: 100 ;
a13: 0 ;
a14: 10000 ;
0
a15:0
a17:0,r.5
a18:0
a22: c5*100 ;
a30: 0,<:procfunc:>,0,r.(:(:c4*40:)>1:);
e. ;
e. ;
▶EOF◀