22FL    #   
22^=    # COMPS MW                         ROOM F8A (JOHN WRATTEN). 
23DW    #   
23YG    #OPT  ASENTINEL=G3MARK>3$3  
24D6    #OPT  BHTRUST=0                    [TRUSTED FACILITIES NOT INCLUDED.
24XQ    #OPT  EMF=1 
25CB    #OPT  EMX=1 
25X2    #OPT  INOPMK7=0 
26BL    #OPT  IPBMK7=0  
26W=    #OPT  CONCEPMK7=0   
27*W    #OPT  INMOP=0                      [INMOP OUTMOP SKIP   
27TG    #   
28*6    #OPT  ISC=1 
28SQ    #DEF  IPB=1 
29S2    #OPT  JOLDFLAG=0
2=?L    #OPT  K0MOP=0   
2=R=    #OPT  K0ATTACH=0
2?=W    #OPT  K0CDCIPB=0
2?QG    #OPT  K0CHANG=0 
2#=6    #OPT  K0CLOSEIPB=0  
2#PQ    #OPT  K0CLOSEMOP=0  
2*9B    #OPT  K0CONIPB=0
2*P2    #OPT  K0CONMX=0 
2B8L    #OPT  K0CONSIN=0
2BN=    #OPT  K0DETACH=0
2BY4 ...#OPT  K0DETACHB=0   
2C7W    #OPT  K0INMOP=0 
2CMG    #OPT  K0IPB=K0MOP   
2D76    #OPT  K0IPBCCA=0
2DLQ    #OPT  K0IPBCCB=0
2F6B    #OPT  K0IPBCONS=0   
2FB8 ...#OPT  K0IPBERROR=0  
2FL2    #OPT  K0IPBIN=0 
2G5L    #OPT  K0IPBLISTA=0  
2GK=    #OPT  K0IPBLISTB=0  
2H4W    #OPT  K0IPBLISTC=0  
2HJG    #OPT  K0IPBMOP=0
2HS# ...#OPT  K0IPBMOPB=0   
2J46    #OPT  K0IPBOUT=0
2JHQ    #OPT  K0IPBPM=0 
2K3B    #OPT  K0IPBSCAN=0   
2KH2    #OPT  K0IPBSTART=0  
2KQS ...#OPT  K0IPBTAPE=0   
2L2L    #OPT  K0MOPOUT=0
2LG=    #OPT  K0MOPPM=0 
2L^W    #OPT  K0MOPSTART=0  
2MFG    #OPT  K0MORNING=0   
2M^6    #OPT  K0MULTIPLX=K0MOP  
2NDQ    #OPT  K0PROFLAG=0   
2NYB    #OPT  K0PUTPER=0
2P88 ...#OPT  K0RAECOMMS=0                 [MES G334
2PD2    #OPT  K0READBULK=0  
2PXL    #OPT  K0RELPER=0
2QC=    #OPT  K0SCAN=0  
2QH7 ...#OPT  K0SCEDIT=0
2QM4 ...#OPT  K0SCEDITAR=0  
2QQ^ ...#OPT  K0SCEDITOR=0  
2QWW    #OPT  K0SENTINEL=0  
2R6N ...#OPT  K0UMMENDS=0                  [MES G170
2RBG    #OPT  K6IPB=K6ALLGEO>K6GREATGEO 
2RF5 ...#UNS AV7900S
2RHN ...(   
2RL? ...#OPT  K6VIPB=K6IPB                 [VIRTUAL 7900 TESTING SKIP   
2RNW ...                                   [SWITCH ON BY #ALT K6VIPB=600
2RRF ...)   
2RW6    #OPT  K6MULTIPLX=K6ALLGEO>K6GREATGEO
2S*Q    #OPT  K6ATTACH=K6COMMAND>K6ALLGEO>K6GREATGEO
2STB    #OPT  K6CONMX=K6MULTIPLX>K6OBJPROG>K6PERIS  
2T*2    #OPT  K6DETACH=K6COMMAND>K6ALLGEO>K6GREATGEO
2TSL    #OPT  INPUSIZE=64   
2TX9 ...#UNS  AV7900S   
2T^S ...(   
2W4C ...#DEF  AVBUFFSIZE=66                [VIRTUAL 7900'S MAX I/O BUFFER SIZE  
2W72 ...                                   [NOTE CM PREFERS NPUS </= 63 WORDS   
2W9K ...)   
2W#=    #DEF  AMREPT=5  
2WRW    #DEF  IMREPT=1  
2XR6    #DEF  HWGROTCT=20                  [INOP. TERMINALS APPEAR AS BREAK IN  
2XX3 ...[   
2Y2Y ...#OPT AHRETAIN=0 
2Y6T ...#OPT AHRETREL=0 
2Y=Q    [   
2YQB    [   
2^=2    [IDENTIFIER FOR AMXOR/ALINES & AMXOR/ADEVS BLOCKS.  
2^PL    [   
329=    #DEF  FOURTHWD=BSTART+1 
32F4 ... BITDEFS FOURTHWD,14,ADEVS1901A 
32NW    [   
338G    [LIST OF WORD IDENTIFIERS FOR MXOR LCB  
33N6    [   
347Q    [   
34MB    #DEF  GREP1=A1+BPTR+1   
3572    #DEF  GREP2=GREP1+1                [REPLY WD. FOR INPUT 
35LL    #DEF  GUNITNO=GREP2+1              [LINE NO./UNIT NO.   
366=    #DEF  GLASTM=GUNITNO+1             [MODE LAST USED  
36KW    #DEF  IDENTM=GLASTM+1              [ADDRESS OF MPX. ACT.
375G    #DEF  GFAIL=IDENTM+1               [FAIL COUNT  
37K6    #DEF  GWAIT=GFAIL+1                [MISC. INFORMATION   
384Q    #DEF  GTIM=GWAIT+1                 [TIME OF LAST READ   
38JB    #DEF  GNOCHS=GTIM+1                [NO. OF CHS. IN NL/EOM TRANSFER  
3942    #DEF  GNLBUFF=GNOCHS+1  
39HL    #DEF  GEOM=GNLBUFF+2               [PROGFLAGS TERMINATOR IDEMTIFIER 
3=3=    #DEF  CHARS=GEOM+1                 [MAX NO OF CHARS,CARRIAGE CHAR WIDTH 
3=GW    #DEF  AREADY=CHARS+1               [NO. OF CHS. IN READY TERMINATOR +RT 
3?2G    #DEF  HWGROT=AREADY+3   
3?G6    #DEF  GDELE=HWGROT+1
3?^Q    #DEF  BUFFER=GDELE+3
3#FB    [   
3#^2    [   
3*DL    [FORMAT OF AMXOR/AOUT BLOCK 
3*Y=    [   
3BCW    #DEF  AMOPTY=A1 
3BXG    #DEF  AMOPCHS=AMOPTY+1  
3CC6    #DEF  AMOPOUT=AMOPCHS+1 
3CWQ    #   
3DBB    #DEF  BHNUM=3                      [NO OF PARTICULARS FOR A SCB ENTRY   
3DW2    #   
3F*L    #DEF  AWORDNO=A1D-1                [RED TAPE WORD FOR GETWORD   
3FT=    #   
3G#W    #DEF  CIFPTR=A1 
3GSG    #DEF  CIBPTR=CIFPTR+1   
3H#6    #DEF  CIMEMBER=CIBPTR+1 
3HRQ    #DEF  CIJOBNUM=CIMEMBER+1   
3J?B    #DEF  CIREL=#124
3JR2    #DEF  CIREADY=CIJOBNUM+1
3K=L    #DEF  CIMESS=CIREADY+1             [ START  OF  MESSAGE  IN  CILCB  
3KQ=    #DEF  CILCBLEN=11                  [CILCB LENGTH FOR 'GOOD MORNING'.
3L9W    #DEF  BHDC3=#7603                  [DC3 CHARACTER INCLUDING SHIFT CHAR  
3LPG    #DEF  BHUPX=#12                    [UNIPLEXOR DEVICE TYPE   
3M96    #DEF  BHNULL=#7620                 ['NULL' CHARACTER
3MNQ    [   
3N8B    [IDENTIFIERS FOR AMXOR/CONLCB BLOCK.
3NN2    [   
3P7L    #DEF  ADDMOP=BSTART+1   
3PM=    #DEF  ACTUAL=ADDMOP+1   
3Q6W    #DEF  CONRECLEN=ACTUAL+1
3QLG    [   
3R66    [IDENTIFIERS FOR AMXOR/INTRPT BLOBK 
3RKQ    [   
3S5B    #DEF  INTENT=A1 
3SK2    #DEF  INTTIME=INTENT+1             [PERIOD BETWEEN INTERRUPTS   
3T4L    #DEF  INTNEXT=INTTIME+1            [SPRING CLEANS TO NEXT INTERRUPT 
3TJ=    #DEF  INTFLAG=INTNEXT+1            [ADDRESS OF FLAG WD  
3W3W    #DEF  INTJOBNO=INTFLAG+1           [JOB NO. 
3WHG    #DEF  INTUNIT=INTJOBNO+1           [TYPE/UNIT NO.   
3X36    #DEF  INTRECLEN=INTUNIT-INTENT     [INTTIME TO INTUNIT REPEATS FOR EACH 
3XGQ    [   
3Y2B    [LIST OF IDENTIFIERS FOR AMXOR/ADCB BLOCK   
3YG2    [   
3Y^L    #DEF  IDENTNO=A1+2                 [IDENTIFIER NUMBER   
3^F=    #DEF  ISTATUS=IDENTNO+1            [IDENTIFIER STATUS   
3^YW    #DEF  IWAIT=ISTATUS+1              [MISC. INFORMATION   
42DG    #DEF  IMDNPU=IWAIT+1               [TRANSFER MODE/NPU SIZE  
42Y6    #DEF  IADIN=IMDNPU+1               [ADDRESS OF IPBIN ACTIVITY   
432* ...#SKI  JSKI17                       [7503
434J ...(   
436R ...#DEF  IBULK=IADIN+1                [MISC INFORMATION
4392 ...#DEF  ADCBULKLEN=IBULK+1-A1 
43?9 ...)   
43*D ...#SKI  JSKI17<1$1
43CQ    #DEF  ADCBULKLEN=IADIN+1-A1        [LENGTH OF DCB FOR BULK DEVICES  
43MJ ...               [LIST OF IDENTIFIERS FOR A MOP CONSOLE ONLY. 
43XB    #DEF  ICHARS=IADIN+1               [LENGTH OF NL : CONSOLE WIDTH.   
44C2    #DEF  INOCHS=ICHARS+1              [NO. OF CHARS. IN NL/EOM SEQUENCE.   
44WL    #DEF  INLBUFF=INOCHS+1  
45B=    #DEF  ADCB7023LEN=INLBUFF+1-A1     [LENGTH OF DCB FOR 7023 OPERATORS C/S
45TW    #DEF  IPEOM=INLBUFF+2   
46*G    #DEF  IBIL=IPEOM+1                 [BREAK-IN LEVEL. 
46T6    #DEF  IREADY=IBIL+1                [NO. OF CHARS. IN READY SEQUENCE.
47#Q    #DEF  IDELE=IREADY+3
47JJ ...#SKI  JSKI09<1$1
47SB    #DEF  ADCBLEN=IDELE+3-A1
47TJ ...#SKI  JSKI09                       [VDU MOP 
47WQ ...(   
47XY ...               [LIST OF IDENTIFIERS FOR A MOP IDSPLAY ONLY. 
47^6 ...#     ICHARS                       [NL LENGTH;DISPLAY LENGTH & WIDTH
482# ...#DEF  ICURPOS=INLBUFF+1            [CURRENT LINE/COL NOS OF CURSOR  
483G ...#DEF  ICONTU=IPEOM [CODE CONVERSION REQ.;CT OF LINES O/P SINCE LAST T-R 
484N ...#DEF  ICURSOR=IDELE [MOP DISPLAY FLAG;CT OF CHARS FOR CURSOR POSITIONING
485W ...#DEF  ICURSV=IDELE+1               [VERTICAL TABULATE CODE  
4874 ...#DEF  ICURSH=IDELE+2               [HORIZONTAL TABULATE CODE
488= ...#DEF  ISYNC=IDELE+3                [SYNCHRONIZING PATTERN   
489D ...#DEF  ADCBLEN=ISYNC+1-A1
48=L ...)   
48=W ... BITDEFS ISTATUS,0,ADCBINOP 
48?6 ... BITDEFS IWAIT,14,ADCBWAITWR
48?B ... BITDEFS IWAIT,21,ADCBTSPOOL,ADCBTUNATT 
48?L ... BITDEFS IBULK,21,ADCBPSPOOL,ADCBPUNATT,ADCB7502LP  
48#2    #   
48RL    [LIST OF IDENTIFIERS FOR AMXOR/IOUT BLOCK   
49?=    #   
49QW    #DEF  IMOPTY=A1 
4==G    #DEF  IBSW=IMOPTY+1 
4=Q6    #DEF  IPBIDE=IBSW+1 
4?9Q    #DEF  IDATA=IPBIDE+2               [START OF DATA PORTION   
4?BY ... BITDEFS IPBIDE+1,2,IOUTEODATA  
4?J6 ... BITDEFS IPBIDE+1,6,IOUTEORESTR 
4?PB    #   
4#92    [LIST OF IDENTIFIERS FOR AMXOR/CONDCB BLOCK 
4#NL    #   
4*8=    #DEF  IDSTATUS=BSTART+1 
4*MW    #DEF  IDMDNPU=IDSTATUS+1
4B7G    #DEF  IDNUM=IDMDNPU+1   
4BM6    #DEF  IDADIN=IDNUM+1
4C6Q    #DEF  CONDCBLEN=IDADIN+1
4CLB    #   
4D62    [LIST OF IDENTIFIERS FOR AMXOR/CROUTE BLOCK 
4DKL    #   
4F5=    #DEF  CONNM=BSTART+1
4FJW    #DEF  CROUTELEN=CONNM+3 
4G4G    #   
4GJ6    [LIST OF IDENTIFIERS FOR AMXOR/CSTATE BLOCK 
4H3Q    #   
4HHB    #DEF  IPSTATUS=BSTART+1 
4J32    #DEF  CSTATELEN=IPSTATUS+1  
4JGL    #   
4K2= ...[   
4KFW ...[   
4K^G ...[ LIST OF IDENTIFIERS FOR AMXOR/ASCREEN BLOCK   
4LF6 ...[   
4LYQ ...#DEF  ISMFORM=A1           [MESSAGE FORMAT  
4MDB ...#DEF  ISMERR=ISMFORM+1    [ERROR MESSAGE PLACEMENT  
4MY2 ...#DEF  ISMXMS=ISMERR+1    [ORIGINAL CONTENTS OF  MX MASK 
4NCL ...#DEF  ISBITS=ISMXMS+1      [AS BELOW
4NX= ...#DEF       ISBITR=#0001     [CURRENT COMMAND IS R   
4PBW ...#DEF       ISBITQ=#0002     [    -      -       Q   
4PWG ...#DEF       ISBITE=#0004     [    -      -       E   
4QB6 ...#DEF       ISBITF=#0010     [    -      -       F   
4QTQ ...#DEF       ISBITT=#0020     [    -      -       T   
4R*B ...#DEF       ISBITP=#0040     [    -      -       P   
4RT2 ...#DEF       ISBITA=#0100     [%A OF T OR P IS STRING 
4S#L ...#DEF       ISBITB=#0200     [%B    -      - 
4SS= ...#DEF       ISBITC=#0400     [COPYING
4T?W ...#DEF       ISBITLOP=#1000   [LAST OUTPUT READY  
4TRG ...#DEF       ISBITCE=#2000    [COMMAND EXPECTED   
4W?6 ...#DEF       ISBITLC=#4000    [LAST COMMAND T OR P
4WQQ ...#DEF  ISPARAMA=ISBITS+1       [%A OF T OR P 
4X=B ...#DEF  ISPARAMB=ISPARAMA+6     [%B OF T OR P 
4XQ2 ...#DEF  ISOCURRENT=ISPARAMB+6       [OLD - CURRENT LINE NO
4Y9L ...#DEF  ISNCURRENT=ISOCURRENT+1     [NEW -      -      -  
4YP= ...#DEF  ISOPAGE=ISNCURRENT+1     [OLD - LINE NO OF CURRENT PAGE (C+1) 
4^8W ...#DEF  ISNPAGE=ISOPAGE+1        [NEW -      -      - 
4^NG ...#DEF  ISOPREVPAGE=ISNPAGE+1         [OLD - LINE NO OF PREV PAGE (C+7)   
5286 ...#DEF  ISNPREVPAGE=ISOPREVPAGE+1     [NEW -      -      -
52MQ ...#DEF  ISOPREVCOM=ISNPREVPAGE+1     [OLD - LINE NO OF PREV COMMAND (F)   
537B ...#DEF  ISNPREVCOM=ISOPREVCOM+1      [NEW -      -      - 
53M2 ...#DEF  ISTEXTCT=ISNPREVCOM+1     [COUNT OF CHARS IN ISTEXT   
546L ...#DEF  ISTEXT=ISTEXTCT+1         [TEXT TO BE OUTPUT  
54L= ...#DEF  ASCREENLEN=ISTEXT+FPTR-1  
54NT ...[   
54RD ...[   
54W3 ...[     IDENTIFIERS FOR AMXOR-CONTROL BLOCK   
54YL ...[   
5539 ...[   
555S ...#DEF  CONCA1=A1                       [START OF 1ST ENTRY IN AMXOR/CONTR
558C ...#DEF  CONCAD=4                       [PROGRAMS ADDR. OF CONTROL AREA
55?2 ...#DEF  CONCALEN=CONCAD+1              [LENGTH OF ENTRY IN AMXOR/CONTROL  
55*K ...#DEF  CONCA2=CONCA1+CONCALEN          [START OF 2ND ENTRY IN AMXOR/CONTR
55D8 ...[   
55GR ...[   
55GY ...[   
55H5 ...[   
55H= ...[     IDENTIFIERS FOR ADATA-COMPASS BLOCK   
55HC ...[   
55HJ ...[   
55HP ...#UNS  ATELE 
55HW ...(   
55J3 ...#DEF  CDATSTAR=A1                  [START OF DATA TO BE PASSED TO COMMAN
55J8 ...#DEF  ATELDIS=CDATSTAR             [DISPLACEMENT OF IDENTS ADEVS ENTRY  
55J* ...#DEF  ATELAM=ATELDIS+1             [ADDRESS OF AMOP 
55JG ...#DEF  ATELID=ATELAM+1              [IDENT NUMBER
55JM ...#DEF  ATELCOM=ATELID+1             [START OF LOADTCP COMMAND
55JS ...#DEF  ATELCOMLEN=ATELCOM+6-A1      [LENGTH OF BLOCK 
55J^ ...)   
55K3 ...[   
55K5 ...[   
55K7 ...#UNS  CLSKI 
55K9 ...#DEF  CONREL=ACOMMUNE5             [FOR AMOP IPBCCA ACTIVITY
55K? ...[   
55K* ...[   
55LQ ...[ FORMAT LOOP DATA BLOCK FOR 7502 LP
55N7 ...[   
55PJ ...#UNS FL7502 
55Q^ ...(   
55SB ...#DEF FORMPROP = A1  
55TR ...#DEF FORMCHAR = FORMPROP + 1
55X8 ...#DEF FORMDATA = FORMCHAR + 1
55YK ...)   
5622 ...[   
563C ...[   
564^ ...#UNS  CCERROR   
56JK ...(   
5749 ...[     LIST OF SUBMESSAGE IDENTIFIERS FOR CCERROR MACRO  
57HT ...#DEF  CCERRWAIT=#171
583F ...#DEF  CCINVIDEN=1   
58H5 ...#DEF  CCTRANSFER=2  
592P ...#DEF  CCUNTERMRD=3  
59G* ...#DEF  CCINVSUP=4
59^^ ...#DEF  CCBIGREPORT=5 
5=FK ...#DEF  CCNOCONTCR=6  
5=^9 ...#DEF  CCSSSWRONG=7  
5?DT ...#DEF  CCREJECTOT=8  
5?YF ...#DEF  CCREJECTIN=9  
5#D5 ...#DEF  CCWRONGSUP=10 
5#XP ...#DEF  CCWRONGILL=11 
5*C* ...#DEF  CCNOTCLOSE=12 
5*W^ ...#DEF  CCSSWRONG=13  
5BBK ...#DEF  CCDATANOW=14  
5BW9 ...#DEF  CCNOT80CHS=15 
5CTF ...)   
5D*5 ...#   
^^^^ ...43522251002100000000