PERFCAS865
(George Source)
Macros used: BXGE, MONOUT, OUTBLOCN, OUTPACK, OUTPAR, SEGENTRY, UP
- PERFCAS865.txt
22FL #SEG PERFCAS 22LS ...#OPT K0PERFCAS=0 22S2 ...#LIS K0PERFCAS 22^= 8HPERFCAS 23DW # 23YG # 24D6 [ THIS SEGMENT OUTPUTS STATISTICS MESSAGES FOR THE ALTERNATIVE 24XQ [ CORE ALLOCATION SYSTEM (ACAS) TO THE SYSTEM JOURNAL. 25CB [ ALSO ZEROISES THE COUNTS. 25X2 # 26BL # 26W= [ ENTRY POINT 27*W SEGENTRY K1PERFCAS,PERF1 27TG # 28*6 PERF1 28SQ [ENTRY PT FROM PERFCHAP 29#B LDX 3 CASTATPTR 29S2 LDCH 4 ACASTAB+15(3) 2=?L [LOAD HIGHEST SIZE RING NUMBER 2=R= BZE 4 PERFEND 2?=W LDN 3 0 [START AT 1ST SIZE RANGE 2?QG NEXT 2#=6 ADX 3 CASTATPTR 2#FY ... OUTPAR TIMENOW 2#PQ OUTPACK ACASFOUND(3),1,NUMA 2*9B STOZ ACASFOUND(3) 2*P2 OUTPACK ACASSPLIT(3),1,NUMB 2B8L STOZ ACASSPLIT(3) 2BN= MONOUT CASRINGMESS [O/P FOUND & SPLIT FOR EACH RANGE 2C7W SBX 3 CASTATPTR 2CMG BXGE 3 4,NXTMSG [J IF THAT WAS THE HIGHEST RANGE 2D76 ADN 3 1 2DLQ BRN NEXT 2F6B NXTMSG 2FL2 OUTBLOCN 12 2FTS ... OUTPAR TIMENOW 2G5L LDX 3 CASTATPTR 2GK= OUTPACK ACASCHAPS(3),1,NUMA 2H4W STOZ ACASCHAPS(3) 2HJG OUTPACK ACASIFPB(3),1,NUMB 2J46 STOZ ACASIFPB(3) 2JHQ OUTPACK ACASVFPB(3),1,NUMC 2K3B STOZ ACASVFPB(3) 2KH2 OUTPACK ACASAMAL(3),1,NUMD 2L2L STOZ ACASAMAL(3) 2LG= OUTPACK ACASFAIL(3),1,NUMA 2L^W STOZ ACASFAIL(3) 2M74 ... LDXC 5 ACASMILL(3) 2M#= ... LDN 4 0 2MFD ... DVD 4 BEATTIME [CONVERT TO MILLISECS 2MLL ... LDN 4 0 2MRS ... OUTPACK 4,2,GEOMILL 2M^6 STOZ ACASMILL(3) 2NDQ MONOUT CASRESTMESS [O/P FINAL MESSAGE 2NYB PERFEND 2PD2 UP 2PXL #END ^^^^ ...657376340020