{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RUNPROG840)}}
====== RUNPROG840 ======
(George Source)
**Macros used:** [[george:macro:BC|BC]], [[george:macro:BSON|BSON]], [[george:macro:CAPCA|CAPCA]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CLEAR|CLEAR]], [[george:macro:COOR1|COOR1]], [[george:macro:COOR1X|COOR1X]], [[george:macro:ENDPAXES|ENDPAXES]], [[george:macro:FCAPCA|FCAPCA]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FPCACA|FPCACA]], [[george:macro:FPCAJO|FPCAJO]], [[george:macro:FPUT|FPUT]], [[george:macro:HUNTX|HUNTX]], [[george:macro:JBC|JBC]], [[george:macro:JBCC|JBCC]], [[george:macro:JBS|JBS]], [[george:macro:KICKASWINT|KICKASWINT]], [[george:macro:LINK|LINK]], [[george:macro:LINKSET|LINKSET]], [[george:macro:MBC|MBC]], [[george:macro:MBS|MBS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MONENDB|MONENDB]], [[george:macro:PCAPLUG|PCAPLUG]], [[george:macro:PROGAXES|PROGAXES]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SWIN|SWIN]], [[george:macro:TRACE|TRACE]], [[george:macro:UP|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