{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS PRL)}}
====== COMPS PRL ======
(George Source)


<code - COMPS PRL.txt>22FL    #     H.CAMPBELL-GRANT  
22^=    #           WAIT COMMAND
23DW    #INC  WAIT50
23YG    #OPT           K0WAIT=0 
24D6    #OPT           K6WAIT=K6ALLGEO  
24XQ    #DEF  AFINDUMP=#74                 [WAITING STYLE FOR WAITDUMP COMMAND  
25CB    #           INSTPARA OPERATORS'DIRECTIVE
25X2    #OPT           K0INSTPARA=0 
26BL    #OPT  K6INSTPARA=K6ALLGEO/2 
26W=    #OPT           K6JOBDATA=K6ALLGEO   
27*W    #OPT           K0JOBDATA=0  
27TG    #OPT           K6URGELOAD=K6ALLGEO  
28*6    #OPT           K0URGELOAD=0 
29S2    #           HIGH LEVEL SCHEDULER ROUTINES   
2=?L    #OPT           K6SCHEDJOB=K6ALLGEO  
2=R=    #OPT           K0SCHEDJOB=0 
2?=W    #OPT           K0JOBLIST=0  
2?QG    #OPT           K6JOBLIST=0  
2#=6    #OPT           K0ACCESSCOM=0
2#PQ    #OPT           K6ACCESSCOM=K6ALLGEO 
2*9B    #OPT           K0HLSREAD=0  
2*P2    #OPT           K6HLSREAD=0  
2B8L    #OPT  K0HLSENTER=0  
2BN=    #OPT  K6HLSENTER=K6ALLGEO   
2C7W    #OPT  K0EXPRESS=0   
2CMG    #OPT  K6EXPRESS=K6ALLGEO>K6COMMAND>K6INGEO  
2D76    #OPT  K0HLS=0   
2F6B    #INC  SCHEDJOB65
2FL2    #INC  HLSREAD65 
2G5L    #INC  EXPRESS60 
2GK=    #INC  ACCESS
2HJG    #INC  JOBDATA60 
2JHQ    #INC  JOBLIST60 
2K3B    #DEF  ASAVEJOB=1
2KH2    #     IDENTIFIERS FOR HLS BLOCK 
2L2L    #DEF  HLSJONO=A1
2LG=    #DEF  HLSSTAT=HLSJONO+1 
2L^W    #DEF  HLSJNAM=HLSSTAT+1 
2MFG    #DEF  HLSUNAM=HLSJNAM+3 
2M^6    #DEF  HLSYONQ=HLSUNAM+3 
2NDQ    #DEF  HLSPCT=HLSYONQ+1  
2NG^ ...#SKI  JWPHASE2  
2NK8 ...(   
2NMC ...#DEF  HLSPRIV=HLSPCT+1  
2NMP ...#SKI  JWPHASE4  
2NN3 ...(   
2NN* ...#DEF  HLSYONQA=HLSPRIV+1
2NNM ...#DEF AHLS=HLSYONQA+1-A1 
2NN^ ...)   
2NP? ...#SKI  JWPHASE4<1$1  
2NPL ...#DEF  AHLS=HLSPRIV+1-A1 
2NRT ...)   
2NW4 ...#SKI  JWPHASE2<1$1  
2NYB    #DEF  AHLS=HLSPCT+1-A1  
2PD2    #     DEFINITIONS FOR SYSTEM.JOBLIST ENTRIES
2PXL    #DEF  JOBNOFILED=A1+1   
2QC=    #DEF  JRECSIZE=A1+1 
2QWW    #DEF  JFACTAB=JRECSIZE+1
2RBG    #DEF  JUSERELADD=JFACTAB+1  
2RW6    #DEF  JJOBRELADD=JUSERELADD+1   
2S*Q    #DEF  JDATEADDR=JJOBRELADD+1
2STB    #DEF  JSOADDR=JDATEADDR+1   
2SWC ...#DEF  JLVERSION=JSOADDR+1   
2SXD ...#DEF  JLSTATPTR=JLVERSION+1 
2SYF ...#DEF  JLBUDPTR=JLSTATPTR+1  
2S^G ...#DEF  JLASSPTR=JLBUDPTR+1   
2T2H ...#DEF  JLRPTRPTR=JLASSPTR+1  
2T3J ...#UNS  JWPHASE4  
2T4K ...#DEF  JLDFPTR=JLRPTRPTR+1   
2T5L ...#UNS  FPRJW 
2T6M ...#DEF  JLSTATXPTR=JLDFPTR+1  
2T7N ...#UNS  FPRJW 
2T8P ...#OPT  JLFAX=JLSTATXPTR+1
2T9Q ...#UNS  JWPHASE4  
2T=R ...#OPT  JLFAX=JLDFPTR+1   
2T?S ...#OPT  JLFAX=JLRPTRPTR+1 
2T*2 ...#OPT  JNPASS=#77777777$#5                   [BLOCKS WHICH ARE NOT TO BE 
2TSL    #DEF  JLENGTH=35
2W#=                                       [TRANSFERED TO HLSQ  
2WRW    #DEF  HLSAVELEN=67  
2X?G    #OPT  K6SAVEJOB=K6ALLGEO
2XR6    #OPT  K6SAVEBLOK=K6ALLGEO   
2Y=Q    #OPT  K6UNSAVE=K6ALLGEO 
2YQB    #OPT  K6RESTBLOK=K6ALLGEO   
2^=2    #OPT  K6CHJOB=K6ALLGEO  
2^PL    #DEF  HLSAVE=1  
329=    #INC  HLSEMS
32NW    #INC  UNSAVE6   
338G    #INC  SAVEJOB65 
33N6    #INC  RESTBLOK50
347Q    #INC  SAVEBLOK65
34MB    #OPT  K0SAVEJOB=0   
3572    #OPT  K0SAVEBLOK=0  
35LL    #OPT  K0UNSAVE=0
366=    #OPT  K0RESTBLOK=0  
36KW ...# DEFINITIONS OF CONTROL RECORD LENGTHS 
375G ...# INTRODUCED FOR HLSRESET ON UNSAVED JOBS BUG CORRECTION
37K6 ...#UNS ECS
384Q ...#DEF ASTCON=10  
38JB ...#UNS ECS
3942 ...#SKI
39HL ...#DEF ASTCON =8  
3=3= ...#DEF CONRECSIZE=ASTCON+2
^^^^ ...35375241001200000000
</code>