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

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CHTAB|CHTAB]], [[george:source:HLSEVENT867|HLSEVENT867]], [[george:source:INKS|INKS]]

<code - SCHEDULE.mac.txt>
 229S ...[??? SCHEDULE SECT CENT FGN 6 DOC   
 2*9B    # NEW LLS MACROS OWNED BY RUTH PORTER   
 2*P2    #   
 2B8L    [     1.       PUT BLANKET TO SLEEP 
 2BN=    [     2.       START THE CORE UNJAMMER,IF NECESSARY 
 2C7W    [     3.       START THE CORE SCHEDULER IF FONINTP HAS PASSED,BUT NOT IF
 2CMG    [              THE CORE UNJAMMER HAS BEEN STARTED   
 2D76    [     4.       ENTER MILL SCHEDULER 
 2DLQ    #   
 2F6B    #   
 2FL2    #MAC  SCHEDULE  
 2G5L          LDX   0  CJSUM
 2G8D ...      SBN   0  CJTHRESH1
 2G?= ...#UNS  ECS   
 2GB4 ...(   
 2GDW ...      BNG   0  MSCH2               [J IF UNJAM NOT YET NEEDED   
 2GHN ...      JBSS MSCH4,,ASWCORJAM        [J IF UNJAM ALREADY IN PROGRESS  
 2GLG ...      ACROSS UNJAMMER,1 
 2GP# ...)   
 2GS6 ...#UNS  ECS   
 2GWY ...#SKI
 2G^Q ...(   
 2H4W          BPZ   0  MSCH1
 2HJG          JBC      MSCH2,,ASWCORJAM    [J IF NO CORE JAM
 2J46 ...MSCH1 ACROSS   UNJAMMER,1   
 2JHQ ...)   
 2KH2    MSCH3 LINK     SCHEDIN,1
 2L2L    MSCH2 LDX   0  CYCLECORE
 2L=D ...      LDX   1  FX1  
 2LG=          BXL   0  COREK9,MSCH4     [J IF NOT TIME  
 2MFG          KICKASWI MSCH3(1)            [GET ASWAINT GOING   
 2MJ5 ...#UNS  ECS   
 2MLN ...MSCH4 LDN   0  24   
 2MP? ...#UNS  ECS   
 2MRW ...#SKI
 2MWF ...(   
 2M^6    MSCH4 LDX   0  CYCLEMILL
 2NDQ          BXL   0  IMILLK9,MSCH5     [J IF NOT TIME FOR MILL
 2NYB          ACROSS   LLSCHED,1
 2PD2    MSCH5 LDN   0  24   
 2PMS ...)   
 2PXL          NGS   0  K5   
 2QC=          LINKSET  FX2,MSCH6(1) 
 2QWW          COOR1X
 2RBG    MSCH6 LINK  CHARGESC,1  
 2RW6    #NOR
</code>