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

⟦19c6582cb⟧ TextFile

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

Derivation

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »kkqt« 

TextFile

    (kkq=slang list.no xref.no
    )
s.  a400,b20
p.  <:fpnames:>
    k=h55
    a16=18          ; next proc
    a301=30         ; prio
    a35=52          ;quantum
    a36=54          ; run time
    a38=58          ; starttime
    a39=62          ; start wait
    a186=-6         ; cpu mask
a0: 0
a3: 0
    al. w0  a5.     ;
    jl. w3  h31.-2  ; head
b0: rl  w2  68      ;first proc
    al. w3  a2.     ; buffer addr
b1:
    al  w0  x2      ; proc addr
    rs  w0  x3
    al  w3  x3+2
    rl  w0  x2-a16+a35; quantum
    rs  w0  x3
    al  w3  x3+2
    rl  w0  x2-a16+a36+2; run time
    ls  w0  -8
    rs  w0  x3
    al  w3  x3+2
    rl  w0  x2-a16+a186; cpu mask
    rs  w0  x3
    al  w3  x3+2
    dl  w1  x2-a16+4
    ds  w1  x3+2
    dl  w1  x2-a16+8
    ds  w1  x3+6
    al  w3  x3+8    ;
    rl  w2  x2      ; next proc
    se  w2  68      ;
    jl.     b1.     ;
    al  w3  x3-1
    rs. w3  a0.     ;
    al. w2  a2.     ;
b2: rl  w0  x2
    jl. w3  h32.-2
    1<23+32<12+10
    al  w2  x2+2

    rl  w0  x2
    jl. w3  h32.-2
    1<23+32<12+10
    al  w2  x2+2

    rl  w0  x2
    jl. w3  h32.-2
    1<23+32<12+10
    al  w2  x2+2

    rl  w0  x2
    jl. w3  h32.-2
    1<23+32<12+10
    al. w0  a1.
    jl. w3  h31.-2
    al  w0  x2+2
    jl. w3  h31.-2
    al  w0  x2+10
    al  w2  10
    jl. w3  h26.-2
    rl  w2  0
    sh. w2  (a0.)
    jl.     b2.

    al  w2  0
    jl.     h7.     ; stop
a1: <:   :>,0
a5: <:<10>      addr   quantum  run time  cpu mask   name<10><0><0>:>
a2: 0,r.500
e.
e.
▶EOF◀