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

**Defined in:** [[george:source:LLSMACROS|LLSMACROS]]

**Used in:** 

<code - CPIFORMS.mac.txt>
 99D= ...[???? CPIFORMS SECT CENT FGN
 99XW ...[MACRO TO MAKE MILL SCHEDULER USE TIMESLOT  
 9=CG ...#MAC CPIFORMS   
 9=X6 ...#MEN CHARGESC   
 9?BQ ...#TRA K53CHARGESC
 9?WB ...      LDN  0  5 
 9#B2 ...#TRA K50CHARGESC
 9#TL ...      JBC      (7),3,JBPLUG 
 9**= ...      JBS      (7),3,JBREEF 
 9*SW ...      LDX   0   HMSLOT(3)   
 9B#G ...      SBX   0  ATIMES(3)
 9BS6 ...      BNG   0  (7)  
 9C?Q ...      LDX   2  FX2  
 9CRB ...      BXL   0  AWORK2(2),(7)
 9D?2 ...      STO   0  AWORK2(2)
 9DQL ...      STO   1  AWORK3(2)      [PCAPTR   
 9F== ...      STO   3   AWORK4(2)       [KEEP JOBQ PTR  
 9FPW ...      EXIT  7  0
 9G9G ...[OVERFLOW FROM LATER
 9GP6 ...RAE4  FINDPUC  3,3  
 9H8Q ...      BRN      RAE1 
 9HNB ...RAE5  FINDTP  3,3   
 9J82 ...      BRN  RAE1 
 9JML ...#TRA  K53CHARGESC+2 
 9K7= ...      LDX   2   FX2 
 9KLW ...      LDX   3  AWORK3(2)
 9L6G ...      BZE   3  RAE6 
 9LL6 ...      LDN   6  1
 9M5Q ...RAE1  LDN   0  1
 9MKB ...      LDN   5  4
 9N52 ...RAE2  SMO      5
 9N8X ...      LDX   4  AMR1-1(3)
 9N#S ...      BZE   4  RAE3      [J IF WOULD GO -VE 
 9NDP ...      SMO      5
 9NJL ...      SBS   0  AMR1-1(3)
 9P4= ...      BCT   5  RAE2 
 9PHW ...      MELRERING  3  
 9Q3G ...      BCT  6   RAE3    [J ON 2ND TIME THRU  
 9QH6 ...      LDX   0  ATYPE(3) 
 9R2Q ...      SRL   0  12   
 9RGB ...      SBN   0  APET+ATP 
 9S22 ...      BZE   0  RAE4 
 9SFL ...      SBN   0  APUC 
 9S^= ...      BZE   0  RAE5 
 9TDW ...RAE3  SMO      AWORK4(2)
 9TYG ...      STOZ     HMSLOT       [ZEROISE TIME USED IN SLOT  
 9WD6 ...RAE6
 9WXQ ...      BRN      K54CHARGESC  
 9XCB ...#END
 9XX2 ...#NOR
</code>