|
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: »trhstart«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »trhstart«
s.a2, b3 , p20
w.
d.
p.<:fpnames:>
l.
k=h55
0,0
; init start address
al w1 0 ; loop control := 0.
ba w3 x3+1 ; get next item.
zl w2 x3+1 ; get item.
se w2 10 ; if item <> text then
jl. p19. ; make only interupt.
al w3 x3+2 ; else name address = item.
jd 1<11+4 ; get process description address.
se w0 0 ; if rh not existing then
jl. p1. ;
al. w0 p0.;
jl. w3 h31.-2; out text error
jl. p4. ; goto stop.
p0: <:*** process unknown<10><0>:>
p1: rl w2 0 ; get address of process description to w2.
rl w2 x2+22; get first core area.
rl w3 8 ; get device block address.
rs w2 x3+160 ; save first core adress in device
; 20 start address.
jl. p18. ; goto send start interupt.
p19:
sn w2 4 ; if item <> 4 then
rl w1 x3+2 ; load loop control from parameter list.
p16: ; control init section
rl w3 8 ; get device address basis
rl w3 x3+160 ; get device 20 start address.
se w3 0 ; if not initialized then
jl. p18. ;
al. w0 p5. ; get error text.
jl. w3 h31.-2 ; outtext error text
jl. p4. ; goto end.
p5: <:*** start address of cpu1 not initialized<10><0>:>
p18: jd 1<11+28
p17: ;; send interupt.
a2: do. (b0.
al w1 x1-1; if loop control < 0 then
sl w1 0 ; goto continue
jl. a2.;
p4: al w2 0
jl. h7.
a0: 10
b0: 1<23+20<3+0
b1: 1<23+21<3+0
b2: 1<23+22<3+0
b3: 1<23+23<3+0
e.
e.
▶EOF◀