15 22BG ...#SEG MOPCOMB8 [A C PUTMAN 8 22R2 ...#OPT K0MOPCOMB=0 18 237G ...#LIS K0MOPCOMB>K0MOP>K0COMMAND>K0GREATGEO>K0ALLGEO 9 23J2 ... 8HMOPCOMB 4 23YG # 6 248# ...# K1MOPCOMB: 12 24D6 ...# DEALS WITH A MOP COMMAND FOR A 15 24MY ...# CHARACTER BUFFERING MULTIPLEXOR OR UNIPLEXOR 4 24XQ # 10 25CB ... SEGENTRY K1MOPCOMB,XK1 7 25R5 ...#UNS CCERROR 10 266S ... SEGENTRY K2MOPCOMB,XK2 21 26GH ...[ K2 ENTERED BY DOWN FROM MOPCOM TO DO 4 26W= # 5 27*W XLINES 8 27TG #HAL AMXOR+ALINES,0 4 29#B # 9 29S2 SCLNK LINK SCAN,2 9 2=?L PFLNK LINK PROFLAG,1 6 2=R= ...#UNS CRAMP 8 2?=W ...XLI 4HLI 4 2*9B # 9 2B8L PJMOP1 +JMOP1 6 2B*S ...#UNS CRAMP 4 2BH2 ...#SKI 9 2BN= PJMOP2 +JMOP2 9 2C7W PJMOP3 +JMOP3 6 2CHK ...#UNS CRAMP 4 2CX# ...( 20 2D?3 ...PJMOP5 +JMOP5 [MOP NOT ALLOWED DUE TO PREVIOUS 18 2DLQ ...# INCOMPLETED MOP COMMAND 20 2F2F ...PJMOP6 +JMOP6 [MOP NOT ALLOWED DUE TO ONLINE 15 2FB8 ...# CONCEPTUALS 4 2FPX ...) 9 2G5L PJRES +JRES1 10 2J46 ZGEO +JPDGEOPER 10 2JHQ ZSWI +JPDSWITCH 10 2K3B ZTRA +JPDTRANSCT 10 2KH2 ZFAI +JPDFAILCT 4 2PD2 # 19 2PXL ...T6A LDX 6 PJRES(1) [UNIT NOT IN REQUIRED STATE 8 2QC= NOOUT LDX 2 FX2 8 2QWW LGEOG ,5 8 2RBG OUTNUM 5,0 7 2RW6 PERR3 COMERRX 6 4 2X?G # 6 2XBL ...#UNS CRAMP 21 2XFQ ...T6B LDX 6 PJMOP5(1) [N/A DUE TO INCOMPLETED MOP COMMAND 6 2XJW ...#UNS CRAMP 4 2XN2 ...#SKI 19 2XR6 T6B LDX 6 PJMOP2(1) [MOP TEMPORARILY NOT ALLOWED 8 2Y=Q BRN T6 4 2YJG ...# 6 2YW= ...#UNS CRAMP 4 2_82 ...( 10 2_FQ ...T6D TESTRPN2 CONCONL,T6A 20 2_RG ... LDX 6 PJMOP6(1) [N/A DUE TO ONLINE CONCEPTUALS 8 325= ... BRN T6 4 32C2 ...) 4 32NW # 19 338G ...T7 LDX 6 PJMOP1(1) [UNIT ALREADY MOPPED ON/OFF 8 33N6 BRN T6 4 347Q # 7 34MB TAB ABANDCOM 4 3572 # 10 35LL TGERR GEOERR 1,NOALINES 4 366= ...# 9 36KW POUT STO 4 AWORK4(2) 7 375G LDN 4 5 16 37K6 LDN 3 1 [PARAMETER LENGTH 8 384Q OUTPACKX 4,3,7 9 38JB LDX 4 AWORK4(2) 7 3942 EXIT 4 0 4 39HL # 19 3=3= # SEARCH INTO X2 FOR THE BLOCK WHOSE TYPE IS IN AWORK3(FX2). 20 3=GW # START FROM CONTENTS OF X3, EXIT 0 IF NOT FOUND, EXIT 1 IF OK. 4 3?2G # 7 3?G6 SLINE LDX 2 3 9 3?_Q SLINF LDX 2 FPTR(2) 9 3#FB LDX 0 ATYPE(2) 9 3#_2 BXGE 0 CACT,(6) 8 3*DL SMO FX2 9 3*Y= TXU 0 AWORK3 8 3BCW BCS SLINF 7 3BXG EXIT 6 1 4 3CC6 # 20 3DW2 NBR SBX 6 FX1 [THIS MACRO HAS A LONG EXPANSION 7 3D_6 ...#UNS ENBREAKIN 10 3F4= ... NBREAKIN 1,5,,NBROK 7 3F7B ...#UNS ENBREAKIN 4 3F=G ...#SKI 8 3F*L NBREAKIN 1,5 19 3FT= SBN 6 1 [EXIT 0 IF BREAK-IN FAILED 5 3G54 ...NBROK 15 3G#W ADX 6 1 [OR +1 IF OK 7 3GSG EXIT 6 1 4 3HRQ # 4 3J?B ...XK1 10 4#NL LNLI CPPTR(3),7 18 4*8= LDX 0 XLINES(1) [SLOCK TYPE FOR PLEXORS 9 4*MW STO 7 AWORK2(2) 9 4B7G STO 0 AWORK3(2) 17 4BM6 BNG 4 ON2 [J. IF 'ON' SW. SET. 4 4C6Q # 21 4CLB # MOP OFF : CHECK NOT ALREADY OFF OR ONLINE ; STOP JOBS IF NECESSARY 4 4D62 # 18 4DKL CALL 6 SLINE [FIND AMXOR/ALINES BLOCK. 21 4F5= BRN T7 [BLOCK MISSING - ALREADY MOPPED OFF 10 4FJW JALLOC CPPTR(3),ZPX1 8 4G4G BRN ZPX 10 4GJ6 ZPX1 JONL CPPTR(3),T6A 6 4GK5 ...#UNS CRAMP 4 4GL4 ...#SKI 4 4GM3 ...( 8 4GN3 ...#UNS IDFMARK8>JSKI04 11 4GRY ...ZPX MOPOFF XBI,T6B,CPPTR(3) 9 4GXT ...#UNS IDFMARK8>JSKI04<1$1 10 4H3Q ZPX MOPOFF T6B,CPPTR(3) 4 4H4M ...) 6 4H5J ...#UNS CRAMP 4 4H6F ...( 9 4H7B ...#UNS IDFMARK8>JSKI04 11 4H8? ...ZPX MOPOFF XBI,T6D,CPPTR(3) 10 4H98 ...#UNS IDFMARK8>JSKI04<1$1 10 4H=5 ...ZPX MOPOFF T6D,CPPTR(3) 7 4H?2 ... LDN 5 2 8 4H?X ... SMO FX1 8 4H#S ... LDX 6 XLI 18 4H*P ... PARABEG 1,5 [LOOK FOR LI PARAMETER 10 4HBL ... MHUNT 1,CPB,CUNI 9 4HCH ... LDX 0 ANUM(1) 17 4HDD ... STO 0 AWORK4(2) [SET -VE IF ABSENT 7 4HF* ... FREECORE 1 4 4HG= ...) 9 4HHB RLOOP LDX 5 AWORK2(2) 7 4J32 SLL 5 2 7 4JGL LDN 4 1 16 4K2= ADX 4 AWORK2(2) [MPX LINE COUNT 18 4KFW NLINE CALL 6 SLINE [RELOCATE ALINES BLOCK 16 4K_G BRN TGERR [MISSING : GEOERR 18 4LF6 ADX 2 5 [POINT TO CURRENT RECORD 11 4LYQ LDCH 0 A1+FOURTHWD(2) 7 4MDB DCH 0 7 17 4MY2 ORN 7 #10 [SET B2 : MOPPING OFF 7 4NCL SRC 0 2 19 4NX= BNG 0 UPDAT [BIT 4 SET : CPA BEING SET UP 8 4PBW #SKI K6MOPCOM>99-99 4 4PWG ( 7 4QB6 SLC 0 1 19 4QTQ BPZ 0 NONL [BIT 5 NOT SET : NOT ONLINE 10 4R*B GEOERR 1,MOPOFFOL 4 4RT2 NONL 4 4S#L ) 10 4SS= LDX 1 A1+BPTR(2) 18 4T?W BZE 1 NOLCB [NO LINE CONTROL BLOCK 18 4TRG SBN 1 A1 [POINT TO START OF LCB 7 4W?6 LDCT 0 1 9 4WQQ ANDX 0 GWAIT(1) 21 4X=B BNZ 0 UPDAT [J. IF LCB MARKED 'BEING STOPPED'. 4 4XQ2 # 11 4Y9L LDX 0 A1+FOURTHWD(2) 18 4YP= ANDN 0 #77 [MASK FOR TERMINAL TYPE 9 4_8W SBN 0 ASENTMACH 17 4_NG BNZ 0 NOSEN [NOT SENTINEL LINE 9 5286 LDXC 0 GWAIT(1) 17 52MQ BCC UPDAT [CPA ALREADY ON LIST 9 537B STO 0 GWAIT(1) 9 53M2 HUNTACT AMOP,2,1 6 546L FPUT 8 54L= BRN SMARK 12 555W NOSEN ADN 0 ASENTMACH-APCTMACH 8 55KG BNZ 0 NOPCT 17 5656 ... OFF7020 [STOP 7020 ROUTINES 20 56JQ BRN OPCT [X2 NOT OVERWRITTEN BY OFF7020 21 574B NOPCT HUNTACT CPAT,1 [FIND CPA ASSOCIATED WITH THIS LCB 6 578? ...#UNS CRAMP 4 57#8 ...( 8 57D5 ... SMO FX2 9 57J2 ... LDX 0 AWORK4 20 57MX ... BPZ 0 ZLIM [J IF LIMBO PARAMETER SPECIFIED 4 57RS ...XNBR 4 57XP ...) 8 583L CALL 6 NBR 18 5?F2 BRN NSTOP [NOT CURRENTLY STOPPABLE. 18 5?YL SMARK CALL 6 SLINE [RELOCATE ALINES BLOCK 16 5#D= BRN TGERR [MISSING : GEOERR 20 5#XW ADX 2 5 [POINT TO CURRENT ALINES RECORD 21 5*CG OPCT LDX 1 A1+BPTR(2) [RESET X1 , OR MAYBE TRANSFER ENDED 17 5*X6 BZE 1 NOLCB [WHILE IN PROCONTX 7 5BBQ LDCT 0 1 18 5BWB ORS 0 GWAIT-A1(1) [MARK LCB 'BEING STOPPED' 16 5CB2 UPDAT SBN 5 4 [UPDATE MODIFIER 18 5CTL DCH 7 A1+FOURTHWD(2) [STORE IN ALINES RECORD 18 5D*= BPZ 5 NLINE [NOT ALL LINES LOOKED AT 19 5DSW LDN 6 2 [SCAN COMPLETED: SET COUNT. 21 5F#G WATE COOR4 #62 [GETS WOKEN UP EVERY FONINTP SECONDS. 18 5FS6 BCT 6 WATE [CONTINUE AFTER 4-8 SECS. 20 5G?Q BRN RLOOP [J. TO RESET CT. FOR NEXT SCAN. 4 5G*7 ...# 6 5GBJ ...#UNS CRAMP 4 5GC_ ...( 4 5GFB ...ZLIM 15 5GGR ... BRUSEN XNBR,1 [J IF NO USER 9 5GJ8 ... LDX 6 JOBNO(1) 18 5GKK ... DOWN PROCONTX,21 [TRY TO SEND INTO LIMBO 18 5GM2 ... BRN NSTOP [NOT CURRENTLY POSSIBLE 18 5GNC ... BRN SMARK [BEING SENT INTO LIMBO 4 5GPS ...) 4 5GRB # 16 5H?2 NSTOP CALL 6 SLINE [RESET POINTER. 8 5HQL BRN TGERR 7 5J== ADX 2 5 17 5JPW LDX 1 A1+BPTR(2) [J. IF STILL BUSY. 8 5K9G BNZ 1 UPDAT 19 5KP6 NOLCB ANDN 7 #73 [CLEAR B3 IF SET TO STOP SCAN 19 5L8Q ORN 7 #40 [SET B0 TO INHIBIT PROFLAG 17 5LNB BCT 4 UPDAT [UPDATE STOPPED COUNT 9 5M82 DISENGPE CPPTR(3) 10 5MML LGEOG CPPTR(3),4 16 5N7= CALL 6 SLINE [RELOCATE & FREE 16 5NLW BRN TGERR [MISSING : GEOERR 17 5P6G FREECORE 2 [AMXOR/ALINES BLOCK. 4 5Q5Q # 19 8TP= WNDP LONGON #30 [WAKE UP WAITING ACTIVITIES 7 8W8W CLALLOC 8 8WNG BRN WNDUP 4 93JQ # 21 944B # MOP ON COMMAND : CHECK ALREADY MOPPED OFF , RIGHTED & NOT ONLINE 4 94J2 # 4 953L # 19 95H= ON2 CALL 6 SLINE [LOOK FOR AMXOR/ALINES BLOCK. 15 962W BRN SCID [ABSENT : OK. 21 96GG ADX 2 ALOGLEN(2) [PRESENT : CHECK IF ALREADY MOPPED ON 20 9726 LDCH 0 A1+FOURTHWD-4(2) [MOP OFF MARKS LAST ALINES RECORD 16 97FQ ANDN 0 #10 [FIRST ; CHECK B2 19 97_B BZE 0 T7 [CLEAR : MOPPED ON ALREADY 19 98F2 ... BRN T6B [SET ; MOP ON NOT ALLOWED 10 98YL SCID JONL CPPTR(3),T6A 7 994H ...#UNS IDFMARK8 11 998D ... MOPON XBI,T6A,CPPTR(3) 8 99#* ...#UNS IDFMARK8<1$1 10 99D= MOPON T6A,CPPTR(3) 20 99XW SCAL CALL 6 SLINE [HAS AN ALINES BLOCK APPEARED? 16 9=CG BRN NOBL [NO : CONTINUE 9 9=X6 LONGHALT TAB,#30 8 9?BQ BRN SCAL 7 9?WB NOBL ADN 7 1 7 9#B2 LDX 4 7 16 9#TL SLL 4 2 [LENGTH OF BLOCK 12 9**= SETXCORE 4,2,AMXOR,ALINES,,7,4 19 9*SW LDX 1 2 [INITIALISE NEW ALINES BLOCK 9 9B#G ADN 1 A1+BPTR 7 9BS6 LDN 0 4 16 9C?Q LDN 4 0 [ZEROISE BPTRS 15 9CRB NGN 5 A1 [FOR BSTARTS 16 9D?2 LDCT 6 #40 [B3 OF FOURTHWDS 7 9DQL TOP MOVE 0 3 7 9F== ADN 1 4 7 9FPW SBN 5 4 8 9G9G BCT 7 TOP 6 9GBN ...#SKI ICT 19 9GHW ... FON ADEVLIN [START ACTIVITIES WAITING FOR ADEVS 11 9GLG ... MHUNTW 2,AMXOR,ALINES 8 9GP6 SMO FX2 18 9H8Q LDX 4 AWORK2 [LINE COUNT , ZERO IF UPX 21 9HNB BZE 4 UNAML [FOR MPX , FIRST ENTRY IS SPURIOUS 17 9J82 STOZ A1+FOURTHWD(2) [SO ZEROISE FOURTHWD 18 9JML UNAML CHAIN 2,3 [CHAIN ALINES AFTER AMOP 18 9K7= GETACT AMSCAN,AMXTYPE [GET SCANNING ACTIVITY. 17 9KLW LDX 2 3 [PUT AMOP ON LIST. 6 9L6G FPUT 18 9LL6 LDX 2 BPTR(2) [POINT TO AMSCAN BLOCK 10 9M5Q STO 3 AMOPADDR(2) 10 9MKB LINKSET 2,SCLNK(1) 10 9N52 LINKSET 3,PFLNK(1) 4 =6=6 # 8 =6PQ ON4 LDX 2 FX2 9 =79B REP1 LDX 3 FPTR(2) 19 =7P2 REP2 LDX 0 ATYPE(3) [CHAIN ANY IDF TYPE BLOCKS 17 =88L BXGE 0 CACT,REP3 [THE NEW ACTIVITY. 9 =8N= LDCH 6 ATYPE(3) 9 =97W SBN 6 IDF/64 9 =9MG LDX 3 FPTR(3) 8 ==76 BNZ 6 REP2 11 ==LQ CHAIN BPTR(3),BPTR(2) 8 =?6B BRN REP2 4 =?L2 # 17 =#5L REP3 ORX 4 GSIGN [RESET 'ON' SWITCH 7 =#K= SETALLOC 9 =*4W WNDUP LDX 6 PJMOP3(1) 8 =*JG T6 LDX 2 FX2 7 =B46 OUTBLOCN 8 8 =BHQ BPZ 4 NOTCL 9 =C3B CLCOUNT ,GEORGE 8 =CH2 CLCOUNT ,FAIL 7 =D2L NOTCL LDXC 4 4 7 =DG= LDN 5 0 7 =DHD ...#SKI JWPHASE4 4 =DJL ...( 9 =DKS ... LDX 4 PJMOP3(1) 15 =DM2 ... SBX 4 6 [J IF NOT MOP 17 =DN8 ... BNZ 4 NOTCOMP [COMPLETED MESSAGE 17 =DPB ... LGEOG ,7 [GEOGRAPHIC NUMBER 7 =DQJ ... LDX 4 5 8 =DRQ ... SLL 4 11 17 =DSY ... ORX 7 4 [ADD MOP ON/OFF BIT 18 =DW6 ... HLSINFORM XBI,MOP,,7 [INFORM HLS OF MOP EVENT 5 =DX# ...NOTCOMP 4 =DYG ...) 9 =D_W LDX 7 ZSWI(1) 17 =FFG CALL 4 POUT [OUTPUT SUBMESSAGE 8 =F_6 LGEOG ,5 8 =GDQ GEOPACK 5,5,1 9 =GYB LDX 7 ZGEO(1) 16 =HD2 CALL 4 POUT [OUTPUT GEOG. NO. 9 =HXL LDX 4 PJMOP3(1) 17 =JC= SBX 4 6 [MOP COMPLETE MESSAGE 14 =JWW BNZ 4 NTNF [-> NO 8 =KBG LGPERIS ,5 8 =KW6 BZE 5 NTNF 9 =L*Q LDX 7 ZTRA(1) 18 =LTB CALL 4 POUT [OUTPUT TRANSFER COUNT 8 =M*2 LFAILS ,5 8 =MSL BZE 5 NTNF 9 =N#= LDX 7 ZFAI(1) 17 =NRW CALL 4 POUT [OUTPUT FAIL COUNT 4 =P?G NTNF 7 =PR6 MARKAXES 18 =Q=Q INFORMX ,6,1 [MESSAGE TO OPERATORS. 6 =QQB NFERR ENDCOM 7 =QRR ...#UNS CCERROR 4 =QT8 ...( 4 =QWK ...[ 4 =QY2 ...XK2 19 =Q_C ... FINDACTNO 1,ACOMMUNE9(2),ZUP [FIND ACT TO BE BROKEN IN ON 15 =R2S ... CALL 6 NBR [AND BREAK IN 18 =R49 ... BRN ZUP [GO UP IF NBREAKIN DID 16 =R5L ...ZUP1 UPPLUS 1 [ELSE UPPLUS 1 5 =R73 ...ZUP UP 4 =R8D ...) 4 =R=2 # 17 =RJB ...XBI GEOERR 1,BREAKIN! [CANT HAVE BREAK-IN 8 =RPL #SKI K6MOPCOM>99-99 4 =S9= ( 11 =SNW ... MENDAREA 50,K100MOPCOMB 4 =T8G ) 4 =TN6 #END 8 ____ ...55166463000200000000