16 22FL #SEG ATTACHB [PHILIP TURNER 7 22_= #OPT K0ATTACH=0 8 23?M ...#OPT K0ATTACHB=0 17 23L4 ...#LIS K0ATTACHB>K0ATTACH>K0COMMAND>K0ALLGEO>K0GREATGEO 7 23YG #OPT K6ATTACH=0 7 24D6 8HATTACHB 4 24XQ # 4 25CB # 4 25X2 # 12 26BL SEGENTRY K1ATTACHB,X1ATTACHB 12 26W= SEGENTRY K3ATTACHB,X3ATTACHB 12 2764 ... SEGENTRY K4ATTACHB,X4ATTACHB 4 27*W # 4 27TG # 4 28*6 # 10 28SQ RECCON +CONRECLEN 9 29#B RMASK #60077777 10 29S2 RIDICON +CONDCBLEN 10 29_8 ...TYPDCB +AMXOR+ADCB 10 2=6B ...TYPCONS +CONSA+I7023 4 2=?L # 8 2=R= RCOUT SBX 7 FX1 8 2?=W LDX 2 FX2 17 2?QG STO 0 ACOMMUNE1(2) [SUPERVISORY SEG CODE 16 2#=6 LDX 0 AWORK4(2) [ACTUAL IDE.NO 8 2#PQ SRL 0 12 10 2*9B CCOUT 0,AWORK1(2) 8 2*P2 ADX 7 FX1 7 2B8L EXIT 7 0 19 2BN= # SEARCH FOR ALINES/ADEVS BLOCK AND CREATE IN X2 POINTER TO 16 2C7W # AN ENTRY,WHOSE LINE/IDENTIFIER NO. *4 IS IN X6 4 2CMG # 8 2D76 SEEK LDX 2 FX2 9 2DLQ LDX 6 AWORK4(2) 9 2F6B ANDX 6 HALFTOP 8 2FL2 SRL 6 10 9 2G5L LDX 0 AWORK3(2) 7 2GK= SLL 0 1 18 2H4W BPZ 0 RZ [J IF NOT IPB ADRESSED 15 2HJG FMOPACT 2,AWORK2(2),IPB [FIND IPBIN 8 2J46 SMO FX2 15 2JHQ STO 2 AWORK1 [IPBIN ADDR 12 2K3B HUNT2J 2,AMXOR,ADEVS,,(7) 21 2KH2 LDX 0 A1+FOURTHWD(2) [SUBTRACT THE LOWEST IDENTIFIER NO. 16 2L2L SLL 0 2 [MULTIPLIED BY 4 7 2LG= SBX 6 0 8 2L_W BRN MBLK 10 2MFG RZ FMOPACT 2,AWORK2(2) 8 2M_6 SMO FX2 15 2NDQ STO 2 AWORK1 [AMOP ADDR 12 2NYB HUNT2J 2,AMXOR,ALINES,,(7) 7 2PD2 MBLK ADX 2 6 7 2PXL EXIT 7 1 8 2PY5 ...WTCC LDX 2 FX2 9 2PYJ ... LDEX 5 AWORK4(2) 18 2P_3 ... BZE 5 ZNTL [J IF NOT ATTACH COMMAND 10 2P_G ... LDX 5 CONTEXT(2) 8 2P__ ... ANDN 5 #20 17 2Q2D ... BZE 5 ZNTL [J IF NOT OP ATTACH 8 2Q2X ... LDN 5 100 4 2Q3B ...ZNTL 8 2Q3T ...WTCCA SBX 4 FX1 18 2Q4# ... BZE 5 ZTLNY [J IF MESSAGE NOT REQD 19 2Q4R ... BCT 5 ZTLNY [J IF NOT TIME FOR MESSAGE 8 2Q5= ... SMO FX2 9 2Q5P ... LDX 5 AWORK4 15 2Q68 ... SRL 5 12 [IDENT NUMBER 8 2Q6M ... OUTNUM 5,0 9 2Q76 ... MONOUT JAHCCW 7 2Q7K ... LDN 5 0 8 2Q84 ...ZTLNY COOR3 #41 7 2Q8H ... ADX 4 1 15 2Q92 ... CALL 7 SEEK [FIND ADEVS 14 2Q9F ... BRN RNDV [JIF NONE 8 2Q9Y ... LDCT 0 #200 11 2Q=C ... ANDX 0 A1+FOURTHWD(2) 18 2Q=W ... BZE 0 (4) [J IF NO LONGER ATTACHED 7 2Q?* ... EXIT 4 1 4 2Q?S ...[ 8 2Q#? ...ZDHNL SMO FX2 9 2Q#Q ... LDX 4 AWORK4 15 2Q*9 ... SRL 4 12 [IDENT NO. 8 2Q*N ... OUTNUM 4,0 9 2QB7 ... ZERRORX JAHCCLIN 4 2QC= # 8 2QFT ...TIPQ SMO FX2 9 2QJD ... LDX 0 AWORK3 7 2QM3 ... SLL 0 1 16 2QPL ... BPZ 0 (7) [EXIT IF NOT IPB 7 2QS9 ... EXIT 7 1 20 2QSD ...ZCL8 [SUB TO UNSET B8 IN 4W FOR ERROR 8 2QSM ... CALL 7 TIPQ 8 2QSW ... BRN NIRJ 8 2QT5 ... CALL 7 SEEK 8 2QT# ... BRN NIRJ 7 2QTH ... LDCT 0 1 11 2QTQ ... ORS 0 A1+FOURTHWD(2) 11 2QT_ ... ERS 0 A1+FOURTHWD(2) 15 2QW8 ...# UNSET BIT 8 7 2QWC ...NIRJ EXIT 4 0 6 2QWW X1ATTACHB 4 2RBG # 4 2RW6 # 21 2S*Q # CHECK FOR LINE BUSY OR ALREADY ATTACHED ; INHIBIT SCAN & PROFLAG 4 2STB # 13 2T*2 # AT THIS POINT THERE SHOULD BE IN 15 2TSL # AWORK1 NICHTS BESONDERES - CAN BE USED 10 2W#= # AWORK2 DCA ADDRESS 21 2WRW # AWORK3 B0-SET SOURCE IS REMOTE CONSOLE ON IPB,B0=0 IF SOURCE OP. 17 2X?G # B1-SET IPB ADRESSED B1=0 MPX/UPX ADRESSED 14 2XR6 # ZERO IF IT IS. MPX/UPX SYSTEM 20 2Y=Q # AWORK4 B0-B11 ACTUAL IDENTIFIER OR LINE NO B15-B23 GEOGR NO 17 2YQB # IDF/COINF A1-B12-B23 ACTUAL LINE/IDENTIFIER NO 20 2_=2 # A2-B12-B23 LENGTH OF THE CONCEPTUAL NAME IN CHARS 13 2_PL # A3 ON -CONCEPTUAL NAME 17 329= # IDF/CONCEPT A1-B0-B11 ACTUAL IDENTIFIER OR LINE NO 4 32NW # 4 338G # 18 33N6 CALL 7 SEEK [FIND AMXOR/ALINES BLOCK 21 33YJ ... BRN RMESS1 [BLOCK ABSENT -UNIT IS MOPPED OFF 8 3493 ... CALL 7 TIPQ 15 34=# ... BRN NIPB1 [J IF NOT IPB 8 34?K ... SMO FX2 15 34#W ... LDX 3 AWORK1 [AMOP ADDR 10 34*3 ... SEGENTRY K41ATTACHB 6 34*8 ... NULL 8 34** ... LDX 0 BIT9 9 34*G ... ANDX 0 IPBSW(3) 9 34*M ... BNZ 0 VNOCON 10 34*S ... SEGENTRY K42ATTACHB 9 34B7 ... LDXC 0 IPBSW(3) 16 34CD ... BCC NIPB1 [J IF NOT INOP 8 34DP ... SMO FX2 9 34G2 ... LDEX 7 AWORK4 8 34H? ... OUTNUM 7,0 9 34JJ ... ZERRORX JAHCINOP 5 34KT ...NIPB1 11 34MB LDCH 4 A1+FOURTHWD(2) 7 3572 LDX 0 4 18 35LL ANDN 0 #10 [BEING MOPPED OFF-B2 SET 8 366= BNZ 0 RMESS 11 369B ... LDX 0 A1+FOURTHWD(2) 8 36#G ... ANDN 0 #17 8 36CL ... SBN 0 13 8 36GQ ... BZE 0 XERL 7 36KW LDX 0 4 8 375G ANDN 0 #22 7 37K6 SRC 0 2 19 384Q BNG 0 NOLIN [B4 SET : CPA BEING SET UP 18 388M ... BNZ 0 TECHA [B1 SET ATTACHED ALREADY 8 38#J ... CALL 7 TIPQ 15 38DF ... BRN NIPB2 [J IF NOT IPB 7 38JB ... LDCT 0 1 11 38N? ... ANDX 0 A1+FOURTHWD(2) 16 38S8 ... BNZ 0 NOLIN [BUSY IF B8 SET 5 38Y5 ...NIPB2 10 3942 LDX 1 A1+BPTR(2) 18 39HL BZE 1 NOTBU [LINE/IDENTIFIER NOT'BUSY 11 3=3= LDEX 0 A1+FOURTHWD(2) 8 3=GW SMO FX2 9 3?2G LDX 5 AWORK3 7 3?G6 SLL 5 1 8 3?_Q BPZ 5 UZ2 16 3*Y= ... BZE 0 NOLINA [IDENTIFIER BUSY 7 3BCW SBN 0 5 9 3BXG ... BNZ 0 NOLINA 8 3CC6 BRN XAT 4 3CWQ # 4 3DBB # 8 3DW2 UZ2 ANDN 0 #77 9 3FT= ERN 0 ASENTMACH 21 3G#W BZE 0 XAT [ATTACH SENTINEL LINE AUTOMATICALLY 12 3GSG ERN 0 ASENTMACH$APCTMACH 18 3H#6 BNZ 0 NOLIN [MOP CONSOLE : LINE BUSY 9 3HRQ SBN 1 A1+FPTR 19 3J?B ATT7020 NOLIN,XAT [CHECK WHETHER POLLING IDLY 4 3JR2 # 4 3K=L # 20 3KQ= NOTBU ANDN 4 #73 [UNSET B3 IF SET TO INAIBIT SCAN 8 3L9W SMO FX2 9 3LPG LDX 0 AWORK3 7 3M96 SLL 0 1 20 3MNQ BPZ 0 RSMX [J IF NOT IPB ADRESSED-IDENTIFIER 7 3N8B LDCT 0 1 11 3NN2 ORS 0 A1+FOURTHWD(2) 11 3P7L DCH 4 A1+FOURTHWD(2) 8 3PM= BRN XAT 21 3Q6W RSMX ORN 4 #40 [SET B0 TO INHIBIT PROFLAG FOR LINES 11 3QLG DCH 4 A1+FOURTHWD(2) 4 3R66 # 4 3RKQ # 4 3S5B # 21 3SK2 ...XAT ATTACH XBROKE,NOEX,ONAL,NOLAV,TACH,TOOL,(GEOERR),ZOLREL [DOWN 4 3T4L # 4 3TJ= # 17 3W3W RETES CALL 7 SEEK [FIND ALINES BLOCK 19 3WHG BRN RMESS [ABSENT-MOPPED OFF MESSAGE 20 3X36 LDCH 0 A1+FOURTHWD(2) [OR WHEN BEING MOPPED OFF-ERROR 7 3XGQ LDX 4 0 7 3Y2B SRC 0 4 17 3YG2 BNG 0 RMESS [B2 SET -MOPPING OFF 15 3Y_L ORN 4 #20 [SET BIT 1 8 3_F= SMO FX2 9 3_YW LDX 7 AWORK3 7 42DG SLL 7 1 18 42Y6 BNG 7 REST [J IF IPB IDE ADRESSED 21 43CQ ANDN 4 #37 [FOR MPX UNSET B0 TO RELEASE PROFLAG 11 43XB DCH 4 A1+FOURTHWD(2) 8 44C2 BRN OMES 4 44WL # 4 45B= # 11 45TW REST DCH 4 A1+FOURTHWD(2) 11 46*G ... LDX 4 A1+FOURTHWD(2) 7 47#Q LDCH 0 4 7 48#2 SBN 0 5 8 48RL BZE 0 OMES 6 48T* ...#UNS ISUMBI 4 48X4 ...( 7 48YR ... SLC 4 7 8 492G ... BNG 4 OMES 7 4949 ... SLC 4 2 4 495Y ...) 6 497M ...#UNS ISUMBI 4 499B ...#SKI 7 49?= SLC 4 9 19 49QW BNG 4 OMES [IDENTIFIER ALREADY CLOSED? 8 49Y4 ... LDX 0 BIT10 11 4=5= ... ORS 0 A1+FOURTHWD(2) 19 4==G LDN 0 #127 [CRASH CLOSE SUPERVISORY SEG 8 4=Q6 CALL 7 RCOUT 15 4?9Q ...RI14 CALL 4 WTCC [WIT 4 SECS 8 4?PB ... BRN ZDHNL 11 4#92 LDX 0 A1+FOURTHWD(2) 17 4#NL SLC 0 9 [CLOSE IMPLEMENTED? 20 4*8= BNG 0 RI13 [IF NOT WAIT 4SECS AND TRY AGAIN 16 4*MW ... BRN WTCCA [RETURN TO WAIT 14 4BM6 RI13 SRC 0 4 [ONLINED? 17 4C6Q BNG 0 OMES [IF CL ONLINE ENDCOM 8 4CLB LDX 0 BIT10 19 4D62 ORS 0 A1+FOURTHWD(2) [SET B10 TO INDICATE OPENING 16 4DKL LDN 0 #120 [OPEN SUPER SEG 8 4F5= CALL 7 RCOUT 8 4FJW ...RI15 CALL 4 WTCC 8 4G4G ... BRN ZDHNL 15 4GJ6 LDX 0 A1+FOURTHWD(2) [IDE OPENED? 7 4H3Q SLC 0 9 8 4HHB BPZ 0 RI16 8 4J32 ... BRN WTCCA 17 4K2= RI16 SRC 0 4 [IF CL ONLINED ENDCOM 8 4KFW BNG 0 OMES 15 4K_G LDN 0 #121 [START INPUT 8 4LF6 CALL 7 RCOUT 4 4LYQ # 7 4MDB OMES STOZ 6 7 4MJS ...RJOUR LDX 5 6 19 4MP= ...# SAVE X6 THROUGH SUBROUTINE 8 4MTN ... CALL 4 ZCL8 18 4N26 ...# CLEAR BIT 8 IN 4W FOR IPB 7 4N6J ... LDX 6 5 10 4N?2 ... ACROSS ATTJOUNL,1 4 4NCL # 4 4NX= # 6 4PBW URET ENDCOM 4 4PWG # 4 4QB6 # 9 4QTQ ONAL LDX 0 AWORK3(2) 7 4R*B SLL 0 1 8 4RT2 BNG 0 ZNIPB 16 4S#L ACROSS ATTACHC,5 [IF MPX CL ONLINE 4 4SS= # 4 4T?W # 4 4TRG # 6 4TWL ...#UNS ICT 9 4T_Q ...RCOOR COOR3 ADEVLIN 6 4W4W ...#UNS ICT 4 4W82 ...#SKI 6 4W?6 RCOOR COOR2 4 4WQQ # 4 4X=B # 21 4XQ2 # THIS ENTRY ATTACHES AN IDENTIFIER TO A CONCEPTUAL WHICH ALREADY 9 4Y9L # HAS BEEN ONLINED 4 4YP= # 6 4_8W X3ATTACHB 8 4_NG ZNIPB CALL 7 SEEK 16 5286 BRN RCOOR [IF IPB CL ONLINE 11 52?= ... LDX 0 A1+FOURTHWD(2) 8 52BB ... ANDN 0 #17 8 52FG ... SBN 0 13 8 52JL ... BZE 0 XERL 11 52MQ LDX 0 A1+FOURTHWD(2) 8 537B ANDN 0 #77 7 53M2 SBN 0 5 8 546L BNZ 0 XQ1 8 54L= LDCT 0 #201 11 555W ORS 0 A1+FOURTHWD(2) 10 556K ... LDX 2 A1+BPTR(2) 8 557# ... BZE 2 XQ1 8 5583 ... SBN 2 A1 9 558Q ... LDX 0 ATYPE(2) 8 559F ... SRL 0 12 8 55=8 ... SMO FX1 9 55=X ... TXU 0 TYPDCB 16 55?L ... BCS RCH1 [J IF NOT ADCB 5 55#* ...SHUNT 9 55*4 ... LDX 2 BPTR(2) 9 55*R ... LDX 0 ATYPE(2) 17 55BG ... BPZ 0 SHUNT [J. IF NOT ACTIVITY 7 55C9 ... SLC 0 1 17 55CY ... BPZ 0 SHUNT [J. IF NOT ACTIVITY 7 55DM ... SRC 0 1 8 55FB ... SRL 0 12 8 55G5 ... SMO FX1 9 55GS ... TXU 0 TYPCONS 18 55HH ... BCS RCH1 [J. IF NOT CONSA/I7023 17 55J= ... FPUT [WAKE UP CONSA/I7023 14 55M4 ... CALL 4 WTCC [SEND MSG 15 55PW ... BRN ZDHOL [J IF AH CANCELLED 10 55SN ... LDX 0 A1+BPTR(2) 16 55XG ... BZE 0 RCH1 [J IF NO LONGER RINGED 13 562# ... BRN WTCCA [J TO WAIT 8 5656 XQ1 LDCT 0 #211 17 56JQ ORS 0 A1+FOURTHWD(2) [SET BITS 1 ,5 AND 8 6 56L_ ...#UNS ISUMBI 4 56P8 ...( 8 56RC ... LDN 0 #40 11 56TL ... ANDX 0 A1+FOURTHWD(2) 8 56XT ... BNZ 0 RCH1 4 5724 ...) 8 572D ... LDX 0 BIT9 11 572S ... ANDX 0 A1+FOURTHWD(2) 17 5738 ... BNZ 0 RCH1 [J IF ALREADY CLOSED 8 573J ... LDX 0 BIT10 11 573Y ... ORS 0 A1+FOURTHWD(2) 14 574B LDN 0 #126 [CLOSE 8 57J2 CALL 7 RCOUT 8 583L ...RCH1 CALL 4 WTCC 18 58H= ... BRN ZDHOL [J IF NO LONGER ATTACHED 18 592W LDX 0 A1+FOURTHWD(2) [CRASH CLOSE IMPLEMENTED 7 59GG SLC 0 9 8 5=26 BNG 0 RCH2 8 5=5F ... BRN WTCCA 8 5=8S ...ZDHOL SMO FX2 9 5=#7 ... LDX 7 AWORK4 7 5=CG ... LDEX 0 7 16 5=GT ... BZE 0 XGONE [J IF NOT COMMAND 8 5=L8 ... SMO FX2 9 5=PH ... LDX 0 CONTEXT 8 5=SW ... ANDN 0 #20 16 5=Y9 ... BZE 0 XGONE [J IF MOP ATTACH 15 5?3J ... SRL 7 12 [IDENT NUMBER 8 5?6X ... OUTNUM 7,0 9 5?== ... ERROR JAHCCLIN 8 5?*K ... BRN XGONE 11 5?F2 RCH2 SETNCORE 3,1,AMXOR,ICONIN 15 5?YL HUNT2J 1,AMXOR,CROUTE,AWORK1(2),XGONE 10 5#D= HUNTW 3,IDF,COINF 21 5#XW LDX 0 ANUM(3) [CHECK WHETHER THE CONCEPTUAL NAME 20 5*CG ADN 0 3 [IN CROUTE CORRESPONDS TO THE ONE 14 5*X6 SRL 0 2 [IN COINF 7 5BBQ SBN 0 2 20 5BWB LDEX 4 ARINGNO(1) [NO. OF ENTRIES IN CROUTE BLOCK. 8 5CB2 LDX 6 ACES 8 5CTL LDX 7 ACES 20 5D*= LDX 5 APARA(3) [PICK UP NAME WE'RE LOOKING FOR 20 5DSW BNG 0 SATE [(SPACEFILLED TO 12 CHARACTERS). 10 5F#G LDX 6 APARA+1(3) 8 5FS6 BZE 0 SATE 10 5G?Q LDX 7 APARA+2(3) 20 5GRB SATE TXU 5 A1+CONNM(1) [TEST NAME AGAINST THIS ENTRY. 10 5H?2 TXU 6 A1+CONNM+1(1) 10 5HQL TXU 7 A1+CONNM+2(1) 15 5J== BCC SOK [J. IF FOUND. 19 5JPW ADN 1 CROUTELEN [OTHERWISE STEP ON TO NEXT. 8 5K9G BCT 4 SATE 8 5K#F ...XGONE CALL 7 SEEK 8 5KFJ ... BRN RNDV 18 5KG? ... SEGENTRY K91ATTACHB [MENDED BY RETAINAH MACRO 9 5KH2 ... LDN 0 AHRETREL 19 5KHP ... BZE 0 WCLAH [J IF AH CANCELLED BY RELEASE 18 5KJD ... LDCT 0 #11 [CLEAR ONLINE AND BIT 8 8 5KK7 ... BRN WCLBT 5 5KKW ...WCLAH 8 5KLM ... LDCT 0 #211 11 5KTW ...WCLBT ORS 0 A1+FOURTHWD(2) 11 5L55 ... ERS 0 A1+FOURTHWD(2) 8 5L## ...RNDV LDX 2 FX2 9 5LHH ... LDX 7 AWORK4(2) 8 5M37 ... SRL 7 12 17 5MGR ... SETIDENT AWORK1(2),7 [REINITIALISE IDENT 8 5N2C ... BRN Z3 5 5N5N ...NOSTAT 13 5N8_ ... COOR3 #62 [WAIT 8 5N#= ... LDX 2 FX2 15 5NCH ... HUNT2J 1,AMXOR,CROUTE,AWORK1(2),XGONE 10 5NGS ... HUNTW 3,IDF,COINF 20 5NL5 ... SBX 1 5 [X1 PTS TO CSTATE RING IN CROUTE 18 5NPB ...SOK LDX 5 BSTART(1) [SAVE CROUTE DISPLACEMENT 10 5NSM ... LDX 0 A1+BPTR(1) 16 5NXY ... BZE 0 NOSTAT [J IF NOT RINGED 20 5P39 ... LDX 1 A1+FPTR(1) [X1 PTS TO CROUTE RING IN CSTATE 19 5P6G ADX 1 BSTART(1) [POINTER TO THE TOP OF CSTATE 8 5P=C ... LDCT 0 #200 11 5PB# ... ANDX 0 A1+IPSTATUS(1) 8 5PG9 ... BNZ 0 XGONE 18 5PL6 LDX 1 A1+FPTR(1) [POINTER TO A1 OF CONDCB 7 5Q5Q LDX 5 1 17 5QKB LDX 0 JPARNUM(3) [CONCEP IDENTIFIER NO 8 5R52 SRL 0 12 21 5RJL SBX 0 IDNUM(1) [MINUS LOWEST IDE -1 ON THE CONCEPTUA 8 5S4= SMO FX1 21 5SHW MPA 0 RIDICON [CONDCBLEN-ABS.POINTER TO AN ENTRY 14 5T3G [IN X1 10 5TH6 LDX 6 JPARNUM(3) 8 5W2Q ANDN 6 #7777 9 5W*7 ... TXU 6 IDNUM(1) 18 5WMJ ... BCS XGONE [J IF NO LONGER ATTACHED 18 5X22 CALL 7 SEEK [FIND AGAIN ADEVS ENTRY 8 5XFL ... BRN RNDV 7 5X_= LDN 6 1 8 5YDW SMO FX2 9 5YYG LDX 0 AWORK1 19 5_D6 STO 0 IDADIN(1) [STORE IPBIN ADDR IN CONDCB 11 5_XQ LDX 0 A1+FOURTHWD(2) 8 62CB BPZ 0 Z2 8 62X2 ORN 6 #4000 19 63BL Z2 ORS 6 IDSTATUS(1) [SET RELEVANT BITS IN CONDCB 8 63FQ ... LDCT 0 #11 11 63JW ... ORS 0 A1+FOURTHWD(2) 7 63LD ... LDCT 0 1 15 63N2 ... ERS 0 A1+FOURTHWD(2) [UNSET BIT 8 16 63R6 ... STOZ IDSTATUS+1(1) [UNSET CM CT ETC 20 644G ... RING2CHK A1(2),0(1) [ENRING ADEVS AND CONDCB ENTRIES 10 64*W IPBCOUNT 0,IDADIN(1),2 10 64TG ORS 0 IDSTATUS(1) 11 65*6 HUNTW 2,AMXOR,ICONIN 19 65SQ SMO BSTART(1) [CHECK CONCEP. IS RUNNING. 11 66#B LDX 0 A1+IDSTATUS(1) 7 66S2 SLL 0 4 8 67?L BPZ 0 Z4 7 67R= FREECORE 2 8 68=W BRN Z3 8 68QG Z4 LDX 0 GSIGN 9 69=6 STO 0 IBSW(2) 8 69PQ LDCT 0 #141 7 6=9B SRL 0 3 9 6=P2 LDX 6 IDNUM(1) 18 6?8L ORX 0 6 [IDE.FREE + ACT IDE.NO 9 6?N= STO 0 IPBIDE(2) 19 6#7W SBN 5 A1 [CHAIN ICONIN IN FRONT OF THE 14 6#MG SMO 5 [CONDCB 8 6*76 LDX 6 BPTR 8 6*LQ CHAIN 2,6 3 6*RH ... 7 6*Y# ...Z5 LDX 2 5 9 6B55 ...Z6 LDX 2 BPTR(2) 9 6B9W ... LDX 0 ATYPE(2) 8 6BBM ... TXL 0 CACT 8 6BHD ... BCS Z6 8 6BN9 ... SRL 0 12 10 6BT2 ... SBN 0 AMOP+IPBCCA 8 6B_R ... BZE 0 Z7 8 6C6J ... COOR3 #62 8 6C87 ... CALL 7 SEEK 8 6C9Q ... BRN RMESS 10 6C?* ... LDX 2 A1+FPTR(2) 9 6C#Y ... ADX 2 BSTART(2) 8 6CBH ... BRN Z6 7 6CD6 ...Z7 LDN 0 3 19 6CK= ADS 0 INLOAD(2) [ADD 3 TO THE OVERLOAD COUNT 8 6D4W LDX 2 FX2 9 6D=4 ...Z3 LDEX 0 AWORK4(2) 17 6DC= ... BNZ 0 NZUI [J IF ATTACH COMMAND 9 6DD5 ... FSHCODE B,NOKILLA 4 6DDY ...( 7 6DFR ... FSHKILL 5 6DGL ...NOKILLA 4 6DHF ...) 7 6DJD ... SUICIDE 4 6DPL ...NZUI 10 6DWS ... LDX 0 CONTEXT(2) 8 6F4Q ... ANDN 0 #10 16 6F=N ... BNZ 0 ZACLT [J IF MOP ATTACH 20 6FDL ... TERROR URET [JUST ENDCOM IF HAD ERROR MESSAGE 8 6FLW ... BRN OMES 21 6FT6 ...[ ACCROSS TO ATTJOUNL TO SEND ATTACHED 16 6G3B ZACLT ACROSS LOGOUT,7 [FOR MOP ATTACH 4 6GH2 # 4 6H2L # 4 6HG= # 4 6H_W # 21 6JFG # VARIOUS COMMAND ERRORS ; RELEASE PROFLAG IF ATTACH UNSUCCESSFUL 4 6J_6 # 17 6KDQ UNCAL CALL 7 SEEK [FIND ALINES BLOCK 14 6KYB BRN RMESS [ABSENT 8 6LD2 LDCT 0 #400 11 6LXL ANDX 0 A1+FOURTHWD(2) 17 6MC= ERS 0 A1+FOURTHWD(2) [UNSET BIT 0 IF SET 8 6MJD ... TERROR URET 21 6MPL ...[ J IF XATTACH ALREADY SENT ERROR MESS 7 6MWW ZERRORY 4 6NBG # 5 6NDD ...RMESS1 8 6NGB ... LDN 7 #10 8 6NJ# ... SMO FX2 9 6NL= ... ANDX 7 CONTEXT 8 6NN8 ... BNZ 7 ZACLT 7 6NQ6 ... LDN 6 7 8 6NS4 ... BRN RJOUR 8 6NW6 RMESS LDN 7 #10 8 6P*Q SMO FX2 9 6PTB ANDX 7 CONTEXT 8 6Q*2 BNZ 7 ZACLT 7 6QSL LDN 6 1 8 6R#= BRN RJOUR 4 6RRW # 4 6S?G # 9 6SR6 RESV3 GEOERR 1,RESV3 9 6T=Q REJOP GEOERR 1,REJOP 4 6TQB # 21 6W=2 RCHYB ZERRORX CONOALVICO [THIS COMMAND IS NOT ALLOWED VIA THIS 17 6WPL [TYPE OF CONNECTION 4 6X9= # 5 6XNW XBROKE 7 6Y8G ABANDCOM 8 6YN6 SMO FX2 14 6_7Q LDX 0 AWORK3 [J IF IPB 7 6_MB SLL 0 1 8 7272 BNG 0 RUSA 8 72LL CALL 1 UNCAL 19 736= +CONNOTEX [CONCEPTUAL DOES NOT EXIST 9 73KW RUSA ZERRORX CONNOTEX 4 745G # 10 74K6 NOLAV MHUNT 3,IDF,COINF 9 754Q LDX 4 ANUM(3) 8 75JB ANDN 4 #7777 11 7642 OUTPARAM 4,APARA,IDF,COINF 7 76?S ... OUTNULL 9 76HL LDX 0 AWORK3(2) 7 773= SLL 0 1 8 77GW BNG 0 UI2 8 782G CALL 1 UNCAL 9 78G6 +CONFULL 8 78SH ...UI2 CALL 4 ZCL8 9 796Y ... ZERRORX CIPBFULL 19 79FB +CONFULL [NO CONCEP LINES AVAILABLE 4 79_2 # 8 7=2? ...TECHA CALL 7 TIPQ 15 7=3J ... BRN TECH [J IF NOT IPB 8 7=4T ... LDCT 0 #10 11 7=66 ... ANDX 0 A1+FOURTHWD(2) 16 7=7C ... BZE 0 TECH [J IF B5 NOT SET 10 7=8N ... LDX 0 A1+BPTR(2) 16 7=9_ ... BZE 0 TECH [J IF RING NULL 8 7=?= ... LDN 0 #400 10 7=#H ... SMO A1+BPTR(2) 9 7=*S ... ANDX 0 IDSTATUS 20 7=C5 ... BNZ 0 NOLIN [BUSY NOT ATTACHED IF CC AH SET 7 7=DL TECH LDN 6 2 5 7=R3 ...RJLEAVE8 10 7?5D ... ACROSS ATTJOUNL,1 4 7?CW # 7 7?XG TACH LDN 6 3 8 7#C6 BRN RJOUR 4 7#WQ # 8 7*BB UNX CALL 1 UNCAL 18 7*W2 +CONUNTAL [UNIT ALREADY ATTACHED 4 7B*L # 7 7BT= TOOL LDN 6 4 8 7C#W BRN RJOUR 5 7CCF ...VNOCON 8 7CG4 ... SMO FX2 9 7CJM ... LDEX 7 AWORK4 8 7CM= ... OUTNUM 7,0 9 7CPT ... ZERRORX AV7900Y 4 7CSG # 7 7D#6 NOLIN LDN 6 5 8 7D*F ... CALL 7 TIPQ 15 7DBS ... BRN RJOUR [J IF NOT IPB 8 7DD7 ... LDX 2 FX2 15 7DFG ... LDX 3 AWORK1(2) [AMOP ADDR 8 7DGT ... LDCT 0 #200 10 7DJ8 ... SMO IPBRING(3) 10 7DKH ... ANDX 0 IPBSW-IPBRING 18 7DLW ... BZE 0 RJLEAVE8 [J IF NOT OVERLOADED 9 7DN9 ... LDX 6 AWORK4(2) 14 7DPJ ... LDEX 7 6 [GEOG NO. 7 7DQX ... LDN 5 4 7 7DS= ... OUTBLOCK 5 15 7DTK ... SRL 6 12 [IDENT NO. 8 7DWY ... OUTNUM 6,0 8 7DY? ... OUTNUM 7,0 9 7D_L ... ZERRORX JAHLIOV 5 7F2_ ...NOLINA 8 7F4# ... LDX 2 FX2 9 7F5M ... LDX 6 AWORK4(2) 15 7F72 ... SRL 6 12 [IDENT NO. 8 7F8* ... OUTNUM 6,0 9 7F9N ... ZERRORX JAHINU 4 7F?B # 8 7FR2 NOEX SMO FX2 9 7G=L LDX 0 AWORK3 7 7GQ= SLL 0 1 8 7H9W BNG 0 QUX1 8 7HPG CALL 1 UNCAL 19 7J96 +CONNOTEX [CONCEPTUAL DOES NOT EXIST 8 7J=T ...XERL LDX 2 FX2 9 7J#J ... LDX 6 AWORK4(2) 8 7JB? ... SRL 6 12 8 7JD2 ... OUTNUM 6,0 9 7JFP ... ZERRORX JAHERL 8 7JHH ...QUX1 CALL 4 ZCL8 21 7JNP ... TERROR URET [J IF XATTAXH ALREADYSENT ERROR MESSA 9 7JTY ... ZERRORX CONNOTEX 4 7K8B # 5 7K8_ ...ZOLREL 7 7K9J ... LDN 6 6 8 7K=7 ... BRN RJOUR 4 7K=Q ...[ 6 7K?* ...X4ATTACHB 8 7K?Y ... LDX 0 CACT 14 7K#H ... STO 0 AWORK3(2) [SHOW IPB 15 7K*6 ... STO 6 AWORK2(2) [AMOP ADDR 13 7K*P ... SETNCORE APARA+3-A1,3,IDF,COINF 10 7KB# ... MHUNTW 2,IDF,CONNAME 19 7KBX ... ADN 3 APARA [POINT TO ADDR OF CONCEP NAME 8 7KCG ... ADN 2 A1+1 15 7KD5 ... MOVE 2 3 [MOVE IN NAME 8 7KDN ... LDN 0 12 8 7KD_ ... SBN 3 APARA 9 7KF? ... STO 0 ANUM(3) 8 7KFW ... SBN 2 A1+1 8 7KGF ... LDX 0 A1(2) 8 7KH4 ... SLL 0 12 7 7KHM ... ORX 0 7 10 7KJT ... STO 0 JPARNUM(3) 17 7KKD ... FREECORE 2 [FREE CONNAME BLOCK 17 7KL3 ... SLL 7 12 [IDENT NO TO TOP HALF 21 7KLL ... STO 7 AWORK4(2) [TOP HALF ZERO TO SHOW NOT AH COMMAND 8 7KLQ ... CALL 7 SEEK 8 7KLW ... BRN XSUCS 11 7KM2 ... LDX 0 A1+FOURTHWD(2) 8 7KM6 ... ANDN 0 #17 7 7KM= ... SBN 0 5 9 7KMB ... BZE 0 X3ATTACHB 10 7KMG ... LDX 0 A1+BPTR(2) 9 7KML ... BZE 0 X3ATTACHB 7 7KMQ ...XSUCS SUICIDE 4 7KN2 # 4 7L7L # 11 7LM= MENDAREA 50,K100ATTACHB 4 7M6W # 4 7MLG # 4 7N66 # 4 7NKQ #END 2 7P5B 2 7PK2 2 7Q4L 8 ____ ...23206364000300000000