(George Source)
Macros used: BC, BSON, CAPCA, CHAIN, CLEAR, COOR1, COOR1X, ENDPAXES, FCAPCA, FJOCA, FPCACA, FPCAJO, FPUT, HUNTX, JBC, JBCC, JBS, KICKASWINT, LINK, LINKSET, MBC, MBS, MENDAREA, MONENDB, PCAPLUG, PROGAXES, PROGBRKIN, RUNPROG, SEGENTRY, SWIN, TRACE, UP
22FL ...#SEG RUNPROG [OWEN N JOHN :CENT 22^= #OPT K0RUNPROG=0 23DW #LIS K0RUNPROG>K0ALLGEO 23YG 8HRUNPROG 24D6 # 24XQ # 25CB # THIS SEGMENT IS ENTERED BY THE RUNPROG MACRO IN ORDER TO MAK 25X2 # OBJECT PROGRAM BELONGING TO THE JOB RUNNABLE. THIS MACRO IS USED B 26BL # ENTER/RESUME COMMANDS, OR AT THE END OF A PROGRAM EVENT WHICH NECE 26W= # UNPLUGGING THE PROGRAM. 27*W # SEE P.R.M. FOR FULL USER SPECIFICATION. 27TG # 28*6 # 28SQ SEGENTRY K1RUNPROG,XK1 29#B SEGENTRY K2RUNPROG,XK2 [PCAPLUG ENTRY 29S2 PLUGLINK LINK PLUGIN,1 2=?L PCAPLUG LINK PLUGIN,2 2=R= XK1 2?=W 2?QG LDCH 0 ATYPE(2) 2#=6 SBN 0 APET/64 2#PQ BNZ 0 NY 2*9B ... CLEAR 2,0 2DHN ... FCAPCA 2 2DJ6 ...NY FJOCA 3,2 2DJJ ... FPCAJO 2,3 2DK2 ... LDX 7 GSIGN 2DKD ... ANDX 7 ASTOP(2) 2DKW ... LDX 6 2 [REMEMBER PCA ADDRESS 2DL# ... MONENDB [MONEVENT IF END OF MONRESUME 'STOP' 2DLQ LDX 2 6 [RESTORE PCA ADDRESS 2FL2 JBC N6,3,JBREEF [J IF NOT REALTIME 2G5L TXU 7 ASTOP(2) 2GK= BCC N4 [JUMP IF ONLY B0 SET 2H4W N6 2HJG ERS 7 ASTOP(2) 2J46 N4 JBS N1,3,JBBIN [J IF BROKEN IN ON 2JHQ #SKI K6RUNPROG>99-99 2K3B TRACE JOBNO(2),RUNPROG 2KH2 JBS SO,3,JBSO [J IF S/0 2KTC ... JBS XIT,3,JBBEING [EXIT IF BEING SWAPPED 2L7S ... PROGAXES 3,XK1 [WAIT IF BEING ACCESSED 2LG= [ THEREFORE S/I: CAN PLUG IN DIRECT IN PCA,SAFEGUARD BY 2L^W [ 'BEING PLUGGED IN' BIT 2MFG LINKSET 2,PLUGLINK(1) 2M^6 FPUT [PCA -> PLUG IN 2NDQ MBS 3,JBPLUGGING,JBSUSP 2NYB MBC 3,JBDORM,JBSTOP 2P88 ... ENDPAXES 3 2PD2 COOR1X 2PXL SO 2QC= SI BSON BSTRAT,XIT [END IF STRATEGY IN PROGRESS 2QWW KICKASWINT [GET LLS GOING 2RBG XIT 2RW6 MBS 3,JBRUN,JBSUSP 2S*Q MBC 3,JBDORM,JBSTOP [DORM-> SUSPENDED & RUNNABLE 2STB COOR1X 2T*2 XK2 FJOCA 3,2 [PCAPLUG ENTRY 2TSL JBS SIN,3,JBSI [DROP THRU IF S/O 2W#= MBS 3,JBPCACA,JBLOAD,JBSUSP,JBRUN 2WRW BC 3,JBDORM 2X?G KICKASWINT [GET LLS GOING 2XR6 SWIN COOR1 [WAIT FOR S/I 2Y=Q FJOCA 3,2 2YQB JBCC XBIN,3,JBLOAD [J IF B-IN & CLEAR LOAD MARKER 2^=2 SIN PROGAXES 3,XK2 [SWAPPED IN 2^PL LDX 4 ACOMMUNE1(2) [NOW TAKE ANY BLOX -> PCA 329= ROUND BZE 4 PEND [J IF NO MORE TO CHAIN 32NW SRL 45 12 338G HUNTX 1,5 33N6 BNG 1 ROUND 347Q FPCAJO 2,3 34MB CHAIN 1,2 [BLOCK -> PCA 3572 BRN ROUND [BACK FOR NEXT 35LL PEND FPCACA 2 [X2 -> PCA 366= LDX 7 2 36KW LDX 1 FX1 375G LINKSET 2,PCAPLUG(1) 37#8 ... MBS 3,JBPLUGGING,JBSUSP [MARK BEING PLUGGED IN 38JB MBC 3,JBDORM,JBSTOP 3942 FPUT [PCA SET GOING 39HL COOR1X 3=3= XBIN BC 3,JBPCACA [CLEAR PCACA IF B-IN 3=GW UP [RETURN IN CPA 3?2G N1 3?G6 #SKI K6RUNPROG>99-99 3?JP ... TRACE JOBNO(2),BIFBYRP 3?PX ... LDX 2 FX2 3?X5 ... LDCH 0 ATYPE(2) 3?^N ... SBN 0 APET/64 3#4? ... BNZ 0 NOTPCA1 3#6W ... CAPCA [IN PCA SO GO TO CPA 3#9F ...NOTPCA1 3##4 ...[ 3#BM ... 3#FB PROGBRKIN 3#^2 # 3*DL # MEND AREA 3*Y= # 3BCW MENDAREA 30,K100RUNPROG 3BXG #END ^^^^ ...463434650008