(George Source)
Macros used: BITDEFS, FIELDDEF, INMOP, SEMAPHORE
225X ...[ 229S ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 22*P ...[ 22FL #SKI GENIE 22^= ( 23DW [ 23YG # RUTH HEAP 24D6 [ 24XQ # THIS SUBFILE IS INTENDED TO CONTAIN ALL ACTIVITY BLOCK IDENTIFIERS 25CB # THE FIRST SECTION DEFINES THE BASIC ACTIVITY BLOCK FORMAT,AND THE 25X2 # EXTENSIONS FOR EACH TYPE OF BLOCK FOLLOW ALPHABETICALLY. 26BL #DEF EXUDAS=1 [MK6-UDAS 26W= #DEF AWORKFILE=1 [MK6-SUPER FAST WORKFILES 27*W #DEF CLUSPROPS=1 [MK6-PROPERTY/CLUSTER CODE 27TG #OPT INMOP=0 28*6 #OPT CNEWRING=1 28SQ #OPT EXECNUM=EXUDAS<1+5 [5 IF EXUDAS=0 ELSE 6 29#B #OPT ANEWACTLF=1 29S2 #OPT ALFMK7=0 2=?L #OPT CLONK=1 2=R= #OPT CLINK=CLONK 2?=W #OPT EPCOD=BFSJ^AUTLP 2?QG #DEF AGMIN8=-8 2#=6 #DEF CJOBRING=G3MARK>4-4<1 2#PQ #DEF GDMIN4=-4 2*9B #OPT KCPX=1 2*P2 [ BASIC RED TAPE MNEMONICS 2B8L #DEF A0=0 2BN= #SKI CAMK7>1-1 2C7W ( 2CMG #DEF A1=9 2D76 #DEF IROUND=8 [BLOCK ROUNDING CONSTANT 2DLQ #DEF INROUND=-IROUND 2F6B ) 2FL2 #SKI CAMK7<2-2 2G5L ( 2GK= #DEF A1=8 2H4W #DEF A1D=A1+4&GDMIN4 [AOBJPROG MNEMONICS -> COMPS RTERRY 2HJG ) 2J46 #DEF A1L=A1 [PROSPECTIVE LONG RED TAPE IDENTIFIER 2JHQ # LINKSTACK BLOCK MNEMONICS 2K3B #DEF BLINKRING=A1 2KH2 # ACTIVITY BLOCK MNEMONICS 2L2L #DEF FPTR=0 [FORWARD POINTER 2LG= #DEF BPTR=FPTR+1 [BACKWARD POINTER 2L^W #DEF ASIZE=BPTR+1 [BLOCK LENGTH 2MFG #DEF BSTART=BPTR+1 2M^6 #SKI CAMK7>1-1 2NDQ ( 2NYB #DEF AFLAG=ASIZE+1 2PD2 #DEF ATYPE=AFLAG+1 2PXL ) 2QC= #SKI CAMK7<2-2 2QWW #DEF ATYPE=ASIZE+1 [TYPE WORD 2RBG #DEF BACK1=ATYPE+1 [1ST WORD OF BACKING STORE ADDRESS 2RW6 #DEF BACK2=BACK1+1 [2ND WORD OF BACKING STORE ADDRESS 2S*Q #DEF ALOGLEN=BACK2+1 2STB #DEF ARINGNO=ALOGLEN+1 [WORD GIVING DETAILS OF RINGS 2T*2 #SKI CAMK7<2-2 2TSL ( 2W#= #DEF BWORKRING=ARINGNO+1 2WRW #DEF CHAINADD=BWORKRING+2 2X?G ) 2XR6 #SKI CAMK7>1-1 2Y=Q #DEF CHAINADD=ARINGNO+1 2YQB #DEF BACKCHAN=CHAINADD+1 2^=2 #SKI CAMK7>1-1 2^PL ( 329= #DEF BWORKRING=CHAINADD+2 32NW #DEF JOBRING=BWORKRING+2 338G ) 33N6 #SKI CAMK7<2-2 347Q #DEF JOBRING=BACKCHAN+1 34MB #DEF ACTRING=JOBRING+2 3572 #DEF ALINKRING=ACTRING+2 [LINK STACK RING 35LL #DEF FILERING=ALINKRING+2 366= #DEF FILEBRING=FILERING+1 36KW #DEF ACTRINGNUM=FILERING-ARINGNO+1/2 375G #DEF ACC3=FILERING+3 [ACC DUMP AREA 37K6 #DEF ACC4=ACC3+1 384Q #DEF ACC5=ACC3+2 38JB #DEF ACC6=ACC3+3 3942 #DEF ACC7=ACC3+4 39HL #OPT ALINK1=ACC7+1 [1ST WORD OF LINK PAIR 3=3= #SKI CLONK<1$1 3=GW ( 3?2G #DEF ALINK2=ALINK1+1 3?G6 #DEF AWORK1=ALINK2+1 3?^Q ) 3#FB #SKI CLONK 3#^2 #DEF AWORK1=ALINK1+1 3*DL #DEF AWORK2=AWORK1+1 3*Y= #DEF AWORK3=AWORK2+1 3BCW #DEF AWORK4=AWORK3+1 3BXG #DEF ACOMMUNE1=AWORK4+1 3CC6 #DEF ACOMMUNE2=ACOMMUNE1+1 3CWQ #DEF ACOMMUNE3=ACOMMUNE2+1 3DBB #DEF ACOMMUNE4=ACOMMUNE3+1 3DW2 #DEF ACOMMUNE5=ACOMMUNE4+1 3F*L #DEF ACOMMUNE6=ACOMMUNE5+1 3FT= #DEF EXEC1=ACOMMUNE6+1 [EXEC COMMUNICATION AT PRESENT 3G#W #DEF EXEC2=EXEC1+1 3GSG #DEF EXEC3=EXEC2+1 3H#6 #DEF ACOMMUNE7=ACOMMUNE6+1 [TO REPLACE EXEC WORDS FOR GEO3 USE 3HRQ #DEF ACOMMUNE8=ACOMMUNE7+1 3J?B #DEF ACOMMUNE9=ACOMMUNE8+1 3JR2 #DEF ACTNUM=ACOMMUNE9+1 [UNIQUE ACTIVITY NO (SET BY GETACT) 3K=L #DEF ACTCHCH=ACTNUM+1 [CHCH COUNT 3K*9 [ 3KCS ...[ IMPORTANT: WORD ACTCHCH+1 3KGC ...[ HAS BITS 12 TO 17 RESERVED FOR THE GOVERNMENT 3KK2 [ SECURITY INTERFACE. 3KMK [ 3KN9 ...#DEF CPATUWORD=ACTCHCH+1 [NEW WD FOR USER GROUP SECURITY I/FACE 3KNT ...[ 3KPF ...[ BIT I.D.S FOR CPATUWORD 3KQ5 ...[ 3KQP ... BITDEFS CPATUWORD,14,JFSINCHECK 3KR* ... FIELDDEF JFSINHISO,2,CPATUWORD,16 3KR^ ... FIELDDEF JFSINLOSI,2,CPATUWORD,18 3KSK ...[ 3KT9 ...[ 3KTT ...[ THE FOLLOWING DEFINITIONS ARE FOR MES. 3KWF ...[ 3KX5 ... BITDEFS CPATUWORD,6,G262SP 3KXP ... BITDEFS CPATUWORD,6,G263SP 3KY* ... BITDEFS CPATUWORD,7,G502BETA 3KY^ ...# BIT 7 - MOP LF RECORD STARTED IN BETA (INTERNAL TO LISTMOP) 3K^K ... BITDEFS CPATUWORD,9,G501SHIFT,G501ALLC 3L29 ...# BIT 9 - INDICATES SHIFT OPERATION ON MOP (B10 = ALLCHAR INPUT) 3L2T ... BITDEFS CPATUWORD,10,G502NOLF 3L3F ...# BIT 10 - INDICATES NEWLINE SUPPRESSION ON MOP 3L45 ... BITDEFS CPATUWORD,11,G502NOBC 3L4P ...# BIT 11 - BROADCAST DEFERMENT ON MOP 3L5* ...#DEF G502SHIFT = G501SHIFT 3L5^ ... FIELDDEF G502SHIFTF,3,CPATUWORD,11 3L6K ...# FIELD = G502SHIFT+G502NOLF+G502NOBC - BITS MUST BE ADJACENT 3L79 ...#DEF CPATUMASK = #1777 3L7T ...# WORD FOR MARKER BITS FOR USER-WRITTEN CODE: 3L8F ...# BITS NOT IN CPATUMASK CLEARED AT START OF NEW COMMAND. 3L95 ...[ 3L9W #DEF CLONG1=ACTCHCH+2 3M?P # 3M#Q # BIT I.D.'S FOR CLONG1 - BEWARE ALTHOUGH BITS 10-14 3M*R # MAY APPEAR TO BE SPARE, BITS 12-14 MAY BE CLEARED BY THE 3MBS # USE OF 'DSA' INSTEAD OF 'DEX' INTO THE WAITSTYLE FIELD 3MCT # ( DONE BY MACROS 'WAITSTOP' AND 'LONGCLEAR' ) 3MDW # 3MFX BITDEFS CLONG1,0,CLGCOREQ,CLGBSPRIV,CLGMONASET,CLGFULTRAC 3MGY BITDEFS CLONG1,4,CLG4COREQ,CLGBCAST,CLGNOISY 3MH^ BITDEFS CLONG1,7,FSHALIEN,EXINERT,FSHNOTJOBNO 3MK2 FIELDDEF CLGWAIT,9,CLONG1,23 3ML5 # 3MNQ #DEF CLONG2=CLONG1+1 3N8B #SKI ALWMK7 3NN2 ( 3P7L #DEF CLONG3=CLONG2+1 3PM= #DEF BA1=CLONG3+1 3Q6W ) 3QLG #SKI ALWMK7<1-1 3R66 #DEF BA1=CLONG2+1 [FOR MK4 BSTS 3RKQ #DEF BA2=BA1+1 3S5B #DEF BA3=BA2+1 3SK2 #DEF BA4=BA3+1 3T4L #DEF BA5=BA4+1 3TJ= #DEF CPPTR=BA5+1 3W3W #DEF CPRW1=CPPTR+1 3WHG #DEF CPRW2=CPRW1+1 3X36 #DEF CPRSW=CPRW2+1 3XGQ #SKI HIPRI 3Y2B ( 3YG2 #DEF ACRIT=CPRSW+1 3Y^L #DEF ATUSEG=ACRIT+1 3^F= ) 3^YW #SKI G3 42DG #DEF JOBNO=CHAINADD+K47-1 42Y6 #SKI G4 43CQ #DEF JOBNO=CHAINADD+K47-9 43XB #DEF FCA5=JOBNO 44C2 [ IDENTIFIERS COMMON TO ALL ACTIVITY BLOCKS. 44WL [ 45B= #DEF ABL=FCA5+1-A1 [MINIMUM ACTIVITY BLOCK LENGTH 45TW [ 46*G [ ACTCDT OUTPUT OF TIME/DATE TO CONSOLE. 46T6 [ J.NICHOLSON. 47#Q #DEF ACTCDTLEN=ABL 47SB [ 48#2 [ 48RL [ ACTDOC SERVICING INTERRUPTS ON MAG TAPE & 49?= [ BACKING STORE DEVICES 49QW [ A.S.TEW,A.MORROW & J.ATHERTON. 4==G [ SUBTYPES:- ADUMPT H.SIMMONS 4=Q6 [ ARET H.SIMMONS 4?9Q [ ASCHEDE MARK BAIRD 4?PB [ 4#92 #DEF ACTDOCLEN=AMXMSK+1-A1 4#NL [ 4*8= #DEF ADUMPTLEN=1 4*MW [ 4B7G [ ONE EXTRA WORD FOR ACTDOC/ADUMPT 4BM6 #DEF ADTSN=ACTDOCLEN+A1 4C6Q [ 4CLB [ 4D62 #DEF ARETLEN=0 [ADD.LENGTH FOR ACTDOC/ARET 4DKL [ 4F5= #DEF ADUMTST=ACTDOCLEN+A1 4FJW #DEF ASCHEDELEN=1 4G4G [ 4GJ6 [ ACTLF SLOW OUTPUT PERIPHERAL TRANSFERS 4H3Q [N ROBINSON 4HHB [ 4J32 #DEF JSOURCE1=FCA5+1 4JGL #DEF ALFSOURCE=JSOURCE1 4K2= #DEF JSOURCE2=JSOURCE1+1 4KFW #DEF JSOURCE3=JSOURCE2+1 4K^G #SKI ALFMK7 4LF6 ( 4LYQ #DEF ALFTRANS=JSOURCE3+1 4MDB #DEF ALFWORDS=ALFTRANS+1 4MY2 #DEF ALFLAG=ALFWORDS+1 4NCL #DEF A5=ALFLAG+1 4NX= ) 4PBW #SKI ALFMK7<1$1 4PWG ( 4QB6 #DEF AMULTID=JSOURCE3+1 4QTQ #DEF AWAKECOUNT=AMULTID+1 4R*B #DEF A5=AWAKECOUNT+1 4RT2 ) 4S#L #DEF IWORK1=A5 4SS= #DEF IWORK2=IWORK1+1 4T?W #DEF IWORK3=IWORK2+1 4TRG #DEF IWORK4=IWORK3+1 4W?6 #DEF IWORK5=IWORK4+1 4WQQ #DEF IWORK6=IWORK5+1 4X=B #DEF IWORK7=IWORK6+1 4XQ2 #DEF IWORK8=IWORK7+1 4Y9L #DEF IWORK9=IWORK8+1 4YP= #DEF IWORK10=IWORK9+1 4^8W #DEF IWORK11=IWORK10+1 4^NG #DEF IWORK12=IWORK11+1 5286 #DEF IWORK13=IWORK12+1 52MQ #DEF IWORK14=IWORK13+1 537B #DEF IWORK15=IWORK14+1 53M2 #DEF IWORK16=IWORK15+1 546L #DEF IWORK17=IWORK16+1 54L= #DEF IWORK18=IWORK17+1 555W #DEF IWORK19=IWORK18+1 55KG #DEF IWORK20=IWORK19+1 5656 #SKI ALFMK7 56JQ ( 574B #DEF ACTLFLEN=A5-A1 57J2 #DEF GREMOTELEN=20 583L #DEF CENTRALLEN=45 58H= #DEF BSCHEDLEN=5 592W ) 59GG #SKI 1<ALFMK7$1 5=26 ( 5=FQ #DEF ANACT=AWAKECOUNT-A1+1 5=^B #DEF ACTLFLEN=ANACT+43 5?F2 #DEF GREMOTELEN=0 5?YL #DEF CENTRALLEN=0 5#D= #DEF GREMOTE=0 5#XW #DEF CENTRAL=0 5*CG ) 5*X6 [ 5BBQ [ ACTSAVE 5BWB [ 5CB2 [ 5CTL #DEF ACTSAVELEN=ABL 5D*= [ 5DSW [ ACTUNJAM RUNNING BACKING STORE UNJAMMER 5F#G [ H.SIMMONDS 5FS6 [ 5G?Q #DEF ACTUNJAMLEN=ABL 5GRB [ 5H?2 [ AMOP PERIPHERAL TRANSFERS TO/FROM 5HQL [ MULTIPLEXOR OR UNIPLEXOR. 5J== [ SUBTYPES:- APCT K. CHILTON 5JPW [ ASENT C.WILKINSON 5K9G [ IMOPQ J. WRATTEN. 5KP6 [ IPBIN J. WRATTEN. 5L8Q [ IPBOUT J. WRATTEN. 5LNB [ IPBCCA C.WILKINSON 5M82 [ 5MML #DEF BMOP=AMOP 5N7= #DEF BMOPLEN=ADMP+1-A1 5NLW [ WORDS USED IN AMOP (NO SUBTYPE) 5P6G #DEF IMOPADDR=AWORK2 5PL6 #DEF ADMP=JOBNO 5Q5Q #DEF APCTLEN=0 5QKB #DEF ASENTLEN=0 5R52 [ WORDS USED IN AMOP/IMOPQ 5RJL #DEF IWAKE=JOBNO 5S4= #DEF IMOPQLEN=IWAKE+1-A1-BMOPLEN 5SHW [ WORDS USED IN AMOP/IPBIN & AMOP/IPBOUT 5T3G #DEF IPBRING=JOBRING 5TH6 #DEF IPBL=JOBNO 5W2Q #DEF IPBSW=IPBL+1 5WGB #DEF IPBINLEN=IPBSW+1-A1-BMOPLEN 5X22 #DEF IPBOUTLEN=IPBSW+1-A1-BMOPLEN 5XFL [ WORDS USED IN AMOP/IPBCCA 5X^= #DEF ITIME=JOBNO+1 5YDW #DEF ICA=ITIME+1 5YYG #DEF IOUTLOAD=ICA+1 5^D6 #DEF INLOAD=IOUTLOAD+1 5^XQ #DEF IPBCCALEN=INLOAD+1-A1-BMOPLEN 62CB [ 62F^ ...#DEF AJOURNLEN=IPBINLEN 62JJ ...#OPT AMOPLEN=BMOPLEN 62M7 ...#DEF IPBDATA=A1+1 62PQ ...#DEF IPBCOUNT=A1 62S* ...[ 62X2 [ AMSCAN TEST IF LINES IN I.D.F. OPERABLE 63BL [ J.WRATTEN 63W= [ SUBTYPES:- AMXTYPE J. WRATTEN. 64*W [ IPBTYPE J. WRATTEN. 64TG [ 65*6 #DEF AMSCANLEN=AMOPADDR+1-A1 65SQ #DEF AMXTYPELEN=0 66#B #DEF IPBTYPELEN=0 66S2 [ EXTENSION TO AMSCAN 67?L #DEF AMOPADDR=JOBNO+1 67R= [ 68=W [ AOLPT - GENERAL 68QG #SKI G3 69=6 #DEF AVENT1=EVENT4+1 [EVENT1-4 DEFINED IN APET 69PQ #SKI G4 6=9B #DEF AVENT1=EVENT6+1 [EVENT1-6 DEFINED IN APET 6=P2 #DEF AVENT2=AVENT1+1 6?8L #DEF AVENT3=AVENT2+1 6?N= #DEF AVENT4=AVENT3+1 6#7W #SKI G4 6#MG ( 6*76 #DEF AVENT5=AVENT4+1 6*LQ #DEF AVENT6=AVENT5+1 6B6B #DEF BFSTATE=AVENT6+1 6BL2 ) 6C5L #SKI G3 6CK= #DEF BFSTATE=AVENT4+1 6CNB [ SEMAPHORE TO PREVENT FREEBUFF AND OFFREL CHANGACTING 6CRG [ TO THE SAME OLPA. 6CT4 BITDEFS BFSTATE,0,BBFCHNBUSY,BBFDRMSET,BBFCCBUSY 6CWL BITDEFS BFSTATE,3,FBOFFLKB,FBOFFWTB [BITS FOR SEMAPHORE 6C^Q SEMAPHORE FBOFFWAIT,FBOFFLKB,FBOFFWTB,FBOFF 6D2H BITDEFS BFSTATE,5,,BBFVIPBWRIT,BBFVIPBREAD 6D3# FIELDDEF BBFCAFSCT,5,BFSTATE,22 6D45 BITDEFS BFSTATE,23,BBFAUTFAIL 6D4W #DEF ACOUNT=BFSTATE+1 6DJG #DEF FRECHADD=ACOUNT+1 6F46 #DEF APETADDR=FRECHADD+1 6FHQ #DEF ALTMARK=APETADDR+1 6G3B #DEF GIVE=ALTMARK [2 NAMES USED THROUGH MISUNDERSTANDING 6GH2 #SKI ARETLO 6H2L ( 6HG= #DEF ARETAIN=ALTMARK+1 6H^W #DEF ATMARK=ARETAIN+1 6JFG ) 6J^6 #SKI ARETLO<1$1 6KDQ #DEF ATMARK=ALTMARK+1 6KYB #DEF AOLPTLEN=ATMARK+1-A1 [LENGTH OF BASIC ACTIVITY AOLPT 6LD2 [ AOLPT - CASE 1 (OFF-LINE PERI) - GENERAL 6LXL #DEF ALIMEY=ATMARK+1 6MC= #DEF ACAP=EVENT2 6MWW #DEF AMEMNO=EVENT1 6NBG #DEF FTYPNO=ALIMEY+1 6NW6 #DEF FSCMODE=FTYPNO+1 6P*Q #DEF FSCTM=FSCMODE+1 6PTB #DEF ACA1=FSCTM+1 6Q*2 #DEF ACA2=ACA1+1 6QSL #DEF ACA3=ACA2+1 6R#= #DEF ACA4=ACA3+1 6RRW [ AOLPT - CASE 1 -BASIC AND FILEHANDLER 6S?G #SKI INMOP<1$1 6SR6 ( 6T=Q #DEF IDENTIND=ACOMMUNE2 6TQB #DEF IDENTINFO=ACOMMUNE3 6W=2 # 6WPL #DEF ASERLEN=ACA4+1-AOLPTLEN 6X9= ) 6XNW #SKI INMOP 6Y8G ( 6YN6 #DEF IDENTIND=ACA4+1 6^7Q #DEF IDENTINFO=IDENTIND+1 6^MB # 7272 #DEF ASERLEN=IDENTINFO+1-A1-AOLPTLEN 72LL ) 72MX ...[ 72P8 ...[ THE FOLLOWING DEFINITIONS ARE FOR MES. 72QF ...[ 72RQ ...#DEF AZFLEN=ASERLEN+514 72T3 ... BITDEFS IDENTIND,21,G505NORM,G505ALLC 72W# ...# AOLPT BITS SET FOR MOP ONLINE *TR/*TP : 72XK ...# G505NORM - TREAT CONSOLE AS NORMAL FILE 72YW ...# G505NORM+G505ALLC - TREAT AS ALLCHAR FILE 734P ...[ 736= [ AOLPT - CASE1 - RANDOM ACCESS 73KW #DEF ABITS=ALIMEY 745G #DEF ACA5=ACA4+1 74K6 #DEF ACA6=ACA5+1 754Q #DEF ACA7=ACA6+1 75JB #DEF ACA8=ACA7+1 7642 #DEF ACA9=ACA8+1 76HL #DEF AERET=ACA9+1 773= #DEF AEORG=AERET+1 77GW #DEF AEKEY=AEORG+1 782G #DEF ACA13=AEKEY+1 78G6 #DEF ACA14=ACA13+1 78^Q #DEF ACA15=ACA14+1 79FB #DEF ACA16=ACA15+1 79^2 #DEF ACA17=ACA16+1 7=DL #DEF AEFLOW=ACA17+1 7=Y= #DEF AEINF3=AEFLOW+1 7?CW #DEF AEWRITDAY=AEINF3+1 7?XG #DEF ALOG=AEWRITDAY+1 7#C6 #DEF EDPTIME=ALOG+1 7#WQ #DEF EDBUFR=EDPTIME+1 7*BB #DEF AFADD=ACA5 [ 7*W2 #DEF ACUBLET=ACA6 [ 7B*L #DEF ACUBWD=ACA7 [ 7BT= #DEF ASUBLET=ACA8 [ 7C#W #DEF ASUBWD=ACA9 [ 7CSG #DEF AMIND=ACA13 [ TO BE REMOVED WHEN DA & DRUM 7D#6 #DEF ABUCK=ACA14 [ ROUTINES TIDIED UP (A.B.H.) 7DRQ #DEF ASTADD=ACA15 [ 7F?B #DEF ADDBS=ACA6 [ 7FR2 #DEF AWB=ACA7 [ 7G=L #DEF AWOLBL=ACA8 [ 7GQ= #DEF ARANLEN=EDBUFR+1-AOLPTLEN-A1 7H9W #DEF ADRLEN=ASTADD+1-AOLPTLEN-A1 [ TO BE CHANGED TO ACA6+1-AOLPTLEN-A1 7HPG [ AT THE SAME TIME AS ABOVE 7J96 [ AOLPT - CASE 1 - MAG TAPE 7JNQ #DEF AMTCOUNT=ACOUNT 7K8B #DEF AMTLIM=ALIMEY 7KN2 #DEF AMTLEN=ACA9+1-AOLPTLEN-A1 7L7L [ BUDGET EXTRACODES 7LM= #DEF ACA10=ACA9+1 7M6W #DEF ABEXLEN=ACA10+1-AOLPTLEN-A1 7MLG [ AOLPT - CASE 2(EXOFILES 7N66 #DEF EXMODE=AOLPTLEN+A1 7NKQ #DEF EXNUM=EXMODE+1 7P5B #DEF EWCHAN=EXNUM+1 7PK2 #DEF EXMAYBE=EWCHAN+1 7Q4L #DEF EWORK1=EXMAYBE+1 7QJ= #DEF EWORK2=EWORK1+1 7R3W #DEF EWORK3=EWORK2+1 7RHG #DEF EWORK4=EWORK3+1 7S36 #DEF EWORK5=EWORK4+1 7SGQ #SKI AUTPAM<1-1 7T2B #DEF EXAOLPT=EWORK5+1-A1 7TG2 #SKI AUTPAM 7T^L ( 7WF= #DEF EWORK6=EWORK5+1 7WH8 #UNS ES2 7WK6 ( 7WM4 #DEF EXTRAPS=EWORK6+7 7WM= #UNS CAFSINT 7WMD ( 7WML #DEF CFRDBITS=EXTRAPS+1 7WMS #DEF CFREASON=CFRDBITS+2 7WN2 #DEF EXAOLPT=CFREASON+1-A1 7WN8 ) 7WNB #UNS CAFSINT 7WNJ #SKI 7WP2 #DEF EXAOLPT=EXTRAPS+1-A1 7WQY ) 7WSW #UNS ES2 7WWS #SKI 7WYW #DEF EXAOLPT=EWORK6+7-A1 [6EXTRA WORDS FOR EXOFILE PERIS 7XDG ) 7^C2 [ 7^WL [ AOLPT - CASE5 - CONCEPTUAL MULTIPLEXOR 82B= [ 82TW #DEF CNAME=AOLPTLEN+A1 83*G #DEF CMAXLINE=CNAME+3 83T6 #DEF CMEMBER=CMAXLINE+1 84#Q #DEF CFLAG=CMEMBER+1 84SB #DEF FLAGCT=CFLAG+1 85#2 [ 85RL [ AOLPT-CASE6-IPC 86?= #DEF ALINAME=AOLPTLEN+A1 86QW #DEF BLINO=ALINAME+3 87=G #DEF ALINDIR=BLINO+1 87Q6 #DEF IPPROPS=ALINDIR+1 889Q #DEF ATYPA=IPPROPS+1 88PB #DEF ATOTIM=ATYPA+1 8992 #DEF AUNNO=ATOTIM+1 89NL #DEF AREQPR=AUNNO+1 8=8= #DEF IPCLEN=AREQPR-AOLPTLEN-A1+1 8=MW [ WORD OF AOLPT GIVEN SPECIAL NAME FOR IPC 8?7G #DEF ARINGEL=FILERING 8?M6 [ OTHER WORDS OF AOLPT GIVEN SPECIAL NAMES 8#6Q [ WORD USED BY COMMAND ISSUER 8#LB #DEF CINUM=ACOMMUNE1 8*62 [ 8*KL [ APET PROGRAM CONTROL ACTIVITY (PCA) 8B5= [ J.NICHOLSON 8BJW [ SUBTYPES:- ATP J.NICHOLSON 8C4G [ APUC P.M.VINCE 8CJ6 [ 8D3Q [ 8DHB [WE FIRST DEFINE MEMBER ELEMENT IDENTIFIERS 8F32 # 8FGL #DEF AFW=0 8G2= #DEF ABW=AFW+1 8GFW #DEF ASU=ABW+1 8G^G #DEF ARM=ASU+1 8HF6 #DEF APD=ARM+1 8HYQ #DEF ATM=APD+1 8JDB # 8JY2 [ NOW THE APET PROPER 8KCL # 8KX= #SKI G4 8LBW ( 8LWG #DEF HLOCKN=2 [NO OF STANDARD LOCKDOWN ENTIES 8MB6 #DEF HLOCKLEN=4 [LENGTH OF EACH ENTRY 8MTQ #DEF HLOCK1=JOBNO+1 [POSN OF ENTRY IN PCA,AOLPA 8N*B #DEF HLOCK2=HLOCK1+HLOCKLEN 8NT2 #DEF EVENT1=HLOCK2+HLOCKLEN 8P#L ) 8PS= #SKI G3 8Q?W #DEF EVENT1=JOBNO+1 8QRG #DEF EVENT2=EVENT1+1 8R?6 #DEF EVENT3=EVENT2+1 8RQQ #DEF EVENT4=EVENT3+1 8S=B #DEF EVENT5=EVENT4+1 8SQ2 #DEF EVENT6=EVENT5+1 8T9L #DEF EVENT7=EVENT6+1 8TP= #SKI G4 8W8W ( 8WNG #DEF FPRW=EVENT7+1 8X86 #DEF ASTOP=FPRW+1 8XMQ ) 8Y7B #SKI G3 8YM2 #DEF ASTOP=EVENT7+1 8^6L #SKI G4 8^L= ( 925W #DEF ASEGTAB=ASTOP+1 92KG #DEF ALMT=ASEGTAB+1 9356 ) 93JQ #SKI G3 944B ( 94J2 #DEF ADTM=ASTOP+1 953L #DEF ALMT=ADTM+1 95H= ) 962W #DEF APROCESSOR=ALMT+1 96GG #DEF ANM=APROCESSOR+1 9726 #DEF APRB=ANM+1 97FQ #DEF AECA=APRB+1 97^B #SKI EV6 98F2 ( 98YL #DEF ADATUM=AECA+1 99D= #DEF ALIMIT=ADATUM+1 99XW #DEF AFW1=ALIMIT+9 9=CG ) 9=X6 #SKI EV6-1 9?BQ #DEF AFW1=AECA+1 9?WB #DEF ABW1=AFW1+1 9#B2 #DEF ASU1=ABW1+1 9#TL #DEF ARM1=ASU1+1 9**= #DEF APD1=ARM1+1 9*SW #DEF ATM1=APD1+1 9B#G #DEF AFW2=ATM1+1 9BS6 #DEF ABW2=AFW2+1 9C?Q #DEF ASU2=ABW2+1 9CRB #DEF ARM2=ASU2+1 9D?2 #DEF APD2=ARM2+1 9DQL #DEF ATM2=APD2+1 9F== #DEF AFW3=ATM2+1 9FPW #DEF ABW3=AFW3+1 9G9G #DEF ASU3=ABW3+1 9GP6 #DEF ARM3=ASU3+1 9H8Q #DEF APD3=ARM3+1 9HNB #DEF ATM3=APD3+1 9J82 #DEF AFW4=ATM3+1 9JML #DEF ABW4=AFW4+1 9K7= #DEF ASU4=ABW4+1 9KLW #DEF ARM4=ASU4+1 9L6G #DEF APD4=ARM4+1 9LL6 #DEF ATM4=APD4+1 9LYH #UNS IMR 9M=Y #SKI 9MKB ( 9N52 #DEF ACR1=ATM4+1 9NJL #DEF ATU1=ACR1+1 9P4= #DEF ACR2=ATU1+1 9PHW #DEF ATU2=ACR2+1 9Q3G #DEF ACR3=ATU2+1 9QH6 #DEF ATU3=ACR3+1 9R2Q #DEF ACR4=ATU3+1 9RGB #DEF ATU4=ACR4+1 9S22 #DEF ATRUST=ATU4+1 9SFL ) 9SGS #UNS IMR 9SJ2 ( 9SK8 #DEF AMR1=ATM4+1 9SLB #DEF AMR2=AMR1+1 9SMJ #DEF AMR3=AMR2+1 9SNQ #DEF AMR4=AMR3+1 9SPY #DEF ATU1=AMR4+1 9SR6 #DEF ATU2=ATU1+1 9SS# #DEF ATU3=ATU2+1 9STG #DEF ATU4=ATU3+1 9SWN #DEF ATRUST=ATU4+1 9SXW ) 9S^= #SKI EV6-1 9TDW ( 9TYG #DEF ADATUM=ATM4+1 9WD6 #DEF ALIMIT=ADATUM+1 9WXQ #DEF ATRUST=ALIMIT+1 9XCB ) 9XX2 #SKI HIPRI<1-1*EV6 9YBL #DEF ATRUST=ATM4+1 9YW= #DEF AMON=ATRUST+1 9^27 #UNS ECSCOMP 9^64 #SKI 9^9^ ( 9^*W #DEF APR1=AMON+1 9^TG #SKI G4 =2*6 ( =2SQ #DEF CHECKDUMP=APR1+1 [ACC DUMP FOR CHECKB =3#B #DEF APETLEN=CHECKDUMP+6-A1 =3S2 ) =4?L #SKI G3 =4R= #DEF APETLEN=APR1+1-A1 =4SD ) =4TL #UNS ECSCOMP =4WS ( =4Y2 [ ECSCOMP SKIP IS TO BE SET IN FIRST COMPILATION AFTER ECS =4^8 #SKI G4 =52B ( =53J #DEF CHECKDUMP=AMON+1 [ACC DUMP FOR CHECKB =54Q #DEF APETLEN=CHECKDUMP+6-A1 =55Y ) =576 #SKI G3 =58# #DEF APETLEN=AMON+1-A1 =59G ) =5=W #DEF APUCLEN=0 =5QG [ =6=6 [ AREWIND REWINDS AND SKIPS FOR ONLINE MT =6PQ [ A.W.NORTON =79B [ =7P2 #DEF AREWINDLEN=ABL =88L [ =8N= [ ASWINT PROGRAM SWAPPING =97W [ G.LITTLER-JONES =9MG [ ==76 #DEF ASWINTLEN=ABL ==LQ [ =?6B [ BAT BLANKET ACTIVITY =?L2 [ J.NICHOLSON =#5L [ =#K= #DEF BATLEN=ABL =*4W [ =*JG [ BSA BACKING STORE TRANSFERS =B46 [ J.R.BAILEY =BHQ [ SUBTYPES:- BTFAIL R.W.NICHOLSON =C3B [ CHAPTER J.R.BAILEY =C8J #UNS FBM =C*Q [ AUTOMAP TONY MAY =CH2 [ AUTCLOSE T.COLE =D2L [ AUTERASE [H.DAVIS =DG= [ AUTOCOPY B MATHEWS =D^W [ JOUROPEN D. BURKITT =FFG [ EMSUNJAM R.H.THOMPSON =FLN #UNS CAFSINT =FRW [ CAFS D.A.BELL =F^6 #OPT BSCHANAD=JOBRING =GDQ #DEF BSBKCHAN=BSCHANAD+1 =GYB #DEF BSQWCHAN=FILERING [BASE OF BS WAITING QUEUE =HD2 #DEF BSQWBACK=BSQWCHAN+1 =HXL #DEF BSSCHAD=ALINKRING [BASE OF BS SECONDARY QUEUE =JC= #DEF BSSBKCHN=BSSCHAD+1 =JWW [ =KBG #DEF BSALEN=ABL =KL# ...#DEF ELOGLEN=0 =KW6 #DEF FSMARK=BSALEN+A1 =L*Q #DEF FPROPUSER=FSMARK+1 =LCN #UNS FBM =LFL ( =LHJ BITDEFS FPROPUSER,0,FTAB1,FTAB2 [SEMAPHORE BITS USED TO =LKG [STOP MORE THAN ONE SLAVE =LMD [CHAINING FTAB TO MASTER =LPB SEMAPHOR FTABWAIT,FTAB1,FTAB2,FTABWT [SEMAPHORE FOR ABOVE =LR# ) =LRP #UNS FPARTRES =LS6 #DEF CHAPTERLEN=FPROPUSER+5-JOBNO =LSH #UNS FPARTRES =LSY #SKI =LTB #DEF CHAPTERLEN=FPROPUSER+2-JOBNO =M*2 # =MBC #UNS FBM =MCS ( =MF9 [THE FOLLOWING ARE FOR THE BSA/AUTOMAP BLOCK =MGL #DEF AMAPROPUSER=BSALEN+A1 [POINTER TO PROPER USER IN FUSER =MH# #DEF ACTPTRSYSJL=AMAPROPUSER [ PTR. TO SYS. JOBL. ACT. IN BMJLIS =MJ3 #DEF AMAPDEPTH=AMAPROPUSER+1 [FILESTORE DEPTH OF THIS SLAVE =MJP #DEF AUSEJOBNO=AMAPDEPTH [ JOB NO FOR GETJOB BY SYS JL. ACT IN =MJR #UNS FPARTRES =MJT ( =MJX #DEF ASUPUSER=AMAPDEPTH+1 =MJ^ #DEF ANUMBLKS=ASUPUSER+3 =MK3 #DEF AUTSPARE=ANUMBLKS+1 =MK5 #DEF AUTOMAPLEN=AUTSPARE-JOBNO =MK7 ) =MK9 #UNS FPARTRES =MK? #SKI =MKD #DEF AUTOMAPLEN=AMAPDEPTH-JOBNO =MLT BITDEFS AMAPROPUSER,0,AUTFLISDAB [ALREADY FLISTADDED =MN= BITDEFS AWORK2,0,AW2INDEX,AW2ONLINE,AW2DIR,AW2MULT =MPM # =MR4 ) =MSL #DEF AUTCLOSELEN=0 =N#= #DEF AUTERASELEN=0 =NRW #DEF AUTOCOPYLEN=0 =P?G # =PR6 #DEF JGEN=JOBNO+1 =Q=Q #DEF JVERSION=JGEN+1 =QQB #DEF JIANTN=JVERSION+1 [FOR VERSIONS PRIOR TO LESS FREEZING =R=2 #DEF CJGEN=JVERSION+1 [FOR LESS DUMPER FREEZING VERSIONS =RPL #DEF JSWITCH1=CJGEN+1 =S9= #DEF JNLUSER=JSWITCH1+1 =SNW #DEF JOUROPENLEN=JNLUSER+2-JOBNO =T8G # =TN6 #DEF EMSUNJAMLEN=0 =TPC #UNS CAFSINT =TQN ( =TR^ # IDENTIFIERS FOR THE BSA/CAFSACT ACTIVITY =TT= # =TWH #DEF CFRING=BWORKRING =TXS # =T^5 #DEF CFLOWGEOG=BSALEN+A1 =W2B #DEF CFDRVTABLEN=CFLOWGEOG+1 =W3M #DEF CFDRVTAB=CFDRVTABLEN+1 =W4Y # =W69 ) =W7Q [ =WMB [ CONSA TRANSFERS TO CONSOLE TYPEWRITER =X72 [ M.I.S.WILSON =XLL [ SUBTYPES:- CINP M.I.S.WILSON =Y6= [ :- COUT M.I.S.WILSON =YKW [ I7023 J.WRATTEN =^5G [ APCTMESS J.WRATTEN =^K6 [ ?24Q #DEF CONSALEN=ABL ?2JB #DEF CINPLEN=0 ?342 #DEF COUTLEN=0 ?3HL #DEF I7023LEN=0 ?43= #DEF APCTMESSLEN=0 ?4GW [ ?52G [ CPAT COMMAND PROCESSOR ACTIVITY ?5G6 [ B.M.GAHAGAN ?5^Q [ ?6FB #DEF AMFMSK=JSOURCE3+1 [JSOURCE1-3 DEFINED IN ACTLF ?6^2 #DEF AMXMSK=AMFMSK+1 ?7DL #DEF CONTEXT=AMXMSK+1 ?7Y= #DEF JOBEVENTS=CONTEXT+1 ?8CW #DEF CPREFIX=JOBEVENTS+1 ?8XG #DEF CPLEV=CPREFIX+3 ?9C6 #DEF AWFNAME=CPLEV+1 ?9WQ #SKI ALFMK7 ?=BB ( ?=W2 #DEF ALFCNT=AWFNAME+1 ??*L #DEF EXT=ALFCNT+1 ??T= ) ?##W #SKI ALFMK7<1$1 ?#SG #DEF EXT=AWFNAME+1 ?*#6 #DEF EXTN=12 [SIZE OF AREA USED BY CP & PARAMETERS ?*RQ #DEF EXTPS=EXT+EXTN ?B?B #DEF EXTNPS=5 [SIZE OF AREA FOR LOAD ETC (CORE IMAG ?BR2 [ ?C=L #DEF CPATLEN=EXTPS+EXTNPS-A1 ?CQ= [ ?D9W [ IPCA [IPC ?DPG [ A.W.NORTON & L.A.COURT ?F96 [ SUBTYPES:- INTERN L.A.COURT ?FNQ [ IPCBX A.W.NORTON ?G8B [ IPCOP A.W.NORTON ?GN2 [ HANGER L.A.COURT ?GXS [ FSHARED SHARED FILESTORE ?H3P [ FSHBPM SHARED FILESTORE ?H7L [ ?HM= #DEF IPCALEN=ABL ?J6W [ ?JLG [ IPCA/INTERN ?K66 #DEF APROPRES=IPCALEN+A1 ?KKQ #DEF FRELINUM=APROPRES+1 ?L5B #DEF ALTSTACK=FRELINUM+1 ?LK2 #DEF IPCLNCT=ALTSTACK+1 ?M4L #DEF IPCERTM=IPCLNCT+1 ?MJ= #DEF AWMCLIM=IPCERTM+1 ?N3W #DEF IMCLIM=AWMCLIM+1 ?NHG #DEF INTERNLEN=IMCLIM-IPCALEN-A1+1 ?P36 [ ?PGQ [ IPCA/IPCBX ?Q2B #DEF IPCPTIME=IPCALEN+A1 ?QG2 #DEF IPCMKR=IPCPTIME+1 ?Q^L #DEF IPCPTR=IPCMKR+1 ?RF= #DEF ALNKLIM=IPCPTR+1 ?RYW #DEF IPREB=ALNKLIM+1 ?SDG #DEF IPWRB=IPREB+11 ?SY6 #DEF IPCBXLEN=IPWRB+10-IPCALEN-A1+1 ?TCQ [ ?TXB [ IPCA/IPCOP ?WC2 #DEF IPCOPLEN=0 ?WWL [ ?XB= [ IPCA/HANGER ?XTW #DEF HBRIN=JSOURCE3+1 ?Y*G #DEF HLINKIPC=HBRIN+1 ?YT6 #DEF HANGERLEN=HLINKIPC-IPCALEN -A1+1 ?Y^3 [ ?^4Y [ IPCA/FSHARED ?^8T #DEF FSHAREDLEN=0 ?^#Q [ ?^DM [ IPCA/FSHBPM ?^JJ #DEF FSHBPMLEN=0 ?^NF [ ?^SB [ GENERAL ALL OTHER SORTS OF ACTIVITY #2#2 [ -NEW ACTIVITIES SHOULD BE CREATED #2RL [ -AS SUBTYPES OF GENERAL #3?= [ P.MASON #3QW [ SUBTYPES:- AMEASOUT P.REID #4=G [ JSACT P.REID #4Q6 [ IDFMESS T.FARQUHARSON #59Q [ CPERFACT J JONES,J WASTELL #5PB [ APROPNOS T.FARQUHARSON #692 [ HNOISY [R.H.TERRY #6NL [ CORJAM R H THOMPSON #78= [ IPLDIS L.C.COHEN ET AL #7MW [ IPLDRI L.C.COHEN ET AL #87G [ IPLFOA L.C.COHEN ET AL #8M6 [ IPLINP L.C.COHEN ET AL #96Q [ IPLLOG L.C.COHEN ET AL #9LB [ IPLPOL L.C.COHEN ET AL #=62 [ IPLRES L.C.COHEN ET AL #=KL [ #?5= #DEF GENERALLEN=0 #?JW #DEF IDFMESSLEN=ABL ##4G #DEF CPERFACTLEN=ABL ##J6 #DEF APROPNOSLEN=ABL #*3Q #DEF HNOISYLEN=ABL #*HB #DEF CORJAMLEN=ABL #*R8 ...#DEF AGROPELEN=ABL #B32 # #BGL #DEF IPLDISLEN=EXT+3-A1 #C2= #DEF IPLDRILEN=IPLCHM*IPLCSCALEN+3+EXT-A1+2 #CFW #DEF IPLFOALEN=CPATLEN+1 #C^G #DEF IPLINPLEN=CPATLEN+1 #DF6 #DEF IPLLOGLEN=CPATLEN #DYQ #DEF IPLPOLLEN=CPATLEN #FDB #DEF IPLRESLEN=CPATLEN #FY2 # #GCL #DEF CSCAIN=EXT+2 [SUBCHANNEL CONTROL AREA FOR #GX= #DEF CSCAOUT=CSCAIN+1 [GENERAL/IPLDRI ACTIVITY #HBW #DEF CSFT=CSCAOUT+1 #HWG #DEF CSCA=CSFT+1 #JB6 #DEF CSAIN=CSCAIN #JTQ #DEF CSOUT=CSCAOUT #K*B ) #KT2 ) #L#L ) ^^^^ ...16464052003800000000