RUNPROG840 [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{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]]

<code - RUNPROG840.txt>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
</code>