15 22FL #SEG ATTACHA [JOHN BAILEY. 7 22_= #OPT K0ATTACH=0 14 23DW #LIS K0ATTACH>K0COMMAND>K0ALLGEO>K0GREATGEO 7 23YG #OPT K6ATTACH=0 7 24D6 8HATTACHA8 12 24XQ SEGENTRY K1ATTACHA,X1ATTACHA 12 25CB SEGENTRY K5ATTACHA,X5ATTACHA 4 25X2 # 4 26BL # 4 26W= # 9 27*W NAMCL #43540000 9 27TG RMASK #60077777 4 28*6 # 4 28SQ # 4 29#B # 18 29S2 # GET PARAMETER BEGINNING WITH U,L,OR CL ; CALL ON X7 4 2=?L # 19 2=R= NOLET LDCT 5 #510 [PRESET TO GET ^I^ PARAMETER 21 2?=W LDXC 0 AWORK3(2) [J. IF DEALING WITH IDENTIFIER NO. 7 2?QG ADXC 0 0 8 2#=6 BCS NOIDE 20 2#PQ LDCT 5 #540 [OTHERWISE LOOK FOR ^L^ PARAMETER 7 2*9B NOIDE LDN 4 1 16 2*P2 NAME SBX 7 FX1 [ENTRY FOR 'CL' 8 2B8L SPARABEG 1,4 8 2BN= ADX 7 FX1 7 2C7W EXIT 7 0 4 2CMG # 21 2D76 # GET PARAMETER FROM CPB/CUNI BLOCK & CONVERT TO BINARY ; CALL ON X7 4 2DLQ # 8 2F6B PASS SBX 7 FX1 10 2FL2 MHUNT 3,CPB,CUNI 9 2G5L NGX 0 ANUM(3) 19 2GK= BPZ 0 RCLUE [PARAMETER NULL OR MISSING 7 2H4W PHOTO 6 8 2HJG CHNUMCOD ,3 18 2J46 TESTREP CHNUMERR,URET [ENDCOM IF INVALID FORMAT 9 2JHQ TESTMOVE 6,NOMO 19 2K3B MHUNT 3,CPB,CUNI [RELOCATE AFTER COORDINATION 19 2KH2 NOMO LDX 6 ACOMMUNE1(2) [PICK UP CONVERTED PARAMETER 8 2L2L BZE 6 RFER 8 2LG= ADX 7 FX1 7 2L_W EXIT 7 0 4 2MFG # 4 2M_6 # 4 2NDQ # 19 2NYB # PARSORT MACRO ROUTINE PLUS HUNTING FOR A CPAR JSCE BLOCK 4 2PD2 # 5 2PXL RPARS 8 2QC= SBX 6 FX1 7 2QWW LDN 4 2 7 2RBG SMO 1 8 2RW6 LDX 5 NAMCL 8 2S*Q CALL 7 NAME 10 2STB MHUNT 3,CPB,CUNI 9 2T*2 LDX 0 ANUM(3) 8 2TSL BNG 0 W2 8 2W#= BZE 0 W2 10 2WRW LDEX 0 JPARNUM(3) 7 2X?G ERN 0 3 7 2XR6 W3 LDX 1 0 10 2Y=Q PARSORTX URET,1,NOCLUS 8 2YQB BRN W4 7 2_=2 W2 LDN 0 1 8 2_PL BRN W3 10 329= W4 MHUNTW 3,CPAR,JSCE 8 32NW BNG 3 URET 8 338G ADX 6 FX1 7 33N6 EXIT 6 0 4 347Q # 4 34MB # 15 3572 # SUBROUTINE WHICH ANALYSES THE CL PARAMETER 8 35LL RCLP SBX 7 FX1 9 366= STO 7 AWORK1(2) 7 36KW LDN 4 2 8 375G LDX 1 FX1 14 37K6 LDX 5 NAMCL(1) [4HCL00 16 384Q LDN 3 0 [ANALYSIS LEVEL 20 38JB SPARABEG 1,4,,3 [FIND CONCEPTUAL NAME PARAMETER 10 3942 MHUNT 3,CPB,CUNI 9 39HL LDX 0 ANUM(3) 18 3=3= BNG 0 RCLMI [NO NAME COMMAND ERROR 17 3=GW BZE 0 NONAM [NULL NAME INVALID 21 3?2G LDX 7 JPARNUM(3) [POSITION OF NAME IN CPB/CALAS BLOCK 4 3?G6 # 4 3?_Q # 10 3#FB LDX 0 CONTEXT(2) 8 3#_2 ANDN 0 #10 21 3*DL BZE 0 ROCAT [IF ATTACH HAS BEEN ISSUED FROM MOP 20 3*Y= ANDN 7 #77 [CONSOLE STORE THE POSITION OF CL 9 3BCW ORS 7 AWORK3(2) 9 3BXG #SKI K6ATTACH>199-199 19 3CC6 TRACE AWORK3(2),POJOFCL [POSITION OF CL IN COMMAND 4 3CWQ # 4 3DBB # 19 3DW2 ROCAT FREECORE 3 [PARAMETER IN CPB/CALAS BLOCK 16 3F*L LDN 3 0 [ANALYSIS LEVEL 17 3FT= PARALYSE #36,3,7 [ANALYSE CL PARAMETER 7 3G2D ...#UNS ANSTOOMANY 10 3G7L ... TESTREP2 TOOMANY,TOMP 8 3G#W CALL 7 NAME 18 3GSG CHEKLFN2 NONAM,NONAM [CHECK FOR VALID FORMAT. 21 3H#6 NAME 3,IDF,COINF [RENAME THE BLOCK WITH CONCEPTUAL NAM 18 3HRQ LDX 4 AWORK4(2) [IDENTIFIER/LINE NUMBER 8 3J?B SRL 4 12 20 3JR2 STO 4 JPARNUM(3) [ACT LINE/IDENTIFIER NO BITS 9-23 9 3K=L #SKI K6ATTACH>199-199 12 3KQ= GSCAN JPARNUM(3),IDFCOINF,5 4 3L9W # 21 3LPG SETNCORE 3,3,IDF,CONCEP [FOR PASSING INFORMATION TO XATTACH 21 3M96 LDX 6 AWORK4(2) [GEOGR AND ACT LINE/IDENTIFIER NOS 17 3MNQ STO 6 A1(3) [STORE IN IDF BLOCK 15 3N8B STOZ A1+1(3) [INITIALISE 15 3NN2 STOZ A1+2(3) [IDF/CONCEP 7 3P7L PARANUMB 4 9 3PM= LDX 7 AWORK1(2) 8 3Q6W ADX 7 FX1 8 3QLG BCT 4 XXR 7 3R66 EXIT 7 0 7 3RKQ XXR EXIT 7 1 4 3S5B # 15 3SK2 # SUBROUTINE WHICH ANALYSES THE L PARAMETER 21 3T4L # LINE PARAMETER IS SIMP : L5 , QUAL : L4(5) OR COMP : L(17,5(6),29) 4 3TJ= # 8 3W3W SLIN SBX 7 FX1 9 3WHG STO 7 AWORK2(2) 21 3X36 CALL 7 NOLET [CONCEP LINE/IDE GROUPS INTO CPB/CUNI 10 3XGQ TESTREP UNPAIR,NOPR 10 3Y2B MHUNT 3,CPB,CUNI 9 3YG2 LDX 7 ANUM(3) 17 3Y_L BZE 7 RCLUE [LINE GROUPS OMITTED 21 3_F= BNG 7 RCLUE [NAME QUALIFIER DOESN'T BEGIN WITH L 21 3_YW SRL 7 12 [HERE X4 CONTAINS 1 ; X6 CONTAINS 2 18 42DG BNZ 7 SING [NOT A SINGLE LINE NUMBER 8 42Y6 CALL 7 PASS 7 43CQ FREECORE 3 10 43XB MHUNTW 3,IDF,CONCEP 21 44C2 STO 6 A1+1(3) [STORE SINGLE LINE NO IN IDF/CONCEPT 8 44WL BRN REXIT 7 45B= SING FREECORE 3 17 45TW LDN 6 2 [PARAMETER POSITION 8 46*G PARALYSE ,,6 7 46GN ...#UNS ANSTOOMANY 10 46MW ... TESTREP2 TOOMANY,TOMP 7 46T6 SBN 7 2 21 47#Q BZE 7 ZCOMP [COMPOSITE : MORE THAN ONE LINE GROUP 21 47SB CALL 7 NOLET [CONCEP LINE/IDE GROUPS INTO CPB/CUNI 8 48#2 CALL 7 PASS 7 48RL FREECORE 3 9 49?= STO 6 AWORK1(2) 20 49QW SPARANOT 2 [NO OF IDENTIFIERS/LINES IN QUAL 15 4==G [PARAMETER 16 4=Q6 CALL 7 PASS [PASS IT IN X6 7 4?9Q FREECORE 3 20 4?PB ADN 6 2 [LENGTH OF THE IDF/CONCEP BLOCK 10 4#92 MHUNTW 3,IDF,CONCEP 7 4#NL PHOTO 5 21 4*8= ALTLEN 3,6,IDF,CONCEP [CHANGE THE LENGTH OF CONCEP BLOCK 9 4*MW TESTMOVE 5,NIXI 10 4B7G MHUNTW 3,IDF,CONCEP 20 4BM6 NIXI SBN 6 2 [NO OF LINES IN A QUALIFIED GROUP 17 4C6Q LDX 0 AWORK1(2) [THE FIRST L OR I NO 9 4CLB RXA1 STO 0 A1+1(3) 7 4D62 ADN 3 1 7 4DKL ADN 0 1 8 4F5= BCT 6 RXA1 18 4FJW STOZ A1+1(3) [NULLIFY LAST LOCATION 8 4G4G BRN REXIT 20 4GJ6 ZCOMP PARALYSE #34,,6 [SEPARATE LINE-GROUPS AT COMMAS 7 4GM= ...#UNS ANSTOOMANY 13 4GQB ... TESTREP2 TOOMANY,TOMP,UNPAIR,NOPR 7 4GTG ...#UNS ANSTOOMANY 4 4GYL ...#SKI 10 4H3Q TESTREP UNPAIR,NOPR 16 4HHB LDN 6 3 [ANALYSIS LEVEL 18 4J32 PARANUMB 4,6 [NUMBER OF LINE GROUPS 7 4JGL ADN 4 2 10 4K2= MHUNTW 1,IDF,CONCEP 7 4KFW PHOTO 5 21 4K_G ALTLEN 1,4,IDF,CONCEP [CHANGE THE LENGTH OF CONCEP BLOCK 19 4LF6 [TO CORRESPOND THE NO OF L/I 9 4LYQ TESTMOVE 5,XIXI 19 4MDB XIXI SBN 4 2 [NO OF PARAMETERS IN BRACKETS 7 4MY2 STOZ 5 16 4NCL ZXR LDN 6 3 [ANALYSIS LEVEL 19 4NX= PARAPASS 6 [ANALYSE 1ST/NEXT PARAMETER 8 4PBW CALL 7 PASS 7 4PWG FREECORE 3 10 4QB6 MHUNTW 1,IDF,CONCEP 7 4QTQ SMO 5 19 4R*B STO 6 A1+1(1) [STORE PARAMETER IN CONCEP 7 4RT2 ADN 5 1 20 4S#L BXU 5 4,ZXR [J. UNLESS PARAMETERS EXHAUSTED 7 4SS= SMO 5 20 4T?W STOZ A1+1(1) [NULLIFY LAST WORD IN IDF CONCEP 21 4TRG # NOW SORT THE LINE/IDENTIFIER NOS. INTO ASCENDING ORDER. IN X4 NO 17 4W?6 RGF4 LDX 3 1 [IDF/CONCEP ADDRESS 7 4WQQ RGF3 STOZ 7 9 4X=B RGF2 LDX 0 A1+2(3) 8 4XQ2 BZE 0 RGF1 21 4Y9L BXGE 0 A1+1(3),RHJ1 [J. IF THIS PAIR ALREADY WELL ORDERED 20 4YP= LDX 7 GSIGN [SET MARKER TO SHOW HAVE SWAPPED 18 4_8W LDX 4 A1+1(3) [SWAP LOCATIONS IN CONCEP 9 4_NG STO 0 A1+1(3) 9 5286 STO 4 A1+2(3) 18 52MQ RHJ1 BUX 3 RGF2 [J. TO DO NEXT COMPARISON 8 537B RGF1 BNZ 7 RGF4 8 53M2 LDX 1 FX1 9 546L REXIT LDX 7 AWORK2(2) 9 54L= LDEX 6 AWORK4(2) 6 54PB ...#UNS AV7900S 21 54SG ... FINDPERE 3,APGEOG,6,,AV7900 [FIND DEVICE LIST.(INCLUDE V7900 DLS) 6 54XL ...#UNS AV7900S 4 552Q ...#SKI 10 555W FINDPERE 3,APGEOG,6 9 55KG STO 3 AWORK2(2) 8 5656 ADX 7 FX1 7 56JQ EXIT 7 0 4 574B # 4 57J2 # 4 583L # 6 58H= X1ATTACHA 9 592W STOZ AWORK1(2) 7 59GG RPOC PARANUMB 6 21 5=26 LDXC 0 JSOURCE2(2) [J IF NOT FROM REMOTE CONSOLE -LOCAL 14 5=FQ BCC RLOC [OR MOP 18 5=_B ADXC 0 0 [J. IF NOT IPB TO REPORT 21 5?F2 BCC RNIPB [ERROR - THIS COMMAND IS NOT ALLOWED 21 5?YL [IN CHARACTER BUFFERING MPX SYSTEM 4 5#D= # 20 5#XW # AH OR CC AH COMMAND MUST HAVE COME FROM A REMOTE CONSOLE IN A 21 5*CG # IPB SYSTEM AND ADRESSES A LINE OF A MPX/UPX SYSTEM OR AN IDENTIFIE 9 5*X6 # OF AN IPB SYSTEM 4 5BBQ # 9 5BWB LDX 4 AWORK1(2) 16 5CB2 BZE 4 RCXY [J IF AH COMMAND 21 5CTL BZE 6 RFIPE [OTHERWISE CC AH -IN THIS CASE ITSELF 18 5D*= [FROM 7023-NO PARAMETERS 20 5DSW BCT 6 TOMP [CC AH ANY OTHER IDENTIFIER BUT 21 5F#G [ITSELF MUST HAVE ONLY ONE PARAMETER 8 5FS6 BRN RAXY 17 5G?Q RCXY BZE 6 MISS [NO PARAMETERS-ERROR 7 5GRB SBNC 6 2 21 5H?2 BCS RFIPE [AH ITSELF FROM 7023-ONE PARAMETER 21 5HQL BNZ 6 TOMP [AH SOMEONE ELSE FROM 7023-2 PARAMETE 20 5J== # AH OR DH AN IDENTIFIER WHICH BELONGS TO A CLUSTER FOR WHICH 21 5JPW # THE REMOTE CONSOLE ISSUING THE COMMAND IS THE NOMINATED CONSOLE 18 5K9G RAXY CALL 6 RPARS [CPAR/JSCE ADDR INTO X3 8 5KP6 LDX 0 GSIGN 21 5L8Q STO 0 AWORK3(2) [SET B0 - SOURCE IPB SYSTEM REMOTE 14 5LNB [CONSOLE 19 5M82 LDCT 4 #200 [SET MARK IF DEALING WITH IPB 9 5MML ANDX 4 JSCEB(3) 8 5N7= BZE 4 RCQY 19 5NLW ORS 4 AWORK3(2) [B1=1 FOR IPB, =0 FOR OTHER. 9 5P6G LDX 0 JSCEA(3) 17 5PL6 SLL 0 12 [B0-B11 IDENTIFIER NO 9 5Q5Q QUY LDEX 4 JSCEB(3) 21 5QKB ORX 0 4 [B0-B11 IDENTIFIER NO B15-B23 GEOGR.N 19 5R52 LDXC 3 JSCEP(3) [IF B0 NOT SET POINTER TO DCA 19 5RJL BCC RW1 [OTHERWISE CLUSTERING INYALID 15 5S4= BRN URET [AND ENDCOM 18 5SHW RCQY LDX 0 JSCEB(3) [MPX/UPX LINE ADRESSED 21 5T3G ANDX 0 BSB18 [SO GET LINE NO. INTO TOP HALF OF X0. 7 5TH6 SLL 0 3 9 5W2Q ANDX 0 HALFTOP 8 5WGB BRN QUY 4 5X22 # 20 5XFL # AH OR CC AH COMMAND MUST HAVE COME FROM A REMOTE CONSOLE IN A 17 5X_= # IPB SYSTEM WHICH TRIES TO ATTACH OR DETACH ITSELF 4 5YDW # 19 5YYG RFIPE LDN 4 #30 [ATTACH ITSELF REMOTE CONSOLE 6 5_3L ...#UNS AV7900S 20 5_6Q ... FINDPERE 3,APFOTY,4,R1,AV7900[FIND POINTER TO IPB DEVICE LIST 6 5_9W ...#UNS AV7900S 4 5_*2 ...#SKI 20 5_D6 FINDPERE 3,APFOTY,4,R1 [FIND POINTER TO IPB DEVICE LIST 8 5_XQ BNG 3 NOTX 16 62CB LGEOG 3,5 [GEOG NO IN X5 17 62X2 LDEX 0 JSOURCE2(2) [IS GEOG.NO THE SAME 17 63BL BXU 5 0,R1 [IF NOT TRY ONCE MORE 8 63W= LDX 0 GSIGN 19 64*W STO 0 AWORK3(2) [MARK IPB AND NO PARAMETER 8 64TG LDCT 0 #200 9 65*6 ORS 0 AWORK3(2) 20 65SQ LDX 0 JSOURCE1(2) [STORE GEOGR.AND IDENDTIFIER NOS 8 66#B SLL 0 12 7 66S2 ORX 0 5 21 67?L RW1 STO 0 AWORK4(2) [B0-B11 IDENTIFIER NO B15-B23 GEOGR.N 17 67R= STO 3 AWORK2(2) [STORE DCA POINTER 9 68=W RXXX LDX 0 AWORK1(2) 16 68QG BZE 0 SAHT [J IF AH COMMAND 9 69=6 #SKI K6ATTACH>199-199 4 69PQ ( 10 6=9B TRACE AWORK1(2),A1 10 6=P2 TRACE AWORK2(2),A2 10 6?8L TRACE AWORK3(2),A3 10 6?N= TRACE AWORK4(2),A4 4 6#7W ) 15 6#MG ACROSS DETACH,3 [FOR CC AH 4 6*76 SAHT 6 6*8T ...#UNS AV7900S 4 6*=J ...( 20 6*#? ...# THE ATTACH COMMAND IS NOT ALLOWED ON VIRTUAL 7900'S 21 6*B2 ...# UNLESS THE VIRTUAL 7900 TESTING SKIP K6VIPB IS SET > 599 8 6*CP ...#SKI K6VIPB>599-599 4 6*FD ...#SKI 20 6*H7 ... JV7900 AWORK2(2),VIRTUAL7900 [DISALLOW THE ATTACH COMMAND 4 6*JW ...) 9 6*LQ #SKI K6ATTACH>199-199 4 6B6B ( 10 6BL2 TRACE AWORK1(2),A11 10 6C5L TRACE AWORK2(2),A12 10 6CK= TRACE AWORK3(2),A13 10 6D4W TRACE AWORK4(2),A14 4 6DJG ) 8 6F46 CALL 7 RCLP 8 6FHQ BRN SEAL 8 6G3B CALL 7 SLIN 8 6GH2 BRN SEAL 4 6H2L # 21 6HG= # THIS COMMAND MUST HAVE COME FROM A LOCAL OPERATOR'S CONSOLE AND 20 6H_W # ADRESSES EITHER A LINE OF A MPX/UPX SYSTEM OR AN IDENTIFIER OF 8 6JFG # AN IPB SYSTEM 4 6J_6 # 4 6KDQ # 10 6KYB RLOC LDX 4 CONTEXT(2) 8 6LD2 BZE 6 MISS 21 6LXL ANDN 4 #10 [J IF COMMAND CAME FROM MOP CONSOLE 8 6MC= BNZ 4 RMOPA 9 6MWW LDX 0 AWORK1(2) 16 6NBG BZE 0 UVXY [J IF AH COMMAND 21 6NW6 BCT 6 TOMP [CC AH CAN HAVE ONLY ONE PARAMETER 8 6P*Q BRN YXVU 20 6PTB UVXY SBNC 6 2 [AH CAN HAVE ONLY TWO PARAMETERS 21 6Q*2 BCS MISS [WHEN ISSUED FROM CENTRAL OPS CONSOLE 8 6QSL BNZ 6 TOMP 20 6R#= YXVU CALL 6 RPARS [DO PARSORT MACRO AND HUNT FOR 15 6RRW LDCH 0 JSCEB(3) [JSCE BLOCK 21 6S?G BZE 0 UNIPL [J. IF POSSIBLY *UX WITHOUT LINE NO. 17 6SR6 SRL 0 3 [ELSE J. IF NOT IPB. 7 6T=Q SBN 0 6 8 6TQB BNZ 0 RMULT 21 6W=2 LDCT 0 #200 [MARK IPB ADRESSED FROM CEN.OP.CONS. 9 6WPL STO 0 AWORK3(2) 16 6X9= LDX 0 JSCEA(3) [IDENTIFIER NO 8 6XNW SLL 0 12 14 6Y8G LDEX 4 JSCEB(3) [GEOGR.NO 8 6YN6 BRN ROBA 9 6_7Q UNIPL LDCH 0 JSCEA(3) 8 6_MB SBN 0 12 20 7272 BNZ 0 RFER [J. IF NOT UNIPLEXER AFTER ALL. 17 72LL LDEX 4 JSCEA(3) [GEOGR. NO OF UNIPL. 8 736= BRN ROBA 19 73KW RMULT LDEX 0 JSCEB(3) [GEOGR. NO OF *MX OR *UX.L1 9 745G STOZ AWORK3(2) 20 74K6 LDX 4 JSCEB(3) [LINE NO. INTO TOP HALF OF X4. 8 754Q ANDX 4 BSB18 7 75JB SLL 4 3 9 7642 ANDX 4 HALFTOP 7 76HL ROBA ORX 4 0 9 773= STO 4 AWORK4(2) 9 77GW LDX 0 JSCEP(3) 19 782G STO 0 AWORK2(2) [LINE/IDENTIFIER AND GEOGR NO 8 78G6 BRN RXXX 4 78_Q # 21 79FB # THIS COMMAND MUST HAVE FROM A IPB MOP CONSOLE OR MPX MOP CONSOLE 13 79_2 # AND TRIES TO ATTACH THIS CONSOLE 4 7=DL # 10 7=Y= RMOPA LDCH 0 JSOURCE1(2) 7 7?CW LDX 4 0 8 7?XG SBN 4 #74 8 7#C6 BZE 4 RCHYB 8 7#WQ SBN 0 #30 15 7*BB BNZ 0 SMPX [J IF NOT IPB 16 7*W2 LDN 4 #30 [MOP IPB ATTACH 6 7*_6 ...#UNS AV7900S 20 7B4= ... FINDPERE 3,APFOTY,4,RR1,AV7900[FIND POINTER TO IPB DEVICE LIST 6 7B7B ...#UNS AV7900S 4 7B=G ...#SKI 20 7B*L FINDPERE 3,APFOTY,4,RR1 [FIND POINTER TO IPB DEVICE LIST 8 7BT= BNG 3 NOTX 15 7C#W LGEOG 3,5 [GEO.NO IN X5 18 7CSG LDEX 0 JSOURCE1(2) [IS GEOGR.NO THE SAME ? 7 7D#6 TXU 5 0 8 7DRQ BCS RR1 8 7F?B LDX 0 GSIGN 9 7FR2 STO 0 AWORK3(2) 8 7G=L LDCT 0 #200 17 7GQ= ORS 0 AWORK3(2) [B1 SET IPB ADRESSED 8 7H9W BRN SRF 20 7HPG SMPX LDN 4 #13 [MOP MULTIPLEXOR/UNIPLEXOR ATTACH 7 7J96 STOZ 6 11 7JNQ SMPDL FINDPERE 3,APFOTY,4,RRR1 8 7K8B BPZ 3 XDAL 8 7KN2 BNZ 6 NOTX 7 7L7L ADN 6 1 7 7LM= SBN 4 1 8 7M6W BRN SMPDL 8 7MLG XDAL LGEOG 3,5 17 7N66 LDEX 0 JSOURCE1(2) [GEOGR.NO THE SAME? 9 7NKQ BXU 0 5,RRR1 18 7P5B STOZ AWORK3(2) [SOURCE MPX,MPX ADRESSED 17 7PK2 SRF LDX 0 JSOURCE2(2) [IDENTIFIER/LINE NO 8 7Q4L SLL 0 12 7 7QJ= ORX 5 0 20 7R3W STO 5 AWORK4(2) [IDENTIFIER/LINE NO AND GEOGR NO 15 7RHG STO 3 AWORK2(2) [DCA POINTER 8 7S36 CALL 7 RCLP 18 7SGQ BRN RACR [IF NO I/L PARAMETERS J 8 7T2B CALL 7 SLIN 4 7TG2 # 4 7T_L # 4 7WF= # 4 7WYW RACR 9 7XDG #SKI K6ATTACH>199-199 4 7XY6 ( 10 7YCQ MHUNTW 2,IDF,CONCEP 11 7YXB GSCAN A1(2),IDFCONCE,4 4 7_C2 ) 21 7_WL ACROSS ATTACHC,1 [GO TO SEGMENT WHICH ATTACHES FROM A 15 82B= [MOP CONSOLE 4 82TW # 4 83*G # 21 83T6 # CHECK FOR LINE BUSY OR ALREADY ATTACHED ; INHIBIT SCAN & PROFLAG 4 84#Q # 13 84SB # AT THIS POINT THERE SHOULD BE IN 14 85#2 # AWORK1 NOTHING SPECIAL - CAN BE USED 10 85RL # AWORK2 DCA ADDRESS 21 86?= # AWORK3 B0-SET SOURCE IS REMOTE CONSOLE ON IPB,B0=0 IF SOURCE OP. 17 86QW # B1-SET IPB ADRESSED B1=0 MPX/UPX ADRESSED 14 87=G # ZERO IF IT IS. MPX/UPX SYSTEM 20 87Q6 # AWORK4 B0-B11 ACTUAL IDENTIFIER OR LINE NO B15-B23 GEOGR NO 17 889Q # IDF/COINF A1-B12-B23 ACTUAL LINE/IDENTIFIER NO 20 88PB # A2-B12-B23 LENGTH OF THE CONCEPTUAL NAME IN CHARS 13 8992 # A3 ON -CONCEPTUAL NAME 17 89NL # IDF/CONCEPT A1-B0-B11 ACTUAL IDENTIFIER OR LINE NO 4 8=8= # 4 8=MW # 4 8?7G SEAL 9 8?M6 #SKI K6ATTACH>199-199 4 8#6Q ( 10 8#LB MHUNTW 2,IDF,CONCEP 11 8*62 GSCAN A1(2),IDFCONCE,4 4 8*KL ) 20 8B5= ACROSS ATTACHB,1 [GO TO THE SEGMENT WHICH ATTACHES 20 8BJW [FROM A REMOTE OR LOCAL CONSOLE 4 8C4G # 4 8CJ6 # 20 8D3Q # THIS ENTRY IS FOR CANCEL ATTACH COMMAND FROM THE OPERATOR'S 20 8DHB # CONSOLE AND THIS SEGMENT JUST PROVIDES THE PARAMETER ANALYSIS 12 8F32 # THEN JUMPS ACROSS TO K3DETACH 4 8FGL # 6 8G2= X5ATTACHA 17 8GFW LDN 0 #4341 [MARK CANCEL ATTACH 9 8G_G STO 0 AWORK1(2) 8 8HF6 BRN RPOC 4 8HYQ # 4 8JDB # 2 8JY2 2 8KCL 4 8KX= # 10 8LBW # VARIOUS COMMAND ERRORS 4 8LWG # 4 8MB6 # 17 8MTQ MISS ZERRORX JPARMIS [PARAMETER MISSING 8 8N*B NLAL OUTNUM 6,0 19 8NT2 ZERRORX JLARGELINE [INVALID LINE NUMBER IN X6 19 8P#L NONAM ZERRORX JNOTCNAME [NOT A VALID CONCEPTUAL NAME 7 8PS= NOPR SPARAPAS 17 8Q?W ZERRORX ERUNPAIR [UNPAIRED BRACKETS 8 8QRG NOTX OUTNUM 4,0 17 8R?6 ZERRORX JUNITERR [NO IPB OR UPX OR MPX 7 8RQQ PFER LDN 6 2 18 8S=B SPARAPAS 6 [LINE GROUP INTO CPB/CUNI 18 8SQ2 RFER ZERRORX APFERR [PARAMETER FORMAT ERROR 21 8T9L RCLUE LDN 6 0 [ERROR ROUTINE FOR COMPLEX PARAMETERS 7 8TP= LDN 4 2 8 8W8W SMO FX1 8 8WNG LDX 5 NAMCL 9 8X86 RFALR SPARABEG 1,4,5,6 8 8XMQ BRN RFER 17 8Y7B TOMP ZERRORX JTOOMANY [TOO MANY PARAMETERS 9 8YM2 RESV3 GEOERR 1,RESV3 9 8_6L REJOP GEOERR 1,REJOP 21 8_L= RCHYB ZERRORX CONOALVICO [THIS COMMAND IS NOT ALLOWED VIA THIS 17 925W [TYPE OF CONNECTION 20 92KG RNIPB ZERRORX JNOCHBS [THIS COMPAND IS NOT ALLOWED IN 19 9356 [CHARACTER BUFFERING SYSTEMS 6 9374 ...#UNS AV7900S 4 9392 ...( 6 93=Y ...VIRTUAL7900 10 93#W ... HUNTW 3,CPAR,JSCE 21 93BS ... BNG 3 RCHYB [REMOTE OP ATTACHING HIS OWN CONSOLE 19 93DQ ... ZERRORX JXALL [NOT ALLOWED TO USE UNIT %C 4 93GN ...) 7 93JQ ZERRORY 10 944B RCLMI COMERR JPARMIS,CONNA 10 94J2 RUNMI COMERR JPARMIS,JUNNO 11 953L RUNNU COMERR JPARNULL,JUNNO 4 95H= # 6 962W URET ENDCOM 11 96GG MENDAREA 40,K100ATTACHA 4 9726 #END 8 ____ ...26657140000600000000