Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{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]] <code - COMPS MW.txt>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 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In