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

⟦5123de6c4⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »disa03«

Derivation

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

TextFile

(disa=slang
disa)
b.g2,w.
d.
p.<:fpnames:>
l.
s.a6,w.
k=0
a0:
      al. w1  a0.
      al. w3  a6.
      rl. w0  a1.
      rs  w0  x1
      rl. w0  a2.
      rs  w0  x1+2
      rl. w0  a3.
      rs  w0  x1+4
      rl. w0  a4.
      rs  w0  x3+2
      dl. w1  a5. 
      ac  w2  x1
      jl.     a0.

a1:   ds  w1  x3
a2:   al  w3  x3-2
a3:   jl.    -4
a4:   jl     (x2+6)
      am.    (2)
a5:   am.    (x2)
a6=a0-4+1000
e.

g2=k
g1:
g0:   1
      0,r.4
      s2
      0
      0
      3<12+0
      g2
d.
p.<:insertproc:>
▶EOF◀