{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: PERFCAS865)}}
====== PERFCAS865 ======
(George Source)

**Macros used:** [[george:macro:BXGE|BXGE]], [[george:macro:MONOUT|MONOUT]], [[george:macro:OUTBLOCN|OUTBLOCN]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPAR|OUTPAR]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:UP|UP]]

<code - 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
</code>