16 22FL ...#SEG TWINSETB70 [FRANK BLUNDELL 10 22_= #LIS K0TWINSET>K0TWINSETB 7 23DW 8HTWINSETB 4 23YG # 4 24D6 # 21 24XQ # THIS SEGMENT MAINLY DEALS WITH THE MACROS PLOCKSU,TPLOCKSU,CHAREA, 17 25CB # CHFILE,ANYUSERS,FIPPER,AUTWIN,PHOLD AND BOTTONOLE 4 25X2 # 21 26BL # ALSO DEALS WITH CLOSING IPC LINKS WHEN TWIN INITIALISE IS REISSUE 4 26W= # 19 27*W # ALSO OUTPUTS MESSAGES DEMANDING INITIALISATION OR STATE 10 27HN ... SEGENTRY K1TWINSETB 7 27KL ... +0 11 28*6 SEGENTRY K2TWINSETB,QK2 11 28SQ SEGENTRY K3TWINSETB,QK3 11 29#B SEGENTRY K4TWINSETB,QK4 11 29S2 SEGENTRY K5TWINSETB,QK5 11 2=?L SEGENTRY K7TWINSETB,QK7 11 2=R= SEGENTRY K8TWINSETB,QK8 11 2?=W SEGENTRY K9TWINSETB,QK9 11 2?QG SEGENTRY K10TWINSETB,QK10 11 2#=6 SEGENTRY K11TWINSETB,QK11 14 2#JG ... SEGENTRY K12TWINSETB,QK12 [TCLOSE 4 2#PQ # 4 2*9B # 20 2*P2 RQ +ENTIN24 [PLEASE ISSUE TWIN COMMAND GIVING 19 2B8L [..STATE OF OTHER PROCESSOR 4 2CMG # 4 2D76 # 11 2DLQ # SET UP ESEND AND ENLINK 5 2F6B XBLKS 8 2FL2 SBX 6 FX1 17 2G5L SETNCORE ENLINKLEN,1,EWDAS,ENLINK,,1 [LINK BLOCK 17 2GK= SETNCORE ESENDLEN,1,EWDAS,ESEND,,1 [DATA BLOCK 11 2H4W MHUNTW 3,EWDAS,ENLINK 17 2HJG STO 7 ENRQ(3) [STORE REQUEST TYPE 9 2J46 STO 7 ENMARK(1) 15 2JHQ STOZ ENRP(3) [CLEAR REPLY 8 2K3B ADX 6 FX1 7 2KH2 EXIT 6 0 4 2L2L # 7 2LG= # TO WAIT 4 2L_W # 5 2MFG XHALT 8 2M_6 SBX 6 FX1 9 2NDQ ...TENT COOR4 HOLDWT 11 2PXL MHUNTW 3,EWDAS,ENLINK 9 2QC= LDX 0 ENRP(3) 18 2QWW BZE 0 TENT [WAIT AGAIN IF NO REPLY 8 2RBG ADX 6 FX1 7 2RW6 EXIT 6 0 4 2S*Q # 10 2STB XHERR GEOERR 1,BROKENIN 4 2T*2 # 4 2TSL # 4 2W#= # 11 2WRW ...# THIS PART DEMANDS STATE 4 2X?G # 6 2XDN ...QK2 [****** 15 2_PL XCAT LDN 4 0 [FIRST TIME 9 329= XCANT LONGSET EPWT,XSET 8 338G LDCT 5 #20 9 33N6 ANDX 5 ETWINMK 15 347Q BZE 5 XFIN [J IF DONE 8 34MB LDX 6 RQ(1) 18 3572 TV1 BNZ 4 XRENT [J IF ALREADY O/P MESS 7 35LL LDN 4 1 7 366= LDN 5 1 17 36KW DEMANDX 5,6,XCAT,XHERR,XRENT,2 [PUMP OUT REQUEST 20 375G BRN XCANT [J AND SEE IF ANYTHING HAPPENED 7 3?2G XFIN LONGOFF 7 3?G6 SUICIDE 4 3?_Q # 4 3#FB # 4 3#_2 # 4 3*DL # 4 3*Y= # 4 3BCW # 4 3BXG # 16 3CC6 # THIS PART IMPLEMENTS THE FOLLOWING MACROS:- 13 3CWQ # CHAREA,CHFILE,FIPPER,ANYUSERS 4 3DBB # 20 3DW2 # ON ENTRY ACOMMUNE7 : B0=1 B1-B23 REQUEST TYPE (EXCEPT CHFILE) 19 3F*L # B0-B23 MODE OF OPENING (CHFILE ONLY) 19 3FT= # ACOMMUNE8 : WORD ADDRESS OF AREA (CHAREA) OR WORD 14 3G#W # ADDRESS OF FIC 11 3GSG # ACOMMUNE9 = SUSN 4 3H#6 # 6 3HRQ QK3 [****** 10 3J?B LDN 6 ACOMMUNE7(2) 9 3JR2 LDN 7 AWORK1(2) 20 3K=L MOVE 6 3 [MOVE PARAMETERS TO AWORK WORDS 15 3KQ= MFINDSU 1,AWORK3(2) [FIND ASTUC 14 3L9W LADDP HUNIT(1),1 [AND APIA 8 3LPG LDCT 0 #10 21 3M96 ANDX 0 BSUNIT(1) [AND CHECK IF WE HAVE THE LOCK-OUT 8 3MNQ BNZ 0 Y8088 9 3MTD ... LDXC 0 ETWINMK 17 3MX2 ... BCS XIPB [J IF NOT INITIALISED 11 3MYJ ... ANDN 0 IPBDOWN+GEODOWN 17 3P7L BZE 0 Y1 [J IF NOTHING WRONG 9 3PM= ANDN 0 IPBDOWN 15 3Q6W BNZ 0 XIPB [J IF IPBDOWN 8 3QLG BRN XOK 10 3R66 Y8088 GEOERR 1,NOLOCKOT 19 3RKQ Y1 SETNCORE ESENDLEN,1,EWDAS,ESEND,,1 [SET UP DATA BLOCK 9 3S5B LDN 6 AWORK2(2) 9 3SK2 LDN 7 ENHOME(1) 18 3T4L MOVE 6 2 [MOVE IN HOME AND SUSN 9 3TJ= LDXC 7 AWORK1(2) 19 3W3W BCS Y2 [J IF NOT FILE INTEG CHECK 8 3WHG SBN 7 #200 15 3X36 BZE 7 Y2A [J IF READ 15 3XGQ LDCT 0 #400 [ELSE SET MKR 21 3Y2B ORS 0 ENSUSN(1) [ELSE INDICATE WRITE BY SETTING B0 19 3YG2 Y2A LDN 7 GCHF [SET REQUEST TYPE FOR CHFILE 9 3Y_L Y2 STO 7 ENMARK(1) 19 3_F= SETNCORE ENLINKLEN,3,EWDAS,ENLINK,,1 [SET UP LINK BLOCK 10 3_YW MHUNTW 1,EWDAS,ESEND 18 42DG TWINCT [GET TRANSFER IDENTIFIER 15 42Y6 STO 0 ENSTART(1) [AND STORE 9 43CQ LDX 6 ENHOME(1) 17 43XB STO 6 BACK1(3) [STORE HOME IN ENLINK 9 44C2 LDX 6 ENSUSN(1) 21 44WL STO 6 BACK2(3) [AND SUSN (FOR USE WHEN IPB GOES INOP 9 45B= #SKI K6TWINSETB>99-99 10 45TW TRACE ENSTART(1),K3TB 9 46*G #SKI K6TWINSETB>99-99 10 46T6 TRACE ENMARK(1),REQ 12 47#Q STO 0 ENBR(3) [ 17 47SB STO 7 ENRQ(3) [STORE REQEST TYPE 16 48#2 STOZ ENRP(3) [CLEAR REPLY WORD 9 48RL LDN 0 HOLDWT 16 49?= STO 0 ENWTS(3) [WA9TING STYLE 19 49QW CALL 7 SETOFF [SET OFF TWINNING ACTIVITY 8 4==G CALL 6 XHALT 21 4=Q6 LDX 7 ENRP(3) [GET REPLY B0=1 OK; ELSE B23=1 IF INT 17 4?9Q FREECORE 3 [B22=1 IF IPB FAIL 8 4?PB BNG 7 XOK 7 4#92 SBN 7 1 17 4#NL BZE 7 XINTEG [J IF INTEGRITY FAIL 7 4*8= SBN 7 1 16 4*MW BZE 7 XIPB [J IF IPB WRONG 7 4B7G SBN 7 2 16 4BM6 BZE 7 XOK [J IF GEORGE DOWN 7 4BWX ... SBN 7 3 17 4B_G ... BZE 7 XIPB [J IF NOT INITIALISED 8 4C6Q BRN N4 7 4CLB XIPB UPPLUS 2 4 4D62 # 8 4DKL # INTEGRITY FAIL 4 4F5= # 5 4FJW XINTEG 7 4G4G UPPLUS 1 4 4GJ6 # 7 4H3Q # BREAKIN 4 4HHB # 5 4J32 XBREAKIN 10 4J7N ... MFINDSU 1,AWORK1(2) 10 4J9= ... LADDP HUNIT(1),1 10 4J=S ... LDX 0 BSUNIT4(1) 7 4J#B ... SBN 0 1 8 4J*Y ... BNG 0 ND4 20 4JCG ... STO 0 BSUNIT4(1) [SUBTRACT 1 FROM COUNT OF USERS 11 4JGL MHUNTW 3,EWDAS,ENLINK 9 4JMS ... LDX 0 ENLA+1(3) 19 4JT2 ... BZE 0 XB1 [_IF ALREADY DECHAINED OTHERWISE 18 4K2= DERINGD ENLA(3) [DECHAIN FROM DATA BLOCK 7 4KFW ...XB1 FREECORE 3 5 4K_G UP 4 4LF6 # 4 4LYQ # 7 4MDB # REPLY OK 4 4MY2 # 7 4NCL XOK UPPLUS 3 4 4NX= # 19 4PBW XSET GEOERR 1,LONGSET [LONGWAIT FIELD ALREADY SET 4 4PWG # 12 4QB6 # THIS PART IMPLEMENTS PLOCKSU 4 4QTQ # 13 4R*B # ON ENTRY ACOMMUNE9 CONTAINS SUSN 4 4RT2 # 21 4S#L XMESS4 +ENTIN8 [STORAGE UNIT %A NOT SEARCHED DUE TO 18 4SS= [PROCESSOR LINK FAILURE 4 4T?W # 4 4TRG # 6 4W?6 QK11 [****** 7 4WQQ NGNC 0 1 6 4X=B QK4 [****** 7 4XQ2 LDN 0 0 18 4Y9L STO 0 AWORK2(2) [REMEMBER WHICH VERSION 18 4YP= LDN 5 0 [MKR FIRST TIME ROUND 10 4_8W LDX 0 ACOMMUNE9(2) 17 4_NG STO 0 AWORK1(2) [SAVE SERIAL NUMBER 10 4_R9 ...ND2 MFINDSU 1,AWORK1(2) 9 4_S6 ... LDX 4 GEOGU(1) 10 4_T3 ... LADDP HUNIT(1),1 10 4_TY ... LDX 0 BSUNIT3(1) 8 4_WT ... ANDN 0 #10 21 4_XQ ... BZE 0 ND1 [J IF STATUS CHANGE NOT IN PROGRESS 15 4_YM ... COOR3 KTSCTF [ELSE WAIT 8 4__J ... BRN ND2 7 522F ...ND1 LDN 0 1 18 523B ... ADS 0 BSUNIT4(1) [UPDATE COUNT OF USERS 8 53M2 LDCT 0 #10 9 546L ANDX 0 BSUNIT(1) 18 54L= BZE 0 N1 [J IF WE HAVE LOCK-OUT 9 54W3 ... LDXC 0 ETWINMK 17 54YL ... BCS NOTIN [J IF NOT INITIALISED 19 555W LONGSET ENDWT,XSET [ANNOUNCE INTENTION TO WAIT 15 55KG LDN 7 GLK [REQUEST TYPE 17 5656 CALL 6 XBLKS [SET UP DATA BLOCKS 15 56JQ STO 4 ENBR(3) [GEOG. NO. 10 574B STO 4 ENSTART(1) 9 57J2 #SKI K6TWINSETB>99-99 11 583L TRACE ENSTART(1),PLOCKSU 8 58H= LDN 0 ENDWT 16 592W STO 0 ENWTS(3) [WAITING STYLE 19 59GG CALL 7 SETOFF [WAKE UP TWINNING ACTIVITY 9 5=26 LDX 7 AWORK2(2) 16 5=FQ BNZ 7 N1A [J IF TPLOCKSU 7 5=_B LDN 2 2 17 5?F2 LONGSTOP XBREAKIN,XSP,,XENT,2 [WAIT FOR SOMETHING 8 5?YL BRN N8 4 5#4H ...N1A 10 5#8D ... MFINDSU 1,AWORK1(2) 10 5##* ... LADDP HUNIT(1),1 8 5#D= ... LDCT 0 #10 9 5#J7 ... ANDX 0 BSUNIT(1) 17 5#N4 ... BZE 0 N2 [J IF WE HAVE LOCKOUT 16 5#R_ ... COOR3 ENDWT [WAIT FOR LOCKOUT 15 5#XW N8 MFINDSU 1,AWORK1(2) [REFIND ASTUC 14 5*CG LADDP HUNIT(1),1 [AND APIA 16 5*X6 MHUNTW 3,EWDAS,ENLINK [FIND REPLY BLOCK 8 5BBQ LDCT 0 #10 9 5BWB ANDX 0 BSUNIT(1) 18 5CB2 BZE 0 N2 [J IF WE HAVE LOCK OUT 9 5CTL LDX 0 ENRP(3) 20 5D*= BZE 0 N3A [J IF LOCK-OUT STILL BEING GOT 9 5DSW LDXC 0 ENRP(3) 21 5F#G BCS N4 [GEOERR IF OK REPLY BUT NO LOCK-OUT 7 5FH7 ... SBN 0 7 17 5FKB ... BZE 0 N8B [J IF NOT INITIALISED 7 5FMK ... ADN 0 7 7 5FS6 ANDN 0 2 16 5G?Q BZE 0 N4 [OR NOT IPB FAIL 4 5GG2 ...N8B 16 5GN= ... LDX 7 1 [SAVE APIA PTR 9 5GRB LDX 0 ENLA+1(3) 16 5H?2 BZE 0 N7 [J IF RING NULL 15 5HQL DERINGD ENLA(3) [MAKE NULL 8 5HTX ...N7 FREECORE 3 16 5HX2 ... LDX 1 7 [RELOAD APIA PTR 10 5HY5 ...NOTIN LDX 0 BSUNIT4(1) 7 5H_8 ... SBN 0 1 8 5J2? ... BPZ 0 ND3 17 5J3B ...ND4 GEOERR 1,PLOCKSU [COUNT OF USERS -VE 19 5J4F ...ND3 STO 0 BSUNIT4(1) [TAKE ONE FROM COUNT OF USERS 14 5K9G UPPLUS 1 [IPB FAIL 4 5KP6 # 14 5L8Q # SPURIOUS INTERRUPT PROBABLY FOR TIME 4 5LNB # 10 5M82 XSP MFINDSU 1,AWORK1(2) 10 5MML LADDP HUNIT(1),1 11 5N7= MHUNTW 3,EWDAS,ENLINK 8 5NLW LDCT 0 #10 9 5P6G ANDX 0 BSUNIT(1) 18 5PL6 BNZ 0 N3 [J IF HAVENT GOT LOCK-OUT 7 5Q5Q LONGOFF 9 5QKB N2 LDX 0 ENLA+1(3) 15 5R52 BZE 0 N6 [J IF NULL 9 5RJL DERINGD ENLA(3) 7 5S4= N6 FREECORE 3 17 5SHW N1 LDX 0 AWORK1(2) [WE HAVE THE LOCK OUT 19 5T3G STO 0 ACOMMUNE9(2) [RESTORE FOR PLOCKSU MACRO 13 5TH6 UPPLUS 2 [OK 4 5W2Q # 15 5WGB # TIME HAS COME TO TELL JOB WHY HE'S WAITING 4 5X22 # 4 5XFL ...N3A 10 5XPD ... LONGSET ENDWT,XSET 16 5X_= BNZ 7 N1A [J IF TPLOCKSU 18 5YDW N3 BNZ 5 XENT1 [J IF MESSAGE ALREADY O/P 7 5YYG LDN 5 1 17 5_D6 OUTPACK AWORK1(2),1,CSN [OUTPUT SERIAL NUMBER 13 5_XQ LONGSTOP XBREAKIN,XSP,ENTIN9,XENT1 16 62CB BRN N8 [GO TO SEE IF OK 10 62X2 N4 GEOERR 1,WRONGREP 4 63BL # 20 63W= # SUBROUTINE TO CHAIN DATA BLOCK ON END OF TWINNING ACTIVITY 4 64*W # 15 64TG # LINK X7 NO-COORDINATION X3-X7 UNCHANGED 19 65*6 # ON ENTRY X1 SHOULD PT TO ESEND ; X3 SHOULD PT TO ENLINK 4 65SQ # 5 66#B SETOFF 17 66S2 RINGTWO ENTRGA(1),ENLA(3) [RING THEM TOGETHER 5 67?L SETOFFA 18 67R= LDX 2 ENTWINPTR [PTR TO TWINNING ACTIVITY 10 68=W LDX 2 ACTRING(2) 9 68QG SBN 2 ACTRING 9 69=6 LDX 2 BPTR(2) 15 69PQ CHAIN 1,2 [CHAIN ON END 9 6=9B LDX 2 ENTWINPTR 15 6=P2 DESUSPEND [WAKE IT UP 7 6?8L EXIT 7 0 4 6?N= # 4 6#7W # 4 6#MG # 6 6*76 QK5 [****** 14 6*LQ ... FINDPEREC 1,APGEOG,ACOMMUNE9(2),,,XCME 8 6B6B LADDP 1,1 10 6BL2 LDX 0 BSUNIT3(1) 7 6C5L ANDN 0 4 18 6CK= BNZ 0 P1 [J IF WE CAN DISENGAGE 9 6D4W STO 1 AWORK1(2) 10 6DJG LDX 4 ACOMMUNE9(2) 9 6F46 STO 4 AWORK2(2) 15 6FHQ LDN 7 GHOLD [REQUEST TYPE 17 6G3B CALL 6 XBLKS [SET UP DATA BLOCKS 9 6GH2 STO 4 ENBR(3) 10 6H2L STO 4 ENSTART(1) 9 6HG= LDN 0 HOLDWT 9 6H_W STO 0 ENWTS(3) 19 6JFG CALL 7 SETOFF [START UP TWINNING ACTIVITY 13 6J_6 CALL 6 XHALT [WAIT 9 6KDQ LDX 4 ENRP(3) 15 6KYB FREECORE 3 [FREE ENLINK 8 6LD2 BZE 4 XHERR 7 6LXL LDXC 0 4 17 6MC= BCS P2 [J IF TRANSFERRED OK 7 6MWW ANDN 0 6 7 6NBG SBN 0 2 17 6NW6 BZE 0 P3 [J IF IPB GONE WRONG 16 6P*Q P1 UPPLUS 1 [IF GEORGE DOWN 13 6PTB P3 UP [IPB 16 6Q*2 P2 UPPLUS 2 [TRANSFERRED OK 4 6QSL # 4 6R#= # 19 6RRW # THIS PART AUTONOMOUSLY SENDS A REQUEST (AUTWIN MACRO) 4 6S?G # 7 6SR6 Z13 NGNC 4 1 6 6T=Q QK7 [****** 7 6TQB LDN 4 0 13 6W=2 SETNCORE ESENDLEN,1,EWDAS,ESEND,,1 16 6WPL LDN 0 ENTRGA(1) [MAKE RINGS EMPTY 9 6X9= STO 0 ENTRGA(1) 10 6XNW STO 0 ENTRGA+1(1) 8 6Y8G BNZ 4 Z14 10 6YN6 LDX 0 ACOMMUNE8(2) 17 6_7Q STO 0 ENMARK(1) [STORE REQUEST TYPE 8 6_MB SBN 0 GLKT 10 7272 LDX 6 ACOMMUNE9(2) 16 72LL BNZ 0 V1A [J IF NOT LOCK 8 736= MFINDSU 3,6 10 73KW LADDP HUNIT(3),2 10 745G LDX 0 BSUNIT4(2) 20 74K6 BNZ 0 V2 [J IF ANOTHER USER HAS APPEARED 7 754Q LDCT 0 2 9 75JB ANDX 0 BSUNIT(2) 20 7642 BZE 0 V2 [OR IF LOCK-OUT IS NOT REQUIRED 17 76HL ERS 0 BSUNIT(2) [CLEAR REQUIRED BIT 8 773= LDCT 0 #10 18 77GW ORS 0 BSUNIT(2) [SET NOT GOT LOCK-OUT BIT 9 782G LDX 6 GEOGU(3) 10 78G6 V1A STO 6 ENSTART(1) 16 78_Q V1 CALL 7 SETOFFA [CHAIN IN QUEUE 5 79FB V3 UP 7 79_2 V2 FREECORE 1 8 7=DL BRN V3 9 7=Y= Z14 LDN 0 GRDFIPR 9 7?CW STO 0 ENMARK(1) 9 7?XG LDX 0 AWORK3(2) 14 7#C6 STO 0 ENSTART(1) [NUMBER 9 7#WQ LDX 0 AWORK1(2) 13 7*BB STO 0 ENSUSN(1) [SUSN 9 7*W2 LDX 0 AWORK2(2) 9 7B*L STO 0 ENHOME(1) 9 7BT= LDX 0 AWORK4(2) 9 7C#W STO 0 ESREP(1) 9 7CSG CALL 7 SETOFFA 7 7D#6 SUICIDE 4 7DRQ # 4 7F?B # 4 7FR2 # 4 7G=L # 21 7GQ= # THIS BIT RE-READS THE FIP AS THE OTHER PROCESSOR HAS ALTERED THEM 4 7H9W # 14 7HPG # THE OTHER PROCESSOR HAS THE LOCK-OUT 4 7J96 # 11 7JNQ # ON ENTRY AWORK1 SUSN 11 7K8B # AWORK2 HOME 14 7KN2 # AWORK3 MESSAGE NUMBER 4 7L7L # 6 7LM= QK8 [****** 13 7M6W LDX 5 AWORK2(2) [HOME 13 7MLG LDX 4 AWORK1(2) [SUSN 4 7N66 # 11 7NKQ # CHECK EXOF STILL THERE 4 7P5B # 8 7PK2 LDN 1 BCCB 9 7Q4L Z8 LDX 1 BPTR(1) 8 7QJ= TXU 1 CXCC 17 7R3W BCC Z7 [J IF END OF CHAIN 9 7RHG LDX 0 BACK2(1) 16 7S36 BZE 0 Z7 [OR NO MORE EXOFS 9 7SGQ TXU 4 ASUSN(1) 9 7T2B TXU 5 HOME(1) 16 7TG2 BCS Z8 [J NOT THIS EXOF 17 7T_L LDX 6 0 [REMEMBER EXOF NO. 15 7WF= SETNCORE GEXDLEN,3,EWDAS,GEXD[SET UP GEXD 15 7WYW STOZ A1(3) [AND ZEROISE 8 7XDG LDN 7 A1(3) 9 7XY6 LDN 0 A1+1(3) 9 7YCQ MOVE 7 GEXDLEN-1 15 7YXB STO 4 ESERL(3) [STORE SUSN 18 7_C2 FINDEXOF 1,6,Z12 [FIND EXOF IN CCB CHAIN 10 7_WL LDX 7 ALOGLEN(1) 18 82B= GETCORE 7,1 [GET CORE FOR DUMMY EXOF 10 82TW MHUNT 3,EWDAS,GEXD 16 83*G FINDCORE 2 [PTR TO NEW ONE 9 83T6 LDN 2 ATYPE(2) 12 84#Q FINDEXOF 1,6,Z9 [ 9 84SB LDN 1 ATYPE(1) 9 85#2 ... ADN 7 A1-ATYPE 19 85RL ... MOVLONG 1,2,7 [ALLOWS FOR > 512 WORD MOVE 13 86?= LDN 0 BOPEN+BSPEC+BSERL+BLOCK 17 86QW STO 0 EXMARK-ATYPE(2) [PARAMS FOR EXOPEN 9 87=G DOWN EXOPEN,1 10 87Q6 MHUNTW 3,EWDAS,GEXD 9 889Q LDX 7 EMARK(3) 9 88PB TESTREP OK,Z10 17 8992 TESTREP EXFAIL,Z15 [J IF UNSUCCESSFUL 10 89NL Z16 GEOERR 1,EXOPENRP 7 8=8= Z10 FREECORE 3 10 8=MW MHUNTW 3,EWDAS,EXOF 9 8?7G FINDEXOF 1,6,Z12 9 8?M6 LDX 0 BACK2(1) 17 8#6Q STO 0 BACK2(3) [TRANSFER EXOF NUMBER 7 8#LB LDX 7 1 16 8*62 CHAIN 3,7 [CHAIN NEW EXOF 7 8*KL LDX 3 7 8 8B5= BRN Z12 8 8BJW Z9 SBN 2 ATYPE 7 8C4G FREECORE 2 7 8CJ6 Z12 FREECORE 3 8 8D3Q Z7 LDCT 0 #400 9 8DHB Z17 STO 0 AWORK4(2) 8 8F32 BRN Z13 4 8FGL # 8 8G2= # TRANSFER FAIL 4 8GFW # 12 8G_G Z15 ANDN 7 ARITE+AFAIL+ANFOUND 8 8HF6 BZE 7 Z16 10 8HYQ MFREE EWDAS,EXOF 10 8JDB MFREE EWDAS,GEXD 7 8JY2 LDN 0 2 8 8KCL BRN Z17 12 8KX= # THIS PART CLOSES THE IPB LINKS 4 8LBW # 17 8LWG # AT THE STAGE THERE SHOULD BE NO WRITE OUTSTANDING 4 8MB6 # 6 8MTQ QK9 [****** 8 8N*B LDCT 0 #400 9 8NT2 ORN 0 JICLSE 21 8P#L ORS 0 ETWINMK [SET NOT INITIALISED AND CLOSE MKRS 4 8SQ2 # 14 8T9L # SEARCH FOR ESEND WITH CLOSE REQUEST 4 8TP= # 8 8W8W ZA LDX 3 FX2 11 8WNG Z2 HUNT2J 3,EWDAS,ESEND,,Z1 9 8X86 LDXC 0 ENMARK(3) 8 8XMQ BCS Z2 8 8Y7B SBN 0 CLIP 16 8YM2 BNZ 0 Z2 [J NOT CLOSE REQUEST 9 8_6L LDN 0 ENTRGA(3) 10 8_L= TXU 0 ENTRGA+1(3) 16 925W BCC Z1 [ERROR IF LINK EMPTY 10 92KG LDX 0 ENTRGA+1(3) 13 9356 BZE 0 Z1 [OR NULL 9 93JQ LDX 4 ENTRGA(3) 15 944B DERING ENTRGA(3) [DERING ENLINK 14 94J2 FREECORE 3 [FREE ESEND 7 953L LDX 1 4 18 95H= ENRING 1,ETBRING(2) [CHAIN ON END OF JOB RING 18 962W ACROSS TWINSETA,4 [WAIT FOR READ TO FINISH 4 96GG # 12 9726 # COMES BACK HERE WHEN IT HAS 4 97FQ # 6 97_B QK10 [****** 6 986J ... TCLOSE 4 98YL # 9 99D= # LOOK FOR ENLINK 4 99XW # 16 9=CG ZB LDX 3 ETFRING(2) [START OF QUEUE 10 9=X6 Z4 LDN 0 ETFRING(2) 7 9?BQ TXU 0 3 17 9?WB BCC Z1 [ERROR IF NOT THERE 8 9#B2 SBN 3 ENLA 9 9#TL LDX 0 ENRQ(3) 8 9**= SBN 0 CLIP 15 9*SW BZE 0 Z3 [J IF CLOSE 9 9B#G LDX 3 ENLA(3) 14 9BS6 BRN Z4 [GET NEXT 8 9C?Q Z3 LDCT 0 #400 9 9CRB STO 0 ENRP(3) 7 9D?2 LDX 2 3 17 9DQL LDX 1 ENWTS(3) [GET WAITING STYLE 18 9F== Z5 LDX 2 BPTR(2) [LOOK BACK FOR ACTIVITY 9 9FPW LDX 0 ATYPE(2) 8 9G9G TXL 0 CACT 14 9GP6 BCS Z5 [J IF NOT 10 9H8Q LONGCLEAR 2,0(1),Z6 16 9HNB Z6 DERINGD ENLA(3) [DECHAIN ENLINK 10 9S22 ACROSS TWINSETA,1 4 9S2B ...[ 4 9S3G ...QK12 4 9S3W ...[ 11 9S4= ...[ CLOSE LINKS - TCLOSE MACRO 4 9S4L ...[ 9 9S52 ... LDX 0 ETWINMK 8 9S5B ... ANDN 0 JOFR 18 9S5Q ... BNZ 0 NRL [J IF READ LINK NOT OPEN 9 9S66 ... LDX 5 ETWINMK 9 9S6G ... ANDN 5 JROUTS 18 9S6W ... BZE 5 RLC [J IF NO READ OUTSTANDING 8 9S7= ...RCR IPCREP R,3 17 9S7L ... BPZ 3 RLCF [J IF READ FINISHED 15 9S82 ... SUSPEND [ELSE WAIT 8 9S8B ... BRN RCR 20 9S8Q ...RLCF ERS 5 ETWINMK [CLEAR READ OUTSTANDING MARKER 16 9S96 ...RLC IPCLOSE R,ZCAN [CLOSE READ LINK 9 9S9G ...NRL LDX 0 ETWINMK 9 9S9W ... ANDN 0 JNOCHAT 18 9S== ... BNZ 0 NWL [J IF WRITE LINK NOT OPEN 9 9S=L ... LDX 5 ETWINMK 9 9S?2 ... ANDN 5 JIOUTS 19 9S?B ... BZE 5 WLC [J IF NO WRITE OUTSTANDING 8 9S?Q ...WCW IPCREP W,3 16 9S#6 ... BPZ 3 WLCF [J IF FINISHED 15 9S#G ... SUSPEND [ELSE WAIT 8 9S#W ... BRN WCW 19 9S*= ...WLCF ERS 5 ETWINMK [CLEAR WRITE OUTSTANDING MKR 9 9S*L ...WLC IPCLOSE W,ZCAN 8 9SB2 ...NWL LDCT 0 #400 17 9SBB ... ORN 0 JNOCHAT+JOFR [SET NOT OPEN MKRS 9 9SBQ ... ORS 0 ETWINMK 9 9SC6 ... LDN 0 JICLSE 9 9SCG ... ANDX 0 ETWINMK 17 9SCW ... ERS 0 ETWINMK [CLEAR CLOSING MKR 18 9SD2 ... LDN 0 7 [NOT INITIALISED REPLY 10 9SD6 ... STO 0 ACOMMUNE2(2) 21 9SD= ... DOWN TWINSETD,5 [PUT NOT INITIALISED REPLY IN ESENDS 5 9SDL ... UP 4 9SFL # 10 9S_= ZCAN GEOERR 1,NO CLOSE 10 9TDW Z1 GEOERR 1,OUTSTAND 9 9TNN ...XCME GEOERR 1,NOTCME 4 9TYG # 11 9WD6 MENDAREA 50,K99TWINSETB 4 9WXQ # 4 9XCB #END 8 ____ ...01241350000100000000