{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS MW)}}
====== COMPS MW ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:CCERROR|CCERROR]]
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