(George Source)
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