15 22FL #SEG IPBERROR [COMM - IPB 13 22_= [ (C) INTERNATIONAL COMPUTERS LTD. 1982 14 23DW #LIS K0IPBERROR>K0IPB>K0ALLGEO>K0GREATGEO 7 23YG 8HIPBERROR 12 24D6 SEGENTRY K1IPBERROR,X1IPBERROR 4 24XQ [ 19 25CB [ THIS SEGMENT IS ENTERED AFTER A CALL OF THE MACRO CCERROR 19 25X2 [ VARIOUS ACTIONS ARE TAKEN DEPENDENT UPON THE PARAMETERS OF 7 26BL [ THE MACRO 4 26W= [ 10 27*W XIN +IPBIN+AMOP 9 27TG ZIPBERR +JIPBERR 9 28*6 ZIPBPOST +IPBPOST 10 28SQ ZIPBTAKEPM +IPBTAKEPM 10 29#B ZIPBRECV +IPBRECOVER 9 29S2 XJWRONG +JWRONG 14 2=?L REOPENBLK 0,#40000000,#1130000,#1120000 9 2=R= TABLE 8HNULLENT 13 2?=W 8HINV IDEN [1 13 2?QG 8HTRANSFER [2 13 2#=6 8HUNTERMRD [3 13 2#PQ 8HINV SUP [4 13 2*9B 8HBIGREPRT [5 13 2*P2 8HNOCONTCR [6 13 2B8L 8HSSSWRONG [7 13 2BN= 8HREJECTOT [8 13 2C7W 8HREJECTIN [9 13 2CMG 8HWRONGSUP [10 13 2D76 8HWRONGILL [11 13 2DLQ 8HNOTCLOSE [12 13 2F6B 8HSS WRONG [13 13 2FL2 8HDATANOW? [14 13 2G5L 8HNOT80CHS [15 12 2GK= POSTSEG 0,#40000000,#00500000 10 2H4W ZIPBMOPOFF +IPBMOPOFF 10 2HJG SEGENTRY K52IPBERROR 8 2J46 MOPOFF +14 8 2JHQ +0 11 2K3B 14HMOP OFF, ,PM 10 2KH2 SEGENTRY K51IPBERROR 8 2L2L 4H 8 2LG= SPACE 4H000 4 2PD2 [ 8 2PXL [ SUBROUTINES 4 2QC= [ 5 2QWW SOUTP 8 2RBG SBX 7 FX1 5 2RW6 ZOUTC 10 2S*Q OUTPACKX 6,5,4,ZOUTC 8 2STB ADX 7 FX1 7 2T*2 EXIT 7 0 4 2TSL [ 5 2W#= SGEOG 8 2WRW SBX 7 FX1 9 2X?G LDX 3 AWORK4(2) 10 2XR6 LGEOG CPPTR(3),6 8 2Y=Q GEOPACK 3,6,C 7 2YQB LDN 5 1 7 2_=2 LDN 6 3 8 2_PL LDN 4 29 8 329= BRN ZOUTC 4 32NW [ 4 338G SINF 8 33N6 SBX 7 FX1 7 347Q LDN 1 1 8 34MB INFORMX 1,6,1 8 3572 ADX 7 FX1 7 35LL EXIT 7 0 4 366= [ 4 36KW [ 4 375G [ 8 37K6 [ K1 IPBERROR 4 384Q [ 4 38JB [ 6 3942 X1IPBERROR 19 39HL LDN 6 ACOMMUNE1(2) [SAVE CCERROR MACRO PARAMS. 9 3=3= LDN 7 AWORK1(2) 7 3=GW MOVE 6 2 16 3?2G HUNTW 3,AMXOR,ADCB [HUNT IDENT. BLK. 21 3?G6 BPZ 3 ZIDENT [J. ONE EXISTS = IDENT LEVEL ERROR 20 3?_Q LAMOP ,3 [GET ADDRESS OF AMOP/IPBIN IN X3 8 3#FB LDCT 0 #400 21 3#_2 ORS 0 AWORK3(2) [SET INDICATOR AWORK3 NEG = LINK LEVE 16 3*DL BRN ZJOIN [J. TO CONTINUE 15 3*Y= ZIDENT [IDENT ERROR 18 3BCW LONGSET CCERRWAIT,ZLNSE [J. IF ALREADY LONG SET 10 3BXG LDX 0 IDENTNO(3) 18 3CC6 STO 0 AWORK3(2) [ST. IDENT NO. IN AWORK3. 18 3CWQ LDX 3 IADIN(3) [LD. PTR. TO AMOP/IPBIN 5 3DBB ZJOIN 20 3DW2 STO 3 AWORK4(2) [ST. PTR. TO AMOP/IPBIN IN AWORK4 13 3F*L SETNCORE GSCANSIZE+2,3,AMXOR,GSCAN 16 3FT= LDX 0 GSCANPNTR [NEXT GSCAN ENTRY 9 3G#W LDX 7 GSCANBUFF 19 3GSG SBX 0 7 [REL START OF GSCAN BUFFER 15 3H#6 STO 0 A1(3) [LAST ENTRY 15 3HRQ LDX 0 GSCANVAL [LAST ENTRY 15 3J?B SBX 0 7 [RELATIVISE 9 3JR2 STO 0 A1+1(3) 9 3K=L LDN 0 A1+2(3) 17 3KQ= MOVE 7 GSCANSIZE [COPY GSCAN BUFFER 4 3L9W [ 8 3LPG LDN 7 #4000 20 3M96 ANDX 7 AWORK1(2) [EXTRA 4 WDS FOR %B FOR CLERROR. 7 3MNQ SRL 7 9 16 3N8B ADN 7 12 [4 WDS. PER PARAM 21 3NN2 OUTBLOCK 7 [SET UP BLOCK FOR PARAMS TO MESSAGE 8 3P7L CALL 7 SGEOG 9 3PM= LDXC 6 AWORK3(2) 16 3Q6W BCC ZIDENT1 [J. IDENT LEVEL 18 3QLG OUTNULL [NULL IDENT. NO. PARAM 9 3R66 BRN ZJOIN1 5 3RKQ ZIDENT1 9 3S5B LDX 3 AWORK4(2) 10 3SK2 LGEOG CPPTR(3),7 8 3T4L ORX 7 CACT 8 3TJ= GEOPACK 3,6 7 3W3W LDN 6 3 17 3WHG CALL 7 SOUTP [X5 & X4 ARE STILL OK 5 3X36 ZJOIN1 7 3XGQ SMO 2 9 3Y2B LDCH 6 AWORK1 7 3YG2 SLL 6 1 7 3Y_L SMO 6 19 3_F= LDN 6 TABLE(1) [FIND SUBMESSAGE FROM A TABLE 15 3_YW LDN 4 37 [VARCHC PDC 7 42DG LDN 5 2 8 42Y6 CALL 7 SOUTP 8 43CQ LDN 0 #4000 20 43XB ANDX 0 AWORK1(2) [B12 OF AWORK1=1 IF ADD. INFO. 18 44C2 BZE 0 NADINF [J. NO OCTAL ADD. INFO. 17 44WL LDN 6 AWORK2(2) [ADDR. OF ADD. INFO 16 45B= LDN 5 1 [1 WD OF OCTAL 14 45TW LDN 4 44 [OCTA PDC 8 46*G CALL 7 SOUTP 5 46T6 NADINF 21 47#Q LDX 6 ZIPBERR(1) [UNIT UN ERROR:IN FAILED STRG #OCTAL 8 47SB CALL 7 SINF 4 48#2 [ 9 48RL LDXC 6 AWORK3(2) 17 49?= BCS ZLINK [J. LINK LEVEL ERROR. 4 49QW [ 9 4==G [ IDENTIFIER LEVEL 4 4=Q6 [ 14 4?9Q HUNT2J 3,AMXOR,ADEVS,AWORK4(2),ZERR1 15 4?PB LDX 0 AWORK3(2) [IDENT NO. 17 4#92 SBX 0 A1+FOURTHWD(3) [SBN LOWEST IDENT NO 16 4#NL SLL 0 2 [FOURWD ENTRIES 20 4*8= ADX 3 0 [X3 PTR TO ADEVS ENTRY FOR IDENT 8 4*MW LDCT 0 #100 11 4B7G ANDX 0 A1+FOURTHWD(3) 9 4BM6 ORX 0 FINISH 19 4C6Q BNZ 0 ZMPFN [J. MOPPING OFF OR FINISHING 5 4NCL OUTEX 8 4NX= CALL 7 SGEOG 5 4PBW ZBRKI 18 4PWG DEMAND 1,IPBTAKEPM,ZJCD,ZBRKI,ZREN,1 [DEMAND A PM 19 4QB6 ZJCD [OPERATORS RESPONDED CANTDO. 10 4QTQ MHUNTW 3,AMXOR,ADCB 9 4R*B LDX 0 IADIN(3) 9 4RT2 STO 0 AWORK4(2) 10 4S#L LDX 0 IDENTNO(3) 9 4SS= STO 0 AWORK3(2) 17 4T?W LDX 3 AWORK4(2) [OUTPUT MESSAGE 17 4TRG LGEOG CPPTR(3),7 [SAYING IDENT WRONG 8 4W?6 ORX 7 CACT 20 4WQQ LDX 6 AWORK3(2) [X7 GEOEG NO. X6 = IDENT NO 8 4X=B GEOPACK 4,6 10 4XQ2 OUTPACK 4,1,GEOPER 7 4Y9L LDN 5 0 16 4YP= LDX 7 XJWRONG(1) [LD. WRONG MESS 9 4_8W INFORMX 5,7,1 14 4_NG HUNT2J 3,AMXOR,ADEVS,AWORK4(2),ZERR1 18 5286 LDN 6 #2000 [BIT 13 - CANTDO LABEL 15 52MQ LDX 0 AWORK3(2) [IDENT NO. 18 537B SBX 0 A1+FOURTHWD(3) [SBN LOWEST IDENT. NO. 17 53M2 SLL 0 2 [FOUR WD. ENTRIES. 21 546L ADX 3 0 [X3 PTR. TO ADEV'S ENTRY FOR IDENT. 11 54L= LDX 0 A1+FOURTHWD(3) 17 555W ANDN 0 #17 [MASK OUT DEVICE TYPE 7 55KG SBN 0 4 21 5656 BZE 0 ZCRTR [J. DEVICE TYPE = 04 IE CARD READER 7 56JQ SBN 0 2 21 574B BZE 0 ZCRTR [J. DEVICE TYPE = 06 IE TAPE READER 15 57J2 LDCT 0 #002 [LD. BIT 7 17 583L ERS 0 A1+FOURTHWD(3) [SET BIT 7 = WRONGED 4 58H= [ 5 592W ZCRTR 7 59GG LONGOFF 2 18 5=26 VFREEW AMXOR,GSCAN [SUB TO FREE GSCAN BLOCK 16 5=FQ ANDX 6 AWORK1(2) [LABELS SUPPLIED 8 5=_B BNG 6 ZUPP2 8 5?F2 BNZ 6 ZUPP1 15 5?YL UP [FOLLOW ON 5 5#D= ZUPP1 15 5#XW UPPLUS 1 [LABEL GIVEN 7 5*CG ZUPP2 UPPLUS 2 4 5*X6 [ 5 5BBQ ZMPFN 18 5BWB LDN 6 #1000 [BIT 14 - MOP OFF LABEL 8 5CB2 BRN ZCRTR 4 5CTL [ 4 5D*= [ 8 5DSW [ LINK LEVEL 4 5F#G [ 5 5FS6 ZLINK 7 5G?Q SMO 2 17 5GRB LDCH 6 AWORK1 [LD. MESSAGE SUB TYPE 7 5H?2 SBN 6 8 16 5HQL BNZ 6 ZLER1 [J. NOT REJECTOT 7 5J== [ REJECTOT 18 5JPW LDX 3 AWORK4(2) [LD. PTR TO AMOP/IPBIN 13 5K9G LDCT 0 #400 [B0 18 5KP6 ORS 0 IPBSW(3) [MARK IPBIN ACT. INOP. 14 5L8Q LDCT 0 #404 [B0 + B6 10 5LNB SMO IPBRING(3) 16 5M82 ORS 0 IPBSW-IPBRING [MARK OUTPUT ACT. 4 5MML ZRET 17 5N7= LDX 6 GSIGN [RETURN TO CALL SEG 16 5NLW BRN ZCRTR [FREE AND EXIT 4 5P6G [ 5 5PL6 ZLER1 7 5Q5Q SMO 2 9 5QKB LDCH 6 AWORK1 7 5R52 SBN 6 5 16 5RJL BZE 6 ZRET [J. BIG REPT = 5 7 5S4= SBN 6 1 16 5SHW BZE 6 ZRET [J. NOCONTCR = 6 7 5T3G SBN 6 1 16 5TH6 BZE 6 ZRET [J. SSSWRONG = 7 7 5W2Q SBN 6 2 16 5WGB BZE 6 ZRET [J. REJECTIN = 9 4 5X22 [ 7 5XFL SMO 2 16 5X_= LDCH 6 AWORK1 [LD. SUB MESS. 7 5YDW SBN 6 2 15 5YYG BZE 6 ZTERM [J. TRANSFER 7 5_D6 SBN 6 1 20 5_XQ BNZ 6 SPOST [J.NOT UNTERMRD GO TO OUTPUT POST 5 62CB ZTERM 16 62X2 LDX 3 AWORK4(2) [LD. PTR. TO AMOP 9 63BL LDX 0 IPBSW(3) 17 63W= BNG 0 ZRET [J. UNIT ALREADY INOP 8 64*W LDCT 0 #400 18 64TG ORS 0 IPBSW(3) [SET INOP BIT IN IPBIN 10 65*6 SMO IPBRING(3) 18 65SQ ORS 0 IPBSW-IPBRING [SET INOP BIT IN IPBOUT 8 66#B LDCT 0 #020 9 66S2 ANDX 0 IPBSW(3) 18 67?L BNZ 0 ZMPFN [J. MOP OFF IN PROGRESS 8 67R= CALL 7 SGEOG 20 68=W LDX 6 ZIPBRECV(1) [MESSAGE - ATTEMPTING RECOVERY 8 68QG CALL 7 SINF 10 69=6 [ SENT OUT RESET/REOPEN 17 69PQ SETNCORE 4,1,AMXOR,IOUT,1 [SET UP SUP SEG BLOCK 8 6=9B SMO FX1 9 6=P2 LDN 3 REOPENBLK 9 6?8L LDN 4 IMOPTY(1) 7 6?N= MOVE 3 4 5 6#7W ZRESREO 7 6#MG LOCK 1 19 6*76 LDN 0 #15 [END WRITE CANCEL READ MODE 14 6*LQ DCA ,STO,0,MODE [ST. MODE 16 6B6B STOZ CPRW1(2) [CLEAR REPLY WD. 10 6BL2 MHUNTW 3,AMXOR,IOUT 10 6C5L LDX 0 ALOGLEN(3) 19 6CK= SBN 0 IPBIDE-A1-1 [SIZE OF DATA SEG +1 FOR BSW 15 6D4W DCA ,STO,0,COUNT [ST. COUNT 9 6DJG LDN 0 IBSW(3) 20 6F46 DCA ,STO,0,CTSA [ST. START OF BLOCK TO BE OUTPUT 20 6FHQ GPERI ,2 [OUTPUT SUP SEGS -RESET REOPEN 9 6G3B LDX 6 CPRW1(2) 17 6GH2 BPZ 6 WAIT2 [J. TRANSFER COMPLETE 7 6H2L SLC 6 5 17 6HG= BNG 6 TINOP [BR. IF REJECTED INOP 7 6H_W SRC 6 1 18 6JFG BNG 6 TINOP [J. RECTECTED OPERABLE 5 6J_6 WAIT2 21 6KDQ COOR1 [WAIT FOR END OF TRANSFER CHAINING 9 6KYB LDX 0 CPRW1(2) 7 6LD2 SLC 0 5 14 6LXL BPZ 0 TINOP [J. INOP 7 6MC= SRC 0 2 14 6MWW BNG 0 TERR [J. ERROR 21 6NBG LDCT 0 #220 [BIT PATTER X1XX1 BITS 1 AND 4 SET 9 6NW6 ANDX 0 CPRW1(2) 15 6P*Q BNZ 0 TINOP [J. NOT IMPL 9 6PTB LDX 0 CPRW1(2) 8 6Q*2 ANDN 0 #7777 19 6QSL BNZ 0 TINOP [J. ONLY ONE WD. READ BY DCP 18 6R#= UNLOCK 3 [UNLOCK AMXOR IOUT BLK 15 6RRW VFREEW AMXOR,IOUT [FREE BLOCK 18 6S?G [ ATTEMPT TO RECOVER BY SENDING RESET REOPEN HAS WORKED. 17 6SR6 LDCT 0 #004 [B6 OF OUTPUT ACT SET 10 6T=Q SMO IPBRING(2) 10 6TQB ORS 0 IPBSW-IPBRING 8 6W=2 LDCT 0 #400 10 6WPL SMO IPBRING(2) 10 6X9= ANDX 0 IPBSW-IPBRING 10 6XNW SMO IPBRING(2) 20 6Y8G ERS 0 IPBSW-IPBRING [CLEAR INOP BIT 0 IN OUT ACTIVITY 8 6YN6 LDCT 0 #400 9 6_7Q ANDX 0 IPBSW(2) 20 6_MB ERS 0 IPBSW(2) [CLEAR INOP BIT 0 IN IN ACTIVITY 18 7272 BRN ZRET [RETURN TO CALLING SEG 21 72LL TERR [WRITE REJECTED OPERABLE OR ENDED. 18 736= [WAIT FOR READ TO FINISH 7 73KW UNLOCK 3 9 745G LDX 0 XIN(1) 8 74K6 SLL 0 12 16 754Q SBX 0 ATYPE(2) [TEST IF IN ACT 14 75JB BZE 0 TIN [J. YES 16 7642 LDX 2 IPBRING(2) [LD. PTR TO IN 9 76HL SBN 2 IPBRING 11 773= TIN HUNT2 3,AMXOR,INBF,2 15 77GW SEGENTRY K50IPBERROR [NPUSIZE MACRO 10 782G LDN 5 INPUSIZE+5 7 78G6 LOCK 3 8 78_Q ADN 3 A1 8 79FB LDX 2 FX2 7 79_2 LDN 7 2 9 7=DL JSBUSY ,ZERR1 19 7=Y= DSCA ,STO,3,CTSA [SET UP CONTROL AREA FOR READ 10 7?CW DSCA ,STO,5,COUNT 10 7?XG DSCA ,DLA,7,MODE 14 7#C6 GSPERI ,2 [DO PERI 15 7#WQ LDX 0 CPRW1(2) [CHECK REPLY 16 7*BB BPZ 0 SPOS [FINISHED ALREADY 7 7*W2 SLC 0 5 14 7B*L BNG 0 TINOP [J. INOP 13 7BT= SPOS COOR1 [WAIT 9 7C#W LDX 0 CPRW1(2) 7 7CSG SLC 0 5 15 7D#6 BPZ 0 TINOP [J. IF INOP. 7 7DRQ SRC 0 2 16 7F?B BNG 0 TINOP [B3 SET - ERROR 7 7FR2 SRC 0 1 17 7G=L BNG 0 TINOP [B2 SET - UNTERM READ 10 7GQ= MHUNTW 1,AMXOR,IOUT 19 7H9W BRN ZRESREO [ATTEMPT RESET/REOPEN AGAIN. 7 7HPG TINOP UNLOCK 3 20 7J96 VFREEW AMXOR,IOUT [FREE RESET-REOPEN SUP SEG BLK 6 7JNQ XINFOMESS 8 7K8B CALL 7 SGEOG 18 7KN2 LDX 6 ZIPBTAKEPM(1) [PLEASE TAKE PM MESSAGE 8 7L7L CALL 7 SINF 9 7LM= LDX 6 XIN(1) 8 7M6W SLL 6 12 9 7MLG SBX 6 ATYPE(2) 8 7N66 LDCT 0 #20 16 7NKQ BZE 6 XTIN [J. AMOP-IPBIN 10 7P5B SMO IPBRING(2) 16 7PK2 ANDX 0 IPBSW-IPBRING [MASK MOP OFF BIT 15 7Q4L BRN XOUT [J. CONTINUE 16 7QJ= XTIN ANDX 0 IPBSW(2) [MASK MOP OFF BIT 4 7R3W XOUT 7 7RHG SLL 0 2 16 7S36 ORX 0 FINISH [AND FINISH BIT 14 7SGQ BNZ 0 ZMPFN [J FINISH 17 7T2B LDX 4 ASYSTEMMESS [LD. MESSAGETIME 9 7TG2 XREPT BZE 4 XINFOMESS 15 7T_L COOR4 CCERRWAIT [WAIT 4 SECS 7 7WF= SBN 4 4 17 7WYW BNG 4 XINFOMESS [RE-OUTPUT MESSAGE. 15 7XDG BRN XREPT [REPEAT WAIT 16 7XY6 [ SEND POSTMORTEM TO DCP AND MOP OFF THE UNIT 5 7YCQ SPOST 8 7YXB LDCT 0 #400 19 7_C2 ORS 0 IPBSW(2) [SET INOP BIT IN INPUT ACT 10 7_WL SMO IPBRING(2) 19 82B= ORS 0 IPBSW-IPBRING [SET INOP BIT IN OUTPUT ACT. 8 82TW CALL 7 SGEOG 21 83*G LDX 6 ZIPBPOST(1) [IS BEING PUT INTO POSTMORTEM STATE 8 83T6 CALL 7 SINF 12 84#Q [ SEND OUT POSTMORTEM SUPSEG TO DCP 18 84SB SETNCORE 3,1,AMXOR,IOUT,1 [SET UP AN OUTPUT BLOCK. 8 85#2 SMO FX1 19 85RL LDN 3 POSTSEG [MOVE IN POSTMORTEM SUP.SEG 9 86?= LDN 4 IMOPTY(1) 7 86QW MOVE 3 3 7 87=G LOCK 1 19 87Q6 LDN 0 #15 [END WRITE CANCEL READ MODE 14 889Q DCA ,STO,0,MODE [ST. MODE 16 88PB STOZ CPRW1(2) [CLEAR REPLY WD. 10 8992 MHUNTW 3,AMXOR,IOUT 10 89NL LDX 0 ALOGLEN(3) 19 8=8= SBN 0 IPBIDE-A1-1 [SIZE OF DATA SEG+1 FOR BSW 15 8=MW DCA ,STO,0,COUNT [ST. COUNT 9 8?7G LDN 0 IBSW(3) 20 8?M6 DCA ,STO,0,CTSA [ST. START OF BLOCK TO BE OUTPUT. 19 8#6Q GPERI ,2 [OUTPUT SUP.SEG - POSTMORTEM 19 8#LB COOR1 [WAIT FOR END OF TRANSFER. 20 8*62 [DONT SEE ANY POINT IN CHECKING 20 8*KL [THE REPLY WORD AS THERE WILL BE 19 8B5= UNLOCK 1 [VERY LITTLE FOR US TO DO. 10 8BJW VFREEW AMXOR,IOUT 10 8C4G SEGENTRY K55IPBERROR 20 8CJ6 NULL [GEOERR IPBERR IF THE IPBPM MACRO 14 8D3Q NULL [IS ON 16 8DHB LONGOFF 2 [REMOVE LONGSET 16 8F32 VFREEW AMXOR,GSCAN [FREE GSCAN BLCK. 21 8FGL [ SEND OUT A MESSAGE TO THE OPERATOR INFORMING THEM UNIT WILL APPEAR 7 8G2= [ MOPPED OFF 4 8GFW XMOP 8 8G_G CALL 7 SGEOG 19 8HF6 LDX 6 ZIPBMOPOFF(1) [UNIT IS BEING MOPPED OFF. 8 8HYQ CALL 7 SINF 8 8JDB LDX 2 FX2 9 8JY2 LDX 3 AWORK4(2) 10 8KCL LGEOG CPPTR(3),6 18 8KX= GEOPACK 3,6,C [PACKED GEOPER PARAMETER 21 8LBW PERCHARS 3 [CONVERT TO ENGLISH FORM IN AC2 &AC3 21 8LWG SETNCORE 7,3,ADATA,CREADL [CREATE CREADL WITH MOP OFF COMMAND 9 8MB6 LDN 5 MOPOFF(1) 8 8MTQ LDN 6 A1(3) 7 8N*B MOVE 5 7 10 8NT2 XLD LDCH 0 ACOMMUNE2(2) 16 8P#L BXE 0 SPACE(1),XSP [J. WHEN = SPACE 19 8PS= DCH 0 A1+4(3) [PUT UNIT NO INTO COMMAND 8 8Q?W BCHX 3 XA 8 8QRG XA BCHX 2 XLD 4 8R?6 XSP 4 8RQQ [ 20 8S=B ISSUJOB 0 [INITIAGLISE A JOB TO MOP OFF 4 8SQ2 [ 5 8T9L XWAITMP 20 8TP= COOR4 #62 [GET WOKEN UP EVERY FONINTP SECS. 8 8W8W LDCT 0 #20 19 8WNG ANDX 0 IPBSW(2) [TEST TO SEE IF MOPPING OFF 16 8X86 BNZ 0 XMPOFF [J. MOPPING OFF 18 8XMQ LDCT 0 #400 [MOP OFF COMMAND FAILED 9 8Y7B ANDX 0 IPBSW(2) 21 8YM2 BNZ 0 XMOP [IF INOP REISSUE MOP OFF,PM COMMAND 21 8_6L GEOERR 1,FUNNYIPB [GEOERR - FUNNYIPB - STATE OF'IPB ODD 5 8_L= XMPOFF 17 925W LDCT 0 #040 [TEST READ INHIBIT 9 92KG ANDX 0 IPBSW(2) 21 9356 BZE 0 XWAITMP [J. TO WAIT FOR MOP OFF TO COMPLETE 20 93JQ ERS 0 IPBSW(2) [CLEAR B3 TO SHOW READ FINISHED 10 944B MHUNTW 3,AMXOR,ADEVS 21 94J2 LDX 2 A1+BPTR(3) [ZERO OR RINGED - MOP OFF' DUMMY ADCB 15 953L BZE 2 SFPA [J. FINISHED 15 95H= STOZ A1+BPTR(3) [CLEAR ADEVS 15 962W STOZ BPTR(2) [CLEAR ADCB 9 96GG SBN 2 A1+BPTR 9 9726 SFRED LDX 2 BPTR(2) 9 97FQ LDX 0 ATYPE(2) 8 97_B TXL 0 CACT 8 98F2 BCS SFRED 18 98YL FPUT [PUT MOPPING OFF ON LIST 16 99D= SFPA [FREEING ADEV'S 7 99XW LDX 2 3 10 9=CG LDX 4 ALOGLEN(3) 7 9=X6 SRL 4 2 7 9?BQ SBN 4 1 5 9?WB SFALOOP 10 9#B2 LDX 1 A1+BPTR+4(3) 15 9#TL BZE 1 SFALPA [NEXT ENTRY 17 9**= GEOERR 1,ADEVSRIN [A RING STILL EXISTS 5 9*SW SFALPA 7 9B#G ADN 3 4 9 9BS6 BCT 4 SFALOOP 7 9C?Q LDX 3 2 7 9CRB FREECORE 3 10 9D?2 MFREEW AMXOR,INBF 8 9DQL LDX 0 GSIGN 21 9F== STO 5 CHAINADD(2) [SET CHAINADD -VE TO AWAIT RESTART 15 9FPW STOZ IPBSW(2) [CLEAR IPBSW 17 9G9G DISENGPER [WAIT UNTIL OPERABLE 6 9GP6 COOR1 15 9H8Q ACROSS IPBSTART,5 [GO RESTART 9 9HNB ZERR1 GEOERR 1,NOADEVS 10 9J82 ZLNSE GEOERR 1,LONGSET 4 9JML #END 6 ____ ...074153530001