LETOPRUN
(GIN Macro)
Defined in: MACROSAJE
Used in: EDITOR867
- 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