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