|
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: »kkcreatet«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »kkcreatet«
(kkcreate=slang list.no xref.no;
) ;
s. a20,b20,d20,c20 w.;
p. <:fpnames:> ;
k=h55 ;
a0: 0 ;
a1: 0 ;
rl w2 66 ;
al. w3 d5.
dl w1 x2+4
ds w1 x3+2
dl w1 x2+8
ds w1 x3+6
rs. w2 a1.
rl w1 x2+24 ;
wa w1 x2+98 ; w1:=last addr
al w0 x1-50 ;
ds. w1 d3. ;
al. w1 d0. ; param addr
al. w3 d1. ; process name addr
jd 1<11+56; create child process
jl. w2 b0. ;
al. w1 d6. ;
al. w3 d8. ; first addr
al. w0 d9. ; last addr
ds w0 x1+4 ; save first and last
al w0 0 ; save relative o. c.
rs w0 x1+6 ;
al. w3 d7. ; w3:=receiver
jd 1<11+16; send a program to hcchild
al. w1 d10. ; answer
jd 1<11+18;
jl. w2 b0.
al. w3 d1. ;
al w2 x1 ;
al. w1 d2. ; reg area
rl w0 x2+6 ; first of child
rs w0 x1+10 ;
jd 1<11+62; modify ip
jl. w2 b0.
al. w3 d1. ;
jd 1<11+58; start ip
jl. w2 b0.
al. w3 d1. ;
jd 1<11+60; stop ip
al. w1 d10.
sn w0 0
jd 1<11+18
jl. w2 b0.
al. w3 d1.
jd 1<11+64; remove
b9: jl. w2 b0. ;
b10: al w2 0 ;
jl. h7. ;
b. f5,g5 w. ;
b0: ds. w1 g1. ;
ds. w3 g3. ;
jl. w3 h32.-2 ;
1<23+32<12+8 ;
al w2 10 ;
jl. w3 h33.-2 ;
dl. w1 g1. ;
dl. w3 g3. ;
jl x2 ;
g0: 0 ;
g1: 0 ;
g2: 0 ;
g3: 0 ;
e. ;
b. g7,h5 w. ;
b1: ;
ds. w1 g1. ;
ds. w3 g3. ;
al. w3 d5. ;
al. w1 g5. ; message
jd 1<11+16; send mesage to own proc
al w3 -2 ;
al w0 0 ;
ds w0 x2-8 ;
al w3 0 ;
ds w0 x2-4 ;
rl. w3 g6. ;
rs w3 x2+8 ;
dl. w0 g1. ;
ds w0 x2+12 ;
dl. w0 g3. ;
ds w0 x2+16 ;
al. w3 g7. ;
jd 1<11+34;
jl. ( g2.) ;
g0: 0 ;
g1: 0 ;
g2: 0 ;
g3: 0 ;
g5: 0,r.8 ;
g6: 1<22+56 ;
g7: <:rhmaster:>,0,0 ;
e. ;
d0: 0 ; + 0 first addr.
d3: 0 ; + 2 last addr
h. ;
2,2 ; + 4 buff,area
0,8.0000 ; + 6 ip,func. mask
-1,-8 ; + 8 pr,pk
w. ;
2020 ; +10 max lower base
2020 ; +12 max upper base
2020 ; +14 std lower base
2020 ; +16 std max base
d1: <:hcchild:>,0,0,0 ;
d2: 9,8,7,6 ; w0,w1,w2,w3
0 ; exc. reg
0,r.4 ; ic
d4: <:hcmaster:>,0,0,0;
d5: <:kkx:>,0,0,0,0 ;
d6: 5<12+0 ; output
0 ; first addr
0 ; last addr
0 ; relative o. c.
<:hcchild:>,0,0 ; child
d7: <:hcmi:>,0,0,0,0
d8: al w1 1
al w2 3
jl -2
d9:
d10: 0,r.8
e. ;
e. ;
▶EOF◀