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

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

**Used in:** [[george:source:EDITOR867|EDITOR867]]

<code - LETOPRUN.mac.txt>
 22NW ...[??? LETOPRUN SECT COMM FGN 8 DOC   
 22N^ ...[     MACRO TO ALLOW OBJECT PROGRAM TO RUN DURING LARGE 
 22P4 ...[     REPETITIVE EDITS-ENHANCENENT 8159.
 22P7 ...[   
 22P9 ...#MAC LETOPRUN   
 22P? ...[ THE MACRO SUSPENDS THE CURRENT ACTIVITY IF IT FINDS A NUMBER OF   
 22P* ...[ RUNNABLE OBJECT PROGRAMS EQUAL TO THE NUMBER OF PROCESSORS.   
 22PC ...[ IT SEARCHES THE PROGRAM RING, FOLLOWING THE 'BPTR' TO IMPROVE 
 22PF ...[ THE CHANCE OF FINDING A MILL-BOUND PROGRAM, FOR   
 22PH ...[ AN ELEMENT FOR MEMBER 0.  
 22PK ...[ CHECKS ARE MADE THAT THE PROGRAM IS NOT RUNNING AND IS NOT STOPPED.   
 22PM ...[ THE 4 MELS ARE EXAMINED FOR ONE WHICH IS NOT SUSPENDED.   
 22PP ...[ THE CURRENT ACTIVITY IS SUSPENDED IF THE COUNT OF PROCESSORS EXPIRES. 
 22PR ...[ THE COUNT IS DECREMENTED WHEN A NON-SUSPENDED MEL IS FOUND.   
 22PT ...      LDCH  2  APROCNO      [NUMBER OF PROCESSORS   
 22PX ...      LDN   1  BPROG        [PROGRAM RING BASE  
 22P^ ...M1LOP BZE   2  M2LOP
 22Q3 ...M5LOP LDX   1  BPTR(1)      [FOLLOW BACKWARD POINTER
 22Q5 ...      LDN   0  GMEL 
 22Q7 ...      BXE   0  1,M3LOP      [GIVE UP IF GEORGE'S MEL FOUND - IT'S   
 22Q9 ...      LDCH  0  ARM(1)       [GEORGE WE WANT TO SUSPEND! 
 22Q? ...      BNZ   0  M5LOP        [CONTINUE SEARCH IF NOT MEMBER 0
 22Q* ...      SMO      APD(1)       [ADDRESS OF 'ASTOP' 
 22QC ...      LDXC  0  ANM-ASTOP
 22QF ...      BCS      M5LOP        [CONTINUE SEARCH IF PROGRAM IS RUNNING  
 22QH ...      SMO      APD(1)   
 22QK ...      LDX   0  0            [PICK UP ASTOP  
 22QM ...      BNZ   0  M5LOP        [CONTINUE SEARCH IF PROGRAM IS STOPPED  
 22QP ...[ CHECK EACH MEL, DECREMENT COUNT IF A NON-SUSPENDED MEL IS FOUND   
 22QR ...      LDX   0  ASU(1)   
 22QT ...      BZE   0  M4LOP
 22QX ...      LDX   0  ASU+(ASU2-ASU1)(1)   
 22Q^ ...      BZE   0  M4LOP
 22R3 ...      LDX   0  ASU+(ASU3-ASU1)(1)   
 22R5 ...      BZE   0  M4LOP
 22R7 ...      LDX   0  ASU+(ASU4-ASU1)(1)   
 22R9 ...      BNZ   0  M5LOP
 22RC ...M4LOP BCT   2  M1LOP
 22RG ...M2LOP COOR3    #41  
 22RK ...M3LOP LDX   1  FX1  
 22RN ...      LDX   2  FX2  
 22RR ...#NOR
</code>