|
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: 768 (0x300)
Types: TextFile
Names: »tcgsl«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »tcgsl«
s.a18,w.
a7: dl. w1 a0. ; begin
; get double word to w0 con w1.
wm w1 0 ; w0 con w1 := w0 * w1.
ds. w1 a1. ; a1 con a1-2 := w0 con w1.
rl w2 66 ; get word 66
rs. w2 a11. ;
rl w2 132 ; get word 132
rs. w2 a12. ;
rl. w2 a3. ; w2 := a3.
ws. w2 (a4. ; w2 := w2 - ^a4.
rs. w2 a3. ; a3:= w2.
sl. w2 (a6. ; if w2 = a6 then skip next instruction.
jl. a7. ; goto begin.
al. w3 a8. ; egt address of a8.
rl w3 x3 ; w3 := ^x3.
rs. w3 a3. ; a3 := w3.
jl. a7. ; goto begin.
89
a0: 345
-1
a1:-1
a3: 1000000 ;
a4: a5 ; a4 points to a5.
a6: 25 ; 25
a8: 8000000 ; new init value of a3.
a5: 3 ; decrement value
a11: 0 ;
a12: 0 ;
e.
▶EOF◀