(GIN Macro)
Defined in: LLSMACROS
Used in: CHARGESC867, CHTAB, HLSEVENT867, INKS
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