(George Source)
Macros used: BITDEFS, FIELDDEF, PERMACT, PROPERTY, SEMAPHORE
22FL # 22^= # N.J.ROBINSON 23DW # 23YG # ALL THE IDENTIFIER FOR AN ACTLF ARE CURRENTLY DEFINED 24D6 # IN COMPS JH-CURRENTLY OWNED BY ROGER TERRY 24XQ # 24^N ... PERMACT SJ 253L ... PERMACT OUT 255J ...#SKI ARV 257G ... PERMACT RET 257P ... PERMACT ELOG [ERROR LOGGING ACTIVITY 257^ ...#OPT ANIP = 0 258D ...#DEF ALPS14LEN = 131 258X ...#OPT JICNIP=0 259D ...#OPT GSJACT=0 25?B ...#OPT GOUTACT=0 25*# ...#OPT GRETACT=0 25CB #OPT K0LISTFILE=0 25X2 #OPT K0STOPLIST=0 2648 ...#OPT AWLSZ=1 269B ...#OPT ASTRTJL=1 26BL #OPT K0WHATLIST=0 26W= #OPT ALLTRACE=0 [TRACE SETTING FOR SPEC STAT 27*W #OPT EXCLUDELF=1 27TG # THESE IDENTIFIERS CONTROL THE MARK 7 INTERFACES WITH 28*6 # USEROPEN 28SQ # PERIPHERAL HANDLER 29#B # INDEXED SYSTEM.OUTPUT 29S2 # RESPECTIVELY 2=?L #DEF ALFUSER=1 2=R= #DEF ALFPER=1 2?=W #OPT IXO=IX 2?QG #SKI EXCLUDELF 2#=6 ( 2#PQ # 2*9B #INC LISTMOP2 2*P2 #INC LISTFILE7 2B8L #INC LISTPARS7 2BN= #INC LISTFREE7 2C7W #INC LISTPROC7 2CMG #INC LISTOPEN7 2D76 #INC LISTNEXT7 2DLQ #INC LISTHEAD7 2F6B #INC LISTLOOP7 2FL2 #INC LISTINIT7 2G5L #INC LISTEND7 2GK= #INC LISTPREP7 2H4W #INC LISTFIND7 2HJG #INC LISTSEAR7 2J46 ...#INC LISTNIP 2KH2 # 2L2L # 2LG= ) 2L^W #OPT K0UTILITY=0 2MFG #OPT K0MONITOR=0 2M^6 [ 2NDQ [ 2NYB ...[ GOUT/INFOLIST 2PD2 [ 2PXL #DEF GNUM=A1 [CURRENT LINE NUMBER 2QC= #DEF GLNO=GNUM+1 [NUMBER OF RECORDS FOR OUTPUT 2QWW #DEF GCATBITS=GLNO+1 [CATEGORY MASK FOR MONFILE(BILA) 2RBG #DEF GQUAL=GCATBITS+1 [SUPPLEMENTARY INFORMATION WORD 2RHN ... BITDEFS GQUAL,15,BLFLTPMK6,BLFLALLC,BLFLNORM,BLFLBASIC,BLFLUNBUFF 2RNW ... BITDEFS GQUAL,20,BLFLMONFILE,BLFLNUMBER,BLFLSPECIAL 2RW6 #DEF GPREM=GQUAL+1 2S*Q #DEF GLEN=GPREM+1 2STB #DEF GNEXT=GLEN+1 [NO ADDED TO GREST FOR RESTART LINE 2T*2 #DEF GREST=GNEXT+1 2TSL [ 2W#= ...[ GOUT/INFO 2WRW [ 2X?G #DEF GOUTKEY1=A1+1 2XR6 #DEF GOUTKEY2=GOUTKEY1+1 2Y=Q #DEF GMODE=GOUTKEY2+1 2Y?Y ... BITDEFS GMODE,0,BLFONLINE,BLFIMPLEM,BLFSETUP,BLFPROPREC 2Y*6 ... BITDEFS GMODE,4,BLFPARTIMP,BLFNAV,BLFSETNAV,BLFPAGER 2YB# ... BITDEFS GMODE,8,BLFALLR,BLFBINARY,BLFEBCDIC,BLFCORRUPT 2YCG ... BITDEFS GMODE,12,BLFRESTED,BLFMULTI,BLFLOST,BLFSETLOST 2YDN ... BITDEFS GMODE,16,BLFISPER,BLFCLOSE,BLFSETCLOS,BLFPFREE 2YFW ... BITDEFS GMODE,20,BLFNLASTEL,BLFMONFILE,BLFNUMBER,BLFSPECIAL 2YH4 ... BITDEFS GMODE-A1,0,BLFRONLINE,BLFRIMPLEM,BLFRSETUP,BLFRPROPREC 2YJ= ... BITDEFS GMODE-A1,4,BLFRPARTIMP,BLFRNAV,BLFRSETNAV,BLFRPAGER 2YKD ... BITDEFS GMODE-A1,8,BLFRALLR,BLFRBINARY,BLFREBCDIC,BLFRCORRUPT 2YLL ... BITDEFS GMODE-A1,12,BLFRRESTED,BLFRMULTI,BLFRLOST,BLFRSETLOST 2YMS ... BITDEFS GMODE-A1,16,BLFRISPER,BLFRCLOSE,BLFRSETCLOS,BLFRPFREE 2YP2 ... BITDEFS GMODE-A1,20,BLFRNLASTEL,BLFRMONFILE,BLFRNUMBER,BLFRSPECIAL 2YQB #DEF GFLI=GMODE+1 2YTG ... BITDEFS GFLI,0,BLFFRTOER,BLFFRCTEXT 2YYL ... BITDEFS GFLI-A1,0,BLFRFRTOER,BLFRFRCTEXT 2^3Q ... FIELDDEF FLFFRNUM,21,GFLI,23 2^6W ... FIELDDEF FLFRFRNUM,21,GFLI-A1,23 2^=2 #DEF GNLI=GFLI+1 2^#9 ... BITDEFS GNLI,1,BLFTOCTEXT,BLFTO 2^BD ... BITDEFS GNLI-A1,1,BLFRTOCTEXT,BLFRTO 2^DM ... FIELDDEF FLFLINUM,21,GNLI,23 2^GW ... FIELDDEF FLFTONUM,21,GNLI,23 2^K5 ... FIELDDEF FLFRLINUM,21,GNLI-A1,23 2^M# ... FIELDDEF FLFRTONUM,21,GNLI-A1,23 2^PL #DEF GOUTYPE=GNLI+1 2^P^ ... BITDEFS GFTY,13,BLFWLCLOSE 2^Q# ... BITDEFS GFTY,14,BLFWLSIZE 2^QP ... BITDEFS GFTY,15,BLFREST2 2^RT ... BITDEFS GFTY,16,BLFTPMK6 2^W4 ... BITDEFS GFTY,17,BLFSETALLC,BLFSETNORM,BLFSETBAS 2^Y? ... BITDEFS GFTY,21,BLFALLC,BLFNORM,BLFBASIC 2^YL ... BITDEFS GFTY-A1,13,BLFRWLCLOSE 2^Y^ ... BITDEFS GFTY-A1,14,BLFRWLSIZE 2^^B ... BITDEFS GFTY-A1,15,BLFRREST2 322G ... BITDEFS GFTY-A1,16,BLFRTPMK6 324P ... BITDEFS GFTY-A1,17,BLFRSETALLC,BLFRSETNORM,BLFRSETBAS 326Y ... BITDEFS GFTY-A1,21,BLFRALLC,BLFRNORM,BLFRBASIC 329= #DEF GFTY=GOUTYPE+1 32NW #DEF GWAKECOUNT=GFTY+1 338G #DEF GMULTID=GWAKECOUNT+1 33N6 #DEF GSOURCE1=GMULTID+1 347Q #DEF GSOURCE2=GSOURCE1+1 34MB #DEF GJOBS=GSOURCE2+1 3572 #DEF GOPTY=GJOBS+1 35LL #DEF GUSER=GOPTY+1 366= #DEF GJOBN=GUSER+3 36KW #DEF GSUSE=GJOBN+3 375G #DEF GMFMSK=GSUSE+1 37K6 #DEF GCOUNT=GMFMSK+1 384Q #DEF GHEAD=GCOUNT+1 387* ... BITDEFS 0,0,BLFSEARCH,BLFSSEARCH,BLFCSEARCH 389Y ... FIELDDEF FLFSTRLEN,21,0,23 38#H ...[ 38C6 ...[ ACTLF 38FP ...[ 38JB #DEF ALFTN=ALFTRANS [THESE SHORT 3942 #DEF ALFWD=ALFWORDS [IDENTIFIERS ARE 39HL #DEF ALFLG=ALFLAG [FOR POSTMORTEM 3=3= #DEF GSWORK1=A5 [THESE 3=GW #DEF GSWORK2=GSWORK1+1 [IDENTIFIERS ACCESS 3?2G #DEF GSWORK3=GSWORK2+1 [THE LISTFILE 3?G6 #DEF GSWORK4=GSWORK3+1 [SHEDULER'S 3?^Q #DEF GSWORK5=GSWORK4+1 [WORK-SPACE 3#FB # THERE FOLLOWS A LIST OF BIT POSITIONS GOVERNING ACCESS 3#^2 # TO ALFLAG IN THE ACTLF 3*DL #DEF ALFBITA=23 3*Y= #DEF ALFBITB=22 3BCW #DEF ALFBITC=21 3BXG #DEF ALFBITD=20 3CC6 #DEF ALFBITE=19 3CWQ #DEF ALFBITF=18 3DBB #DEF ALFBITG=17 3DW2 #DEF ALFBITH=16 3F*L #DEF ALFBITI=15 3FT= #DEF ALFBITJ=14 3G#W #DEF ALFBITK=13 3GSG #DEF ALFBITL=12 3H#6 #DEF ALFBITM=11 3HHY ... BITDEFS ALFLAG,11,BLFFREADERR 3HRQ #DEF ALFBITN=10 3J?B #DEF ALFBITO=9 3JR2 #DEF ALFBITP=8 3K=L #DEF ALFBITQ=7 3KQ= #DEF ALFBITR=6 3L9W #DEF ALFBITS=5 3LPG #DEF ALFBITT=4 3M96 #DEF ALFBITU=3 3MNQ #DEF ALFBITV=2 3N8B #DEF ALFBITW=1 3NN2 #DEF ALFBITX=0 3P7L # NEXT IDENTIFIERS FOR THE GOUT/GPROPNOS BLOCK 3PM= #DEF GPROPNUM=A1 3Q6W # NEXT IDENTIFIERS FOR THE GOUT/GABSNB BLOCK 3QLG #DEF GAKEY=HDREC+10 3R66 #DEF GAFREEZE=HDREC+11 3R*Y ...#DEF GASIZE=GAFREEZE+1 3RKQ [ 3S5B [ ACTLF IN LISTLOOP 3SK2 [ 3T4L #DEF GZLENGTH=A5 3X36 #DEF GZPOINT=GZLENGTH+1 3XGQ #DEF GZDUMP=GZPOINT+1 3Y2B #DEF GZTRANS=GZDUMP+1 3YG2 #DEF GZDATA=GZTRANS+1 3Y^L [ 3^3T ...[ ADATA / HEADING 3^64 ...[ 3^8? ...#DEF HEADREC = A1 3^=G ...#DEF HEADCNT = HEADREC + 1 3^#P ...#DEF HEADPFCC = HEADCNT + 1 3^BY ...#DEF HEADDATA = HEADPFCC + 1 3^F= #OPT K6MONITOR=0 3^YW #OPT K6UTILITY=0 42DG #OPT K6LISTFILE=K6ALLGEO>K6GREATGEO>K6COMMAND 42Y6 #OPT K6LISTLOOP=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE 43CQ #OPT K6LISTPARS=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE 43XB #OPT K6CONSIN=K6ALLGEO>K6GREATGEO>K6MONITOR 44C2 #OPT K6CONSOUT=K6ALLGEO>K6GREATGEO>K6MONITOR 44WL #OPT K6PERCON=K6ALLGEO>K6GREATGEO>K6UTILITY 456D ...#OPT K6PERFAIL=K6OBJPROG>K6PERCON>K6ALLGEO>K6GREATGEO 45B= #OPT K6CHNUMCON=K6ALLGEO>K6GREATGEO>K6UTILITY 45TW #OPT K6STOPLIST=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE 46*G #OPT K6STOPLISB=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE 46T6 #OPT K6WHATLIST=K6ALLGEO>K6GREATGEO>K6COMMAND>K6LISTFILE 47#Q # 47SB # 48#2 # 48RL [ SUNDRY PROPERTY SYSTEM THINGS --- JANET WASTELL 49?= # 49QW #OPT APROPSYS=G3MARK>4-4 4==G #INC PROPERTY 4=Q6 #INC ATTRIBUT 4?9Q #INC WHATPROP 4?PB #INC SYSPROP7 4#92 #OPT K6PROPSYS=K6ALLGEO>K6COMMAND 4#NL #OPT K6PROPERTY=K6PROPSYS>K6ALLGEO>K6COMMAND 4*8= #OPT K6WHATPROPS=K6PROPSYS>K6ALLGEO>K6COMMAND 4*MW #OPT K0PROPSYS=0 4B7G #OPT K0WHATPROPS=0 4BM6 #OPT K0PROPERTY=0 4C6Q #DEF APROPNO=FRH+1 4CLB #DEF ATTCOUNT=APROPNO+1 4D62 #DEF APROPNAME=ATTCOUNT+1 4DKL #DEF APROPGROUP=APROPNAME+3 4F5= #DEF APROPATT=APROPGROUP+1 4FJW #OPT ALHEAD=0 4G4G #DEF ATTRIBUTE=#73 4H3Q # 4H5N ...#UNS HWATIDY 4H7L ...( 4H9J ... BITDEFS APANDV,0,IDFPROPLOCK,IDFPROPWAIT 4H?G ... SEMAPHORE IDFANDPROP,IDFPROPLOCK,IDFPROPWAIT,ASEMWAIT,LONG 4H*D ...) 4HCB ...#UNS HWATIDY 4HF# ...#SKI 4HHB #DEF IDFANDPROP=0 [SEMAPHORE BIT USED BY P AND V 4J32 #OPT ATTMAX=5 [MAXIMUM NO. OF PROPERTY ATTRIBUTIONS 4JGL [ FORMAT OF APERI/APROPNOS BLOCK 4K2= #DEF CPROPNO=A1+1 4KFW #DEF BPROPCNT=CPROPNO+1 4K^G #DEF CHPERM=BPROPCNT+1 4LF6 #DEF ADPERM=CHPERM+1 4LYQ #DEF CHTEMP=ADPERM+1 4MDB #DEF ADTEMP=CHTEMP+1 4MY2 #DEF BPROPS=ADTEMP+1 4N=C ...#UNS HWLSLCH 4NJS ...#SKI 4NX= ( 4PBW # BLOCKS USED BY STOPLIST 4PWG [ FORMAT OF GOUT/COMP BLOCK 4QB6 #DEF GCBLENGTH=6 [LENGTH OF BASIC GOUT/COMP BLOCK IN 4QTQ #DEF GCSOURCE1=A1 4R*B #DEF GCSOURCE2=GCSOURCE1+1 4RT2 #DEF GCSOURCE3=GCSOURCE2+1 4S#L #DEF GCPER=GCSOURCE3+1 [PERIPHERAL TYPE 4SS= #DEF GCFORM=GCPER+1 [FORMAT MARKER & STORE FOR PROP NO 4T?W #DEF GCPROP=GCFORM+1 [LENGTH OF PROPERTY BLOCK IF ANY 4TRG #DEF GCUSER=GCPROP+1 [USER NAME 4W?6 #DEF GCJOBN=GCUSER+3 4WQQ #DEF GCFILEL=GCJOBN+3 [LENGTH OF FILENAME IN CHARS 4X=B #DEF GCFILE=GCFILEL+1 [FILENAME 4XQ2 [ FORMAT OF APERI APRORS BLOCK 4Y9L #DEF APRNO=A1+1 4YP= #DEF APRNOSIG=APRNO+1 4^8W #DEF APRNAME=APRNOSIG+1 4^NG ) 4^PR ...[ 4^R4 ...[ FORMAT OF GOUT/GLINES BLOCK 4^S* ...[ 4^TL ...#DEF GTOTLIN = A1 4^WX ...#DEF GUSELIN = GTOTLIN +1 4^Y8 ...#DEF GNEXTL = GUSELIN +1 4^^F ...#DEF GFIRSTL = GNEXTL +1 522Q ...#DEF GCHARS = 0 5243 ...#DEF GPFCC = GCHARS +1 525# ...#DEF GLINE = GPFCC +1 526K ...[ 5286 ...#DEF ALFUIJPC=1 52=* ...[ 52#J ...[ FORMAT OF GOUT/GESIZE BLOCK 52BR ...[ 52F2 ...#DEF GESZ = A1 52H9 ...#DEF GESM = GESZ+1 52KD ...[ 52MQ ...[IDENTIFIER SETTINGS FOR PHASE 2 TRAIN PRINTER CODE 537B ...#DEF ATPPHASET=0 53M2 ...#DEF HATP=0 546L ...#DEF ATPOLTRP2=0 54L= ...#DEF ATPOLTR=0 555W ...#DEF ATPPHASE2=1 55KG ...#OPT K0REPERT=3 5656 ...#DEF AERRSIM=0 56JQ ... BITDEFS GMODE,8,BLFXTRASTOP 574B ... BITDEFS GMODE,12,BLFXTRAGR 57J2 ... BITDEFS GMODE,9,BLFXTRASHIF,BLFXTRANOPA,BLFXTRANOBC 583L ... FIELDDEF FLFXTRAPICT,3,GMODE,11 58H= ...# N.B. ABOVE 3 BITS MUST BE ADJACENT & IN SAME ORDER AS IN CPATUWORD. 592W ...# P.S. THE DREADED BIT 11 IS NOT USED IN ONLINE LISTFILES. 59GG ...#ALT IWIDTH = ACTLFLEN+GREMOTELEN+A1 [85 5=26 ...#OPT K0LIST=0 5=FQ ...[ 5=^B ...[ IDENTIFIER USED TO EXTEND THE LENGTH OF CPT ACTIVITY 5?F2 ...[ WHEN OUTPUTTING A LISTING TO A MOP TERMINAL 5?YL ...[ 5#D= ...#DEF ALFMOPLEN=18 ^^^^ ...16161664002800000000