(FILECREATED "12-NOV-82 12:47:59" ("compiled on " {PHYLUM}SOURCES>UPCSTATS.;7) " 3-NOV-82 13:59:28" recompiled exprs: GATHERUPCSTATS in WORK dated " 3-NOV-82 14:45:21") (FILECREATED "12-NOV-82 12:47:49" {PHYLUM}SOURCES>UPCSTATS.;7 9111 changes to: (FNS GATHERUPCSTATS UPCSTATS READMBFILE PLOTPCS PRINTUPC) (VARS UPCSTATSCOMS) (MACROS BIN2 UPCCOUNT) previous date: " 8-OCT-81 09:17:39" {PHYLUM}SOURCES>UPCSTATS.;1) GATHERUPCSTATSA0013 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STRF F 1 LCFIL F 2 FORM) %ichcgghoRo hh(36Q COMPILE1) (15Q LAMBDA 12Q STATSDUMMYFUNCTION) (27Q (((OPCODES UPCTRACE) NIL)) 22Q ((OPCODES UPCTRACE) STATSBUFFER)) GATHERUPCSTATS D1 (P 1 MACROY P 0 MACROX I 0 FORM F 2 RESETVARSLST F 3 IMSIZE F 4 STRF F 5 LCFIL) h` S dSlk gTgURcRog HcHXc IdRHcR RkI H(145Q STATSDUMMYFUNCTION 140Q ERROR! 130Q NLEFT 121Q TAILP 64Q GATHERUPCSTATSA0013 26Q \ZEROWORDS 10Q \ALLOCLOCKED) (61Q INTERNAL 36Q LCFIL 31Q STRF 13Q STATSBUFFER 2 STATSBUFFER) (56Q (DUMMY.FOR.ERRORSET)) PRINTCUMULATIVEPERCENT D1 (F 0 CUHI F 1 CULO F 2 TOTAL) o Po QR o (34Q PRIN1 25Q PRIN1 16Q FTIMES2 6 PRIN1) NIL (31Q ")" 13Q 65536.0 3 "(") PRINTUPC D1 (F 0 MBFILE F 1 UPCSEEN) >Q8oi id ck gPdg P o (73Q STATSDUMMYFUNCTION 67Q PLOTPCS 63Q PRIN1 53Q READMBFILE 45Q INFILEP 26Q NTHCHAR 20Q READ 12Q PRIN1) (40Q NIL: 31Q {) (60Q "Microcode PC Sample: " 6 "Use .MB file: ") UPCSTATS D1 (P 1 LCFIL P 0 STRF I 1 DOLISTFLG I 0 FORM) i@ h(15Q PLOTPCS 12Q READMBFILE 7 GATHERUPCSTATS) NIL NIL READMBFILE D1 (P 5 BLOCKTYPE P 4 IM P 3 CURLOC P 2 CURMEM P 1 CURMEMWIDTH P 0 INX I 0 MBFILE F 6 MEMORIES F 7 VIRTOREAL F 10Q VIRTONAME F 11Q IMSIZE) @oi id b @ggl bg jdd$hc WWgjd cWWghj cH H ]dj@ kKJL0H H H H H H H H WKdkػH H n H H IdjH H kٰMdl'H H غH H ػJV llYxl%H H LdH H H H H H PMdlCH H H H H hVc g%VVl@go l,H H LWH H H H H Hi MlH H H H H H Hi (641Q HELP 633Q READNAME 573Q READNAME 555Q FASTSETA 552Q READNAME 514Q HELP 437Q READNAME 360Q HELP 323Q HELP 316Q FASSOC 233Q FASTSETAW 145Q CLOSEF 122Q ARRAY 102Q ARRAY 53Q GETOFD 43Q OPENFILE 25Q INFILEP 20Q READ 12Q PRIN1) (505Q IM 456Q IM 115Q POINTER 75Q SMALLP 50Q INPUT 36Q OLD 33Q INPUT) (511Q "wrong # bits" 6 "Use .MB file: ") READNAME D1 (P 2 CHARS P 1 CH P 0 EVENBYTE I 1 FLG I 0 J) $0@ YjA J H@ HhIJ(22Q PACKC 17Q DREVERSE) NIL NIL PLOTPCS D1 (P 31Q VPC P 27Q I P 23Q TOTAL P 22Q THRESHOLD P 21Q TABPOS P 20Q NSTARS P 17Q LASTSTARPOS P 16Q MAXSTARS P 15Q HALFSTAR P 14Q CUM P 13Q CNTPERSTAR P 12Q V P 11Q LASTPRINTEDNAME P 10Q NAME P 7 CULO P 6 CUHI P 5 TOTLO P 4 TOTHI P 3 3RDBIGGEST P 2 2NDBIGGEST P 1 BIGGEST P 0 INC I 0 ALLFLG F 32Q IMSIZE F 33Q VIRTOREAL F 34Q UPCTHRESHOLD F 35Q VIRTONAME) jdddddddo W4kjO.O,I`O.k`O._j&LOؼMOnؽOKOdJdI񑹂O.k_.@ll _l_KO_dl_MLo_&@jOW8OO&j_(dO(O(_$O&o_&o O o oOO& o W4kjO2O0W:O2 _^HkظW6O2 _*`O*k`O*_@OO8OO O_ _"lOkl_" _jO O" NOؾOOn_Hjo oH l o oW6O2 o oO O2k_2OO$OO1OO O_ _"lOkl_" O O" NOؾOOn_Hjo oH l o OOO_ dO"o oO o OldjCo kO LN^MO_h h o h(1276Q TERPRI 1273Q PRINTCUMULATIVEPERCENT 1270Q PRIN1 1260Q TERPRI 1253Q TERPRI 1235Q TERPRI 1232Q PRINTCUMULATIVEPERCENT 1227Q TAB 1215Q PRIN1 1171Q PRIN1 1161Q PRINTNUM 1147Q PRIN1 1115Q PRIN1 1105Q TAB 1077Q PRINTNUM 1066Q PRIN1 1026Q SPACES 1020Q TERPRI 1014Q PRIN1 1006Q SUBSTRING 766Q NCHARS 756Q TERPRI 752Q PRINTCUMULATIVEPERCENT 746Q TAB 706Q PRINTNUM 674Q PRIN1 664Q PRINTNUM 661Q FASTELTW 645Q PRIN1 635Q TAB 627Q PRINTNUM 616Q PRIN1 556Q SPACES 550Q TERPRI 544Q PRIN1 530Q SUBSTRING 507Q NCHARS 477Q TERPRI 473Q PRINTCUMULATIVEPERCENT 467Q TAB 410Q FASTELTW 371Q FASTELT 341Q PRIN1 331Q PRINTNUM 314Q PRIN1 304Q PRIN1 276Q PRIN1 153Q LINELENGTH 21Q PRIN1) (431Q STATSBUFFER 416Q STATSBUFFER 56Q STATSBUFFER 43Q STATSBUFFER) (1265Q "Not shown: " 1212Q "*" 1166Q ")" 1154Q (FIX 4) 1144Q "(" 1112Q "|" 1073Q (FIX 3 NIL NIL T) 1063Q "+" 701Q (FIX 12Q) 671Q " " 652Q (FIX 10Q 4) 642Q "#" 623Q (FIX 3 NIL NIL T) 613Q "+" 336Q "%%" 321Q (FLOAT 10Q 2) 311Q " count, or " 273Q " Each * = " 264Q 100.0 214Q 65536.0 16Q "Microcode PC Sample: ") (PRETTYCOMPRINT UPCSTATSCOMS) (RPAQQ UPCSTATSCOMS ((VARS IMSIZE) (FNS GATHERUPCSTATS PRINTCUMULATIVEPERCENT PRINTUPC UPCSTATS) (FNS READMBFILE READNAME) (FNS PLOTPCS) (INITVARS (STATSBUFFER) (VIRTOREAL) (VIRTONAME)) (VARS ( UPCTHRESHOLD 0 (* lower threshold for percentage to show up on Microcode PC Sample histogram))) ( MACROS BIN2 UPCCOUNT))) (RPAQQ IMSIZE 4096) (RPAQ? STATSBUFFER) (RPAQ? VIRTOREAL) (RPAQ? VIRTONAME) (RPAQ UPCTHRESHOLD 0 (* lower threshold for percentage to show up on Microcode PC Sample histogram)) (PUTPROPS BIN2 MACRO ((INX) (IPLUS (LLSH (\BIN INX) 8) (\BIN INX)))) (PUTPROPS UPCCOUNT MACRO (OPENLAMBDA (N) (\MAKENUMBER (\GETBASE STATSBUFFER (ADD1 (LLSH N 1))) ( \GETBASE STATSBUFFER (LLSH N 1))))) NIL