OCPSMILL [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: OCPSMILL)}}
====== OCPSMILL ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_NI|MACROS NI]]

**Used in:** [[george:source:CMEMILL866|CMEMILL866]], [[george:source:PMJOBS866|PMJOBS866]]

<code - OCPSMILL.mac.txt>
 35LL ...[???  OCPSMILL SECT CENT FGN 1 DOC  
 366= ...#   
 36KW ...#     IN CME WITH DUALS THIS MACRO IS USED TO INTERROGATE   
 375G ...#     THE MILL PERCENTAGE ALLOCATED TO EACH ACTIVE  
 37K6 ...#     OCP AND ALLOW THE CHAPTER TO TAKE ACTION ON EACH ONE. 
 384Q ...#   
 38JB ...#MAC  OCPSMILL  
 3942 ...     LDX   6  APROCNO   
 39HL ...      BNZ   6  M0OCPSMILL   
 3=3= ...      LDN   6  63   
 3=GW ...M0OCPSMILL  
 3?2G ...      ANDN  6   #77 
 3?G6 ...      STOZ      %B  
 3?^Q ...M1OCPSMILL  
 3#FB ...      STOZ      %A  
 3#^2 ...      LDN   5  1
 3*DL ...      MILL     %A,%B,5  
 3*Y= ...      BZE   %A  M2OCPSMILL  
 3BCW ...      SBN   6  1
 3BXG ...      CALL  7  %C   
 3CC6 ...      BZE   6  M3OCPSMILL   
 3CWQ ...M2OCPSMILL  
 3DBB ...      LDN   0  1
 3DW2 ...      ADS   0  %B   
 3F*L ...      LDN   0  63   
 3FT= ...      BXL   0  %B,M3OCPSMILL
 3G#W ...      BRN      M1OCPSMILL   
 3GSG ...M3OCPSMILL  
 3H#6 ...#NOR
</code>