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

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

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

<code - MILL.mac.txt>
 2YQB ...[??? MILL SECT CENT FGN 1 DOC   
 2^=2 ...#   
 2^PL ...#     VARY OR INTERROGATE DME MILL PERCENTAGE IN CME
 2^R* ...#      THIS MACRO ISSUES '171 X #100 EXTRACODE  
 2^T4 ...#                                      (READ/WRITE MILL PERCENTAGE) 
 2^WR ...#        IN X:    B0 = 0  -  READ/WRITE OVERALL MILL PERCENTAGE 
 2^YG ...#                 B0 = 1  -  READ/WRITE MILL OF OCP SPECIFIED   
 3229 ...#                 B1-8    -  OCP NUMBER (RELEVANT IF B0 = 1)
 323Y ...#                 B9-23   -  ZERO IF FUNCTION IS READ   
 325M ...#                         - PERCENTAGE IF FUNCTION IS WRITE 
 327B ...#   
 329= ...#   
 32NW ...#MAC  MILL  
 32WW ...      LDX   0  %B   
 334W ...      SLL   0  15   
 33=W ...      ORX   0  %A   
 33DW ...      BZE   %C M1MILL   
 33LW ...     LDCT  %C #400  
 33SW ...      ORX  0  %C
 342W ...M1MILL  
 348W ...      '171  0  #100 
 34=W ...      SLL   0  9
 34#W ...      SRL   0  9
 34BW ...      LDX   %A 0
 3572 ...#NOR
</code>