10 22FL SEG ONLINCL,,JOHN BAILEY 8 22PD ...#OPT K0ONLINCL=0 8 22_= ...#OPT CONTROL=#34 14 2394 ...#LIS K0ONLINCL>K0ONLINE>K0COMMAND>K0ALLGEO 9 23DW 8HONLINCL 4 23YG # 5 24D6 #SKI G3 12 24XQ SEGENTRY K1ONLINCL,SK1ONLINCL 12 25CB SEGENTRY K2ONLINCL,SK2ONLINCL 4 25X2 # 4 28*6 # 16 28SQ # THIS CHAPTER IS ENTERED BY ACROSSES FROM ONLINEB 19 29#B # K1 ONLINES A CONCEPTUAL MPX OR UPX ; IT SETS UP A NEW OLPA 20 29S2 # K2 ONLINES A CONCEPTUAL IPB ; IT SETS NEW OLPA AND AMOP/IPBCCA 4 2=?L # 9 2=R= NAMCL #43540000 10 2?=W RECCON +CONRECLEN 7 2?GN ... FSHSKIP 9 2?QG TBLIC PAIR IPBCCA,1 8 2?TL ... FSHCODE AORB 4 2?YQ ...( 9 2#3W ...TBLIC PAIR IPBCCC,4 4 2#72 ...) 9 2#=6 TBLIP PAIR CONIPB,1 5 2#PQ #SKI G3 9 2*9B TBLMX PAIR CONMXA,1 5 2*P2 XADEVS 8 2B8L #HAL AMXOR+ADEVS,0 5 2BN= XALINES 8 2C7W #HAL AMXOR+ALINES,0 5 2CMG XCROUTE 8 2D76 #HAL AMXOR+CROUTE,0 18 2DBY ...ZADE #77657777 [TO UNSET BITS 8 AND 10 4 2DLQ # 21 2F6B # SET UP OLPA WITH CONCEPTUAL NAME , JOB NO. ETC AND MARK IN PRB. 4 2FL2 # 8 2G5L PROLP SBX 7 FX1 16 2GK= LDCT 4 AOLPT/8 [FOR ATYPE WORD 21 2H4W GETACTX 4,3,1 [OLPA LENGTH IN X3 ; %C FOR LONGLOCK 9 2HJG LDX 3 BPTR(2) 8 2J46 LDCT 0 #400 9 2JHQ LDX 4 JOBNO(2) 17 2K3B STO 0 GIVE(3) [PERIPHERAL ALLOTABLE 19 2KH2 STO 0 FRECHADD(3) [EXEC EVENT CHAINING REQUIRED 18 2L2L STO 4 JOBNO(3) [GIVE IT THE SAME JOB NO. 18 2LG= STO 5 ATMARK(3) [SWITCH FOR USE BY RELPER 9 2L_W LDN 2 CNAME(3) 18 2MFG CALL 6 STON [INSERT CONCEPTUAL NAME 8 2M_6 SBN 1 APARA 14 2NDQ FREECORE 1 [CPB/CUNI 11 2NYB PUTPERENT AWORK1(2),GSIGN 9 2PD2 LDX 3 BPTR(2) 6 2PXL ROLPA 8 2QC= ADX 7 FX1 7 2QWW EXIT 7 0 4 2RBG # 20 2RW6 # SEARCH FOR BLOCK OF TYPE IN X5 FROM AMOP WITH ADDRESS IN X1 4 2S*Q # 9 2STB SEEK LDX 1 FPTR(1) 9 2T*2 LDX 0 ATYPE(1) 19 2TSL TXU 0 5 [BLOCK TYPE REQUIRED IN X5 18 2W#= BCC SBLK [HAVE FOUND BLOCK : EXIT 8 2WRW TXL 0 CACT 21 2X?G BCS SEEK [NOT NEXT ACTIVITY ; TRY NEXT BLOCK 18 2XR6 EXIT 7 0 [NO AMXOR/ALINES BLOCK 7 2Y=Q SBLK EXIT 7 1 4 2YQB # 21 2_=2 # INSERT CONCEPTUAL NAME AFTER ADDRESS IN X2 ; SPACE-FILL IF NEEDED 4 2_PL # 10 329= STON MHUNT 1,CPB,CUNI 19 32NW LDEX 0 ANUM(1) [LENGTH OF CONCEPTUAL NAME 8 338G ADN 1 APARA 7 33N6 SBN 0 9 7 347Q MOVE 1 3 21 34MB BPZ 0 (6) [LENGTH > 8 : NO NEED TO SPACE-FILL 8 3572 LDX 5 ACES 7 35LL ADN 0 4 20 366= STO 5 2(2) [SPACE-FILL NAME TO 12 CHARACTERS 8 36KW BPZ 0 (6) 8 375G STO 5 1(2) 7 37K6 EXIT 6 0 4 384Q # 19 38JB # LONGCLEAR MOP ATTACH ACTIVITY WITH ALCB/ADCB ADDRESS IN X2 4 3942 # 9 39HL ULON HUNTACT CPAT,2 10 39W3 ... LONGCLEAR 2,#107,NWT 8 3=8D ...NWT LDX 2 FX2 7 3=GW EXIT 7 0 5 3?2G #SKI G3 4 3?G6 ( 4 3?_Q # 21 3#FB # CONCEPTUAL MPX OR UPX : CONSTRUCT AMXOR/CONLCB BLOCK AND NEW OLPA 4 3#_2 # 6 3*DL SK1ONLINCL 9 3*Y= LDX 6 AWORK1(2) 20 3BCW MHUNTW 3,IDF,CONCEP [GET CONCEPTUAL DESCRIPTION BLOCK 16 3BXG SRL 6 15 [PERIPHERAL TYPE. 19 3CC6 LDX 4 ALOGLEN(3) [1 WD. PER CONCEPTUAL LINE. 8 3CWQ SBN 6 BHUPX 17 3DBB BNZ 6 YMPX [ZERO IF UNIPLEXOR 20 3DW2 BCT 4 NUPX [J. TO ERROR IF >1 LINE FOR UPX, 20 3F*L YMPX STO 4 AWORK2(2) [SAVE HIGHEST LINE NO. (0 IF UPX) 17 3FT= ADN 4 1 [ADD 1 FOR LINE 0. 8 3G#W FJOCA 3,2 21 3GSG MARK 3 [UPDATE COUNT OF REAL-TIME PERIPHS. 7 3H#6 LDX 3 4 21 3HRQ MPY 4 RECCON(1) [NO. OF LINES X LENGTH OF EACH RECORD 20 3J?B SETXCORE 5,2,AMXOR,CONLCB,,3,CONRECLEN [FOR CONCEPTUAL LCB 18 3JR2 ADN 5 A1 [TOTAL LENGTH OF BLOCK 19 3K=L MHUNTW 3,IDF,CONCEP [CONCEPTUAL DESCRIPTION BLOCK 8 3KQ= SMO FX2 9 3L9W STO 5 AWORK3 17 3LPG LDX 5 XALINES(1) [FOR SEEK SUBROUTINE 4 3M96 # 21 3MNQ # FOR EACH LINE THIS LOOP SETS UP AN AMXOR/CONLCB ENTRY AND MARKS 20 3N8B # THE AMXOR/ALINES RECORD WHEN IDF FINISHED WITH OTHER COMMANDS 4 3NN2 # 21 3P7L REPAS LDN 4 A1 [FOR SETTING BSTARTS AND ENDING LOOP 21 3PM= NXT3 BNG 6 NOFI [NOT FIRST PASS : CHECK WAITING LINES 10 3Q6W STOZ A1+FPTR(2) 10 3QLG STOZ A1+BPTR(2) 10 3R66 NGS 4 A1+BSTART(2) 21 3RKQ LDCH 0 6 [NON-ZERO ONLY THE FIRST TIME ; SET 19 3S5B BZE 0 NNUL [NULL ENTRY FOR MPX LINE ZERO 7 3SK2 LDN 6 0 19 3T4L SBN 3 1 [ALLOW FOR NULL MPX LINE ZERO 10 3TJ= NULL STOZ A1+ADDMOP(2) 10 3W3W STOZ A1+ACTUAL(2) 17 3WHG BRN NXT1 [GO ON TO NEXT LINE 21 3X36 NNUL LDX 7 A1(3) [GEOG NO. IN B0-8 IF LINE ATTACHED. 8 3XGQ SRL 7 15 18 3Y2B BZE 7 NULL [LINE POINTED TO BY X3 11 3YG2 LDN 1 ADMULTACT-ADMP 20 3Y_L NXT2 LDX 1 ADMP(1) [SEARCH DOWN MOP ACTIVITIES LIST. 8 3_F= #SKI K6ONLINE>99-99 19 3_YW BZE 1 VAB [GEOERR IF AMOP NOT FOUND. 17 42DG LGEOG CPPTR(1),0 [GET PLEXOR GEOG NO. 7 42Y6 TXU 7 0 20 43CQ BCS NXT2 [TRY AGAIN : DIFFERENT GEOG NO. 10 43XB STO 1 A1+ADDMOP(2) 16 44C2 LDEX 7 A1(3) [ACTUAL LINE NO. 10 44WL STO 7 A1+ACTUAL(2) 4 45B= # 4 45TW # 18 46*G REEN CALL 7 SEEK [FIND AMXOR/ALINES BLOCK 19 46T6 BRN NADD [ALINES ABSENT : WAIT A BIT 10 47#Q LDX 7 A1+ACTUAL(2) 20 47SB SLL 7 2 [4 WORDS PER LINE IN ALINES BLOCK 7 48#2 ADX 1 7 11 48RL LDX 0 A1+FOURTHWD(1) 7 49?= SLC 0 1 8 4==G LDCT 7 #10 16 4=Q6 ORS 7 A1+FOURTHWD(1) [SET B5 : ONLINE 17 4=T= ... BNG 0 STLAH [J IF STILL ATTACHED 17 4=YB ... ERS 7 A1+FOURTHWD(1) [ELSE UNSET ONLINE... 17 4?3G ... BRN NULL [AND TREAT AS NULL 5 4?6L ...STLAH 17 4?9Q LDX 7 A1+BPTR(1) [MUST COOR3 IF BUSY 17 4?PB BNZ 7 YBUS [ALCB PRESENT : BUSY 7 4#92 SLC 0 3 19 4#NL BNG 0 NADD [B4 SET : SCAN SETTING UP CPA 7 4*8= SLC 0 2 18 4*MW ANDN 0 #73 [UNSET SCAN BIT IF SET 21 4B7G ORN 0 #41 [B0 INHIBITS PROFLAG ; B5 SETS ONLINE 11 4BM6 DCH 0 A1+FOURTHWD(1) 8 4C6Q BRN NXT1 4 4CLB # 15 4D62 NOFI LDXC 1 A1+ADDMOP(2) [TEST BIT 0 19 4DKL BCC NXT1 [NOT MARKED 'FOR ATTENTION' 15 4F5= STO 1 A1+ADDMOP(2) [UNSET BIT 0 8 4FJW BRN REEN 4 4G4G # 11 4GJ6 YBUS LDX 0 A1+FOURTHWD(1) 18 4H3Q ANDN 0 #77 [MASK FOR TERMINAL TYPE 9 4HHB SBN 0 ASENTMACH 7 4J32 LDX 1 7 8 4JGL SMO FX2 21 4K2= STO 2 ACOMMUNE1 [PRESERVE AROUND LONGCLEAR OR FPUT 9 4KFW SBN 1 A1+FPTR 8 4K_G BZE 0 YADD 7 4LF6 LDX 2 1 17 4LYQ CALL 7 ULON [LONGCLEAR MOP CPA 8 4MDB BRN NWAIT 9 4MY2 YADD LDXC 0 GWAIT(1) 17 4NCL BCC NADD [CPA ALREADY ON LIST 9 4NX= STO 0 GWAIT(1) 17 4PBW HUNTACT CPAT,2,1 [FIND SENTINEL CPA 16 4PWG FPUT [PUT CPA ON LIST 18 4QB6 NWAIT LDX 2 ACOMMUNE1(2) [POINTER TO CONDCB ENTRY 4 4QTQ # 19 4R*B NADD ORN 6 #100 [COOR3 IF COOR2 BIT NOT SET 8 4RT2 LDCT 0 #400 20 4S#L ORS 0 A1+ADDMOP(2) [MARK THIS LINE : 'FOR ATTENTION' 18 4SS= NXT1 ADN 2 CONRECLEN [POINTER TO CONLCB RECORD 21 4T?W ADN 4 CONRECLEN [FOR SETTING BSTARTS AND ENDING LOOP 19 4TRG ADN 3 1 [POINTER TO IDF/CONCEP RECORD 8 4W?6 SMO FX2 9 4WQQ TXL 4 AWORK3 21 4X=B BCS NXT3 [NOT END OF BLOCK ; LOOK AT NEXT LINE 8 4XQ2 BNG 6 NOWF 20 4Y9L MFREEW IDF,CONCEP [FIRST PASS FINISHED : BLOCK USED 8 4YP= NOWF ANDN 6 #300 21 4_8W BZE 6 NOMR2 [COOR3 BIT NOT SET : CONLCB COMPLETE 8 4_NG COOR3 #62 19 5286 LDX 6 GSIGN [INDICATE NOT THE FIRST PASS 19 52MQ MHUNTW 2,AMXOR,CONLCB [RELOCATE AFTER COORDINATION 8 537B BRN REPAS 4 53M2 # 21 546L # END OF LOOP ; OTHER COMMANDS FINISHED AND AMXOR/CONLCB COMPLETE 4 54L= # 8 555W NOMR2 LDX 2 FX2 21 55KG LDX 4 AWORK2(2) [ACTUAL NO. OF LINES ON CONCEPTUAL. 21 5656 LDN 3 FLAGCT+1-A1 [LENGTH OF OLPA FOR CONCEPTUAL UPX. 8 56JQ BZE 4 UPX2 21 574B ADN 3 15 [LENGTH OF OLPA FOR 64 LINE CONCEP 8 57J2 SBN 4 64 8 583L BNG 4 UPX2 21 58H= ADN 3 48 [LENGTH OF OLPA FOR 256 LINE CONCEP 7 592W UPX2 LDN 5 5 8 59GG CALL 7 PROLP 8 59MN ... LDCT 0 #400 9 59SW ... STO 0 CFLAG(3) 15 5=26 LDX 4 AWORK2(2) [NO. OF LINES 10 5=FQ STO 4 CMAXLINE(3) 17 5=_B LINKSET 3,TBLMX(1) [SET LINK TO K1CONMXA 21 5?F2 MHUNTW 2,AMXOR,CONLCB [CHAIN LINE CONTROL BLOCK AFTER OLPA. 8 5?YL CHAIN 2,3 8 5#D= FON #106 6 5#XW ENDCOM 4 5*CG ) 4 5*X6 # 18 5BBQ # ##################################################### 4 5BWB # 21 5CB2 # ONLINE CONCEPTUAL IPB : SET UP AMXOR/CSTATE BLOCK , & AMXOR/CROUTE 20 5CTL # BLOCKS IF NECESSARY ; SET UP AMXOR/CONDCB BLOCK WITH ENTRY FOR 21 5D*= # EACH IDENTIFIER ; WHEN ALL ATTACHED DEVICES CLOSED , GET NEW OLPA 16 5DSW # & AMOP/IPBCCA ACTIVITIES AND PUT ENTRY IN PRB. 4 5F#G # 4 5FCL ...[ 5 5FGQ ...UNULL 9 5FKW ... STO 1 IDADIN(3) 8 5FP2 ... BRN ZNNUA 6 5FS6 SK2ONLINCL 9 5G?Q LDX 1 IPBADDR 8 5GHJ ... BZE 1 NOCC 7 5GRB LDN 3 1 9 5H?2 LDN 4 CSTATELEN 4 5HD8 ...NEAM 10 5HKB ... SEGENTRY K41ONLINCL 6 5HQJ ... NULL 8 5HXQ ... LDX 0 BIT9 9 5J4Y ... ANDX 0 IPBSW(1) 15 5J=6 ... BNZ 0 VNOCON [NOT IF V7900 10 5JC# ... SEGENTRY K42ONLINCL 9 5JJG ... ADN 4 CSTATELEN 7 5JPN ... ADN 3 1 5 5JWW ...VNOCON 9 5K44 ... LDX 1 IPBL(1) 8 5K9G BNZ 1 NEAM 7 5K*C ... LDX 0 3 7 5KF# ... SBN 0 1 8 5KK9 ... BZE 0 NOCC 10 5KP6 LDN 0 A1+CSTATELEN 10 5L8Q STO 0 ACOMMUNE3(2) 21 5LNB SETXCORE 4,2,AMXOR,CSTATE,,3,CSTATELEN [CONCEPTUAL STATUS BLOCK 9 5M82 LDX 1 IPBADDR 4 5MML # 20 5N7= # RING CSTATE BLOCK TO AMXOR/CROUTE BLOCK BEHIND EACH AMOP/IPBIN 4 5NLW # 7 5P6G NEXPB LDX 4 1 10 5P8P ... SEGENTRY K43ONLINCL 6 5P=Y ... NULL 8 5P*7 ... LDX 0 BIT9 9 5PCB ... ANDX 0 IPBSW(1) 8 5PFK ... BNZ 0 NEXPC 10 5PHS ... SEGENTRY K44ONLINCL 7 5PL6 YECL LDCT 0 4 20 5Q5Q ANDX 0 IPBSW(1) [B6 SET IF CROUTE BEING ALTERED 8 5QKB BZE 0 NOW 8 5R52 COOR3 #62 7 5RJL LDX 1 4 8 5S4= BRN YECL 7 5SHW NOW LDCT 0 4 8 5T3G SMO FX1 9 5TH6 LDX 5 XCROUTE 19 5W2Q ORS 0 IPBSW(1) [INHIBIT OTHERS ALTLENNING 19 5WGB CALL 7 SEEK [LOOK FOR AMXOR/CROUTE BLOCK 17 5X22 BRN VNOR [NONE : SET ONE UP 7 5XFL LDX 6 1 19 5X_= ALTLENR 6,7 [LENGTHEN TO ADD NEW ENTRY 17 5YDW LDX 1 4 [AMOP/IPBIN ADDRESS 18 5YYG CALL 7 SEEK [POINT TO CROUTE AGAIN 19 5_D6 NULL [ALLOW FOR EXIT+1 FROM SEEK 7 5_XQ LDX 6 1 17 62CB ADDRELT 1,NULL [INITIALISE NEW ENTRY 8 62X2 BRN VSTAL 16 63BL VNOR SETNCORE CROUTELEN,1,AMXOR,CROUTE,,1,CROUTELEN 8 63W= LDN 0 A1 7 64*W SMO 4 9 64TG LDX 2 ACTRING 10 65*6 NGS 0 A1+BSTART(1) 9 65SQ SBN 2 ACTRING 7 66#B LDX 6 1 20 66S2 CHAIN 1,BPTR(2) [AT END OF AMOP/IPBIN ACTIVITY 4 67?L # 11 67R= VSTAL MHUNTW 3,AMXOR,CSTATE 19 68=W LDX 0 ACOMMUNE3(2) [MODIFIER DOWN CSTATE BLOCK 7 68QG ADX 3 0 9 69=6 NGS 0 BSTART(3) 9 69PQ ADN 0 CSTATELEN 10 6=9B STO 0 ACOMMUNE3(2) 18 6=P2 LDX 2 6 [ADDRESS OF CROUTE BLOCK 10 6?8L ADX 2 ALOGLEN(2) 9 6?N= SBN 2 CROUTELEN 19 6#7W ... RING2CHK FPTR(3),A1+FPTR(2) [CSTATE AND CROUTE ENTRIES 9 6#MG ADN 2 A1+CONNM 18 6*76 CALL 6 STON [INSERT CONCEPTUAL NAME 7 6*LQ LDX 1 4 7 6B6B LDCT 0 4 18 6BL2 ERS 0 IPBSW(1) [UNSET ALTLEN INHIBITER 9 6C5L LDX 0 IPBSW(1) 20 6CK= STO 0 IPSTATUS(3) [COPY OVERLOAD AND OPERABILITY 5 6CT4 ...NEXPC 9 6D4W LDX 1 IPBL(1) 19 6DJG BNZ 1 NEXPB [REPEAT FOR NEXT AMOP/IPBIN 4 6F46 # 20 6FHQ # SET UP AMXOR/CONDCB BLOCK AND RING FIRST ENTRY TO CSTATE BLOCK 4 6G3B # 17 6GH2 MHUNTW 3,IDF,CONCEP1 [PRODUCED BY IDFCLON 10 6H2L LDX 5 ALOGLEN(3) 21 6HG= SRL 5 1 [NUMBER OF IDENTIFIERS IN CONCEPTUAL 7 6H_W LDX 4 5 9 6JFG LDN 0 CONDCBLEN 7 6J_6 MPY 5 0 21 6KDQ SETXCORE 6,2,AMXOR,CONDCB,,4,CONDCBLEN [IDENTIFIER STATUS BLOCK 11 6KYB MHUNTW 1,AMXOR,CSTATE 13 6LD2 ... RING2CHK A1+FPTR(1),A1+FPTR(2) 4 6LXL # 10 6MC= MHUNTW 3,IDF,CONCEP1 8 6MWW LDN 5 A1 10 6NBG STOZ A1+IDADIN(2) 8 6NW6 LDCT 0 #20 10 6P*Q NGS 5 A1+BSTART(1) 19 6PTB STO 0 A1+IDSTATUS(2) [INDICATE CONCEPTUAL CLOSED 7 6Q*2 LDN 4 3 10 6QSL NGS 5 A1+BSTART(2) 9 6R#= LDX 0 A1+1(3) 18 6RRW STO 4 A1+IDMDNPU(2) [FOR FIRST 'INITIALISE' 11 6S?G STOZ A1+IPSTATUS(1) 20 6SR6 STO 0 A1+IDNUM(2) [LOWEST IDENTIFIER ON CONCEPTUAL 10 6T=Q ADX 5 ALOGLEN(2) 8 6TQB LDX 2 FX2 10 6W=2 STOZ ACOMMUNE7(2) 17 6WPL STOZ ACOMMUNE4(2) [IDF/CONCEP1 POINTER 10 6X9= LDN 4 A1+CONDCBLEN 18 6XNW STO 5 ACOMMUNE5(2) [FOR TXU AT END OF LOOP 4 6Y8G # 9 6YN6 # START OF MAIN LOOP 4 6_7Q # 7 6_?M ... LDN 0 6 9 6_CJ ... STO 0 AWORK4(2) 20 6_HF ...[ PRESET COUNT FOR WAITING 20 SECS 11 6_MB UNXT MHUNTW 3,AMXOR,CONDCB 19 7272 ADX 3 4 [POINT TO NEXT CONDCB ENTRY 10 72LL STO 4 ACOMMUNE6(2) 16 736= BNG 6 UNOF [NOT FIRST PASS 4 73KW # 10 745G MHUNTW 1,IDF,CONCEP1 10 74K6 ADX 1 ACOMMUNE4(2) 9 754Q LDX 0 A1+3(1) 8 75JB ANDN 0 #7777 9 7642 STO 0 IDNUM(3) 9 76CP ... NGXC 1 A1+2(1) 19 76RD ... BCS NNUL11 [J IF ATTACHED AND 7900 IS... 17 7777 ...[ ...ON INSTALLATION 20 77GW ... LDN 1 0 [ELSE ZEROISE AMOP ADRESS WORD 5 77WK ...NNUL11 18 78=# ... NGS 1 IDADIN(3) [AMOP ADDR WITH BIT 0 SET 7 78L3 ...ZNNUA LDN 0 2 9 78_Q NGS 4 BSTART(3) 18 79FB ADS 0 ACOMMUNE4(2) [UPDATE CONCEP1 POINTER 7 79_2 LDN 0 1 16 7=DL STO 0 IDSTATUS(3) [SET CLOSED BIT 10 7=Y= STOZ IDSTATUS+1(3) 16 7?CW BZE 1 UAGA [NULL IDENTIFIER 4 7?XG # 21 7#C6 # END OF FIRST PASS CODE ; COMPLETE CONDCB ENTRIES FOR IDLE DEVICES 4 7#WQ # 17 7*BB UNOF LDXC 1 IDADIN(3) [AMOP/IPBIN ADDRESS 18 7*W2 BCC UAGA [ENTRY COMPLETED ALREADY 8 7B*L SMO FX1 9 7BT= LDX 5 XADEVS 18 7C#W CALL 7 SEEK [FIND AMXOR/ADEVS BLOCK 8 7CSG BRN UWAIT 9 7D#6 LDX 0 IDNUM(3) 19 7DRQ SBX 0 A1+FOURTHWD(1) [LOWEST IDENTNO ON THIS IPB 7 7F?B SLL 0 2 17 7FR2 ADX 1 0 [POINT TO ADEVS ENTRY 4 7G=L # 8 7GBH ... LDCT 0 #40 11 7GGD ... ANDX 0 A1+FOURTHWD(1) 18 7GL* ... BNZ 0 UWAIT [WAIT IF STILL SETTING UP 10 7GQ= LDX 2 A1+BPTR(1) 8 7GT4 ... LDCT 0 #200 11 7GXW ... ANDX 0 A1+FOURTHWD(1) 18 7H2N ... BZE 0 NLAH [J IF NO LONGER ATTACHED 21 7H5G ... BZE 2 UZERO [J IF RING ELEMENT ZERO TO CHECK IF C 7 7H5N ... TXU 2 3 8 7H5W ... BCC TALRI 21 7H64 ...[ J IF ALREADY RINGED TO CONDCB BY AHB 8 7H6= ... LDCT 0 #10 11 7H6D ... ANDX 0 A1+FOURTHWD(1) 19 7H6L ... BZE 0 NUNAH [J IF NOT RINGED TO A CONDCB 8 7H6S ... LDN 0 #400 10 7H72 ... ANDX 0 IDSTATUS+1(2) 18 7H78 ... BZE 0 NUNAH [J IF AH NOT CANCELLED 9 7H7B ... STOZ IDNUM(3) 7 7H7J ... NGNC 0 1 21 7H7Q ... ANDS 0 IDADIN(3) [SHOW NO LONGER WAITING TO BE DEALT W 8 7H7Y ... BRN UAGAA 5 7H86 ...NUNAH 8 7H8# ... SMO FX2 9 7H?6 ... LDXC 0 AWORK4 17 7H*Y ... BCC NIB1 [J IF NOT BREAK IN 8 7HDQ ... LDX 0 BIT10 11 7HHJ ... ORS 0 A1+FOURTHWD(1) 4 7HLB ...NIB1 8 7HM2 ... LDCT 0 #30 11 7HML ... ANDX 0 A1+FOURTHWD(1) 8 7HN= ... BNZ 0 UWAIT 21 7HNW ...[ J IF RINGED TO CONDCB OR REINITIALIS 11 7HPG LDEX 0 A1+FOURTHWD(1) 9 7J96 SBN 2 A1+FPTR 8 7JNQ BNZ 0 UNMOP 17 7K8B ...UVDU CALL 7 ULON [LONGCLEAR MOP CPA 8 7KN2 BRN UWAIT 7 7L7L UNMOP LDCT 4 1 8 7L#S ... SBN 0 10 8 7LG2 ... BZE 0 UVDU 8 7LM= #SKI K6IPB>99-99 4 7M6W ( 7 7MLG ... ADN 0 5 21 7N66 BNZ 0 UBULK [BULK : ATTACH SHOULD HAVE COMERRED 4 7NKQ ) 20 7P5B ORS 4 A1+FOURTHWD(1) [7023 : SET B8 TO INDICATE CLOSED 8 7PK2 LDCT 0 #400 9 7Q4L ANDX 0 IWAIT(2) 16 7QJ= BZE 0 UWAIT [ALREADY AWAKE 9 7R3W ERS 0 IWAIT(2) 9 7RHG HUNTACT CONSA,2 19 7S36 FPUT [WAKE CONSA/I7023 ACTIVITY 8 7SGQ BRN UWAIT 11 7T2B UZERO LDX 0 A1+FOURTHWD(1) 8 7TG2 LDCT 4 #10 7 7T_L SLC 0 9 16 7WF= ORS 4 A1+FOURTHWD(1) [SET ONLINE BIT 18 7WYW BPZ 0 UNCLO [B9 NOT SET : STILL OPEN 7 7XDG SLC 0 1 19 7XY6 BPZ 0 URING [B10 NOT SET : RING TO CONDCB 20 7YCQ SRC 0 1 [ATTACH REOPENING : CLOSE AGAIN 7 7YXB UNCLO SRC 0 1 9 7_4N ... BNG 0 UWAITA 7 7_7* ... SLC 0 3 7 7_=2 ... ANDN 0 3 7 7_C# ... ERN 0 1 15 7_JL ... BZE 0 UWAITA [J IF CLOSING 5 7_Q2 ...UNAIT 7 7_WL LDCT 0 1 14 82B= ORS 0 A1+FOURTHWD(1) [SET B8 19 82TW LDN 0 #127 [B0-11 OF CRASH CLOSE SEGMENT 8 83*G LDX 2 FX2 10 83T6 STO 0 ACOMMUNE1(2) 19 84#Q CCOUT IDNUM(3),IDADIN(3) [CRASH CLOSE THE IDENTIFIER 4 84SB # 11 84T8 ... MHUNTW 3,AMXOR,CONDCB 15 84W2 ... ADX 3 ACOMMUNE6(2) [CONDCB ENTRY 17 84WS ... LDX 4 ACOMMUNE6(2) [IN CASE GO TO UNULL 9 84XL ... LDX 5 XADEVS(1) 9 84YD ... LDXC 1 IDADIN(3) 15 84_= ... CALL 7 SEEK [FIND ADEVS 8 8524 ... BRN UNULL 9 852W ... LDX 0 IDNUM(3) 11 853N ... SBX 0 A1+FOURTHWD(1) 7 854G ... SLL 0 2 15 855# ... ADX 1 0 [ADEVS ENTRY 5 8566 ...UWAITA 8 856Y ... SMO FX2 9 857Q ... LDXC 0 AWORK4 17 858J ... BCC UWAIT [J IF NOT BROKEN IN 8 859B ... LDN 0 #2203 17 85=8 ... ORS 0 IDSTATUS(3) [SET CLOSE IDENT,FREE 8 85?2 ... BRN URING 7 85#2 UWAIT LDN 0 1 8 85RL LDX 2 FX2 19 86?= ORS 0 ACOMMUNE7(2) [INDICATE NOT FINISHED YET 17 86QW BRN UAGA [GET NEXT IDENTIFIER 12 876K ...URING RING2CHK A1+FPTR(1),FPTR(3) 5 87G# ...TALRI 9 87Q6 SMO IDADIN(3) 18 889Q LDX 0 IPBSW [B0 SET IF IPB INOPERABLE 8 88PB LDCT 4 #400 8 8992 SLC 0 10 11 89NL ANDX 4 A1+FOURTHWD(1) 8 8=8= ... ANDN 0 #1000 8 8=MW SRL 4 12 19 8?7G ORS 0 IDSTATUS(3) [SET B14 IF IPB INOPERABLE 7 8?9P ... SLL 0 1 10 8??Y ... ORS 0 IDSTATUS(3) 17 8?B7 ... ERS 0 IDSTATUS(3) [UNSET FREE IF INOP 8 8?DB ... SMO FX1 8 8?GK ... LDX 0 ZADE 18 8?JS ... ANDS 0 A1+FOURTHWD(1) [LEAVE BITS 8,10 UNSET 8 8?M6 LDX 2 FX2 9 8#6Q LDX 0 BITS22LS 18 8#LB ORS 4 IDSTATUS(3) [SET B12 IF INOPERABLE 20 8*62 ANDS 0 IDADIN(3) [FOR TEST AT UNOF ON NEXT PASS 19 8*KL IPBCOUNT 4,IDADIN(3),1 [GET AMOP/IPBIN COUNT IN X4 10 8B5= ORS 4 IDSTATUS(3) 4 8BJW # 8 8BSN ...UAGAA LDX 2 FX2 9 8C4G UAGA LDN 4 CONDCBLEN 10 8CJ6 LDX 6 ACOMMUNE7(2) 10 8D3Q ADX 4 ACOMMUNE6(2) 10 8DHB TXU 4 ACOMMUNE5(2) 20 8F32 BCS UNXT [NOT YET AT END OF CONDCB BLOCK 18 8FGL BNG 6 ULAP [NOT END OF FIRST PASS 10 8G2= MFREEW IDF,CONCEP1 7 8GFW ULAP ANDN 6 1 19 8G_G BZE 6 UFIN [CONDCB COMPLETE : CARRY ON 10 8HF6 LDN 4 A1+CONDCBLEN 8 8HYQ LDX 6 GSIGN 10 8JDB STO 6 ACOMMUNE7(2) 8 8JGP ...UW LDX 1 FX1 8 8JK4 ... LDX 2 FX2 9 8JMC ... LDX 0 AWORK4(2) 16 8JPQ ... BNG 0 UFIN [J IF BROKEN IN 18 8JS5 ... BZE 0 ZTE [J IF ALREADY SAID WAITING 18 8JWD ... BCT 0 UW11 [J UNLESS END OF 20SECS 18 8JYR ... LDX 5 ACOMMUNE5(2) [SAVE AC5 THROUGH MONOUT 17 8K36 ... MONOUT JCCREPW [SAY WAITING FOR *CC 10 8K5F ... STO 5 ACOMMUNE5(2) 19 8K7S ... STO 6 ACOMMUNE7(2) [RESTORE AC WDS AFTER MONOUT 16 8K=7 ...ZTE TESTBRKIN ZRK [J IF BREAK IN 7 8K#G ... LDN 0 0 9 8KBT ...UW11 STO 0 AWORK4(2) 21 8KF8 ...[ STORE NEW NUMBER OF WAITS FOR 20SECS 15 8KHH ... COOR4 CCREPWT [WAIT 4 SECS 8 8KKW ... BRN UNXT 8 8KN9 ...ZRK LDCT 0 #400 16 8KQJ ... STO 0 AWORK4(2) [SET BROKEN IN 16 8KSX ... BRN UNXT [GO TO FINISH OFF 4 8KX= # 21 8LBW # END OF LOOP : AMXOR/CONDCB COMPLETE ; SET UP OLPA AND AMOP/IPBCCA 4 8LWG # 10 8M6# ... SEGENTRY K65ONLINCL 14 8MB6 ...UFIN SETNCORE CONCALEN*2,2,AMXOR,CONTROL 10 8MKY ... GETACT BMOP,IPBCCA 9 8MTQ LDX 2 BPTR(2) 17 8N*B LINKSET 2,TBLIC(1) [SET LINK TO K1IPBCCA 19 8NT2 NGS 2 ICA(2) [INDICATE NO READ IN PROGRESS 11 8P#L MHUNTW 1,AMXOR,CONDCB 8 8PS= CHAIN 1,2 10 8Q?W LDN 3 CNAME+3-A1 15 8QRG LDN 5 7 [FOR ATMARK 16 8R?6 CALL 7 PROLP [INITIALISE OLPA 17 8RQQ LINKSET 3,TBLIP(1) [SET LINK TO K1CONIPB 11 8RXY ... MHUNTW 1,AMXOR,CONTROL 8 8S56 ... CHAIN 1,3 11 8S=B MHUNTW 1,AMXOR,CSTATE 8 8SQ2 CHAIN 1,3 19 8T9L FINDACTFB 2,,BMOP,,,BPTR [POINT TO AMOP/IPBCCA AGAIN 17 8TP= RINGTWO IPBRING(2),IPBRING(3) [RING TO NEW OLPA 21 8W8W FWAIT #4062 [QUEUE IPBCCA TO BE WOKEN EVERY 4SECS 9 8W#2 ... LDXC 0 AWORK4(2) 17 8WC6 ... BCC ZENCO [J UNLESS BROKEN IN 7 8WG= ... ABANDCOM 5 8WKB ...ZENCO 17 8WLC ... RTTEST RTIME,,,CPA [J. IF PROG REALTIME 5 8WMD ...XENDC 6 8WNG ENDCOM 5 8WNP ...RTIME 16 8WNY ... FCJOB 2,,,CPA [FIND JOB BLOCK 7 8WP7 ... LDN 0 1 20 8WPB ... ADS 0 AEXCO(2) [INCREMENT CT OF REALTIME PERIS 8 8WPK ... BRN XENDC 16 8WP_ ...NLAH LDX 4 IDNUM(3) [SAVE ID NUMBER 9 8WRD ... STOZ IDNUM(3) 7 8WSY ... NGNC 0 1 21 8WX7 ... ANDS 0 IDADIN(3) [SO AS NOT TO LOOK AT THIS ONE AGAIN 21 8WXN ... BZE 2 SETID [J TO REINITIALISE IF RING ELEMENT NU 11 8WY9 ... LDEX 0 A1+FOURTHWD(1) 8 8WYQ ... ANDN 0 #17 7 8W_? ... SBN 0 5 20 8W_S ... BZE 0 UAGAA [J IF REMOTE OPERATORS CONSOLE 7 8X2* ... LDCT 0 1 11 8X2W ... ORS 0 A1+FOURTHWD(1) 19 8X3C ... ERS 0 A1+FOURTHWD(1) [ELSE UNSET B8 IN FOURTHWD 8 8X3Y ... BRN UAGAA 5 8X4F ...SETID 10 8X52 ... SETIDENT IDADIN(3),4 8 8X5S ... BRN UAGA 4 8X86 # 15 8XMQ # VARIOUS COMMAND ERRORS AND GEORGE ERRORS 4 8Y7B # 7 8YM2 ZERRORY 7 8YQ6 ...#UNS IDFMARK8 18 8YT= ...NUPX IDFOFF (GEOERR),VAB [NOT UNIPLEXOR 7 8YYB ...#UNS IDFMARK8 4 8_3G ...#SKI 16 8_6L NUPX IDFOFF VAB [NOT UNIPLEXOR 8 8_L= ZERRORX JNUPX 4 925W # 8 92KG #SKI K6IPB>99-99 10 9356 UBULK GEOERR 1,BULKBUSY 10 93JQ VAB GEOERR 1,IDFERROR 4 93NM ...NOCC 10 93SJ ... IDFOFF (GEOERR),VAB 8 93YF ... ZERRORX JNOCC 11 944B MENDAREA 50,K100ONLINCL 4 94J2 #END 8 ____ ...54100571001400000000