|
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: 1536 (0x600)
Types: TextFile
Names: »tran«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦09b4e9619⟧ »thcømat«
└─⟦this⟧
\f
message rand ran
(rand=slang fpnames type.yes insertproc entry.no
rand ran)
;own long ran
b. g1, e2
w.
s. g6, j40, c10
h.
g0=0
e2:
g1: g2,g2
j13: g0+13, 0 ; lastused
j30: g0+30, 0 ;saved sr, sa w3
j6: g0+6, 0 ; end register expression
j38: 0,1
j39: 0,3
g2=k-2-g1
w.
e0: g0
4
0
2
23 01 73, 14 00 00
w.
e1: rl.w2 (j13.)
ds.w3 (j30.)
rl. w1 (j39.)
ls w1 -1
al w3 x1
wm. w1 c3.
aa. w1 c4.
ld w1 1
rs. w1 (j39.)
wm. w3 c2.
wa w0 6
rl. w3 c3.
wm. w3 (j38.)
bz w3 7
wa w0 6
hs. w0 (j38.)
bz w0 1
ld w1 11
nd w1 3
jl.(j6.)
c2=k+1, 8.7065
c3: 8.37244615
0
c4: 1
h. 0,r.(:504-k:)
w. <:rand <0>:>
e.
;rand
g0: 1
0,0,0,0
1<23+e1-e2
4<18+0,0
4<12+e0-e2
1<12+4
;ran
g1: 1<23+4
0,0,0,0
3
11<18+0,0
4<12
1<12+4
n.
▶EOF◀