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