|
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: 3840 (0xf00)
Types: TextFile
Names: »kkrmonretel«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »kkrmonretel«
kkmonretel=edit monretel
l.#a2=a62#
i#
l./j0=j0+(:a110/
i/
c.(:a400>18a.1:)-1 ;kk
j0=j0+(:a110<2+4:)*a112
z.
c. -(:a400>18a.1:) ;kk
/
l./j0/,l1,i/
z.
/
#
l.#montabinit*#,l1,i#
l./a110*2+2/
i/
c.(:a400>18a.1:)-1 ;kk
al w1 x1+a110*4+4;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
l./a110*2+2/
i/
c.(:a400>18a.1:)-1 ;kk
al w1 x1+a110*4+4;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
#
l.#d1:#,l."v27",l1
i#
l./m25:/,l-3,l./h4:/
i/
c.(:a400>18a.1:)-1 ;kk
h4: 0, r.a109*2 ;kk
z.
c. -(:a400>18a.1:) ;kk
/,l2,i/
z.
/
#
l.#v3.#,l1
i#
l./g0:/,l./a109/,l-1
i/
rs. w1 h4. ;kk
r. a109*2 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l3,i/
z.
/
#
l.#prepare#
i#
l./g10:/,l./sow22/
i/
c.(:a400>18a.1:)-1 ;kk
ls w1 1 ;kk
z.
/
l./bzw0x1+2/
i/
c.(:a400>18a.1:)-1 ;kk
rl w0 x1+4 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
l./hsw0x1+2/
i/
c.(:a400>18a.1:)-1 ;kk
rs w0 x1+4 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
#
l.#steppingst#
i#
l./m32:/,l./g8:/,l2
i/
c.(:a400>18a.1:)-1 ;kk
rl w0 x1 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
l./hsw0/
i/
c.(:a400>18a.1:)-1 ;kk
rs w0 x1 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
l./bz/
i/
c.(:a400>18a.1:)-1 ;kk
rl w0 x1 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
l./hsw0/
i/
c.(:a400>18a.1:)-1 ;kk
rs w0 x1 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
l./x1+1/
i/
c.(:a400>18a.1:)-1 ;kk
al w1 x1+2 ;kk
al w2 x2+2 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l3,i/
z.
/
l./m39:/,l./wmw0/
l1,i/
c. -(:a400>18a.1:) ;kk
/
l./bz/
i/
z.
/
l./alw3/
i/
c.(:a400>18a.1:)-1 ;kk
al w1 x3+1 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l3,i/
z.
/
l./rs.w0/
i/
c.(:a400>18a.1:)-1 ;kk
ds. w1 h2. ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l2,i/
z.
/
l./g10:/,l1
i/
c.(:a400>18a.1:)-1 ;kk
jl. g13. ;kk test more internals
rl w2 x2 ;kk proc:=nametable(entry)
ld w0 -100 ;kk clear w3-w0
sn. w2 (d2.) ;kk claim:= if
dl. w0 h3. ;kk proc= sender then maxclaim else 0
rl. w1 d4. ;kk w1 := curdoc
wa w2 x1+f60 ;kk claim addr:=proc +claimrel.curdoc
z.
c. -(:a400>18a.1:) ;kk
/
l./(h1.)/
i/
z.
/
l./g11:/,l-1
i/
c.(:a400>18a.1:)-1 ;kk
al w1 x2 ;kk
g11: ;kk w3 = entry claim
;kk w0 = slice claim
rs w0 x2+2 ;kk init slice claim from slice
sl w2 x1+a109*4 ;kk if key >=min aux key then
rs w3 x2 ;kk init entry claim
al w2 x2+4 ;kk increase(key)
sh w2 x1+a110*4 ;kk if key <= max cat key then
jl. g11. ;kk goto init next key
g12: ;kk test more internal
rl. w2 h4. ;kk load nametable entry
al w2 x2+2 ;kk increase(entry)
g13: rs. w2 h4. ;kk store next entry
z.
c. -(:a400>18a.1:) ;kk
/
l./(b7)/
i/
z.
/
l./g15:/,l1
i/
c.(:a400>18a.1:)-1 ;kk
al w1 x2 ;kk
g16: rs w3 x2 ;kk init entry claim(key)
al w2 x2+4 ;kk increase(key)
sh w2 x1+a109*4-1;kk if key < min aux key then
z.
c. -(:a400>18a.1:) ;kk
/
l./jl.g16./,l1
i/
z.
/
l./h2:/,l1,i/
c.(:a400>18a.1:)-1 ;kk h2=entry claim
h3: 0 ;kk slice claim
h4: 0 ;kk name table entry
z.
/
#
l.#mons1****#,l1
i#
l./d35:/,l./i6:/
i/
c.(:a400>18a.1:)-1 ;kk
i6: rl w1 x3 ;kk move claims
rs w1 x2 ;kk
rl w1 x3+ 2 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l4
i/
z.
/
l./alw3x3+2/
i/
c.(:a400>18a.1:)-1 ;kk
al w3 x3+4 ;kk
am (i9.) ;kk
sh w3 a110*4 ;kk
z.
c. -(:a400>18a.1:) ;kk
/
l4,i/
z.
/
#
f
▶EOF◀