|
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: »lmitxt020«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦093e2ad1c⟧
└─⟦this⟧ »lmitxt020«
;; dynamic instruction statistics collection
;
stat4: ;
rd:=sic,sic:=sic++,,jmap 8 ; switch to the instruction
stat0: ;
ra:=radummy,,, ;
w2:=zd2,s, ; w2:=puerrmsk (* base address of the stat module *)
ra:=reg,,cjp not b0 stat4 ; if puerrmsk.bit0=0 then goto stat4
zd1,,s, ;
,,cjp not b1 stat4 ; if ps.bit1=0 then goto stat4
w5:=statistic--,, ;
w5:=w5+rd1,, ;
w6:=spb,,cjs readnext ;
w1:=w7,,cjp cry stat1 ; w1 := (instruction code) * 4 + incdescr.statistic
w1:=swp,, ;
stat1: ;
w1:=<w1+w1,, ;
w1:=w1 and 3fc,, ;
w1:=w1+bd,h w s, ;
w1:=w1--,,cjs read12t ; mem(w21):=mem(w21)+1;
w3:=bd++,h w s,cjs writenextt;
,,cjp not acy stat3 ; if no carry then goto stat3
,,cjs read12 ; mem(w21+2):=mem(w21+2)+1
w3:=bd++,h w s,cjs writenextt;
stat3: ;
w3:=,,cjp stat4 ; w3:=0; goto stat4
;
;; no statistics: fetch7=stat4
;; statistics: fetch7=stat0 (* =stat4+1 *)
fetch7= stat4 ;
.p ;
▶EOF◀